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R 0000 1 THIS  LGC  PROGRAM  IS  INTENDED  FOR  USE  IN  THE  LM  DURING  THE  MANNED  LUNAR  LANDING  MISSION  OR  ANY  SUBSET  THEREOF, 
R00002  TEE  DETAILS  OF  IMPLEMENTATION  ARE  SPECIFIED  IN  REPORT  R-567,  AS  AMENDED. 
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GUIDANCE  SYSTEM  OPERATIONS  PLAN 
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USER' S PAGE 

NO.  2 
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R0001 

TABLE  CF  LOG  CARDS 

R0002 

R0003 

R0004 

TAGS  FOR  RELATIVE  SETLOC  AND  BLANK  BANK  CARDS 
PACLOADS 

rrN'Toni  i cp  CONSTANTS 

R 0006 
R 0007 

INPUT/OUTPUT  CHANNEL  BIT  DESCRIPTIONS 
FLAGWORD  ASSIGNMENTS 

CIlQOnilTlMC  f AH  C 

KUUU1 

R0010 

R0011 

lumerase 

ERASABLE  ASSIGNMENTS 

R 00 13 
R0014 

INTERRUPT  LEAD  INS 
T4RUPT  PROGRAM 
RCS  FAILURE  MONITOR 

R0016 
R 00 1 7 
o 00  1 R 

DOWNLINK  LISTS 
AGS  INITIALIZATION 
FRESH  START  AND  RESTART 

R0019 
R0020 
r no?  i 

RESTART  TABLES 
ACTMARK 

EXTENDED  VERBS 

R0022 
R0023 
R 00  24 

P INBALL  NOUN  TABLES 
LEM  GEOMETRY 

I MU  COMPENSATION  PACKAGE 

R0025 

R0026 

R0027 

R 63 

ATTITUDE  MANEUVER  ROUTINE 
G j mb  a i i nr.K  AvmnANCF 

R 002  8 
R 00  29 
r odbo 

K ALGMANU  STEERING 

SYSTEM  TEST  STANDARD  LEAD  INS 

I MU  PERFORMANCE  TESTS  2 

R 003 1 
R0032 
R00  33 

I MU  PERFORMANCE  TESTS  4 
PINBALL  GAMES  BUTTONS  AND  LIGHTS 
R 60 , R62 

R 0034 
R0035 
R 0036 

S-BAND  ANTENNA  FOR  LM 

LEMP20S 

RADAR  LEADIN  ROUTINES 

R0037 

R0038 

R0039 

P20-P25 

L EM P 3 OS 

P 30 , P 37 

R0040 
R 0041 
R0042 

P32-P35,  P72-P75 

GENERAL  LAMBERT  AIMPOINT  GUIDANCE 

KISSING 

R.  0043 
R0044 
R0045 

GROUND  TRACKING  DETERMINATION  PROGRAM  - P21 
P34-P35,  P74-P75 

R 31 

R 0046 
R0047 

P 76 
R 30 
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R0048 

R0049 

R0050 

R0051 

R0052 

R0053 

R 0054 

R0055 

R0056 

R0057 

R0058 

R0059 

R 0060 

R0061 

R 0062 

R0063 

R 0064 

R 0065 

R0066 

R 0067 

R 0068 

R0069 

R0070 

R0071 

R0072 

R 0073 

R 0074 

R0075 

R0076 

R0077 

R0078 

P 0 0 7 9 

R 0080 

R0081 

R 0082 

R 0083 

R0084 

R0085 

R0086 

R0087 

R0088 

R0069 

R 0090 

R 0091 

R0092 

R0093 

R 0094 

R0095 

R0096 

R0097 
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STABLE  ORBIT  - P38-P39 

FLY 

BURN,  BABY,  BURN  — MASTER  IGNITION  ROUTINE 
P 40-P47 

THE  LUNAR  LANDING 
THROTTLE  CONTROL  ROUTINES 
LUNAR  LANDING  GUIDANCE  EQUATIONS 
P 70-P71 
P 12 

ASCENT  GUIDANCE 
S ERVICER 

LANDING  ANALOG  DISPLAYS 
F INDCDUW  - GUIDAP  INTERFACE 

LEMP50S 

P51-P53 

LUNAR  AND  SOLAR  EPHEMER  IDES  SUBROUTINES 

SKIPPER 

DCWN-TELEMETRY  PROGRAM 
INTER-BANK  COMMUNICATION 
I NTERPRETER 

FIXED-FIXED  CONSTANT  POOL 
INTERPRETIVE  CONSTANTS 
SINGLE  PRECISION  SUBROUTINES 
c XECUTIVE 
WAITLIST 

LATITUDE  LONGITUDE  SUBROUTINES 
PLANETARY  INERTIAL  ORIENTATION 
MEASUREMENT  INCORPORATION 
CCNIC  SUBROUTINES 
INTEGRATION  INITIALIZATION 
ORBITAL  INTEGRATION 
INFLIGHT  ALIGNMENT  ROUTINES 
POWERED  FLIGHT  SUBROUTINES 
TIME  OF  FREE  FALL 
AGC  BLOCK  TWO  SELF-CHECK 
-PHASE  TABLE  MAINTENANCE 
RESTARTS  ROUTINE 
I MU  MODE  SWITCHING  ROUTINES 
KEYRUPT,  UPRUPT 
DISPLAY  INTERFACE  ROUTINES 
SERVICE  ROUTINES 
ALARM  AND  ABORT 
UPDATE  PROGRAM 
RTB  OP  CODES 

LMDAP 

T6-RUPT  PROGRAMS 
DAP  INTERFACE  SUBROUTINES 
DAPIDLER  PROGRAM 
P-AXIS  RCS  AUTOPILOT 
Q ,R- AX  I S RCS  AUTOPILOT 
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R0098 
R 0099 
R0100 
R0101 
R0102 


R0103 
R0104 
R0105 
R0106 
R0107 
R0108 
R 01 09 
R0110 
R0111 
R0112 
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TJET  LAW 
KALMAN  FILTER 

TRIM  GIMBAL  CONTROL  SYSTEM 

AOSTASK  AND  AOSJOB 

SPS  BACK-UP  RCS  CONTROL 


SYMBOL  TABLE  LISTING 

UNREFERENCED  SYMBOL  LISTING 

ERASABLE  S EQUALS  CROSS-REFERENCE  TABLE 

SUMMARY  OF  SYMBOL  TABLE  LISTINGS 

MEMORY  TYPE  £,  AVAILABLITY  DISPLAY 

COUNT  TABLE 

PARAGRAPHS  GENERATED  FOR  THIS  ASSEMBLY 
OCTAL  LISTING 
OCCUPIED  LOCATIONS  TABLE 
SLBROS  CALLED  £ PROGRAM  STATUS 
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P0113 

R0114 

R01 15 
R01  lfc 
R0117 
R0118 
R0119 
R 0 1 20 
R 01 2 1 
R0122 
R 01 23 
R0124 
R0125 
R0126 
R0127 
R 01 28 
R0129 
R 0 1 30 
R0131 
R0132 
R0133 
R0134 
R 0 1 35 
R0136 
R0L37 
R0138 
R0139 
R0140 
R0141 
R 0142 
R0143 
R0144 
R0145 
R0146 
RO 147 
R 01 48 
R 0 1 49 
R0150 
RO  15  1 
RO  152 
RO  1 53 
R 0 1 54 


ASSEMBLY  AND  OPERATION  INFORMATION 
VERB  LIST  FOR  LUMINARY 
REGULAR  VERBS 

00  NOT  IN  USE 

01  DISPLAY  OCTAL  COMP  1 IN  R1 

02  DISPLAY  OCTAL  COMP  2 IN  R1 

03  DISPLAY  OCTAL  COMP  3 IN  Rl 

04  DISPLAY  OCTAL  COMP  1,2  IN  R1,R2 

05  DISPLAY  OCTAL  COMP  1,2,3  IN  R1,R2,R3 

06  DISPLAY  DECIMAL  IN  Rl  OR  R1,R2  OR  Ri.R2.R3 

07  DISPLAY  DP  DECIMAL  IN  Rl,R2  (TEST  ONLY) 

08 
09 

I C 

II  MONITOR  OCTAL  COMP  1 IN  Rl 

12  MONITOR  OCTAL  COMP  2 IN  Rl 

13  MONITOR  OCTAL  COMP  3- 1 N Rl 

14  MONITOR  OCTAL  COMP  1,2  IN  R1.R2 

15  MONITOR  OCTAL  COMP  1,2,3  IN  Rl,R2,R3 

16  MONITOR  DECIMAL  IN  Rl  OR  R 1 , R2  OR  R1,R2,R3 

17  MONITOR  DP  DECIMAL  IN  R1,R2  (TEST  ONLY) 

18 
15 
20 

21  LOAD  COMPONENT  1 INTO  Rl 

22  LOAD  COMPONENT  2 INTO  R2 

23  LOAD  COMPONENT  3 INTO  R3 

24  LOAD  COMPONENT  1,2  INTO  R1,R2 

25  LOAD  COMPONENT  1,2,3  INTO  R1,R2,R3 

26 

27  DISPLAY  FIXED  MEMORY 

28 

29 

30  REQUEST  EXECUT  IVE 

31  REQUEST  WAITLIST 

32  RECYCLE  PROGRAM 

33  PROCEED  WITHOUT  DSKY  INPUTS 

34  TERMINATE  FUNCTION 

35  TEST  LIGHTS 

36  REQUEST  FRESH  START 

37  CHANGE  PROGRAM^  (MAJOR  MODE) 

38 

39 
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P0155 

R0156 

R0157 

R0158 

R0159 

R0160 

R0161 

R0162 

R0163 

R0164 

R0165 

R0166 

R 01 67 

R0168 

R 0 1 6 9 

R0170 

R0171 

R0172 

R 01  73 

R 01 74 

R0175 

R0176 

R0177 

R0 178 

R 01 79 

R0180 

R0181 

R0182 

R0183 

R0184 

R0185 

R0186 

R0187 

R0188 

R 0 1 89 

R0190 

R0191 

R0192 

R 0 1 93 

R 01 94 

RO 195 

R0196 

R0197 

R0198 

R 01 99 

R 0200 

R0201 

R0202 

R0203 
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EXTENDED  VERBS 

40  ZERO  CDU-S 

41  COARSE  ALIGN  CDU-S 

42  FINE  ALIGN  IMU 

43  LOAD  IML-ATT  ERROR  METERS 

44  TERMINATE  RR  CONTINUOUS  DESIGNATE  (V41N72  OPTION  2) 

45 

46 

47  INITIALIZE  AGS  (R47) 

48  REQUEST  DAP  DATA  LOAD  ROUTINE  (R03) 

49  REQUEST  CREW  DEFJNED  MANEUVER  ROUTINE  IR62) 

50  PLEASE  PERFORM 

51 

52  MARK  X-RETICLF 

53  MARK  Y-RETICLE 

54  MARK  X OR  Y-RETICLE 

55  INCREMENT  AGC  TIME  (DECIMAL) 

56  TERMINATE  TRACKING  (P20  + P25) 

57  PERMIT  LANDING  RADAR  UPDATES 

58  INHIBIT  LANOING  RADAR  UPDATES 

59 

60  COMMAND  LR  TO  POSITION  2. 

61  DISPLAY-DAP- FOLLOWING  ATTITUDE  ERRORS. 

62  DISPLAY  TOTAL  ATTITUDE  ERRORS  WITH  RESPECT  TO  NOUN  22. 

63  SAMPLE  RADAR  ONCE  PER  SECOND  (R04). 

64  REQUEST  S-BAND  ANTENNA  ROUTINE  IR05) 

65  DISABLE  U AND  V JET  FIRINGS  DURING  DPS  BURNS. 

66  VEHICLES  ARE  ATTACHED.  MOVE  THIS  VEHICLE  STATE  TO  OTHER  VEHICLE. 

67  DISPLAY  W MATRIX 

68  CAUSES  IMMEDIATE  SWITCHING  FROM  P63  TO  P64. 

69  CAUSE  RESTART 

70  UPDATE  LIFTOFF  T I M F 

71  UNIVERSAL  UPDATE-BLOCK  ADR 

72  UNIVERSAL  UPDATE-SINGLE  ADR 

73  UPDATE  AGC  TIME  (OCTAL) 

74  INITIALIZE  ERASABLE  DUMP  VIA  DOWNLINK 

75  ENABLE  U AND  V JET  FIRINGS  DURING  DPS  BURNS. 

76  MINIMUM  IMPULSE  COMMAND  MODE 

77  RATE  COMMAND  AND  ATTITUDE  HOLD  MODE 

78  LR  SPURIOUS  RFTURN  TEST  START  (R77) 

79  LR  SPURIOUS  RETURN  TEST  STOP 

80  UPDATE  LEM  STATE  VECTOR 

81  UPDATE  CSM  STATE  VECTOR 

82  REQUEST  ORBIT  PARAM  DISPLAY  (R30) 

83  REQUEST  PEND  PARAM  DISPLAY  (R31) 

84 

95  DISPLAY  RR  LOS  AZ  AND  ELEV 
86 
87 
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R 0204  88 

R 020  5 89  REQUEST  RENDEZVOUS  FINAL  ATTITUDE  ROUTINE  (R63) 

R0206  90  REQUEST  RENDEZVOUS  OUT  OF  PLANE  DISPLAY  ROUTINE  (R36I 

R0207  91  DISPLAY  BANK  SUM 

R0208  92  OPERATE  I MU  PERFORMANCE  TEST  (P07) 

R0209  93  ENABLE  Vv  MATRIX  INITIALIZATION 

R0210  94 

R0211  95  NO  UPDATE  OF  EITHER  STATE  VECTOR  ( P20  OR  P22) 

R0212  96  INTERRUPT  INTEGRATION  AND  GO  TO  POO 

R02I3  97  PERFORM  ENGINE  FAIL  PROCEDURE 

R0214  98 

R 02 1 5 99  PLEASE  ENABLE  ENGINE  - 
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P 02 1 6 
R 021 7 
R0218 
R 02 10 
R0220 
R0221 
R0222 
R0223 


R0224 

R0226 

R 0227 

R0228 

R0229 

R0230 

R0231 

R0232 

R0233 

R0234 

R02  35 

R0236 

R0237 

R0238 

R0239 

R0240 

R0242 

R0244 

R0245 

R0246 

R0247 

R0249 

R 02  5 1 

R0252 

R0253 

R 02  54 

R0255 

R0256 

R0258 

R 02  60 

P0261 

R 0262 

R 0263 

R0264 

R0265 

P0267 

R 026  8 

R0269 

R0271 

R0273 
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IN  THE  FOLLOWING  NOUN  LIST  THE  :N0  LOAD:  RESTRICTION  MEANS  THE  NOUN 

CONTAINS  AT  LEAST  ONE  COMPONENT  WHICH  CANNOT  BE  LOADED,  I.E.  OF 

SCALE  TYPE  L (MIN/SEC),  PP  (2  INTEGERS)  OR  TT  (LANDING  RADAR  POSITION). 

IN  THIS  CASE  VERBS  24  AND  25  ARE  NOT  ALLOWED,  BUT  VERBS  21,  22  OR  23 

MAY  BE  USED  TO  LOAD  ANY  OF  THE  NOUN:S  COMPONENTS  WHICH  ARE  NOT  OF  THE 
ABC VE  SCALE  TYPES. 

THE  : DEC  ONLY:  RESTRICTION  MEANS  ONLY  DECIMAL  OPERATION  IS  ALLOWED  ON 
EVERY  COMPONENT  IN  THE  NOUN.  (NOTE  THAT  :N0  LOAD:  IMPLIES  :DEC  ONLY:.) 

NORMAL  NOUNS  COMPONENTS  SCALE  AND  DECIMAL  POINT  RESTRICTIONS 


00  NOT  IN  USF 

01  SPECIFY  MACHINE  ADDRESS  (FRACTIONAL)  3C0MP  .XXXXX  FCR  FACH 

02  SPECIFY  MACHINE  ADDRESS  (WHOLE)  3C0MP  XXXXX.  FDR  EACH 

03  SPECIFY  MACHINE  ADORESS  (DEGREES)  3C0MP  XXX. XX  DEG  FOR  EACH 

04  ANGULAR  ERROR /DI FFER ENCE  1C0MP  XXX. XX  DEG 

05  ANGULAR  ERROR /DI FFERENCE  1C0MP  XXX. XX  DEG 

06  OPTION  CODE  3C0MP  OCTAL  ONLY  FOR  EACH 


LOADING  NOUN  07  W 

07  ECADR  CF  WORD 
ONES  FCR  BITS 
1 TO  SET  OR  0 

08  ALARM  DATA 
n<3  aiarm  mnFS 

ILL  SET  OR  RESET  SELECTED 
TO  BE  MODIFIED 
TO  BE  MODIFIED 

BITS  IN  ANY  ERASABLE  REGISTER 
3C0MP  OCTAL  ONLY  FOR  EACH 

TO  RESET  SELECTED  BITS 

3C0MP 

3C0MP 

OCTAL 

OCTAL 

ONLY 

ONLY 

FOR 

FOR 

EACH 

EACH 

10 

CHANNEL  TO  BE 

SPECIFIED 

1 COMP 

OCTAL 

CNL  Y 

11 

TIG  OF  CSI 

3C0MP 

OOXXX. 

HP  S 

DEC  ONLY 

OOOXX . 

MI  N 

MUST  LOAD 

3 

COMPS 

OXX .XX 

SEC 

12 

OPTION  CODE 

2C0MP 

OCTAL 

ONLY 

FOR 

EACH 

IIKFP  AY  PXTFMHFn  V/FRR^  DN11  Y V 

13 

TIG  OF  CDH 

3C0MP 

OOXXX. 

HRS 

DEC  ONLY 

OOOXX. 

MI  N 

MUST  LOAD 

3 

COMPS 

OXX . XX 

SEC 

14 

CHECKL 1ST 

3C0MP 

XXXXX. 

FOR 

EACH 

(USED  BY  EXTENDED  VERBS  ONLY) 

(NOUN  25  IS 

PAST  FO  AFTFR  DISPIAYI 

15 

INCREMENT  MACHINE  ADDRESS 

1 COMP 

OCTAL 

ONLY 

16 

TIME  OF  EVENT 

3C0MP 

OOXXX. 

HRS 

DEC  ONLY 

(USED  BY  EXTENDED  VFRBS  ONLY) 

OOOXX. 

MIN 

MUST  LOAD 

3 

COMPS 

OXX  . XX 

SEC 

17 

SPARE 

18 

ALTO  MANEUVER 

BALL  ANGLES 

3C0MP 

XXX  .XX 

DEG 

FOP 

EACH 

19 

SPARE 

20 

ICCU  ANGLES 

3C0MP 

XXX . XX 

DEG 

FOR 

EACH 

2 1 

P IPAS 

3C0MP 

XXXXX. 

PULSFS  ! 

FOR  EACH 

22 

NEW  IC DU  ANGLES 

3C0MP 

XXX. XX 

DEG 

FOR 

EACH 

23 

SPARE 

24 

DELTA  TIME  FOR  AGC  CLOCK 

3C0MP 

OOXXX . 

HR  S 

DFC  ONLY 

OOOXX. 

M I N 

MUST  LOAD 

3 

COMPS 

OXX .XX 

SEC 
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R0274 

25 

CHECKLIST 

3C0MP 

XXXXX. 

FOR 

EACH 

R0275 

(USED  WITH  PLEASE  PERFORM  ONLY) 

DDTnD  T TV  / n FI  AY-  . RRfLflN 

3C0MP 

OCTAL 

ONLY 

FOR  EACH 

R0276 

R0277 

27 

SELF  TEST  ON/OFF  SWITCH 

1C0MP 

XXX  XX. 

R 02  78 

28 

SPARE 

spar  e 

R0280 

30 

SPARE 

R0281 

31 

SPARE 

32 

T T F ROM  PER  IGEE 

3C0MP 

OOXXX. 

HRS 

DEC  ONLY 

R02R4 

oooxx . 

MI  N 

MUST  LO AO 

3 

COMPS 

R 02  86 

OXX .XX 

SEC 

RO?  P7 

33 

TIME  OF  IGNITION 

3COM  P 

OOXXX. 

HP  S 

DEC  ONLY 

R0289 

oooxx. 

MT  N 

MUST  LOAD 

3 

COMPS 

R 029 1 

OXX. XX 

SEC 

R0292 

34 

TIME  OF  EVENT 

3C0MP 

OOXXX. 

HR  S 

DEC  ONLY 

R0294 

oooxx. 

MIN 

MUST  LOAD 

3 

COMPS 

R0296 

OXX. XX 

SEC 

R0297 

35 

TIKE  FROM  EVENT 

3C0MP 

OOXXX. 

HR  S 

DEC  ONLY 

R0299 

OOOXX. 

MIN 

MUST  LOAD 

3 

COMPS 

R0301 

OXX. XX 

SEC 

r 0 3 0 2 

36 

TIME  OF  AGO  CLOCK 

3C0MP 

OOXXX. 

HP.  S 

DEC  ONLY 

R0304 

oooxx. 

M I N 

MUST  LO AO 

3 

COMPS 

R0306 

OXX . XX 

SEC 

R0307 

37 

TIG  OF  T P I 

3C0MP 

OOXXX. 

HR  S 

DEC  ONLY 

R0309 

OOOXX  . 

M I N 

MUST  LOAD 

3 

COMPS 

R0311 

OXX. XX 

SEC 

R0312 

38 

TIME  OF  STATE  BEING  INTEGRATED 

3C0MP 

OOXXX. 

HP  S 

DEC  ONLY 

R0314 

OOOXX. 

v I N 

MUST  LOAD 

3 

COMPS 

R0316 

OXX . XX 

SEC 

R 0 3 1 7 

39 

SPARE  

GAP 
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P0318 

MIXED  NOUNS 

COMPONENTS 

3C0MP 

R 03  20 
R0322 

VG, 

R0323 

DELTA  V I ACCUMULATED) 

-4-1— 

2C0MP 

R0324 

R0326 

ELEVATION 

R0327 

42 

APOGEE , 

3C0MP 

R0330 

DELTA  V I REQU  IRED ) 

R0331 

43 

LATITUDE , 

3C0MP 

K U j)  J J 

R0334 

ALTITUDE 

R0335 

44 

APOGEE, 

3C0MP 

o FR  1 C3F  F. 

R0338 

TFF 

R0339 

45 

MARKS, 

3 COMP 

R Q341 

TF1  OF  NFXT  BURN- 

R0342 

MGA 

R0343 

46 

AUTOPILOT  CONFIGURATION 

l COMP 

R 0 3 44 

47 

L EM  WE  IGHT t 

2C0MP 

R0346 

CSM  WEIGHT 

R0347 

48 

GIMBAL  PITCH  TRIM, 

2C0MP 

R 0349 

-0  I MRA|  RDM  TRIM 

R 03  50 

49 

DELTA  R, 

2C0MP 

R0352 

DELTA  V, 

P 0 3 ^ 3 

5-0 

S P A R E 

R0354 

51 

S-BAND  ANTENNA  ANGLES  PITCH 

2C0MP 

R0356 

YAW 

R0357 

52 

CENTRAL  ANGLE  OF  ACT  I V E V FH I CL E 

1 COMP 

R0358 

53 

SPARE 

R0359 

54 

RANGE , 

3C0MP 

R0361 

RANGE  RATE, 

R 0362 

THETA 

R0363 

55 

NC.  OF  APSIDAL  CROSSINGS 

3C0MP 

R 0365 

ELEVATION  ANGLE 

R0366 

CENTRAL  ANGLE  OF  PASSIVE  VEHICLE 

R0367 

56 

RR  LOS  AZIMUTH 

2C0MP 

R 0368 

ELEVAT ION 

R0369 

57 

DELTA  R 

ICOMP 

R 037 1 

58 

PERIGEE  ALT  I POST  TP  I ) 

3C0MP 

R 03  73 

DELTA  V TP  I 

R0374 

DELTA  V TPF 

R0375 

59 

DELTA  VELOCITY  LOS 

3C0MP 

R 03  77 

60 

HORIZONTAL  VELOCITY 

3C0MP 

R0379 

ALTITUDE  RATE 

R0380 

COMPUTED  ALTITUDE 

R0381 

61 

TIME  TC  GO  IN  BRAKING  PHASE 

3C0MP 

R0383 

TIME  FROM  IGNITION 

R 03  84 

CROSS  RANGE  DISTANCE 

2021112-01) 


19:02  NOV.  25,1963 


(MA  IN) 


PAGE 


SCALE  AND  DECIMAL  POINT 

XXBXX  MIN/SFC 
XXXX.X  FT/SEC 
XXXX.X  FT/SEC 
XXX. XX  DEG 
XX. XXX  DEG 
XXXX.X  NAUT  MI 
XXXX.X  NAUT  MI 
XXXX.X  FT/SFC 
XXX. XX  DEG 
XXX. XX  DEG 
XXXX.X  NAUT  MI 
XXXX.X  NAUT  MI 
XXXX.X  NAUT  MI 
XXBXX  MIN/SEC 
XXXXX. 

XXBXX  MIN/SEC 
XXX. XX  DEG 
OCTAL  ONLY 
XXXXX.  LBS 
XXXXX.  LBS 
XXX. XX  DEG 
XXX. XX  DEG 
XXXX.X  NAUT  MI 
XXXX.X  FT/SEC 

XXX. XX  DEG 
XXX. XX  DEG 
XXX. XX  DEG 

XXX. XX  NAUT  MI 
XXXX.X  FT/SEC 
XXX. XX  DEG 
XXXXX. 

XXX. XX  DEG 
XXX. XX  DEG 
XXX. XX  DEG 
XXX. XX  DEG 
XXXX.X  NAUT  MI 
XXXX.X  NAUT  MI 
XXXX.X  FT/SEC 
XXXX.X  FT/SEC 
XXXX.X  FT/SEC  FOR  FA. 
XXXX.X  FT/SEC 
XXXX.X  FT/SEC 
XXXXX.  FEET 
XXBXX  MIN/SEC 
XXBXX  MIN/SEC 
XXXX.X  NAUT  MI 


USER' S PAGE  NO.  10  EO 

RESTRICTIONS 
NO  LOAD,  DFC  ONLY 

(FOR  SYSTEM  TEST) 
DEC  ONLY 

DEC  ONLY 

NO  LOAD,  DEC  ONLY 
NO  LOAD,  DEC  ONLY 


DEC  ONLY 
DEC  ONLY 
DFC  ONLY 

DEC  ONLY 

DEC  ONLY 
DEC  ONLY 

DEC  ONLV 
DEC  ONLY 

DEC  ONLY 
DEC  ONLY 


NO  LOAD,  DEC  ONLY 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV . 25,1968  (MAIN)  PAGE  11 


L 

ASSEMBLY  AND  OPERATION  INFORMATION 

USER ' S PAGE  NO.  1 1 

EO 

R0385 

62 

ABSOLUTE  VALUE  OF  VELOCITY 

3C0MP 

XXXX.X 

FT/SEC 

NO  LOAD, 

DEC 

ONLY 

R0387 

TIME  FROM  IGNITION 

XXBXX 

MI N/SEC 

DELTA  V (ACCUMULATED) 

XXXX.X 

FT /SEC 

R0389 

63 

ABSOLUTE  VALUE  OF  VELOCITY 

3C0MP 

XXXX.X 

FT/SEC 

DEC  ONLY 

R0391 

ALTITUDE  RATE 

XXXX.X 

FT /SEC. 

r 0392 

COMPUTED  ALTITUDE 

xxxxx. 

FEET 

R0393 

64 

TIME  LEFT  FDR  R E DE S I GNA T I ON-  LPD  ANGLE 

3C0MP 

XXBXX 

NO  LOAD, 

DEC 

ONLY 

R0395 

ALTITUDE  RATE 

XXXX.X 

FT  /SEC 

R039^ 

COMPUTED  ALTITUDE 

xxxxx. 

FEET 

R0397 

65 

SAMPLED  AGC  T IME 

3C0MP 

ooxxx. 

HRS 

DEC  ONLY 

R0399 

( FETCHED  IN  INTERRUPT) 

oooxx. 

MIN 

MUST  LOAD 

1 3 I 

COMPS 

R 040  1 

OXX .XX 

SEC 

R0402 

66 

LR  RANGE 

2C0MP 

xxxxx. 

FFET 

NO  LOAD, 

DEC 

ONLY 

R0404 

POS  IT I ON 

+OOOOX 

r 040  ^ 

67 

L R VX 

3C0MP 

XXXXX. 

FT /SEC 

R0406 

LRVY 

xxxxx. 

FT /SEC 

R0407 

LRVZ 

xxxxx. 

FT/SEC 

R 0 4 0 P» 

68 

SLANT  RANGE  TO  LANDING  SITE 

3C0MP 

XXXX.X 

NAUT  MI 

NO  LOAD, 

DEC 

ONLY 

R0410 

TIME  TC  GO  IN  BRAKING  PHASE 

XXBXX 

M I N/SEC 

R0411 

LR  ALTITUDE  - COMPUTED  ALTITUDE 

xxxxx. 

FEET 

R 04 1 ? 

69 

SPAR  F 

R0413 

70 

AOT  DETENT  CODE/STAR  CODE 

3C0MP 

OCTAL 

ONLY  FOR 

EACH 

R0414 

71 

ACT  DETENT  CODE/STAR  CODE 

3C0MP 

OCTAL 

ONLY  FOR 

EACH 

R041  5 

72 

RR  360  - TRUNNION  ANGLE 

2C0MP 

XXX. XX 

DEG 

R0416 

SHAFT  ANGLE 

XXX  .XX 

DE  G 

R 04 1 7 

73 

NEW  RR  360  - TRUNNION  ANGLE 

2C0MP 

XXX  .XX 

DEG 

R041  8 

SHAFT  ANGLE 

XXX. XX 

DEG 

R0419 

74 

TIME  FROM  IGNITION 

3C0MP 

XXBXX 

M I N/SEC 

NO  LOAD, 

DEC 

ONLY 

R0421 

YAW  AFTER  VEHICLE  RISE 

XXX  .XX 

DEG 

R0422- 

PITCH  AFTER  VEHICLE  -RISE 

XXX .XX 

DEG 

R 0423 

75 

DELTA  ALTITUDE  CDH 

3C0MP 

XXXX.X 

NAUT  MI 

NO  LOAD, 

DEC 

ONLY 

R0425 

DELTA  TIME  (CDH-CSI  OR  TPI-CDH) 

XXBXX 

MI N/SEC 

R 0426 

Q-ELTA  TIME  (TPI-CDH  OR  TPI-NOMTPI) 

XXB  XX 

MI N/SFC 

R0427 

76 

CROSS-RANGE  DISTANCE 

2C0MP 

XXXX.X 

N A UT  MI 

DEC  ONLY 

R0429 

A POC YNTH ION  ALTITUDE 

XXXX.X 

NAUT  MI 

R0430 

77 

TIME  TC  ENGINE  CUTOFF . _ 

2C0MP 

XXBXX 

M I N/SFC 

NO  LOAD, 

DEC 

ONLY 

R0432 

VELOCITY  NORMAL  TO  CSM  PLANE 

XXXX.X 

FT /SEC 

R0433 

78 

RR  RANGE 

2C0MP 

XXX .XX 

NAUT  MI 

R0434 

RANGE  RATE 

xxxxx. 

FT/SEC 

R0435 

79 

CURSOR  ANGLE 

3C0MP 

XXX . XX 

DEG 

DEC  ONLY 

R0437 

SPIRAL  ANGLE 

XXX. XX 

DEG 

R 0438 

POSITION  CODE 

xxxxx. 

R 0439 

80 

DATA  INDICATOR, 

2C0MP 

xxxxx. 

R 0440 

OMEGA 

XXX .XX 

DEG 

R0441 

81 

DELTA  V (LV) 

3C0MP 

XXXX.X 

FT /SEC  1 

FOR  FACH 

DEC  ONLY 

GAP:  ASSEMBLE  REVISION  069  Of  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25,1963  (MAIN)  PAGE  12 
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P0443 

82 

DELTA  V (LV) 

3C0MP 

XXXX.X 

FT/SEC  FOR 

EACH 

DEC 

ONLY 

R0445 

83 

DELTA  V (BODY) 

3C0MP 

XXXX. X 

FT/SEC  FOR 

EACH 

DEC 

ONLY 

3C0MP 

XXXX.X 

FT/SEC  FOR 

FACH 

DEC 

ONLY 

R 0449 

85 

V G (BODY) 

3C0MP 

XXXX.X 

FT /SEC  FOR 

EACH 

DEC 

ONLY 

R0451 

86 

VG  (LV) 

3C0MP 

XXXX.X 

FT/SEC  FOR 

EACH 

DEC 

ONLY 

hatkiip  n p t t r c ins  azimuth 

2C0MP 

XXX. XX 

DEG 

R 0454 

ELEVATION 

XXX .XX 

DEG 

R0455 

88 

HALF  UNIT  SUN  OR  PLANET  VECTOR 

3C0MP 

. XXXXX 

FOR  EACH 

DEC 

ONLY 

1 A Kin  MARK  1 AT T TUDF 

3C0MP 

XX. XXX 

DEG 

DEC 

ONLY 

R0459 

LONG  ITUOE/2 

XX. XXX 

DEC 

R0460 

ALT  I TUDE 

XXX. XX 

NAUT  MI 

qQ 

Y 

3C0MP 

XXX .XX 

NM 

DEC 

ONL  Y 

R0463 

Y DOT 

XXXX.X 

FP  S 

R0464 

PSI 

XXX . XX 

DEG 

R 046S 

g i 

SPARE  . 

R 0466 

92 

SPARE 

R0467 

93 

DELTA  GYRO  ANGLES 

3C0MP 

XX. XXX 

DEG  FOR  EACH 

R 0468 

94 

SPAR  E 

R 0469 

95 

SPARE 

R 0470 

96 

SPARE 

p 047 1 

9 7 

SYSTEM  test  inputs 

3C0MP 

XXXXX. 

FOP  EACH 

R0472 

98 

SYSTEM  TEST  RESULTS  AND  INPUTS 

3C0MP 

XXXXX. 

R0473 

. XXXXX 

R0474 

XXXXX. 

R0475 

99 

RMS  IN  POSITION 

2C0MP 

XXX. XX 

NAUT  MI 

DEC 

ONLY 

R0477 

RMS  IN  VELOCI TY 

XXXX.X 

FT  /SEC 

GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25-,1968  (MAIN) 
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P0478  REGISTERS  AND  SCALING  FOR  NORMAL  NOUNS 
R 0479  NOUN  REGISTER  SCALE  TYPF 


R 0480 

00 

NOT  IN 

USE 

C DP  r T F 

v Annp  pcs..  _ 

8 

R 04  82 

02 

SPECIFY  ADDRESS 

c 

R0483 

03 

SPECIFY  ADDRESS 

D 

0SPTFM1 

H 

R0485 

C5 

DSPTEMl 

H 

R0486 

06 

0PTI0N1 

A 

p 0487 

0 7 

X RFC 

A 

R0488 

08 

ALMCADR 

A 

R0489 

09 

FAILREG 

A 

r n^on 

10 

<;PFrrFY  fhannfi 

A 

R 049 1 

11 

TCS  I 

K 

R0492 

12 

OPTIONX 

A 

R 0493 

13 

T CDH 

K 

R0494 

14 

DSPTEMX 

C 

R0495 

15 

INCREMENT  ADDRESS 

A 

R0496 

16 

DSPTFMX 

C 

R0497 

17 

SPARE 

R0498 

18 

FDA  IX 

D 

a 0499 

1 9 

SPARE  - 

R 0500 

20 

C DUX 

D 

R0501 

21 

P IDAX 

C 

roso? 

? ? 

THETAD 

D 

R0503 

23 

SPARE 

R0504 

24 

DSPTEM2  +1 

K 

R0505 

2 5 

DSPTEMl 

C 

R0506 

26 

DSPTEMl 

A 

R0507 

27 

SMODE 

C 

R0508 

28 

SPARE 

R0509 

29 

SPARE 

R0510 

30 

SPARE 

R0511 

31 

SPARE 

R0512 

32 

-TPER 

K 

R0513 

33 

T IG 

K 

R 0 5 1 4 

34 

DSPTEMl 

K 

R0515 

35 

T TOGO 

K 

R0516 

36 

T I ME 2 

K 

R0517 

37 

T TP  I 

K 

R0518 

38 

TFT 

K 

R 05 1 9 

39 

SPARE 

PAGE  13 
EO 
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P0520 

REGISTERS  AND 

SCALING  FOR  MIXED 

NOUNS 

cfAi  F TYPF 

R052 1 

NCUN 

R0522 

40 

1 

T TOGO 

L 

v on  t sp 

s 

R0524 

3 

DVTOTAL 

S 

R0525 

41 

1 

DSPTFMl 

D 

2 

0SPTFM1  +] 

E _____  __  _ _ 

R0527 

42 

i 

H APO 

Q 

R0528 

2 

HPER 

9 

3 

V GO  T S P 

S - - _ ___  ___ 

R 05  30 

43 

1 

LAT 

H 

R0531 

2 

LONG 

H 

^ |_T 

g - . _______  

R0533 

44 

1 

HAPOX 

0 

R0534 

2 

HPERX 

0 

3 

T FP 

L 

R0536 

45 

i 

T RKMKC  NT 

c 

R0537 

2 

T TOGO 

L 

Rf)S?fl 

3 

+ MGA 

H 

R0539 

46 

i 

D APDATR1 

A 

R0540 

47 

i 

LEMMASS 

KK 

R 054 1 

2 

CSMMASS 

KK 

R0542 

48 

1 

P ITTIME 

NN 

R0543 

2 

ROLLTIME 

NN 

R 0544 

49 

1 

R 2201 SP 

9 

R 0545 

2 

R 220  ISP  +2 

S 

R0546 

50 

SPARE 

R0^47 

S 1 

l 

ALPHA SB 

H 

R0548 

2 

BETASB 

H 

R0549 

52 

1 

ACTCENT 

H 

ROSSO 

53 

SPAR  F 

R0551 

54 

i 

RANGE 

JJ 

R 05  52 

2 

RRATE 

S 

R 0553 

3 

- R THETA 

H 

R0554 

55 

1 

NN 

C 

R0555 

2 

ELEV 

H 

R 0556 

3 

C ENTANG 

H 

R0557 

56 

1 

RR-AZ 

H 

P 05  5 8 

2 

RR-ELEV 

H 

R0559 

57 

1 

OELTAR 

Q 

R0560 

58 

1 

POSTTPI 

Q 

R 05  6 1 

2 

DELVTPI 

S 

R0562 

3 

DELVTPF 

s 

R0563 

59 

1 

OVLOS 

s 

R0564 

2 

DVLOS  +2 

s 

R0565 

3 

DVLOS  +4 

s 

R0566 

60 

1 

V HOR  I Z 

s 

R0567 

2 

HDOTD  ISP 

s 

GAP:  ASSEMBLE  REVISION  069  Of 
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R0568 

3 

H CALC 

RR 

R0569 

61 

1 

TTFOI SP 

L 

T TOGO 

L 

K05  tv 

R0571 

3 

OUTOFPLN 

QQ 

R0572 

62 

1 

ABVEL 

S 

T TOGO 

L 

KUD  f 3 

R0574 

3 

DVTOTAL 

s 

R0575 

63 

1 

ABVEL 

s 

2 

HDOTD  ISP 

s 

R0577 

3 

HCALC 

RR 

R0578 

64 

1 

FUNNYDSP 

PP 

P 0^7Q 

2 

HDOTD ISP 

S 

R0580 

3 

HCALC 

RR 

R 05  8 1 

65 

1 

SAMPTIME 

K 

2 

SAMPT I ME 

K 

R0583 

3 

SAMPTIME 

K 

R0584 

66 

1 

R STACK  +6 

W 

2 

f HA ISJNF 1 3^ 

TT 

R0586 

67 

i 

R STACK 

X 

R0587 

2 

R STACK  + 2 

Y 

90^88 

3 

9 STACK  +4 

z 

R0589 

68 

i 

R ANGEDSP 

QQ 

R 05  90 

2 

TTFOISP 

L 

P V^Q  1 

3 

DELTAH 

RR 

R 0592 

69 

SPARE 

R 05  93 

70 

1 

AOTCODF 

A 

£0594 

2 

AOTCODE  +1 

A 

R0595 

3 

AOTCOOE  +2 

A 

R0596 

71 

1 

AOTCODE 

A 

R0597 

2 

AOTCODE  +1 

A 

R0598 

3 

AOTCODE  +2 

A 

R0599 

72 

1 

C OUT 

WW 

R0600 

2 

C DUS 

D 

R0601 

73 

1 

TANG 

WW 

R0602 

2 

TANG  +1 

0 

R 0603 

74 

1 

T TOGO 

1 

R0604 

2 

YAW 

H 

R0605 

3 

P ITCH 

H 

p 0606 

75 

1 

D I FF ALT 

Q 

R 0607 

2 

T 1T0T2 

L 

P0608 

3 

T2T0T3 

L 

R0609 

76 

l 

X RANGE 

Q - 

R 06 1 0 

2 

A PO 

Q 

R0611 

77 

1 

T TOGO 

L 

R0612 

2 

Y DOT 

S 

R0613 

78 

1 

R STACK 

u 

R0614 

2 

R STACK  +2 

V 

R0615 

79 

J 

-CURSOR 

D 

R0616 

2 

SPIRAL 

D 

R0617 

3 

POSCODE 

C 

19:02  NOV.  25,1968 


( MA  IN  ) 


PAGE 


15 


USER ' S PAGE  NO.  15  FO 


GAP: 

L 

R 06 1 8 
R0619 
R062G 
R0621 
R0622 
R0623 
R0624 
R0625 
R0626 
R0627 
R0628 
R0629 
R0630 
R0631 
R0632 
R0633 
R 0634 
R 063-5 
R0636 
R0637 
R0638 
R0639 
R0640 
R064-1 
R0642 
R0643 
R0644 
R0645 
R0646 
R0647 
R0648 
R 064  9 
R0650 
R0651 
R0652 
R0653 
R0654 
R0655 
R0656 
R 0657 
R 06  5 8 
R 06  59 
R0660 
R0661 
R0662 
R 0663 
R 0664 
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80 

1 

DATAGOOD 

c 

2 

OMEGAO 

H 

l 

n fi  vi  vr 

s 

2 

DELVLVC  +2 

S 

3 

DELVLVC  +4 

s 

n fi  v/i  vr 

s 

2 

DELVLVC  +2 

s 

3 

DELVLVC  +4 

s 

n Pi  V T Ml  J 

5 

2 

DELVIMU  +2 

s 

3 

DELVIMU  +4 

s 

n EL V^V 

s 

2 

DELVOV  +2 

s 

3 

DELVOV  +4 

s 

8 5 

l 

VG^nn  y 

s 

2 

VGBODY  +2 

s 

3 

VGBODY  +4 

s 

86 

1 

DELVLVC 

s 

2 

DELVLVC  +2 

s 

3 

DELVLVC  +4 

s 

87 

1 

AZ 

D 

2 

EL 

D 

88 

1 

STARAD 

B 

2 

s TARAD  +2 

3 

3 

STARAD  <-4 

B 

89 

1 

L ANDLAT 

G 

2 

l A NDI  DNG  - 

G 

3 

L ANDALT 

jj 

90 

1 

RANGE 

jj 

2 

R RATE 

s 

3 

RTHETA 

H 

91 

SPARE 

92 

S PARE 

93 

i 

OGC 

G 

2 

OGC  +2 

G 

3- 

OGC  +4 

G 

94 

SPARE 

95 

SPARE 

96 

SPARE 

97 

1 

DSPTEM1 

C 

2 

DSPTEM1  +1 

C 

3 

D-SPTFM 1 +2 

c 

98 

i 

DSPTEM2 

C 

2 

DSPTEM2  +1 

B 

3 

DSPTFM2  -1-2 

c 

99 

i 

WWPOS 

XX 

2 

WWVEL 

YY 
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P0665 

NOUN  SCALES  AND  FORMATS 

PR  FT  I SJ  ON 

R 0666 
R 0667 

— l-irc 

UNITS 

OECIMAL  FORMAT 

AGC  FORMAT 

R066  8 

R 0669 
R0670 

-A- 

OCTAL 

XXXXX 

SP 

OCTAL 

R0671 

R0672 

-B- 

FR ACT  ION AL 

. XXXXX 

(MAX  .99996) 

SP 

-14 

BIT  1 = 2 UNITS 

R0674 

-c- 

XXXXX, 

SP 

BIT  1 = 1 UNIT 

R0676 

(MAX  16333.) 

1 5 

R0678 
R0679 
p n/SRO 

C DU  OEGREES 

XXX. XX  DEGREES 
(MAX  359.99) 

SP 

BIT  1 = 360/2  DEGREES 

(USES  15  BITS  FOR  MAGNI- 
TUDE AND  2-S  COMP. ) 

R 06  8 1 
R 0 A ftp 

-E- 

ELE  VAT  ION  DEGREES- 

XX. XXX  DEGREES 

SP 

14 

BIT  1 = 90/2  DEGREES 

R0683 

(MAX  89.999) 

R-06^4 

r 

1 A 

R0685 
R06  86 

DEGREES  (180) 

XXX. XX  DEGREES 
(MAX  179.99) 

SP 

BIT  1 = 180/2  DEGREES 

R0687 
R0688 
R06  89 

-G- 

DP  DEGREES (90 ) 

XX. XXX  DEGREES 

DP 

BIT  1 OF  LON  REGISTER  = 
28 

R0690 

R0691 

R0692 

-H- 

DP  DEGREES  (360) 

XXX. XX  DEGREES 

DP 

360/2  DEGREES 

BIT  1 OF  LOW  REGISTER  = 

R 0693 
R0694 

(MAX  359.99) 

28 

360/2  DEGREFS 
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P0695 

R0696 

-K- 

T I ME  (HR,  MIN,  SEC) 

OOXXX.  HR 
non xx-  mtn 

DP 

BIT  1 OF 

-2  - - 

LOW  REGISTER  = 

R 0698 
R0699 

OXX.XX  SEC 
(DECIMAL  ONLY. 
PA*  MJN  rOMP-99 

10  SEC 

R07  OG 
R0701 
R0702 

MAX  SEC  COMP=  59 . 99 
MAX  CAP AC I TY=  74  5 HRS 
39  MINS 

R0704 
R 07  05 

14.55  SECS 
WHEN  LOADING,  ALL  3 
FOM  PDNF  NTS  MUST  BE 

* 

R0707 

SUPPLIED. ) 

R0709 

R0710 

TIME  (MIN/SEC) 

XXBXX  MIN/SEC 
(B  IS  A BLANK 
pnsiTTON,  DFClMAi 

DP 

BIT  l OF 
-2 

10  SEC 

LOW  REGISTER  = 

R0712 

R0713 

P0714 

ONLY,  DISPLAY  OP 
MONITOR  ONLY.  CANNOT 
RF  1 OADFO. 

R 07 1 5 
R0716 
P 071  7 

MAX  MIN  C0MP=59 
MAX  SEC  COMP=  59 
UAIIIFS  GRFATFR  THAN 

R07I8 
R0719 
R 0720 

59  MIN  59  SEC 
ARE  DISPLAYED  AS 
59  MIN  59  SEC . ) 

R0721 

R0722 

-M- 

T I N E (SEC) 

XXX. XX  SEC 

SP 

BIT  1 = 

-2 

10  S FC 

R0723 

(MAX  163.83) 

R 0724 

— M— 

R0725 

R0726 

R0727 

T I ME ( SEC ) DP 

XXX. XX  SEC 

OP 

BIT  1 OF 
-2 

1 0 SEC 

LOW  REGISTER  = 

R0728 

R0729 

-P- 

VELOCITY  2 

XXX X X . FFET/SEC 

DP 

RTT  1 DF 

HIGH  RFOTSTFR  = 

R0730 

R0731 

(MAX  41994.) 

-7 

2 METERS/CENTI-SFC 

R0732 
R07  33 
P0734 

-Q- 

POSITION  4 

XXXX.X  NAUTICAL  MILES 

DP 

BIT  1 OF 
2 MFTFRS 

LOW  REGISTER  = 

R0735 
R0736 - 

-S- 

V-ELOC  I TY  3 

XXXX.X  FT/SEC 

DP 

R I T 1 OF 

HIGH  REGISTER  = 

R0737 

R0738 

-7 

2 METERS/CENTI-SEC 

PAGE 

EO 


2 


METERS/CENTI-SEC 
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R0739 

R0740 

-T- 

G 

XXX. XX  G 
(May  169 .ST) 

SP 

-2 

BIT  1 = 10 

G 

R0741 
R 0742 

-U- 

n CKipc  7 \/n  I 1 Q 

XXX. XX 

NAUT  MI 

DP 

LOW  ORDER  BIT 

CF  LOW  ORDER 

R 0743 
R0744 

K CfllUt  L VU  U o 

RACAR  RANGE 

WORD  = 9.38  FEET 

R0745 

R0746 

R0747 

— v— 

RENDEZVOUS 
RACAR  RANGE  RATE 

XXXXX. 

FEET/SEC 

DP 

LOW  ORDER  BIT 
WORD  = -.6278 

CF  LOW  ORDER 
FEET/SEC 

R0748 
R 0749 
R 0750 

— to— 

LANDING  RADAR 
AL  T I TUDE 

XXXXX. 

FEET 

DP 

LOW  ORDER  BIT 
WORD  = 1 .079 

OF  LOW  ORDER 
FEET 

R0751 

R0752 

-X- 

LANDING  RACAR 

-XXX.XX. 

FEET/SEC 

DP 

LOW  ORDER  BIT 

OF  LOW  ORDER 

R0753 

VELX 

WORD  = -.6443 

FEFT/SEC 

R0754 

- Y — 

R0755 
R 0756 

LANDING  RACAR 
VELY 

XXXXX. 

FEFT/SEC 

DP 

LOW  ORDER  BIT 
WORD  = 1.212 

OF  LOW  ORDER 
FEET/SEC 

R0757 
R0758 
R 0759 

-Z- 

LANDING  RACAR 
VEL  Z 

XXXXX. 

FEET/S  FC 

DP 

LOW  ORDER  BIT 
WORD  = .8668 

OF  LOW  ORDER 
FEET/SEC 

R0760 

R0761 

-AA- 

I NI T I AL  / F I NAL 

XXXXX. 

FEET 

DP 

LOW  ORDER  BIT 

OF  LOW  ORDER 

R 0762 

ALTITUDE 

WORD  = 2.345 

FEET 

R0763 

g-g— 

R 0764 
R 0765 

ALTITUDE  PATE 

XXXXX.  FEET/SEC 
(MAX  08191.  ) 

SP 

LOW  ORDER  BIT 
FFET/SEC 

= .5 

R0766 
R 0767 
R0768 

-CC- 

FORWARD/LATERAL 
VELOC ITY 

XXXXX.  FEET/SEC 
(MAX  09126.) 

SP 

LOW  ORDER  BIT 
FEET/SEC 

= .5571 

R0769 

R0770 

-CC- 

ROTATION  A L HAND 

XXXXX. 

DEG/SEC 

SP 

FRACTIONAL  PART  OF  PI  RAD 

R0771 

R0772 

CCNTRCLLER  ANGULAR 
RATES 

(MAX  00044.) 

4 SEC 

R0773 

R0774 

R0775 

-EE- 

OPTICAL  TRACKER 
AZIMUTH  ANGLE 

XXX . XX 

DEG. 

DP 

LOW  ORDER  BIT  OF  LOW  ORDER 
1 5 

R0776 

WORD  = 360/2 

DEGRFES 

USER'S  PAGF  NO 
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R0777 

R0778 

- JJ- 

P0SITI0N5 

XXX. XX  NAUT  MI 

DP 

BIT  1 OF  LOW  REGISTER  = 
2 METERS 

R07  80 
R0781 

-KK- 
WE  IGHT2 

XXXXX.  LBS 

SP 

16 

FRACTIONAL  PART  OF  2 KG 

R 0782 
R0783 

-NN- 

TRIM  DEGREES  2 

XXX. XX  DEG 
(MAX  032.76) 

SP 

BIT  1 = . 0 1 SEC (TIME) 

R0785 

R0786 

R0787 

R0788 

-PP- 

+ XXB  YY 

DP 

BIT  1 OF  HIGH  RFGISTER  = 

(B  IS  A BLANK 
POSITION.  DECIMAL 
0N(  Y t D I SPI  AY  OR 

1 UNIT  OF  XX 
BIT  1 OF  LOW  REGISTER  = 
1 UNIT  OF  YY 

R0790 

R0791 

R0792 

MONITOR  ONLY.  CANNOT 
BE  LOADED. ) 

(MAX  99B99) 

(EACH  REGISTER  MUST 
CONTAIN  A POSITIVE  INTEGER 
LESS  THAN  100) 

R 0793 
r Q7Q4- 

-QC- 

PPS  T T T ON  7 

XXXX.X  NAUT  MI 

DP 

BIT  1 OF  LOW  REGISTER  = 

R0795 

R0796 

(MAX  9058.9) 

-4 

2 METERS 

R0797 
R0798 
R 0799 

“ RR 

COMPUTED  ALTITUDE 

XXXXX.  FEET 

DP 

BIT  1 OF  LOW  REGISTER  = 
-4 

R0800 

2 METERS 

R QftOl 

— ss— 

R 0802 
R0803 

DP  DEGREES 

XXXX.X  DEGREES 

DP 

BIT  1 OF  HIGH  REGISTER  = 
1 DEGREE 

R0804 
P 0805 
R080G 

-TT- 

LANDING  RADAR 
POSITION 

+0000X 

( DEC IMAL  ONLY . 

CHANNEL  33, BIT  6=N0T  POSIT.  1 
G HAN  NF 1 33. BIT  7=N0T  POSIT.  2 

R 0807 
R 08  08 
R 0809 

DISPLAY  OR  MONITOR 
ONLY.  CANNOT  BE 
LOADED. ) 

X ■ 
X : 

= 1 FOR  LP.  POSI  TION  1 
= 2 FOR  LR  POSITION  2 

P.0810 

R0811 

— v»  w — 

360— CCU  DEGREES 

XXX. XX  DEGREES 

SP 

15 

BIT  1 = 360  - (360/2  ) 

R 08  1 2 
R 08 1 3 
R0814 

(MAX  359.99) 

DEGREES 

(USES  15  BITS  FOR  MAGNI- 
TUDE AND  2-S  COMP . ) 

R0815 

R0816 

-XX- 

POSITION  9 

XXX. XX  NAUT  MI 

DP 

BIT  1 OF  LOW  REGISTER  = 

R0817 
R 08 1 8 

(MAX  283.09) 

-9 

2 METERS 

GAP  : 
L 

ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LOMINARY 
ASSEMBLY  AND  OPERATION  INFORMATION 

BY  NASA  20211  12-  011 

19:02  NOV.  23,1968 
USER'S  PAGE 

(MAIM) 
NO.  21 

P AGt 
EO 

^1 

R0819 

R0820 

onooi 

-YY- 

VELOCITY  A XXXX.X  FEET/SEC 

{MAX  328.0) 

DP  FRACTIONAL  PART  OF 
METERS/CENT1-S  EC 

KUo^l 

R0822 

THAT-S  ALL  ON  THE  NOUNS. 

GAP  : 

L 

P0823 

R0824 

R0825 

R 0826 
R0827 
R0828 
R 0829 
R0830 
R0831 
R0832 
R0833 
R 0834 
R 083  5 
R 0836 
R0838 
R 0839 
R0840 
R 0841 
R 0842 
R 0843 
R 0844 
R0845 
R0  846 
R0847 
R0848 
R 0849 
R 08  50 
R0851 
R 0852 
R 0853 
R0854 
R 08  55 
R0856 
R0857 
R 08  58 
R 0859 
R0860 
R 0862 
R0863 
R0864 
R0865 
R0866 
R 036  7 
R0868 
R0869 
R 0 8 7 0 
R 087  1 
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ALARM  COCES  FOR  LUMINARY 

*60  COLUMN 

CODE 

* TYPE 

SET  BY 

00105  **  ACTMARK  SYSTEM  IN  USE 

001C7  MORE  THAN  5 MARK  PAIRS  AOT MARK 

00111  MARK  MISSING  AOTMARK 

00112  MARK  OR  MARK  REJECT  NOT  BEING  ACCEPTED  AOTMARK 

00113  NO  INBITS  AOTMARK 

00114  MARK  MADE  BUT  NOT  DESIRED  AOTMARK 

00115  NO  MARKS  IN  LAST  PAIR  TO  REJECT  AOTMARK 

002C6  ZERO  ENCODE  NOT  ALLOWED  WITH  COARSE  ALIGN  I MU  MODE  SWITCHING 

002C6  + GIMBAL  LOCK. 

0C2C7  ISS  TURNON  REQUEST  NOT  PRESENT  FOR  90  SEC  T4RUPT 

00210  I MU  NOT  OPERATING  I MU  MODE  SWITCH,  IMU-2,  R02,  P51,  P57 

00211  CCA RS E ALIGN  ERROR  I MU  MODE  SWITCH 

00212  PIPA  FAIL  BUT  P I PA  IS  NOT  BEING  USED  I MU  MODE  SWITCH, T4RPT 

00213  IMU  NOT  OPERATING  WITH  TURN-ON  REQUEST  T4RUPT 

00214  PROGRAM  USING  IMU  WHEN  TURNED  OFF  T4RUPT 

00217  BAD  RETURN  FROM  IMUSTALL  P51,P52,P57 

00220  IMU  NOT  ALIGNED  - NO  REF SMM AT  R02.R47 

0G4C1  DESIRED  GIMBAL  ANGLE  YIELDS  GIMBAL  LOCK  INF  ALIGN,  IMU-2, 

FINDC9UW 

00402  F IN  DC DU W NOT  CONTROLLING  ATTITUDE  FINDCDUW 

00404  TWO  STARS  NOT  AVAILABLE  IN  ANY  DFTENT  R59,  LUNAR  SURFACE 

00405  TWO  STARS  NOT  AVAILABLE  P52 

00421  W-MATRIX  OVERFLOW  INTEGRV 

0C501  P RADAR  ANTENNA  OUT  OF  LIMITS  R23 

00502  BAD  RADAR  GIMBAL  ANGLE  INPUT  V4IN72 

00503  P RADAR  ANTENNA  DESIGNATE  FAIL  R21 , NON-P  IN  V41N72 

00510  RADAR  AUTO  DESCRETE  NOT  PRESENT  R25 

00511  LR  NOT  IN  POSITION  2 OR  REPOSITIONING  SERVICER 

00514  P RR  GOES  OUT  OF  AUTO  MODE  WHILE  IN  USE  P20 

00515  RR  CDU  FAIL  DISCRETE  PRESENT  R25 

00520  RADAR  RUPT  NOT  EXPECTED  AT  THIS  TIME  RADAR  READ 

00521  COULD  NOT  READ  RADAR  P20 

00522  LANDING  RADAR  POSITION  CHANGE  RADAR  READ 

00523  P LR  ANTENNA  DIDN'T  ACHIEVE  POSITION  2 SERVICER,  V60  (NON-P  IN  V60) 

00525  P DELTA  THETA  GREATER  THAN  3 DEGREES  R 22 

00526  P RANGE  GREATER  THAN  400  NAUT.  MILES  P20.P22 

00527  P LCS  NOT  IN  MODE  II  COVERAGE  WHILE  ON  R21,R24 

LUNAR  SURFACE 

OP  VEHICLE  MANEUVER  REQUIRED  R24  (20) 

00600  IMAGINARY  ROOTS  ON  FIRST  ITERATION  P32,  P72 

00601  PERIGEE  ALTITUDE  CSI  LT  PMIN1  P32,P7 2, 

00602  PERIGEE  ALTITUDE  CDH  LT  PMIN2  P32.P72, 

00603  CSI  TO  CDH  TIME  LT  TMIN12  o 32 , P72 , P 33 , P 73 

00604  CDH  TO  TPI  TIME  LT  TMIN23  P32,P72, 
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R0872 

OR  COI 

R0873 

00605 

R0874 

00606 

R0875 

006  11 

R0876 

00701 

R0877 

00777 

R0878 

01102 

R0879 

01103 

R Ofl  flO 

01104 

TV  UO  Uu 

R0881 

01105 

R0882 

011C6 

R0883 

01107 

R0884 

R0885 

01201 

R 0886 

01202 

R 08  87 

01203 

R0888 

01204 

R0889 

R0890 

0 1206 

R 089 1 

012C6 

R0892 

0 1207 

R0893 

0 1210 

R 0894 

01211 

R0895 

013  01- 

R 0896 

01302 

R0897 

01406 

R0898 

0 1407 

R 0899 

R 08995 

R 0900 

01410- 

R 090 1 

01412 

R 0902 

01501 

R0903 

01501 

R 0904 

01502 

R0905 

01520 

R0906 

01600 

R0907 

01601 

R0908 

01601 

R0909 

01703 

R 09  1 0 

017C6 

R0911 

R0912 

02000 

R 09 1 3 

02001 

R0914 

02002 

R0915 

02003 

R 09 1 6 

02C04 

R0917 

03777 

R0918 

04777 

R0919 

07777 

R0920 

10777 
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MPUTEC  COH  TIME  GREATER  THAN  INPUT  TPI  TIME 
NUMBER  OF  ITERATIONS  EXCEEDS  LOOP  MAXIMUM 
DV  EXCEEDS  MAXIMUM 
NC  TIG  FOR  GIVEN  ELEV  ANGLE 
ILLEGAL  OPTION  CODE  SELECTED  ( 504  ONLY) 
PIPA  FAIL  CAUSED  THE  ISS  WARNING 
AGC  SELF  TEST  ERROR 
**  UNUSED  CCS  BRANCH  EXECUTED 

* DELAY  ROUTINE  BUSY 
DOWNLINK  TOO  FAST 
UPLINK  TOO  FAST 

PHASE  TABLE  FAILURE.  ASSUME 
ERASABLE  MEMORY  IS  SUSPECT. 

* EXECUTIVE  OVERFLOW-NO  VAC  AREAS 

* EXECUTIVE  OVERF  L CW-NO  CORE  SETS 

* WAITLIST  OVERFLOW-TOO  MANY  TASKS 

**  WAITLIST,  VARDELAY,  FIXDELAY,  OR  LONGCALL 
CALLED  WITH  ZERO  OR  NEGATIVE  DELTA-TIME 
**  SECOND  JOB  ATTEMPTS  TO  GO  TO  SLEEP 
VIA  KYBC  AND  DISPLAY  PROGRAM 

* NC  VAC  AREAS  FOR  MARKS 

* TWO  PROGRAMS  USING  DEVICE  AT  SAME  TIME 

* ILLEGAL  INTERRUPT  OF  EXTENDED  VERB 
ARCSIN-ARCCOS  ARGUMENT  TOO  LARGE 

**  SORT  CALLED  WITH  NEGATIVE  ARGUMENT 
**  BAD  RETURN  FROM  ROOTPSRS 

VG  INCREASING  (DELTA-V  ACCUMULATED 
.C-T.  90  DEGREES  AWAY  FROM  DESIRED  THRUST 
VECTOR. ) 

UNINTEJNT  IONAL  -OVERFLOW  IN  GUI  DANCE 
DESCENT  IGNALG  NOT  CONVERGING 
**  KEYBOARD  AND  DISPLAY  ALARM  DURING 
INTERNAL  U SF ( N V SUB ). ABORT 
**  ILLEGAL  FLASHING  DISPLAY 

V37  REQUEST  NOT  PERMITTED  AT  THIS  TIME 
OVERFLOW  IN  DRIFT  TEST 
BAD  IMU  TORQUE 

IGNITION  TIME  SLIPPED 

INCORRECT  PROGRAM  REQUESTED  FOR  VEHICLE 
CONFIGURATION 


* DAP  STILL  IN  PROGRESS  AT  NEXT  TIMES  RUPT 
JET  FAILURES  HAVE  DISABLED  Y-Z  TFANS. 

JET  FAILURES  HAVE  DISABLED  X TRANSLATION 

JET  FAILURES  HAVE  DISABLFD  P-ROTATION 

JET  FAILURES  HAVE  OISABLFO  U-V  ROTATION 

I CDU  FAIL  CAUSED  THE  ISS  WARNING 

I CDU  , PIPA  FAILS  CAUSED  THE  ISS  WARNING 

IMU  FAIL  CAUSED  THE  ISS  WARNING 

IMU  , PIPA  FAILS  CAUSED  THE  ISS  WARNING 


P32 , P 72 
P32.P72, 

P34 * P74 
P57 

T4RUPT 

SELF  CHECK 

ABORT 

EXEC 

TAR  UPT 

T4RUPT 

RESTART 

RESTART 

EXEC 

EXEC 

WAITLIST 

WAITLIST  ROUTINES 
PINBALL 
AOTMARK 

MODE  SWITCHING 

AOTMARK 

INTERPRETER 

INTERPRET  EP 

LANDING  GUIDANCE  EQS. 

S40. 8 

S40 . 8 

S40.8 

DESCENT  GUIDANCE  EQS. 
P 63 

PINBALL 

GOPL AY 
V37 
IMU  4 

OPT  PRE  ALIGN  CALIB 
IMU  4 (LEM) 

MIDTOAVE 

P40 , P42 

DAP 

DAP 

DAP 

DAP 

DAP 

T4PUPT 

T4RUPT 

T4RUPT 

T4RUPT 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


19:02  NOV.  25,1963 


( MA  IN  ) 


PAGE  -24 


L 

R0921 
R 0922 
R0923 

R0924 

R0925 

R0926 
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13777  IMU  , I C DU  FAILS  CAUSED  THE  ISS  WARNING  T4RUPT 
14777  IMU, ICDU  ,PIPA  FAILS  CAUSED  THE  ISSWNING  T4RUPT 

* INDICATES  AN  A30RT  CODE  THAT  RESULTS  IN  A SOFTWARE  RESTART. 

**  INDICATES  A MORE  SERIOUS  ABORT  CODE  THAT  RESULTS  IN  THE 
PROGRAM  GOING  TO  ROO. 


P INDICATES  A PRIORITY  ALARM. 


R0927 


ALL  OTHERS  ARE  NON-ABORTIVE 
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P 092  8 

CHECKLIST  COOES  FOR  LUMINARY 

#9  COLUMN 

R09^9 

R0931 

R1C0DE 

ACTION  TO  BE  EFFECTED 

PROGRAM 

R0933 

00C13 

KEY  IN 

NORMAL  OR  GYRO  TORQUE  COARSE  ALIGN 

P 52 

R 0935 

0CC14 

KEY  IN 

FINE  ALIGN  OPTION 

R51,P63,P57 

CELESTIAL  BODY  ACQUISITION 

R51.P51 

R 0939 

00062 

SWITCH 

AGC  POWER  DOWN 

P 06 

R 0941 

0C201 

SWITCH 

RR  MODE  TO  AUTOMATIC 

P 20 , P22  » R 04 

00203 

SWITCH 

GUID  CONTROL  TO  GNC,  MODE  TO  AUTO... 

°1?,P42,P71 

R 0945 

ALSO  THR  CONT  TO  AUTO 

P40,P63,P70 

R 094  7 

00205 

PERFORM 

MANUAL  ACQUISITION  OF  PR 

R 23 

R 094  9 

0 0500 

SWITCH 

LR  ANTENNA  TO  POSITION  1 

P63 

R 09  5 1 

R0952 

SWITCH  DENOTES  CHANGE  POSITION  OF  A CONSOLE  SWITCH 

R0953 

PERFORM  DENOTES  START  OR  END  OF  A TASK 

R0954 

KEY  IN  DENOTES  KEY  IN  OF  DATA  THRU  THE  DSKY 
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P0955  OPTION  CODES  FOR  LUMINARY 

R0956  TEE  SPECIFIED  OPTION  CODES  WILL  BE  FLASHED  IN  COMPONENT  R1  IN 

R0957  CONJUNCT  ION  WITH  V04N06  OR  V04N12  (FOR  EXTENDED  VERBS)  TO  REQUEST  THE 

R0958  ASTRONAUT  TO  LOAD  INTO  COMPONENT  R2  THE  OPTION  HE  DESIRES. 

R0959  *9  *17  *52 


R 096 1 OPTION  

R0962  CODE  PURPOSE  INPUT  FOR  COMPONENT  2 


R 0964 
R 0966 
R 096  7 

n nQAQ 

OOGOl 

00002 

SPEC IFY 

SP  EC  IFY 
S P EC IFY 

l MU  ORIEN 

VEHICLE 
T RACK  I NG 

TAT  I ON 
ATT  I TUDE 

KU7O7 

R 0971 

U u vu  v 

00004 

SPEC  IFY 

RADAR 

R0973 

00CC5 

SPEC  IFY 

SOR  PHASE 

R0975 

00006 

SPEC  IFY 

RR  COARSE 

ALIGN  OPTION 

R0977 

00C10 

SPEC  IFY 

A LIGNMENT 

MODE 

R0979 

a nqftd 

n rm  1 ? 

<;PFf  IFY 

nSM  flRFUT 

OPT  ION 

P 0982 

1=PREF  2=N0M  3=REFSMMAT 
4=L AND  SITE 
1 = TH  IS  2=0THER 
l=PREF£RRED  -2  = OTHER 
1 =RR  2=LR 
1 = F I R ST  2 = S EC  OND 
1 = L0CK0N  2=C0NT I N UCUS  DESIG. 
0 = ANY  TIME  1 =P  E F S MMAT  +G 
2=TW0  BODIES  3 = 0N  E BODY  + G 
1=N0  ORBIT  CHANGE  2=CHANGE 
ORBIT  TO  PASS  OVER  LM 
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*11  *25  COLUMN 


PROGRAM ( S) 

APPLICABILITY 

PS? 

A Ll_ 

P 2 1 , R30 

ALL 

R63 

ALL 

R04 

SUNDANCE  + 

LUMINARY 

P33 

COLOSSUS  + 

LUMINARY 

V41N72 

SUNDANCE  + 

LUMI  NARY 

p 57 

LUMINARY 

P22 

LUMI NARY 
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L 

TAGS 

FOR  RELATIVE 

SETLOC  AND  BLANK 

BANK  CARDS 

USER'S  PAGE  NO. 

1 

EO 

0001 

REF 

1 

COUNT 

BANK  SUM 

R0002 

MODULE  1 

CONTAINS  BANKS  0 

THROUGH  5 

0003 

4000 

BLOCK 

02 

0004 

4000 

RADARFF 

EQUALS 

r»n  n ^ 

4000 

FFT  AG l 

EQUALS 

UUU  j 
0006 

4000 

FFT AG2 

EQUALS 

0007 

4000 

FFTAG3 

EQUALS 

0008 

4000 

FFTAG4 

EQUALS 

0009 

4000 

FFT  AG  7 

EQUALS 

0010 

4000 

FFT  AGS 

EQUALS 

0011 

4000 

FFTAG9 

EQUALS 

0012 

4000 

FFT  AGIO 

EQUALS 

0013 

4000 

FFT  AG 1 1 

EQUALS 

0014 

4000 

FFTAG12 

EQUALS 

0015 

4000 

FFTAG13 

EQUALS 

0016 

9 

WORDS  LEFT 

5766  05766  0 

BNKSUM 

02 

0016  5767  05767  1 


UUi  l 
0018 

6000 

FFTAG5 

EQUALS 

0019 

6 000 

FFTAG6 

EQUALS 

0070 

18  WORDS  LEFT 

7755 

07755  1 

BNKSUM  03 

0020 

7756 

07756  1 

0021 

00,2000 

BANK 

00 

0022 

00,2000 

DLAYJOB  EQUALS 

0023 

3 WORDS  LEFT 

00 ,3774 

03774  0 

BNKSUM 

00 

0023 

00, 3775 

03775  1 

0024 

0025 

0026 

01,2000 

01,2000 

01,2000 

RESTART 
LOADDAP 1 

BANK 

EQUALS 

EQUALS 

01 

0027 

0027 

4 WORDS  LEFT 

01. 3773 

01.3774 

03773  1 

03774  0 

BNKSUM 

01 

0028 

0029 

04,2000 

04,2000 

f<02 

BANK 
EQUAL  S 

04 

0030 

04,2000 

VERB37 

EQUALS 

0031 

04,2000 

PINBALL4 

EQUALS 

0032 

04,2000 

CON ICS1 

EQUALS 

0033 

04,2000 

KEYRUPT 

EQUALS 

0034 

04,2000 

R36LM 

EQUALS 

0035 

04,2000 

UPDATE2 

EQUALS 

0036 

04,2000 

E/PROG 

EQUALS 

0037 

53  WORDS  LEFT 

04,3712 

03712 

0 

BNKSUM 

04 

0037 

04,3713 

03713 

1 

GAP 
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0038  05,2 

0039  05,2 

0040  05,2 

0041  05,2 

0042  05,2 

0043  58  WORDS  LEM^  0-5,3 

0043  05,3 


000 

000 

000 

FRANDRES 

DOWNTELM 

BANK 

EQUALS 

EQUALS 

05 

000 

000 

705 

03705 

0 

A0TMARK2 

EPHEM1 

EQUALS 

EQUALS 

BNKSUM 

05 

706 

03706 

0 

R0044  MODULE  2 CONTAINS  BANKS  6 THROUGh  13 


0045 

0046 

0047 

0048 

0049  50  WORDS  LEFT 
0049 


06,2000 

06,2000 

06,2000 

06,2000 

06.3715  03715  1 

06.3716  03716  1 


— &A-NK 0-6- 

IMUCOMP  EQUALS 
T4RUP  EQUALS 
RCSMQNT  EQUALS- 

BNKSUM  06 


0050 
00  51 

07, 2000 
07,2000 

AOT  MARK  1 

BANK 

EQUALS 

07 

0052 

0053 

25  WORDS  LEFT 

07, 2000 
07, 3746 

03746  1 

MODESW 

EQUALS 

BNKSUM 

07 

0053 

07,3747 

03747  0 

0054 

0055 

10,2000 
10, 2000 

RTBCGDES 

BANK 

EQUALS 

10 

0056 

10,2000 

DISPLAYS 

EQUALS 

0057 

10, 2000 

PHASE  TAB 

EQUAL  S 

0058 

10, 2000 

MIDOGIM 

EQUALS 

0059 

24  ViCRDS  LEFT 

10, 3747 

03747 

0 

RNKSUM 

1C 

0059 

- . - . 

10, 3750 

03750 

0 

0060 

0061 

0062 

0063 

11,2  000 
11,2000 
1 1,2000 
11,2000 

ORBITAL 
0RBITAL1 
INT VEL 

BANK 

EQUALS 

EQUALS 

EQUALS 

11 

0064 

0065 

45  WORDS  LEFT 

11,2000 
11, 3722 

03722  0 

INTPRET2 

EQUALS 

BNKSUM 

1 1 

0065 

11, 3723 

03723  1 

0066 

0067 

0068 
0068 


12,2000 
12, 2000 

12.3741 

12.3742 


CONICS 


BANK  12 
EQUALS 
BNKSUM  12 


30  WORDS  LEFT 


03741  0 

03742  0 


Oil 
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0069 

0070 

13,2000 

13,2000 

13,2000 

LATLONG 

INTINIT 

BANK 

EQUALS 

EQUALS 

13 

UU  f I 

0072 

0073 
nn 

13,2000 

13,2000 

13,2000 

LEMGFOM 

P76L0C 

ORBITAL2 

EQUALS 

EQUALS 

EQUALS 

UU  / H- 

0075 

0075 

22  bORDS  LEFT 

13.3751 

13. 3752 

03751  1 

03752  l 

BNKSUM 

13 

GAP  : 


ASSEMBLE  REVISION  069  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112 


L 

TAGS 

FOP  RELATIVE 

SETL0C  AND 

BLANK  BANK 

CARDS 

P0076 

MODULE  3 

CONTAINS  BANKS  14 

THROUGH  21 

i a. ? non 

BANK 

14- 

0077 

0078 

0079 

— 54- 

uno n c i cct 

14, 2000 
14, 2000 
14,3711 

037 1 1 

0 

P50S1 

STARTAB 

EQUALS 
EQUAL  S 
BNKSUM 

L_4 

0080 

0080 

WUKU  L 1 

14, 3712 

03712 

0 

0081 

0082 

15,2000 
15,2000 
15, 2000 

P50S 

EPHEM 

BANK 

EQUALS 

EQUALS 

15 

o o c 
o o c 

00  CD  0 

2 

WORDS  LEFT 

15.3775 

15.3776 

03775 

03776 

1 

1 

BNKSUM 

15 

0085 

16,2000 
16.20  00 

DAP  SI 

BANK 

EQUALS 

16 

00  86 
0087 
0087 

18 

WORDS  LEFT 

1 U 7 c.  v v v 

16.3755 

16. 3756 

03755 

03756 

0 

0 

BNKSUM 

16 

0088 
nn  r q 

17,2000 

17,2000 

DAPS2 

BANK 
EQUAL  S 

17 

0090 

0090 

12 

WORDS  LEFT 

17, 3763 
17,  3 764 

03763 

03764 

0 

1 

BNKSUM 

17 

0091 

0092 

20,2000 

20,2000 

DAPS3 

BANK 
EQUAL  S 

20 

0093 
00935 

0094 
0094 

77 

WORDS  LEFT 

20,2000 
20, 2000 
20,3662 

03662 

0 

L0ADDAP 

R0DTRAP 

EQUALS 

EQUALS 

BNKSUM 

20 

20, 3663 

03663 

1 

0095 

0096 

0097 

21,2000 
21, 2000 
21,2  000 

0APS4 

F2DPS*21 

BANK 

EQUALS 

FQUALS 

21 

0098 

0099 

0100 

4 

WORDS  LEFT 

21,2000 
21,2000 
21, 3773 

03773 

1 

R10 

Rll 

EQUALS 

EQUALS 

BNKSUM 

21 

0100 

21,3774 

03774 

0 

Oil 
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P0101  MODULE 

0102 

0103 

0104 

0105 

0106 

0107  38  WORDS  LEFT 

0107 


4 CONTAINS  BANKS  22 

22,2000 

22,2000 

22,2000 

22,2000 

22,2000 

22.3731  03731 

22.3732  03732 


THROUGH  27 

BANK  22 
KALCM0N1  EQUALS 
KALCM0N2  EQUALS 
R30LOC  EQUALS 
RENDEZ  EQUALS 
1 BNKSUM  22 

1 


19:02  NOV.  25,1968  (MAIN) 

USER ' S PAGE  NO.  5 


? non 

BANK 

23 

0109 

23,2000 

POWELITE 

EQUALS 

0110 

23,2000 

P0WFLIT1 

EQUALS 

0111 

23,2  000 

INFLIGHT 

EQUALS 

0112 

23,2000 

APOPERI 

EQUAL  S 

0113 

23,2000 

R61 

EQUAL  S 

DI14 

23,2000- 

R62 

EQUALS 

0115 

23,2000 

INTPRET1 

EQUALS 

0116 

23, 2000 

MEASINC 

EQUAL  S 

0117 

23, 2000 

MEAS  INC  1 

EQUALS 

0118 

23,2000 

EXTVB1 

EQUALS 

0119 

44  WORDS  LEFT 

23, 3723 

03723  1 

BNKSUM 

23 

011-9 

23,3724 

03724  0 

7)120 

0121 

0122 

0123 

36  WORDS  LEFT 

- 24,2000 
24, 2000 
24,2000 
24, 3733 

03733  0 

PLANTIN 

P20S 

BANK 

EQUALS 

EQUALS 

BNKSUM 

24 

24 

0123 

24,3734 

03734  1 

0124 

0125 

0126  - 

25,2000 
25, 2000 
-25,2000 

P20S1 

P20S2 

BANK 

EQUALS 

EQUALS 

25 

0127 

0128 
0129 

25,2000 

25,2000 

25,2000 

RADARUPT 

RRLEADIN 

R29S1 

EQUALS 

EQUALS 

EQUALS 

0130 

0130 

7 C WORDS  LEFT 

25. 3671 

25.3672 

03671  1 

03672  1 

BNKSUM 

25 

0131 

0132 

0133 

0134 

0135 
01355  * 

0136 
0136 


45  WORDS  LEFT 


26,2000  BANK  26 

26,2000  P20S3  EQUALS 

26,2000  BAWLANGS  EQUALS 

26,2000  MANUVER  EQUALS 

26,2000  MANUVER l EQUALS 

26,2000  PLANTIN1  EQUALS 

26.3722  03722  0 BNKSUM  26 

26.3723  03723  1 


PAGE 

EO 


GAP 
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(MAIN) 


PAGE  32 


L 

TAGS 

FOR  RELATIVE 

SETLOC  AND 

BLANK  BANK  CARDS 

USER'S  PAGE  NO. 

6 

EO 

0137 

0138 

27,2000 
27,2000 
27, 2009 

TOF-FF 

T0F-FF1 

BANK 
EQUALS 
EQUAL  S 

27 

0139 

0140 

0141 

0142 

27,2000 
27,  2000 
27,2000 

P40S1 
VECPT 
AS ENT  1 

EQUALS 

EQUALS 

0143 

0143 

27 

WORDS  LEFT 

27.3744 

27. 3745 

03744 

03745 

0 

1 

BNKSUM 

27 

GAP 

L 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM 
TAGS  FOR  RELATIVE  SETLOC  AND  BLANK 


LUMINARY  BY  NASA  2021112 
BANK  CAROS 


P0144 


MODULE  5 CONTAINS  BANKS  30  THROUGH  35 


0145 

0146 

0147 

0148 

0149 

0150  25 
0150 


WORCS  LEFT 


30,2000 
30, 2000 
30,2000 
30,2000 
30, 2000 

30.3746  03746  1 

30.3747  03747  0 


BANK  30 
LOWSUPER  EQUALS 
P 1 2 EQUALS 

ASENT  EQUALS 

FCDUW  EQUALS 

BNKSUM  30 


0151 

0152 

0153 

0154 

0155  7 WORDS  LFFT 
0155 


34,2  000 
31,2000 
31,2000 
31,2000 

31.3770 

31. 3771 


03770  1 

03771  0 


FTHROT 
F2DPS*31 
VB6  7 


BANK  31 
EQUALS 
EQUALS 
EQUALS 
BNKSUM  31 


0156 

0157 

32,2000 
32, 2000 

P20S4- 

BANK 

EQUALS 

0158 

32,2000 

F2DPS*32 

EQUALS 

0159 

32,2000 

ABORTS 

EQUALS 

0160 

32,2  000 

LRS22 

EQUALS 

0161 

32,2000 

FLOGSUB 

EQUALS 

0162 

32,2000 

SERV2 

EQUALS 

0163 

32,2000 

R47 

EQUALS 

0164 

9 WORDS  LEFT 

32,3766 

03766  C 

BNKSUM 

0164 

32,3767 

03767  l 

0165 

01 66 

33, 2000 
33, 2000 

SERVICES 

BANK 

EQUALS 

33 

0167 

33,2000 

R29/SERV 

FQUALS 

0168 

18  WORDS  LEFT  33,3755 

03755 

0 

BNKSUM 

33 

0168 

33, 3756 

03  756 

0 

0169 

0170 

0171 

0172 

0173 
01735 

0174  15 
0174 


WORDS  LEFT 


34,2000 

34,2000 

34.2000 

44.2000 

34.2000 
34,2000 

34.3760 

34. 3761 


03760  0 

03761  1 


ST3LE0RB 
P30S1 
CSI/CDH1 
A SC  F I LT 
R12STUFF 


BANK  34 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

EQUALS 

BNKSUM  34 


BANK 

CSI/CDH  EQUALS 


0175 
01  76 


35,2000 

35,2000 


35 


Oil 
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0179 

0180 
0180 
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35,2000  P30S  EQUALS 

35,2000  GLM  EQUALS 

35,2000  P40S2  EQUALS 

33  WORDS  LEFT  35,3736  03736  0 BNKSUM  35 

35,3737  03737  1 
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L 

TAGS 

FOR  RELATIVE 

SETLOC  AND 

BLANK  BANK  CARDS 

P0181 

MODULE  6 

CONTAINS  BANKS  36  THROUGH  43 

ia _ p non 

BANK 

36 

0132 

0183 

0184 
0184 

23 

WORDS  LEFT 

po  , c.  yuu 

36, 2000 

36.3750 

36.3751 

P40S 

03750  0 

03751  1 

EQUALS 

BNKSUM 

36 

ioc- 

p 7 p nnn 

BANK 

37 

0185 

0186 

37,2000 

P05P06 

EQUALS 

0187 

37, 2000 

I MU  2 

EQUALS 

0 1 88 

37,2000 

IMU4 

EQUALS 

0189 

37,2000 

R31 

EQUALS 

0190 

37,2000 

IMUSUPER 

EQUAl  S 

0191 

37, 2000 

SERV1 

EQUALS 

0192 

15  WORDS  LEFT 

37,3760 

03760  0 

BNKSUM 

37 

0192 

37, 3761 

03761  1 

0193  40,2 

0194  40,2 

0195  40,2 

0196  40,2 

0L97-  69  WORDS  LEFT  40,3 

0 L 97  40,3 


000 

000 

P INBALL1 

BANK 

EQUALS 

000 

SELFSUPR 

EQUALS 

000 

PINSUPER 

EQUALS 

672 

03672  1 

BNKSUM 

673 

03673  0 

0198 

0199 

0200 

38  WORDS  LEFT 

41,2000 
41,2000 
41,3  731 

03731 

1 

BANK  41 

PINBALL2  EQUALS 

BNKSUM  41 

0200 

41,3732 

03732 

1 

0201 

0202 

0203 

42,2000 
42,2000 
42, 2000 

S BAND 
P1NBALL3 

BANK 

EQUALS 

EQUALS 

42 

0204 

0204 

9 WORDS  LEFT 

42. 3766 

42.3767 

03766  C 

03767  1 

BNKSUM 

42 

0205 

0206 

43,2000 
43 , 2 OCO 

EXT  VERBS 

BANK 
EQUAL  S 

43 

0207 

43,2000 

SELFCHFC 

EQUAL  S 

0208 

T5-WCRDS  LEFT 

43,  3 760 

03760  0 

BNKSUM 

43 

0208 

43,3761 

03761  l 

Oil 
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L 

TAGS 

FOR 

RELATIVE  SETLOC  AND  BLANK 

BANK  CARDS 

0209 

REF 

1 

23, 2423 

HI6ZER0S 

EQUALS 

ZFROVECS 

0210 

REF 

1 

11,2274 

L06  ZEROS 

EQUALS 

ZERO  VFC 

09  11 

D CC 

1 

23,2421 

HIDPHALF 

EQUALS 

UNI  T X 

Uz:  ± 1 
0212 

K tr 

REF 

I 

1 

1 1, 2272 

LODPHALF 

EQUALS 

XUNIT 

0213 

REF 

1 

23, 2413 

HIDP1/4 

EQUALS 

DP1/4TH 

D CC 

1 

04. 2 757 

L0DP1 /4 

EQUALS 

Dl/4 

0214 

0215 

REF 

1 

2 

LAST 

36  23,2421 

HI  UNI TX 

FOUALS 

UNI  T X 

0216 

REF 

1 

23,2417 

HIUNITY 

EQUALS 

UNITY 

02 1 7 

REF 

23,2415 

HI  UNI TZ 

EQUALS 

UNIT  Z 

0218 

REF 

2 

LAST 

36  11,2272 

LOUNITX 

EQUALS 

XUNIT 

0219 

REF 

1 

11,2270 

LOUNITY 

EQUALS 

YUNI  T 

» FF 

i 

J 1 .2266 

1 0I1NIT7 

EQUALS 

ZUNI  T 

R0221 

0222 

R0223 

REF 

ROPE- 

1 

SPECIFIC 

22,3541 

ASSIGNS  OBVIATING  NEED 

DELRSPL  EQUALS 
TO  CHECK  COMPUTER 

SPLRET 
FL A3  IN 

0225 

REF 

1 

13, 2734 

ATOPTHI S 

EQUALS 

ATOPLEM 

0226 

REF 

1 

13, 2661 

ATOPOTH 

EQUALS 

ATOPCSM 

0221 

REF 

1 

13,3043 

OTHPRFC 

EQUAL  S 

CSMPREC 

0228 

REF 

1 

0174 

MOONTHI S 

EQUALS 

LM3CNFLG 

0229 

REF 

1 

0173 

MOONOTH 

EQUALS 

CMOOMFLG 

0?30 

REF 

1 

1 3,  2 747 

MOVATH I S 

FQUALS 

MOVE  ALEM 

0231 

REF 

1 

11,2305 

RMM 

LODPMAX 

0232 

REF 

1 

11,2307 

RME 

= 

L0DPMAX1 

0233 

REF 

1 

13,3057 

THI SPRFC 

EQUALS 

LEMPREC 

0234 

REF 

2 LAST 

36  23,2415 

THI SAXI  S 

UNIT  Z 

0235 

REF 

1 

23, 2415 

NB1NB2 

EQUALS 

THI SAXIS 

0236 

REF 

1 

5011 

ERASI D 

EQUAL  S 

BITS  2-10 

0237 

REF 

1 

4752 

DEL AYNUM 

EQUALS 

TWO 
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ZERO  VECTOR  ALWAYS  IN  HIGH  MEMORY 
ZERO  VECTOR  ALWAYS  IN  LOW  MEMORY 


2DEC  .25 


2DEC  .5 
2 DEC  0 
2 DEC  0_ 


COL  PGM,  ALSO  CALLED  BY  R30  IN  LUMINARY 
DETERMINING  INTEGRATION  AREA  ENTRIES. 
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L 

PACLOADS 

USER'S  PAGE  NO.  1 EO 

R0001 

£*£***  FORMAT  * 

$ I*### 

MAMET  AC  1 PMr,TH  T VP  F 9? 

( GSC1P  NAME)  PROGRAMS 

SAMPLE  VALUE  / UNITS 

A0004 

A0005 

d nnnA 

I fsjC  RE  PRESENT 

ESTIMATED  LGC  SCALING  SOURCE  OF 

VALUE 

DESCRIPTION 
MORE  DESCRIPTION 

R0007 

A0008 

-MENT  LENGTH 

AND  VALUE 

R0009 

?????  POSSIBLE  TYPES  ????? 

R0010 

R0011 

R0012 

HOW  INITIATED:  P 

U 
n 

= PADLOADED 
= UPLINKED 
= DSKY  (ASTRONAUT) 

R0013 
ROO 14 
ROOTS 

IF  MODIFIED,  HOW:  (I)  = INVARIANT 

( PGM ) = PROGRAM  GENERATED 
IF_)  - FRESH  START  RE  I NI T I AL I Z ED 

R0016 

R0017 

A0018 

<U) 

(D) 

= UPLINKED 
= DSKY  (ASTRONAUT) 

ROO 1 Q 

.f  .V  AMOi  F 

R0020 

A0022 

FREAKGUT  (2D)  P ( I ) 

(F-OMEGA)  P 83 ' S-RENDESVOUS  AVOIDANCE 

(2  MICROGRAMS) 

RESULTANT  QUANTITY  AFTER  LONG  EXPOSURE 

A0023 
R0024 
R0O2  5 

+ 0 1 OCT 

+ 1 1 OCT 

00534  E 3 B-12  (SUN)LITE 

07381  E-4  B-12 

DAWNS 

TO  A 'STATUS  QUO*  PHILOSOPHY 

A0026 

R0027 

** A* * *AA^**** 

A0028 

R0029 

FLGWRD  10  (ID)  P(PGM) 

MANY  PRDORAMR.  HAP-Pn^ 

(00000  FOR  DFSCFNT , 10000  FOR  ASCFNT  ) 

A0031 
A 0032 
A0033 

MUST  BE  SET  TO  ONE  VALUE  OR  OTHER  DEPFNO 
ING  ON  MISSION  PHASE  BECAUSE  APSFLAG  IS 
NOT  INITIALIZED  IN  FRESH  START  AS  ARE 

A0034 

R0035 

A0036 

OCT 

00000 

OTHER  FLAGBITS.  MUST  USE  DSKY  OR  R03 

R0037 

A0039 

F LAGWRD3  (ID)  P(PGM) 

MANY  PROGRAMS 

(10000  FOR  REFSMMAT  GOOD;  00000  FOR  NO 
GOOD)  REFS  MF  LG  IS  NOT  INITIALIZED  BY 

A0040 

R0041 

R0042 

OCT 
OR  OCT 

00000 

10000 

FRFSH  START  AS  OTHER  BITS  ARE. 

A0043 
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R0044  FLAGWPC8  (ID) 

A0046 

A0047 

R0048 

A0049 

P (PGM)  MANY  PROGRAMS  (THERE  ARE  8 POSSIBLE  CONFIGURATIONS) 

C MOON • LMOON*  & SURFFLAG  ARE  NOT  INITIAL 
I ZED  BY  FRESH  START  AS  OTHER  RITS  ARF. 

OCT;  BITS  8,11,12  NEED  TO  BE  SET  AS  YOU  DESIRE 

R0050  H I ASCENT  (ID) 

A0052 

R0053 

A0054 

P(F)  ( H I A SCENT ) DIGITAL  AUTOPILOT  (5000  KG.;  11,100  LBS.) 

INITIAL  STAGED  MASS 

1 DEC  5050  8-16  SUNLITEP.  # 147 

R0055  DKTRAF  (ID) 

A 0057 

A0058 

R0059 

A0060 

P(F)  ( -THETA-MAX-C  ) OAP  STATE  ESTIMATOR  PARAM.  (.14  DEG  SCALED  AT  4.5  DEG  0P.  -510  DEC) 

LEM-CSM  DOCKED,  THRESHOLD  FOP  MEASURE- 
MENT INCORPORATION 

10CT  77001  R55 7 GSOP  SEC  3. 3.2. 3 JUNF68 

R0061  DKCMEGAN  (ID) 

A0063 
R 0064 
A0065 

P ( F ) (N-OMEGA-C)  DAP  STATE  ESTIMATOR  PAR4M.  ( 10  DEC  ) 

LEM-CSM  DOCKED,  RATE  GAIN  CONSTANT 

1CCT  00012  R 55 7 GSOP  SEC  3. 3.2. 3 JUNE68 

R0066  DKKAOSNN  ( ID) 

A0068 

A0069 

R0070 

A0071 

P ( F ) (N-ALPHA-C)  DAP  STATE  ESTIMATOR  PARAM.  ( 60  DEC  ) 

LEM-CSM  DOCKED,  ACCELERATION  GAIN 

CONSTANT 

1 OCT  00074  R 55 7 GSOP  SEC  3. 3.2.3  JUNE68 

R0072  LMTRAP  (ID) 

A0074 

A0075 

R0076 

A0077 

P ( F ) ( -THETA-MAX-L ) DAP  STATE  ESTIMATOR  PARAM.  (.14  DEG  SCALED  AT  4.5  DEG  ) 

LEM-ALONE,  THRESHOLD  FOR  MEASUREMENT 

INCORPORATION 

1 OCT  77001  R 55 7 GSOP  SEC  3. 3.2.3  JUNE68 

R0078  LMC  MEGAN  (ID) 

AOOBO 

R0081 

A0082 

P ( F ) (N-OMEGA-L)  DAP  STATE  ESTIMATOR  PARAM.  ( 0 DEC  ) 

LEM-ALONE,  RATE  GAIN  CONSTANT 

1 OCT  00000  R557  GSOP  SEC  3. 3.2.3  JUNE68 

R0083  LMKAOSN  (ID) 

A0085 

P,  0 0 8 6 

A0087 

P ( F ) (N-ALPHA-L)  DAP  STATE  ESTIMATOR  PARAM.  ( 60  DEC  ) 

LEM-ALONE,  ACCELERATION  GAIN  CONSTANT 

10CT  00074  R55 7 GSOP  SEC  3. 3.2.3  JUNE68 

P 00  88  DKCB  (ID)  P(F)  DAP  ( 1.4  DEGREES  EXPRESSED  IN  RADIANS 


A0090 
A0091 
R0092 
A 0093 

WIDTH  OF  OF  A DB AND  FOR  DOCKED  RCS  AUTO- 
PILOT (PI/DKDB  RADIANS  = DEADBAND) 

1 OCT  00200  LLJM.IJS1A.RY.  ERASABLES 

1 OCT 


00200 


LUMINARY  ERASABLES 
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R 0094 
A 0096 

RCLLT IME 

( ID) 

P ( D > 

( R-TRIM) 
3000 

D.A.P.  AND  R03 

SUNDANCE 

PADLOAD 

( 3000  CENT  I SECONDS  OR  30  SECS.  ) 
TIME  TO  TRIM  DESCENT  Z GIM84L  (ROLL) 

MEMO 

R0097 

A0098 

( p — T R I M I 

n _ a . p . awn 

R03 

( 3000  CEN  T I SECONDS  OR  30  SECS.  ) 

R0099 

A0101 

R0102 

1 DEC 

3000 

SUNDANCE 

PADLOAD 

TIME  TO  TRIM  DESCENT  Z GIMBAL  (POLL) 

MEMO 

R 01 03 1 
Am  9 1 

PCSTQFKP 

( ID) 

P (PGM) 

( POSTORKP ) 

DAP 

ACCUMULATED  JET  TORQUE  ABOUT  +P  AXIS 
SCALED  AT  32  JET-SEC,  OP  ABOUT  2.0  JET- 

RO 10322 
AO  103  24 

1 OCT 

00000 

PCR  616 

MSEC  PER  BIT.  PERMITTED  TO  OVERFLOW. 

R01033 

4010332 

rdi 

NEGTOPKP 

(ID) 

P (PGM) 
1 OCT 

( NEGTORKP ) 
00000 

DAP 

PCR  616 

ACCUMULATED  JFT  TORQUE  ABOUT  -P  AXIS 
SCALED  AS  POSTORKP. 

AO  103  34 
p 0 1 0 3 4 

POSTOPKU 

( ID) 

P (PGM) 
1 OCT 

( PHSTORKU ) 

DAP 

ACCUMULATED  JET  TORQUE  ABOUT  +U  AXIS 

A010342 
R010343 
«ni  m 4.4. 

00000 

PCR  616 

SCALED  AS  POSTORKP. 

R 01 03  5 
A0103  52 

NEGTORKU 

( ID) 

P (PGM) 

( NEGTORKU) 

DAP 

ACCUMULATED  JET  TORQUE  ABOUT  -U  AXIS 
SCALED  AS  POSTORKP. 

R010353 
AO  1 03  54 

1 OCT 

00000 

PCR  616 

P 0 1 036 
AO  1 03  62 
R010363 

POSTORKV 

( ID  ) 

P (PCM) 
1 OCT 

( POSTORKV) 
00000 

DAP 

PCR  616 

ACCUMULATED  JET  TORQUE  ABOUT  +V  AXIS 
SCALED  AS  POSTORKP 

AO  1 03  64 

R0104 

ZCCMT I ME 

( ID) 

P (2  ) 

( TAU-T ) 

P 40  • R - 1 UMAR  1 AM  PING 

( 26  SEC  ) 

A0106 
A0107 
R 01 08 

1 DEC 

2600  C SEC . 

SUNDANCE 

PADLOAD 

TIME  BETWEEN  FNGINE  ON  AND  THROTTLE  UP 
COMMAND  IN  ANY  DPS  BURN 

MEMO 

AO  109 

R01 10 

MASS 

( 2D) 

P (U  ) 

( M ) 

ALL  P40 ' S, 

SFRVTr  FR 

(FULL  LOADED  VALUF  APPROX.  15,043.8  KG.) 

AO  1 1 2 
AO  1 13 
R01 14 

2 DEC 

B-16 

VALUE  FOR  DESCENT  STAGE  WITH  VARYING 
FUEL  LOADS 

A01 1 5 

RO 1 16  PIPASCFX 

( ID) 

P ( I ) 

(SEE  1 ) 

I MU  COMPENSATION 

PARAMFTFRS  ( PARTS  PFR  Mill  ION) 

A0118 
R01 19 

1 OCT 

75155  B-9 

SUNDANCE 

PADLOAD 

SCALE  FACTOR  ERROR  CORRECTION  FACTOR 

MEMO 
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A0120 

D ( T ) 

{ <;pE ? ) 

I MU 

COMPENSATION 

PARAMETERS  ( PARTS  PFR  MILLION) 

R0121 
AO  1 23 
R0124 

r IrflolrT 

1CCT 

77403 

B-9 

SUNDANCE 

SCALE  FACTOR  ERROR  CORRECTION  FACTOR 

PADLOAD  MCMO 

A01  25 

RO 126 

P IPASCFZ 

( 10) 

pm 

( SFE  3 ) 

I MU 

COMPENSATION 

PARAMFTERS  ( PARTS  PEP  MILLION) 

SCALE  FACTOR  ERROR  CORRECTION  FACTOR 

A0128 

R0129 

A0130 

1 OCT 

65532 

B-9 

SUNDANCE 

PADLOAD  MFMO 

R0131 
A0133 
P 01  ^4 

pei asx 

I ID) 

pm 

1 CCT 

(BIAS1 I 
04554 

6-5-  - 

IMU 

COMPENSATION 
SUNDANCE . 

PARAMETERS  (PIPA  PULSES  PER  CSEC  OR  CM  PER 
PIPA  BIASES 

PADLOAD  MEMO 

SEC**2  ) 

A0135 

p / i \ 

(8IAS2 ) 
06433 

I MU 

COMPENS AT  I ON 

PARAMETERS  (PIPA  PULSFS  PFR  CSEC  OR  CM  PER 

SEC**2  ) 

A 01  38 
R0139 

1 CCT 

B-5 

SUNDANCE 

PIPA  BIASES 

PADLOAD  MEMO 

R0141 

P B I AS  Z 

t ID) 

pm 

( B I A S3  ) 

I MU 

COMPENSATION 

PAR A MET  F RS  (PIPA  PULSES  PER  CSEC  OR  CM  PER 
PIPA  BIASES 

SEC**  2 ) 

RO  144 
A0145 

1 OCT 

77220 

B-5 

SUNDANCE 

PADLOAD  MEMO 

R0146 

A0148 

ACI  AX 

( ID  ) 

pm 

( ADI  AX ) 

I MU 

COMPENSATION 

PARAMETERS  ( GYRO  PULSES  PER  PIPA  PULSE) 

( MILLI-EARTH-RATE  UNIT  (MERU)  / 
GYRO  DRIFTS  DUE  TO  ACCELERATION 

GR AV ITY  ) 
ALONG 

A0150 
R0151 
A01  52 

1 OCT 

00436 

B-6 

SUNDANCE 

INPUT  AXIS 

PADLOAD  MEMO 

R0153 

40155 

ADI  AY 

( ID) 

pm 

( ADI  AY ) 

I MU 

COMPENSATION 

PARAMFTERS  ( GYRO  PULSES  PER  PIPA  PULSE) 
(MILLI-EARTH-RATE  UNIT  (MERU)  / 

GRAVITY) 

AO  1 56 
AO  1 5 7 
R01  58 

1 OCT 

76277 

B-6 

SUNDANCE 

GYRO  DRIFTS  DUE  TO  ACC F LER AT I ON 
INPUT  AXIS 

PADLOAD  MEMO 

ALONG 

A 01  59 

R0-1  fy 0 

A n I A 7 

(10) 

p ( T ) 

( A n I A 7 ) 

PAR  AMETFRS  ( GYRO  PUl  SFS  PFR  PTPA  °IJLSF) 

A0162 
A0163 
AO  1 64 

(MILLI-EARTH-RATE  UNIT  (MERU)  / 
GYRO  DRIFTS  DUE  TO  ACCELERATION 
INPUT  AXIS 

GRAVITY) 

ALONG 

R0165 

A0166 

1 OCT 

00064 

B-6 

SUNDANCE 

PADLOAD  MEMO 

RO  1 67 
AO  1 69 

ADSRAX 

( ID) 

P ( I ) 

1 ADSRAX) 

IMU 

COMPENSATION 

PARAMETERS  ( GYRO  PULSES  PER  PIPA  PULSE) 
(MILLI-EARTH-RATE  UNIT  (MERU)  / 

GRAVITY) 
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AO  1 70 
AO  1 7 1 

1 DOT 

00064 

8-6 

SUNDANCE 

PADLOAD  MFMO 

GYRO  DRIFTS  DUE  TO  ACCELERATION  ALONG 
SPIN  REFERENCE  AXIS 

A0173 

L ID) 

P (H 

( ADSRAY ) 

I MU 

COMPENSATION 

PARAMETERS 

( GYRO  PULSES  PER  PIPA  PULSF) 

AO  1 76 
A0177 
A 01  7 8 

( MILLI-EARTH-RATE  UNIT  (MERU)  / GRAVITY) 
GYRO  DRIFTS  DUE  TO  ACCELERATION  ALONG 
SPIN  REFERENCE  AXIS 

R0179 

A0180 

1 OCT 

00116 

B-6 

SUNDANCE 

PADLOAD  MEMO 

R0181 
A0183 
AOl  84 
A0185 
R0186 
A 01  37 

AD  SR  A Z 

( ID) 

P (I) 

( ADSRAZ) 

I MU 

COMPENSATION 

PARAMETERS 

( GYRO  PULSES  PER  PIPA  PULSE) 
(MILLI-EARTH-RATE  UNIT  (MERU)  / GRAVITY) 
GYRO  DRIFTS  DUE  TO  ACCELERATION  ALONG 

1 OCT 

00064 

B-6 

SUNDANCE 

PADLOAD  MFMO 

SPIN  REFERENCE  AXIS 

R0188 
A 01  90 

NBDX 

( ID) 

P ( 1 ) 

(NBDX) 

I MU 

COMPENSATION 

PARAMETERS 

( GYRO  PULSES  PER  CSEC.) 

OR  (MILLI-EARTH-RATE  UNIT  CALLED  'MERU') 

AO  1 9 1 
R0192 
AOl  93 

1 OCT 

77332 

B-5 

SUNDANCE 

PADLOAD  MEMO 

GYRO  BIAS  DRIFTS 

R 01 94 
AOl  96 

NBC  Y 

( ID) 

pm 

( NBDY ) 

I MU 

COMPENSATION 

PARAMETERS 

( GYRO  PULSES  PER  CSEC.) 

OR  (MILLI-EARTH-RATE  UNIT  CALLED  'MERU') 

A 01 97 
R 01 9 8 
A0199 

1 OCT 

7741  5 

B-5 

SUNDANCE 

PADLOAD  MEMO 

GYRO  BIAS  DRIFTS 

R0200 

A0202 

NBCZ 

( ID) 

P (I  ) 

( NBDZ ) 

I MU 

COMPENSATION 

PARAMETERS 

( GYRO  PULSES  PER  CSEC.) 

nR  ( MILLI-FARTH-RATF  UNIT  CALLED  'MER'J') 

A0203 

R0204 

A0205 

1 OCT 

00000 

B-5 

SUNDANCE 

PADLOAD  MEMO 

GYRO  BIAS  DRIFTS 

R0206 
A 0208 

WRENDPOS 

( ID  ) 

P (D-V67) 

(W-RR) 

P20 

- RENDEZVOUS 

NAVIGATION 

(2440  METERS) 

W-MATRIX  INERTIAL  DIAGONAL  ELEMFNT 

A02C9 

R0210 

A0211 

VALUE 

UNCERTAIN 

PRESELECTED  ERROR  TRANSITION 

R0212 
A 02  1 4 

WRENDVEL 

( ID  ) 

P (0-V67) 

(W-RV) 

P20 

- RENDEZVOUS 

NAVIGATION 

( .0244  METERS  PER  CSEC.) 

W-MATRIX  INFRTIAL  DIAGONAL  ELEMFNT 

A0215 

R0216 

A0217 

VALUE 

UNCERTAIN 

PRFSEL  ECTED  ERROR  TRANSITION 

R 02 1 8 

WSHAFT 

( ID) 

P ( I ) 

(W-THFTA) 

P20- 

RENDESVOUS  NAVIGATION 

( 10  MILL IRADIANS ) 
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A0220 
A0221 
R0222 
A022  3 


VALUE  UNCERTAIN 


W-MATRIX  INERTIAL  DIAGONAL  ELEMENT 
SHAFT  PRESELECTED  ERROR  TRANSITION 


R0224  WTRUN 

A0226 

A0227 

R0228 

A0229 


(ID)  Fill  (W-BETA1 


VALUE  UNCERTAIN 


P20-REN0ESV0US  NA  VIGATION  ( 1 0 M l LL I RAO  I ANS  -MR-  ) 

W-MATRIX  INERTIAL  DIAGONAL  ELEMENT 
TRUNNION  PRESELECTED  ERROR  TRANSITION 


R0230  RM AX 
A0232 
R0233 
A 02  3 4 


(10)  PH)  (DELTA-RMAX)  P20-RENDE SVOUS  NAVIGATION 

VALUE  UNCERTAIN 


I 9*26  TIMES  10  TO  4TH  POWER! 

THRESHOLD  LIMIT  FOR  POSITION  CORRECTION 


R0235  VMAX  (ID)  P(I)  (DELTA-VMAX)  P20-R ENDE SVOUS  NAVIGATION  (9.144  TIMES  10  METERS  PER  SECOND) 


T HR  F S HOLD  ITMTT  FOR  VFLQCITY  CORRECTION 

R0238 

A0239 

VALUE 

UNCERTAIN 

R0240 

A0242 

R0243 

SHAFT  VAR 

( ID) 

P (U) 
v Al  IJF 

(VAR-BETA) 

UNCERTAIN 

P22-RENDESVOUS  RADAR 

( 10  TO  6TH  POWER  SQUARE  RADIANS) 

RR  SHAFT  ANGLE  ERROR  VARIANCE 

A0244 

P 0245 

TQIJMV/  AR 

( ln  ) 

P ( U ) 

r V AH  — THFT A ) 

p FNDFSV/nilS  RADAR 

{ 10  Tn  fcTH  PHWFR  SQUARF  RADIANS) 

A0247 

R0248 

A0249 

VALUE 

UNCERTAIN 

RR  TRUNNION  ANGLE  ERROR  VARIANCE 

R0250 
R 02  5 1 

WSUPFPQS 

( ID) 

PID-V67)  (W-LR) 

P 20 ' S-LUNAR  SURFACE  NAVIGAT 

A0252 

A0253 

A0254 

W-MATRIX  INERTIAL  DIAGONAL 
LUNAR  ANALOG  OF  WRENPOS 

ELEMENT 

R02  55 
R 02  56 

WSLRFVEL 

( ID) 

PID-V67)  (W-LV) 

P20' S-LUNAR  SURFACE  NAVIGAT 

A0257 

A0258 

A0259 

W-MATRIX  INERTIAL  DIAGONAL 
LUNAR  ANALOG  OF  WRENVEL 

ELEMENT 

R0260 

A0262 

RANGEVAR 

( 2D) 

P ( I ) 

( VAR-R  ) ) 

P 20  NAVIGATION'S  STATE  VECTOR 

INCORPORATION  ROUTINE 
(1/3  ~ QUANTITY  SQUARFD  OP. 

.11111111  E-4 

A0263 

A0264 

R0265 

2 DEC* 

.111111111  E-4 

B12* GSOP 

RANGE  ERROR  VARIANCE  CORRESPONDING  TO 
A PERCENTAGE  ERROR 

A 02  66 
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R 02  67 
A0269 

RATEVAP 

(2D) 

P ( I ) 

(VAR-V) ) 

P20 

NAVIGATION ' S 

STATE  VECTOR  INCORPORATION  ROUTINE 

(1.3/3  % QUANTITY  SQUARED  OR  1.8777  E-5 
VELOCITY  ERROR  VARIANCE  CORRESPONDING  TO 

A \J  c.  f u 

A0271 

R0272 

A0273 

R0274 

AA77A 

2 DEC 

1.87777  E-5 

B 1 2 

A PERCENTAGE  ERROR 

GSOP 

RVARMI N 

( ID) 

P ( I ) 

(VAR-RMIN ) 

P20 

NAVIGAT ION'S 

STATE  VECTOR  INCORPORATION  ROUTINE 

(80/3  FT  QUANTITY  SQUARED) 

AU*  i o 
A0277 
R0278 

A O?  7Q 

1 DEC 

66.0  B-12 

MFTERS**2 

MIN.  RENDE  SVOUS  RADAR  POSITION  VARIANCE 

GSOP 

H \)c.  1 7 

R 02  80 
a n?  a? 

WARM  IN 

( ID) 

P (I) 

(VAR-VMIN ) 

P20 

NAVIGATION'S 

STATE  VECTOR  INCORPORATION  ROUTINE  (ME TER S/CS EC ) **2 
(1.3  /3  FT  PFR  SEC  QUANTITY  SQUARED) 

H\Jc.  O C. 

A0283 

R0284 

A0285 

DEC 

.17445  E-5  B12 

MINIMUM  VELOCITY  VARIANCE 

GSOP 

R0286 

A02&8 

X789 

( 6D ) 

P (PGM  ) 

(DELTA-BETA, DELTA- 

THFT  A, ZERO)  P20S,  MEAS. I NC0RP2  ( MI L L I RAD  I ANS ) 

7.8.9TH  COMPONENT  NAVIGATION  STATEVECTOR 

A0289 
R0290 
R029 1 

+ 0 
+ ? 

2 DEC 
2 DEC 

0 INITIALLY 
-0-  INITIALLY 

ALSO  SHAFT  + TRUNNION  BIAS  ESTIMATES 

LUMINARY  LISTING 

R0292 

A0293 

+ 4 

2 DEC 

0 ALWAYS 

R0294 

A0296 

A0297 

ATIGINC 

( 2D) 

P (I  ) 

( DELTA— T AU-3 ) 

P35 

( 7 MINUTES  ) 

ACTIVE  VEHICLE  TIME  REQUIRED  TO  PREPARE 
FOR  A TPM  MANEUVER 

R0298 
A 0299 

2 DEC 

42000  B-28 

( CSFC ) 

SUNDANCE 

PADLOAD  MEMO 

R 03  00 
A 0302 
A0303 

PTIGINC 

I 20  ) 

P ( I ) 

( DEL  T A-T  AU-7  ) 

P75 

( 12  MINUTF  S ) 

PASSIVE  VEHICLE  TIME  REQUIRED  TO  PREPARF 
FOR  A TPM  MANEUVER 

R 0304 
A0305 

2 DEC 

72000  B-28 

( C SEC  ) 

SUNDANCE 

PADLOAO  MEMO 

R0306 

A0308 

A0309 

ACT  AZ 

( 3D) 

P ( I ) 

(AZ1,AZ2, AZ3) 

AOT MARK  (ALIGNMENT  OPTICAL  TELESCOPE)  (-60  DEG,  0,  +60  DEG) 

ANGLES  BETWEEN  THE  LM  NAVIGATION  BASE  Z 
AXIS  AND  AOT  LINE  OF  SIGHT  FOR  DETENT  1 , 

A0310 

R0311 

R0312 

+ 0 
+ 1 

OCT 

OGT- 

65252 

0 

SUNDANCE 

2,3.  (AZIMUTH,  3 FORWARD  VIEWING  POSIT.) 

PADLOAD  MEMO 

R0313 

A0314 

+ 2 

OCT 

12525 

R0315 

A0317 

AOTEL 

( 30) 

P (I) 

( EL  1 , EL2, EL3  ) 

AOT MARK  (ALIGNMENT  OPTICAL  TELESCOPE)  (EACH  IS  45  DEGREES) 

ANGLES  BETWEEN  THE  LM  NAVIGATION  BASF 

GAP 
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A 03 1 8 
A0319 
R0320 
R0321 
R0322 
A0323 

P0324 

A0326 

A0327 

R0328 

R0329 

R0330 

A0331 


DUMPCNT 


+ 0 
+ 1 

OCT- 

OCT 

ICO  00 
10000 

SUNDANCE 

+ 2 

OCT 

10000 

( ID) 

pm 

DOWNLI NK 

TELEMETRY 

OCT 

20000  IF 

4 

ERASABLE 

DUMPS 

DESIRED 

OCT- 

10  000  IF 

Z 

COMPLETE 

DUMPS 

DESIRED 

OCT 

04000  IF 

1 

COMPLETE 

ERASABLE  DUMP 

Y-Z  PLANE  f.  AOT  LINE  OF  SIGHT  FOR 
DE TENT  1 , 2 , 3.  (ELEVATION,  3 FORWARD  PCS.) 


PADLOAO  MEMO 


HOLDS  THE  NUMBER  'N'  INDICATING  THAT  A 
DOWNLINK  ERASABLE  DUMP  WILL  SEND  ALL  OF 
ERASABLE  STORAGE  N TIMES  ( N= 1 TO  4) 


LUMINARY 

LISTING 


R0332 

A0334 

A,  Q-}  ^ C, 

AGSK 

( 2D) 

P (U) 

V47IR47)  AGS  INITIALIZATION  ( MINS  ?) 

GROUND  ELAPSED  TIME  OF  LATEST  AGS  CLOCK 
ZFRO 

A0336 

P ( I ) 

( p-OFG ) 

| 1 1 N AR  \ A NO  T NO 

TARGFT  PARAMETERS  ( METERS  ) 

A0339 

RANGE  VECTOR,  BRAKING  PHASE,  HIGHGATE 

R0340 

+ C 

2 DEC* 

+2.92362643 

E + 

3 

B-24  * 

p 0341 

+ 2 

2 DEC* 

+0.00000000 

E + 

0 

B-24  * 23A 

LUMAR  LANDING  PGM 

R0342 

+ 4 

2 DEC* 

-1.00839629 

E + 

4 

B-24  * 

A0343 

R0344 

VBRFG 

( 6D  ) 

P ( I ) 

( V-OFG ) 

LUNAR  LANDING 

TARGET  PARAMETERS  ( METERS  PER  CSEC  ) 

A0346 

VELOCITY  V EC  TOP , BRAKING  PHASE,  HIGHGATE 

R 034-7 

+ 0 

? nFO 

-4.83907728 

F - 

1 

B-10  * 

R0348 

+ 2 

2 DEC* 

+0.00000000 

E + 

0 

B- 10  * 2 3 A 

LUNAR  LANDING  PGM 

R0349 

+4 

2 DEC* 

+1.71785605 

E + 

0 

B-10  * 

A0350 

R0351 

ABRFG 

( 6D  ) 

P ( I ) 

( A-OFG ) 

1UNAR  LANDING 

TARGET  PAR AMFTER  S ( METERS  PER  CSEC  SQUARED  ) HIGHGATE 

A0353 

ACCFLERATI ON  VECTOR,  BRAKING  P HAS  F 

R0354 

+ 0 

2 DEC* 

-5.22722473 

E- 

5 

B+04  * 

R0355 

+ 2 

2 DEC* 

+0.00000000 

E + 

0 

B + 04  * 2 3 A 

LUNAR  LANDING  PGM 

R 03  56 

+ 4 

2 DEC* 

-2.86621213 

E- 

4 

B + 04  * 

A0357 

R 0 3 5 8 

VBRFG- 

I 2D) 

P([) — 

| IJMAR  LAND  [NO 

TARGET  PARAMETERS  ( METERS  PER  CSFC  ) 

A0360 

VELOCITY  SCALAR,  BRAKING  PHASE,  HIGHGATF 

R036L 

2 DEC* 

+3.86517612 

E + 

0 

B-10  * 2 3 A 

LUNAR  LANDING  PGM 

AO  362 

R0363 

ABRFG* 

( 2D) 

P ( I ) 

LUNAR  LANDING 

TARGET  PARAMETERS  ( METERS  PFR  CSEC  SQUARED  ) HIGH  GATE 

A0365 

ACCELERATION  SCALAR,  BRAKING  PHASE 

R0366 

2 DEC* 

- 1. 71972727 

E- 

3 

B + 04  * 2 3 A 

LUNAR  LANDING  PGM 

A0367 


GAP: 
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R0368 

JBRFG* 

( 2D) 

P ( I ) 

( J-OFZG ) 

LUNAR  LANDING 

TARGET  PARAMETERS  ( METERS  PER  CS EC  CUBED  ) 

A0370 

JERK  SCALAR,  BRAKING  PHASE,  HIGHGATE 

2 RFC* 

-2.90216724 

F-  8 

R+18  * 23A 

LUNAR  LANDING  PGM 

A0372 

P ( I ) 

(F-  1 FG ) 

1 il  NAR  1 AND  I MG 

TARGET  PARAMETERS  ( METERS  ) 

A 03  75 

RANGE  VECTOR,  APPROACH  PHASE,  LOWCATF 

R0376 

+ C 

2 DEC* 

+2.35092239 

E+  1 

B-24  * 

R 0377 

+ 2 

2 RFC* 

+0.00000000 

F + 0 

B-24  * 2 3 A 

LUNAR  LANDING  PGM 

R 0378 

+4 

2 DEC* 

-5.28319999 

E-  1 

B-24  * 

A0379 

R0380 

VAPFG 

( 6D ) 

P ( I 3 

(V-1FG) 

LUNAR  LANDING 

TARGET  PARAMETERS  ( METERS  PER  CSEC  ) 

A0382 

VELOCITY  VECTOR,  APPROACH  PHASE,  LOWGATF 

P 0383 

+c 

2 CEC* 

-9.44879999 

E-  3 

B-  10  * 

R 03  84 

+ 2 

2 DEC* 

+0.00000000 

E + 0 

B- 10  * 23A 

LUNAR  LANDNNG  PGM 

R 03  85 

+ 4 

2 DEC* 

+3.96239999 

E-  3 

B-10  * 

A 03  86 

R0387 

AAPFG 

( 6D  ) 

P ( I ) 

( A-1FG ) 

LUNAR  LANDING 

TARGET  PARAMETERS  ( METERS  PER  CSEC  SQUARED  ) LOW  GATE 

A038° 

ACCELERATION  VECTOR,  APPROACH  PHASF 

R0390 

+ 0 

2 DEC* 

+1.52399999 

E-  6 

B + 04  * 

R0391 

+ 2 

2 DEC* 

+0.00000000 

E + 0 

B+04  * 23 A 

LUNAR  LANDING  PGM 

R 0392 

+ 4 

2 DEC* 

_ - 1.98  119999 

E-  5 

B+04  * 

A0393 

R 0394 

V A P F-G# 

{ 2H  > 

P ( I } 

1 11N  AR  1 ANH  I MG 

TARGET  PARAMETERS  ( METERS  PER  CSEC  ) 

A0396 

VELOCITY  SCALAR,  APPROACH  PHASE,  LOWGATF 

R0397 

2 DEC* 

+8.91539999 

E-  3 

B- 10  * 2 3 A 

LUNAR  LANDING  PGM 

A0398 

R0399 

AAPFG* 

( 2D) 

P(I) 

LUNAR  LANDING 

TARGET  PARAMETERS  ( METERS  PER  CSEC  SQUARED  ) LOW  G AT F 

A 0401 

ACCELERATION  SCALAR,  APPROACH  PHASE 

R0402 

2 DEC* 

-1.  18871999 

E-  4 

B + 04  * 2 3 A 

LUNAR  LANDING  PGM 

A0403 

R 0404 

JAPFG* 

( 2D) 

Pin 

( J-1FZG) 

LUNAR  LANDING 

TARGET  PARAMETERS  ( METERS  PER  CSEC  CUBED  ) 

A0406 

JERK  SCALAR,  APPROACH  PHASE,  LOWGATF 

R 0407 

2 DEC* 

+ 8. 3724902  3 

E-  8 

B+18  * 23A 

LUNAR  LANDING  PGM 

A0408 

R0409 

VIGN 

( 2D ) 

P ( I) 

(V-IGG) 

LUNAR  LANDING 

TARGET  PARAMETERS  (16.99  METERS  PER  SECOND  ) 

A0411 

DESIRED  SPEED  FOR  IGNITION 

R0412 

2 DEC* 

+1.69952182 

E + 1 

B-10  * 23A 

LUNAR  LANDING  PGM 

A0413 

R0414 

RIGNX 

(2D) 

P ( I) 

(P-IGXG) 

LUNAR  LANDING 

TARGFT  PARAMETERS  ( 40127  METERS  ) 

A0416 

OESIRED  X-COMPONENT  IN  GUIDANCE  COORDIN- 

A0417 

R0418 


ATES  FOR  IGNITION  ("ALTITUDE") 


2 DEC* 


-4.09432231  F + 4 B-24  * 


23A  LUNAR  LANDING  PGM 
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A0419 

R0420  RIGNZ 

A0422 

A0423 

R0424 

A0425 


120)  phi 


2 DEC* 


(R-IGZG) 


LUNAR  LANDING  TARGET  PARAMETERS  ( 437347  METERS  ) 

DESIRED  Z-COMPONENT  IN  GUIDANCE  COORDIN- 
ATES FOR  IGNITION  ("GROUND  RANGE") 


-4.40014934  E+  5-  B-24  * 23A  LJNAR  LANDING  PGM 


R0426  KIGNX/84  (2D)  PII)  ( K— X-l— 

A0427 

R0428  2 DEC  -.022499999 

A0429 


LUNAR  LANDING  TARGET  PARAMETERS 

IGNITION  ALGORITHM  SENSITIVITY  COEF. 

23A  LUNAR  LANDING  PGM 


R04^0  KIGNY/B8  (2D)  PII)  (K-Y)  LUNAR  LANDING  TARGET  PARAMETERS 

A0431  IGNITION  ALGORITHM  SENSITIVITY  COEF. 

R 0432  2 DEC  -.174716605  23A  LUNAR  LANOING  PGM 

A0433 


R0434  KIGNV/B4  (2D)  PII)  ( K-V ) 

A0435 

R 0436  2 DEC  -.165939331 

A0437 


LUNAR  LANDING  TARGFT  PARAMETERS 

IGNITION  ALGORITHM  SENSITIVITY  COEF. 

23A  LUNAR  LANDING  PGM 


R0438  LOWCRIT  (10) 

A0440 

A0441 

R 0442 

A0443 


PII) 


lOCT 


04251 


LUNAR  LANDING  TARGET  PARAMETERS  (2.7  LBS/BIT)  (57?  NOMINAL  MAX  THRUST  ) 

LOWER  LIMIT  BFYOND  WHICH  THROTTLE  SET  TO 
EITHER  MAXIMUM  OR  TRUE  VALUE 


R0444  HIGHER  IT  (ID) 

A0446 

A0447 

R0448 

A0449 


PII) 


10CT  04622 


LUNAR  LANDING  TARGET  PARAMETERS  l LBS  / BIT  ; 63?  NOMINAL  MAX  THRUST) 

UPPER  LIMIT  BEYOND  WHICH  THROTTLE  SET  TO 
EITHER  MAXIMUM  OR  TRUE  VALUE  ? 


R0450 

A0452 

TENCAPPR  (ID) 

P ( I ) 



LUNAR  LANDING  TARGFT  PARAMETERS  ( 10  SECONDS  ) 

TIME  CRITERION  FOR  SWITCHING  OUT  OF 

A0453 

APPROACH  PHASE  QUADRATIC  GUIDANCE 

R0454 

DEC 

+ 10  E2  B-17. 

(BOTH  QNEAND  TWC-PHASE) 

A0455 

LUM  MEMO  # 45 

R0456  TENDSRAK  (ID)  P(I) 

A 045  8 

A0459 

R0460  DEC 

R0461  DEC 

A0462 


LUNAR  LANDING  TARGET  PARAMETER  ( 200  SECONDS  ) 

TIME  CRITERION  FOR  SWITCH  TO  APPROACH 
PHASE  ( P64  ) 

+ 20  E2  B- 1 7 (TWO-PHASE  LANDING  MODE)  LUM  MEMO 
+200  E2  B-17  (ONE-PHASE  LANDING  MODE)  #45 


LUNAR  LANDING  TARGET  PARAMETERS  (300  SECONDS  ! 

TIME  CRITERION  FOR  REPOSITIONING  LR 


R0463 

A0465 


RPCRTIME  (ID) 


P (I) 


GAP  ‘ 

L 

A0466 

R0467 

R0468 

A0469 
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DEC 

OEC 


+5  E2  B— 17  (TWO-PHASE  LANDING  MODE)  LUM  MEMO 
+ 300  F 2 B-17  (ONE-PHASE  LANDING  MODE)  #45 


R0470  RPCRTCSW  (ID)  P(2) 

A0472 

A0473 


LUNAR  LANDING  TARGET  PARAMETERS  ( COS  45  DEGREES  SCALED  AT  B+l  ) 

X COMPONENT  OF  X-AXIS  OF  VEHICLE  IN 
STABLE  MEMBER  COORDINATES;  CRITERION  FOR 


R0475 
R0476 
A 04  7 7 

DEC 

DEC 

00000  (TWO-PHASE 

.35356  (ONE-PHASE 

LANDING 

LANDING 

100  E ) 
MODE  ) 

SUNLITER 
# 260 

R0478 

A048n 

LR  ALPHA 

( ID  ) 

P (I  ) 

(ALPHA-1) 

LANDING 

RADAR 

P63-67 

( 6 DEGREES) 

POSITION  1,  X ROTATION 

R0481 

A0482 

1 OCT 

01042 

SUN l ITER  # 

168 

R0483 

A0485 

R0486 

LRBETA  1 

( ID) 

pm 
1 OCT 

(BETA-1 ) 
04210 

LANDING 

RADAR 

P63-67 

( 24  DEGREES) 

POSITION  1 , Y POTATION 

A0487 

R 0488 

| R A)  PHA? 

( ID  ) 

P ( I ) 

{ ALPHA-2 ) 

1 ANDIND  RADAR 

P 63-6 7 

( 6 DEGREES) 

A0490 

R0491 

R0492 

1 OCT 

01042 

SUNLITER  tf 

168 

POSITION  2,  X ROTATION 

R 0493 
A0495 

LRBETA2 

( ID) 

P ( I) 

(BETA-2) 

LANDING 

RADAR 

P6  3-67 

( 0 DEGREES) 

POSITION  2 , Y ROTATION 

R0496 

A0497 

1 OCT 

00000 

SUNLITER  # 

1 68 

R0498 

A0500 

R0501 

LRHMAX 

( ID) 

P ( I ) 

1 DEC- 

(H-M) 

15240 

LANDING 

RADAR 
PCR  H 

P 63—67 
253 

(50,000  FEET) 

ALTITUDE  WEIGHTING  FUNCTION 

PARAMETER 

A0502 

R0503 

LRVMAX 

( ID  ) 

P ( I ) 

( V-M  ) 

LAND  I NG 

RADAR 

P 6 3-67 

(2000  FT  PER  SECOND) 

A0505 

R0506 

A0507 

1 DEC 

.047625 

SUNLITER  # 

1 68 

VELOCITY  WEIGHTING  FUNCTION 

PARAMETER 

R0508 

A0510 

LRWH 

( ID) 

P ( I ) 

(K-H  ) 

LANDING 

RADAR 

P 6 3-67 

(.35  DEC) 

ALTITUDE  WEIGHTING  FUNCTION 

PARAMETER 

R0511 

A0512 

1 DEC 

.35 

PCR  # 

253 

R0513 

LRWVZ 

( ID) 

P ( I ) 

(K-VZ ) 

LANDING 

RADAR 

P 6 3—67 

( .7  DEC  ) 

A0515 


Z VELOCITY  WEIGHTING  FUNCTION  PARAMETER 
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R05 1 6 1 DEC  .7  SUNLITER  # 168 

A0517 


(MAIN) 

12 


PAGE  48 


FO 


R0518  LRVvVY  (ID)  P(I)  (K-VY)  LANDING  RADAR  P63-67  ( .7  DEC  ) 

A0520  Y VELOCITY  WEIGHTING  FUNCTION  PARAMETER 

R0521  l DEC  .7  SUNLITER  H 168 

A0522 


R0523  LRWVX  (ID)  P(I)  (K-VX)  LANDING  RADAR  P63-67  ( .4  DEC  ) 

40525  X VELOCITY  WEIGHTING  FUNCTION  PARAMETER 

R0526  1 DEC  .4  SUNLITER  # 168 

A0527 


R05271  DELOFIX  (2D)  P ( I ) DELQFIX 

A05273 

R05274  2 DEC  15.24  B-24 

A05275 


R12 

PC  R S 639  £248 


50  FEFT 

LR  ALT  DATA  REASONABLENESS  TEST  PARM. 


R0528 

TBRKPNT  (ID) 

P (I  ) 

P70-71 

ASCENT 

(540  SEC  OR  54000 

CSEC  ) 

A0530 

TFI  BRANCH  TIME; 

ABORT  TARGET 

jncr 

SAonn  R— i 7 

PCR  M 

1 33 

A0532 

R0533  ABTVINJ1  (2D) 

A0535 

A0536 

A0537 

R0538 

A0539 


P(I) 

2 DEC  16.91945  B-7 


P70-71  ASCENT  (5551  FEET  / SEC) 

DESIRED  INJECTION  VELOCITY  FOR  TFI 
BRANCH  TIME  LESS  THAN  TBRKPNT ; VELOCITY 
REQUIRED  TO  GAIN  60  NM  APOLUNE  ORBIT 

PCR  # 133 


R0540 
A0542 
AO  543 

ABTVINJ2  (2D) 

P ( I ) 

P70-71 

ASCENT 

(5510  FEET  / SEC) 

DESIRED  INJECTION  VELOCITY  FOR  TFI 
BRANCH  TJMF  GREAT FR  THAN  TBRKPNT;  VEL 

A0544 
R0545 
A 0546 

2 DEC 

16.79448  B-7 

PCR  # 

133 

REQUIRED  TO  GAIN  30  NM  APOLUNE  ORBIT 

R0547  TLAND  (2D)  P ( U ) LUNAR  LANDING  TARGET  PARAMETERS  ( 2DEC  34573411  <CSEC>> 

A0549  BRAKING  PHASE  TIME  OF  LANDING  ON  MOON 

R0550  LAUNCH  DATE  DEPENDENT 

A0551 


R0552  RLS 
A0554 
A0555 
R 0556 
A0557 


( 6D ) 


P(U)  (R-LS)  P 2 0-22  LUNAR  SURFACE  NAVIGATION  (1.7  TIMFS  10**6  METERS;  0 M;  0 METER) 

SAMPLE  VALUE  AT  ODEG  LATITUDE  £ LONGITUD 
LANDING  SITE  VECTOR,  MOON  REFERENCE 

LAUNCH  DATE  DEPENDENT 


R 05 58  504 LM  (6D)  P ( I ) ( L-M ) PLANETARY  INERTIAL  ORIENTATION  ( RADIANS)  8.5  X 10**-5 

A0560  73.9  X 10**-5 
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A0561 
A0562 
A0563 

R0566  LAUNCH  DATE  DEPENDENT 

A0565 

P(U)  ( t-0 ) LUNAR  + SOLAR  EPHE M EP I D ES , P50 S (2.23452  X 10**9  CSEC  ) 

LAUNCH  TIME  - ELAPSED  TIME  BETWEEN  M I D- 
NITE  JULY  1 UNIVERSAL  TIME  PROCEEDING 
LAUNCH  AND  THE  TIME  THAT  THE  COMPUTFR 
CLOCK  WAS  ZEROED  AT  TIME  OF  LAUNCH 

DEC  LAUNCH  DATE  DEPENDENT 

2 DEC 


R0566 
A 05  fa  8 
A 0569 
A0570 
A0571 
R0572 
R0573 
A0574 


TEPEEM 


( 3D) 


*0 
+ 1 


6.6  X 1 0 * *—  5 

MOON  LIBRATION  VECTOR  EXPRESSED  AT  MID- 
POINT OF  MISSION  IN  MOON  FIXFD  COOROIN. 


R0575 

A0577 

A0578 

A0579 

A0580 


A XG 


(2D)  P ( I ) (A-X-TLO) 


PLANETARY  INERTIAL  ORIENTATION 


I 4.65  X 10**-5  RADIANS) 

EARTH  ANALOGS  OF  504LM 

FUNCTION  OF  LAUNCH  TIME  USED  BY  NAVIGA- 
TION PROGRAMS 

SMALL  ANGLE  ABOUT  THF  X-AXIS  OF  BASIC 


R0582 

A0583 

LAUNCH 

DATE  DEPENDENT 

R0584 

A0586 

ADSR7 

- A YO 

( 2D) 

Pill 

( A-Y-TLO) 

PL  ANETARY 

INFPT IAL 

ORIENTATION 

( 2.147  X 10**— 5 RADIANS) 

SEE  AXO  COMMENTS 

SMALL  ANGL c ABOUT  THE  Y AXIS  OF  BASIC 

A0588 

A0589 

A0590 

REFERENCE  COORDINATE  SYSTFM  THAT  DES- 
CRIBES THE  PRECESSION  AND  NUTATION  OF 
THE  EARTH'S  POLAR  AXIS 

R 05  91 
A0592 

LAUNCH 

DATE  DEPENDENT 

R0593 

A0595 

A0596 

A ZC 

( 2D) 

pm 

( A-Z-O) 

PLANETARY 

INERITAL 

ORIENTATION 

( .7753  REVOLUTIONS) 

ANGLE  BETWFEN  THE  X AXIS  OF  BASIC  REF 
COORDINATE  SYSTEM  AND  THF  X AXIS  OF  THE 

A 0597 
A0598 
R 05  99 

LAUNCH 

DATE  DEPENDENT 

EARTH-FIXED  COORDINATE  SYSTFM  AT 
— ,196-  UNIVERSAL  TIME 

A0600 


R0601  REFSMMAT  (18D)  PGM 
A0603 
A 06  04 


R0606 

A S 

V 

+ C 

2 DEC 

+.155540134 

R 06  07 

A 

A 

+ 2 

2 DEC 

- .441 1 1 8568 

R0608 

M 

L- 

+ 4 

2DEC 

-.176696562 

R 0609 

P 

U 

+ 6 

2 DEC 

- .001  190874 

R 06  1 0 

L 

E 

+ 10 

2 DEC 

- .186282563 

-P5 0 • S COMPUTE;  MOST  MAJOR  PGMS.  ( ORTHOGONAL  UNIT  VECTORS  ) SEE  BELOW 

TRANSFORMATION  MATRIX  BETWEEN 

STABLF  MEMBER  COORDINATE  SYSTEM  AND 
INERTIAL  COORDINATE  SYSTFM 


23A  LUNAR  LANDING  PGM 
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R0611 

R0612 

R0613 

E >. 

+ 12 
+ 14 
+ 16 

2 CEC 
2 DEC 
-£GEC 

+.464001495 

- .475  190328 

- . 143920862 

R0614 

A0615 

• • 

+ 20 

2 DEC 

-.058999463 

R0616 

A0618 

A0619 

RRECTCSM 

( 60) 

U (PGM) 

(R-CO) 

INTEGRATION 

INITI AL I Z ATI  ON 

(METERS, 3-29  OR  B-27  IF  EARTH  OR  MOON 
PERMANENT  STATE  VECTORS  AND  TIMES 
RECTIFICATION  POSITION  VECTOR  FOR  CSM 

A0620 

— D OAQ1 

D D cr  T 1 PM 

i AHI 

ii  fpr.Mi 

( R— L— 0 ) 

INTEGRATION 

I N I T I AL  I Z AT  ION 

(METERS, B-29  OR  B-27  IF  EARTH  OR  M00N 

K UO  C.  I 

A0623 

A0624 

A0625 

K r<  CU  1 L tl“ 

\ uu  I 

u \ run I 

PERMANENT  STATE  VECTORS  AND  TIMES 
RECTIFICATION  POSITION  VECTOR  FOR  LEM 

R0626  VRECTCSM  (6D)  U(PGM)  ( V-C-0 ) 

A0628 

A0629 

A0630 


INTEGRATION  INITIALIZATION  (M/CSEC,  3-7  OR  B-5  IF  EARTH  OR  MOON) 

PERMANENT  STATE  VECTORS  AMD  TIMES 
RECTIFICATION  VELOCITY  VECTOR  FOR  CSM 


R0631  VRECTLEM  (60)  U(PGM)  (V-L-O) 

A0633 

A0634 

A0635 


INTEGRATION  INITIALIZATION  (M/CSEC,  3-7  OR  3-5  IF  EARTH  OR  MOON) 

PERMANENT  STATE  VECTORS  AND  TIMES 
RECTIFICATION  VELOCITY  VECTOR  FOP  LFM 


R0636  RCVCSM  ( 6D)  U ( PGM ) (R-C-CON) 

A0638 

A0639 

A0640 

A0641 


INTEGRATION  INITIALIZATION  (METERS, B-29  OR  B-27  IF  EARTH  OR  MOON 

PERMANENT  STATE  VECTORS  AND  TIMES 
CONIC  POSITION  VECTOR  FOR  CSM 
EQUALS  RRECTCSM  IF  TCCSM  =0 


R0642  RCVLEM  (6D)  U(PGM)  (R-L-CON)  INTEGRATION 

A0644 

A 0645 

A0646 

A0647 


INITIALIZATION  (METERS, B-29  OR  B-27  IF  EARTH  OR  MOON 

PERMANENT  STATE  VECTORS  AND  TIMES 
CONIC  POSITION  VECTOR  FOR  LEM 
EQUALS  RP EC TL EM  IF  TCLEM  =0 


R 0648  VC VC SM  ( 6D ) U(PGM)  (V-C-CON)  INTEGRATION  INITIALIZATION  (M/CSEC,  B-7  OR  8-5  IF  EARTH  OR  MOON) 

A0650  PERMANENT  STATE  VECTORS  AND  TIMES 


A0651  CONIC  VELOCITY  VECTOR  FOR  CSM 

A 06 5 2 EQUALS  VRECTCSM  IF  TCCSM  =0 

A0653 


R 06  54  VCVL-EM  ( 6D)  U ( PGM ) 1V-L-C0N)  INTEGRATION  INITIALIZATION  (M/CSEC,  B-7  OR  B-5  IF  EARTH  OP  MOON) 

A 0656  PERMANENT  STATE  VECTORS  AND  TIMES 

A0657  CONIC  VELOCITY  VECTOR  FOR  LFM 


A0658  FQUALS  VRECTLEM  IF  TCLEM  =0 

A0659 
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R 066  0 
A0662 

DELTACSM 

( 6D ) 

P (U) 

(DELTA-C) 

A0664 

R0665 

6 DEC 

0 

R0667 

DELTALEM 

(60) 

P (U) 

(DELTA-L ) 

A0670 
A0671 
R 0672 

6 DEC 

0 

A0673 

Q f!A7A. 

Mlivr  QM 

pn.li 

niPRn  n,N-r. > 

A 06  76 
A0677 

AHA  7 ft 

R0679 

A0680 

6 DEC 

0 

R0681 

A0683 

A0684 

NUVLEM 

( 6D  ) 

P (U) 

(UPSILON-L) 

A0685 

R0686 

A0687 

6 DEC 

0 

R 06  88 
A 0690 

TCCSM 

( 2D  ) 

P (U) 

( TAU-C  ) 

A0691 

A0692 

A0693 

A0694 


R0695  2 DEC  0 

A 0696 


R0697 

A0699 

TCLEM 

( 2D  ) 

P (U) 

( TAU-L ) 

A0700 

A0701 

R0702 

2 DEC 

0 

A0703 

R 0704 

TFTCSM 

( 2D) 

IJ  (PGM  1 

i T-r  i 

A 0706 
A0707 
AO  70  8 

A 0709 

BY  NASA  202III2-0I1 


19:02  NOV.  25,1968 


(MAIN) 


PAGE 
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USER'S  PAGE  NO.  15  EO 

INTEGRATION  INITIALIZATION  (METERS,  B-22  OR  R-18  IF  FAPTH  OR  MOON) 

PERMANENT  STATE  VECTORS  AND  TIMES 
POSITION  DEVIATION  VECTOR  FOR  CSM 
= 0 IF  TCCSM  =0 

LUMINARY  LIST,  INT.  INIT. 


INTEGRATION  INITIALIZATION  (METERS,  B-22  OR  B-18  IF  EARTH  OR  MOON) 

PERMANENT  STATE  VECTORS  AND  TIMES 
POSITION  DEVIATION  VECTOR  FOR  LEM 
=0  IF  TCLFM  =0 

LUMINARY  LIST,  INT.  INIT. 


INTEGRATION  INITIALIZATION  (M/CSEC,  B-3  OP  B-I-l)  IF  EARTH  OR  MOON 

PERMANENT  STATE  VECTORS  AND  TIMES 
VELOCITY  DEVIATION  VECTOR  FOR  CSM 
=0  IF  TCCSM  =0 

LUMINARY  LIST,  INT.  INIT. 


INTEGRATION  INITIALIZATION  (M/CSEC,  B-3  OR  B-(-l)  IF  EARTH  OR  MOON 

PERMANENT  STATE  VECTORS  AND  TIMES 
VELOCITY  DEVIATION  VECTOR  FOR  LEM 
=0  IF  TCLFM  =0 

LUMINARY  LIST,  INT.  INIT. 


NTEGRAT ION  INITIALIZATION  ( 0 CSEC , B-28  ) 

PERMANENT  STATE  VECTORS  AND  TIMES 
TIME  SINCE  RECTIFICATION  FOR  CSM 
TIMF  ASSOCIATED  WITH  CSM  CONIC  POSITION, 
CONIC  VELOCITY,  POSITION  DEVIATION  AND 
VELOCITY  DEVIATION  VECTORS 

LUMINARY  LIST,  INT.  INIT. 


NTEGRAT ION  INITIALIZATION  ( 0 CSEC,  B-28  ) 

PERMANENT  STATE  VECTORS  AND  TIMES 

TIMF  SINCE  RECTIFICATION  FOR  LEM 

TIME  ASSOCIATED  WITH  LEM  CONICS  AS  ABOVE 

LUMINARY  LIST  , INT.  INIT, 


NTFGRAT ION  INITIALIZATION  ( CSEC,  B-26  ) 

PERMANENT  STATE  VECTORS  AND  TIMES 
THE  TIME  THAT  STATE  VECTOR  IS  VALID; 
LUNAR  ORBIT  DEPENDENCE  ON  REAL  TIME 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


19:02  NOV.  25,1968 


(MAIN) 


PAGE 


52 


GAP: 

L PACLOADS 

R0710  TETLEM  ( 2D ) U(PGM)  (T-L) 

A0712 

A0713 

A0714 

A0715 


R0716  XKEPCSM  (2D) 

A0718 

A0719 

A0720 

R0721 

A0722 


P (U) 


2 DEC 


(X-C) 


0 


R 0723 
A0725 
A0726 
A0727 
R0728 
A0729 


XKEPLEM  (2D)  P(U)  (X-L) 


2 DEC  - 0 


USER'S  PAGE  NO.  16  EO 


INTEGRATION  INITIALIZATION  ( CSEC,  B-28  ) 

PERMANENT  STATE  VECTORS  AND  TIMES 
THE  TIME  THAT  STATE  VECTOR  IS  VALID; 
LUNAR  ORBIT  DEPENDENCE  ON  REAL  TIME 


INTEGRATION  INITIALIZATION  (M**l/2,  B-17  OR  B-16  IF  EARTH  OR  MOON) 

PERMANENT  STATE  VECTORS  AND  TIMES 
ROOT  OF  KEPLER'S  £QUATION  FOP.  CSM 
=0  IF  TCCSM  =0 

LUMINARY  LIST,  INT.  INIT. 


INTEGRATION  INITIALIZATION  [M**l/2,  B-17  OR  B-16  IF  EARTH  OR  MOON) 

PERMANENT  STATE  VECTORS  AND  TIMES 
ROOT  OF  KFPLEP'S  EQUATION  FOR  LFM 
= 0 IF  TC  LEM  =0 

LUMINARY  LIST,  INT.  INIT. 


GAP: 

L 

P0001 

0002 

0003 

0004 

R0005 

0006 

0006 

0007 

0007 

0008 

0008 

0009 

0009 

0010 

0010 

0011 

0011- 

R0012 

0013 

0013 

0014 

0014 

0015 

0016 

0017 

R0018 

0019 

0019 

0020 

0020 

0021 

0021 

R0022 

0023 

0023 

0024 

0024 

0025 

0026 

0027 

0028 

0028 
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CONTROLLED  CONSTANTS  USER'S  PAGE  NO.  1 

DPS  AND  APS  ENGINE  PARAMETERS 


REF  1 

36,2000 

SETL0C 

P43S 

36,2000 

BANK 

REF  1 

COUNT  * 

$ $ / P 4 0 

*4*  TEE  ORDER  OF 

THE  FOLLOWING 

SIX  CONSTANTS  MUST  NOT  BE 

: CHANGED  *** 

36,  2000 

01056 

0 

FOPS 

2DEC 

4.3670  B-7 

9817.5  LBS  FORCF 

IN  NEWTONS 

36, 2001 

37167 

0 

36 » 2002 

00457 

1 

MDOTDPS 

2DEC 

0.1480  E-3 

32.62  LBS/SEC  IN 

KGS/CS. 

36,2003 

03250 

0 

36, 2004 

77777 

0 

DTDECAY 

2DEC 

-38 

36, 2005 

77731 

1 

36, 2006 

00307 

0 

FAPS 

2DEC 

1.5569  B-7 

3500  LBS  FORCF  IN 

NEWTONS 

36, 2007 

11040 

0 

36,2010 

00151 

1 

MDOTAPS 

2D  EC 

0.05135  B— 3 

11.32  LBS/SEC  IN 

KGS/CS 

36,201 1 

05214 

0 

36,  2012 

77777 

0 

ATDECAY 

2DEC 

-10 

36. 2013 

77765 

0 

**********  ************  ************************************************** 

36t  201  4 

00026 

o 

FRCS4 

2 DEC 

3.17792  B-7 

400  LBS  FORCE  IN 

NEWTONS 

36,2015 

30605 

1 

36, 2016 

00013 

0 

FRCS2 

2DEC 

0.08896  B-7 

200  LBS  FORCE  IN 

NFWTONS 

36, 2017 

14303 

1 

REF  1 

27,2000 

SETLOC 

P40S  1 

27,2000 

BANK 

RFF  1 

COUNT  * 

$ $ / P 4 0 

***  ftps  IMPULSE  DATA  FOR  P42  **$**«$*  ******  *******: ****  ****  ******** 


27.2000 

27. 2001 

27.2002 

00000 

07622 

00000 

1 

0 

1 

K1VAL 

K2VAL 

2DEC  124.55  B-23 

2DEC  31.138  6-24 

2800  LB-SEC 
700  LB-SFC 

27,2003 

00762 

1 

27, 2004 

00030 

1 

K3VAL 

2DEC  1.5569  B-10 

FAPS  ( 3500  LBS 

THRUST ) 

27. 2005 

35104 

1 

I***###*##*#*##****###*  ***#*#❖❖❖❖❖❖❖*  ❖**£**£*#❖❖*❖*❖❖❖❖* 

27 1 2 006 

00016 

o 

S40  * 1 36 

2 DEC  .4671  R-9 

.4671  M NEWTONS 

( DPS  ) 

27, 2007 

36237 

1 

27,2010 

3571  1 

0 

S40 . 136_ 

2DEC  .4671  B+l 

S40.136  SHIFTED 

LEFT  10. 

27, 2011 

35663 

1 

REF  1 

32,2000 

SFTLOC  ABORTS 

32, 2000 

BANK 

REF  - 1 

COUNT  * t $/ P 70 

32, 2000 

03631 

0 

( 1/DV) A 

2DEC  15.20  B-7 

2 SECONDS  WORTH 

OF  INITIAL  ASCENT 

32, 2001 

23146 

0 

GAP: 

II 

A0029 

A0030 

A0031 

A0032 

A0033 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 
CCNTRCLLEO  CONSTANTS 
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USER'S  PAGE  NO.  2 EO  S3 


STAGE  ACCELERATION  — INVERTED  (M/CS) 

1)  PREDICATED  ON  A LIFTOFF  MASS  OF 

4869.9  KG  (SNA-8-D-027  7/11/68) 

2)  PREDICATED  ON  A CONTRIBUTION  TO  VEH- 
ICLE ACCELERATION  FROM  RCS  THRUSTERS 


0035 

32,2002 

33226 

1 

K( 1/DV) 

2DEC 

436. 70  B-9 

DPS  ENGINE  THRUST  IN  NEWTONS  / 100  CS. 

0035 

32,2003 

14632 

0 

ft? , 7 004 

05306 

1 

(AT)  A 

2DEC 

3.2883  E— 4 B9 

INITIAL  ASC.  ST G.  ACCELERATION  **  M/CS. 

0036 

32,2005 

15503 

0 

A0037 

ASSUMPTIONS  SAME  AS  FOR  (l/DVJA. 

003# 

32,2  006 

26337 

_1 

( TBUP I A 

2DEC 

91902  B-17 

ESTIMATED  BURN-UP  TIME  OF  THE  ASCENT  STG 

0038 

32,2007 

30000 

1 

A0039 

ASSUMPTIONS  SAME  AS  FOR  (l/DVIA  WITH  THE 

ADDITIONAL  ASSUMPTION  THAT  NET  MASS-FLOW 

A0041 

RATE  = 5.299  KG/SEC  = 5.135  (APS)  + 

A0042 

. 164  (1  RCS  JET  ) . 

REF 

]_ 

ft  ot 7 000 

SETLDC 

ASET  T 

0044 

30,2000 

BANK 

0045 

REF 

1 

COUNT  4 

$$/A  SENT 

004 a 

3 0,  7 00  0 

02445 

0 

AT/RCS 

2DEC 

.0000785  B+10 

4 JETS  IN  A DRY  LEM 

0046 

30, 2001 

00274 

0 

0047 

REF 

1 

33,2000 

SETl OC 

SEPV  ICES 

004ft 

33,2000 

BANK 

0049 

REF 

1 

COUNT* 

$ $ / S ER  V 

r 00^0 

*** 

THE  ORDER  OF  THE 

FO!  | nu  T NO 

Turn  rnNKTANT<;  mikt  wm  rf 

f HA  NiO  F n ******* 

0051 

33,2000 

41545 

0 

APS  VEX 

DEC 

-3330  E— 2 B— 5 

9942  FT/SEC  IN  M/CS. 

0052 

33,2001 

42365 

1 

DPS  VE  X 

DEC 

-2952  E-2  B— 5 

9684  FT/SEC  IN  M/CS. 

POO  Rft 

A***************: 5c  *** 

0054 

REF 

1 

31,2000 

SETLOC 

F 2DP  S*31 

0055 

31,2000 

BANK 

0056 

REF 

1 

COUNT* 

$ $/ F 2DPS 

0057 

ft  1 t 7 000 

00  7 ft  ft 

o 

TRiMArn 

7DET* 

+ ft.70c3ft  F-S  R+R* 

ACCFLERATTON  OURING  TRIM  PHASP* 

0057 

31, 2001 

15340 

1 

ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  202I1L2-01I 


GAP: 

L CONTROLLED  CONSTANTS 

P0058  THROTTLING  AND  THRUST  DETECTION  PARAMETERS 


0059 

0060 

REF 

D F P 

2 

9 

L*ST 
LA  ST 

53 

53  TO 

36, 2000 
36, 2020 
5 3: 

16  16* 

SFTLOC 
BANK 
COUNT  * 

P40S 
$ $/  P 40 

UUo  1 
0062 

K t-r 

c. 

36,2020 

00030  1 

THRESH1 

DEC 

24 

0063 

36,2021 

00014  I 

THR  ESH3 

DEC 

12 

AAAA 

D c c 

J 

4737 

HIRTHROT 



B IT  1 3 

UUoH 

0065 

a c r 

REF 

1 

1 

6000 

SETLOC 

FFTAG5 

0066 

6 000 

BANK 

0067 

REF 

l 

COUNT  * 

$ $/ P 40 

0068  6000  00664  L THRESH2  DEC  308 


0069 

0070 

REF 

1 

31,2000 
31, 2002 

SETLOC 

BANK 

FTHR CT 

0071 

REF 

1 

COUNT  * 

5 $ / T HROT 

0072  31,2002  07432  0 FMAXQDQ  DEC  +3866 


0073 

31,2003 

07012 

0 

FMAXPOS  DEC 

+ 3594 

00  74 

31 f 2 004 

00024 

1 

T HROT LAG  DEC 

2 0 

0075 

REF  1 

32,2000 

SETLOC 

F2D P S*32 

00  76 

32,2010 

BANK 

0077 

REF  1 

COUNT  * 

$ $ / F 2DPS 

32, 2010 


0078 


00044  I OPSTHRSH  DEC 


36 


19:02  NOV.  25,1968 


( MA  IN) 


PAGE 
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USER'S  PAGE  NO.  3 EO  S3 


THROTTLE  SATURATION  THRESHOLD 
FMAX  43245  NEWTONS 

EMPIRICALLY  DETERMINED  THROTTLF  LAG  TIME 


( THRESH1  + THRESH3  FOR  P63 ) 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25,1968  (MAIN)  PAGE  56 

L CCNTRCLLEO  CONSTANTS  USER'S  PAGF  NO.  4 EO  S3 

P00R2  LM  HARDWARE-RELATED  PARAMETERS 


0083 

0084 

REF 

1 

25, 2000 
25,2000 

SETLOC 
BANK 
COUNT  * 

RADA  RUPT 
$ $/R  PUPT 

0086 

25, 2000 

47777 

0 

LVELBI AS 

DEC 

-12288 

LANDING  RADAR  BIAS  FOR  153.6  KC. 

0087 

25, 2001 

00001 

0 

RDOTBIAS 

2DEC 

1 7000 

BIAS  COUNT  FOP  RR  RANGE  RATE. 

0087 

25, 2002 

01150 

1 

0088 

REF 

1 

32,2000 

SETLOC 

LRS22 

0089 

32, 2011 

BANK 

__  _ n 

COUNT  * 

$$ / L RS22 

0091 

32,2011 

70123 

0 

RDOTCONV 

2DEC 

- .00 1913  5344 

B 7 CONVERTS  RR  RDOT  READING  TO  M/CS  AT  2(7) 

^2  # 2 0 1 ? 

40702 

0 

0092 

32,2013 

13337 

1 

R ANGCONV 

2DEC 

2.859024  B-3 

CONVERTS  RR  RANGE  READING  TO  M.  AT  2(-29 

0092 

32,2014 

10776 

0 

nnQ^ 

R F F 

2 

LAST 

55 

31 , 2000 

SETLOC 

FTHP CT 

0094 

31,2005 

BANK 

0095 

REF 

2 

LAST 

55  TO 

55  : 

3 

3* 

COUNT  * 

Si/THROT 

0096 

31,2005 

00317 

1 

SCALEFAC 

2DEC 

51.947  B— 1 2 

SCALES  A (AT  2(-4)  M/CS/CS)  TIMES  MASS 

0096 

31,2006 

311  57 

0 

A0097  (AT  2(16)  KGS.  ) TO  PULSE  UNITS. 


0098 

0099 

REF  2 LAST  54  33,2000 

33, 2002 

SETLOC  SE P V ICES 
BANK 

0100 

REF  2 LAST  54  TO  54: 

2 

2* 

COUNT*  $ $/ S EP V 

0101 

33, 2002 

61000 

0 

HR F A MAN T 

2DEC  -.4687018041 

RANGE  BEAM  IN  LR  ANTENNA  COORDINATES. 

0101 

33,2003 

71210 

1 

irUL  hi  iHii  i 

0102 

33,2004 

00000 

1 

2DEC  0 

0102 

33,2005 

00000 

l~ 

0103 

33,2006 

72333 

1 

2 DEC  -.1741224271 

0103 

33, 2007 

45546 

1 

0104 

33, 2010 

65363 

1 

HSCAL 

2DEC  -.3288792 

SCALES  1.079  FT/BIT  TO  2(22>M. 

0104 

33,2011 

64451 

0 

R0105 

*****  the  SEQUENCE  OF  THE  FOLLOWING  > 

CONSTANTS  MUST  BE  PRESERVED  ******** 

0106 

33,2012 

21241 

0 

VZSCAL 

2DEC  *.5410829105 

SCALES  .8668  FT/SEC/BIT  TO  2(18)  M/CS. 

0106  33,2013  03216  1 


0107 

33, 2014 

30153 

0 

VYSCAL 

2DEC 

+.7565672446 

SCALES  1.212 

FT/SEC/BIT 

TO 

2(18) 

M/CS  . 

0107 

33,2015 

23101 

0 

0108 

33, 2016 

63105 

0 

VXSCAL 

2DEC 

-.4020043770 

SCALES  -.644 

FT/SEC/BIT 

TO 

2(18) 

M/CS  . 

0108 

33, 2017 

61733 

1 
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GAP: 


RO 109 

0110 
0111 
0111 
0112 
0112 
01 13 

0113 

0114 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 


CONTROLLED  CONSTANTS  USER'S  PAGE  NO.  5 

$***************  **#*#$**$***:*  *$***************************$*  *******  ***** 


9 fl  9 O 

01507 

KPI  P 

DEC 

.0512 

SCALES  DEL  V TO  UNITS 

OF  2(5) 

M/CS. 

D J f t Ut  U 

33, 2021 

00321 

1 

KPI  PI 

2DEC 

. 012  8 

SCALES  DEL V TO  UNITS 

OF  2(7) 

M/CS. 

33,2022 

26706 

1 

33 ,2  023 

001  50 

0_ 

KPLPZ^ 

2D  EC 

. 0064 

SCALES  DEL V TO  UNITS 

OF  2(8) 

M/CS. 

33,2024 

33343 

0 

33,2025 

02630 

0 

ALTCONV 

2DEC 

1 .399078846  B-4 

CONVERTS  M*2 ( -24 ) TO 

BIT  UNITS  *2 (-28 ) . 

33,2  026 

25010 

-1 

33,2027 

24402 

1 

ARC  ON VI 

2DEC 

656.  167979  B-10 

CONV.  ALTRATE  COMP. 

TO  BIT  UN  I TS  < 

33,  2030 

26003 

0 

REF 

1 

21 ,2000_ 

SETLOC 

RIO 

21, 2000 

BANK 

REF 

1 

COUNT* 

$ $/R 10 

21,2000 

24402 

1 

ARC  ONV 

OCT 

2440  2 

656. 1679798B-10  CONV 

ALTRATE 

TO  BIT  UNIT 

24-, 2 001  01551  1 ARTOA  DEC  .1066098  B-l  .25/2.345  8-1  4X/SEC  CYCLE  RATE. 


21,2002 

21357 

0 

ART  0 A2 

DEC 

.0021322  B 8 

( .5 )/( 2.345) ( 100) 

21,2003 

223  16 

0 

VFLCONV 

OCT 

2231  6 

588.914  B-10  CONV  VEL.  TO  BIT  UNITS. 

21,2  004  01507  1 KPIP145)  DEC  .0512  SCALES  DEL  V TO  M/CS*2t-5). 


21,2005 

00547  1 MAX VB ITS  OCT 

0054  7 

MAX.  DISPLAYED  VELOCITY  199.9989  FT/SEC. 

REF 

1 

20,2000 

SETLOC 

DAPS3 

20,2000 

BANK 

REF 

1 

COUNT* 

$$/P APAO 

0127 


20,2000 


01150  1 TORKJET 1 DEC 


037  57 


550  / .2  SCALED  AT  (+16)  64  / 180 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021  U2-0I1  19:02  NOV.  25,1968  (MAIN) 


L 

CONTROLLED 

CONSTANTS 

USER' S 

PAGE  NO.  6 

P0128 

PARAMETERS 

RELAT I NG 

TO  MASS, 

INERTIA 

, AND  VEHICLE  DIMENSIONS 

0129 

0130 

REF 

REF 

1 

l 

05,2000 
05, 2000 

SETLOC 
BANK 
COUNT  * 

F RANDRES 
$$/ START 

0132 

05,2000 

02357 

1 

FULLAPS 

DEC 

5050  B-16 

NOMINAL  FULL 

ASCENT  MASS  — . 

0133 

0134 
-0135 

0136 

REF 

1 

01,2000 

01,2000 

SETLOC 

BANK 

-COUNT* 

LOADDAPl 
$ $/R  03 

01, 2000 

76466 

1 

MINLMD 

DEC 

-2850  B-16 

MIN. 

DESCENT 

STAGE  MASS  — 2 

0137 

01,2001 

76731 

0 

MINMINLM 

DEC 

-2200  B-16 

MIN 

ASCENT  STAGE  MASS  --  2(K 

M [ N|F  SM 

RTTI  1 

MIN 

f.SM  MASS 

(OK  FOR  1/ACCS) 

0139 

REF 

2 

LAST 

57 

20, 2000 
20, 2 noi 

SETLOC 

BANK 

DAPS3 

0141 

REF 

2 

LAST 

57  TO 

58: 

1 

1* 

COUNT* 

i$/D APAO 

?n. ? no i 

0 1046 

l 

loa  sf  fnt 

OFF 

2200  R-16 

M IN 

A S F F N T 1 FM  MASS  --  7(16) 

0143 

20, 2002 

07361 

1 

HIDESCNT 

DEC 

15300  3-16 

MAX 

DESCENT 

LEM  MASS  --  2(16 

0144 

20, 2003 

00666 

1 

LODESCNT 

DEC 

1750  B-16 

MIN 

DESCENT 

STAGE  (ALONE)  — 

PAGE  58 
EO  S3 


(16)  KG. 


116)  KG. 

!>)  KG. 

= 9050  LBS 

KG. 

) KG. 

2(16)  KG. 


GAP 
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L CCNTRCLLED  CONSTANTS 


USER’S  PAGE  NO.  7 EO  S3 


P0145  PHYSICAL  CONSTANTS  ( TIME  - INVARIANT  I 


0146 

REF 

1 

37, 2000 

SETLOC 

I MU2 

0147 

37,2000 

BANK 

REF 

COUNT* 

$$/P  07 

0148 

0149 

37,2000 

07623  1 OMEG/MS  2DEC 

. 24339048 

1 7 f 7 001 

26552  1 

0150 

REF 

1 

22,2000 

SETLOC 

R30L0C 

0151 

22,2000 

BANK 

COUNT* 

$ $/ R30 

R0153 

*** 

THE  ORDER 

OF  THE 

FOLLOW ING 

TWO  CONSTANTS  MUST  BE  PRESERVED  ********* 

0154 

22,2000 

27533  1 1/RTMUM  20EC* 

.45162595  E-4  B14* 

0154 

22, 2001 

07571  0 

?? , ? 00  7 

25004  1 1/RT.MUF  2DEC* 

.50087529  F-5  B17* 

0155 

22,2003 

06702  1 

R0156 

*****************************  *****  ******************  ********  ************ 

0157 

REF 

2 LAST 

53 

27,2000 

SETLOC 

P40S1 

0158 

27, 2012 

BANK 

0159  REF  1 COUNT*  $S/S40.9 


0160 

27, 2012 

55340 

0 

EAR  THMU  2DEC*  -3.986032  E10  B-36* 

M(3)/CS<2) 

017)0 

27,2013 

61710 

0 

0161 

REF 

2 LAST 

54 

31, 2000 

SETLOC  F 2D  P S*31 

0162 

31,2007 

BANK 

0163  REF  2 LAST  54  TO  55:  —2 2*  COUNT  * $t/F2DPS 


0164 

0164 

31,2007 

31,2010 

77765  0 MOONG 
53556  1 

2DEC  -1.6226  E-4  B2 

0165 

0166 

REF 

1 

30,2000 

30,2002 

SETLOC  P 1 2 
BANK 

0167  RFF  1 COUNT  * $$/P  12 


0168 

0168 

30,  2002 
30,2003 

00072  1 
16206  1 

MUM (-37) 

2DEC*  4.9027780  E8  B-37* 

0169 

0169 

oi  ro- 

REF 

3 

LAST 

56 

30. 2004 

30. 2005 
33,2000 

00344  1 
24331  0 

MOONRATE 

2DEC*  .26616994890062991  E-7  B + 19*  RAD/CS. 
SETLOC  SERVICES 

om 

0172 

REF 

3 

LAST 

56  TO 

33,2031 

57: 

23  25* 

BANK 

COUNT*  t $/  S FRV 

R 0 1 73 

*** 

THE 

ORDER 

OF  THE 

FOLLOWING 

TWO  CONSTANTS  MUST 

BE  PRESERVED  ********* 

0174 

33, 2031 

61377  0 

-MUDT 

2DEC*  -7.9720645  E+12  B-44* 

0174 

0175 
0175 

33. 2032 

33. 2033 

33. 2034 

55754  1 
77644  1 
65556  1 

-MUDT1 

2DEC*  -9.8055560  E+10  B-44* 

GAP: 

L 

R0176 

0177 

0177 

0178 

0178 

0179 

0179 

0180 

0180 

0181 

0182 

0183 

0184 

0184 

0185 

0185 

01  86 

0186 

0187 

0187 

0188 

0189 

0190 

0191 

0191 

0192 

0192 

0193 

0194 

0195 

R0196 

0197 

0197 

0198 

0198 

0199 

0199 

0200 

0200 

0201 

0201 

0202 

0202 
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PAGF  60 


CONTROLLED  CONSTANTS  USER'S  PAGE  NO.  8 EO  S3 

* **  **  if  * * **  *****  ****  ***  #***  $#****  $*******  *4  * 4*  ***  * **  **  * ***  «*=#«***  *** 


1 

-MUDTMUN 

2DFf  * 

-9.P0S5S60  F+10 

B-38* 

33, 2036 

55670 

0 

3 3 , 2 03  7 

00002 

0 

RESQ 

2DEC* 

40.6809913  F12 

B-  58* 

3 3»  2 040 

11777 

o 

33, 2041 

01023 

1 

20J 

2DEC 

3.24692010  E-2 

33, 2042 

37155 

1 

33,  2043 

00065 

1 

?J 

2DEC 

3.24692010  E-3 

33,2044 

06244 

0 

REF 

1 

14,2000 

SETLOC 

P50S1 

14,2000 

BANK 

REF 

1 

COUNT* 

$$/  L OSAM 

14- 2000 

26723 

o 

RSU8EM 

20EC 

384402000  B-29 

14,2001 

004  50 

0 

14, 2002 

00065 

1 

RSUBM 

2DEC 

1738090  B-29 

1 4,  2 003 

01265 

1 

14, 2004 

00302 

0 

RSUBE 

2DEC 

6373166  B-29 

14,2005 

24533 

1 

1 4*  2 006 

00052 

0 

ROE 

2DEC 

.00257125 

14,2007 

04047 

0 

REF 

1 

04,2000 

SETLOC 

CONI CS1 

04, 2 000 

BANK 

REF 

1 

COUNT* 

SJ/LT-LG 

0-4-  2 000 

003  n? 

o 

ER  AO 

2DE-C 

6 37  3 33  A R-2  9 

PAO  RADIUS 

04, 2001 

17755 

0 

04, 2002 

00065 

1 

504RM 

2DEC 

173  8 090  B-29 

METERS  B-29  (EQUATORIAL  MOON  RADIUS) 

04, 2003 

01265 

1 

REF 

2 LAST 

6 C 

04, 2000 

SETLOC 

CONI CS1 

04, 2004 

BANK 

-REE  - 

1 

COUNT* 

$ $/ C CNI C 

***  THE  ORDER  OF  THE  FOLLOWING  CONSTANTS  MUST  BE  PRESERVED  * ************ 


04,2004  22437  1 MUTABLE  2DEC*  3.986032  E10  B-36*  MUE 


04.2005 

04.2006 

16067 

15625 

1 

1 

2DEC  * 

. 2 50  87606 

E-10 

B+  34* 

1 /MUE 

04, 2007 

21042 

1 

04, 2010 

30276 

1 

2DEC* 

1.99  650495 

E5 

B-l  8* 

SORT ( MUE ) 

04,2011 

04773 

0 

04, 2012 

25004 

1 

2DEC* 

.50087529 

E— 5 

B+l  7* 

1 / SQR  T ( MUE ) 

04, 2013 

06702 

1 

04,2014 

16471 

1 

2DEC* 

4.902778  F 8 B-30* 

MUM 

04,2015 

01352 

1 

04, 2016 

21412 

0 

2DEC* 

.203966  E— 8 B + 23* 

1 /MUM 

04,2017 

20500 

0 

GAP  : 
L 
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CONTROLLED  CONSTANTS  USER'S  PAGF  NO.  9 

SORT (MUM  ) 
l/SQPT (MUM) 


0203 

04, 2020 

25477 

1 

2DEC* 

2.21422176  E4  B-15* 

0203 

04,2021 

033  6 7 

0 

04, 20 2? 

27533 

1 

2DEC* 

.45162595  E-4  B+14* 

0204 

04,  2023 

07571 

0 

R0205 

* ** <********************************************* 

****************  ******** 

0206 

REF 

l 

13, 2000 

SETLOC 

INTI  NIT 

0207 

13, 2000 

BANK 

COUNT* 

$$/ INTIN 

0209 

13,2000 

07112 

1 

OMEGMOON 

2DEC* 

2.66169947  E-R  B+23* 

0209 

1 3, 2 001 

06620 

0 

0210 

REF 

1 

13,2000 

SETLOC 

ORBI TAL2 

0211 

13, 2002 

BANK 

021? 

Rf  F 

1 

COUNT* 

$ t/0  RB I T 

R0213 

*** 

THE  ORCER 

OF  THE  FOLLOWING 

CONSTANTS  MUST  NOT  BE  CHANGED  *********** 

0214 

13,2002 

27446 

1 

2DEC* 

1.32715445  E16  B-54* 

0214 

13,2003 

14620 

0 

0215 

13,2004 

164  71 

1 

MUM 

2DEC* 

4.9027780  F8  B-30* 

0215 

13,2005 

01352 

1 

0216 

13,2006 

22437 

1 

MUEARTH 

2DEC* 

3.986032  E10  R-36* 

02  1 h 

13, 2007 

16067 

1 

0217 

13,2010 

00000 

1 

2DEC 

0 

0217 

13,2011 

000  00 

1 

0218 

13,2012 

02302 

1 

J4REQ/J3 

2DEC* 

.4991607391  E 7 B-26* 

0218 

13,2013 

24736 

0 

0219 

13,2014 

00000 

1 

2DEC 

0 

02  1 9 

13, 2015 

00000 

1 

0220 

13, 2016 

77776 

1 

2 J3RE/J2 

20EC* 

-.1355426363  E5  B-27* 

0220 

13, 2017 

53032 

0 

0221 

13, 2020 

10407 

0 

2DEC* 

.3067493316  E18  B-60* 

0221 

L 3 , 202  1 

05344 

1 

0222 

13, 2022 

13710 

0 

J2REQSQ 

2DEC* 

1.75501139  E21  B-72* 

0222 

13,2023 

35320 

0 

0223 

13,2024 

12160 

0 

3J22R2MU 

2DEC* 

9.20479048  E16  B-58* 

0223 

13,2025 

12124 

0 

R0224 

***** $$#**** *****  *****************  **************************  ************ 

0225 

REF 

1 

27,2000 

SETLOC 

T0F-FF1 

0226 

27, 2014 

BANK 

0227 

REF 

1 

COUNT* 

tt/TFF 

0228 

27,2014 

24775 

1 

1/RTMU 

?DEC* 

. 50 0 575G 271  E-5  B17* 

0228 

27,2015 

30424 

0 

0229 

REF 

1 

42,2000 

SETLOC 

SBAND 

02  30 

42,2000 

BANK 

0231 

REF 

1 

COUNT* 

$$/P  05 

MODIFIED  EARTH  MU 


PAGE 
EO  S3 


GAP  : 

L 

0232 

0232 
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CONTROLLED  CONSTANTS  USER’S  PAGE  NO.  10  FO  S3 

4-2,  2000  26723  0 REMDIST  2D  EC  384402000  B-29  MEAN  DISTANCE  BET  W FEN  FARTH  AMD  MOON. 

42,2001  00450  0 


GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY 

L CCNTRCLLED  CONSTANTS 

P0233  PHYSICAL  CONSTANTS  ITIME  - VARIANT) 


0234  REF  1 

14, 2000 

14t  2010 

0236  REF  1 

1S26 1 

o 

0237 

0237 

14,201 1 

27231 

1 

0238 

14,2012 

74126 

1 

0238 

14, 2013 

61161 

0 

0239 

14,2014 

70032 

1 

0239 

14,2015 

544  70 

0 

0240 

14, 2016 

15013 

1 

0240 

14,2017 

10432 

0 

0241 

14, 2020 

67066 

0 

0241 

14,2021 

40370 

1 

0242 

14,2022 

02550 

0 

0242 

14,2023 

31133 

l 

0243 

14, 2024 

07207 

0 

0243 

14,2025 

24243 

1 

0244 

14, 2026 

67275 

0 

0244 

14, 2027 

67544 

0 

0245 

14,2030 

13261 

0 

0245 

14, 2031 

25121 

l 

0246 

14,2032 

05075 

0 

0246 

14, 2033 

16350 

0 

0247 

14, 2034 

70715 

0 

0247 

14,2035 

55404 

1 

0248 

14, 2036 

62466 

1 

0248 

14,  2037 

54577 

0 

0249 

14,2040 

10650 

0 

0249 

14,2041 

17202 

1 

0250 

14,2042 

632  34 

1 

0250 

14,2043 

43704 

0 

0251 

14, 2044 

73710 

0 

0251 

14,2045 

50170 

1 

0252 

14,2046 

07203 

1 

0252 

14, 2047 

13612 

0 

0253 

14, 2050 

61746 

0 

0253 

14, 2051 

773  70 

0 

0254 

14,2052 

02343 

1 

02  54 

14, 2053 

05340 

0 

0255 

14, 2054 

03235 

0 

0255 

14,2055 

14762 

1 

0256 

14, 2056 

62030 

0 

0256 

14, 2057 

512  12 

1 

0257 

14,2060 

70715 

0 

0257 

14,2061 

64117 

1 

0258 

14,2062 

01744 

1 

0258 

14, 2063 

11157 

1 

0259 

14,2064 

63531 

0 

0259 

14, 2065 

66055 

1 

NASA  2021112-011 
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PAGE 
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USER'S  PAGE  NO.  11  EO  S4 


SETLOC 

BANK 

STAPTAB 

COUNT  * 

?dec 

$$/ S TARS 
+.8341953207 

8=4 

STAR 

37 

X 

20EC 

-.2394362567 

B— 1 

STAR 

37 

Y 

2DEC 

-.4967780649 

B-l 

STAR 

37 

Z 

2DEC 

+.81 38753897 

B— 1 

STAR 

36 

X 

20EC 

-.5559063490 

B-l 

STAR 

36 

Y 

2DEC 

+.1690413589 

B-l 

STAR 

36 

Z 

2DEC 

+.4540570017 

B-l 

STAR 

35 

X 

2DEC 

- .5393383149 

B-l 

STAR 

35 

Y 

2DEC 

+.7091871552 

B-l 

STAR 

35 

Z 

2DEC 

+.3200014224 

B-l 

STAR 

34 

X 

2DEC 

-.44  3674 0480 

B-l 

STAR 

34 

Y 

2DEC 

-.8371095679 

B-l 

STAR 

34 

Z 

2DEC 

+ .55  18160037 

B-l 

STAR 

33 

X 

2DEC 

-.7934422090 

B-l 

STAR 

33 

Y 

20EC 

-.2568045150 

B-l 

STAR 

33 

Z 

2DEC 

+.4535361097 

B-l 

STAR 

32 

X 

2DEC 

-.8780537171 

B-l 

STAR 

32 

Y 

2DEC 

+.1527307006 

B-l 

STAR 

32 

Z 

2DEC 

+ .2067145272 

B-l 

STAR 

31 

X 

2DEC 

-.8720349419 

B-l 

STAR 

31 

Y 

2DEC 

-. 4436486945 

B-l 

STAR 

31 

Z 

2DEC 

+ . 12  16171923 

B-l 

STAR 

30 

X 

2DEC 

- .7703014754 

B-l 

STAR 

30 

Y 

GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY 


L CCNTRCLL  ED  CONST  ANTS 


0260 

14,2066 

12007 

0 

0260 

14,2067 

37503 

0 

14f  2070 

76145 

0 

0261 

14,2071 

53477 

0 

0262 

14, 2072 

60372 

1 

1 4t ? 073 

43624 

0 

0263 

14,2074 

033  70 

0 

0263 

14, 2075 

15121 

1 

1 4t  2 076 

761  23 

0 

0264 

14, 2077 

64245 

0 

0265 

14,2100 

72437 

1 

1 4 f 2 1 0 1 

45623 

1 

0266 

14,2102 

61041 

0 

0266 

14,2103 

57124 

1 

0267 

14, 2 104 

72275 

1 

0267 

14, 2 105 

55365 

1 

0268 

14, 2106 

62641 

0 

14, 2 107 

72150 

0 

0269 

14, 2110 

70712 

1 

0269 

14,2111 

41542 

1 

0270 

14, 2 112 

67363 

0 

0270 

14, 2113 

50441 

0 

0271 

14,2114 

64426 

0 

0271 

14,2115 

77263 

0 

0272 

14,2116 

071  57 

0 

0272 

14,2117 

34056 

0 

0273 

14,2120 

63326 

o 

0273 

14,2121 

77723 

1 

0274 

14,2122 

67516 

1 

0274 

14,2123 

72566 

1 

0275 

14,2124 

05231 

l 

0275 

14,2125 

14031 

0 

02  76 

14, 2 126 

64753 

1 

0276 

14, 2127 

63156 

0 

0277 

14,2130 

71237 

1 

0277 

14,2131 

42272 

0 

0278 

14,2132 

66427 

0 

02  78 

14,2133 

64260 

1 

0279 

14, 2134 

c 

02  79 

14, 2135 

73302 

1 

0280 

14, 2136 

73261 

0 

0280 

14, 2137 

73575 

1 

0281 

14,2140 

14122 

0 

0281 

14,2141 

07016 

1 

0282 

14,2142 

612  47 

1 

0282 

14,2143 

42015 

0 

0283 

14, 2 144 

72314 

1 

0283 

14,2 145 

67004 

1 

0284 

14,2146 

74744 

0 

0284 

14,2147 

74104 

1 
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USER’S  PAGE  NO.  12 


EO  S4 


2DEC 

+.6259751556 

B-l 

STAR 

30 

Z 

2DEC 

- . 11 26265542 

B-l 

STAR 

29 

X 

2DEC 

-.9694679589 

B-l 

STAR 

29 

Y 

2DEC 

+.2178236347 

B-l 

STAR 

29 

Z 

2DEC 

-.1147906312 

B-l 

STAR 

28 

X 

2DEC 

-.3399437395 

B-l 

STAR 

28 

Y 

2DEC 

-.9334138229 

B-l 

STAR 

28 

Z 

2DEC 

- .35  18772846 

B-l 

STAR 

27 

X 

2DEC 

-.8239967165 

B-l 

STAR 

27 

Y 

2DEC 

-.4440853383 

B-l 

STAR 

27 

Z 

2DEC 

-.5328042377 

B-l 

STAR 

26 

X 

2DEC 

-.71 59448596 

B-l 

STAR 

26 

Y 

20EC 

+.4511569595 

B-l 

STAR 

26 

Z 

2DEC 

-.7862552143 

B-l 

STAR 

25 

X 

2DEC 

-.52  16265404 

B-l 

STAR 

25 

Y 

2DEC 

+ .33  12227199 

B-l 

STAR 

25 

Z 

2DEC 

- . 68  9990 169° 

B-l 

STAP 

24 

X 

2DEC 

-.41 80817959 

B-l 

STAR 

24 

Y 

2DEC 

-.5908647707 

B-l 

STAR 

24 

Z 

2DEC 

- . 58  119^3804 

B-l 

STAR 

2 3 

X 

2DEC 

-.2907877154 

B-l 

STAR 

23 

Y 

20EC 

+.7600365758 

B-l 

STAR 

23 

Z 

2DFf 

- .91 71065276 

B-I 

ST  AR 

22 

X 

2DEC 

-.3500098785 

B-l 

STAR 

22 

Y 

20EC 

-. 1908106439 

B-l 

STAR 

22 

Z 

GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY 

L CCNTRCLLED  CONSTANTS 


0285 

0285 

0286 
0286 
0287 

0287 

0288 
0288 
0289 

0289 

0290 

0290 

0291 

0291 

0292 

0292 

0293 

0293 

0294 

0294 

0295 

0295 

0296 

0296 

0297 

0297 

0298 

0298 

0299 

0299 

0300 

0300 

0301 

0301 

0302 

0302 

0303 

0303 

0304 

0304 

0305 

0305 

0306 

0306 

0307 

0307 

0308 

0308 

0309 
0309 


14.2150 

14.2151 

14. 2 152 

14.2153 

14. 2154 

14.2155 

14. 2156 

14. 2157 
14,2160 
14,2  161 
14,  2 162 

14.2163 

14.2164 

14.2165 

14.2166 

14. 2 167 

14. 2170 

14.2171 

14.2172 

14. 2173 
L4,  2 174 
14,2175 
14,  2176 
14,2177 

14. 2200 

14.2201 

14.2202 

14. 2203 

14. 2204 

14.2205 

14. 2206 

14.2207 

14.2210 

14. 2211 

14. 2212 

14.2213 

14. 2214 

14.2215 

14. 2216 

14.2217 

14.2220 

14.2221 

14. 2222 

14.2223 

14.2224 

14. 2225 

14. 2226 

14.2227 

14. 2230 

14.2231 


70605  0 
63103  0 
77154  1 
54113  0 
61601  1 
62472  1 
60604  0 
63166  0 
77033  1 
63044  1 
73162  0 
53261  1 
60431  1 
63350  1 
00660  1 
22763  0 
04045  1 
01424  1 
62165  1 
45335  0 
07327  0 
21564  0 
03267  1 
34557  1 
63472  0 
50705  0 
11661  0 
21433  0 
75501  1 
72421  0 
70431  0 
65316  0 
07510  1 
12666  1 
13727  1 
21520  Q 
72161  1 
43161  0 
11144  0 
32323  1 
642  00  1 
76476  0 
71323  0 
70264  0 
16403  l 
05717  0 
01365  0 
17662  0 
75055  0 
75101  0 
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USER'S  PAGE  NO.  13  FO  S4 


2DEC 

-.4524416631 

B- 1 

STAR 

21 

X 

2DEC 

- .0492700670 

B-l 

STAR 

21 

Y 

2DEC 

-.8904319137 

B-l 

STAR 

21 

Z 

2DEC 

-.9525633510 

B-l 

STAR 

20 

X 

2DEC 

-.0591313500 

B-l 

STAR 

20 

Y 

2DEC 

-.2985406935 

B-l 

STAR 

20 

Z 

2DEC 

-.9656240240 

B-l 

STAR 

19 

X 

2DEC 

+.0528067543 

B-l 

STAR 

19 

Y 

2DEC 

+.2545224762 

B-l 

STAR 

19 

z 

2DEC 

-.86  06  97  0465 

B-l 

STAR 

18 

X 

2DEC 

+ .46  38127405 

B-l 

STAR 

18 

Y 

2DEC 

+.2099484122 

B-l 

STAR 

18 

Z 

20EC 

-.7741360248 

B-l 

STAR 

17 

X 

2DEC 

+.61 54234025 

B-l 

STAR 

17 

Y 

2DEC 

- . 1482142053 

B-l 

STAR 

17 

Z 

2DEC 

- .465616592 1 

B-l 

STAR 

16 

X 

2DEC 

+.4775804724 

B-l 

STAR 

16 

Y 

2DEC 

+.7450624681 

B-l 

STAR 

16 

Z 

2DEC 

-.36  11937602 

B-l 

STAR 

15 

X 

2DFC 

+.5748077840 

B-l 

STAR 

15 

Y 

2DEC 

-.7342581827 

B-l 

STAR 

15 

z 

2DEC 

- .41  16502629 

B-l 

STAR 

14 

X 

20EC 

+.9066387314 

B-l 

STAR 

14 

Y 

2DEC 

+.0924676785 

B-l 

STAR 

14 

z 

20EC 

-.1818957154 

B-l 

STAR 

13 

X 

GAP: 

L 

0310 

03  10 

0311 

0311 

0312 

0312 

0313 

0313 

0314 

0314 

0315 

0315 

0316 

0316 

0317 

0317 

0318 

03113 

0319 

0319 

03213 

0320 

0321 

0321 

0322 

0322 

0323 

0323 

0324 

0324 

0325 

0325 

0326 

0326 

0327 

0327 

0328 

0328 

0329 

0329 

0330 

0330 

0331 

0331 

0332 

0332 

0333 

0333 

0334 

0334 
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14, 2232 

17030 

1 

2DEC 

+.940531 8128 

B— 1 

STAR 

13 

Y 

14, 2233 

32613 

1 

14t  2 234 

7^3  ? 1 

o 

2DEC 

-.2869039173 

B— 1 

STAR 

13 

2 

14, 2235 

65667 

0 

14,2236 

77010 

0 

2DEC 

-.0614360769 

B-l 

STAR 

12 

X 

1 4t  2 23  7 

AA7  1 4 

o 

14, 2240 

11515 

0 

2DEC 

+.6031700106 

B-l 

STAR 

12 

Y 

14,2241 

05314 

1 

1 4t 

63215 

1 

2DEC 

- .7952430739 

B-l 

STAR 

12 

Z 

14,2243 

53630 

1 

14,2244 

02145 

0 

2DEC 

+.1373948084 

B-l 

STAR 

11 

X 

14, 2245 

21163 

0 

14, 2246 

12715 

1 

2DEC 

+.6813398852 

B-l 

STAR 

11 

Y 

14, 2247 

21123 

1 

14, 2250 

13401 

0 

2DEC 

+.7189566241 

B-l 

STAR 

11 

Z 

14,2251 

26125 

0 

14, 2252 

03161 

1 

2DEC 

+ .20  1342  6456 

B-l 

STAR 

10 

X 

14 f 2 25  3 

14610 

0 

14, 2254 

17401 

1 

2DEC 

+.9689888101 

B-l 

STAR 

10 

Y 

14, 2255 

36465 

0 

14f  2256 

75552 

1 

2DEC 

-.1432544058 

B-l 

STAR 

10 

Z 

14,2257 

56556 

1 

14,2260 

05473 

1 

2DEC 

+.3509587451 

B-l 

STAR 

9 

X 

14, 2261 

01565 

0 

14,2262 

16217 

1 

2DEC 

+.8925545449 

B-l 

STAR 

9 

Y 

14,2263 

31643 

1 

14,2264 

04417 

1 

2DEC 

+.2831507435 

B-l 

STAR 

9 

Z 

14,2265 

22211 

0 

14,2266 

06444 

0 

20EC 

+.4107492871 

B-l 

STAR 

8 

X 

14,2267 

33354 

0 

14,2270 

07765 

1 

2DEC 

+ .49  87190610 

B-l 

STAR 

8 

Y 

14, 2271 

20153 

1 

14,2272 

14154 

1 

2DEC 

+ . 76  325901 32 

B-l 

STAR 

8 

Z 

14,2273 

23613 

1 

14, 2274 

13202 

0 

2DEC 

+ .70  33883645 

B-l 

STAR 

7 

X 

14,2275 

05024 

1 

14, 2276 

13243 

0 

2DEC 

+.7074274193 

B-l 

STAR 

7 

Y 

14,2277 

07665 

0 

14,2300 

01067 

1 

? DEC 

+.0692188921 

B-l 

STAR 

7 

Z 

14,2301 

01242 

1 

14,2302 

10561 

1 

2DEC 

+.545066231 1 

B-l 

STAR 

6 

X 

14, 2303 

1 

14, 2304 

10401 

0 

2DEC 

+ .53  1373  8486 

B-l 

STAR 

6 

Y 

14, 2305 

003  5 7 

0 

14,2306 

65477 

0 

2DEC 

-.64  84  94  0879 

8-1 

STAR 

6 

Z 

14,2307 

61124 

1 

14,2310 

00154 

1 

2DEC 

+.01 31955837 

B-l 

STAR 

5 

X 

14,2311 

03111 

0 

14,2312 

00077 

1 

2DEC 

+ .00  78043793 

B-l 

STAR 

5 

Y 

14,2313  35676  0 
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0335 

14,2314 

17777 

0 

2DEC 

+.9998824772 

1 

CD 

STAR 

5 

Z 

0335 

14,  2315 

01142 

1 

0336 

14, 2316 

076  74 

0 

2DEC 

+.49 17355618 

B— 1 

STAR 

4 

X 

03  36 

14,  2317 

11416 

1 

0337 

14,  2320 

03415 

1 

2DEC 

+.2203784481 

B-l 

STAR 

4 

Y 

0337 

14,2321 

12707 

1 

0338 

14,  2322 

62413 

0 

2DEC 

-.8423950835 

B-l 

STAR 

4 

7 

0338 

14,2323 

43135 

1 

] 4t  2 324 

0751  1 

0 

2DEC 

+ . 4 7 76  746?80 

B-l 

STAR 

3 

X 

0339 

14, 2325 

03423 

1 

0340 

14, 2326 

01672 

0 

2DEC 

+. 1 1 64935557 

B-l 

STAR 

3 

Y 

0340 

14, 2 327 

12054 

0 

0341 

14, 2330 

15735 

1 

2DEC 

+.8707790771 

B-l 

STAR 

3 

Z 

0341 

14, 2331 

15405 

1 

0342 

14,2332 

16745 

0 

2DEC 

+.9342726691 

B-l 

STAR 

2 

X 

0342 

14, 2333 

21763 

0 

0343 

14,2334 

02613 

1 

2DEC 

+.1732973829 

B-l 

STAR 

2 

Y 

0343 

14,  2335 

24675 

0 

0344 

14, 2336 

73007 

1 

2DEC 

-.31  16128956 

B-l 

STAR 

2 

Z 

0344 

14,2337 

50430 

0 

0345 

14,2340 

15777 

1 

2DEC 

+.8749183324 

B-l 

STAR 

l 

X 

0345 

14,  2341 

12457 

1 

0346 

14,2342 

00324 

1 

2DEC 

+.0258916990 

B-l 

STAR 

1 

Y 

0346 

1 4,  2343 

03265 

0 

0347 

14,2344 

07571 

0 

2DEC 

+.4835778442 

B-l 

STAR 

1 

Z 

0347 

14,2345 

17020 

0 

0348  14,2346  15325  1 CATLOG  DEC  6869 


R0349  ************************************************************************ 

0350  REF  1 

05,2000 

SETLCC 

EPHFM1 

0351 

05,2001 

BANK 

0352  REF  1 

COUNT  * 

$ $ / E PHEM 

0353 

05 1 2 001 

20000 

0 KDNMAT 

PDFf. 

1 • 0 E-  l 

************* 

0353 

05,2002 

00000 

i 

0354 

05,2003 

00000 

i 

2DEC 

0 

* 

0354 

05, 2004 

00000 

i 

0355 

05, 2005 

00000 

i 

2DEC 

0 

* 

0355 

05,2006 

00000 

i 

0356 

05,  2007 

00000 

i 

2DEC 

0 

* 

0356 

05, 2010 

00000 

i 

0357 

05,2011 

16533 

0 

2DEC 

.91745  B-l 

K 1 

COS(OBL)  * 

0357 

05, 2012 

30007 

0 

0358 

05, 2013 

77333 

1 

2DEC 

-.03571  B-l 

K 2 

SIN(OBL)SINtlM)  * 

0358 

05,2014 

56654 

0 

0359 

05, 2015 

00000 

1 

2DEC 

0 

* 

0359 

05, 2016 

00000 

1 

0360 

05,2017 

06273 

1 

2DEC 

.39784  B-l 

K 3 

SIN(OBL)  * 

0360 

05, 2020 

03275 

1 

GAP  : 

L 

0361 

0361 

0362 

0362 

0363 

0364 

0365 

0365 

0366 

0366 

0367 

0367 

0368 

0368 

0369 

0369 

0370 

0370 

0371 

0371 

0372 

0372 

0373 

0373 

0374 

0374 

0375 

0375 

0376 

0376 

0377 

0377 

0378 

0378 

0379 

0379 

R0380 

0381 

0382 

0383 

0384 

0384 

0385 

0385 

0386 

0386 

0387 

0387 
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05,2021 

01242 

1 

2DEC 

.082354  B-l 

K4  COSIOBL )SIN( IM)  * 

05, 2022 

24467 

1 

05*  2023 

00020 

0 

CSIODAY 

2DEC 

8640000  B-33 

* NOTE 

* 

05,2024 

17260 

0 

05,2025 

00002 

0 

RCB-13 

OCT 

00002 

* TABLES  CONTAIN 

£ 

0-5  f -2  026 

00000 

1 

OCT 

00000 

* CONSTANTS  FOR 

* 

05,2027 

22572 

1 

RATESP 

2DEC 

.03660098  B+4 

* 1963  - 1969 

* 

05, 2030 

27214 

0 

05,2031 

01315 

1 

2DEC 

.00273779  B+4 

LOSR 

$ 

05, 2032 

26177 

1 

05,2033 

77731 

1 

2DEC 

-.00014719  B+4 

LONR 

05, 2034 

55217 

0 

05, 2035 

16455 

1 

2DEC 

.455  8803  94 

LOMO 

£ 

05, 2036 

044  75 

0 

05, 2037 

10637 

1 

2DEC 

.275337971 

LOSO 

❖ 

05,2040 

04312 

0 

05,2041 

01215 

0 

2DEC 

. 039  8987882 

LONO 

* 

05,2042 

263  5 1 

1 

05,2043 

01070 

1 

VAL67 

2D  EC 

.017361944  B+l 

A MOD 

* 

05,2044 

35243 

1 

05,2045 

11126 

1 

2DEC 

.286523072 

AARG 

* 

05,2046 

14467 

1 

05, 2047 

02245 

0 

2DEC 

.036291712  B+l 

1/27 

£ 

05,2050 

06475 

1 

05, 2051 

00163 

0 

2DEC 

.003534722  B+l 

BMOD 

* 

05, 2052 

32331 

1 

05, 2053 

03476 

L 

2DEC 

.113  165625 

BARG 

* 

05, 2054 

03302 

0 

05,2055 

02000 

0 

2DEC 

.03125  B+l 

1 /3  2 

* 

0 5,  2 056 

00000 

1 

05, 2057 

00256 

0 

2DEC 

.005330555  B+l 

C MOD 

* 

05,2060 

25374 

0 

05,  2 061 

77525 

o 

2 DEC 

-.3 10415660 

C ARG 

VALUE  COMPUTED  USING  1/364.24 

05, 2062 

53143 

l 

05,2063 

00131 

1 

2DEC 

.002737925  B+l 

1/365 

if  if  if  £ & afc  ❖ ❖ # ❖ * # # 

05,2  064 

26730 

-L 

££###  if  ifif  if.  if  $£  if  if  if  * # ##**#*#*  #*£#*::£  **#*##  j}:#  ##  a{c  # * * if  # 


REF 

1 

24,2000 

SETLOC 

24,2000 

BANK 

REF  1 COUNT  * 


24, 2000 
24, 2 001 

17775 

01734 

1 

0 

COSI 

2DEC 

24,2002 

00333 

1 

SIN  I 

2DEC 

24, 2003 

16153 

1 

24, 2004 

77665 

1 

NDDDOT 

2D  EC 

24,2005 

42175 

1 

24,2006 

22211 

0 

FOOT 

2DEC 

24,2007 

00265 

0 

PLANTIN 
$t/L  UROT 

.99964115  B-l  COStl  DEG  32.1  MIN)  B-l 

.02678760  B-l  SIN(1  DEG  32.)  MIN)  B-l 

-.457335143  _E-2  REVS/CSEC  3+2 8=-l . 0704 701 6 E-8  RAD/SEC 
.570  862491 


REVS/CSEC  3+27=  2.67240019  E-6  RAD/SEC 


_ 


1 
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USER' 

'S  PAGE  NO.  17 

EO  S4 

0388 

24, 2010 

77777 

0 

BDOT 

2DEC 

-3.07500412  E— 8 REVS/CSEC 

B+28=-7. 19756666 

E-  14  RAD/SEC 

0388 

24, 2011 

77767 

1 

24t  2012 

4121  5 

1 

NOD  I n 

2DEC 

-.960101269  REVS 

B-0 

= -6.03249419 

RAD 

0389 

0389 

24, 2013 

66331 

0 

0390 

24, 2014 

15237 

0 

FSUBO 

2DEC 

.415998375  REVS 

CD 

1 

o 

= 2.61379488 

RAD 

24*2015 

26751 

0 

0391 

24,2016 

02052 

1 

BSUBO 

2DEC 

.0651205006  REVS 

B-0 

= 0.409164173 

RAD 

0391 

24, 2017 

35713 

1 

03  02 

24, 2 020 

37116 

0 

W EARTH 

2DEC 

.973561855  REVS/CSEC 

3+23=7.29211515  E 

-5  RAD/SEC 

0392 

24,2021 

32630 

0 

% 

* 

» 

* 

► 

> 


I 
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L I NPIT /OUTPUT  CHANNEL  BIT  DESCRIPTIONS  USER'S  PAGE  NO.  1 EO  S4 

A000001 

R000002  ***  CHANNEL  DESCR I PT IONSE  WORDS  ARE  ALLOCATED  IN  ERASABLE  ASSIGNMENTS  *** 


R000005  CHANNEL  1 IDENTICAL  TO  COMPUTER  REGISTER  L (0001  ) 

A0001 

R0002  CHANNEL  2 IDENTICAL  TO  COMPUTER  REGISTER  Q (0002) 

A0003 

R 0004  CHANNEL  3 HISCALAR;  INPUT  CHANNEL;  MOST  SIGNIFICANT  14  BITS  FROM  33  STAGE  BINARY  COUNTER.  SCALE 

R0006  FACTOR  IS  B23  IN  CSEC,  SO  MAX  VALUE  ABOUT  23.3  HOURS  AND  LEAST  SIGNIFICANT  BIT  5.12  SECS, 

A0008 

R0009  CHANNEL— 4 LOSCAUAR ; INPUT  CHANNEL;  NEXT  MOST  SIGNIFICANT  14  RITS  FROM  THE  33  STAGE  BINARY  COUNTEP 

R0011  ASSOCIATED  WITH  CHANNEL  3.  SCALE  FACTOR  IS  B9  IN  CSEC.  SO  MAX  VAL  IS  5.12  SEC  AND  LEAST 

ROO 1 3 SIGNIFICANT  BIT  IS  1/3200  SEC.  SCALE  FACTOR  OF  D.P.  WORD  WITH  CHANNEL  3 IS  B23  CSFC. 

A0015 

ROO  16  CHANNEL  5 PYJETS;  OUTPUT  CHANNEL;  PITCH  RC S JET  CONTROL.  (REACTION  CONTROL  SYSTEM)  USES  BITS  1-8. 

A001P 

R0019  CHANNEL  6 ROLLJETS;  OUTPUT  CHANNEL;  ROLL  RCS  JET  CONTROL.  (REACTION  CONTROL  SYSTEM)  USES  BIT  1-8. 

A0021 

R 0022  CHANNEL  7 SUPERBNK;  OUTPUT  CHANNEL;  NOT  RESET  BY  RESTART;  FIXED  EXTENSION  BITS  USED  TO  SELECT  THE 

R0024  APPROPRIATE  FIXED  MEMORY  BANK  IF  FBANK  IS  30  OCTAL  OR  MORE.  USES  BITS  5-7. 

A0026 

R0027  CHANNEL  10  OUTG;  OUTPUT  CHANNEL;  REGISTER  USED  TO  TRANSMIT  LATCHING-RELAY  DRIVING  INFORMATION  FOR 

R0029  THE  DISPLAY  SYSTEM.  BITS  15-12  ARE  SET  TO  THE  P PW  NUMBER  (1-14  OCTAL)  OF  THE  RELAY  TO  BE 

R0031  CHANGED  AND  BITS  11-1  CONTAIN  THE  RFOUIRED  SETTINGS  FOR  THE  RELAYS  IN  THE  ROW. 

A0033 

R0034  CHANNEL  11  DSALMOUT;  OUTPUT  CHANNEL;  REGISTER  WHOSE  BITS  ARE  USED  FOR  ENGINE  ON-OFF  CONTROL  AND  TO 

R0036  DRIVE  INDIVIDUAL  INDICATORS  OF  THE  P T S PI  AY  SYSTEM.  BITS  1-7  ARE  A RELAYS. 

A0038 

R0039  BIT  1 ISS  WARNING 

A0040 

R0041  BIT  2 LIGHT  COMPUTER  ACTIVITY  LAMP 

A0042 

R 0 0 4 3 BIT  3 — LIGHT  UPLINK  ACTIVITY  LAMP 

A0044 

R0045  BIT  4 LIGHT  TEMP  CAUTION  LAMP 

A0046 

R0047  BIT  5 LIGHT  KEYBOARD  RELEASE  LAMP 

A0048 

ROO 49  BIT  6 FLASH  VERB  AND  NOUN  LAMPS 

A0050 

R0051  BIT  7 LIGHT  OPERATOR  ERROR  LAMP 


» 
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I NPLT /OUTPUT  CHANNEL 

BIT  DESCRIPTIONS 

USER'S  PAGE  NO.  2 

EO  S4 

A0052 

R0053 

BIT  8 

SPARE 

R0055 

A0056 

BIT  9 
PIT  10 

TEST  CONNECTOR  CUTBIT 
CAUTION-  RESET 

A0058 

R0059 

/\nnAn 

BIT  11 

SPARE 

R0061 
A 0062 
P 0063 

BIT  12 
BIT  13 

SPARE 

ENGINE  ON  - 

A0064 

R0065 

AnnAA 

BIT  14 

ENGINE  OFF 

R0067 
A 0068 

BIT  15 

SPARE 

R0069 
A0071 
R 007? 

CHANNEL  12 
BIT  1 

CHAN12 ; OUTPUT  CHANNEL;  BITS  USED  TO  DRIVF  NAVIGATION 
ZERO  PR  CDU;  CDU'S  GIVE  RRADAR  INFORMATION  FOR  LM 

AND  SPAECRAFT  HARDWARE 

A0073 

R0074 

A0075 

BIT  2 

FNABLE  CDU  RADAR  ERROR  COUNTERS 

R0076 

A0077 

R0078 

BIT  3 
BIT  4 

NOT  USED 

COARSE  ALIGN  ENABLE  OF  IMU 

A0079 
R 0080 
iOOR  1 

BIT  5 

ZERO  IMU  CDU'S 

R0082 

BIT  6 

ENABLE  IMU  ERROR  COUNTER,  CDU  ERROR  COUNTFR. 

A0083 

R00P4 

BIT  7 

SPARE- 

A0085 

R 0086 

BIT  8 

DISPLAY  INERTIAL  DATA 

A 00  8 7 

R0088 

BIT  9 

-PITCH  GIMBAL  TRIM  ( BFLL  MOTION)  DESCENT  ENGINE 

A0089 

R 0090 

BIT  LO 

+PJTCH  GIMBAL  TRIM  (BELL  MOTION)  DESCENT  FNGINE 

A0091 

R0092 

BIT  11 

-ROLL  GIMBAL  TRIM  (BELL  MOTION)  DESCENT  ENGINF 

A00-93 

R0094 

BIT  12 

+ROLL  GIMBAL  TRIM  (BFLL  MOTION)  DESCENT  ENGINE 

A0095 

R 0096 

BIT  13 

LR  POSITION  2 COMMAND 

A0097 

R0098 

BIT  14 

ENABLE  RENDESVOUS  RADAR  LOCK-ON; AUTO  ANGLE  TRACK'G 

A0099- 

R0100 

BIT  15 

ISS  TURN  ON  DELAY  COMPLETE 

AO  10 1 


I 
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L INPUT/OUTPUT  CHANNEL  BIT  DESCRIPTIONS 


USER'S  PAGE  NO.  3 EO  S4 


R0102 
A0103 
R0104 
R0105 
R0106 
A0107 
R0108 
A0109 
R0110 
AO  1 1 1 
R01  12 
AO  1 1 3 
R0114 
AO  1 1 5 
R0116 
A0117 
R0118 
A0119 
R0120 
AO  1 2 1 
R0122 
A0123 
R 01 24 
AO  1 2 5 
R0126 
A0127 
R0128 
A0129 
R0130 
A0131 


CHANNEL  13  CHAN13;  OUTPUT  CHANNEL 

BIT  i RADAR  C PROPER  SFTTING  OF  THE  A,B,C  MATRIX 

BIT  2 RADAR  B SELECTS  CERTAIN  RADAR 

BIT  3 RADAR  A PARAMETERS  TO  BE  READ. 

BIT  4 RADAR  ACTIVITY 

BIT-5 NOT-  USED (CONNECTS  AN  ALTERNATE  INPUT  TO-UPLINK) 

BIT  6 BLOCK  INPUTS  TO  UPLINK  CELL 

BIT  7 DOWNLINK  TELEMETRY  WORD  ORDER  CODE  BIT 

B IT-8  RHC COUNTER  ENABLE  (READ  HAND  C 0 NT ROL L ER  -ANGLES ) 

BIT  9 START  RHC  READ  INTO  COUNTERS  IF  BIT  8 SET 

BIT  10  TEST  ALARMS,  TEST  DSKY  LIGHTS 

BIT  11  ENABLE  STAN06Y 

BIT  12  RESET  TRAP  31-A  ALWAYS  APPEAR  TO  BE  SET  TO  0 

BIT  13  RESET  TRAP  31-B  ALWAYS  APPEAR  TO  BE  SET  TO  0 

8-I-T — 1-4  RESET  TfiAP  32  ALWAYS  APPEAR  TO  BE  SET  TO  0 

BIT  15  ENABLE  T6  RUPT 


R0132 
AO  1 34 
R0135 
AO  1 36 
R0137 
A 01  38 
R0139 
A0140 
R0141 
AO  142 
R0143 
A0144 
R0145 
AO  1 46 
R0147 
R0148 
AO  1 49 
KOI  50 
A0151 


CHANNEL 

BIT  1 

BEU2 

BIT  3 

B IT  4 

B U 5 

BIT  6 

BIT  7 
BIT  8 


14 


CHAN14;  OUTPUT  CHANNEL;  USED  TO  CONTROL  COMPUTER  COUNTER  CELLS  ( CDU , GYRO  , S P ACECR AF T FUNC . 
OUTLINK  ACTIVITY  (NOT  USED) 

ALTITUDE  RATE  OR  ALTITIDE  SELECTOR  _ 

ALTITUDE  METER  ACTIVITY 

THRUST  DRIVE  ACTIVITY  FOR  DESCENT  ENGINE 
SPARE 

GYRO  ENABLE  POWER  FOR  PULSES 

GYRO  SELECT  B PAIR  OF  BITS  IDENTIFIES  AXIS  OF  - 

GYRO  SELFCT  A GYRO  SYSTEM  TO  BE  TORQUED. 


BIT  9 


GYRC  TORQUING  COMMAND  IN  NEGATIVE  DIRECTION 
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USER'S  PAGE  NO. 

4 

EO  S4 

R0152 
AO  1 53 
R 0 1 54 

BIT  10 
BIT  11 

GYRO  ACTIVITY 
DRIVE  C DU  S 

AO  1 5 5 
R0156 

/\ni  F7 

BIT  12 

DRIVE  C DU  T 

R0158 

A0159 

BIT  13 
BIT  14 

DRIVE  C DU  Z 
DRIVE  C DU  Y 

A0161 

R0162 

A0163 

BIT  15 

DRIVE  C DU  X 

R0164 
R 01  66 

CHANNEL  15 

MNKEYIN;  INPUT  CHANNEL5KEY  CODE  INPUT  FROM  KEYBOARD  OF 
PROGRAM  INTERRUPT  #5  IS  RECEIVED.  USES  BITS  5-1 

DSKY,  SENSED  BY 

PROGRAM  WHEN 

A0167 

r^AMMFI  1A 

W/H/KFVIM:  INPUT  FHANNFI  : OPTICS  MARK  INFORMATION  AND  NAVIGA  ION  PANEL 

DSKY 

I CMi  OR  THRUST 

R0170 
A0172 
sni  77 

BIT  1 

CONTROL  (LM>  SENSED  BY  PROGRAM  WHEN  PROGRAM  I NTER-R UPT 
NOT  ASSIGNED 

#6  IS  RECEIVED. 

USES 

BITS  3-7  ONLY. 

A0174 
R0175 
AO  1 76 

BIT  2 

NOT  ASSIGNED 

R0177 

A0178 

P0179 

BIT  3 
BIT  4 

OPTICS  X-AXIS  MARK  SIGNAL  FOR  ALIGN  OPTICAL  TSCOPE 
OPTICS  Y-AXIS  MARK  SIGNAL  FOR  AOT 

A0180 
R0181 
ADI  R? 

BIT  5 

OPTICS  MARK  REJECT  SIGNAL 

R0183 

A0184 

R0185 

BIT  6 
BIT  7 

DESCENT+  ; CREW  DESIRED  SLOWING  RATE  OF  DESCENT 
DESCENT-  ; CREW  DESIRED  SPEEDING  UP  RATE  OF  O' C ENT 

A0186 

R01  87 

NFTF:  A 1 1 HITS  IN  CHANNFI  9 70-77  ARE  I N\/  FR  T F H AS  S F NS  FT)  BY  THF  PROGRAM.  SO  THAT  A 

VALUE 

OF  ZERO  MEANS 

R01  89 
A0190 

THAT  THE  INDICATED  SIGNAL  IS  PRESENT. 

R0191 
A0192 
R 01 93 

CHANNEL  30 
BIT  1 

INPUT  CHANNEL 

ABORT  WITH  DESCENT  STAGE 

AO  1 9 A 
R0195 
A0196 

BIT  2 

UNUSED 

R0197 
A 01  98 
R0199 

BIT  3 
BIT  A 

ENGINE  ARMED  SIGNAL 

ABORT  WITH  ASCENT  ENGINE  STAGE 

A0200 

R0201 

BIT  5 

AUTO  THROTTLE;  COMPUTER  CONTROL  OF  DESCENT  ENGINE 

GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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A0202 

R0203 

BIT  6 

R0205 

A0206 

p Q?n  7 

SIT  7 
BIT  8 

A0208 
R 0209 

BIT  9 

R0211 

A0212 

BIT  10 
BIT  11 

A0214 

R0215 

BIT  12 

R0217 
A0218 
R02  1 Q 

BIT  13 
BIT  14 

A0220 

R0221 

AD??? 

BIT  15 

R0223 
R 022  5 

CHANNEL 

A0226 

R0227 

R0229 

BIT  1 

A0231 

R0232 

A0233 

B IT  2 

R0234 

A0236 

sn?37 

BIT  3 
BIT  4 

A0238 

R0239 

R0241 

BIT  5 

A0243 
R0244 
A fl  ? 4 8 

BIT  6 

R0246 

A0247 

R0248 

BIT  7 
BIT  8 

A0249 
R 02  50 
A 0 2 6 1 

BIT  9 

P.0252 

A0253 

R0254 

3 I T 10 
BIT  1 1 

A0255 

R0256 

BIT  12 

DISPLAY  INERTIAL  DATA 
RR  CDU  FAIL 
SPARE 

IMU  OPERATE  WITH  NO  MALFUNCTION 
LM  COMPUTER  (NOT  AGS)  HAS  CONTROL  OF  L N 
IMU  -CAGE  COMMAND  TO  DRIVE  IMU  GIMBAL  ANGLES  TO  0. 

IMU  CDU  FAIL  (MALFUNCTION  OF  IMU  CDU, S ) 

IMU  FAIL  (MALFUNCTION  OF  IMU  STABILIZATION  LOOPS) 

I SS  TURN  ON  REQUESTED 

TEMPERATURE  OF  STABLE  MEMBER  WITHIN  DESIGN  LIMITS 

INPUT  CHANNEL;  BITS  ASSOCIATED  WITH  THE  ATTITUDE  CONTROLLER,  TRANSLATIONAL  CONTROLLER , 
AND  SPACECRAFT  ATTITUDE  CONTROL;  USED  BY  RCS  DAP 

ROTATION  (BY  RHC ) COMMANDED  IN  POSITIVE  PITCH  DIRECTION;  MUST  BE  IN  MINIMUM  IMPULSE  MODE. 
ALSO  POSITIVE  ELEVATION  CHANGE  FOR_  LANDING  POINT  DESIGNATOR 

AS  BIT  1 EXCEPT  NEGATIVE  PITCH  AND  ELEVATION 

ROTATION  (BY  RHC)  COMMANDED  IN  POSITIVE  YAW  DIRECTION;  MUST  BE  IN  MINUMUM  IMPULSE  MODE. 

AS  BIT  3 EXCEPT  NEGATIVE  YAW 

ROTATION  (BY  RHC)  COMMANDED  IN  POSITIVE  ROLL  DIRECTION;  MUST  BE  IN  MINIMUM  IMPULSE  MODE. 
ALSO  POSITIVE  AZIMUTH  CHANGE  FOR  LANDING  POINT  DESIGNATOR 

AS  BIT  5 EXCEPT  NEGATIVE  ROLL  AND  AZIMUTH 

TRANSLATION  IN  +X  DIRECTION  COMMANDED  PY  T HC 

TRANSLATION  IN  -X  DIRECTION  COMMANDED  BY  T HC 

TRANSLATION  IN  +Y  DIRECTION  COMMANDED  BY  THC 

TRANSLATION  IN  -Y  DIRECTION  COMMANDED  BY  THC 

TRANSLATION  IN  +Z  DIRECTION  COMMANDED  BY  THC 

TRANSLATION  IN  -Z  DIRECTION  COMMANDED  BY  THC 
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A 02  5 7 
R0258 

BIT  13 

ATTITUDE  HOLD  MODE  ON  SCS  MODE  CONTROL  SWITCH 

A0259 

R0260 

BIT  14 

AUTO  STABILIZATION  OF  ATTITUDE  ON  SCS  MODE  SWITCH 

A0261 

BIT  15 

ATTITUDE  CONTROL  OUT  OF  DETENT  ( RHC  NOT  IN  NEUTRAL 

A0263 

INPUT  CHANNEL- 

R02  6 A 
A0265 
R0266 

Ar>?^7 

BIT  1 

THRUSTERS  2 £ 4 DISABLEO  BY  CREW 

R0268 
A0269 
R 02  7n 

B IT  2 
BIT  3 

THRUSTERS  5 £ 8 DISABLED  BY  CREW 
THRUSTERS  1 £ 3 DISABLED  BY  CREW 

A0271 

R0272 

40273 

BIT  4 

THRUSTERS  6 £ 7 DISABLED  BY  CREW 

R0274 
A0275 
p r»  2 76 

BIT  5 
B IT  6 

THRUSTERS  14  £ 16  DISABLED  BY  CREW 
THRUSTERS  13  £ 15  DISABLED  BY  CREW 

A0277 

R0278 

A0279 

BIT  7 

THRUSTERS  9 £ 12  DISABLED  BY  CREW 

R 02  80 
A0281 
R0282 

BIT  8 
BIT  9 

THRUSTERS  10  £ 11  DISABLED  BY  CREW 
DESCENT  ENGINE  GIMBALS  DISABLED  BY  CREW 

A0284 
R02  85 
402  86 

BIT  10 

APPARENT  DESCENT  ENGINE  GIMBAL  FAILURE 

R0287 

A0288 

BIT  14 

INDICATES  PROCEED  KEY  IS  DEPRESSED 

R0289 

R0291 

4D293 

CHANNEL  33 

CHAN33;  INPUT  CHANNEL;  FOR  HARDWARE  STATUS  AND  COMMAND  INFORMATION.  BITS 
FLOP  BITS  RESET  BY  A CHANNEL  "WRITE"  COMMAND  THAT  ARF  RESET  BY  A RESTART 

15-11  ARE  FLIP- 
£ BY  T4RUPT  LOOP. 

R 0294 
A 02  95 

R 02  94 

BIT  1 
BIT  2 

SPARE 

RR  AUTO-POWER  ON 

A0297 

R0298 

A0299 

BIT  3 

RR  RANGE  LOW  SCALE 

R 0300 
A0301 
R0302 

BIT  4 
BIT  5 

RR  DATA  GOOD 
LR  RANGE  DATA  GOOD 

A0303 
R 0304 
A0305 

BIT  6 

LR  P0S1 

R0306 

A0307 

BIT  7 

LR  P0S2 
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USER'S  PAGE 

NO.  7 EO  S4 

R0308 

A0309 

BIT  8 
BIT  9 

LR  VEL  DATA  GOOD 
J_R  QANGF  | nw  SCAI  F 

A0311 

R0312 

BIT  10 

BLOCK  UPLINK  INPUT 

A \J-D  1 D 

R0314 

A0315 

BIT  11 
BIT  12 

UPL  INK  TOO  FAST 
nowN( ink  Tnn  fast 

A0317 

R0318 

BIT  13 

PIPA  FAIL 

R0320 

A0322 

ar\-kTX 

BIT  14 
R TT  IS 

WARNING  OF  REPEATED  ALARMS: 
1 GC  nSCTlLATOR  STOPPED 

RESTART .COUNTER  FAIL,  VOLTAGE  FAIL, AND 

SCALAR  DOUBLF. 

A0324 

R0325 
R0328 
A 0330 


CHANNEL  34- 
CHANNEL  35 


GNT  Ml;  OUTPUT  CHANNEL;  DOWNLINK  1 FIRST-OE  TWO  WORDS  SERIALIZATION. 
DNT  M2;  OUTPUT  CHANNEL  DOWNLINK  2 SOCOND  OF  TWO  WORDS  SERIALIZATION 
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L FLAGWORO  ASSIGNMENTS  USER'S  PAGE  MO.  1 

A0001 


PAGE  77 
EO  S4 


R0002 

R0004 

R0006 

R0008 


FLAGWORDS  0-11 


ARE  DOWNLINKED  AND  CAN  BE  SET  AND  Cl  EARED  BY  UP-FLAG  AND  DOWN-FLAG  INSTRUCTIONS  IN  THE 
INTERPRETER.  THESE  WERE  PREVIOUSLY  LISTED  UNDER  "INTERPRETIVE  SWITCH  BIT  ASSIGNMENTS"  IN 
THE  ERASABLE  LOG  SECTION.  FLAGWORDS  12  & 13  W EREPRE V I OUSL Y P.  ADMODES  AND  DAP800LS  AND 
ARE  STILL  DOWNLINKED  UNDER  THOSE  NAMES. 


A0009 

RT3QL&  ALPHABET  ICAL  LIST  OF  FLAGWORDS 


. 

nFf  MilMRFR 

BIT 

AMD  FI  Af; 

BIT  NAME 

R0012 

ACCCKFLG 

2 07 

BIT 

3 

FLAG 

13 

ACCSOKAY 

a r r l—  ? fj 

1 99 

B I T 

1 1 

FLAG 

13 

ACC40R2X 

R 00  14 

f~\  L C 1 — 1 1 — 

ACMODFLG 

0 32 

BIT 

13 

FLAG 

2 

ACMOPBIT 

R 001 5 

ALTSCALE 

1 86 

B I T 

9 

FLAG 

12 

ALTSCBIT 

ROO] 

A NT  EJM  F L G 

l 83 

_8I  T 

12 

FLAG 

12 

ANTENBI T 

R 0 0 1 7 

ACPBSFLG 

205 

B I T 

5 

FLAG 

13 

AORBSYST 

R0018 

ACRBTFLG 

2 00 

BIT 

10 

FLAG 

13 

AORBT  RAN 

R0019 

APSES  Vi 

1 30 

BJ  T 

5 

FLAG 

8 

APSESBIT 

R0020 

APSFL AG 

1 52 

B I T 

1 3 

FLAG 

10 

APSFLBIT 

R0021 

ASTNFLAG 

1 08 

BIT 

12 

FLAG 

7 

ASTNBIT 

R0022 

ATTFL AG 

1 04 

BLT 

1 

FLAG 

6 

ATTFL  B I T 

R0023 

ALTCMODE 

1 93 

BIT 

2 

FLAG 

12 

AUTOMBIT 

R0024 

AUTR1FLG 

2 09 

BIT 

1 

FLAG 

13 

AUTRATE1 

Rnn2tr 

A U T R 2 E 1 G 

2 C8 

-BIT 

2 

FLAG 

1 3 

AUTPATE2 

R0026 

AUXFLAG 

1 03 

BIT 

2 

FLAG 

6 

AUXFLBI T 

R0027 

AVEGFLAG 

1 15 

BIT 

5 

FLAG 

7 

AVEGFBIT 

ROO  ? ft 

avfw  r nsw  . 

1 49 

BIT  1 

FLAG 

9 

AVEMDBI T 

R 0029 

AVFLAG 

040 

BIT 

5 

FLAG 

2 

AVFLBIT 

R0030 

C ALCMAN2 

0 43 

BIT 

2 

FLAG 

2 

CALC2BIT 

R0031 

C ALCMAN3 

0 4? 

BIT 

3 

FLAG 

2 

CALC3B I T 

R 00  32 

CDESFLAG 

1 80 

B I T 

15 

FLAG 

12 

CDESB  IT 

R0033 

C MCCNFLG 

1 23 

BIT 

12 

FLAG 

8 

C MDON  BIT 

R0034 

CCGAFLAG 

1 31 

BIT 

4 

FLAG 

8 

COGAFBI T 

R0035 

CCMPUTER 

082 

BIT 

8 

FLAG 

5 

CDMPTBIT 

R0036 

CPHIFLAG 

000 

BIT 

15 

FLAG 

0 

CPHIBIT 

R0037 

CSMDKFLG 

1 97 

BIT 

1 3 

FLAG 

13 

CSMDOCKD 

R0038 

CULTFLAG 

0 53 

B I T 

7 

FLAG 

3 

CULTBIT 

R0039 

CYCLESW 

035 

BIT 

10 

FLAG 

2 

CYCLFBIT 

R0040 

DAPBOCLS 

FLGWRD1 3 

R0041 

DBSELFLG 

206 

B I T 

4 

FLAG 

13 

DBSEt  ECT 

R 0042 

DES  IGFLG 

1 85 

BI  T 

10 

FLAG 

12 

DES  I GBIT 

R0043 

- DICFLAG 

016 

BIT 

14 

FLAG 

DIDFLBIT 

P0044 

DIMOFLAG 

059 

BIT 

1 

FLAG 

3 

DIMOBIT 

R0045 

DMENFLG 

081 

BIT 

9 

FLAG 

5 

DMENFBI T 
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R0046 

DRIFTDFL 

202 

BI  T 

8 

FLAG 

13 

R 0047 

DRIFTFLG 

0 30 

BI  T 

15 

FLAG 

2 

R0048 

0 75 

B I T 

1 5 

FLAG 

5 

06CR9FLG 

058 

BIT 

2 

FLAG 

3 

R0049 

R0050 

ENGONFLG 

0 83 

BIT 

7 

FLAG 

5 

0 17 

BI  T 

1 3 

FLAG 

4. 

R0052 

ETPIFLAG 

038 

BIT 

7 

FLAG 

2 

R0054 

FINALFLG 

0 39 

BIT 

6 

FLAG 

2 

p QQRH 

p I p ST  R G 

0 94 

ft  J T 

1 1 

FLAG 

6 

R0056 

FLAGWRCO 

( 000-014) 

(STATE 

+ 0) 

R0057 

FLAG^RCl 

( C15-029 ) 

(STATE 

+ 1) 

ROOSP 

FL A GW R 02 

( 030-044) 

(STATE 

+ 2) 

R0059 

F L AG*J  R D3 

( 045-059 ) 

(STATE 

+ 3) 

R0060 

F L AGWRD4 

I 060-074) 

(STATE 

+4) 

r 0 n f.  ] 

FL  AGWRP5 

( C75-089 ) 

(STATE 

+ 5) 

R0062 

FLAGWRD6 

( 090-104 ) 

(STATE 

+ 6) 

R0063 

FL AGWRD7 

( 105-119) 

( STATE 

+ 7) 

pi  AP'A/Rr.ft 

( ] ?n- \ 34 ) 

(STATE 

+ 8D ) 

R0065 

FL  AGnlRD9 

t 135-149) 

(STATE 

+9D ) 

R0066 

FLAP 

142 

BI  T 

8 

FLAG 

9 

p OQ  a 7 

pi  nui?.ni n 

( 150-164) 
( 165-179 ) 

( STATE 

+ LOO  ) 

R0068 

FLGWRD 1 1 

(STATE 

+ 110) 

R0069 

FLGWRD12 

( 180-194) 

(STATE 

+ 12D  ) 

R0070 

R0071 

FLGWRD 13 

( 195-209) 

( S T A T F 

+ 130  ) 

FL  PC 

1 38 

BIT 

12 

FLAG 

9 

R0072 

FLP  I 

1 39 

BI  T 

1 1 

FLAG 

9 

R 0073 

FLRCS 

1 49 

BIT 

1 0 

FLAG 

9 

R 00  74 

FLUNDISP 

l 25 

BI  T 

10 

FLAG 

8 

R0075 

FLVR 

1 36 

BIT 

14 

FLAG 

9 

R0076 

FLZCNEO 

1 44 

BIT 

6 

FLAG 

9 

R0077 

FREEFLAG 

0 12 

BI  T 

3 

FLAG 

0 

R0078 

GLCKFAIL 

046 

BIT 

14 

FLAG 

3 

R0079 

GMBDRVSW 

0 95 

BIT 

10 

FLAG 

6 

R0080 

GUESS W 

028 

BI  T 

2 

FLAG 

1 

R0081 

HFLSHFLG 

1 79 

BIT 

1 

FLAG 

11 

R0082 

I DL EE  LAG 

L-L3 

BI  T 

7 

FLAG 

7 

R0083 

IGNFLAG 

107 

BI  T 

13 

FLAG 

7 

R0084 

IMPULSW 

0 36 

BIT 

9 

FLAG 

2 

R0085 

I ML  SE 

0 07 

BI  T 

8 

R AG 

o 

R0086 

INFINFLG 

128 

BIT 

7 

FLAG 

8 

R0087 

I N I TALGN 

1 33 

BIT 

2 

FLAG 

8 

R0088 

INTFL AG 

1 51 

BI  T 

1 4 

FLAG 

10 

R0089 

I NTYPFLG 

056 

BIT 

4 

FLAG 

3 

R0090 

ITSWICH 

l 05 

BIT 

15 

FLAG 

7 

R0091 

J SWITCH 

001 

BI  T 

1 4 

FLAG 

o 

R0092 

LETABCPT 

141 

BIT 

9 

FLAG 

9 

R 0093 

L MCCNFLG 

1 24 

BIT 

l 1 

FLAG 

8 

R0094 

LQK.CNSW- 

0 10 

BI  T 

5 

FLAG 

o 

R0095 

LCSCMFLG 

0 33 

BIT 

12 

FLAG 

2 

R0096 

LRALTFLG 

1 90 

BI  T 

5 

FLAG 

12 
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DR  IFTBIT 

DRFTBIT 

DSKYFBIT 

D60R9BI T 

ENGONBIT 

ERADFB1T 

ETPIRIT  EQUIVALENT  FLAG  NAME:  OPTNSW 

FINALB1T 

FIRSTB1T 


FLAPB IT 


FLPCBIT 
FLPIBIT 
FLRCSBIT 
FLUNDBI T 
FL VRBIT 
FLZONBIT 
FPEEFBI T 
GLOKFBI T 
GMBDRBI T 
GUESSBI T 
HFLSHBI T 
IDLEFBIT 
IGNFLBI T 
IMPULBI T 
IMUSE61T 
INFINBIT 
INITABIT 
INTFLBI T 
INTYPRI T 
ITSWB IT 
JSWCHBI T 
LETA8BI T 
LMOONBI T 
LOKONBI T 
LOSCMBI T 
LR ALT  BI  T 
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R0097 

LREYPASS 

165 

BIT 

15 

FLAG 

11 

R0098 

LRINH 

1 72 

BIT 

8 

FLAG 

11 

D AQOQ 

1 89 

BI  T 

_6 

FLAG 

12 

KUUVV 

R0100 

Lo  rU.)ri.u 

LRVELFLG 

l 87 

31  T 

8 

FLAG 

12 

R0101 

LUNAFLAG 

048 

BI  T 

12 

FLAG 

3 

d n l Pi  9 

M AM  IF  i AR 

1 06 

SI  T 

14- 

—FLAG 

_X_ 

KU1u£ 

R0103 

T-i-M  IN  UF  L MU 

MGL VFLAG 

088 

BIT 

2 

FLAG 

5 

R0104 

M ICAVFLG 

1 48 

BIT 

2 

FLAG 

9 

d m n ^ 

M i r FI  AG 

002 

BIT 

13 

-FLAG 

-O— 

rs\J  I U Zs 

R0106 

11  l L-  1 M O 

M I C IF  LAG 

1 47 

BIT 

3 

FLAG 

9 

R0107 

MKCVFLAG 

072 

BIT 

3 

FLAG 

4 

R0108 

MPF  NF 1 AG 

0 03 

BIT 

12 

FLAG 

0 

R0109 

4 1 v_  1 \ 1 L HU 

MRKIDFLG 

0 60 

BIT 

15 

FLAG 

4 

R0110 

MRKNVFLG 

0 66 

BIT 

9 

FLAG 

4 

R01 1 1 

. MRUPTFLG 

0 70 

BIT 

..5...I 

FLAG  ■ 

4 

R0112 

MUNFLAG 

097 

BIT 

8 1 

FLAG  i 

S 

R0113 

MWA  ITFLG 

0 64 

BIT 

11 

FLAG 

4 

P.01.1.4 

NEEDLFLG 

0 11  _ 

^BIT- 

4 

FLAG 

0 

R0115 

NEK IFLG 

1 22 

BIT 

13 

FLAG 

8 

R01  16 

NJETSFLG 

0 15 

BIT 

15 

FLAG 

R0117 

NCDOFLAG 

0 44 

BIT 

J 

FLAG- 

2 

R0118 

NOLRREAD 

170 

BI  T 

10 

FLAG 

11 

R0119 

NOR  MS  W 

1 10 

81  T 

10 

FLAG 

7 

R0120 

NCRRMCN 

0 86 

BT  T 

4 

El  AG 

.5 

R 012 1 

N0P29FLG 

049 

BIT 

11 

FLAG 

3 

R0122 

NCTHRCTL 

078 

BIT 

12 

FLAG 

5 

R0123 

NOUPFLAG 

0 24 

BIT 

6 

FLAG 

1 

R0124 

NRMNVFLG 

067 

BIT 

8 

FLAG 

4 

R 01 2 5 

NRMIDFLG 
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UNREASONABLE,  VELOCITY 

BYPASS  X VELOCITY 
UPDATE  ON  NEXT  PASS 


(L)  ( R 12 ) 

PAST  H I GATE  PREH1 GATE 


(L) ( R 1 2 ) 

LANDING  RADAR  LR  NOT  REPOSITIONING 

REPOSITIONING; 

BYPASS  UPDATE 


( L ) 1R 1 2 ) 

BELOW  LIMIT  ABOVE  LIMIT  DO 

INHIBIT  X AXIS  NOT  INHIBIT 

OVERRIDE 


LANDING  RADAR  UP-  LR  UPDATES  INHIBITED 

DATES  PERMITTED  BY  ASTRONAUT 

BY  ASTRONAUT 


(L)  I R 1 2 ) 

LR  VELOCITY  LR  VELOCITY  MEASURE 

MEASUREMENT  MADE  NOT  MADE 


( L ) t R 1 2 ) 

OK  TO  REAO  LR  DO  NOT  READ  LR  RANGE 

RANGE  OATA  OATA 


(L)  ( R 1 2 ) 

OK  TO  READ  LR  DO  NOT  READ  LR 

VELOCITY  DATA  VELOCITv  QATA 


(L) ( R l 2 ) 

LR  ALTITUDE  LR  ALTITUDE  MEASURE 

MEASUREMENT  MADE  NOT  MADE 


GAP 
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FLAGWORD  ASSIGNMENTS  USFR'S  PAGE  NO.  25  EO  S4 


0990 

0991 
A0992 
A0993 

REF 

10 

LAST 

97 

0261 

4751 

SCALBAD  = 
SCABBIT  = 

1 77D 
BIT3 

LR  LOW  SCALE  DIS- 
CRETE NOT  PRESENT 
WHEN  IT  SHOULD  BE 

LR  SCALE  DISCRETE 
APPEARS  OK 

BIT  2 

FLAG 

14 

( L ) ( R 12  ) 

A0994 

0995 

0996 
40997 

REF 

10 

LAST 

97 

0262 

4752 

VFLSHFLG  = 
VFLSHBIT  = 

1 780 
BIT2 

LR  VELOCITY  FAIL 
LAMP  SHOULD  BE 
FLASHING 

LR  VEL  FAIL  LAMP 
SHOULDN'T  FLASH 

A0998 

A HQ  QQ 

B-LT 1 

FL  AG 

11 

( L ) ( R 1 2 ) 

A U7V7 
1000 
1001 
MflAI 

REF 

10 

LAST 

98 

0263 

4753 

HFLSHFLG  = 
HFLSHBIT  = 

1 79D 
BIT1 

LR  ALTITUDE  FAIL 
LAMP  SHOULD  BE 
FLASHING 

LR  ALTITUDE  FAIL 
LAMP  SHOULD  NOT  BE 
FLASHING 

A 1003 

1004  REF  1 QUO  RAOMOOES  EQUALS  FLGWRD12  RAOAR  FLAG  WORD 

A 1005 


1006 

REF 

1 3 

LAST 

9 9 

0110 

fi  ftty&ni  7 - 

STATE  +1  2D 

( 180  - 194 ) WAS 

R ADMODES 

A1007 

( SET  ) 

(RESET) 

A 1 008 

1009 

1010 

REF  - 

10 

LAST 

99 

0264 
4 73  5 

CDESFLAG  = 
CDESBIT  = 

BIT  15  FLAG 
l SOD 
B I T 1 5 

12 

CONTINUOUS  DESIG- 
NATE. LGC  COMMANDS 

LGC  CHECKS  FOR  LOCK- 
ON  WHEN  ANTENNA 

A 10 1 1 
A 1012 
A 10 1 3 

RR  REGARDLESS  nF 
LOCK-ON 

BEING  DESIGNATED 

A 1 0 1 4 
10  15 

0 ?65 

RFMODFLG  = 

BIT  14  FLAG 
1 8 1 D 

12 

CHANGE  IN  ANTFNNA 

NO  REMODE  REQUESTED 

1016 
A 10 17 
A1  01  8 

REF 

10 

LAST 

98 

4736 

REMODBIT  = 

BIT14 

MODE  BEEN  REQUESTFD 
I.E.,  REMODE 

OR  OCCURRING 

A 1019 
1020 

0266 

RCDUOFLG  = 

BIT  13 
1 82D 

FLAG 

12 

RR  CDU'S  BEING 

RR  CDU'S  NOT  BFING 

1021 
A 1022 

REF 

12 

LAST 

98 

4737 

RCOUOBIT  = 

BIT1  3 

ZEROED 

ZEROED 

A 1023 

1024 

1025 

REF- 

11 

LAST 

100 

0267 
4 740 

ANTENFLG  = 
ANTENBIT  = 

8 IT  12 
1 83  D 
BIT12 

FLAG 

12 

RR  ANTENNA  MODE  IS 
MODE  2 

RR  ANTENNA  IN  MODE  1 

A 1026 

A 102  7 

BIT  11 

FLAG 

12 

1028 

1029 

REF 

11 

LAST 

100 

0270 

4 741 

REPOSMON  = 
REPOSBIT  = 

1 84D 
BIT1  1 

REPOSITION  MONITOR. 
RR  REPOSIT ION  IS 

NO  REPOSITION  TAKING 
PLACE 

ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA 


-©AP^ 

L FLAGWCRD  ASSIGNMENTS 

A1030 

A1031 

A1032 

1033  0271  OESIGFLG  - 

1034  — R-E-F  14—  LAST  -1-00 4742  DESIGBIT  = 

A 1035 

A1036 


A1037 

1038  0272  ALTSCALE  = 

1039  REF  12— LAST  1JX0 

A 1040 

A1041 

1042 

1043  REF  12  LAST  100 

A 1044 

A1045 

1046 

1047  REF  13  LAST  100 

A1048 


A 1049 


1050 
1 0 S 1 

Rf If 

12 

1 AST 

10  0 

0275 

LRPOSFLG 

LRPOSBIT 

A 10  52 

A 10  ^ 

1054 

1055 

REF 

10 

LAST 

100 

0276 

4747 

LRALTFLG 

LPALTBIT 

A 1056 
A 1057 


A luuu 

1059 

1060 
A 10^  1 

REF 

9 

LAST 

100 

0277 

4750 

RRDATAFL 

RRDATABT 

A 1062 

A 10^^ 

1064 

1065 
A 1066 

REF 

1 1 

LAST 

10  1 

0300 

4751 

RRRSFLAG 

RRRSBIT 

A 1067 
1068 

0301 

AUTDMnnF 

1069 

REF 

1 1 

LAST 

101 

4752 

AUTOMBIT 

A 10  70 


4 743 


0273 
4 744 


0274 

4745 


AL 1 SLb  1 I 


LRVELFLG 

LRVELBIT 


RCDUFAIL 
RCDUFBI T 


2021112-011 


19:02  NOV.—  2 5» 1968 


(MAIN) 


PAGE  10? 


USER'S  PAGE  NO.  26  EO  S4 

TAKING  PLACE 

BIT  10  FLAG  12 
1 85D 
3 I T 1 0 

RR  DESIGNATE  RR  DESIGNATE  NOT 

REQUESTED  OR  IN  REQUESTED  _OR_LI\L__ 

PROGRESS  PROGRESS 

BIT  9 FLAG  12 
1 86D 
B I T 9 

LR  ALTITUDE  READING  LR  ALTITUDE  READING 
IS  ON  HIGH  SCALE  IS  ON  LOW  SCALE 

8 IT— 8 FLAG  12 
l 87G 
B I T 8 

LR  VELOCITY  DATA  NO  LR  VELOCITY  DATA 

FAIL  FAIL 

BIT  7 FLAG  12 

1-88-D 

BIT7 

RR  CDU  FAIL  HAS  RR  CDU  FAIL  OCCURRED 

NOT  OCCURRED 

BIT  6 FLAG  12 
1 89D 
3 I T 6 

LANDING  RAOAR  LR  POSITION  1 

POSITION  2 

BIT  5 FLAG  L2 
1 9 0 D 
B I T 5 

LR  ALTITUDE  DATA  MO  LR  ALTITUDE  DATA 

FAIL.  COULD  NOT  BE  FAIL 
READ  SUCCESSFULLY. 

BIT  4 FLAG  12 
1 91  D 
B I T 4 

RR  DATA  FAIL.  NO  RR  DATA  FAIL. 

DATA  COULD  NOT  BE 
READ  SUCCESSFULLY 

BIT- -3  FLAG  12 
192D 

8 I T 3 

RR  RANGE  READING  RR  RANGE  READING  ON 

ON  THE  HIGH  SCALE  THE  LOW  SCALE 

BIT  2 FLAG  12 
1 93D 
B I T 2 


RR  NOT  IN  AUTO  MODE 
AUTO  MODE  DISCRETE 
IS  NOT  PRESENT 


RR  IN  AUTO  MODE 


GAP 
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(MAIN) 
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L 

FLAGWORD 

ASSIGNMENTS 

USER' S PAGE  NO 

. 27  EO  S 4 

A 107 1 

BIT  1 

FL  AG 

12 

A 10  72 

1073 

1074 

REF 

11 

LAST 

10  1 

0302 

4753 

TURNONFL  = 
TURNONBT  = 

1 94D 
BIT1 

RR  TORN-ON  SEQUENCE 
IN  PROGRESS.  (ZERO 
CPU'S,  FIX  ANTENNA 

NO  RR  TURN-ON 
SEQUENCE  IN  PROGRESS 

A 1076 
A 1077 

MODE  ) 

1078 
A 1079 

REF 

1 

0111 

DAPBOOLS  EQUALS 

FLGWRD1 3 

DIGITAL  AUTOPILOT  FLAGWORD 

1080 

REF 

14 

LAST 

10  1 

0111 

FLGWRD1 3 = 

STAT  E 

+ 130 

( 19  5 - 209)  WAS 

DAPBOOLS 

4 1 n a i 

( SET  ) 

( RE  SET ) 

A 1082 
1083 

0303 

PULSEFLG  = 

BIT  15 

1950 

FLAG 

13 

MINIMUM  IMPULSE 

NOT  IN  MINIMUM 

1084 
A 1085 
A10&6 

REF 

11 

LAST 

10  1 

4735 

PULSES 

B I T 1 5 

COMMAND  MODE  IN 
"ATT  HOLD"  ( V76 ) 

IMPULSE  COMMAND  MODE 
( V77) 

A 1087 
1088 

0 304 

USEQRFLG  = . 

BIT  14 
1 960 

FLAG 

13 

GIM8AL  UNUSABLE. 

TR I M GIMB AL  MAY  BE 

1089 
A 1090 

REF 

11 

LAST 

10  1 

4736 

USFQRJT  S = 

BIT14 

USE  JETS  ONLY. 

USED. 

A 109 1 

1092 

1093 

REF 

-13- 

LAST 

-101 

0305 

4737 

CSMOKFLG  = 
CSMDOCKD  = 

BIT  13 
1 97D 
B I T 1 3 

FLAG 

13 

CSM  DOCKED.  USE 
BACKUP  DAP 

CSM  NOT  DOCKED  TO  LM 

A 1094 

A 1095- 

BIT  12 

P L AG 

1 3 

1096 

1097 
A 1098 

REF 

12 

LAST 

10  1 

0 306 
4740 

OURRCFLG  = 
OURRCBI T = 

1 98D 
BIT1  2 

CURRENT  DAP  PASS 
IS  RATE  COMMAND 

CURRENT  DAP  PASS  IS 
NOT  RATE  COMMAND 

A1099 

1100 

0307 

ACC4-2FL  = 

BIT  11 
199D 

FLAG 

13 

4 JET  X-AXIS  TRANS- 

2 JET  X-AXIS  TRANS- 

1101 
A 1102 

REF 

12 

LAST 

10  1 

4 741 

ACC40R2X  = 

B I T 1 1 

L AT  I ON  REQUESTED 

LATION  REQUESTED 

A 1 1 03 

1104 

1105 

REF 

12 

LAST 

102 

0310 

4742 

AORBTFLG  = 
AORBTRAN  = 

BIT  10 
2000 
B I T 1 0 

FLAG 

13 

B SYSTEM  FOR  X- 
TR ANSLATION 

A SYSTEM  FOR  X- 
TR  ANSLATION  PREFER'D 

A 1 106 

A 1107 

BIT  Q i 

FLAG 

13 

1108 

1109 

REF 

13 

LAST 

102 

0311 

4743 

XOVINFLG  = 
XOVINHIB  = 

2010 
B I T 9 

X-AXTS  OVERRIPE 
LOCKED  OUT 

X-AXIS  OVERRIDE  OKAY 
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L 

FLAGWORD 

ASSIGNMENTS 

USER ' S PAGE  NO 

. 28  EO  S4 

A 1 1 10 

BIT  8 

F!  AG 

13 

A 1 1 1 1 
1112 
1113 

REF 

13 

LAST 

102 

0312 

4744 

DRIFTOFL  = 
DRIFTBIT  = 

2 02  D 
BIT8 

ASSUME  0 OFFSET 
DRIFTING  FLIGHT. 

USE  OFFSET  ACCELERA- 
TION ESTIMATE 

A 1 1 1 5 

0313 

RHCSCFLG  = 

BIT  7 
203D 

FLAG 

13 

NORMAL  RHC  SCALING 

FINF  RHC  SCALING 

1117 
A 1 1 1 8 

REF 

14 

LAST 

102 

4745 

RHCSCALE  = 

BIT7 

REQUESTED 

REQUESTED 

A 11 19 
1120 

1 3 

LAST 

10  2 

0314 

ULLAGFLG  = 
ULLAGER 

BIT  6 
204D 
B I T 6 

FLAG 

13 

ULLAGE  REQUFST  BY 
MISSION  PROGRAM 

NO  INTERNAL  ULLAGE 
REQUEST 

A 1 122 

R T T - 5 

FLAG 

1 3 

1124 

1125 

A 1 1 ? A 

REF 

ii 

LAST 

102 

0315 

4747 

AORBSFLG  = 
AORBSYST  = 

205D 
B IT5 

P-AXIS  COUPLES  7,15 
AND  8,16  PREFERRED 

P- AXI S COUPLES  4, 12 
AND  3,11  PREFERRED 

A 1 1 27 
1128 

0316 

DBS  ELFLG  = 

BIT  4 

206D 

FLAG 

13 

MAX  DB  SELECTED 

MIN  DB  SELECTED  BY 

1129 
All  30 

REF 

10 

LAST 

102 

4 750 

DBSELECT  = 

B IT4 

BY  CREW  (5  DEG) 

CREW  (0.3  DEG) 

A 1 1 3 1 

1132 

1133 

RFF 

L2 

1 AST 

10  2 

0317 
475  1 

ACCOKFLG  = 

AfCSDKAY  - 

BIT  3 
2 07D 
BIT3 

FLAG 

13 

CONTROL  AUTHORITY 
VALUES  FROM  1/ACCS 

RESTART  OR  FRESH  ST. 
SINCF  LAST  1/ACCS; 

A 1 134 
A 1 1 3 5 

USABLE 

OUTPUTS  SUSPECT. 

A 1 1 36 

1137 

1138 

REF 

12- 

LAST 

10-2 

0320 
4 752 

AUTR2FLG  = 
AL'TR  ATE  2 = 

BIT  2 
208D 
B I T2 

FLAG 

13 

THESE  FLAGS  ARE  USED  TOGETHER  TO  INDICAT 
ASTRONAUT— CHOSFN  KALCMANU  MANEUVER  RATES 

A1139 
A 1 140 
A 1 1 41 

BIT  1 

FLAG 

13 

(0,0)=(BIT2»BIT1)= 
(0,1)=  0.5  DEG/SEC 

0.2  DEG/SEC 

1142 

1143 
A 1144 

REF 

12 

LAST 

103 

0321 

4753 

AUTR1FLG  = 
AUTRATE1  = 

209D 

R I T 1 

(1.0) =  2.0  DEG/SEC 

(1.1) =  10.0  DEG/SEC 

GAP: 
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L SUBPOUTINE  CALLS 


USER’ S PAGE  NO.  1 EO  S4 


0001 

0002 

nnno 

❖ 

* 

0000 

0000 

0000 

SUBRO 

SUBRO 

SUBRO 

LUMEPASE 
LEMONAID 
LFMP  20S 

102 

070 

114 

0004 

❖ 

0000 

SUBRO 

LEMP30S 

102 

0005 

* 

0000 

SUBRO 

KISSING 

040 

$ 

0 000 

SUBRO 

FLY 

109 

uuuo 

0007 

$ 

0000 

SUBRO 

LEMP50S 

103 

0008 

❖ 

0000 

SUBRO 

SKIPPER 

070 

0009 

* 

0000 

SUBRO 

LMDAP 

012 

■**  ENO  OF  MAIN  PROGRAM  *** 


OAP: 

L 

R0001 

R 0002 
R0003 
R0004 

A0005 

A0006 

A0007 

R0008 

R0009 

R0010 


R0011 

R0012 

A0013 


R0014 
R 00 1 5 

A0016 


R0017 

R0018 


R0019 
R0020 
ROO  2 1 
R0022 
ROO  23 
R0024 

R0025 

R0026 
R0027 
R002  8 
R0029 
R0030 
R0031 
ROO  32 
R0033 
R0034 
R0035 
R0036 
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ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO.  I EO  S4 


CONVENTIONS  AND  NOTATIONS  UTILIZED  FOR  ERASABLE  ASSIGNMENTS. 

EQUALS  I-S  USED  IN  TWO  WAYS.  IT  IS  OFTEN  USED  TO  CHAIN  A GROUP 
OF  ASSIGNMENTS  SO  THAT  THE  GROUP  MAY  BE  MOVED  WITH  THE 
CHANGING  OF  ONLY  ONE  CARD.  EXAMPLE. 


X EQUALS  START 

Y EQUALS  X +SIZF.X 

Z EQUALS— ¥ — +SIZE.Y 

( X,  Y,  AND  Z ARE  CONSECUTIVE  AMD  BEGIN  AT  START.  ) 

ISIZE.X  AND  SIZE.Y  ARE  THE  RESPECTIVE  SIZES  CE  X AND  Y, 
USUALLY  NUMERIC,  IE.  1,  2,  6,  I8D  ETC.  ) 


EQUALS  OFTEN  IMPLIES  THE  SHARING  OF  REGISTERS  (DIFFERENT  NAMFS 
AND  DIFFERENT  DATA).  EXAMPLE. 


X EQUALS  Y 


= MEANS  THAT  MULTIPLE  NAMES  HAVE  BEEN  GIVEN  TO  THE  SAME  DATA. 
(THIS  IS  LOGICAL  EQUIVALENCE,  NOT  SHARING)  EXAMPLE. 

X = Y 


THE  SIZE  AND  UTILIZATION  OF  AN  ERASABLE  ARE  OFTEN  INCLUDED  IN 
THE  COMMENTS  IN  THE  FOLLOWING  FORM.  M(SIZE)N. 

M REFERS  TO  THE  MOBILITY  OF  THE  ASSIGNMENT. 

B MEANS  THAT  THE  SYMBOL  IS  REFERENCED  BY  BASIC 
INSTRUCTIONS  AND  THUS  IS  E-BANK  SENSITIVE. 

I MEANS  THAT  THE  SYMBOL  IS  REFERENCED  ONLY  BY 

INTERPRETIVE  INSTRUCTIONS,  AND  IS  THUS  E-BANK 
INSENSITIVE  AND  MAY  APPEAR  IN  ANY  E-BANK_.___ 

SIZE  IS  THE  NUMBER  OF  REGISTERS  INCLUDED  BY  THE  SYMBOL. 

N INDICATES  THE  NATURE  OR  PERMANENCE  OF  THE  CONTENTS. 

PL  MEANS  THAT  THE  CONTENTS  ARE  PAD  LOADED. 

DSP  MEANS  THAT  THE  REGISTER  IS  USED  FOR  A DISPLAY. 

PRM  MEANS  THAT  THE  REGISTER  IS  PERMANENT,  IE.  IT 
IS  USED  DURING  THE  ENTIRE  MISSION  FOR  ONE 
PURPOSE  AND  CANNOT  BE  SHARED.— 

TMP  MEANS  THAT  THE  REGISTER  IS  USFD  TEMPORARILY  OR 
IS  A SCRATCH  REGISTER  FOR  THE  ROUTINE  TO  WHICH 
IT  IS  ASSIGNED.  THAT  IS,  IT  NEED  NOT  BE  SET 
PRIOR  TO  INVOCATION  OF  THE  ROUTINE  NOP  DOES  IT 
CONTAIN  USEFUL  OUTPUT  TO  ANOTHER  ROUTINE.  THUS 


GAP: 
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L 

R0037 
R0038 
R 00-39 
R0040 
R00A1 
R0042 


ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO. 


IT  MAY  BE  SHARED  WITH  ANY  OTHER  ROUTINE  WHICH 
IS  NOT  ACTIVE  IN  PARALLEL. 

IN  MEANS  INPUT  TO  THE  ROUTINE  AND  IT  IS  PROBABLY 
TEMPORARY  FOR  A HIGHER-LEVEL  ROUTINE/PROGRAM. 
OUT  MEANS  OUTPUT  FROM  THE  ROUTINE,  PP  OB  ABLY 

TEMPORARY  FOR  A HIGHER-LEVEL  ROUT  I N E/PR OGR AM. 


GAP 
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L ERASABLE  ASSIGNMENTS 


P0043 

SPECIAL 

REGISTERS. 

A 

FQIJA!  S 

0 - 

00  44 

0045 

0001 

L 

FQUALS 

1 

0046 

0002 

Q 

EQUALS 

2 

0 00  3 

FBANK 

EQUALS 

3 

0048 

0004 

FBANK 

EQUALS 

4 

0049 

0005 

Z 

EQUALS 

5 

0006 

BBANK 

EQUALS 

6 

A0051 

0010 

ARUPT 

EQUAL  S 

1 0 

0053 

0011 

LRUPT 

EQUALS 

11 

0054 

0012 

QRUPT 

EQUALS 

12 

00  6 6 

0013 

SAMPTIME 

EQUALS 

13 

0056 

0015 

ZRUPT 

EQUALS 

15 

0057 

0016 

BANKRUPT 

EQUALS 

16 

0 017 

BRUPT 

EQUALS 

1 7 

0059 

0020 

CYR 

EQUALS 

20 

0 0 21 

SR 

FQUALS 

2 1 

0061 

002? 

CYL 

EQUALS 

22 

0062 

0 02  3 

EDDP 

EQUALS 

23 

0063 

0024 

TIME2 

EQUAL  S 

24 

0064 

0025 

T I M F 1 

FQUAI  S 

2 5 

0065 

0026 

TIME3 

EQUALS 

26 

0066 

0027 

TIME4 

EQUALS 

27 

0067 

0030 

T I ME5 

EQUAL  S 

30 

0068 

0031 

TIME6 

FQUALS 

31 

0069 

0032 

CDUX 

EQUALS 

32 

0070 

0033 

C DU  Y 

FQIJAL  S 

33 

0071 

0034 

CDUZ 

EQUALS 

34 

0072 

0035 

CDUT 

EQUAL  S 

35 

0073 

0036 

cous 

F Q 1 J A L c« 

^ A 

0074 

0037 

PIPAX 

EQUAL  S 

37 

0075 

0040 

PIPAY 

EQUALS 

40 

0076 

0041 

P I P A Z 

FOI 1 Al  <; 

41 

0077 

0042 

Q-RHCCTR 

EQUALS 

42 

0078 

0043 

P-RHCCTR 

EQUAL  S 

43 

0079 

0044 

R— R HC  F T R 

FQIJA!  S 

44 

0080 

0045 

INL INK 

EQUALS 

45 

0081 

0046 

RNRAD 

EQUALS 

46 

0082 

0047 

GYRQCMD 

FQUAI  ^ 

47 

0083 

0050 

CDUXCMD 

EQUALS 

50 

0084 

0051 

CDUYCMD 

FQUALS 

51 

0085 

0052 

CDUZCMD 

FQUAI  S 

5? 

0086 

0053 

COUTCMD 

EQUALS 

53 

0087 

0054 

CDU  SC  MD 

EQUALS 

54 

Oil 
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USER'S  PAGE  NO.  3 EO  S4 


L AND  0 ARE  BOTH  CHANNELS  AND  REGISTERS. 


AOJACENT  TO  FBANK  AND  BBANK  FOR  DXCH  Z 
t DTCB  ) AND  DXCH  FBANK  ( DTCF ) . 

REGISTER  7 IS  A ZFRO-SOURCF,  USED  BY  ZL. 

INTERRUPT  STORAGE. 


SAMPLED  TIME  1 £ 2. 

( 13  AND  1 A ARE  SPARES. ) 
USUALLY  HOLDS  FBANK  OR  BBANK. 
RESUME  ADDRESS  AS  WELL. 


EDITS  INTERPRETIVE  OPERATION  CODE  PAIRS. 


REND  RADAR  TRUNNION  CDU 
REND  RADAR  SHAFT  CDU 


RHC  COUNTER  REGISTERS 


RADAR  TRUNNION  COMMAND 
RADAR  SHAFT  COMMAND 


GAP 
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0088 

0089 

0090 

0091 


0055 

THRUST 

EQUALS 

55 

0056 

LEMONM 

EQUALS 

56 

0057 

OUTL  INK 

EQUALS 

51 

0060 

ALT  M 

EQUALS 

60 

RO092  INTERPRETIVE  REGISTERS  ADDRESSED  RELATIVE  TO  VAC  AREA. 


0 042 

L VSQUARE 

EQUALS  34D 

0093 

0094 

0 044 

LV 

EQUALS  36D 

0095 

0046 

XI 

EQUALS  38D 

0096 

0 047 

X2 

EQUALS  39D 

0097 

0050 

SI 

EQUALS  40D 

0098 

0051 

S2 

EQUALS  4 1 D 

0099 

0052 

QPRET 

EQUALS  42D 

R0100  I NFLT  /OUTPUT  CHANNEL-5 


A0101 

***  CHANNEL  ZERO 

0 1 n?  R f F 1 

0 001 

LCH  AN 

EQUA1  S L 

0103  REF  1 

0002 

QCHAN 

EQUALS  Q 

0104 

0003 

HI  SCALAR 

EQUALS  3 

0105 

- - 0004 

LOSCALAR 

EQUALS  4 

0106 

0005 

CHAN5 

EQUALS  5 

0107 

0006 

CHAN6 

EQUALS  6 

0108 

0007 

SUPFRBNK 

EQUALS  7 

0109 

0010 

OUTO 

EQUALS  10 

0110 

0011 

DSALMOUT 

EQUALS  11 

0111 

0012 

CHAN12 

EQUALS  12 

0112 

0013 

CHAN  1 3 

EQUALS  13 

0113 

0014 

CHAN14 

EQUALS  14 

0114 

0 015  - 

MNKEYIN 

EQUALS  15 

0115 

0016 

NAVKEYIN 

EQUALS  16 

0116 

0030 

CHAN30 

EQUALS  30 

01  17 

0031 

CHAN31 

EQUALS  31 

0118 

0032 

CHAN32 

EQUALS  32 

0119 

0033 

CHAN33 

EQUALS  33 

0120 

0034 

DNTM1 

EQUALS  34 

0121 

0035 

DNTM2 

EQUALS  35 

R 0 1 2 2 END  OF  CHANNEL  ASSIGNMENTS 
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SQUARE  OF  VECTOR  INPUT  TO  ABVAL  AND  UNIT 
LENGTH  OF  VECTOR  INPUT  TO  UNIT. 
INTERPRETIVE  SPECIAL  REGISTERS  RELATIVE 
TO  THE  WORK  AREA. 


BE  USED  IN  AN  INDEXED  OPERATION  ONLY.  *** 


SUPER-BANK 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021I12-GL1 

L ERASABLE  ASSIGNMENTS 

00123  INTERPRETIVE  SWITCH  BIT  ASSIGNMENTS 
AO  1 24 
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R0125 


**  FLAGWORDS  AND  BITS  NOW  ASSIGNED  AND  DEFINED  IN  THEIR  OWN  LOG  SECTION.  ** 
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ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO.  6 


P012T 

GENERAL  ERASABLE  ASSIGNMENTS, 

006 1 

SFTLOC  61 

012  8 
R0129 

INTERRUPT  TEMPORARY  STORAGE  POOL. 

I 110) 

R0131  ( I TEMP  1-  THROUGH  RUPTREG4) 


R0132 

ANY  OF  THESE 

MAY  BE 

USED  AS 

TEMPORARIES 

DURING 

INTERRUPT  OR 

WITH  INTERRUPT  INHIBITED.  THE  ITFMP  SERIES 

— IS 

USED 

01 IR  [ NG  r A \ 1 s 

TO  THE 

EXECUT I VF 

AND  WAITLIST  - THE 

: RUPTREGS  ARE 

NOT  . 

0136 

0061 

0061 

ITEMPl 

ERASE 

n i ^7 

R FF 

1 

006  1 

. WAI TEXI T 

EQUALS 

ITEMPl 

0138 

REF 

2 

LAST  111 

0061 

EXECTEM l 

EQUALS 

ITEMPl 

0 Q6? 

0 06  ? 

I TF  MP2 

FR  ASF 

0140 

REF 

1 

0062 

WAI TRANK 

EQUAL  S 

ITEMP2 

0141 

REF 

2 

LAST  11  1 

0062 

EXECTEM2 

EQUALS 

ITEMP2 

0142 

0063 

0063 

ITEMP3 

ERASE 

0143 

REF 

1 

0063 

RUPTSTOR 

EQUALS 

I TEMP3 

01  44 

REF 

2 

LAST  111 

0 06  3 

WAI T ADR 

EQUALS 

I TENP3 

0145 

REF 

3 

LAST  111 

0063 

NEW  PR  I 0 

EQUALS 

I TEMP3 

O 1 46^ 

0 064 

0064 

I TEMP4 

ERASE 

0147 

REF 

1 

0064 

LOCCTR 

EQUALS 

I TE  MPA 

0148 

REF 

2 

LAST  111 

0064 

WAI TTEMP 

EQUAL  S 

ITEMP4 

0149 

0065 

0065 

ITEMP5 

ERASE 

0150 

REF 

1 

0065 

NFWLOC 

EQUALS 

ITEMP5 

0151 

0066 

0066 

ITEMP6 

ERASE 

A0152 

NEWLOC+ 1 

EQUALS 

ITEMP6 

DP  ADDRESS. 

0153 

0 06  7 

SETLOC 

67 

0154 

0 06  7 

0067 

NEW  JO  B 

ERASE 

MUST  BE  AT  LOC  67  DUE  TO  WIRING. 

0155 

0070 

0070 

RUPTREG1 

ERASE 

01  56 

0071 

0071 

RUPTR  EG2 

ERASE 

0157 

0072 

0072 

RUPTREG3 

ERASE 

0158 

0073 

0073 

RUPTREG4 

ERASE 

0159 

—REF 

L- 

0073 

KEY  TEMP  1 

EQUAL  S 

PUPTPEG4 

0160 

REF 

2 

LAST  111 

0073 

DSRUPTEM 

EQUALS 

RUPT  PEG4 

R 0 1 6 1 

FLAGWORO  RESERVATIONS- 

( 160) 

0163 

0074 

0113 

STATE 

ERASE 

+ 15D 

FLAGWORO  REGISTERS. 

A0164 

R 0 1 6 5 

P25  RADAR  STORAGE. 

(MAY  BE  UNSHARED  IN 

E 7 ) (TEMP  OVERLAY) 

(2D)  OVERLAYS  FLGWRD  14  E 15 

GAP  : 


0167 

0168 
A0169 


R0170 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

R 0 1 8 1 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 
A0200 

0201 

0202 

0203 

A0204 

0205 

0206 

R0207 

0208 


ASSEMBLE  REVISION  069  OF 

ERASABLE  ASSIGNMENTS 

REF  15  LAST  103 
REF  1 


AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 


0112  LASTYCMO  EQUALS  STATE 

0H3  LASTXCMD  EQUALS  LASTYCMO 
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+140  B ( 1 ) PRM  THESE  ARE  CALLED  BY  T4RUPT 

+1  Bill PRM  THEY  MUST  BE  CONTIGUOUS, Y FIRST 


l KFD  RFTWFFN  CCS 

NEW'J  OBS  . 

( 320 ) (INTB15+  THROUGH  RUPTMXTM) 

t A 

0114  0114 

INTB1 5+ 

ERASE 

REFLECTS  15TH  BIT  OF  INDEXABLE  ADDRESSES 

REF 

1 

0 114 

DSEX  IT 

= 

INTB15+ 

RETURN  FOR 

DSP  IN 

-LAST 

112 

0114 

EXITEM 

= 

I NT e 15  + 

RETURN  FOR 

SCALE  FACTOR  ROUTINE  SELECT 

REF 

3 

LAST 

112 

0 114 

BLANKRET 

= 

INTB15+ 

RETURN  FOR 

2BLANK 

TNTR  T T 1 5 

FR  ASF 

S T M T 1 A R TO 

ABOVE . 

REF 

1 

0115 

WRDRET 

INTB  I T15 

RETURN  FOR 

5BL ANK 

REF 

2 

LAST 

112 

0115 

WDRET 

= 

INTB IT1 5 

RETURN  FOR 

DSPWD 

REF 

3 

-L  A^  T 

112 

0 115 

DECRET 

— 

INTB  I T 15 

R FT  URN  FOR 

PUTCOMIDEC  LOAD) 

REF 

4 

LAST 

1 1 2 

0 115 

21/22REG 

= 

INTB IT15 

TEMP  FOR  CHARIN 

THE  REGISTERS  BETWEEN  ADDRWD  AND  PRIORITY  MUST  STAY  IN  THE  FOLLOWING  ORDER  FOR  INTERPRETIVE  TRACE 


0 116 

0116 

ADDRWD 

ERASE 

12  BIT  INTERPRETIVE  OPERAND  SUB-ADDRESS. 

0 117 

0 14  7 

POL ISH 

ERASF 

HOLDS  CADR  MACE  FROM  POLISH  ADDRESS. 

REF 

1 

0 117 

UPDATRET 

POL  I SH 

RETURN  FOR  UPOATNN,  UP0ATV8 

REF 

2 

LAST 

112 

0 117 

CHAR 

= 

POL  I SH 

TEMP  FOR  CHARIN 

RFF 

3 

1 AST 

112 

0117 

ERCNT 

POL  I SH 

COUNTER  FOR  ERROR  LIGHT  RESET 

REF 

4 

LAST 

112 

0117 

DECOUNT 

= 

POLISH 

COUNTER  FOR  SCALING  AND  DISPLAY  (DEC) 

0120 

0 120 

p i y LOC 

FR  A SE 

WORK  AR  FA  ADDPFSS. 

0121 

0121 

OVF IND 

ERASE 

SET  NON-ZERO  ON  OVERFLOW. 

0 122 

0 127 

VBUF 

ER  A SE 

5 

TEMPORARY  STORAOF  USFD  FOR  VFfTORS- 

REF 

1 

0122 

SGNON 

VBUE 

TEMP  FOR  +~,~  ON  ~ 

REF 

2 

LAST 

l 1 2 

0122 

NOUNTFM 

= 

VBUF 

COUNTER  FOR  MIXNOUN  FETCH 

REF 

3 

LAST 

112 

0 122 

DI S TEM 

_ 

VEUF 

COUNTER  FOR  OCTAL  DISPLAY  VFRBS 

REF 

4 

LAST 

1 1 2 

0122 

DECTEM 

= 

VBUF 

COUNTER  FOR  FETCH  (DEC  OISPLAY  VERBS) 

R E F 

-5— 

— 1 AST 

IT? 

04  2-1 

qr.wnpp 

VRUP 

*4 

TEMP  FOR  ON 

REF 

6 

LAST 

1 1 2 

0 123 

NVTEMP 

VBUF 

+ 1 

TEMP  FOR  NVSUB 

REF 

7 

LAST 

1 1 2 

0123 

SFTEMP1 

= 

VBUF 

+ 1 

STORAGE  FOR  SF  CONST  HI  P ART( = SFTEMP 2- 1 ) 

REF 

8 - 

LAST 

112 

0 123 

HITFMIN 

_ 

VBUF 

+ 1 

TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 

MUST  = LOTEMIN-1. 

REF 

9 

LAST 

1 1 2 

0124 

CODE 

= 

VBUF 

+2 

FOR  DSP  IN 

RE-F- 

10  - 

L AS  T 

1 12 — 

-0  124 

SFTEMP2 

- 

VBUF 

+ 7 

STORAGE  FOR  SF  CONST  LO  P ART ( = S FTFMP 1 +1  ) 

REF 

11 

LAST 

112 

0 124 

LOTEMIN 

= 

VBUF 

+ 2 

TEMP  POR  LOAD  OF  HRS,  MIN,  SEC 

MUST  = H ITEM I N +1 . 

REF  - 

12 

LAST 

1 1 2 

0 12  5 

m I x TFMP 

_ 

VBUF 

+ 3 

FOR  MIXNOUN  DATA 

REF 

13 

LAST 

1 1 2 

0125 

SIGNRET 

= 

VBUF 

+ 3 

RETURN  FOR  +,-  ON 

AL  SC 

M I X T - F M P + 1 

-=-  VBUF  + 4 

. IV  F X TP  M P+  ? - 

VRI  IF-fS  . 

0 130 

0132 

BUF 

ERASE 

+ 2 

TEMPORARY  SCALAR  STORAGE. 

GAP:  ASSEMBLE  REVISION  0690F  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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0209 

0133 

0134 

BUF  2 

ERASE 

+ 1 

0210 

REF 

1 

0 130 

I NDEXLOC 

EQUALS 

BUF 

2 

LAST 

113 

0 1 30 

SWWQRD 

EQUALS 

BUF 

0212 

RFF 

3 

LAST 

113 

0 131 

SWB  IT 

EQUALS 

BUF  +1 

0213 

0 135 

0135 

MPT  EMP 

ERASE 

REF 

l 

0 135 

DMPNTEMP 

= 

MPT  EMP 

0215 

0136 

0136 

DOT  INC 

ERASE 

0216 

REF 

1 

0136 

DVS IGN 

EQUALS 

DOT  I NC 

02  1 7 

REF 

2 

\ AST 

113 

0136 

ESCAPE 

EQUALS 

DOT  INC 

0218 

REF 

3 

LAST 

113 

0136 

ENTRET 

= 

DOT  I NC 

0137 

0 137 

DOTRET 

FRASE 

0220 

REF 

1 

0137 

DVNORMCT 

EQUALS 

DOTR  FT 

0221 

REF 

2 

LAST 

113 

0137 

ESCAPE2 

EQUALS 

DOTRET 

REE 

3 

LAST 

1 1 3 

0137 

WDCNT 

— 

DOTRET 

0223 

REF 

4 

LAST 

113 

0 137 

INREL 

= 

DOTRET 

n 14Q 

0140 

MAT  INC 

ERASE 

0225 

REF 

1 

0140 

MAXDVSW 

EQUALS 

MAT  I NC 

0226 

REF 

2 

LAST 

113 

0 140 

POLYCNT 

EQUALS 

MAT  I NC 

0227 

REF 

3 

LAST 

1 1 3 

0140 

DSPMMTEM 

~ 

MAT  I NC 

0228 

REF 

4 

LAST 

1 1 3 

0140 

MIXBR 

= 

MAT  I NC 

02  2q 

0 141 

0 141 

TFM1 

FR  ASF 

0230 

REF 

1 

0141 

POLYRET 

T EMI 

0231 

REF 

2 

LAST 

113 

0141 

DSREL 

- 

TEM1 

0232 

0 142 

0142 

TEM2 

ERASE 

0233 

REF 

1 

0 142 

DSMAG 

= 

TEM2 

0234 

REE 

2 

LAST 

113 

0 142 

I DADDTEM 

= 

T E M2 

0235 

0143 

0 143 

TEM3 

ERASE 

0236 

REE 

1 

0 143 

COUNT 

— 

T EM3 

0237 

0144 

0144 

TEM4 

ERASE 

0238 

REF 

i 

0 144 

LSTPTR 

= 

T EM4 

0239 

REF 

2 

LAST 

1 1 3 

0 144 

RELRET 

= 

TEM4 

0240 

REF 

3 

LAST 

1 1 3 

0 144 

FREERET 

- 

TEM4 

0241 

REF 

4 

LAST 

113 

0144 

DSPWDRET 

— 

TFM4 

0242 

REF 

5 

LAST 

1 1 3 

0 144 

SEPSCRET 

T E M 4 

0243 

REF 

6 

LAST 

113 

0144 

SEPMNRET 

= 

TEM4 

0244 

0 145 

0145 

TEM5 

ERASE 

0245 

REF 

1 

0 145 

NOUNADD 

= 

TEM5 

0246 

0146 

0146 

NNADTEM 

FRASE 

0247 

0147 

0147 

NNTYPTEM 

ERASE 

0248 

..  0150 

0150 

IDAD1TEM 

ERASE 

A0249 

0250 


0151 


0151 


IDA02TEM  ERASE 
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CONTAINS  ADDRESS  OF  SPECIFIED  INDEX. 
ADDRESS  OF  SWITCH  WORD. 

SWITCH  BIT  WITHIN  SWITCH  WORD. 

TEMPORARY  USED  IN  MULTIPLY  AND  SHIFT. 
DMPSUB  TEMPORARY 

COMPONENT  INCREMENT  FOR  DOT  SUBROUTINE. 
DETERMINES  SIGN  OF  DDV  RESULT. 

USED  IN  ARCSIN/ARCCOS. 

EXIT  FROM  ENTER 

RETURN  FROM  OOT  SUBROUTINE. 

DIVIDEND  NORMALIZATION  COUNT  IN  DDV. 
ALTERNATE  ARCSIN/ARCCOS  SWITCH. 

CHAR  COUNTER  FOR  DSPWD 

INPUT  BUFFER  SELECTOR  I X,Y,Z,  REG  ) 

VECTOR  INCREMENT  IN  MXV  AND  VXM. 

+0  IF  DP  QUOTIENT  IS  NEAR  ONE  - ELSE  -1. 
POLYNOMIAL  LOOP  COUNTER 
D SPCOUNT  SAVE  FOR  HSPMM 
INDICATOR  FOR  MIXED  OR  NORMAL  NOUN 

EXEC  TEMP 

REL  ADDRESS  FOR  DSPIN 
EXEC  TEMP 

MAGNITUDE  STORE  FOR  DSPIN 
MIXNOUN  INDIRECT  ADDRESS  STORAGE 

EXFC  TEMP 
FOR  DSPIN 


EXEC  TEMP 

LIST  POINTER  FOR  GRABUSY 
RETURN  FOR  RELDSP 
RETURN  FOR  FREEDSP 
RETURN  FOR  DSPSIGN 
RFTURN  FOR  SEPSEC 
RETURN  FOR  SEPMIN 

EXEC  TEMP 

TEMP  STORAGE  FOR  NOUN  ADDRESS 

TEMP  FOR  NOUN  ADDRESS  TABLE  ENTRY 

TEMP  FOR  NOUN  TYPE  TABLE  ENTRY 

TEMP  FOR  INDIP  ADRESS  TABLE  ENTRY ( MI XNN ) 

MUST  = IDAD2TEM-1,  = IDAD3TEM-2. 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY ( MI XNN ) 


GAP: 

L 

A0251 

0252 

A0253 

0254 

R02  55 

0257 

0258 

0259 

0260 
0261 

0262 


R0263 

R0265 

R0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 
A0286 
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MUST  = IDA01TEM+1 , = I D AD3TEM- 1 . 

TEMP  FOR  IND1R  AORESS  TABLE  ENTRY ( MI XNN ) 
MUST  = IDAD1TEM+2  » = IPAD2TEM+1. 

TEMP  FOR  SF  ROUT  TABLE  ENTRY ( MI XNN  ONLY) 


REF 

REF 

3 

2 

AX*  SR 

LAST 

LAST 

*T  STORAGE 

113 

113 

. 

0142 
n i 43 

DEXDEX 

DFX1 

EQUAL  S 
EQUAL  S 

TFM  2 
T EM  3 

460) 

BID  TMP 
B(l) TMP 

REF 

7 

LAST 

11  3 

0144 

DEX  2 

EQUALS 

TEM4 

B ( 1 )TMP 

REF 

2 

LAST 

1 1 3 

0145 

RTNS AVER 

EQUALS 

T EM  5 

B ( 1 ) TMP 

REF 

1 

0 157 

TERM1TMP 

EQUALS 

MPAC  +3 

B ( 2 ) TMP 

REF 

1 

0 143 

DEXI 

0EX1 

0152  0152  IDA03TEM  ERASE 

0153  0153  RUTMXTEM  ERASE 


THE  FOLLOWING  10  REGISTERS  ARE  USED  FOR  TEMPORARY  STORAGE  OF  THE  DERIVATIVE  COEFFICIENT  TABLE  OF 
-SUBROUTINE  ROOTPSRS.  THEY  WUST  REMAIN  WITHOUT  INTERFERENCE  WITH  ITS  SUBROUTINES  WHICH  ARE  POWRSEPS  (POLY), 
DMPSUB,  DMPNSUB,  SHORTMP,  DDV/BDDV , ABS,  AND  USPRCADP. 


REF 

2 

L AR  T 

114 

0142 

DFR  f □ F—  ft 

— 

MPA  C 

- 1 2 

ROOTPSRS 

QFP 

COF 

N-4  H I 

ORDER 

REF 

3 

LAST 

114 

0143 

DERCOF-7 

= 

MPAC 

-ii 

ROOTPSRS 

DER 

COF 

N— 4 LO 

ORDER 

REF 

4 

LAST 

1 1 4 

0144 

OERCOF— 6 

= 

MPAC 

-10 

ROOTPSRS 

DER 

COF 

N-3  HI 

ORDER 

REF 

5 

LAST 

1 1 4 

0145 

DERCDF-5 

= 

MPAC 

-7 

ROOTPSRS 

DER 

COF 

N— 3 LO 

ORDER 

REF 

6 

LAST 

114 

0 146 

DERCOF-4 

= 

MPAC 

-6 

ROOTPSRS 

DER 

COF 

N-2  HI 

ORDER 

REF 

7 

LAST 

114 

0147 

DERCOF-3 

= 

MPAC 

-5 

ROOTPSRS 

DER 

COF 

N-2  LO 

ORDER 

REF 

8 

-LAST 

114 

0150 

DERCOF-2 

- 

MPAC 

-4 

ROOTPSRS 

DER 

COF 

N-l  H I 

ORDER 

REF 

9 

LAST 

114 

0151 

DERCOF-1 

= 

MPAC 

-3 

ROOTPSRS 

DER 

COF 

N-l  LO 

ORDER 

REF 

10 

LAST 

114 

0152 

DERCOFN 

= 

MPAC 

-2 

ROOTPSRS 

DER 

COF 

N HI  ORDER 

REF 

1 I 

LAST 

l 1 4 

0153 

DERC0F+ 1 

- 

MPAC 

-1 

ROOTPSRS 

DER 

COF 

N LO  ORDER 

REF 

5 

LAST 

1 1 2 

0117 

PWRPTR 

POL  I SH 

ROOTPSRS 

POWER  TABLE  POINTER 

REF 

14 

LAST 

112 

0124 

OXCR  I T 

= 

VBUF 

+ 2 

ROnTPSRS 

CRITER ION  FOR 

ENDING 

ITERS 

REF 

15 

LAST 

1 1 4 

0 125 

DXCR  IT+l 

= 

VBUF 

+ 3 

ROOTPSRS 

CRITERION  FOR 

ENDING 

ITEPS 

REF 

16 

LAST 

114 

0 126 

ROOTPS 

= 

VBUF 

+ 4 

ROOTPSRS 

ROOT 

HI 

ORDER 

REF- 

17 

4.  AST 

1 1 4 

0 127 

ROOTPS+1 

- 

VBUF 

+ 5 

ROOTPSRS 

ROOT 

LO 

ORDER 

REF 

4 

LAST 

1 1 3 

0132 

RETROOT 

= 

BUF 

+ 2 

ROOTPSRS 

RETURN 

ADDRESS 

OF  USER 

REF 

5 

LAST 

113 

0140 

PWRCNT 

= 

MAT  I NC 

ROOTPSRS 

DER 

TABLE  LOOP 

COUNTER 

REF 

3 

LAST 

-113 — 

0 141 

DER-PTR 

= 

TEM  1 

ROOTPSRS 

DER 

TABLE  POINTER 
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P0287 

DYNAM ICALLY 

ALLOCATED 

CORE  SETS  FOR  JOBS 

t 84  D ) 

0 1 54- 

0 1 6? 

MPAC 

ERASE 

MULTI-PURPOSE  ACCUMULATOR, 

02  89 
0290 

0163 

0163 

MODE 

ERASE 

+1  FOR  T°,  +0  FOR  OP,  OR  -1 

FOR  VECTOR. 

0291 

0164 

0164 

LOC 

ERASF 

LOCATION  ASSOCIATED  WITH  JOB 

0165 

0165 

BANKSET 

ERASE 

USUALLY  CONTAINS  BBANK  SETTING. 

0293 

0166 

0166 

PUSHLOC 

ERASF 

WORD  OF  PACKED  INTERPRETIVE 

PARAMETERS. 

0294 

0167 

0167 

PRIORITY 

ERASE 

PRIORITY  OF  PRESENT  JOB  AND 

WORK  AREA. 

0295 

0170 

0313 

FR  ASF 

+ 8 3 D 

EIGHT  SETS  nF  12  REGISTERS 

EACH 

A0296 

R0297 

INCORP  STORAGE:  R22 

(N29)  ( 

SHARES  WITH  FOLLOWING  SECTION) 

( 4D ) 

0 314 

r ?? n r sp 

FQIJAI  S 

T I ME 2 SA V 

1(4)  N49  DISPLAY  OF  DELTA  R 

AND  DELTA  V 

A0300 

R0301 

STANDBY  VERB  ERAS A8LES.  REDOCTR  BEFORE 

THE  TADS. 

( 1 4 D ) 

0303 

0304 

0314 

0316 

0315 

0317 

TIME2SAV 

SCALSAVE 

ERASE 

ERASE 

+ 1 
+ 1 

0305 

0320 

0320 

REDOCTR 

ERASE 

CONTAINS  NUMBER  OF 

RESTARTS 

0306 

0321 

0323 

THETAD 

ERASE 

+ 2 

0307 

REF 

1 

0 321 

CPH  I 

T HE  T AD 

0 DESIRED  GIMBAL 

ANGLES 

0308 

REF 

2 

LAST 

1 1 5 

0322 

CTHETA 

= 

THETAD  +1 

I FOR 

0309 

REF 

3 

LAST 

1 1 5 

0323 

CPS  I 

= 

THETAD  +2 

M MANEUVER. 

0310 

0 324 

0331 

DEL  V 

ERASE 

♦ F 

0311 

REF 

1 

0324 

DEL  VX 

DEL  V 

0312 

REF 

2 

LAST 

115 

0326 

DEL  V Y 

= 

DEL  V +2 

031  3 

RFF 

3 

1 AST 

1 1 5 

0330 

DPI  V 7 

OFLV  +4 

A0314 

R0315  DC-WNLINK  STORAGE.  I28D) 


0317 

REF 

1 

0332 

DNLSTADR 

EQUALS 

DNLSTCOD 

0318 

033? 

0332 

DNLSTCOD 

ERASE 

B ( 1 ) PRM  DOWNL I INK 

LIST  CODE 

0319 

0333 

0333 

DUMPCNT 

ERASE 

8(1) 

0320 

0334 

0365 

LDATALST 

ERASE 

+ 25D 

( 26D  ) 

0321 

REF 

1 

0335 

DNTMGOTO 

EQUALS 

LDATALST 

+ 1 

B(l) 

0322 

REF 

1 

0336 

TMINDEX 

EQUALS 

DNTMGOTO 

+ 1 

B(l) 

0323 

REF 

— 1 — 

0336 

DUMPLOC 

EQUALS 

T MI NDEX 

CONTAINS  EC ADR  OF 

AGC  DP  WORD  BFING  DUMP 

A0324 

ED  AND  COUNT  OF  COMPLETE  DUMPS  ALREADY  S 

A0325 

ENT  . 

0326 

-REF 

2 LAST-  115 

0337 

DNQ 

EQUALS 

TMINDEX 

+ 1 

8(1) 

0327 

REF 

1 

0340 

DNTM3UFF 

EQUAL  S 

DNQ 

+ 1 

3 I 22 ) PR  M DOWNLINK 

SNAPSHOT  BUFFER 

R 03  28 


UNSWITCHED  FOR  DISPLAY  INTERFACE  ROUTINES 


! 10 D ) FIVE  MORE  IN  EB4NK  2 


GAP 
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0330 

0 366 

0366 

RESTREG 

ERASE 

BI1IPRM  FOR  DISPLAY  RESTARTS 

0331 

0367 

0367 

NVWORD 

ERASE 

03  70 

0370 

MARKNV 

ERASE 

0333 

0371 

0371 

NVSAVE 

ERASE 

R0334 

(RETAIN  THE  ORDER  OF 

CADRFLSH  TO 

FAILPFG 

. +2  FOR  DOWNLINK  PURPOSES) 

033^ 

0372 

0372 

CAORFLSH 

ERASE 

0337 

0373 

0373 

CADRMARK 

ERASE 

0338 

0374 

0374 

TEMPFLSH 

ERASE 

0339 

0 375 

0377 

FAILREG 

ERASE 

+ 2 8 ( 3 ) P RM  3 ALARM  CODE  REGISTERS 

R0340 

VAC  AREAS.  -BE  CAREFUL 

OF  PLACEMENT- 

( 220D ) 

0342 

0400 

0400 

VAC1USE 

ERASE 

0343 

0401 

0453 

VAC  1 

ERASE 

+ 42D 

0344 

0454- 

0454 

VAC2USE 

FRASE 

0345 

0455 

0527 

VAC2 

ERASE 

+ 420 

0346 

0530 

0 530 

VAC3USE 

ERASE 

0347 

0 531 

06  03 

VAC3 

ERASE 

+ 42  D 

0348 

0604 

0604 

VAC4USE 

ERASE 

0349 

0605 

0657 

VAC4 

ERASE 

+ 42  D 

0350 

0660 

0660 

VAC5USE 

ERASE 

0351 

0661 

0733 

VAC  5 

ERASE 

+ 42D 

R0352 

0354 

WAITLIST  REPEAT  FLAG. 

0 734 

0734 

RUPTAGN  FRASE 

( ID) 

0355 

A0356 

REF 

1 0734 

KEYTEMP2  = RUPTAGN 

TEMP  FOR  KEYRUPT,  UPRUPT 

R0357 

STAPALIGN  ER6SABLES. 

( 1 3D  ) 

0359 

0735 

0735 

STARCODE  ERASE 

( l) 

0360 

REF 

1 

0735 

AOT  CODE  = 

STARCODE 

0361 

0 736 

0751 

STARALGN  ERASE 

+ 1 1 D 

0362 

REF 

1 

0736 

SINCDU 

STAR  ALGN 

03  63 

REF 

2 

LAST 

116 

0 744 

COSCDU 

STAR  ALGN 

+ 6 

0364 

REF 

1 

0742 

SINCDUX  = 

SINCDU 

+4 

0365 

REF 

2 

LAST 

116 

0736 

SINCDUY  = 

SINCDU 

0366 

REF  - 

— 3~ 

LAST 

116 

0740 

SINCDUZ 

SINCDU 

+ 2 

0367 

REF 

1 

0750 

COSCDUX  = 

CPSC  DU 

+ 4 

0368 

REF 

2 

LAST 

116 

0 744 

COSCDUY  = 

COSC  DU 

0369 

REF 

3 

LAST 

116 

0746 

cnsr.DU7 

CT  SC  DU 

+ 2 

R0370 

PHASE 

TAELE 

AND  RESTART  COUNTERS. 

( 12D ) 

0372 


0752 


0752 


-PHASE  1 ERASE 


GAP 
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L 

ERASABLE  ASSIGNMENTS 

USER 

•S  PAGE  NO.  12 

EO 

S4 

0373 

0753 

0753 

PHASE1 

ERASE 

0374 

0754 

0754 

-PHASE2 

ERASE 

0 755 

0755 

PHASF2 

ERASE 

0375 — 
0376 

0756 

0756 

-PHASE3 

ERASE 

0377 

0757 

0757 

PHASE3 

ERASE 

0760 

0760 

-PHASE4 

ERASE 

0379 

0761 

0761 

PHASE4 

ERASE 

0380 

0762 

0762 

-PHASE5 

ERASE 

0 763 

0763 

PHASE5 

ERASE 

0382 

0764 

0764 

-PHASE6 

ERASE 

0383 

0765 

0765 

PHASE6 

ERASE 

R0384 

A**SR*T  STORAGE. 

I 60) 

0386 

0 766 

0773 

CDUSPOT 

ERASE 

+ 5 

B ( 6 ) 

1 0 766 

rou  spht y 

_ 

r.DLJS  PP.T 

0388 

REF 

2 LAST  117  0770 

COU  SPOT Z 

= 

CDUSPOT 

+2 

0389 

REF 

3 LAST  117  0772 

CDUSPOT  X 

= 

CDUSPOT 

+4 

R 0390 

VERB  37  STORAGE. 

( 2D) 

0392 

0774 

0774 

MINDEX 

ERASE 

B(l) 

TMP 

INDEX  FOR  MAJOR  MODE 

0393 

0775 

0775 

MMNUMBER 

ERASE 

BID 

TMP 

MAJOR  MODE  REQUESTED 

BY 

V 37 

R0394 

PINBALL  INTERRUPT  ACTION 

1. 

( ID) 

0396 

0 776 

0776 

DSPCNT 

ERASE 

B ( 1 ) RRM  COUNTER  FOR  DSPOUT. 

R0397 

0399 

PINBALL  EXECUTIVE  ACTION 

0777  0777 

O^PC  HUNT 

FR  A^F 

( 44  D ) 

DISPLAY  POSITION 

INDICATOR. 

0400 

1000 

1000 

DECBRNCH 

ERASE 

+ DEC , - DEC,  OCT 

INDICATOR 

0401 

1001 

1001 

VERBREG 

ERASE 

VERB  CODE 

0402 

1002 

1002 

NOUNREG 

ER  ASF 

NOUN  CODE 

0403 

1003 

1003 

XREG 

ERASE 

R 1 INPUT  BUFFER 

0404 

1 004 

1004 

YREG 

ERASE 

R 2 INPUT  BUFFER 

0405 

1005 

1005 

ZREG 

ER  ASF 

R 3 INPUT  BUFFER 

0406 

1 006 

1006 

XREGLP 

ERASE 

1.0  PART  OF  XREG 

(FOR  DEC  CONV 

ONLY  ) 

0407 

1 007 

1007 

YREGLP 

ERASE 

LO  PART  OF  YRFG 

( FOR  DEC  CONV 

ONLY) 

0408 

REF 

1007 

HITEMOUT 

= 

YREGLP 

TEMP  FOR  DISPLAY 

OF  HRS,  MIN, 

SEC 

A0409 

MUST  = 

lotfmout-i . 

0410 

1010 

1010 

ZREGLP 

ERASE 

LO  PART  OF  ZREG 

(FDR  DEC  CONV 

ONLY) 

0411 

REF 

1 

1010 

LOTEMOUT 

= 

ZRFGLP 

TEMP  FOR  DISPLAY 

OF  HRS,  MIN, 

SEC 

A04  12 

MUST  = 

H I TEMOUT+  1 . 

0413 

1011 

1011 

MODREG 

ER  ASF 

MODE  CODE 

GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 

L ERASABLE  ASSIGNMENTS 


0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 
A0425 

0426 
A0427 
042  8 

0429 

0430 
043-1- 

0432 

0433 


0434  REF  1 

0435  REF  1 

A0436 


1012 

1012 

DSP  LUCK 

ERASE 

1013 

1013 

REQRET 

ERASE 

1014 

1014 

LOADSTAT 

ERASE 

1015 

1015 

CLP ASS 

ERASE 

1016 

1016 

NOUT 

ERASE 

1017 

1017 

-NOUNCADR 

ERASE 

1020 

1020 

MONSAVE 

ERASE 

1021 

1021 

MON  SAVE  1 

ERASE 

102  2 

1 02  7 

MONS AVE2 

ER  ASF 

1023 

1036 

DSPTAB 

FRASF  + 1 1 D 

1037 

1037 

NVQTEM 

ERASE 

1040 

1040 

NVBNKTEM 

FRASF 

1 041 

1041 

VER  RSAVE 

ERASE 

1042 

1042 

CADRSTOR 

ERASE 

1043 

1043 

DSPL 1ST 

ERASE 

1 044 

1044 

EXT  V BACT 

ERASE 

1045 

1047 

DSP  T EM  1 

ERASE 

1050 

1052 

DSPTFM2 

ERASE 

1051 

DSP  T EMX 

EQUALS 

DSPTEM2 

1045 

N0RMTEM1 

EQUALS 

DSPT EMI 

R0437  DISPL4Y  FOR  EXTENDED  VERBS  (V82,  R04IV62),  V4 1 ( N72 ) ) 

-0439  REF  1 1051  OPTIONX  EQUALS  DSPTEMX 

A0440 


R0441  TeASES  AND  PRSPROT  S. 


0443 

1 053 

1053 

TBASE1 

ERASE 

0444 

1054 

1054 

PHS  PRDT 1 

ERAS  F 

0445 

1055 

1055 

i i r u i A 

TBASE2 

ER  AS  F 

0446 

1056 

1056 

PHSPRDT2 

ERASE 

0447 

1057 

_ 1057 

TBASE3 

ERASE 

044  8 

1060 

1060 

PHSPR0T3 

ERASE 

0449 

1061 

1061 

TBASE4 

ERASE 

045  0 

1 062 

1 062 

PHS  PRDT4 

ERASE 

0451 

1063 

1063 

TBASE5 

ERASE 

0452 

1064 

1064 

PHSPRDT5 

ERASE 

0453 

1 065 

1 06  5 

TBASE6 

ERASE 

0454 

1 066 

1066 

PHSPRDT  6 

ER  ASF 

R0455 


UNSWITCHED  FOR  DISPLAY  INTERFACE  ROUTINES 
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USER'S  PAGE  NO.  13  FO  S4 

KEYBOARD/SUB ROUTINE  CALL  INTERLOCK 

RETURN  REGISTFR  FOR  LOAD 

STATUS  INDICATOR  FOR  LOADTST 

PASS  INDICATOR  CLEAR 

ACTIVITY  COUNTER  FOR  DSPTAB 

MACHINE  CADR  FOR  NOUN 

N/V  CODE  FOR  MONITOR.  (=  M0NSAVE1-1) 

NOUNCADR  FOR  MON  I TOR ( M A TB S ) =MONSAVE  +1 

NVMONOPT  OPTIONS 

0-10D,  DISPLAY  PANEL  BUFF.  11D,  C/S  LTS. 

NVSU3  STORAGE  FOR  CALLING  ADDRESS 

MUST  = NVBNKTEM— 1 

NVSUB  STORAGE  FOR  CALLING  BANK 

MUST  = NVQTEM+1 

NEEDED  FOR  RECYCLE 

END  I DLE  STORAGE 

WAITING  REG  FOR  DSP  SYST  INTERNAL  USE 
EXTENDED  VERB  ACTIVITY  INTERLOCK 
RUFFER  STORAGE  AREA  1 (MOSTLY  FOP  TIME) 
BUFFER  STORAGE  ARFA  2 (MOSTLY  FOR  DFG ) 


0(2)  S-S  DISP1AY  BUFFER  FOR  EXT.  VERRS 
B ( 3 ) DS P NORMAL  DISPLAY  REGISTERS. 


(2D) 

(2)  EXTENDED  VERB  OPTION  CODE 
( 12D ) 


t 6D  ) 


GAP : 
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L ERASABLE  ASSIGNMENTS 

0457 

0458 

0459 

0460 

0461 

0462 


1067 

1067 

NVW0RD1 

ERASE 

1070 

1 070 

EBANKSAV 

ERASE 

1071 

1071 

MARKEBAN 

ERASE 

1072 

1072 

EBANKTEM 

ERASE 

1073 

1073 

MARK2PAC 

ERASE 

1074 

1074  _ 

R1 SAVE 

ERASE 

USER'S  PAGE  NO.  14  EO  S4 

BIllPPOBABLY  FOR  DISPLAY  DURING  SFPVICEP 


R0463  IMU  COMPENSATION  UNSWITCHED  ERASABLE. 


{ ID  ) 


0465 

1075 

1075 

1/PIPADT  ERASE 

R0467 

SINGLE  PRECISION  SUBROUTINE  TEMPORARIES. 

( 2D) 

0469 

1076 

1076 

TEMK  ERASE 

(1) 

0470 

1 077 

1077 

SQ  ERASE 

(1) 

A 0471 


R0472 

UNSWITCHED  RADAR  ERASABLE 

( 1 3 D ) 

0474 

1 100 

1100 

SAMPLIM 

ERAS  F 

0475 

1 101 

1104 

SAM  PL  SUM 

ERASE 

+ 3 

04  76 

1 105 

1106 

TIMcHOLD 

ERASE 

+ 1 

0477 

REF 

1 

1 101 

RRTARGET 

EQUALS 

SAMPLSUM 

HALF  U 

IT  VECTOR  IN  SM  OR  NB  AXES. 

0478 

1 107 

1110 

TANG 

ERASE 

+ 1 

DESIRE 

TRUNNION  AND  SHAFT  ANGLES. 

0479 

REF 

1 

1107 

MODEA 

EQUALS 

TANG 

0480 

1111 

1112 

MODEB 

ERASE 

+ 1 

DODES 

LOBBERS  TANG  +2. 

0481 

REF 

1 

mi 

NSAMP 

EQUALS 

MODEB 

0482 

1 113 

1113 

DESRFT 

ER  ASF 

0483 

REF 

1 

1113 

OLD AT  AGD 

EQUALS 

DESRFT 

USED  I 

DATA  READING  ROUTINES. 

0484 

1114 

1114 

DESCOUNT 

ERASE 

R0485 

P22 

if  ififififif 

( 60) 

0487 

REF 

1 

1 1 0 1 

RSUBC 

EQUALS  RRTARGET 

1(6)  S — S C SM  POSITION  VECTOR 

A 04  8 8 
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L 

ERASABLE 

ASSIGNMENTS 

P0489 

UNSWITCHED  FOR 

ORBIT 

INTEGRATION. 

1 141 

JO  FT 

ERASE 

4--  ? n n 

0491 

0492 

REF 

1 

1117 

COLREG 

EQUALS 

T DEC 

0493 

REF 

1 

1 120 

LAT 

EQUALS 

COLR EG 

0494 

1122 

LONG 

EQUALS 

LAT 

REF 

1 

1 124 

ALT 

EQUALS 

LONG 

0495 

0496 

REF 

1 

1 126 

Y V 

EQUAL  S 

ALT 

DPP 

1 

1 1 

ZV 

EQUALS 

YV 

A049B 

R0499  MISCELLANEOUS  UN  SWITCHED. 


0501 

1 142 
1 143 

1142 

1 143 

P40/RET 

GENRFT 

ERASE 

ERASE 

0503 

1144 

1144 

OPT I0N1 

ERASE 

0504 

1 145 

1145 

OPT  1 0N2 

ERASE 

0505 

1 146 

1 146 

OPT I0N3 

ERASE 

0506 

1 147 

1150 

LONGCADR 

ERASE 

+ 1 

0507 

1151 

1152 

LONGBASE 

ERASE 

+ 1 

0508 

1153 

1154 

L ONG  TIME 

ERASE 

+ 1 

0509 

1 155 

1155 

CDUTEMPX 

ERASE 

0510 

1 156 

1156 

CDUTEMPY 

ERASE 

0511 

1157 

1157 

CDUTEMPZ 

ERASE 

0512 

1 160 

1160 

PIPATMPX 

ERASE 

0513 

1161 

1 161 

PIPATMPY 

ERASE 

0514  llixZ  - 1162  PLPATMPZ  ERASE 


0515 

1 163 

1163 

DISPDEX 

ERASE 

0516 

1 164 

1 164 

TEMPR60 

ERASE 

0517 

1 165 

1165 

PRIOTIME 

FRASF 

R0518 

P27 

(UPDATE  PROGRAM 

) STORAGE. 

0521 

1167  1217 

UPTEMP 

fc<>  A - j t 

ERASE 

+ 24D 

0522 

REF 

1 

1 167 

INTWAKIQ 

EQUAL  S 

UPTE MP 

R0523 

RETAIN  THF  ORDER  — OF 

COMPNUMB  THRU  UPBUFF 

+ 1 90  FOR 

nnwNi  ink  purpo 

0524 

REF 

2 LAST  120 

1 170 

COMPNUMB 

EQUALS 

UPTEMP  + 

0525 

REF 

1 

1 171 

UPOLDMOD 

EQUALS 

COMP  NUMB 

0526 

REF 

1 

1 172 

UPVERB 

EQUALS 

UPOLDMOD 

0527 

REF 

1 

1173 

UPCOUNT 

EQUAL  S 

UPVE  RB 

0528 

REF 

1 

1174 

UPBUFF 

FQUALS 

UPCOUNT 

A0529 


R0530 

SPECIAL  DEFINITION  FOR 

SYSTEM  TEST  ERASABLE  PGMS. 

0532 

A0533 

REF 

3 LAST  120  1167 

EBUF2  FQUALS  UPTEMP 

+ 2 

+ 1 

*2 

+2 

+2 

+ 6 

SES 

1 

+ 1 

+1 

+ 1 

+ 1 
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( 2 1 D ) 


— M24 
1(1) 
1(2) 
1 12) 
1(2) 
I (6) 
1(6) 


— (-2-0  D ) 

(WILL  BE  PUT  IN  E6  WHEN  THERE  IS  ROOM) 
B(l)  R61  RETURN  CADR. 

B ( 1 ) NOUN  06  USES  THIS 
B ( 1 ) NOUN  06  USES  THIS 

BI1)  NOUN  06  USES  THIS 

B ( 2 > LONGCALL  REGISTER 

B (2 ) LONGCALL  REGISTER 

B I 1 ) TMP 

B ( 1 ) TMP 

BID  TMP 

BU1TMP 

B ( 1 ) TMP 

B ( 1 ) TM° 

B ( 1 ) 

B ( 1 ) 

R<  1 ) 


( 26D ) 

B ( 1 ) UPDATE  VERB  ATTEMPTED. 

R ( l ) TMP  SCRATCH 

(BORROWS  UPTFMP  REGISTERS) 

aillTMP  NUMBER  OF  ITEMS  TO  BE  UPLINKED 
BfDTMP  INTERRUPTED  PROGRAM  MM 
Bil) TMP  VERB  NUMBER 
B(l) TMP  UPBUFF  INDEX 
B ( 20D ) 


( 2D) 


B ( 2 ) FOR  EXCLUSIVE  USE  OF  SYSTEM  TEST 
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R0534 

PERM  STATE  VECTORS  FOR 

BOOST 

AND  DOWNLINK-WHOLE  MISSION- 

( 14D) 

1 220 

122  5 

RN 

ERASE  +5 

B (6 ) PRM 

0536 

0537 

0538 

1226 

1234 

1233 

1235 

VN 

PIPTIME 

ERASE  +5 

ERASE  +1 

B ( 6 ) PRM 

R ( 2 ) PRM  (MUST  BE  FOLLOWED  BY  GDT/2 ) 

R0539 

SERVICER 

-MUST  FOLLOW 

PIPTIME- 

( 19DI 

0541 

1236 

1261  GDT/2 

ERASE 

+ 19D 

B ( 6 ) TMP 

(MUST  POLLOW  PIPTIME) 

0542 

REF 

1 

1244 

MASS 

EQUAL  S 

GDT/2 

+ 6 

3(2) 

0 543 

REF 

l 

1 244 

WEIGHT/G 

= 

MASS 

0544 

REF 

2 

LAST 

12  1 

1246 

ABDELV 

EQUALS 

MASS 

+ 2 

ALCMANU 

STORAGE) 

0546 

REF 

1 

1247 

PGU IDE 

EQUALS 

ABDELV 

+ 1 

( 2) 

0547 

REF 

1 

1 251 

DVTHRUSH 

EQUALS 

PGUI PE 

+ 2 

( 1 ) 

0548 

REF 

1 

1252 

AVEGEXI T 

EQUALS 

DVTHRUSH 

+ 1 

(2) 

0549 

REF 

1 

1252 

AVGEXIT 

= 

AVEGEXIT 

0550 

REF 

2 

LAST 

121 

1Z54 

TEM.X  . 

EQUALS 

AVEGEXIT 

+ 2 

( 1 ) 

0551 

REF 

1 

1255 

TEMY 

EQUALS 

TFMX 

+ 1 

(1) 

0552 

REF 

1 

1256 

TEMZ 

EQUAL  S 

TEMY 

+ 1 

( 1 ) 

0553 

REF  _ 

1 

1257 

PIPAGE 

EQUALS 

TFMZ  +1 

B ( 1 ) 

0554 

REF 

1 

1260 

OUTROUTE 

EQUAL  S 

PIPAGE 

+ 1 

BID 

A0555 

P0556  — PERMANENT  LEM  OAP  STORAGE-. — (120) 


0558 

0559 

1262 

1263 

1262 

1263 

CH5MASK 

CH6MASK 

ERASE 

ERASE 

B ( 1 ) PRM 

BtllPRM  JET  FAILURE  MASK. 

0560 

1264 

1271 

DTHETASM 

ERASE 

+ 5 

(6) 

0561 

1272 

1272 

SPNDX 

ERASE 

B(l) 

0562 

1273 

1273 

RCSFLAGS 

FR  ASF 

AUTOPILOT  FLAG  WORD 

A0563 

BIT 

A SS IGNMFNTS : 

A0564 

1) 

ALTERYZ  SWITCH 

( ZEROORl ) 

A0565 

2) 

NEEDLER  SWITCH 

A0566 

3) 

NEEDIER  SWITCH 

A0567 

4) 

NEEDLER  SWITCH 

A0568 

5) 

nffdler  SWITCH 

A0569 

9) 

JUST-I N-DETFNT 

SWITCH 

A0570 

10) 

PBIT  - MANUAL 

CONTROL  SWITCH 

A 057 1 

11) 

QRBIT  - MANUAL 

CONTROL  SWITCH 

A0572 

12) 

PSKIP  CONTROL 

( PJUMPADR) 

A0573 

13) 

1 / ACC J OB  CONTROL  (ACCSET) 

0574 

1274 

1275 

T5  ADR 

ERASE 

+ 1 

GENADR  OF  NEXT  LM 

DAP  T5RUPT.  * 2CADR  * 

A0575 

BBC ON  OF  NFXT  LM 

DAP  T5RUPT.  2CADR 

RO  576 

RCS  FAILURE  MONITOR 

STORAGE. 

( 1 ) 
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L 

ERASABLE  ASSIGNMENTS 

USER'S  PAGE  NO.  17 

EO  S4 

0578 

1276 

1276 

PVALVEST 

ERASE 

Bll)  PRM 

R0579 

KALCMANU /DAP 

IMTERFACE. 

1277 

DFI  PFROR 

ERASE 

( 3D) 

8(1) PRM  COMMAND  LAGS. 

05  8 1 

0582 

0583 

1300 

1301 

1300 

1301 

DELQFROR 

DELREROR 

ERASE 

ERASE 

8(1 ) PRM 
B ( 1 ) PRM 

R0584 

MCDE  SWITCHING 

ERASABLE 

• 

( 9D ) 

R0586 

0587 

RETAIN  THE  ORDER  OF 

I M0DES30 
1302 
1 303 

AND  I MODE  S3  3 FOR 
1302  I MODES30 

1 T MOTIFS  8 8 

DOWNLINK  PURPOSES. 

ERASE 

FR  A SF 

Bll) 

0589 

1 304 

1306 

MODECADR 

ERASE 

+ 2 

B ( 3 ) PRM 

0590 

REF 

1 

1 304 

IMUCADR 

EQUALS 

MODECADR 

P E F 

? 1 AS  T 17? 

1 305 

OPTC ADR 

FQUALS 

MCDECADR 

+ 1 

0592 

REF 

3 LAST  122 

1306 

RADCADR 

EQUALS 

MODECADR 

+2 

0593 

1 307 

1311 

ATTCADR 

ERASE 

+ 2 

B (3) PRM 

nsQ4 

RLE 

1 

1311 

ATT  PR  10 

— 

ATT C ADR 

+2 

0595 

1312 

1312 

MARKSTAT 

ERASE 

( 2D ) 

0598 

1313 

1313 

DSRUPTSW 

ERASE 

0599  1 31 A 1314  LGYRO  ERASE  (1) 


R0600 

RENDEZVOUS  RADAR  TASK 

STORAGE 

( 30) 

0602 

1315 

1317 

RRRET 

ERASE 

+ 20 

B ( 1 ) TMP  P 20 ' S » PERHAPS  R29  £ R12 

0603 

REF  1 

1316 

RDES 

EQUAL  S 

RRRET 

+ 1 

B(1)TMP 

HA  04 

P EF  1 

1317 

RR  I f\)HFX 

EQUA1  S 

RDF  S 

+ 1 

B ( 1) TMP 

A0605 

R0606 
^)6  08 

MEASINC 

1 320 

{ 4D) 
R ( l ) 

0609 

1321 

1321 

WIXB 

Lt\  A i t 

ERASE 

B ( 1 ) 

0610 

1322 

1322 

Z I X A 

ERASE 

Bll) 

0611 

1323 

1323 

ZIXB 

ERASE 

8(1) 

R0612 

ACS  DUMMY 

ID  WORD. 

( ID  ) 

0614 

1324 

1324 

AGS  WORD 

ERASE 

R0615 


SCME  MISCELLANEOUS  UNSWITCHED 


( 6D ) 
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L ERASABLE  ASSIGNMENTS 


0617 

0618 

1325 

1326 
1331 

1325 

1330 

1331 

RATEINDX  ERASE 
DELAYLOC  ERASF  +2 
LEMMASS  ERASE 

0619 

0620 

1332 

1332 

CSMMASS  ERASE 

R0621 

LESS  IS  MOPE. 

R0622 

RENDEZVOUS  AND  LANDING 

RADAR 

DOWNLINK  STORAGE. 

t MOD  M A 1 1 V lie  cn 

m i D imp. 

P2Q^  BUT  MAY  ALSO) 

R 0624 
R 062  5 

I BE  REQUIRED  FOR  THE 

V62  SPURIOUS  TEST  . I 

R 0626  (PLEASE  KEEP  IN  THIS  ORDEJU 


0627 

1333  1341 

DNRRANGE 

ERASE 

♦ 6 

0628 

REF 

x 

1 334 

DNRRDOT 

EQUALS 

DNPP ANGE 

+i 

0629 

REF 

1 

1 335 

DNI NDEX 

EQUALS 

DNRRDOT 

+i 

0630 

REF 

1 

1 336 

DNLRVELX 

FQUALS 

DNINDEX 

+i 

06^1 

R FF 

1 

133  7 

DNLRVELY 

EQUALS 

DNLRVELX 

+i 

0632 

REF 

1 

1340 

DNLRVELZ 

EQUAL  S 

DNLRVELY 

+i 

0633 

REF 

1 

1 341 

DNLRALT 

EQUALS 

DNLRVELZ 

+i 

R0634 

INCORPORATION 

UNSWITCHED. 

REF 

2 

LAST  121 

125  7 

W - I NO 

FQIJAI  S 

PIPAGE 

0637 

REF 

i 

1260 

W. INDl 

EQUALS 

W.  I ND 

+i 

R 063 8 SLBROUT I NE  BALLANGS  OF  R60. 

0640  134?  1342  BALLEXIT  ERASF 


R0644.  5GM&-  LEM  OAP  STORAGE. 


0643 

1343 

1 343 

DAPDATR1 

ERASE 

0644 

1 344 

1 345 

TEVENT 

ERASE 

+1 

0645 

A0646 

1 346 

1346 

ne 

ERASE 

R0647 

NOUN  87 

0649 

1 347 

1350 

AZ 

ERASE 

+ ID 

0650 

A0651 

REF 

1 

1350 

EL 

EQUALS  AZ 

+ ID 

0652 

1351 

END-UE 

EQUALS 

R0653 


SELF-CHECK  ASSIGNMENTS 
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USER'S  PAGE  NO.  18  FO  S4 

(1)  USED  BY  K ALCMANU 
KEEP  CONTIGUOUS  W.  CSMMASS  (l)FACH 

( 7D1 


B ( 1 ) TMP 
BllITMP 
B ( 1 ) TMP 
BllITMP 
B ( 1 I TMP 
BllITMP 
Bill  TMP 

I 2D) 

B 1 14 

I I 1 I 


I ID) 

B 1 1 1 SAVE  LOCATION  FOR  BALLINGS  SUBP.  EXIT 


I 4D  I 

BI1IDSP  DAP  CONFIG. 
B I 2 I DSP 

BllITMP  DEAD  BAND. 


I 2D) 

Bill  AZ  AND  FL  MUST  BE  CONTIGUOUS 
BID 

NEXT  UNUSED  UE  ADDRESS 


I 17D  I 


AGC  PROGRAM  LUMINARY  BY  NASA  202 

1112-011 

— 1-9 

: 02  N 

OV.  25,1968  LUMERASE 

.102  PAGF  124 

GAP : 
L 

AbbtPBLt  KtvmtJiN  u O'*  ur 

ERASABLE  ASSIGNMENTS 

USER'S  PAGE  NO.  19 

EO  S4 

R0655 

(DO  NOT  MOVE , S- 

C IS  ADDRESS  SENSITIVE) 

1377  SFI  FFRAS 

ERASE 

1 3R7  - 1 377 

* 

MUST  NOT  BE  MOVED  *** 

0656 

0657 

REF 

1 

1357 

SFAIL 

EQUALS 

SELFERAS 

B ( 1 ) 

0658 

REF 

1 

1360 

ERESTORE 

EQUALS 

SFAIL 

+ 1 

B ( 1 ) 

1 36 1 

SELFRET 

EQUAL  S 

ERESTORE 

+ 1 

B ( 1 ) 

RETURN 

06  59 
0660 

REF 

1 

1362 

SMODE 

EQUALS 

SELFRET 

+ 1 

BID 

066  1 

REF 

1 

1363 

ALMCADR 

FQUALS 

SMODE 

+ 1 

B ( 2 ) 

ALARM-ABORT  USER'S 

2CADR 

1 

FRCOUNT 

EQUALS 

ALMCADR 

+2 

B ( 1 ) 

0663 

REF 

1 

1 366 

SCOUNT 

EQUALS 

EP  COUNT 

*1 

B(  3) 

0664 

REF 

1 

1371 

SKEEP1 

EQUALS 

SCOUNT 

+3 

B(l) 

1 37? 

SKFFP2 

EQUALS 

SKEEP1 

+ 1 

P ( 1 ) 

0666 

REF 

1 

1 373 

SKEEP3 

EQUALS 

SKEEP2 

+ 1 

8(1) 

0667 

REF 

1 

1 374 

SKEEP4 

EQUALS 

SKEEP3 

+ 1 

B(  1 ) 

REF 

l 

I 375 

SKFEP5 

FQUALS 

SKEEP4 

+ 1 

B ( 1 ) 

0669 

REF 

1 

1 376 

SKEEP6 

EQUALS 

SKEEP5 

+ 1 

R ( 1 ) 

0670 

REF 

1 

1 377 

SKEEP7 

EQUALS 

SKEE  P6 

+ 1 

B ( 1 ) 

GAP 
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L 

ERASABLE  ASSIGNMENTS 

USER' S PAGE  NO. 

2 0 EO  S4 

P0671 

E BANK-3  ASSIGNMENTS 

SFTI or. 

1 400 

0672^ 
P06  73 

WAITLIST  TASK  LISTS. 

( 260) 

0675 

E3, 1400 

E3, 1407 

LST1 

ERASE 

+ 7 

B ( 8D) PRM  DELTA  T S. 

0676 

E3, 1410 

E3, 1431 

LST2 

ERASE 

+ 1 7D 

B ! 180) PRM  TASK  2C ADR 

ADDRESSES. 

R 06  77 

RESTART  STORAGE. 

( 20) 

0679 

E3, 1432 

F 3, 1433 

RSBBQ 

ERASE 

+ 1 

B ( 2) PRM  SAVE  B3  AND  0 

FOR  RESTARTS. 

R0680 

MCRE  LONGCALL  S T ORAGE . ( MUS T BE 

IN  L ST  1 

S BANK  . 

( 20) 

P 7 - 

1 DNGFX I T 

ER  ASF 

4-1 

8 ( 2 1 TMP  MAY  BE  SELDOM 

OVERL AY  ED. 

( i 20  ) 

' 

0685 

E 3 , L 436 

E3, 1436 

PHSNAMEl 

ERASE 

BI 1 ) DRM 

0686- 

E 3 , 1437 

. E3, 1437 

PHSBB1 

ER  ASF 

BID  PRM 

0687 

E3, 1440 

E 3 , 1440 

PHSNAME2 

ERASE 

B ( 1 ) PRM 

0688 

E 3, 1441 

E3, 1441 

PHSBB2 

ERASE 

Bll) PRM 

0689 

F 3,  1 442 

E3, 1442 

PHSNAME3 

FRASE 

8(1) PRM 

0690 

E 3, 1443 

E3, 1443 

PHSBB3 

ERASE 

8(1) PRM 

0691 

E3* 1444 

E3, 1444 

PHSNAME4 

ERASE 

B ( 1 ) PRM 

06  97 

_E_  3, 144  5 

£3,1445 

PHSB84 

ERASE 

B ( 1 ) PRM 

0693 

E3, 1446 

E3, 1446 

PHSNAME5 

ERASE 

B (1) PRM 

06  94 

E 3,  1447 

E3, 1447 

PHSBB5 

ERASE 

B ( 1 ) PRM 

0695 — 

E3, 1450 

E 3 , 1 450 

PHSNAME6 

ERASF 

B ( 1 ) PRM 

06  96 

E3, 1451 

E3, 1451 

PHSBB6 

ERASE 

B ( 1 ) PRM 

R0697 

I MU  COMPENSATION  PARAMETERS. 

( 220) 

0699 

1 457 

F^t 1 457 

p p.  ] ASX 

FR  ASF 

AMI  P f P A PIPA  SD  Al  F FATTR  TFRMS 

0700 

REF 

1 E3, 1 452 

PIPABIAS 

PBIASX 

INTERMIXED. 

0701 

E 3 , 1453 

E3, 1453 

PIPASCFX 

ERASE 

0702 

REF 

J E3_i  1 453_ 

PIPASCF 

= 

P IPA  SCFX 

0703 

F3, 1454 

E3, 1454 

PBI ASY 

ERASE 

0704 

E3, 1455 

E 3 , 1 455 

PIPASCFY 

ERASE 

0705 

E3, 1456 

E3, I 456 

PBI ASZ 

ERASF 

0706 

E3, 1457 

E3, 1457 

PIPASCFZ 

ERASE 

0707 

E 3 , 1460 

E3, 1460 

NBOX 

ERAS  E 

GYRO  BIAS  DRIFTS 

0708 

E3,  1 461 

E 3 , 1 46 1 

NBDY 

ERASF 

0709 

E3, 1462 

£3,1462 

NBOZ 

ERASE 

GAP: 

L 

0710 

0711 

0712 

0713 

0714 

0715 

0 716 

0717 

0718 


0719 

A0720 


R0721 

R0723 
R0724 
R0725 
R0726 
R 07  27 
R0728 


0729 

R0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

R0741 

R0743 

R0744 

0745 

0746 

0747 
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ERASABLE  ASSIGNMENTS 


USER'S  PAGE  NO.  21  EO  S4 


REF 

REF 


1 

2 LAST  126 


E 3, 1463 
E3, 1464 
E 3, 1465 

E3, 1466 

E3, 1463 
E3, 1464 
£3,1465 

E3, 1466 
£3,1467 
E3, 1 470 

ADI  AX 
ADI  AY 
AD  I AZ 

ERASE 

ERASE 

ERASE 

ACCELERATION  SENSITIVE  DRIFT 
INPUT  AXIS 

ALONG 

THE 

ADSRAX 

ADSRAY 

ERASE 

ERASE 

ACCELERATION  SENSITIVE  DRIFT 
SPIN  REFFP.FNC E AXI  S 

ALONG 

THE 

E3, 1470 

ADSRAZ 

ERASE 

GTHMP 

FR  ASF 

+ 5 

f DNT  A T N}S  CflMP  FN  SAT  TNG  TflRQiJFS 

E3  f 1471 
F 1 474 

COMMAND 

CDUINO 

EQUALS 

EQUALS 

GCOMP 

GCOMP 

+3 

E3,  1477 

E-3, 1477 

GCOMPSW 

ERASE 

STATE  VECTORS  FOR  ORBIT  INTEGRATION.  (44D) 

(DIFEQCNT  THRU  XKEP  MUST  BE  IN  SAME 
EBANK  AS  RRECTCSM , RRECTLEM  ETC 
BECAUSE  THE  COPY-CYCLES  (ATOPCSM, 

RTOACSM  ETC)  ARE  EXECUTED  IN  BASIC. 

ALL  OTHER  REFFRENCFS  TO  THIS  GROUP 
ARE  BY  INTERPRETIVE  INSTRUCTIONS.) 


E3 , 1 500  E 3 , 1 5 5 3 DIFEQCNT  ERASE  +430  B(l) 

(UPSVFLAG.. .XKEP  MUST  BE  KEPT  IN  ORDER) 


REF 

1 

F3 , 1501 

UPSVFLAG 

EQUAL  S 

DIFE  QCNT 

+ 1 

B ( 1 ) 

REF 

1 

E 3 , 1 502 

RRECT 

EQUALS 

UPSVFLAG 

+1 

8(6) 

REF 

1 

F 3, 1510 

VRECT 

EQUALS 

RRECT 

B ( 6 ) 

REF 

1 

F3, 1516 

TET 

EQUALS 

VRECT 

-♦-6 

B ( 2 ) 

REF 

1 

E 3 , 1520 

TDELTAV 

EQUAL  S 

TET 

+ 2 

3(6) 

REF- 

1 

£3, 1526 

TNUV 

EQUALS 

TDEL TAV 

3(6) 

REF 

1 

F3, 1534 

RCV 

FQUALS 

TNUV 

+ 6 

8(6) 

REF 

1 

E 3, 1542 

VCV 

EQUAL  S 

RCV 

+6 

B ( 6 ) 

REF 

1 

F 3, 1 550 

TC 

FQIJAI  S 

VCV 

+ 6 

B ( 7 ) 

REF 

1 

E3, 1552 

XKEP 

EQUALS 

TC 

+ 2 

B (2  ) 

PERMANENT  ST  ATE- VECTORS  AND  TIMES. 

(CO  NOT  OVERLAY  WITH  ANYTHING  AFTER  BOOST) 
(RRECTCSM  ...XKEPCSM  MUST  BE  KEPT  IN  THIS  ORDFR ) 


REF 


£3, 1554  E 3, 1561 
E3, 1554 

E 3,  1562  E 3 , 1 56  7 


RRECTCSM  ERASE  +5 
RRECTOTH  = RRECTCSM 

VRECTCSM  ERASE  +5 


( 990) 


B ( 6 ) PRM  CSM  VARIABLES. 
B ( 6 I PRM 


19:02  NOV.  25,1  968 

LUMFRASE. 102 

PAGE  127 

GAP  : 
L 

AbbtrOi_t  Kt  V ij  Jru  IN  UO'J 

ERASABLE  ASSIGNMENTS 

USER'S  PAGE 

NO.  2 2 

EO  S4 

0748 

E3, 1570 

E3, 1571 

TETCSM 

ERASE 

+ 1 

B ( 2 ) PRM 

0749 

REF  1 

F 3 , 1570 

TETOTHER 

= 

TETCSM 

FT, 1 57? 

E 3 , 1 577 

DEL  TACSM 

ERASE 

+ 5 

B ( 6 ) PRM 

0751 

E3  » 1600 

E 3 » 1 605 

NUVCSM 

ERASE 

+ 5 

B ( 6 ) PRM 

0752 

E3, 1606 

E3, 1613 

RCVCSM 

ERASE 

+ 5 

B ( 6 ) PRM 

F T,  1 61  4 

E3. 1621 

VCVCSM 

ERASE 

+ 5 

B (6 ) PRM 

0754 

E 3 , 1622 

E3, 1623 

TCCSM 

ERASE 

+ 1 

B(2) PRM 

0755 

E3, 1624 

E3, 1625 

XKEPCSM 

ERASE 

+ 1 

B ( 2 ) PRM 

R0756 

(RRECTLEM  . 

. .XKEPLEM 

MUST  BE 

KEPT  IN  THIS  ORDER) 

F 7 , 1 62 6 

F T, I ATT 

RRECTLEM 

ERASE 

+ 5 

B I 6 ) P R M 1 FM  VARTARI  FR 

0758 

REF  1 

E3, 1626 

RRECTHI S 

RRECTLEM 

0759 

E3, 1634 

E3, 1641 

VRECTLEM 

ERASE 

+ 5 

B ( 6) PRM 

07^0 

E3. 1 642 

F 3 1 1 643 

TETLEM 

ERASE 

+ 1 

B ( 2 ) PRM 

0761 

REF  1 

E3, 1642 

TETTHIS 

TFTL  EM 

0762 

E3, 1644 

E3, 1651 

DFLTALEM 

ER  ASF 

+ 5 

B ( 6 ) PRM 

0763 

E3» 1652 

£3,1657 

NUVLEM 

ERASE 

+ 5 

R (6 ) PRM 

0764 

E3, 1660 

E 3, 1 665 

RCVLEM 

ERASE 

+ 5 

B ( 6 ) PRM 

0765 

E3, 1666 

E3, 1673 

VCVLFM 

ERASE 

+ 5 

B ( 6 ) PRM 

0766 

E3, 1674 

E3, 1675 

TCLEM 

ERASE 

+ 1 

B ( 2 ) PRM 

0767 

E 3, 1676 

F3, 1677 

XKEPLEM 

ERASE 

FI 

B ( 2 ) PRM 

0768 

f T y ] 700 

F T,  1 70  5 

X78  9 

FR  ASE 

+ 5 

0769 

E3, 1 706 

E3, 1710 

TEPHEM 

ERASE 

+ 2 

0770 

E 3» 1 71 1 

E 3, 1712 

AZO 

ER  ASF 

+ 1 

0771 

E 3f 1713 

E3, 1714 

-AYO 

ERASE 

+ 1 

0772 

E3.1715 

E3, 1 716 

AXO 

ERASE 

+ 1 

A0773 

R0774 

STATE  VECTORS  FOR  DOWNLINK. 

( 12D  ) 

0776 

0777 

E3, l 717 

E3, 1 725 

E3, 1724 
E 3 , 1 732 

R-OTHER 

V-OTHER 

ERASE 

ERASE 

+ 5 
+ 5 

B (6) PRM 
B (6) PRM 

POS 

VEL 

VECT 

VFCT 

( OTHER 
(OTHER 

VECH) 

VECH) 

FOR 

FOR 

DNL INK 
DNLINK 

0778 

REF 

2 LAST  127 

E3, 1570 

T-OTHER 

= 

TETCSM 

TIME 

(OTHER 

VECH) 

FOR 

DNL I NK 

R 0779 

REFSMMAT . 

( 18D) 

0781 

E3, 1733 

E 3, 1754 

REE  SMM AT 

ERASE 

+ 17D 

I ( 18DIPRM 

R0782  ACTIVE  VEHICLE  CENTANG.  MUST  BE  DISPLAYED  ANYTIME  (ALMOST.)  (2D) 


0784 

A0785 

E3 , 1 755 

E3,l 756 

ACT  CENT 

ERASE 

+i 

1(2)  S-S 
VEHICLE 

CENTRAL  ANGLE  BETWEEN 
AT  TP  I TIG  AND  TARGET 

ACTIVE 
VECTOR . 

R0786 

**44  USED  IN  CONICSEX 

(PLAN  INEPT 

ORIENT  ) 

> 


CAP: 
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NASA  2021112-011 
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L 

ERASABLE 

ASS  IGNMENTS 

USER  * S PAGE  NO.  23 

EO  S4 

0787 

REF  1 

E3, 1706 

TIMSUBO 

EQUALS 

TEPHEM 

CS EC  B-42  (TRIPLE  PRECISION) 

A0788 

R0789 

LPS20.1 

STORAGE 

ALL  ARE  PRM  - 

( 9D) 

3 ? 1 7^7 

_p 3 ,1757  LS21X 

ERASE 

T ( 1 ) 

079 1 

0792 

E3, 1760 

E3.1765  LOSVEL 

ERASE 

+ 5 

1(6) 

0793 

E3, 1 766 

E3.1767  MLOSV 

ERASE 

+ 1 

1(2)  MAGNITUDE  OF  LOS,  METERS 

B-29 

R 0795 

**  P 22 

*****  (OVERLAYS  L PS  20.1  STORAGE) 

t 6D ) 

C 1 7AH 

VSDRC 

FOUAI  S 

1 CSV  EL 

T ( 6 ) S — S CSM  VELOCITY  VECTOR 

A0798 

R0799  P ADLOADE  D ER ASA8LES  FOR  P20/P22  (60) 


0801 

0802 

E 3, 1 770 

- -E-3,  177  2 

E3, 1771 

E3, 1 773 

RANGE VAP 
RAT  EVAR 

ERASE 

ERASE 

+ 1 
+ 1 

1(2) 
I (2) 

RR  RANGE  ERROR  VARIANCE 
RR  RANGE-RATE  ER-ROR  VARIANCE 

0803 

F 3 , 1774 

E3, 1774 

RVARMIN 

ERASE 

1(1) 

MINIMUM  RANGE  ERROR  VARIANCE 

0804 

E3, 1775 

E 3 , 1 77  5 

WARM  I N 

ERASE 

1(1) 

MINIMUM  RANGE-RATE  ERROR  VARIANCE 

A0805 

0806 

E3, 1 776 

EN0-E3 

EQUALS 

NEXT 

UNUSED  E 3 ADDRESS 

) 


I 


I 


I 


GAP: 


P0807 

0808 


R0809 

0810 


R0811 


0813 
08  1 A 

0815 

0816 

0817 

0818 


R0819 

0821 

0822 

A0823 

R0824 

0826 

0827 


R 0828 

0830 

A0831 

R0832 

0834 


R0835 


0837 

A0838 


R0839 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 
ERASABLE  ASSIGNMENTS 

E BANK-4  ASSIGNMENTS 

£4, 1400  SETLOC  2000 


19:02  NOV.  25,1968  LUMERASE. 102  PAGE  129 
USER'S  PAGE  NO.  24  FO  S4 


E4  IS,  FOR  THE  MOST  PART  RESERVED  FOR-PAD  LOADED  AND  UNSHARABLE  ERASE. 


E4, 1400 

AMEMORY 

EQUALS 

P20  STORAGE.  -PAD  LOADED- 

( 6D  ) 

E 4 , 1 400 
E 4 , 1 40  1 
E4, 1402 

E4, 1400 
E4, 1401 
E4.1402 

WRENDPOS  ERASE 
WRF  NOVEL  ERASE 
W SHAFT  ERASE 

B ( 1 ) PL 
B( 1) PL 
B ( 1 ) PL 

KM* 2 ( — 7 ) 
KM(-l/2)*2( 11) 
KM*2(-7) 

E4, 1403 

E4, 1403 

WTRUN 

ERASE 

B (1) PL 

KM*2(-7) 

E4, 1404 

E4, 1404 

RM  A X 

ERASF 

B( 1 ) PL 

ME  TE  RS  *2 ( - 1 9 ) 

E 4, 1405 

__E4 , 1 405 

VMAX 

ERASE 

8 ( 1 ) PL 

M/CSEC*2 ( -7 ) 

LUNAR  SURFACE  NAVIGATION  (2D) 


E4, 1406 

E4, 1406 

WSURFPOS 

ERASE 

B ( 1 ) PL 

F4, 1407 

F4, 1407 

WSURFVEL 

ERASE 

B ( 1 ) PL 

P 22  STORAGE.  -PAD  LOADED-  (2D) 


E 4, 1410 

E4, 1410 

SHAFTVAR 

FRASE 

B ( 1 ) PL 

RAD 

S0*2( 12 ) 

£4,1411 

E4.1411 

TRUNVAR 

ERASE 

B ( 1 ) PL 

PAD 

SQ*2 ( 10 ) 

CCNISEX  STORAGE. -PAD  LOAOED= — (6D) 

F4, 1412  E 4,  1417  504LM  ERASE  +5  I(6)M00N  L IBR AT  ION  VECTOR 

V 47 ( R 47 ) AGS  INITIALIZATION  STORAGE.  -PAD  LOADED-  (2D) 

E4.  1420  E 4 , 1421  AGSK  ERASE  +1 

LUNAR  LANDING  STORAGE.  -PAD  LOADED-  (60) 


f 4,  1-422  E4, 1 427  RLS ERASE  +5  1(6)  LANDING  SITE  VECTOR  -MOON  REF 


INTEGRATION  STORAGE. 


( 1020) 


E4.1430  E4 , 1 5 75  PBODY  ERASE 


+L01D  1(1) 


0841 
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Qft42 

REF 

1 

E4, 1431 

ALPHAV 

EQUALS 

PBODY 

+ 1 

1(6) 

0R43 

R EF 

1 

E4, 1437 

BETAV 

EQUALS 

ALPHAV 

+ 6 

I (6) 

£ 4, 1445 

PHI  V 

EQUALS 

BETAV 

+6 

1(6) 

0845 

REF 

l 

E 4,  1453 

PSI  V 

EQUALS 

PHIV 

+ 6 

I (6  ) 

0846 

REF 

i 

E4, 1461 

FV 

EQUALS 

PSI  V 

1(6)  PERTURBING  ACCELERATIONS 

F 4»  1 467 

ALP HAM 

EQUALS 

FV 

+6 

1(2) 

0848 

REF 

l 

E 4,  1471 

BETAM 

EQUALS 

ALPH AM 

+2 

1(2) 

0849 

REF 

l 

E4, 1473 

TAU. 

EQUALS 

BETAM 

+ 2 

1(2) 

F4t 1 475 

OT/2 

EQUALS 

TAU. 

+2 

1(2) 

0851 

REF 

l 

E4, 1477 

H 

EQUALS 

OT/2 

+2 

1(2) 

0852 

REF 

l 

E4 , 1501 

GMODE 

EQUALS 

H 

+2 

1(1) 

F4t  1 502 

IRETURN 

EQUALS 

GMOr  E 

+ 1 

1(1) 

0854 

REF 

l 

E4, 1503 

NORMGAM 

EQUAL  S 

IRETURN 

+ 1 

Id) 

0855 

REF 

l 

E4, 1504 

RPQ  V 

EQUALS 

NORMGAM 

+ 1 

REF 

l 

F4, 1512 

ORIGEX 

EQUALS 

RPQ  V 

1(1) 

0857 

REF 

l 

E4, 1 512 

KEPRTN 

EQUALS 

ORIGEX 

1(1) 

0858 

REF 

2 

LAST  130 

E4, 1513 

RQV  V 

EQUALS 

ORIGEX 

+ 1 

1(6) 

Q0SQ 

R FF 

__  1_  _ 

F4 » 1521 

..RPSV 

EQUALS 

P.Q.VV 

1(6) 

0860 

REF 

1 

E4, 1527 

XKEPNEW 

EQUALS 

RPSV 

+6 

1(2) 

0861 

REF 

1 

E4, 1531 

VECTAB 

EQUALS 

XKEPNEW 

+ 2 

I ( 360) 

n_QA9 

RPF 

1 

F4. 1 S74 

VECTABND 

EQUALS 

VECT  AB 

+ 350 

ENO  MARK 

A0863 

R 0864 

THESE 

PROBABLY  CAN  SHARE 

MID-COURSE  VARIABLES. 

( 6D  ) 

REF 

2 

LAST 

1^0 

F4r 1537 

VAC  X 

FQI 1 Al  S 

V F f T AR 

+ 6 

1(2) 

0867 

REF 

i 

E4, 1541 

VACY 

EQUALS 

V AC  X 

+ 2 

1(2) 

0868 

REF 

i 

E 4,  1543 

V AC  Z 

EQUALS 

VACY 

+ 2 

1(2) 

R0869 

SERVICER  STORAGE  (USED 

BY  ALL  POWERED 

FLIGHT  1 

PROGS  . ) 

( 18D  ) 

0-8  71- 

— REF 

3 

LAST 

13  0 

£4f i 545 

PH!  ! A1  C 

VECT  AR 

+ L2n 

1(6) 

0872 

REF 

i 

E 4, 1 553 

YNBPI  P 

EQUALS 

XNBP  IP 

+ 6 

1(6) 

0873 

A0874 

REF 

i 

E4, 1561 

ZNBPIP 

EQUALS 

YNBP  IP 

+ 6 

1(6) 

P 08  75 

SOME 

VERB  82 

STORAGE 

( 4D ) 

0877 

REF 

2 

LAST 

130 

E4, 1517 

HAPOX 

EQUALS 

ROW 

+4 

1(2) 

0878 
A 0879 

REF 

1 

F 4,  1521 

HPERX 

EQUALS 

HAPOX 

+ 2 

1(2) 

R0880 

V 82  STORAGE 

( 60) 

0882 

A0883 

REF 

4 

LAST 

130 

E4, 1567 

VONE  ' 

EQUALS 

VECTAB 

+ 30D 

K6JTMP  NORMAL  VELOCITY  VONE  /SORT.  MU 

R 08  BA- 


RB 1 ( V 83  ) STORAGE.  -SHARES  WITH  INTEGRATION  STORAGE- 


< 28D  ) 


-GAP : 
L 

ASSEMBLE  REVIS ION  069 
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USER'S  PAGE  NO.  26 

.102  PAGE  131 
EO  S4 

0886 

REF 

2 

LAST 

130 

E4, 1 504 

8ASETHV  EQUALS 

RPQV 

1(6) 

BASE  VEL  VECTOR 

THIS  VEH 

A0887 

0888 

REF 

3 

LAST 

130 

E4,  1513 

BASETIME  EQUALS 

ROW 

1(2) 

TIME  ASSOC  WITH 

BASE  VFCS 

0889 

REF 

4 

LAST 

131 

E4, 1 515 

ORIG  EQUALS 

ROW 

+2 

1(1) 

=0  FOR  EARTH  =2 

FOR  MOON 

0 890 

REF 

S 

LAST 

131 

E4, 1516 

STATEXIT  EQUALS 

ROW 

+ 3 

Id) 

STQ  ADDRESS  FOR 

STATEXTP 

0891 

REF 

6 

LAST 

131 

E4, 1 517 

BASEOTV  EQUALS 

RQVV 

+4 

1(6) 

BASE  VEL  VECTOR 

OTHER  VEH 

A 0892 

0893 

REF 

5 

LAST 

130 

E 4, 1 537 

BASEOTP  EQUALS 

VECT AB 

+6 

1(6) 

BASE  POS  VECTOR 

OTHER  VEH 

A0894 

0395 

REF 

6 

LAST 

13  1 

E 4,  1567 

BASETHP  EQUALS 

VECT  AB 

+ 30D 

I (6) 

BASE  POS  VECTOR 

THIS  VEH 

A0896 

R0897 

KEPLER 

STORAGE.  (KEPLER  IS  CALLED  BY  PRECISION 

INTEGRATION  AND 

( 6D  ) 

R 0899 

rr in  i r <;  » 

0900 

E4.1576  E4.1603 

XMOOULO  ERASE 

+ 5 

1(2) 

0901 

REF 

1 

E4, 1 600 

TMODULO  EQUALS 

X MOD  ULO  . 

+ 2 

1(2) 

0902 

REF 

1 

E4, 1602 

EPSILONT  EQUALS 

TMODULO 

+ 2 

1(2) 

R0903 
09  OS 

VERB  83  STORAGE. 

l 604  F 4, 1 6?  5 

RANGE 

ERASE 

+ 170 

( 18D) 

I ( 2 ) DSP 

NOUN  54  DISTANCE 

TO  OPTICAL  SUB J 

0906 

REF 

1 

E4, 1606 

RR  ATE 

EQUAL  S 

RANGE 

+ 2 

I (2IDSP 

NOUN  54  RATE  OF 

APPROACH. 

0907 

REF 

1 

F4, 1610 

RTHETA 

EQUALS 

RPATF 

+ 2 

1(2)  DSP 

NOUN  54. 

0908 

REF 

1 

44,  1612 

RONE 

EQUALS 

RTHETA 

+ 2 

1(6) TMP 

VECTOP  STORAGE. 

( SCRATCH) 

0909 

REF 

1 

E4, 1620 

VONE 

EQUALS 

RONF 

+ 6 

I ( 6) TMP 

VECTOR  STORAGE. 

( SCRATCH) 

0910 

REF 

2 

LAST 

131 

E 4, 1 604 

WWPOS 

RANGE 

NOUN 

99  ( V67 ) 

0911 

REF 

2 

LAST 

13  1 

E4, 1606 

WWVEL 

RR  AT  E 

NOUN 

99  ( V67 ) 

R 09 12 

V82 

STORAGE 

. (CANNOT  OVERLAY 

RONE  OR  VONE) 

( 11  D) 

TWO  SEPARATE  LOCATIONS 

0914 

REF 

7 

LAST 

13  1 

E4 , 1537 

V82FLAGS  FQUALS 

VECT  AB 

+ 6 

( 1 ) 

FOR  V 82  BITS. 

0915 

RFF 

1 

E 4, 1 540 

TFF  EQUALS 

VB2F LACS 

+ 1 

1(2) 

0916 

REF 

1 

E 4, 1542 

-TPER  EQUALS 

TFF 

+ 2 

I ( 7 ) 

A0917 

0918 

REF 

3 

LAST 

1 3 1 

E4, 1 604 

HPERMIN  EQUALS 

RANGE 

1(2) 

SET  TO  300KFT  OR  35KFT  FOR  SR30.1 

0919 

REF 

1 

E4, 1 606 

RPADTEM  EQUALS 

HPEP  MIN 

+ 2 

1(2) 

PAD  OR  LANDING  RADIUS  FOP  SR30.1 

0920 

REF 

1 

E4, 1610 

TSTART82  EQUALS 

RFADTEM 

+2 

1(2) 

TEMP  TIMF  STORAGE  FOR  VR2. 

A092  1 

VARIOUS  DISPLAY  REGISTERS  (60)  NOUN  34;  P76 


R0922 


GAP 
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L 

ERASAELE  ASSIGNMENTS 

USER'S  PAGE  NO.  27 

EO  S4 

0924 

A0925 

E4, 1626 

E4, 1633 

DELVOV  ERASE 

+5D 

(6) 

R0926 

ALIGNMENT  PLANETARY- 

INERTIAL 

TRANSFORMATION  STORAGE. 

( 1BD) 

R0928  UNSHARED  WHILE  LM  ON  LUNAR  SURFACE. 


64, 1634  E 4, 1655  GSAV  ERASE  +170  1(6) 

E4.1642  YNBSAV  EQUALS  GSAV  +6  1(6) 

F 4,  1650  ZNBSAV  EQUALS  YNBSAV  +6  1(6) 


R0933  KALCMANU  STORAGE.  CAN  OVERLAY  GSAV.  - — M8D) 


0935 

RFF 

REF 

2 

LAST 

132 

FA,  L 634 
\ 634 

MFS 
MF  I 

EQUALS 

EQUALS 

GSAV 

MFS 

1(181 

I 

0937 

REF 

2 

LAST 

132 

E4, 1634 

KEL 

EQUALS 

MFS 

1(18) 

0938 

REF 

3 

LAST 

132 

E4, 1634 

E01 

EQUALS 

MFS 

1(6) 

09  39 REF  — 1 E4,1642  E02  EQUALS  E01  +6 1(6) — 


R 0940  LR  VEL  BEAM  VECTORS.  (260) 

A0942 

R0943  CAN  OVERLAY  GSAV  WITH  CARE,  USED  DURING  POWERED  DESCENT  ONLY. 


0944 

REF 

3 LAST  132 

E4, 1634 

VZBEAMNB 

EQUALS 

GSAV 

1(6) 

LR  VELOCITY  BEAMS  IN  NB  COORDS. 

0945 

REF 

1 

E4, 1642 

VYBEAMNB 

EQUAL  S 

VZBE  AMN8 

+ 6 

I (6) 

0946 

REF 

1 

£4,4.650 

VXBEAMNB. 

EQUAL  S 

VYBEAMNB 

+6 

1(6) 

PRESERVE  Z , Y , X ORDER. 

0947  REF  1 - E4, 1656  LRVTIME  = VXBFAMNB  +6  B(?)  LR 


0948 

REF 

1 

E4 , 1660 

LRXCDU 

= 

LRVT  IME 

+ 2 

B ( 1 ) 

LR 

0949 

REF 

1 

E4, 1661 

LRYCDU 

- 

LRXCDU 

+ 1 

B ( 1 ) 

LR 

0950 

REF — 

1 

£4, 1 662 

LRZCDU 

— 

LRYCDU 

+ 1 

8(1) 

LR 

0951 

REF 

1 

E4, 1663 

PIPTEM 

— 

LRZCDU 

+ 1 

8(3) 

LR 

A0952 

R0953 

P32-P35, 

P72-P75  STORAGE. 

( 40  D ) 

0955 

E 4, 1656 

E4, 1657 

T1T0T2 

ER  ASF 

+ 1 

(2) 

TIME  FROM  CSI  TO  CDH 

0956 

F4, 1660 

E4, 1661 

T2T0T3 

ERASE 

+ 1 

(2) 

0957 

E4, 1662 

E4, 1663 

ELEV 

ERASE 

+ 1 

(2) 

0958 

E4, 1664 

E4, 1671 

UP1 

FRASE 

+ 5 

(6) 

0959 

E4, 1672 

E4, 1677 

DEL VEET1 

ERASE 

+ 5 

1(6) 

OV  CSI  IN  REF 

0960  - 

__  £4,1 700 

E4.1705 

DEL VEET  2 

ER  ASE 

+ 5 

1(6! 

DV  CSH  IN  RFF 

0961 

E4, 1706 

E4, 1713 

RACT1 

ERASE 

+ 5 

(6  ) 

POS  VEC  OF  ACTIVE  AT 

CSI 

TIME 

0962 

E4, 1 714 

E4, 1721 

RACT2 

ERASE 

+ 5 

(6) 

POS  VEC  OF  ACTIVE  AT 

CDH 

TIME 

0929 — 

0930  REF  1 

0931  REF  1 

A0932 
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0963  E4, 1722  E4,1723 

0964  E4,1724  F4,1725 
R0965 


RTSR1/MU  ERASE 
RTMU  ERASE 


+1  (2)  SQ  ROOT  l /MU  STORAGE 

+1  (2)  MU  STORAGE 


R0966 


(THE  FOLLOWING  ER  ASA8LES  OVERLAY  PORTIONS  OF  THE  PREVIOUS  SECTION) 


0968  REF  1 

A0969 

0970  REF  1 

A0971 

0972  REF  1 

097L  REF  L 

A0974 

0975  REF  1 


E 4, 1656 

+ MG  A 

EQUAL  S 

T1T0T2 

(2) 

S-S 

+ MID  GIM  ANGL  TO  0ELVEET3 

E 4, 1664 

UNRM 

EQUALS 

UP1 

I (6) 

s-s 

E4, 1 706 
F4, 1714 

DVLOS 
iii  ns 

EQUAL  S 
EQUALS 

PACT  1 
P ACT  2 

1(6) 

1(6) 

S-S 

s-s 

DELTA  VELOCITY, LOS  COORD-DISPLA 
UNIT  LINE  OF  SIGHT  VECTOR 

E4, 1722 

NOMTPI 

EQUALS 

RTSR 1/MU 

(2  ) 

s-s 

NOMINAL  TP I TIME  FOR  RECYCLE 

110976 

0978 

DQ  7 Q 

REF 

ELEL 

-SOME 

2 LAST 

1 

P30  STORAGE . 
133  E4, 1 722 

F4. 1 774 

HAPO 

HPFR 

EQUAL  S 
EQUALS 

RTSR  1 /MU 
HAPO 

A0980 

R0981 

QQp.  3 

REF 

l 

SCME 

P38-P39,P78-79  STORAGE. 
F4f \ 706 

-DEL-TAR 

DELTTIME 

TARGTIME 

FQiJAi  <; 

n vi  n <; 

( 6D ) 
M2) 

0984 

0985 
A0986 

REF 

REF 

1 

1 

E4, 1710 
E4, 1712 

EQUALS 

EQUALS 

DELTAP 
DEL  T T IMF 

+ 2 
+2 

1(2) 

1(2) 

T IME 
TINT 

REPRESENTATION  OF 
MINUS  DELTTIME 

DELTAR 

0987 
A 0988 

REF 

2 

LAST 

133  E4.1706 

T INTSOI 

EQUALS 

DELT  AP 

1(2) 

TIME 

OF  INTERCEPT  FOR 

SOI  PHASE 

R0989  THE  FOLLOWING  ARE  ERASABLE  LOADS  DURING  A PERFORMANCE  TEST. 

0990  REF  1 F4  * 1 400  TRANSM1  = WPENDPOS  E4.1400 

0991  REF  1 E4 , 1422  ALFOK  = TRANSM1  +18D 


R 0992  *******  THE  FOLLOWING  SECTIONS  OVERLAY  V83  AND  DISPLAY  STORAGF  ******* 


R 0993  V 47 ( R 47 ) AGS  INITIALIZATION  PROGRAM  STORAGE.  (OVERLAYS  V83)  (14D) 

0995  REF  4 LAST  131  F4,1604  AGSBUFF  EQUALS  RANGE  9(140) 

0996  REF  1 F4 , 1621  AGSBUFEE  EQUALS  AGSBUFF  + 130  ENOMARK 
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R 0997  R36  OUT-OF-PLANE  RENDEZVOUS  CISPLAY  STORAGE.  (OVERLAYS  V83)  (12D) 

0999  REF  2 LAST  131  E4.1612  P,P ASS 36  EQUALS  RONE  1(6)  S-S 

1000  REF  1 F4.1620  UNP36  EQUALS  RPASS36  +6  1(6)  S-S 


r 1 0 01  S-BAND  ANTENNA  GIMBAL  ANGLES.  DISPLAYED  BY  RO  5 ( V64  ) .(OVERLAYS  V83)  (10D) 

R 1003  (OPERATES  DURING  POO  ONLY) 


1004 

1005 

REF 
RFF 
P E F 

5 

1 

LAST 

133 

E4 , 1604 
E4, 1606 
F4,  ) M 0 

ALPHASB 
8ET ASB 
RLM 

EQUALS 

EQUALS 

EQUALS 

RANGE 
ALPHASB 
BET  ASB 

B (2  ) 
+2  B ( 2 ) 

+2  1(6) 

DSP  NOUN  51.  PITCH  ANGLE. 
DSP  NOUN  51.  YAW  ANGLE. 

S S/C  POSITION  VECTOR. 

R1007 

❖ *5jE  $ 

USED 

IN  S-BAND 

ANTENNA 

FOR  LM  **** 

1008 

1009 

REF 

REF 

2 

2 

LAST 

LAST 

134 

134 

E4, 1 606 
E 4, 1604 

YAWANG 

PITCHANG 

EQUALS 

EQUALS 

BET  A SB 
ALPH  ASB 

R 10 10 

NCUN 

56 

DATA  ■ 

- COMPUTED  AND  DISPLAYED 

BY  VERB  85 

. 

(4) 

1012 

1013 

REF 

REF 

1 

1 

E4, 1 604 
E 4, 1 606 

RR-AZ 

RR-ELEV 

EQUALS 

EQUALS 

PITCHANG 

RR-AZ 

1(2) 

+2  1(2) 

ANGLE  BETWEEN  LOS  AND  X-Z 
ANGLE  BETWEEN  LOS  AND  Y-Z 

PLANE. 

PLANE. 

R 10 14 
R 10  1 6 

RC4 ( V62 ) RADAR  TEST 
R04  IS  RESTRICTED  TO 

STORAGE. 

POO. 

( 8D ) 

1017 
A 10 1 8 

REF 

6 

LAST 

134 

E4, 1 604 

RSTACK 

EQUALS 

RANGE 

B (8) 

BUFFER  FOR  R04  NOUNS. 

R 10 19 

INITVEL  STORAGE.  ALSO  USED 

BY  P31.P34, 

P35, P74, 

P75, P10, 

P11,MIDGIM,S40. 1 AND  S40.9.  (18D) 

R 102 1 (P0SSI3LY  RINIT  £ VINIT  CAN  OVERLAY  DELVEET  1 £ 2 ABOVE) 


1022 

E4 , 1 726 

E4, 1733 

RINIT 

ERASE 

+ 5 

1(6) 

ACTIVE 

VEHICLE  POSITION 

102  3 

F 4 , 1 734 

E 4,  1 741 

VINIT 

ERASE 

1(6) 

ACTIVE 

VEHICLF  VELOC I TY 

1024 

E 4 , 1 742 

E4.1747 

VIPR IME 

ERASE 

+ 5 

1(6) 

NEW  VEL 

REQUIRED  AT  INITIAL  RADIUS. 

R 1 0 2 5 VARIOUS  DISPLAY  REGISTERS.  BALLANGS  (3D) 

1027  E4.1750  E4,1750  FDAIX  ERASE  1(1) 

1028  FA, 1751  E A, 1 751  FDA  I Y ERASE  LULL 

1029  E4,  1 752  EA.  1752  FDA  I Z ERASE  1(1) 

A 1 030 

R 103 1 * P24-P35  STORAGE.  DOWNLINKED. 

R1032  *<2C) 


GAP 
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L ERASABLE  ASSIGNMENTS 

USER'S  PAGE  NO. 

1033  * E4, 1 753  E4.1754  OELVTPF  ERASE 

A 1034  * 

+ 1 

1(2)  DELTA  V FOR  TPF 

iA.nl 

r 1035  SCMF  RO 4 1 V 62 ) — R 7 7 RADAR  TEST  STORAGE  (5D) 


1037 

E 4* 1755 
E 4t 1756 

F4, 1755 
F 4 1 1 756 

RTSTDEX 

RTSTMAX 

ERASE 

ERASE 

(1) 

(1) 

1039 

E4, 1 757 

F4.1757 

RTSTBASE 

ERASE 

(1) 

1040 

F4, 1760 

E 4, 1 760 

RTSTLOC 

ERASE 

(1) 

1 041  R F F 1 

F A , 1 760 

RSTKLOC 

= RTSTLOC 

1042 

E4, 1 761 

E4, 1 761 

RSAMPDT 

ERASE 

(1) 

1043 

E4, 1762 

E4, 1762 

RFA ILCNT 

ERASE 

(1) 

R 1044 

EO  S4 


R 1045  * LPS20.1  STORAGE 


R 1046  *1120) 


1047 

*REF 

1 

E4.1755 

LMPOS 

EQUALS 

RTSTDEX 

1(6)  TEMP.  STORAGE  FOR 

LM 

POS.  VECTOR 

1048 

*REF 

1 

E4, 1763 

LMVEL 

EQUALS 

LMPOS  +6 

1(6)  TEMP.  STORAGE  FOR 

LM 

VEL.  VECTOR 

41049 

* 

1050 

E 4,  1 763 

END— E4 

EQUALS 

FIRST  UNUSED  LOCATION 

IN 

E4 

R1051  SECOND  OPS  GUIOANCE  (LUNAR  LANDING)  (OVERLAY  P32- 3 5, I N I T VEL ) (260) 


1053 

REF 

1 

E4, 1666 

VHORI Z 

EQUALS 

PIPTEM 

+3 

1(2) 

DISPLAY 

1054 

REF 

1 

F 4 » 1 670 

ACG 

EQUALS 

VHOR  IZ 

+ 2 

1(6) 

GU IDANCF 

1055 

REF 

1 

E4, 1676 

JUNG 

EQUAL  S 

ACG 

+ 6 

I (6) 

GUIDANCE 

1056 

REF 

1 

E4, 1 704 

ANGTERM 

FQUALS 

JUNG 

+ 6 

I (6) 

GUIDANCE 

10  57 

-REF 

1 

£4,1712 

HBEAMNB 

EQUAL  S 

ANG.T ERM 

+ 6 

1(6) 

LANDING  RADAR 

1058 

REF 

1 

E4,  1 740 

LRXCDUDL 

EQUAL  S 

/LAND/ 

+ 2 

B ( 1 ) 

LANDING  RADAR 

DOWNLINK 

1059 

REF 

1 

E 4,  1 741 

LRYCDUDL 

EQUALS 

LRXCDUDL 

61 

B ( 1 ) 

LANDING  RADAR 

DOWNLINK 

1060 

REF 

1 

E4,  1 742 

LRZCDUDL 

EQUALS 

LRYCDUDL 

+ 1 

B<  1 ) 

LANDING  RADAR 

DOWNLINK 

1061 

REF 

1 

E4, 1743 

LRVTIMOL 

EQUALS 

LPZCDUDL 

+ 1 

8 (2  ) 

LANDING  RADAR 

DOWNLI NK 

A 1062 


R1063 

1065 

1066 

REF 
REF  - 

2 

— 1- 

ASCENT  GUIDANCE  FOR 

LAST  133  E 4,  1656 

_E4. 1660 

LUNAR  LANDING 

( 62D) 

AT 

VE 

EQUALS 

EQUALS 

T1T0T2 

AT 

+ 2 

I ( 2 ) TMP 
I ( 2 ) TMP 

ENGINE  DATA  — THRUST  ACC. *2(9) 
EXHAUST  VELOCITY  * 2(7)M/CS. 

1067 

REF 

1 

E4,  1662 

T TO 

EQUAL  S 

VE 

+ 2 

I (2) TMP 

TAILOFF  TIME  * 2 ( 1 T ) CS . 

1068 

REF 

1 

E 4,  1 664 

TBUP 

EQUALS 

TTC 

+ 2 

I (2 )TMP 

( M/MDOT)  * 2(171 CS. 

1069 

REF 

1 

E4 , 1 666 

RDOTO 

EQUAL  S 

TBUP 

+ 2 

1 ( 2 ) T MP 

TARGET  VELOCITY  COMPONENTS 

1070 

REF 

1 

E4, 1670 

YDOTD 

EQUALS 

P DOT  D 

+ 2 

I ( 2 ) T MP 

SCALING  IS  2(7) M/CS. 

1071 

REF 

1 

E4, 1672 

ZDOTD 

EQUALS 

YDOTD 

+ 2 

I (2 )TMP 

1072 

REF 

1 

E4, 1674 

/R/MAG 

FQUALS 

ZDOT  D 

+2 

T ( 2 ) TMp 

1073 

REF 

1 

E4, 1676 

LAX  IS 

EQUAL  S 

/P/MAG 

+2 

I (6 )TMP 

GAP: 

L 
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1074 

REF 

1 

E4, 1704 

ZAXIS1 

EQUAL  S 

LAX  I S 

+ 6 

I ( 6 ) TMP 

SYSTEM  (R,L,Z). 

1 0 75 

RFF 

i 

E4, 1712 

RDOT 

FQUALS 

Z AX  I SI 

+ 6 

I ( 2 J TMP 

RADIAL  RATF  * 21-7). 

F4t 1714 

YOOT 

EQUAL  S 

ROOT 

+ 2 

I 12) TMP 

VEL.  NORMAL  TO  REF.  PLANE*2(-7) 

1077 

REF 

i 

E4, 1 716 

ZDOT 

EQUALS 

YDOT 

+ 2 

I ( 2) TMP 

DOWN  RANGE  VEL  *2(-7). 

1078 

REF 

i 

E4, 1 720 

GEFF 

EQUALS 

ZDOT 

+ 2 

I ( 2 ) T M P 

EFFECTIVE  GRAVITY 

R 1079 

THESE 

TWO  GROUPS 

OF  ASCENT 

GUIDANCE  ARE  SPLIT  BY  THE 

ASCENT- 

DESCENT 

SERVICER 

SECTION  FOLLOWING  THIS  SECTION 

y 

FQlJAl  S 

/I  AND/ 

+ 2 

T ( ? ) TMP 

OUT -OF— PL  AM F DIST  *?(24)M 

1081 

1082 

R E F 
REF 

1 

E4, 1742 

DRDOT 

EQUALS 

Y 

+ 2 

I (2 )TMP 

RDOTD  - RDOT 

1083 

REF 

1 

E4, l 744 

DYDOT 

EQUAL  S 

DRDOT 

+ 2 

I ( 2 ) T MP 

YDOTD  - YDOT 

1084 

REF 

\ 

F4, 1 746 

DZDOT 

EQUALS 

DYDOT 

+2 

I ( 2 ) TMP 

ZD0TD  - ZDOT 

1085 

REF 

1 

E4, 1750 

PCONS 

EQUALS 

DZDOT 

+ 2 

I (2 ) TMP 

CONSTANT  IN  ATR  EQUATION 

1086 

REF 

1 

E4, 1 752 

YCONS 

EQUALS 

PCONS 

+ 2 

I L2JTMP 

CONSTANT  IN  ATY  EQUATION 

in  R7 

R F F 

1 

F 4, 1754 

PRATE 

EQUALS 

YCONS 

+ 2 

I ( 2 ) TMP 

RATE  COEFF.  IN  ATR  EQUATION 

1088 

RFF 

1 

E4, 1 756 

YRATE 

EQUALS 

PRAT  E 

+ 2 

I (2) TMP 

RATE  COEFF.  IN  ATY  EQUATION 

1089 

REF 

1 

E4, l 760 

ATY 

EQUALS 

YPAT  F 

+ 2 

I ( 2) TMP 

OUT-OF-PLANE  THRUST  COMP. *2 (9) 

1000 

REF 

_ 1_ 

E 4 1 176Z 

AIR 

EQUALS 

ATY 

+ 2 

I ( 2 ) TMP 

RADIAL  THRUST  COMP . *2(9) 

1091 

REF 

1 

E4, 1 764 

ATP 

EQUALS 

ATP 

+ 2 

I ( 2 ) TMP 

DOWN-RANGE  THRUST  COMP 

1092 

REF 

1 

E4» 1 766 

YAW 

EQUALS 

ATP 

+ 2 

I ( 2) TMP 

1 OQ^ 

RFF 

1 

F-4.  1 770 

PITCH 

FQUALS 

YAW 

+2 

I ( 2 ) R M P 

A 1094 

R 1 0 9 5 SERVICER  FOR  LUNAR  ASCENT  AND  DESCENT  (14D) 


1097 

109ft 

REF 

REF 

1 

1 

E4* 1722 
F8, 1717 

G(CSM) 
R (CSM) 

EQUAL  S 
FQUAL S 

GEFF 
R-OT  F1ER 

+ 2 

1(6) 

FOR  UPDATE  OF  COMMAND  MODULF  STATE 
VECTORS  BY  LEM;  ANALOGS  OF  GDT/2, 

1099 

REF 

i 

E 3. 1 725 

V(CSM) 

EQUALS 

V-OTHER 

R,  AND  V,  RESPECTIVELY  OF  THE  CSM 

1100 

REF 

i 

E4, 1730 

WM 

FQUALS 

G(  CSM) 

+6 

I (6) 

TMP  - LUNAR  ROTATION  VECTOR  ( SM ) 

1 104 

RFF 

1 

F4.1 736 

/i  ANn/ 

FOIJAI  S 

WM 

B 1 2 ) 

LUNAR  RADIUS  AT  LANDING  SITE 

A 1 1 02 

GAP 
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ERASABLE  ASSIGNMENTS  USER'S  PAGE  NO.  32 


P 1 10  3 

E BANK-5  ASSIGNMENTS 

SET  LOC 

2400 

1104 
R 1 105 

W-MATRIX.  ESSENTIALLY  UNSHARA8LE. 

( 1620 ) 

1107 

1108 

REF 

E 5 » 1 400  E 5 . 1 641  W 

1 E5.  1642  END  W 

ERASE 

EQUALS 

W 

+ 161D 
+ 1620 

A 1 1 09 


R 1 1 10  *******  OVERLAY  NUMBER  1 IN  EBANK  5 ******* 


Rllll  LUNAR  LANDING  TARGET  PARAMETERS  - PAOLOADED  - (64D) 


R 1 113  PLEASE  RETAIN  THE  ORDER  OF  TLAND  THRU  JAPFG 


1114 
1 1 l s 

REF 

REF 

2 

l 

LAST 

137 

E5, 1400 
F5  t 1 402 

TLAND 

RBREG 

EQUALS 
EQUAL  S 

W 

TLAND 

+ 2 

1(2) 

1(6) 

NOMINAL  TIMF  OF  LANDING 
BRAKING 

1116 

REF 

i 

E 5 » 1410 

VBRFG 

EQUALS 

RBRFG 

+ 6 

1(6) 

PHASE 

1117 

REF 

i 

E5» 1416 

ABRFG 

EQUAL  S 

VBRFG 

+ 6 

1(6) 

TARGET 

1118 

R-Ef 

i 

E5, 1424 

VBRFG* 

EQUAL  S 

ARRFC 

+ 6 

1(7) 

PARAMETERS: 

1119 

REF 

i 

E 5, 1426 

ABRFG* 

EQUALS 

VBRFG* 

-*-2 

1(2) 

HIGH 

1120 

REF 

i 

E 5 * 1 430 

JBRFG* 

EQUALS 

ABRFG* 

+ 2 

1(2) 

GATE 

1121 

REF 

1 

_ F 5 , 1 432 

RAPFG 

EQUALS 

J BP FG* 

+ 2 

1(6) 

APPROACH 

1122 

REF 

i 

E 5 j 1440 

VAPFG 

EQUALS 

RAPFG 

+ 6 

1(6) 

PHASE 

1123 

REF 

i 

E5, 1446 

AAPFG 

EQUALS 

VAPFG 

+ 6 

1(6) 

TARGET 

1124 

REF 

1 

E 5. 1 454 

VAPFG* 

EQUAL  S 

AAPFG 

+ 6 

1(2) 

° ARAM  F TER  S : 

1125 

REF 

i 

E 5 > 1456 

AAPFG* 

EQUALS 

VAPFG* 

+ 2 

1(2) 

LOW 

1126 

REF 

i 

F5, 1460 

JAPFG* 

EQUALS 

AAPFG* 

+2 

1(2) 

GATE 

1127 

REF 

1 

E 5,  I 46  2 

VIGN 

FQUAL  S 

JAPFG* 

+ 7 

1(2) 

DESIRED  SPEFD  FOP  IGNITION 

1128 

REF 

i 

E5,  1464 

RIGNX 

EQUALS 

VIGN 

+ 2 

1(2) 

DESIRED  'ALTITUDE'  FOR  IGNITION 

1129 

REF 

i 

E 5 . 1466 

RIGNZ 

EQUALS 

RIGNX 

+ 2 

1(2) 

DESIRED  GROUND  RANGE  FOR  IGNITION 

1130 

REF 

i 

F 5 1 1 470 

KIGNX/B4 

EQUALS 

P I G N 7 

+ 2 

1(2) 

1131 

REF 

i 

E5, 1472 

KIGNY/B8 

EQUALS 

K IGNX/B4  +2 

1(2) 

1132 

REF 

i 

E 5 * 1474 

KIGNV/B4 

EQUALS 

KIGNY/B8  +2 

1(2) 

1133 

REF 

i 

E5, 1476 

LOWCR  T T 

FQUAL  S 

KIGNV/B4  +7 

8(1) 

(HIGHCRIT  MUST  FOLLOW  LOWCRIT) 

1134 

REF 

i 

E 5 1 1477 

HIGHCRIT 

EQUALS 

LOWC  PIT 

+ 1 

B ( 1 ) 

?S  OF  NOMINAL  MAXIMUM  THRUST 

1135 — 

REF 

-5 

LAST 

114 

0130 

L*WCR*T 

BUF 

T FMPOR  ARY  STORAGE  IN  UNSWITCHFO 

1136 

REF 

6 

LAST 

137 

0131 

H*GHCR*  T 

= 

BUF 

+ 1 

FOR  USE  IN  F BANK  SWITCHING  LOWCRIT 

1 1 37 

*REF 

— 1— 

F5. 1 500 

DELQFI X 

EQUALS 

HIGHCRIT  +1 

I (2) 

LR  ALTITUDE  DATA  REASONABLE  PARM. 

A 1 1 38 


R 1 1 39 


P70-P71 


PADLOADED  * ASCENT  * 


( 50) 


GAP: 

L 

ASSEMBLE  R! 
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LUMINARY  BY  NASA  2021112-011 
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rVISION  069 
ASS  IGNMENTS 

OF  AGC  PROGRAM 

USER'S  PAGE  NO.  33  EO  S4 

1141 

*R  E F 

l 

E 5 » 1 502 

TBRKPNT 

EQUALS 

DELQFIX 

+2 

1(1)  TFT  BRANCH  TIME:ABORT  TARGET  PCR133 

1 1 4? 

REF 

1 

F5, 1503 

ABTVINJ1 

EQUALS 

TBRKPNT 

+ 1 

1(2)  ABORT  VELOCI TY; TF  I LESSTHAN  TBRKPNT 

ABTVINJ2 

EQUAL  S 

A BT V INJ) 

+2 

1(2)  ABORT  VEL  ;TFI  GRFATER  THAN  TBRKPNT 

1 143- 
All  AA 

R-ErF — 

-1 

OPS  GNTOAMOF 

{ 34D ) 

R114  5 
1147 

REF 

1 

E5,  1 507 

CG 

EQUALS 

A BT  V INJ2 

+ 2 

! ( 1 8 D ) GUIDANCE 

F 5t  1 63] 

R ANGEDSP 

— 

CG 

+ 18D 

B ( 2 ) DISPLAY 

1149 

REF 

1 

E5i 1533 

OUT  OF  PL  N 

= 

R ANGEDSP 

+2 

B ( 2 ) DISPLAY 

1150 

REF 

1 

E5, 1 535 

R60VSAVE 

EQUALS 

OUT C FPL N 

+2 

I ( 6 ) TMP  SAVFS  VALUE  OF  POINTVSM  THRU  R51 

1151 

REF 

1 

15,1 543 

RGU 

EQUAL  S 

R60V  SAVE 

+ 6 

1(6)  UNSHARED  FOR  DOWNLINK 

A 1 1 52 

A 1 T TMMCM  T / C V CTf:  T/r  A ! C QM  S C 

rrMMHM  STORAGE- 

( 36D  ) 

1155 

REF 

1 

E5, 1 642 

XSM 

EQUALS 

E NOW 

B ( 6 ) 

1 1 56 

REF 

x 

F St  1 650 

YSM 

EQUALS 

XSM 

B ( 6 ) 

1157 

REF 

1 

F5,  1656 

ZSM 

EQUALS 

YSM 

+ 6 

B ( 6 ) 

XDC 

FQIJAI  S 

LSM 

+ 6 

B ( 6) 

1159 

REF 

1 

E 5 , 1672 

YDC 

FQUALS 

XDC 

+6 

B ! 6 ) 

1160 

REF 

1 

E5 » 1700 

ZDC 

EQUALS 

YDC 

+ 6 

R ( 6 ) 

1161 

RFF 

2 

LAST  138 

E5, 1664 

XNB 

= 

XDC 

1162 

REF 

2 

LAST  138 

E 5 » 1672 

YNB 

= 

YDC 

1163 

REF 

1 

E5, 1700 

ZNB 

= 

ZDC 

R1164  OVERLAYS  WITHIN  AL I GNMENT / S Y STEST/ C ALCSMSC  COMMON  STORAGE.  (AD) 


1166 

REF 

2 

LAST 

138 

E5, 1644 

-CO  SB 

EQUALS 

XSM 

+ 2 

( 2 ) TMP 

1167 

REF 



S T NR 

FQll AI  S 

-cose 

+ 2 

( 2 ) TMP 

ft  1 \ 6 B — 

f4FR  E 

pi  a vs  rn  ai  i cmmfm  t /cvctfct  /tuccp  adc 

P52  ) 

( 6D  ) 

1170 

REF 

1 

E5, 1706 

LANDLAT 

EQUALS 

STAR  AD 

(2)  LATITUDE,  LONGITUDE 

— 1171 

-REF 

1 

E5t 1710 

LANDLONG 

equal  s 

LANDLAT 

+2 

(2)  AMD  ALTITUDE 

1172 

REF 

1 

E5, 1712 

LANDALT 

EQUALS 

LANDLONG 

+ 2 

(2)  OF  LANDING  SITE 

41173 

R 1 1 74 

ALIGNMENT/SYSTEST  COMMON 

STORAGE. 

( 31 D) 

1176 

RFF 

— 2 

LAST 

138 

E 5» 1 706 

ST  A ft  An 

FOI  1 AI  S 

7 DC 

+ 6 

i i i 8 n ) t iM  p 

1177 

REF 

2 

LAST 

138 

E5, 1 730 

STAR 

FQUALS 

STAR  AD 

+ 18D 

1(6) 

1178 

RFF 

1 

E5, 1736 

GCTR 

FQUALS 

STAR 

+ 6 

B ( 1 ) 

1179  _ 

-REE 

F5, 1 737 

OGC 

EQUALS 

GCTP 

+i 

1(2) 

1180 

REF 

1 

E5, 1 741 

IGC 

EQUALS 

OGC 

+ 2 

1(2) 

1181 

REF 

1 

E 5 , 1743 

MGC 

EQUALS 

I GC 

+2 

1(2) 

GAP: 

ASSEMBLE 

REVISION  069 

OF  AGC  PROGRAM 

luminary  BY 

NASA  2021112-011 

L 

ERASABLE 

ASSIGNMENTS 

R 1 1 82 

P57  ALIGNMENT  (OVERLAY  OF 

AL  IGNMENT/SYSTEST  COMMON  STORAGE: 

1 ACT  1 a Q 

cc  i 7 

GACC 

_= STAR  AD 

1184 

1185 

REF 

REF 

-3 — 

4 

L Ab  i 1 Jo 

LAST  139 

t j * I -t-yJO 

E5, 1714 

GOUT 

= ST  A R AO 

+ 6 

A 1186 

R1187 

OVERLAYS  WITHIN  AL IGNMENT/SY STEST  COMMON  STORAGE 

G 

i act  i a a 

p c:  _ i 7 AA 

VEARTH 

EQUALS  STAR  AD 

1189 

1190 

— REF — 
REF 

D 

1 

L A b 1 

L » I I vO 

E5, 1714 

VSUN 

EQUALS  VEARTH 

+6 

1191 

REF 

1 

E 5 ? 1722 

VMOON 

EQUALS  VSUN 

+6 

1192 

REF 

4 

E 5 , 1 730 

SAX 

EQUALS  VMOON 

+ 6 

R 1 193 


P50'S,R50'S  Q STOWS. 


1195 

1196 

REF 

REF 

1 

1 

E 5 » 1745 
E 5,1 746 

QMIN 

QMAJ. 

EQUALS 

EQUALS 

MGC  +2 

QMIN  +1 

R 1 197 

R 1 1 9 8 

* A lie  pn  IM 

P50S 

1 S.C ATTFRFn  OVER  1 AYS) 

1199 

REF 

6 

LAST 

139 

E 5 , 1 706 

XSC  I 

EQUALS 

STARAD 

1200 

REF 

1 

E5, 1714 

Y SC  I 

EQUALS 

XSCI  +6 

1201 

ROF— 

4 

E 5, 1714 

ZSC  I 

EQUALS 

Y SC  I 

1202 

REF 

2 

LAST 

139 

E 5 ( 1 706 

CULTRIX 

EQUALS 

VEARTH 

1203 

REF 

7 

LAST 

139 

E5, 1722 

VEC  1 

EQUALS 

STARAD  + 1 2D 

1204  RET 2 LAST  138 F5,  l 730 V EC 2 EQUALS  STAR 

A1205 


R 1206 

ALIGNMENT 

STORAGE. 

12  08 

REF 

l 

p 1 747 

ogc  r 

FQUAJ  <; 

QMAJ 

+ 1 

1209 

REF 

1 

E 5,  1755 

BESTI 

EQUALS 

OGCT 

+ 6 

1210 

REF 

1 

E5, 1 756 

BESTJ 

EQUAL  S 

BEST  I +1 

1211 

REF 

1 

E 5, 1 757 

STARIND 

EQUALS 

BFSTJ  +1 

R 12  1 2 

RETAIN  THE  ORDER 

OF  STARSAV1 

TO  STARSAV2  +5  FOR  DOWNLINK  PURPOSES. 

1213 

REF 

1 

E 5 , 1 760 

STAR  S AV 1 

EQUAL  S 

STAR  INO 

+i 

1214 

REF 

1 

E5, 1 766 

STARSAV2 

EQUAL  S 

STAR  SAV1 

4-6 

1215 

REF 

1 

E 5 , 1 774 

TAL IGN 

EQUALS 

STAR  SAV2 

+ 6 

A1216 

VEL/C 

EQUALS 

STAR  SAV2 

+ 6 

1217 

1218 

0026 

0026 

ZPR IME 
PDA 

= 

22D 

22D 

1219 

0020 

COSTH 

= 

160 

1220 

0022 

SINTH 

= 

1BD 

1221 

0024 

THETA 

— 

20D 

1222 

0040 

STARM 

= 

32D 
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USER'S  PAGE  NO.  34 


{ 1 2D ) 

(6)  SS 
(6)  SS 


( 2401 

( 6 ) TMP 
( 6) TMP 
(6 ) TMP 
(6) TMP 


(20) 

B(1 ) TMP 
8 ( 1 ) TMP 


VEARTH,  VSUN,  VMOON 


(230) 

( (6) 
1(1) 


I (6) 

1(6) 

B ( 2 ) TIME  OF  IMU  ALIGNMENT 
I ( 5 ) T MP  (NOT  U SE 0 IN  LEM) 


EO  S4 


(DOWNLINKEO) 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2Q21112-011  19:02  NOV.  25»1968  LUMERA SE . 102  PAGF  140 

L ERASABLE  ASSIGNMENTS  USER’S  PAGE  NO.  35  EO  S4 

P1223  *******  OVERLAY  NUM3ER  2 IN  EBANK  5 ******* 


R 1224  CCNICS  ROUTINE  STORAGE. 


( 850) 


n r r- 

DEL  X 

EQUAL  S 

E NDW 

I { 2 ) TMP 

122  6 
1227 

REF 

1 

E5, 1644 

PELT 

EQUALS 

DEL  X 

+ 2 

I ( 2) TMP 

1228 

REF 

1 

F5.1646 

URRECT 

EQUALS 

PELT 

+ 2 

I ( 6 ) TMP 

0042 

RCNORM 

EQUALS 

34P 

1(2)  TMP 

1230 

REF 

1 

E3, 1 552 

XPREV 

EQUALS 

XKEP 

I ( 2 ) TMP 

1231 

REF 

1 

E5, 1654 

R1VFC 

EQUALS 

URRECT 

+ 6 

1(6)  TMP 

REF 

F 5f  1 662 

R2VEC 

EQUALS 

R1VEC 

I (6 ) TMP 

1233 

REF 

1 

F5, 1670 

TDES IREO 

EQUAL  S 

R2VEC 

+ 6 

1(2) TMP 

1234 

REF 

1 

E 5 « 1672 

GEOMSGN 

EQUALS 

TDES  IRED 

+ 2 

I (1 )TMP 

FSt  l 

UN 

EQUALS 

GEOMSGN 

+ 1 

1(6) TMP 

1236 

REF 

1 

F5 i 1 701 

VTARGTAG 

EQUALS 

UN 

+ 6 

I ( 1 )TMP 

1237 

REF 

1 

E 5 1 1 702 

VTARGET 

EQUALS 

VTAP  GTAG 

+ 1 

I ( 6 ) T MP 

1 2 ^ A 

rff 

1 

F5 , 1 7 10 

RTNL  AMB 

EQUAL  S 

VTARGET 

1(1) TMP 

1239 

REF 

1 

E5, 1 711 

U2 

EQUALS 

RTNL  AMB 

+ L 

I ( 6 ) TMP 

1240 

REF 

1 

E5, 1717 

MAGVEC2 

EQUALS 

U2 

+ 6 

I (2) TMP 

1241 

REF 

1 

E5, 1 721 

UR1 

EQUALS 

MA3VEC2 

*2 

I (6) TMP 

1242 

REF 

1 

F5, 1727 

SNTH 

EQUALS 

UP1 

+6 

1(2) TMP 

1243 

REF 

1 

E5, 1731 

CSTH 

EQUALS 

SNTH 

+ 2 

I (2 )TMP 

1244 

REF 

1 

E5, 1 733 

1-CSTH 

EQUALS 

CSTH 

+ 2 

I ( 2 ) TMP 

1245 

REF 

1 

E5, 1735 

CSTH-RHO 

EQUALS 

1-CS  TH 

+2 

I ( 2 ) TMP 

1246 

REF 

1 

E5, 1 737 

P 

EQUALS 

CSTH-RHO 

+ 2 

I ( 2 ) TMP 

1247 

REF 

1 

E5 , 1 741 

R1 A 

EQUAL  S 

P 

+ 2 

I ( 2 ) TMP 

1248 

REF 

2 

LAST 

140 

E5, 1654 

RVEC 

EQUALS 

R1  VEC 

I ( 6 ) TMP 

1249 

REF 

1 

E5, 1743 

VVEC 

EQUALS 

R 1 A 

+ 2 

I (6) TMP 

12  50 

REF 

2 

1 AST 

140  - 

F5, 1 71 0 

RTNTT 

FQIJA1  S 

RTNL  AMB 

1(1) TMP 

1251 

REF 

i 

F5, 1751 

ECC 

EQUALS 

VVFC 

+ 6 

I ( 2 ) TMP 

1252 

REF 

3 

LAST 

140 

E5, 1 710 

RTNTR 

EQUALS 

RTNLANB 

1(1) TMP 

1253 

RFF 

4 

LAST 

140 

F5, 1 710 

RTN APSE 

FQUAI  ^ 

P TNL  AMB 

I ( 1 ) TMP 

1254 

REF 

2 

LAST 

140 

E5, 1717 

R2 

EQUALS 

MAGVEC2 

I ( 2 ) TMP 

1255 

REF 

1 

E5, 1 753 

RTNPRM 

EQUALS 

ECC 

+ 2 

I ( 1 ) TMP 

1256 

REF 

— 

F 5i  1 754 

SGNRDOT 

FQUAI  S 

RTNP  RM 

+ 1 

I ( 1 )TMP 

1257 

REF 

1 

E5,  1 755 

RDESIRED 

EQUALS 

SGNRDOT 

+ 1 

I ( 2 ) TMP 

1258 

REF 

1 

E5, 1757 

DELOEP 

EQUALS 

RDES  IRED 

+ 2 

I ( 2 ) TMP 

1259 

REF 

1 

F5, 1 761 

DEPREV 

FQUAI  S 

DELD  EP 

+ 2 

I ( 2 ) TM° 

1260 

REF 

2 

LAS  I 

140 

E5, 1757 

TERRLAMB 

EQUALS 

PEL  r EP 

I ( 2 ) TMP 

1261 

RFF 

1 

E 5, 1 761 

TPREV 

EQUALS 

DEPRFV 

I ( 2 ) TMP 

1262 

REF 

2_ 

LAST 

140 

E 5,  1763 

EPS ILONL 

EQUAL  S 

DEPP  FV 

+ 2 

( ( 2 ) TMP 

1263 

REF 

1 

E5, 1 765 

COGA 

EQUALS 

EPS  I LONL 

+ 2 

1(2)  COTAN  OF  INITIAL  FLIGHT  PATH  ANGLE. 

1264 

REF 

1 

E5, 1765 

INDEP 

EQUALS 

COGA 

USED  BY  SUBROUT INE ' I TERATOR • . 
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R 1266 

INCORP  STORAGE. 

( 18D) 

2 1 

FQ11AI  S 

ENOW 

1(18)  TMP 

1268 

REF 

— — 

R1269 

INCORP/L SR22.3  STORAGE. 

( 21D) 

1271 

REF 

i 

E 5 , 1664 

DELTAX 

EQUALS 

Z I 

♦ 18D 

1(18) 

1272 

REF 

i 

E5, 1 706 

VAR  I ANCE 

EQUALS 

DELT  AX 

+ 18D 

1(3) 

R 1273 

MEASUREMENT  INCORPORATION 

-R22-  STORAGE 

• 

( 49  D) 

-E  5 1 1711 

f,Rp?  SVQ 

EQUAL  S 

VAR  I ANCE 

+3 

I ( 1 ) T M P QSAVE  FOR  RESTARTS 

1276 

REF 

i 

E5i 1 712 

0MEGAM1 

EQUALS 

GRP 2 SVO 

+ 1 

1(6) 

1277 

REE 

i 

E 5 , 1720 

0MEGAM2 

EQUALS 

0MEGAM1 

+ 6 

1(6) 

12  73 

REF 

l 

E5*  1 726 

0MEGAM3 

EQUALS 

OMEG AM2 

+ 6 

1 1.6) 

1279 

REF 

i 

E5, 1734 

HOLDW 

FQUALS 

0MEGAM3 

+ 6 

1(18) 

1280 

REF 

i 

E 5, 1756 

TDPOS 

EQUALS 

HOLDW 

+ 18D 

1(6) 

1281 

REF 

l 

E 5 » 1 764 

TDVEL 

EQUALS 

TDPOS 

1(6) 

A 12  82 

1 2 83 

REF 

2 

LAST  1 A 1 F St 1664 

TRI  PA 

FQIJAL  S 

DEL  T AX 

1(3) TMP 

1284 

REF 

i 

E5,  1667 

TEMPVAR 

EQUALS 

TRI  PA 

+ 3 

I ( 3 ) TMP 

A 1285 

R 12 86  INCORPORATION/INTEGRATION  Q STORAGE.  (10) 


1288 

REF 

1 

E5, 1772 

EGRESS 

EQUALS  TDVEL 

+6 

im 

A 1289 

P 1290  P 30 /P 31  STORAGE-. — (10)  AND  ONE  OVERLAY 

1292  REF  1 E 5,  1 773  P30EXIT  EQUALS  EGRESS  +1  B(1)TMP 

A 1293 

1294  REF  1 E5 , 1 773  ORIGIN  EQUALS  P30EXIT  I(l)TMP  INDEX  DURING  INITVEL 

A 1295 
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1299 

— REF- 

— 3- 

LAST 

137 

E5,  1-400 

AZIMUTH 

EQUALS 

W-  - - 

2 

1300 

REF 

1 

E 5, 1402 

LATITUDE 

FQUALS 

AZIMUTH  +2 

2 

1301 

REF 

1 

E5, 1404 

ERVECTOR 

EQUALS 

LATITUDE  +2 

6 

E ^ T 1412 

LENGTHOT 

EQUAL  S 

ERVECTOR  +6 

1 

1303 

REF 

1 

E5, 1413 

LOS  VEC 

FQUALS 

LENGTHOT  +1 

6 

1304 

REF 

1 

E 5 , 1414 

NDXCTR 

EQUALS 

L OS  V EC  +1 

1 

REF 

F 5 t 1 4 ) 8 

PIP  INDEX 

EQUALS 

NDXCTR  +1 

1 

1306 

REF 

1 

E 5 , 1416 

POSITON 

EQUALS 

PIPINDEX  *1 

1 

1307 

REF 

1 

E5, 1417 

QPLACE 

EQUALS 

POSITON  +1 

1 

1 308 

R EF 

F 5 T 1 420 

OPLACES 

FQUALS 

QPLACE  +1 

1 

1309 

REF 

1 

E5, 1421 

SOUTHDR 

EQUALS 

QPLACES  4-1 

7 

1310 

REF 

1 

E5, 1430 

TEMPTIME 

FQUALS 

SOUTHDR  +7 

2 

1 31  1 

REF 

1 

F5, 1432 

TMARK 

EQUALS 

T EMP  TIME  +2 

2 

1312 

REF 

1 

E 5, 1434 

GENPL 

EQUALS 

TMARK  +2 

1313 

REF 

1 

E5, 1434 

CDUT IME I 

= 

GENPL 

13  14 

REF 

2 

LAST 

142 

F 5*  1 436 

CDUT I MEF 

— 

GENPL  +2 

1315 

REF 

3 

LAST 

142 

E 5, 1440 

CDUDANG 

= 

GENPL  +4 

1316 

REF 

4 

LAST 

142 

E5, 1441 

CDUREADF 

= 

GENPL  +5 

1317 

REF 

5 

LAST 

14  2 

E5, 1 442 

CDURFADI 

= 

GENPL  +6 

1318 

REF 

6 

LAST 

142 

E5, 1443 

CDULIMIT 

= 

GENPL  +7 

LAST 

rcK.pi  4.4 

1320 

REF 

8 

LAST 

142 

E5 i 1441 

TFMP 

= 

GENPL  +5 

1321 

REF 

9 

LAST 

142 

E5, 1442 

NOBITS 

= 

GENPL  +6 

1322 

R-FF 

10 

LAST 

14  2 

E5i 1 443 

CHAN 

— 

GENPL  +7 

1323 

REF 

11 

LAST 

142 

E 5,  1444 

LOS  1 

GENPL  +8  D 

1324 

4^EF 

12 

LAST 

142 

F 5* 1452 

! DS2 

— 

GENPL  +140 

1325 

REF 

13 

LAST 

142 

E 5,  1460 

CAL  CD  I R 

EQUALS 

GENPL  +20D 

1326 

- REF  - 

14 

LAST 

142 

E5,  1461 

CDUFLAG 

EQUALS 

GENPL  +2  1 D 

1327 

REF 

15 

LAST 

142 

E5, 1462 

GYTOBET  Q 

EQUALS 

GENPL  +22D 

1328 

REF 

16 

LAST 

142 

F 5 , 1463 

OPTNREG 

EQUALS 

GENPL  +2  3D 

1329 

REF 

17 

—LAST 

142 

E 5 , 1464 

SAVE 

EQUALS 

GENPL  +24D 

THREE 

ONSEC  LOC 

1330 

REF 

18 

LAST 

142 

E5, 1467 

SFCONST 1 

EQUALS 

GFNPL  +2  70 

1331 

REF 

19 

LAST 

142 

E 5 , 1470 

TIMER 

EQUALS 

GENPL  +28D 

1332 

REF 

20 

LAST 

142 

E5, 1472 

DAT  APL 

EQUALS 

GFNPL  +30D 

1333 

RFF 

21 

LAST 

142 

F 5 , 1434 

RDSP 

EQUALS 

GENPL 

FIX  LA 

ER  POSSIBLY  KEEP1 

1334 

REF 

22 

LAST 

142 

E 5,  1-534 

MASKREG 

FQUALS 

GENPL  +64D 

1335 

REF 

23 

LAST 

142 

E5, 1536 

CDUNDX 

EQUALS 

GENPL  +66D 

1336 

REF 

24 

LAST 

142 

F 5 1 1 537 

RESULTCT 

EQUALS 

GENPL  +670 

1337 

REF 

25 

LAST 

142 

E5» L542 

COUNTPL 

EQUALS 

GFNPL  +70D 

1338 

REF 

26 

LAST 

142 

F5, 1543 

CDU ANG 

EQUALS 

GENPL  +7 1 D 

;ap: 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

13  70 

1371 

1372 

1373 

13  74 

1375 

1376 

1377 

1378 

1379 
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REF 

27 

LAST 

142 

E5, 1434 

AINL  A 

= 

GFNP1 

110  DE 

OR  156  OCT  LOCATIONS 

w ANP,n 

FQIJA!  S 

A I NL  A 

VFRT  E 

ATF 

R£F 

REF 

1 

2 

LAST 

14  3 

E 5 * 1 436 

WANG  I 

EQUALS 

A 1NL  A 

+ 2 D 

HORI ZO 

TAL  ERATE 

REF 

3 

LAST 

143 

E 5 * 1440 

WANGT 

EQUAL  S 

AINL  A 

+ 4D 

T 

REF 

1 

E5 , 1 440 

TORQNDX 

= 

WANGT 

REF 

4 

LAST 

143 

E 5 f 1442 

DRI FTT 

EQUALS 

AINl  A 

+6  D 

REF 

5 

LAST 

143 

E 5, 1444 

ALX1S 

EQUALS 

AINL  A 

+ 8D 

REF 

6 

L AS  T 

1 43 

F 5 * 1445 

CMP  XI 

EQUALS 

AINL  A 

+9  D 

IND 

REF 

7 

LAST 

143 

E 5 * 1446 

ALK 

FQU ALS 

AINl  A 

+ 10D 

GAINS 

REF 

8 

LAST 

143 

E5, 1462 

VLAUNS 

EQUALS 

AINL  A 

+ 22D 

R FF 

9 

LAST 

143 

E 5* 1464 

WPL ATO 

EQUALS 

AINl  A 

♦240 

REF 

10 

LAST 

143 

E 5* 1 470 

INTY 

EQUALS 

AINL  A 

+2  81) 

SOUTH 

IP  INTE 

REF 

11 

LAST 

143 

E5, 1472 

ANGZ 

EQUALS 

AINl  A 

+ 300 

EAST  A 

IS 

RFF 

12 

1 AST 

1 4 3 

F 5f 1 474 

I NT  2 

EQUALS 

AINL  A 

+ 320 

EAST  P 

P I 

REF 

13 

LAST 

143 

E 5 * 1476 

ANGY 

EQUALS 

AINL  A 

+ 34D 

SOUTH 

REF 

14 

LAST 

143 

E5, 1500 

ANGX 

EQUAL  S 

AINL  A 

+ 360 

VE 

REF 

15 

LAST 

14  3 

_ E 5, 1502 

DRI FTO 

EQUALS 

AINL  A 

+38D 

VERT 

REF 

16 

LAST 

143 

E 5 * 1 504 

DRIFT  I 

EQUALS 

AINL  A 

+400 

SOU 

REF 

17 

LAST 

143 

E 5 1 1 510 

VLAUN 

EQUALS 

AINl  A 

+44D 

REF 

18 

LAST 

143 

E5, 1512 

ACC  WD 

EQUALS 

AINL  A 

+ 4 60 

REF 

19 

LAST 

143 

F5, 1520 

POSNV 

EQUALS 

AINL  A 

+ 52D 

REF 

20 

LAST 

143 

E 5 * 1522 

DPI  PAY 

EQUALS 

AINL  A 

+ 540 

SOUTH 

REF 

21 

LAST 

143 

£5*1526 

_ DPIPAZ 

EQUAL  S 

A INL  A 

+ 58D 

NORTH 

IP  INCREMENT 

REF 

22 

LAST 

143 

E 5 * 1 530 

ALT  IM 

EQUALS 

AINL  A 

+60D 

REF 

23 

LAST 

143 

E5, 1531 

ALTIMS 

EQUALS 

AINL  A 

+6  10 

INDEX 

REF 

24 

LAST 

143 

F 5 * 1 532 

ALDK 

EQUAL  S 

A INL  A 

+ 620 

T I Mc 

ONSTAN 

REF 

25 

LAST 

143 

E 5 * 1 550 

DELM 

EQUALS 

A I N L A 

+76D 

REF 

26 

LAST 

143 

E5, 1560 

WPL  AT  I 

EQUALS 

A INL  A 

+ 84D 

REF 

27 

LAST 

143 

E 5, 1 562 

GEOCOMPS 

EQUALS 

AI  NL  A 

+ 860 

REF 

28 

LAST 

143 

F5, 1563 

ERCOMP 

EQUALS 

AINL  A 

+ 87D 

REF 

29 

LAST 

143 

E5, 1571 

ZERONDX 

EQUALS 

AINL  A 

+ 930 

REF 

1 

E 5 * 1452 

THETAN 

= 

ALK  +4 

REF 

-1- 

E 5* 1460 

F1LDELV 

EQUALS 

THETAN  +6 

AGS 

ALIGNMFNT  STORAGE 

REF 

1 

E 5 * 1462 

INTVEC 

EQUAL  S 

FILDELV  +2 

REF 

30 

LAST 

143 

E5, 1572 

1SECXT 

= 

A INL  A +94D 

REF 

31 

LAST 

143 

E5, 1573 

ASECXT 

= 

AI NL  A +950 

REF 

32 

LAST 

143 

E5  * 1 574 

PERFDLA Y 

EQUALS 

A I NL  A +96D 

B (2) 

DELAY  TIME  BEF.  START 

DRIFT  MEASURE 

REF 

33 

LAST 

143 

E5, 1 576 

OVFLOWCK 

EQUALS 

A I NL  A +980 

I 1 ) 

SET  MEANS  OVERFLOW  IN 

IMU  PERF  TEST 

AND  CAUSES  TERMINATION 


REF  2 LAST  139  F5.1774  END =£5  EQUALS  STARSAV2  +6  ***  FIRST  FREE  LOCATION  IN  E5*** 
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P 1380 

E BANK-6  ASSIGNMENTS. 

SFTLOO 

3000 

1381 

R 1382 

DAP 

PAD- 

LOADED  DATA. 

( 100) 

R 1384 

ALL 

OF 

THE 

FOLLOWING  EXCEPT 

PITTIME 

AND  ROLLTIME  ARE 

INITIALIZED  IN 

FRESH  START  TO  PERMIT  IMMEDIATE  USE 

OF  DAP 

H T A Sf  FNT 

FR  ASF 

(l)  MASS  A FT  FR  STAGING*  SCALF  AT 

R 16  KG. 

1 3 86 
1387 

E 6 * 1 401 

E6.1401 

ROLLTIME 

ERASE 

(1)  TIME  TO  TRIM  Z GIMBAL  IN  R03, 

CSEC. 

1388 

E6, 1402 

E6, 1402 

PITTIME 

ERASE 

(1)  TIME  TO  TRIM  Y GIMBAL  IN  R03, 

CSEC. 

13  8Q 

F6, 1 403 

E 6, 1403 

DKTRAP 

ERASE 

(1)  DAP  STATE  (POSSIBLE  77001 

1390 

E6 i 1404 

E6.1404 

DKOMEGAN 

ERASE 

(1)  ESTIMATOR  PARA-  (VALUES  00012 

1391 

E6, 1405 

E6.1405 

DKKAOSN 

ERASE 

( 1 ) METERS  FOR  THE 

00074 

1 3Q2 

F-6,  1406 

E6, 1406 

LMTRAP 

ERASE 

( 1)  DOCKED  AND 

77001 

1393 

E6, 1407 

E6, 1407 

LMOMEGAN 

ERASE 

( 1 ) LEM-ALONE  CASES 

00000 

1394 

E6, 1410 

E6, 1410 

LMKAOSN 

ERASE 

(1)  RESPECTIVELY 

00074 

139-5- 

F 6 t 1 4 1 1 

E 6f 1411 

- DKDB 

ERASE  - 

(1)  WIDTH  OF  DEADBAND  FOR  DOCKED 

RCS 

A 1396 

AUTOPILOT  ( DB=1 . 4DEG  IN  FRESH 

START) 

A 1397 

DEADBAND  = PI/OKDB  RAD. 

R 1 398 

AXIS 

TRANSFORMAT  I ON 

MATRI X - 

GIMBAL  TO 

PILOT  AXES: 

I 5D ) 

F6  T 1412 

84 1 141 2 

Mil 

FR  A SE 

SCALFD  AT  1 

1401 

E6, 1413 

E 6 , 1413 

M21 

ERASE 

SCALED  AT  I 

1402 

E6, 1414 

E6, 1414 

M31 

ERASE 

1 403 

F6  t 1 41  5 

E 6 « 1415 

M27 

ERASE 

SCALED  AT  I. 

1404 

E6, 1416 

E6, 1416 

M32 

ERASE 

SCALED  AT  1. 

R 140  ^ 

ANGLE 

1407 

E6, 1417 

E6, 1423 

OMEGAP 

ERASE 

+ 4 

BODY-AXIS  ROT.  RATES  SCALED  AT  PI/4  AND 

140  8 

REF 

1 

E6 , 1 420 

OMEGAO 

FQIJA1  S 

OMEGAP  +1 

BODY-AXIS  ACCELERATIONS  SCALFD  AT 

PI  / 8 

1409 

REF 

2 

LAST 

144 

F6 , 1421 

OMEGAR 

EQUALS 

OMEGAP  +2 

R 141 0 

RETAIN  THE 

ORDER 

OF  ALPHAQ 

AND  ALPHAR  FOR  DOWNLINK  PURPOSES. 

1411 

REF 

-3 — 

LAST 

144 

E6, 1422 

ALPHAQ 

EQUAL  S 

OMEGAP  +3 

1412 

RFF 

4 

LAST 

144 

E6, 1423 

ALPHAR 

EQUALS 

OMEGAP  +4 

1413 

E6 , 1424 

E6, 1425 

OMEGAU 

ERASE 

+ 1 

1414 

REF 

-1 — 

F6, 1425 

QMFGAV 

_ 

OMEGAU  +1 

1415 

E6, 1426 

E 6, 1433 

TRAPEDP 

ERASE 

+ 5 

1416 

REF 

-4 — 

E6, 1427 

TRAP  ELDQ 

— 

TRAPEDP  +1 

1417 

REF 

2 

LAST 

144 

E6 , 1430 

TRAPEDR 

= 

TRAPEDP  +2 

1418 

REF 

3 

LAST 

144 

F6, 1431 

NPTRAPS 

= 

TRAPEDP  +3 

1419 

REF 

4 

LAST 

144 

E6, 1432 

NQTRAPS 

- 

TRAPEDP  +4 

1420 

REF 

5 

LAST 

144 

E6, 1433 

NRTRAPS 

= 

TRAPEDP  +5 

1421 

REF 

1 

E6, 1425 

EDOTP 

= 

EDOT 

1422 

F6.1434 

E6.1435 

EDOTQ 

ERASE 

+ 1 

1423 

REF 

1 

E6, 1435 

EDOTR 

EDOTQ  +1 

MANY  SHARING  NAMES 

1424 

REF 

2 

LAST 

144 

E6, 1434 

ORATEDI F 

EQUAL  S 

EDOTQ 

ALTERNATIVE  NAMES: 

GAP: 

ASSEMBLE  REVISION  069 

OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 

L 

ERASABLE  ASSIGNMENTS 

1425 

REF 

1 

F6, 1435 

RRATEDI F 

EQUALS 

EDOTR 

DCC 

2 LAST 144 

E6 , l 424 

URATEDI F 

EQUAL  S 

OMEGAU 

iHllO 

1427 

Ktr 

REF 

1 

E6, 1425 

VRATFDIF 

EQUALS 

OMFG  AV 

1428 

E6 » 1436 

E6, 1440 

OLD  XEORP 

ERASE 

+ 2 

1 A ? Q 

REF 

E6, 1437 

OLD YFORP 

EQUALS 

OLDXFORP  +1 

1430 

REF 

2 LAST  145 

E6 , 1440 

OLDZFORQ 

EQUALS 

OLDXFORP  +2 

R 1431 

RATE- 

COMMAND  AND  MINIMUM  IMPULSE  MODES 

1432 

E6, 1441 

E 6, 1 44 1 

CH3 1TEMP 

ERASE 

1433 

E 6, 1442 

E6, 1442 

STIKSENS 

ERASE 

1434 

E6, 1443 

E 6, 1443 

TCP 

ERASE 

1435 

E6, 1444 

E6, 1451 

DXERROR 

ERASE 

+ 5 

1436 

REF 

1 

E6, 1446 

DYERROR 

EQUALS 

DXERROR  +2 

1437 

REF 

2 L AS  T 14  5 

F6, 1450 

DZERROP. 

EQUALS 

DXERROR  +4 

1438 

E6, 1452 

F6, 1452 

PLAST 

ERASE 

1439 

E 6 , 1453 

E6, 1453 

QLAST 

ERASE 

1440 

£6, 1454 

JL6 , 1 454- 

RLAST 

ERASE 

1441 

F6, 1455 

FA  , 1 455 

TCQR 

ERASE 

R 1442 

OTHER 

VARIABLES. 

1444 

E6, 1456 

E6, 1456 

OLDPMIN 

ERASE 

1445 

E6, 1457 

E6, 1457 

OLDQRMIN 

ERASE 

1446  REF  1 E6.f-17.35  TEMP3L  EQUALS  DAPTEMP1 


1447 

F6 , 1460 

E6, 1461 

SAVEHAND 

ERASE 

+ 1 

1 44  ft 

F 6 » 1 462 

F 6,  1 462 

PERROR 

ERASE 

1449 

REF 

1 

E6 , 1446 

QFRROR 

EQUALS 

DYFP ROR 

1450 

REF 

1 

E6, 1450 

RERROR 

EQUALS 

DZERROR 

R 1451 

.1  FT 

GTATF  CH  ANGF  VAR  I AR1  F S- 

I 1 MF  ( TOE JTCHG)  . J FT 

RTFS  WP ITTFN  NOW 

P 1453 

I JTSCNNOW)  , 

AND  JET  BITS  WRITTEN  AT 

T 6 RUPT  ( JTSATCHG) 

• 

14^4 

F A T } 4A^ 

p Af  1 4 A 3 

NIXTA  A nR 

pR  A S F 

1455 

E6, 1 464 

E 6 » 1465 

T6NEXT 

ERASE 

+ 1 

1456 

E6, 1466 

E6, 1467 

T6FURTHA 

ERASE 

+ 1 

1457 

_ E 6 ,1470 

F6, 1472 

NFXTP 

ERASE 

+ 2 

1458 

REF 

1 

E6, 1471 

NEXTU 

NFXTP  +1 

1459 

REF 

2 LAST 

145  E6.1472 

NEXTV 

= 

NFXTP  +2 

1460 

F6, 1473 

E6, 1474 

-2JFTLIM 

ERASE 

+ 1 

1461 

REF 

1 

F6, 1474 

-RATEDB 

EQUAL  S 

-2JETLIM  +1 

1462  REF  1 E6,1474  _XARG£IDB  EQUALS  -P.A1  EDB 


R 1463 

Q,R 

AXI  S 

ERASABLFS  *** 

146  5 

REF 

13 

LAST 

103 

4 742 

PBI  T 

EQUALS 

B IT1  0 

1466 

REF 

13 

LAST 

103 

4 741 

ORBIT 

EQUALS 

BIT1  1 

1467 

REF 

E6, 1 747 

UERROR 

EQUAL  S 

DAPTREG5 

1468 

REF 

1 

E6 » 1 750 

VERROR 

UFRROR  +1 

1469 

£6,1475  £6,1475 

RET JADR 

FRASE 
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USER’S  PAGE  NO.  40  EO  S4 

DELETE  WHEN  NO.  OF  REFERENCES  = 0 


STORED  CDU  READINGS  FOR  STATE 
DERIVATIONS:  SCALED  AT  PI  RADIANS  I2'S) 


( 5D ) 

THESF  THREE  USCD  IN  MIN  IMPULSE  MODE. 


( 10D) 


RATE  COMMAND  4-JET  RATE  DIFFERENCE  LIMIT 
AND  RATE  DEADBAND  FOR  ASCENT  OR  DFSCENT 

MAN.  CONTROL  TARGFT  DB  COMPLEMENT. 

(3) 


U,V-AXES  ATT  ERROR  FOR  RCS  CONTROL  LAWS 


SAP  : 

L 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 


ASSEMBLE  REV  IS  ION  069  OF  AGC  PROGRAM  LU-MI  NARY  8Y  NASA  20  21112-011 
ERASABLE  ASSIGNMENTS 


REF  1 
REF  1 
REF  1 
REF  2 
REF  1 

REF  1 

REF 3- 

REF  4 


E6.1740 
E6, 1741 
F6  , 1 742 
LAST  145  E6.1735 

E6, 1736 

F6.1476  E6* 1 476 

E6.1737 

E6.1477  E6.1477 

LAST  146  E6,  1735 

LAST  146  E6.1735 


TEMPNUM  EQUALS  DAPTEMP4 
NUMBERT  EQUALS  DAPTEMP5 
ROTINDEX  EQUALS  0APTEMP6 
R0TEMP1  EQUALS  DAPTEFP1 
ROT EMP 2 EQUALS  DAPTEMP2 
AXISCTR  ERASE 
POLYTEMP  EQUALS  DAPTEMP3 
SEN  SET YP  ERASE 
ABSTJ  EQUALS  DAPTEMP1 
ABSEDOTP  EQUALS  DAPTEMP1 


19:0  2 NOV.  2 5,1968  LUMERA  SE . 102  PAGE 
USER'S  PAGE  NO.  41  EO  S4 


A3S  VALUF  OF  JET-FIRING  TIME 


146 


REF 


1 


E 6 , 1746 


DPS  BURN  EQUALS  DAPT PEG4 


USED  WITH  SNUFFBIT.  VERY  TEMPORARY 
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P 1481 

TRIM  GIMBAL  CONTROL  LAW  ERASABLES: 
DPP  R 1 A^T  1 4 A F^.17B5 

GTS TEMPS 

EQUALS 

DAPT  FMP1 

t UD) 

GTS  IS  PART  OF  THE  JASK. 

14  83 
1484 

Ktr  O L HO  1 1 *T  D L U I i 1 J ^ 

REF  1 Efa  * 1 73  7 

SHFTFLAG 

EQUAL  S 

GTS T EMPS  +2 

COUNT  HIGH  ORDER  7ERO  BITS  FOR  SHIFTING. 

1485  REF  —2—  LAST  147  E6,  1740  TNINOEX  EQUALS  GTSTFMPS  +3  —INDEX  FOR  SHIFT  LOOP. 


1486 

REF 

1 

F6» 1476 

SAVESR 

EQUALS 

A X I S CTR 

CANNOT  BF  A DAPTEMP  - GTS  USES  THEM  ALL. 

1487 

REF 

3 

LAST 

147 

E6, 1742 

SCRATCH 

EQUAL  S 

GTSTEMPS 

+ 5 

ERASABLE  FOR  POOTCYCL 

1488 

REF 

4 

LAST 

147 

E6, 1 743 

HALFARG 

EQUALS 

GTSTEMPS 

+ 6 

1489 

REF 

5 

LAST 

147 

E6, I 735 

K2THETA 

EQUALS 

GTST EMPS 

D.P.  K ( 2 ) THET A AND  NEGUSUM 

1490 

REF 

6 

LAST 

147 

E6, 1 737 

A2CNTRAL 

EQUALS 

GTSTFMPS 

+ 2 

D.P.  ALPHAI2),  AT  P!(2)/164  R AD/SECI 2 ) 

1491 

REF 

7 

LAST 

1 47 

E 6 , 1741 

KCENTRAL 

EQUALS 

GTST  EMPS 

+4 

S.P.  K FROM  KQ  OR  KR,  AT  PI/218) 

1492 

REF 

1 

E6, 1741 

OMEGA. K 

EQUALS 

KCENTRAL 

D.P.  OMEGA*K  OVERLAYS  K AND  K ( 2 ) 

1493 

REF 

8 

LAST 

147 

E6,  1 742 

K2CNTRAL 

EQUALS 

GTSTFMPS 

+ 5 

S.P.  K ( 2 ) FROM  Q OR  R,  AT  PI(2)/2(16) 

1494 

REF 

9 

LAST 

14  7 

_ E6, 1 743 

WCENTRAL 

EQUALS 

GTSTEMPS 

+6 

S.P.  OMEGA,  AT  PI/4  RAD/SFC 

1495 

REF 

10 

LAST 

147 

E6, 1744 

ACENTRAL 

EQUALS 

GTSTFMPS 

+ 7 

S.P.  ALPHA,  AT  PI/8  RAD/SEC(2) 

1496 

REF 

11 

LAST 

147 

E6 , 1 745 

DEL 

EQUAL  S 

GTSTFMPS 

+ 3D 

S.P.  SGN  FUNCTION  VALUE 

1497 

REF 

12 

LAST 

14  7 

E6 , 1 746 

QRCNTR 

EQUALS 

GTST  FMPS 

+9D 

INDEX  FOR  GTS  LOOP  THROUGH  Q,P  AXES. 

1498 

REF 

-13 

—LAST 

1 47 

E6, 1 747 

FUNCT ION 

EQUAL  S 

GTST  EMPS 

+ LOD 

D.°.  WORD  FOR  DRIVE  FUNCTION 

1499 

E6, 1 500 

E6, 1502 

NEGUQ 

ERASE 

+2 

NEGATIVE  OF  O-AXIS  GIMBAL  DR  I VF 

A 1 500 

NEGUC  +1 

DEFINED  AMD  USED  ELSEWHERE 

1501 

REF 

i 

E6, 1502 

NEGUR 

EQUALS 

NEGUQ  +2 

NEGATIVE  OF  R-AXIS  GIMBAL  DRIVE 

1502 

-E6t  1503 

F6-,  1 

KQ 

FR  AS  F 

T TAff  DDTQ  SfAIFD  AT  PT/?(ft) 

1503 

REF 

i 

F6, 1504 

KQ2 

EQUAL  S 

KQ  +1 

KQ?  = KQ*KQ 

1504 

REF 

2 

LAST 

147 

F6, 1505 

KRDAP 

EQUALS 

KQ  +2 

.3  ACCDOTR  SCALED  AT  PI/218) 

1505 

—R  EF  - 

— 3 

LAST  - 

147 

E6, 1506 

KR2 

EQUAL S 

KQ  +3 

KR2  = KR*KR 

1506 

F6, 1 507 

E6, 1512 

ACCDOTQ 

ERASE 

+ 3 

Q-JFRK  SCALED  AT  PI/2I7)  UNSIGNED 

1507 

RE  F 

— 1— 

F6, 1510 

_ QACCDOT 

EQUAL  S 

ACCDCTQ 

+i 

Q-JERK  SCALED  AT  PI/217)  SIGNED 

1508 

REF 

2 

LAST 

147 

E6, 1 511 

ACCDOTR 

EQUALS 

ACCDOTQ 

+2 

R-JERK  SCALED  AT  PI/217)  UNSIGNED 

1509 

REF 

3 

LAST 

147 

E6, 1512 

RACCDOT 

EQUALS 

ACCDOTQ 

*3 

R-JERK  SCALED  AT  PI/217)  SIGNFD 

1510 

REF 

1 

E6, 1446 

QDI  FF 

EQUALS 

QERPOP 

ATTITUDE  FRRORS: 

1511 

REF 

1 

E6,  1450 

RDIFF 

EQUAL  S 

R ERR  OR 

SCALED  AT  PI  RADIANS 

A 1 5 1 2 

R 15  1 3 

TORQUE  VECTOR 

RECONSTRUCTION  VARIABLES: 

( 180) 

1515 

REF  1 

r (> , 1743 

JFTRATE 

EQUALS 

DAPT  REG1 

1516 

1517 

REF  1 

REF  2 LAST 

E6 , 1 744 
147  E6, 1 745 

JETRATEQ 

JETRATER 

EQUAL  S 
EQUALS 

JETRATF  +1 
JETPATE  +2 

THE  LAST  CONTROL  SAMPLE  PERIOD  OF  100  ms 
SCALFD  AT  PI/4  R AD I AN S / SECOND 

GAP:  ASSEMBLE  REVISION  069  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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1559 

1560 

1561 
15  62 
1563 


L 

ERASABLE 

ASSIGNMENTS 

USER'S  PAGE  NO.  43  EO  S4 

1518 

E6 , 1 513 

E6, 1520 

DOWNTORK 

ERASF 

+ 5 

ACCUMULATED  JET  TORQUE  COMMANDED  ABOUT 

1519 

REF 

1 

E6, 1513 

POSTORK  P 

EQUALS 

DOWNTORK 

+ ,-P,  + ,-U,  4-,-V  RESPECTIVELY. 

LAST 

1 4 ft 

F6t 1 5] 4 

NEGTOTKP 

EQUALS 

DOWNTORK 

+1 

EMPLOYED  EXCLUSIVELY  FOR  DOWNLIST. 

1521 

REF 

3 

LAST 

148 

E6, 1515 

POSTORKU 

EQUALS 

DOWNTORK 

+2 

NOT  INITIALIZED;  PERMITTED  TO  OVERFLOW 

1522 

REF 

4 

LAST 

148 

E 6, 1516 

NEGTORKU 

EQUALS 

DOWNTORK 

+ 3 

SCALED  AT  32  JET-SEC,  OR  ABOUT  2.0  JET- 

5 

LAST 

14  8 

£ ] 5 1 7 

POSTORKV 

FQUALS 

DOWNTORK 

+ 4 

MSEC  PFR  BIT. 

1524 

REF 

6 

LAST 

148 

E6, 1 520 

NEGTORKV 

EQUALS 

DOWNTORK 

4-5 

F 6 » 1521 

E 6t  1 5 2 8 

NO, P J ETS 

FRASF 

+ 2 

1526 

REF 

1 

F6, 1522 

NO.UJETS 

NO. P JETS 

+ 1 

1527 

REF 

1 

E 6 , 1 523 

NO. VJETS 

= 

NO.UJETS 

+ 1 

F& , 1 

E 6t 1526 

TJP 

ERASE 

+ 2 

1529 

REF 

1 

F6, 1525 

TJU 

TJP  +1 

1530 

REF 

2 

LAST 

148 

E6, 1526 

TJV 

TJP  +2 

1531 

E6, 1527 

E6 , 1 527 

L , P VT-CG 

ERASE 

1532 

E6, 1 530 

E6, 1 534 

1 JACC 

ERASE 

+4 

ACCELERATIONS  DUE  TO  1 JET  TOPQUING 

15  83 

REF 

1 

£6, 1 53  I 

1 JACCQ 

EQUALS 

IJACC  +1 

SCALED  AT  PI/4  R ADI ANS/ SECOND 

1534 

REF 

2 

LAST 

148 

E6, 1532 

1JACCR 

EQUALS 

1JACC  +2 

1535 

REF 

3 

LAST 

148 

E 6 , 1533 

1 JACCU 

EQUALS 

IJACC  +3 

FOR  U.V-AXES  THE  SCALE  FACTOR  IS  DIFF: 

1536 

RFF 

4 

1 AST 

1 4ft 

E6, l 534 

1JACCV 

EQUAL  S 

IJACC  +4 

SCALED  AT  PI/2  R AD I ANS / SE COND  (FOR  ASC) 

R 1 537 

ASCENT  VARIABLES: 

( 10D) 

A 1539 

1540 

E6, 1 535 

E6.1536 

SKI  PU 

ERASE 

+ 1 

1 5-41 

RFF 

1 

FA*  1 

ft K T P V 

— 

ftK  T P II  +1 

R 1542 

TEE 

FOLLOWING 

LM  CAP 

ERASABLES  ARE  ZEROED  IN  THE 

STARTDAP  SECTION  OF 

THE  DAPIOLER  PROGRAM  AND  THE  COASTASC 

R 1 544 

SECTION  ! 

OF  THE 

AOSTASK.  THE 

ORDER  MUST 

BE  PRESERVED  FOP 

1 THE  INDEXING 

METHODS  WHICH  ARE  EMPLOYED  IN  THOSE 

R 1 546 

SFF  T T ONS 

AND  FI SF WHFRF . 

1547 

E6  , 1 537 

E6, I 544 

AOS  Q 

ERASE 

+ 5 

OFFSET  ACC.  ESTIMATES,  UPDATED  IN  D.P., 

1548 

REF 

1— 

E6, 1 541 

AQSR 

FOIIA!  ft 

AOSO  +2 

AND  SCALEn  AT  PI/2. 

1549 

REF 

2 

LAST 

148 

E6, 1543 

AOS  U 

EQUALS 

AOSQ  +4 

UV-AXES  OFFSET  ACC.  FROMED  BY  VECTOR 

1550 

REF 

3 

LAST 

148 

E6 , 1 544 

AOS  V 

EQUALS 

AOSQ  +5 

ADDITION  OF  Q,R.  AT  PI /2  RAD/SFCI 2) . 

1551 

E6 , 1545 

E6, 1 546 

AOS  QT  ERM 

ERASE 

+ 1 

( .1-.05K) AOS 

1552 

REF 

1 

E6, 1 546 

AOSRTERM 

EQUALS 

AOSQTERM 

+ 1 

SCALEO  AT  PI/4  RADI ANS/ SECOND . 

R 1 5 53 

FOR 

T JET 

LAW  SUBROUTINE: 

(TEMPS  ONLY) 

A 1 5 55 

RAPT  FMPF 

n F F I M F n TM  nPAYTft. 

1556 

REF 

6 

LAST 

147 

E6, 1 735 

EDOTSQ 

L v»U  M L.  j 

EQUALS 

DAPTEMPl 

1557 

REF 

2 

LAST 

146 

E6, 1 736 

ROTSENSE 

EQUALS 

DAPT  EMP2 

1558 

REF 

2 

LAST 

146 

F6, 1 737 

FIREFCT 

EQUALS 

DAPT  EMP3 

LOOKED  AT  BY  PAXIS. 

REF 

REF 

SEE 

REE 

RFF 


LAST 

LAST 

LAST 


146 

146 

147 


E6, 1 740 
E6 , 1742 
E6, 1 743 
E6, 1744 
F6, 1 745 


TTOAXI S 

ADRSDIF2 

HOLDQ 

ADRSDIF1 

HH 


EQUALS  DAPTEMP4 
EQUALS  DAPTEMP6 
EQUALS  DAPTPEG1 
EQUALS  0APTREG2 
EQUALS  HA PT  PEG3 


DOUBLE  PRECISION 
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A 1 564 

HH  +1 

EQUAL  S 

DAPTREG4 

1565 

REF 

1 

E6 , 1 750 

E 

EQUALS 

0APTREG6 

TIME  SHARE  WITH  VERROR 

1566 

REF 

2 

LAST 

145 

E6, 1425 

Eom 

EQUALS 

OMEG AV 

R 1 567 

INPUT 

TO 

T JET 

LAW 

[ PERMANENT 

ERASABLES) 

(480) 

1569 

REF 

1 

F 6 1 1 525 

TJETU 

= 

T JU 

EQUATE  NAMES.  INDEXED  BY  -1,  0,  +1. 

1570 

E6, 1 547 

E6, 1626 

BLOCKTOP 

ERASE 

+ 470 

1571 

REF- 

4 

F 6 > 1567 

1/ANET1 

= 

BLOCKTOP  +160 

THESE  8 PARAMETERS  ARE  SET  UP  BY  1/ACCS 

1572 

REF 

1 

E6, 1 570 

1/ANET2 

= 

1/ANET1  +1 

FOR  MINIMUM  JETS  ABOUT  THF  U-AXIS  WHEN 

1573 

REF 

2 

LAST 

149 

E6, 1573 

1/ACOAST 

= 

1/ANET1  +4 

EDOT  IS  POSITIVE.  T JET  LAW  INDEXES  BY 

1 574 

REF 

3 

L AST 

1 49 

E6, 1 575 

ACCFCTZ1 

— 

1/ANET1  +6 

ADRSOIFF  FROM  THESE  REGISTERS  TO  PICK  UP 

1575 

REF 

4 

LAST 

149 

E6f 1 576 

ACCFCTZ5 

= 

1/ANET1  +7 

PARAMETERS  FOR  THE  PROPER  AXIS,  NUMBER 

1576 

REF 

5 

LAST 

149 

F6, 1601 

FIRFDB 

= 

1/ANET1  +100 

OF  JETS  AND  SIGN  OF  EDOT.  THERE  ARE  48 

1577 

REF— 

6 

LAST 

149 

E6» 1 603 

COASTDB 

- 

1/ANET1  +12D 

REGISTERS  IN  ALL  IN  THIS  BLOCK. 

1578 

REF 

7 

LAST 

149 

E6, 1605 

AX I SDI ST 

= 

1/ANET1  +140 

FOUR  NOT  REFERENCED  (P-AXTS)  ARE  FILLED 

A 1 5 79 

IN  BY  THE  FOLLOWING: 

1580 

REF 



LAST 

14-9 

F6» 1 547 

ACCSWU 

- 

BLOCKTOP 

SET  BY  1/ACCS  TO  SHOW  WHETHER  MAXIMUM 

1581 

RFF 

1 

E6, 1550 

ACCSWV 

= 

ACCSWU  +1 

JETS  ARE  REQUIRED  BECAUSE  OF  AOS . 

1582 

REF 

3 

LAST 

149 

E6, 1555 

FLAT 

= 

BLOCKTOP  +6 

WIDTH  OF  MINIMUM  IMPULSE  ZONE. 

1583 

RFF 

4 

1 AST 

149 

F6. 1556 

Z0NE3LIM 

BLOCKTOP  +7 

HEIGHT  OF  MINIMUM  IMPULSE  ZONEIAT  4 SEC) 

A1584 

R 15  85 

VARIABLES 

FOR 

GT  S -QR  AXIS  CONTROL  EXCHANGE. 

(4) 

1587 

REF 

2 

L AST 

14  7 

E6» 1 501 

ALLOWGTS 

EQUAL  S 

NEGUQ  +1 

INSERT  INTO  UNUSED  LOCATION 

1588 

E6, 1627 

r6, 1627 

COTROLER 

ERASE 

INDICATES  WHICH  CONTROL  SYSTEM  TO  USE. 

1589 

E6, 1630 

E6, 1632 

QGIMTIMR 

ERASE 

+2 

Q-GIMBAL  DRIVE  ITMER,  DECISECONDS. 

1590 

REF- 

4 

E6, 1631 

I NGJS- 

EQUAL  S 

QGIMTIMR  +1 

INDICATOR  OF  CURRENT  GTS  CONTROL. 

1591 

REF 

2 

LAST 

149 

E 6 » 1 632 

RGIMTIMR 

EQUALS 

QGIMTIMP  +2 

R— GI MBAL  DRIVF  TIMER,  DECISECONDS. 

R1592  PLEASE  RETAIN  THE  OROEP  OF  CDUXD  THRU  CDOZD  FOR  DOWNLINK  PURPOSES. 


R 1 593 

KALCMANU :DAP  INTERFACE. 

( 9D ) 

1595 

1596 

1597 

REF 

REF 

1 

2 

LAST 

149 

E6 , 163  3 E 6 , 1 63  5 
E6, 1634 
E6, 1635 

CDUXD 

CDUYD 

CDUZD 

ERASE 
EQUALS 
EQUAL  S 

+ 2 

CDUXD  +1 
CDUXD  +2 

COU  DESIRED  REGISTERS: 
SCALED  AT  PI  RADIANS  ( L 80 
(STORE  IN  2S  COMPLEMENT) 

DEGREES ) 

1598 

1599 

REF 

I 

E6.  1636  E 6 , 1 640 
E 6 , 1 63  7 

DEL  CDUX 
DEL  CDUY 

E R ASF 
EQUALS 

+ 2 

DELE  DUX  + L 

NEGATIVE  OF  DESIRED  100MS 
SCALED  AT  PI  RADIANS  (130 

COU  INCREMENT: 
DFGREFS ) 

1600 

REF 

2 

LAST 

149 

F6 , 1 640 

DELCDUZ 

EQUAL  S 

DFLCDUX  +2 

(STORE  IN  2 S COMPLEMENT) 

R 1601 

RETAIN 

1 THE 

ORDER 

OF  OMEGAPD  TO  OMEGARD  FOR  DOWNLINK 

PURPC SES. 

1602 

1603 

1604 

REF 

REF 

1 

2 

LAST 

149 

E6.1641  E 6 , 1 643 
E 6 , 1642 
E6, 1643 

OMEGAPD 

OMEGAQD 

OMEGARD 

ERASE 

EQUALS 

EQUALS 

+ 2 

OMEGAPD  +1 
OMEGAPD  +2 

ATTITUDE  M ANEUVFR  DESIRED  RATES: 

(NOT  EXPLICITLY  RFFERFNCEO  IN  GTS  CNTRL ) 
SCALED  AT  PI/4  P AD I ANS / SECOND 

R 1 605 


K ALCMANU  STORAGE 


( 240) 


GAP  : 


1607 

1608 


R 1 609 

1611 

1612 

1613 

1614 
16 1£ 
1616 


1617 
A 1 6 1 8 


R 16  1 9 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 


1631 

1632 


1633 
R 16  34 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 
1-645 

1646 

1647 
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E6  * 1 644  E6, 1673  MIS  ERASE  +23D  II18D) 

REF  i E6  * 1 666  COE  EQUALS  MIS  + 1RD  1(6) 


KALCMANU  STORAGE.  (33D) 


REF 

REF 

1 

l 

E6  * 1 674  E6* 1 732 

E6, 1677 
F6, 1 700 

BCDU 

KSPNDX 

KOPNOX 

ERASE 

EQUALS 

EQUALS 

BCDU 

KSPNDX 

+ 30D 
+3 
+ 1 

B ( 3 ) 
B(l) 
3(1  ) 

REF 

1 

E6, 1701 

TMIS 

EQUALS 

KDPNDX 

+ 1 

1(18) 

MUST 

BE 

IN 

SAME 

BANK 

AS 

RCS 

DAP 

REF 

4 

F 6 » 1723 

COFSKEW 

(EQUAL  S 

TMIS 

+ 18D 

1(6) 

MUST 

RF 

IN 

SAME 

BANK 

AS 

RCS 

DAP 

REF 

i 

E6  * 1731 

CAM 

EQUALS 

COFSKEW 

+6 

1(2) 

MUST 

BE 

IN 

SAME 

BANK 

AS 

RCS 

DAP 

E6.1733  E6* l 734  AM  ERASE  +1  1(2)  THIS  WAS  ONCE  IN  E5  OVERLAYING  OGC 


FIRST-ORDER  OVERLAYS  IN  KALCMANU 

OCC  O 1 AQT  IRA  PA. 1701 

KV1 

FQIJAI  S 

TMIS 

( 25D ) 
T { 6 ) 

REF 

3 

LAST 

150 

E 6 * 1701 

MFI SYM 

EQUAL  S 

TMIS 

i 

REF 

4 

LAST 

150 

E6  * 1701 

TMF  I 

EQUALS 

TMIS 

i 

RFF 

5 

I AST 

i 5 n 

F6  f 1 701 

NCDU 

EQUALS 

TMT  S 

B 

REF 

6 

LAST 

150 

E6, 1704 

NEXTIME 

EQUAL  S 

TMIS 

+ 3 

B 

REF 

7 

LAST 

150 

E6.1705 

TTEMP 

EQUAL  S 

TMI  S 

+4 

B 

REF 

8 

LAST 

150 

F 6 * 1 707 

KV2 

EQUALS 

TMIS 

1(6) 

REF 

9 

LAST 

150 

E6 , 1 707 

BI ASTEMP 

EQUALS 

TMIS 

+ 6 

B 

REF 

10 

LAST 

150 

E6, 1715 

KV3 

EQUALS 

TMIS 

+ 1 2D 

1(6) 

REE  1-1— LAST  150  E6,  L715  OGF  EQUALS  TMIS  +120  I 


REF 

2 

LAST 

150 

E6 i 1723 

BRATE 

EQUALS 

COFSKEW 

B 

REF 

3 

LAST 

150 

E6, 1 723 

IG 

EQUALS 

COFS  KFW 

I 

REF 

1 

E6* 1731 

TM 

EQUALS 

CAM 

B 

SECCNC-i 

ORDER  1 

OVERLAYS  IN  KALCMANU 

( 24D  ) 

-RFF 

l 

1 70 ] 

K1 

K V 1 

REF 

1 

E6, 1707 

K2 

= 

KV2 

REF 

1 

E6,  1715 

K3 

= 

KV3 

REF 

2 

— LAST 

— 1-5-0-  - 

E 6, 1701 

P21 

EQUALS 

K V 1 

1(2) 

REF 

3 

LAST 

150 

F6* 1703 

D21 

EQUALS 

K V 1 

+ 2 

1(2) 

REF 

4 

LAST 

150 

E6* 1 705 

G21 

EQUALS 

K V 1 

+ 4 

I ( 2) 

RE£-  - 

2 

LAST 

150 

E6* 1707 

C2SQP 

EQUALS 

KV2 

1(2) 

REF 

3 

LAST 

150 

F6, 1711 

C2SQM 

EQUALS 

KV2 

+ 2 

1(2) 

REF 

4 

LAST 

150 

E 6 * 1713 

C2PP 

EQUALS 

KV2 

+4 

1(2) 

REF 

2 

LAST 

150- 

£6,1715 

C2MP 

EQUAL  S 

K V3 

1(2) 

REF 

3 

LAST 

150 

E6, 1717 

C1PP 

EQUALS 

KV3 

+ 2 

1(2) 

REF 

4 

LAST 

150 

E6, 1721 

C1MP 

EQUALS 

KV3 

+4 

1(2) 
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1648 

REF 

4 

LAST 

150 

E6, 1723 

VECOTEMP  = 

C OF  SKEW 

DEC 

•2 

1 ACT 

14  9 

E6, 1633 

OGDU  = 

CDUX  D 

1649 

1650 

■ Ktr 
REF 

O 

3 

L W j I 

LAST 

149 

E6, 1636 

DEL  DC  DU  = 

OELC  DUX 

1651 

REF 

l 

F6 , 1637 

DELDCDU1  = 

DELCDUY 

16  52 

REF 

E 6 1 1640 

DELDCDU2  = 

DELCDUZ 

* * * » » * _*  *.-  * * ***_*****  * * * * * * 


R 1654 

STORAGE 

FOP  FINDCDUW 

R 16  55 

OVERLAY  I NG 

KALCMANU 

STORAGE: 

I 26D ) 

1 ac  j 1^0 

F A T l a 44 

prniiw 

FQIJAI  9 

M I s 

1658 

REF 

1 

E 6, 1644 

ECDUWUSR 

EQUALS 

ECDUW 

B ( 1 )TMP 

1659 

REF 

1 

E6, 1645 

QCDUWUSR 

EQUAL  S 

E C DU  toUSR 

+ 1 

1(1) TMP 

1660 

REF 

1 

NDXCDUW 

EQUALS 

QCDUWUSR 

+ 1 

B ( 1 ) TMP 

1661 

REF 

l 

E6, 1647 

F LAGOODW 

EQUALS 

NDXC DUW 

+1 

B ( l ) T MP 

1662 

REF 

1 

E6, 1650 

FLPAUTNO 

EQUALS 

F LAGOODW 

+ 1 

B ( 1 ) TMP 

1663 

REF 

1 

E6, 1 651 

UNF  C/2 

EQUALS 

FLPA UTNO 

+ 1 

I (6  ) IN 

1664 

REF 

1 

E6, 1657 

UNWC/2 

EQUALS 

UNFC/2 

■*■6 

I (6  ) IN 

1665 

REF 

1 

E6, 1665 

UNFV/2 

EQUALS 

UNwC/2 

+•6 

1(6) S-S 

1666 

REF 

1 

F6, 1 665 

UNFVX/2 

— 

UNFV/2 

1667 

REF 

2 

LAST  151 

E6, 1 667 

UNFVY/2 

= 

UNFV/2 

+ 2 

1668 

REF 

3 

LAST  151 

E6, 1671 

UNFVZ/2 

= 

UNFV/2 

+4 

1669 

REF 

4 

L AST  15  1 

F 6, 1673 

-DELGMB 

EQUALS 

UNFV/2 

+ 6 

B ( 3) TMP 

R 1 670 

R 1671 

DEFINED  IN 

THE  WORK 

AREA: 

( 18D) 

1673 

0000 

UNX/2 

ss 

0 

1674 

0006 

UNY/2 

= 

6 

1675 

0014 

UNZ/R 

- 

1 4 

R 16  76 

R 16  77 

END 

OF  F I N DC  DU  W ERASABLES 

R1678 

* * 

$ $ $ £ 

♦ $ * 

£ # ❖ 

❖ * * * 

* t 

* * ir 

* * 

R 1679  THE  FOLLOWING  ARE  THE  OAP  REPLACEMENTS  FOR  THE  ITEMPS  AND  RU PTREG S , NE EDED  BECAUSE  DAP  IS  NOW  A TOB , J A SK , J AB , TOSK 
R 1681  ...ANYWAY,  THE  DAP  CAN  NOW  BE  INTERRUPTED.  t 1 80 ) 


1683 

E6,1735  E6»1756 

DAPT  EMP  1 

ERASE 

+ 1 7D 

1684 

REF 

7 

LAST 

148 

E6 , 1 736 

DAPTEMP2 

EQUALS 

DAPT  FMP 1 

+ 1 

1685 

REF 

8 

LAST 

151 

F6, 1 737 

DAPTEMP3 

EQUALS 

DAPT  EMP 1 

+2 

1686 

REF 

-9 

LAST 

15  1 

F6 , 1 740 

DAPTEMP4 

EQUALS 

DAPT  EMP1 

+3 

1687 

REF 

10 

LAST 

15  1 

E6, 1 741 

DAPTEMP5 

EQUALS 

DAPT  EMP1 

+ 4 

1688 

REF 

11 

LAST 

15  l 

F6 , 1742 

DAPTFMP6 

EQUALS 

DAPT  EMP1 

+ 5 

1689 

REF 

12 

-EAST 

15  1 

E 6 1 1 743 

DAP  TREG1 

EQUALS 

DAPT  EMP1 

+ 6 

1690 

REF 

13 

LAST 

15  1 

F 6 , 1 744 

DAPTRFG2 

EQUAL  S 

DAPT  EMP1 

+ 7 

1691 

REF 

14 

LAST 

15  1 

F6, 1 745 

DAPTREG3 

EQUALS 

DAPT  EMP1 

+ 8D 
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1692 

1693 

REF 

REF 

15 

16 

LAST 
LAST 
L a 5 t 

1 5 1 
152 
15  2 

E6, 1 746 
E6, 1 747 
F_6  , 1 750 

DAPTREG4 

DAPTREG5 

DAPTRFG6 

EQUALS 

EQUALS 

EQUALS 

DAPTEMP1 
DAPT  EMP1 
DAPT  EMP1 

+ 9D 
+ 10D 
+ 1 ID 

1695 

REF 

18 

LAST 

152 

E6, 1751 
E a,  l 7*^2 

DAPARUPT 

DAPLRUPT 

EQUAL  S 
EQUALS 

DAPT  EMP1 
DAPARUPT 

+ 1 2D 
+ 1 

1697 

1698 

REF 

REF 

2 

3 

LAST 

LAST 

152 

152 

E6, 1 753 
E6, 1 755 

DAPBQRPT 

DAPZRUPT 

EQUALS 

EQUALS 

DAPARUPT 

DAPARUPT 

+ 2 
+4 

A 1699 
A 1 700 

(DAPZRUPT  IS  ALSO  J ASK- IN-PROGRESS  FLAG) 

R 170  1 

N EEDLER ( ATTITUDE  ERROR  EIGHT 

BALL  DISPLAY)  STORAGE. 

( 6D ) 

1703 

1704 

1705 

REF 

REF 

3 

4 

LAST 

LAST 

1 1 1 
1 1 1 

0061 
0063 
FA, 1 757 

F ft  f 1 76 1 

T5TEMP 

DINDX 

AK 

EQUALS 
EQUAL  S 
ERASF  . 

I TFM  PI 
ITEMP3 
+ 2 

NEEDLER  ATTITUDE  INPUTS,  SCALED  AT  180 

1706 

1707 

REF 

REF 

1 

2 

LAST 

152 

F6, 1 760 
E6t 1761 

AK1 

AK2 

EQUALS 
EQUAL  S 

AK  +1 
AK  +2 

DEGREES.  P, Q, R AXES  IN  AK » AK 1 , AK2 • 

1708 

1709 

1710 

REF 

REF 

1 

2 

J AST 

1 5 2 

E6, l 762 
E6, 1 763 
FA. 1 764 

E6, 1 764 

EDRIVEX 
EDR IVEY 
FDR  I VF7 

ERASE 
EQUALS 
FOUAI  S 

+ 2 

EDR I VEX 
EDR I VEX 

+ 1 
+ ? 

NEEDLER  DISPLAY  REGS  AT  1800  DEGREES. 

SO  THAT  384  BITS  REPRESENT  42  3/16  DEG. 

^ 17  1 1 

imtwfi  QTnQArxp.  a i <;n  n«;pn 

p 7 5 t S4fU 

1 AND 

DOWNL I NK  F H.  { 6D ) 

1713 

E6, 1765 

E6, 1772 

DELVEET3 

ERASE 

+ 5 

1(6)  DELTA  V IN  INERTIAL 

R 1 7 14 

P32-P33  STORAGE. 

(2) 

1716 
A 17  1 7 

E6, 1773 

E6, 1 774 

TCDH 

ERASE 

+ 1 

1(2)  T 2 CDH  TIME  IN  C . S.  ALSO  DWNLINKED 

R 1 71  8 

P 32  - 

35 

( 20) 

1720 

1721 

A 172-2- 

E 6 , 1 775 
E6,  1 776 

E6.1775 
E 6 1 1776 

RTX  1 
RTX  2 

ERASE 

ERASF 

1(1)  XI  -2  FOR  EAPTH,  -10  FOR  MOON 
1(1)  X 2 FOR  SHIFT-EARTH  0,  MOON  2 

1723 

REF 

i 

E6,l 776 

END-E6 

EQUALS 

RTX2 

LAST  LOCATION  USED  IN  E6. 
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R 1726  P 35  CONSTANTS.  -PAD  LOADED- 


( 4D  ) 


1728 

1729 


E 7 , 1 400  F 7 , 1401  ATIGINC  ERASF  +1  BI2IPL  *MUST  BE  AT  1400  FOR  SYSTEMSTEST 

i 7, 1402  E 7,  1403  PTI GINC  ERASE  +1  B(2) PL 


R 1730  ACTMARK  STORAGE.  -PAD  LOADED-  <6D) 

1732  F7.1404  E7.1406  AOTAZ  ERASE  +2  B ( 3 ) PL 

1733  E 7,  140  7 E7.1411  AOTEL  ERASE  +2  B(3)PL 


R 1734  LANDING  RADAR.  -PAD  LOADED- 


( 10D  ) 


1736 

E7, 1412 

E7, 1415 

LR ALPHA 

ERASE 

+ 3 

B(l) 

P0S1  X 

ROTATION 

* MUST  * 

17^7 

REF 

1 

F7f  1413 

LRBETA1 

EQUAL  S 

LRAL  PHA 

+ 1 

B(l) 

POSi  Y 

ROTAT ION 

* 

BE  * 

1738 

REF 

1 

E 7, 1 414 

LRALPHA2 

EQUALS 

LRBE  TA1 

+ 1 

B ( 1 ) 

P0S2  X 

ROTATION 

* 

IN  * 

1739 

REF 

1 

E 7, 1415 

LRBETA2 

EQUALS 

LPAl PHA2 

+ 1 

B ( I ) 

P0S2  Y 

ROTATION 

* 

ORDER  * 

] 740 

£-7 ,1416 

E7, 1416 

LRHMAX 

ERASE 

3(1) 

1741 

F 7 , 1417 

£7,1417 

LRVMAX 

ERASE 

B ( 1 ) 

1742 

E 7, 1420 

E7, 1420 

LRWH 

ERASE 

B ( 1 ) 

1743 

E 7, 1421 

E7, 1421 

LRWVZ 

ERASE 

3(1) 

* MUST 

* 

1744 

F7, 1422 

E7, 1422 

LRWVY 

ERASE 

B (1) 

* BE  IN 

$ 

1745 

E 7 , 1423 

E 7 , 1423 

LRWVX 

ERASF 

B ( 1 ) 

* ORDER 

* 

A 1746 


R1747 

1749 

THROTTLE  STORAG-i-.-- 
E7,  1424 

-PAD-  L-Oi 
E7, 1424 

iOEO- 

ZOOMTIME 

R 1 7 50 

P 63  AND  P64  CONSTANTS.  -PAD 

LOADED- 

17  5? 

F7t 1425 

F 7t 1 425 

TFMflRK  AK 

1753 
A 1 754 

E 7 j 1426 

£7^1426 

TENDAPPR 

R 1 755 

LANDING  RADAR 

PAD  LOADED- 

1757 

£ 7t 1 4?7 

F 7t 1427 

RPTPTTMF 

1758 
A 1 7 59 

E7, 1430 

E 7 i 1 4 3 0 

RPCRTQSW 

( ID) 

B ( l ) PL  TIME  OF  DPS  THROTTLE-UP  COMMAND 
( 2D) 

BID  LANDING  PHASE  SWITCHING  CRITERION 
B ( 1 ) LANDING  PHASE  SWITCHING  CRITERION 


( 2D) 

B(l)  REPOSITIONING  CRITERION  (TIME) 
B ( 1 ) REPOSITIONING  CRITERION  ( ANGLF ) 


R 1 7 6 0 


***  RETAIN  THE  ORDER  OF  OELVSLV,  TIG,  RTARG,  DELLT4  FOR  UPDATE.  *** 
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R1761 

P32-35  P72-75  STORAGE, 

c7. lAii  F7.1436 

DEL  VL  VC  ERASE 

+ 5 

1763 

1764 
A 1 765 

REF 

1 E 7 , 1431 

DEL  V SL V = 

DELVLVC 

R 1766  P30-P40  INTERFACE  UNSHARED. 

1768  E7.1437  E7.1440  TIG  ERASE  +1 

A 1769 

R 1770  I M TV  EL  STORAGE.  ALSO  USED  BY  P34 , 35 , 74 , 75 , 10 , 1 1 OTHERS 

1772  E7.1441  E7,1446  RTARG  ERASE  +5 

1773  E 7 1 1 44  7 F7.1450  DELLT4  ERASE  +1 

A1774 

R 1 775  P30-P40  INTERFACE  UNSHARED. 


1 7 77— 

1778 

1779 
A 17^0 

REF  1 

- E7, 1451 
E7, 1451 
E7, 1453 

F 7, 1 452 
E7, 1453 

TTOGO  ERASE 

TFI  EQUALS 

WHICH  ERASE 

T 1 

TTOGO 

R 1 78 1 

R2 1 *** 

1783 
A 1 784 

E7, 1454 

E7, 1454 

LOSCOUNT  ERASE 

P 1 785 

LSR22 

.3  (RENDEZVOUS 

NAVIGATION)  STORAGE. 

p 1707 

TRKMKC  NT 
E7, 1455 
E7, 1456 
E 7 , 1457 

1788 

1789 

1790 

E7, 1455 
E7, 1456 
_ E 7, 1457 

A I G ERASE 
AMG  ERASE 
AOG  F»ASE 

1791 

1792 

REF  1 

E7 , 1 460 
F 7 , 1 460 

E7, 1460 

TRKMKCNT  ERASE 
MARKCTR  = 

TFKMKCNT 

R 1 793  P32-P35,  P72-P7-5  STORAGE.  -PERMANENT- 


1795 

1796 

E7, 1461 
F7 , 1 462 

E7, 1461 
F 7, 1 462 

NORMEX 

QSAVFD 

ERASE 
ERAS  E 

1797 

E7, 1463 

F7, 1463 

R TP  N 

ERASE 

1798 

E7, 1464 

E 7 , 1465 

NN 

ERASE 

+ 1 

1799 

F 7, 1466 

F 7 , 1 466 

SUBEXIT 

ERASE 
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< 6D 1 

1(6)  DELTA  VELOCITY  - LOCAL  VFRTICAL  COO 
(TEMP  STOP. AG F OF  SAME  VECTOR)  -RDINATE 


( 2D) 

B ( 2 ) 

( 8D ) 

1(6)  TARGET  VECTOR 
I (2)  TIME  DIFFERENCE 

( 3D) 

B ( 2 ) 

8(1) 


( ID) 
B < 1 ) 


( 4D  ) 


B ( 1 ) OUT  GIMGAL  ANGLES 
B(1)0UT  (MUST  BE 
B ( 1 ) OUT  CONSECUTIVE) 


RIIJTMP  TEMPORARY  MARK  STORAGE. 


(6) 

B ( 1 ) PRM  SAVE  FOR  Q 
8(1)  PRM  SAVE  FOR  0 
R(1  ) PRM  SAVE  FOR  0 
B ( 2) 

8 f 1 ) PRM  SAVE  Q 
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1800  E7.1467 

1801  REF  1 E7.1A67 


E70VERL A EQUALS 
WHOCARES  EQUALS  E70VFR1A 
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START  OF  E 7 OVERLAYS 
A DUMMY  FOR  E-BANK  INSENSITIVE  2CADRS . 


l 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


GAP: 

L ERASABLE  ASS  IGNMENTS 

p 1802  *******  OVERLAY  NUMBER  0 IN  EBANK  7 ******* 

Al  803 


R 1 804 

RENDEZVOUS  GUIDANCE 

STORAGE  - 

P32. . . . P 35 

1806 

REF 

1 

E 7, 1607 

TSTRT 

EQUALS 

DELD  V 

1807 

REF 

1 

E7, 1571 

TDEC2 

EQUALS 

DEL VCSI 

REF 

1 

F 7,  1 573 

KT 

FQUALS 

DEL  V T PI 

1809 

F7, 1467 

E7, 1474 

VAC  T 1 

ERASE 

+ 5D 

1810 

E7 , 1475 

E7, 1502 

RPASS1 

ERASE 

+ 50 

1811 

F 7 1 1 503 

E 7 , 1510 

VP A S S 1 

ERASE 

+ 5D 

1812 

E7, 1 511 

E 7, 1 51 6 

VACT2 

ERASE 

+ 5D 

1813 

E7, 1517 

E 7 , 1 524 

RPASS2 

ERASE 

+ 5 D 

18  1 4 

E7 , 1 525 

F 7, 1 532 

VPASS2 

ERASE 

+5U 

1815 

E7, 1 533 

E7, 1540 

RACT3 

ERASE 

+ 5D 

1816 

E7, 1541 

E7, 1 546 

VACT3 

ERASE 

+ 5D 

1817 

F 7 » 1 5 4 7 

_E  7 f 1 554  - 

RPASS3- 

ERASE 

+ 5D 

1818 

E7, 1555 

E7, 1562 

VPASS3 

ERASE 

+ 5D 

1819 

E 7 , 1563 

F 7, 1 570 

VACT4 

ERASE 

+ 5D 

18  2 0 

REF 

l 

F7f 1 541 

UN  VEC 

EQUAL  S 

VAC  T 3 

1821 

E7, 1571 

E 7 , 1 572 

DEL  VC  S I 

ERASE 

+ 1 D 

1822 

E 7 , 1573 

E 7 , 1 574 

DEL VTPI 

ERASE 

+ 1 D 

la 2 3 

REF 

2 

1 AST 

1 S6 

F7, 1 573 

DEL VM  I D 

EQUALS 

OELVTPI 

1824 

E 7, 1 575 

E 7 , 1 576 

DIFFALT 

ERASE 

+ 1 D 

1825 

E7, 1577 

E7, 1600 

POSTCSI 

ER  ASF 

+ 1 

1 ft?6 

F 7 , 1 601 

E 7 , 1607 

POST  CDH 

ERASE 

+ 1 

1827 

E7, 1 603 

E 7 , 1604 

POSTTPI 

ERASE 

+ 1 

1828 

REF 

i 

F7, 1603 

LOO  PC  T 

EQUALS 

POSTTPI 

1829 

REF 

1 

E 7, 1601 

HAF  P Al 

EQUALS 

POST  CDH 

1830 

E7 , 1605 

E 7 , 1606 

GAMPREV 

ERASE 

+ 1 

1831 

REF 

3 

LAST 

156 

E7, 1573 

DVPREV 

EQUALS 

DEL  V TPI 

1832 

F 7, 1 607 

E7, 1610 

DEL  DV 

ERASE 

+ ID 

1833 

E7, 1611 

E7, 1612 

CSI ALRM 

ERASE 

+ 1 

1834 

E7, 1613 

E7, 1613 

VER8N0UN 

ERASE 

1835 

~R£F 

_4 

E7, 1611 

T I T FR 

FQUAI  S 

CSI  A LRM 

1836 

E7, 1614 

E 7 , 1615 

RDOTV 

ERASE 

+i 

1837 

REF 

i 

E7, 1 503 

VAPREC 

EQUALS 

VPASSl 

1838 

REF 

1 

F7, 1 475 

R AP  P E C 

FOIIAI  <; 

R P A S FI 

1839 

REF 

i 

E7 , 1525 

VPPREC 

EQUAL  S 

VPASS2 

1840 

REF 

i 

E7.1517 

RPPREC 

EQUALS 

PPASS2 

1841 

RET 

4 

LAST 

l 5 6 

F 7, 1 573 

DFI  FL 

FDUAI  S 

DFI  VTPI 

1842 

REF 

2 

LAST 

156 

E 7 , 1 607 

DELTEE 

EQUAL  S 

DEL  D V 

1843 

REF 

2 

LAST 

156 

E 7, 1571 

SECMAX 

EQUALS 

DEL VCS I 

1844 

REE 

2 

LAST 

156 

E7, 1603 

DELTF  FD 

FQIJA!  S 

POSTTPI 

1845 

E7, 1616 

E 7, 1617 

CENTANG 

ERASE 

A 1 846 
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( 890) 


MIOCOURSE  START  TIME 
TEMD  STORAGE  FOP  INTEGRATION  TIME  INPUT 
TEMP  STORAGE  FOR  MIDCOURSE  DELTA  TIME 
VELOCITY  VECTOR  OF  ACTIVE  AT  CSI  TIME 

POSITION  VECTOR  OF  PASSIVE  AT  CSI  TIME 

VELOCITY  VECTOR  OF  PASSIVE  AT  CSI  TIME. 

VFLOCITY  VECTOR  0 F ACTIVE  AT  CDH  TIME 

POSITION  VECTOR  OF  PASSIVE  AT  CDH  TIME 

VELOCITY  VECTOR  Oc  PASSIVE  AT  CDH  TIME 

POSITION  VECTOR  OF  ACTIVE  AT  TP  I TIME 

VELOCITY  VECTOR  OF  ACTIVE  AT  TPI  TIME 

POSITION  VECTOR  OF  PASSIVE  AT  TPI  TIME 

VELOCITY  VECTOR  OF  PASSIVE  AT  TPI  TIME 

VELOCITY  VECTOR  OF  ACTIVE  AT  INTERCEPT 
CDHMVR  UNIT  VECTOR  TEMP  STORAGE. 

THRUST  VALUE  AT  CSI 
THRUST  VALUE  AT  TPI  OR  MID 


ALT  DIFFERENCE  AT  CDH 

PERIGEE  ALTITUDE  AFTER  CSI  MANEUVER 

PERIGEE  ALTITUDF  AFTER  CDH  MANFUVER 

PERIGEE  ALTITUDE  AFTER  TPI  MANEUVER 

CSI  NEWTON  ITERATION  COUNTER 

HALF  PERIOD 

PREVIOUS  GAMMA 

PREVIOUS  DEL  VC  S I 

FIRST  SOLUTION  ALARM 

ITERATION  COUNTER 

1(6)  S-S  PREC  VEC  FOR  NOM  TPI  TIMEIACT  V 

1(61  S-S  PREC  VEC  FOR  NOM  TPI  TIMEIACT  V 

1(6)  S-S  PREC  VEC  FOR  NGM  TPI  TIMEIPASS 

1(6)  S-S  PREC  VFC  FOR  NOM  TPI  TIMEIPASS 

1(2)  S-S 
I (2  ) S-S 

1(2)  S-S  MAX  STOP  SIZE  FOR  ROUTINE 
1(2)  S-S  BACK  VALUES  OF  DELTA  TIME 
+ 1 T ( 2 ) S-S  CENTRAL  ANGLE  COVERED  I TP I-TP F ) 
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L 

ERASABLE 

ASS IGNMF  NTS 

USER'S  PAGE  NO.  52  EO  S4 

R 1 847 

SCME  P47  STORAGE 

E 7, 1625 

OEL  V IMU 

ERASE 

*5 — 

( 6D  ) 

I ( 6 ) DS P NOUN  83  FOR  P47  DELTA  V (IMU) 

1 849 
A 1 850 

( 30 ) 

R 1851 
1853 

E7  ? 1626 

E 7, 1627 
F7. 1 630 

TPASS4 

OTFMP 

ERASE 

ERASE 

+ 1 

INTERCEPT  TIMF 

I ( 1 ) T MP  COMMON  RETURN  SAVE  REGISTER. 

R 1 8 56 

P 32 , 33,  3 4 STORAGE. 

( 6D ) 

E7 1 1 63 1 

E 7t  ] <^3? 

Tf.S  I 

ERASE 

+ ) 

B(3)  TMP  CSI  TIMF  IN  CENTISECONDS 

1859 

1860 

tV,  1633 
E 7 , 1 635 

F7, 1634 
E7, 1636 

TTP  I 
TTP  10 

ERASE 

ERASE 

+ 1 
+ 1 

B ( 2 ) TMP  TPI  TIME  IN  CENTISECONDS 
B ( 2 ) TMP  TTP I STORAGE  FOR  RECYCLE 

R 1 8 6 1 

P 30  , P 40  INTERFACE. 

( 21D  ) 

1863 

1864 
1 365 

REF 

REF 

1 

1 

E7 , 1637 
E 7, 1645 
E7, 1 653 

E7.1662 

RTIG 
VTIG 
OEL VS  I N 

ERASE 

EQUALS 

EQUALS 

+ 19D 
RTIG 
VTIG 

+ 6 

+6 

I (6) TMP 
I (6) TMP 
I ( 6 ) TMP 

1866 

1867 

REF 

REF 

1 

1 

E 7 , 1661 
E7 , 1 661 

OEL VS AB 
VGOISP 

EQUALS 

DEL  V S IN 
DEL  V SAB 

♦ 6 

1(2) TMP 

1868 

1869 

REF 

1 

F 7 , 1663 
E7, 1663 

E7, 1663 

QTEMP1 

RGEXIT 

ERASE 

EQUALS 

QTEMP1 

I ( 1 ) T MP  HOLDS  RETURN. 
SAVF  Q 

1870 

REF 

2 

LAST  157  E7.1663 

SAVQR52 

EQUALS 

QTEMP1 

R 1 87 1 
R 1 873 

I M TV  EL  STORAGE.  (IN 
( CALLS  LAMBERT 

1 OVERLAY 
, CONIC 

0 ANO  OVERLAY  1 . 
SUBROUTINES) 

( 2D) 

1874 

1875 

1876 

REF 

REF 

1 

1 

E 7 , 1 56  3 
E7, 1614 
E7, 1664 

E7, 1665 

VTPRIME 

ITCTR 

C0ZY4 

EQUALS 

EQUALS 

ERASE 

VAC  T4 
R DOT  V 

+ i 

TOTAL  VELOCITY  AT  DESIRED  RADIUS 
ITERATION  COUNTER 

COS  OF  ANGLE  WHEN  ROTATION  STARTS 

1877 

1878 
A 1 879 

REF 

REF 

3 

1 

LAST  156  E 7 , 1607 

E 7 , 1605 

XII NPUT 
INTIME 

EQUALS 

EQUALS 

DFLDV 

GAMPREV 

XI  TFMP  STORAGE 
TIME  OF  RINIT 

R 1880 

PER  I A PO  STORAGE.  (20) 

( 2D) 

1882 

E7 , 1666 

E7, 1667 

XXXALT 

ERASE 

+ i 

RADIUS  TO  LAUNCH  PAD  OR  LANDING  SIGHT 

+2 


1883  REF 


1 


F 7, 1670 


END- IN/M  FQUALS  XXXALT 


NEXT  AVAIL  ERASA8LF  AFTER  I N I T VEL / MI DG I M 
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R 1 884  S40.1 

1886 

1887  REF  1 

1888  REF  1 

1889  RE-F  -4 — 

R 1890  S40.9 


STORAGE. 

F 7, 1670  E7, 1712 

E7,  1676 
E7, 1 704 
E7, 1 704 
STORAGE. 


BDT  ERASE 

UT  EQUALS  BDT 

VGTIG  EQUALS  UT 

VGPREV  = VGTIG 


1892  E7,1713  £7,1732  VG  ERASE 

1893  REF  1 E7.1721  VRPREV  EQUALS  VG 

1894  REF  1 E7.1727  TNIT  EQUALS  VRPREV 

1895  REF  1 £7,1731  TNITPREV  EQUALS  TNIT 


R 1 896 


P40  STORAGE. 


R 1898 

1899 

1900  REF  1 

1901  REF  1 

1902 
A 1 903 


F, MOOT, AND  TDECAY  MUST  BE  CONTIGUOUS  FOR  VLOAD. 
F 7, l 733  E 7, 1 74  0 F ER  ASF 

£7,1735  MDOT  EQUALS  F 

E 7 , 1 737  TDECAY  EQUALS  MDOT 

F-7,  1 741  -E7,  1 742  VEX  ERASE 


R 1904  MIDT0AV1 (2)  STORAGE.  (CALLED  BY  P40,P41,P42) 


1906 
A 1907 


E7.  1743  E7 , L 743 


IRETURNt  ERASE 
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USER'S  PAGE  NO.  53  EO  S4 


( 19D ) 

+ 13D  1(6)  IN 

+6  1(6) OUT  THRUST  DIRECTION 

+6  I ( 6 ) OUT 

( 1 6 D ) 

+ 150  K61TMP 

+6  I ( 6 ) TMP 

+6  I ( 2 ) TMP  TIME  SINCE  LAST  CALL  TO  S40.9 

+2  1 1 2 ) TMP  PREVIOUS  TNIT. 


£60) 


±5-  I (2 ) TMP  S40.1  GENERATES  THIS  FOR-  S40.3 
+2  I ( 2 ) TMP  MASS  CHNG  RATE,  KG/CS  AT  2**3. 

+2  I (2 ) IN  DELTA-T  TAILOFF,  <2**28)CS. 

+ 1 1(2)  EXHAUST  VELOCITY  FOR  TGO  COMPIJTAT'N 


( ID) 


B(l) 


RETURN  FROM  MIDT0AV1  AND  2 


GAP 
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L 

ERASABLE 

ASS IGNMENTS 

USER'S  °AGE 

NO.  54 

EO  S 4 

P 1908 
A 1 9 0 9 

$ * 

OVERLAY  NUMBER  1 IN 

EBANK  7 ******* 

R 19  1 0 

INITVEL  (CALLED  BY 

P34, 35, 38,39, 10, 11, 

S40.9, S40.1 ) 

( 6D ) 

1912 
A 191 3 

REF 

1 

E7, 1 467 

RTARG1 

EQUAl S 

VACT  1 

I ( 6 ) S TEMP  STORAGE  OF  RTARG 

R 1914 

P35-P40  INTERFACE. 

( 6D ) 

1Q1  A 

45F-F 

— 7— 

1-  AST  I 5 6 F 7.  1 503 

VPASS4 

EQUALS 

VPASS1 

I (6ITRP  VELOCITY 

OF  PASSIVE 

AT  INTERCEPT 

R 1 9 1 7 INITVEL  OVERLAYS  RENDESVOUS  GUIDANCE  (LISTED  IN  OVERLAY  0) 


R 1 91  8 

SOME 

P3 8 -39 , P78-79  STORAGE. 

( 2D) 

1920 
A 19  2 1 

REF 

1 

E7 , 1626 

TINT 

EQUALS 

TPASS4 

1(2)  TIME  OF  INTERCEPT 

R 1922 

LAT  - 

LONG  TEMPORARIES.  CAN 

OVERLAY  WITH 

S 40  . 1 

( 3D) 

1924 

9 Ef 

2 

t /'S  T 

1 5fl  F 7#  1 670 

FR  ADM 

FOIJAI  S 

BDT 

1(2) 

1925 

REF 

i 

E 7 , 1 672 

INCOPPEX 

EQUALS 

ERADM 

+ 2 

Id) 

R 1926 
1 Q2  8 

REF 

1 

LRS24.1  STORAGE.  (CAN  SHARE 
— E 7t 1673 

WITH  P 30 • S ) 

Q 1 M^RFH 

EQUAl  S 

T NC-P  RPFX 

+ 1 

( 40D  ) 

Tift)  TMP  IM  POSITION  VFF.TOR 

1929 

REF 

1 

F 7 , 1 701 

VXRCM 

EQUALS 

RLMS  RCH 

+■  6 

I (6) 

CM  V X R VECTOR 

1930 

REF 

1 

E 7, 1 707 

LOSDESRD 

EQUALS 

VXRC  M 

+ 6 

I (6) 

DESIRED  LOS  VECTOR 

1931 

REF 

1 

E7, 1 715 

UXVECT 

EQUALS 

LOSDESRD 

+ 6 

I (6) 

X-AXIS  SRCH  PATTERN  COORDS 

1932 

REF 

1 

E7, 1723 

UYVECT 

EQUAL  S 

UXi/ECT 

+ 6 

1(6) 

Y-AXIS  SRCH  PATTERN  COORDS 

1933 

REF 

1 

F 7 , 1 731 

DATAGOOD 

EQUALS 

UYVECT 

+6 

B ( 1 ) DSP 

FOR  R 1 - ALL  1—  S WHEN  LOCKON 

1934 

REF 

1 

E 7 , 1732 

OMEGDI Sp 

EQUALS 

DAT  AGOPD 

+i 

B (2  ) 

ANGLE  OMEGA  DISPLAYED  IN  R? 

1935 

REF 

1 

E7, 1732 

OMEGAD 

OMEGDI SP 

PINBALL  DEFINITION. 

1936 

REF 

2 

LAST  159  E 7, 1 734 

NSRCHPNT 

EQUALS 

OMEGDISP 

+ 2 

B ( 1 ) TMP 

SEARCH  PATTERN  POINT  COUNTER. 

1937 

REF 

L- 

F7, 1735 

SAVLEMV 

EQUALS 

NSRC  HPNT 

+ 1 

1(6)  S- 

S SAVES  LOSVEL 

A 1938 
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L 

ERASABLE 

ASS IGNMENTS 

USER'S  PAGE  NO.  55  EO  S4 

P 1939 
A 1940 

$ 

OVERLAY  NUMBER  2 IN  EBANK  7 

******* 

R 1941 

INCORP  STORAGE  IN  E7. 

( 47  D ) 

1943 

1944 

REF 

REF 

2 

1 

LAST  155  E7.1467 

E 7, 1475 
E 7, 1500 

TX789 

GAMMA 

OMEGA 

EQUALS 

EQUALS 

EQUALS 

E 70V  ERL  A 
TX789  +6 

GAMMA  +3 

1(6) 

1(3) 

1(18) 

1946 

1947 

REF 

REF 

1 

1 

F7  j 1 522 
E 7, 1544 

AfTMARK  RTDRAOF 

BVECTOR 
DEL  T AQ 

EQUALS 

EQUALS 

OMEGA  +18D 

BVECTOR  +180 

1(18) 

1(2) 

(3D) 

1950 

REF 

1 

E7, 1 546 

MARKCNTR 

; EQUALS 

DEL  T AQ  +2 

Id) 

p Ef 

F 7t 1 547 

X YM ARK 

EQUALS 

MARKCNTR  +1 

BID 

1952 

REF 

1 

E 7,  1 550 

MKDEX 

EQUALS 

XYMARK  +1 

BI1ITMP  INDEX  FOR  AflTMARK 

A1953 

R1954 

PLANET  STORAGE. 

( 8D  ) 

1956 

RE  F 

E 7 T-l  5 5 1 

PI  ANVFC 

FQIJA1  S 

MKDCX  +1 

(6)  REFFR  VECTOR  OF  D L A N£ T 

1957 

REF 

1 

E7, 1557 

TSIGHT 

EQUALS 

PLANVEC  +6 

(2)  TIME  OF  MARK  OR  EST  TIME  OF  MARK 

A 1 958 

R 1959 

LPS22.3  STORAGE.  (CAN 

SHARE 

WITH  P30 ' S 

AND  OVERLAY  LRS24.1 

(300)  . 

1961 

REF 

2 

LAST  159  E7.1673 

LGRET 

EQUALS 

RLMSRCH 

Ill)  TMP 

1962 

REF 

1 

E7, 1673 

RDRET 

EQUALS 

LGRET 

B ( 1 ) TEMP  RETURN. 

1963 

RFF 

2 

1 AST  16  0 F 7,  1673 

I GR  FT 

FQIJA1  S 

LGRFT 

B(l)  TEMP  RETURN. 

1964 

REF 

i 

E7, 1674 

MX 

EQUAL  S 

RDRFT  +1 

1(6) 

1965 

REF 

i 

E7, 1702 

MY 

EQUALS 

MX  +6 

1(6) 

1966 

REF 

i 

E7, 1 710 

MZ 

EQUAL  S 

MY  +6 

T (6) 

1967 

REF 

2 

LAST  160  E 7, 1674 

EO 

EQUALS 

MX 

1(2) 

1968 

REF 

3 

LAST  160  E 7 , 1676 

El 

EQUALS 

MX  +2 

1(2) 

1969 

REF  _ 

—4 

LASt  160  E7, 1700 

E2 

EQUAL  S 

MX  +4 

M2  ) 

1970 

REF 

1 

E 7 . 1 702 

E3 

EQUALS 

E 2 +2 

1(2) 

1971 

REF 

1 

E7, 1 716 

SCALSHFT 

EQUALS 

M2  +6 

B ( 1 ) SCALE  SHIFT  FOR  EARTH/MOON 

1972 

-R-EF 

1 

E 7, 1 717 

RXZ 

FQIJAL  S 

SCA 1 SHFT  +1 

I ( 2 ) 

1973 

REF 

1 

E7, 1721 

ULC 

EQUAL  S 

RXZ  +2 

1(61 

1974 

REF 

1 

E7, 1727 

SINTHETA 

EQUALS 

ULC  +6 

1(2) 

R 1975 

*****  in  OVERLAY  ONE  ***** 

1976 

REF 

1 

E7 1 1 744 

N4Q  FLAG 

FOHAI  S 

RHPTMSAV 

B ( 1 ) S FLAG  INDICATING  V0649  RESPONSE 

A 1 977 

R 1978 

LRS22.1  STORAGE.  (MUST 

NOT 

SHARP  WITH 

(130) 

R 19  80 

(OUTPUTS  ARE  TO  LRS22. 

3) 
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1981 

REF 

1 

E7, 1731 

RRTRUN 

EQUAL  S 

SINTHETA 

+2 

B (2 ) OUT 

RR  TRUNION  ANGLE 

198? 

REF 

1 

E7, 1733 

RRSHAFT 

EQUALS 

RRTR  UN 

+ 2 

B ( 2) OUT 

RRSHAFT  ANGLE 

1 

f 7 f i 735 

I.RS22.1X 

EQUAL  S 

RRSHAFT 

+ 2 

B ( I ) TMP 

1984 

REF 

1 

F7, l 736 

RRBORSIT 

EQUAL  S 

LRS22.1X 

+ 1 

1(6)  TMP 

RADAR  BORFSIGHT  VECTOR. 

1985 

REF 

1 

E 7 » 1 744 

RDOTMSAV 

EQUALS 

RRBORSIT 

+6 

B ( 2 ) S 

RP  PANG  E-R  A T E ( F P S ) 

A 1986 


R 1987 

LRS22.1  (SAME  AS  PREVIOUS 

SECTION)  ALSO  DOWNLINK  F CR  RR 

( R 29 ) ( 80 ) 

CANNOT  SHARE  WITH  L.A.D. 

1989 

REF 

2 

LAST  160  E 7, 1 746 

RDOTM  EQUALS  RDOTMSAV 

+ 2 

B ( 2 ) OUT 

RANGE-RATE  REAOING 

1990 

REF 

1 

E7, 1 750 

TANGNB  EQUALS  RDOTM 

+ 2 

B ( 2 ) TMP 

RR  GIMBAL  ANGLES 

R 1991 

RETAIN  THE  ORDER  OF  MKT  I ME 

TO  RM  FOR  DOWNLINK  PURPOSES 

1992 

REF 

1 

E7, 1752 

MKT  I ME  EQUALS  TANGNB 

+ 2 

B ( 2 ) OUT 

TIME  OF  RR  READING 

1993 

REF 

1 

E7, 1754 

RM  EQUALS  MKT  I ME 

+2 

1(2) OUT 

RANGE  READING 

A 1994 


R1995 

P19QA 

R61LEM  - 

PREFERRED 
( CA1  1 FD  BY 

TRACKING  ATTITUDE  ROUTINE  **IN  OVERLAY 
P20,R2?LEM,LSR22«3) 

ONE* 

{ ID) 

1998 
A 1 QQQ 

REF 

2 LAST  161 

E7, 1743 

R65CNTR  EQUALS  RRBORSIT  +5 

B( 1 ) SS 

COUNT  NUMBER  OF  TIMES 
TRACKING  ROUTINE  IS  TO 

PREFERRED 

CYCLE 

A 2000 

A2001 


R 2002 

P 21  STORAGE 

( 2D) 

2004 

A2005 

REF 

1 E7.1756 

P21TIME  EQUALS  RM 

+ 2 

I (2 ) TMP 

R2006 

KALCMANU,  VECPOINT  STORAGF. 

CALLED  BY  R63,  R61,  R65. 

( L2D) 

2008  REF 

2009  REF 
A2010 


1 

1 


E7, I 760 
E 7 , 1 766 


SCAXIS  -EQUALS  P21TIME  +2 
POINTVSM  EQUALS  SCAXIS  +6 


I (6) 
1(6) 
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P20  11 

**$#£*# 

OVERLAY  NUMBER  3 IN  E8ANK  7 ******* 

A2012 

R2013 

SERVICER  STORAGE 

2015 

REF 

3 

LAST  160  E 7 » 1 46  7 

ABVEL 

EQUALS 

E70VERLA 

2016 

REF 

1 

F7, 1471 

HDOTDI SP 

EQUAL  S 

ABVEl 

+2 

F 7» 147  3 

TTFDI SP 

EQUALS 

HDOTDISP 

+2 

A2018 

R201 9 

2021 

REF 

1 

E7, 1475 

SAVET-30 

EQUAL  S 

TTFDISP 

+2 

R2023 

SERVICER  STORAGE. 

2025 

REF 

1 

F7, 1477 

VGBODY 

EQUAL  S 

SAVE  T-30 

+ 2 

2026 

REF 

1 

E7, 1477 

DELVCTL 

= 

VGBODY 

20  27 

R 

2 

LAST  1 h 2 F 7t  1 sns 

DVTDTAL 

EQUALS 

VGBODY 

2028 

REF 

i 

E7, 1 507 

GOBLT I ME 

EQUALS 

DVTOTAL 

+ 2 

2029 

REF 

i 

E 7 , 1511 

ABDVCONV 

EQUALS 

GOBL  TIME 

+2 

20^0 

R £ F 

1 

E7* 1 51 3 

DVCNTR 

FQU ALS 

ABDVCONV 

+ ? 

2031 

REF 

i 

E7 , 1514 

T GO 

EQUALS 

DVCNTR 

+ 1 

2032 

RFF 

i 

F7, 1516 

R 

EQUALS 

T GO 

+2 

2033 

RFF 

1 

E7, 1516 

UNI TGOBL 

EQUAL  S 

R 

2034 

REF 

2 

LAST  162  E 7, 1524 

V 

EQUALS 

R 

+ 6 

2035 

REF 

1 

E7, 1524 

DEL  VR  EF 

EQUAL  S 

V 

2036 

REF 

1 

_ E7, L 532 

HCALC 

EQUALS 

DELVPEF 

2037 

REF 

1 

E7, 1 534 

UNIT/R/ 

EQUALS 

HCAL  C 

+ 2 

R2038 

(THE  FOLLOWING  SERVICER 

ERASABLES 

i CAN  BE 

: SHARED 

WITH 

2040 

REF 

1 

E7, 1542 

RN1 

EQUAL  S 

UNIT /R/ 

+ 6 

2041 

REF 

1 

E 7 , 1 550 

VN1 

EQUALS 

RN1 

+ 6 

2042 

REF 



E 7 1 1 556 

P I P T I MF 1 

FQUAI  S 

V K'l 

2043 

REF 

1 

E7.1560 

GDT  1/2 

EQUAL  S 

P IPT  IMF  1 

+ 2 

2044 

REF 

1 

E 7,  1 566 

MAS  S 1 

EQUALS 

GDT 1 /2 

+6 

2045  - 

REF 

1 

E7, 1570 

R 1 S 

FQUAI  S 

MASS  1 

+? 

2046 

REF 

1 

E 7,  1 576 

VIS 

EQUALS 

R1S 

+ 6 

P 2047 
2049 

REF 

— j_ 

ALIGNMENT/S40.2. 3 COMMON 

F 7 ^ 1 AHA. 

STORAGE. 

XSM  D 

PHI  1 A 1 F V/  1 F 

+ 

2050 

REF 

1 

E7, 1612 

YSMD 

twUMLo  Vlo 

EQUALS  XSMD 

+6 

2051 

REF 

1 

E7,  1620 

ZSMD 

EQUALS  YSMD 

+ 6 

2052 

REF 

2 

LAST 

162 

F 7 , 1604 

XSCREF 

= XSMD 

2053 

REF 

2 

LAST 

162 

E7, 1612 

Y SC REF 

= YSMD 
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USER » S PAGE  NO.  57  EO  S4 


t 60) 


B ( 2 ) DISPLAY 
8(2)  DISPLAY 
B ( 2 ) DISPLAY 


( 2D) 

B ( 2 ) TMP  TIG-30  RESTART 


( 69D ) 


B ( 6 ) OUT  SET. BY  S41.1  V G LEM,  SC. COORDS 
B ( 2 ) DISPLAY  NOUN 

B ( 2 ) NOMINAL  TIG  FOR  CALC.  OF  GOBLATE. 
1(2) 

B ( 1 ) 

B(  2) 

I (6) 

1(6) 


1(6) 

B ( 2 ) LR 

1(6) 

SECOND  DPS  GUIDANCE  STORAGE) 


B ( 6 ) 
1(6) 
B C 21 
1(6) 
1(2) 
I (6) 
1(6) 


(IN  ORDER  ) 

J FnR  ) 

( rnpY  ) 

( CYCLE  ) 


( 18  D ) 

I (6) 
1(6) 
1(6) 


GAP 
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L ERASAELE  ASSIGNMENTS 


USER’S  PAGE  NO.  53  EO  S4 


2054 

REF 

1 

E 7 , 1620 

ZSCREF 

ZSMD 

OCE 

9 1 AQT 

F7. 1 626 

ENO-ALIG  EQUALS 

ZSMD 

+6 

NFXT  AVAIL  ERASABLE  AFTER  AL IGN/S40. 2,3 

R2056  ******  P22  ******  ( 240) 


2058 

REF 

1 

E7, 1626 
F7t 1 634 

RSUBL 
- UCSM 

EQUALS 

EQUALS 

FND-ALIG 

RSUBL 

I (6) S-S 
1(6) S-S 

LM  POSITION  VECTOR 
VECTOR  U 

2060 

REF 

1 

E7, 1642 

NEW VEL 

EQUALS 

UCSM 

+ 6 

I (6) S-S 

TERMINAL  VELOCITY  VECTOR 

2061 

REF 

1 

F7 , 1 650 

NEWPOS 

EQUALS 

NEW  V EL 

+6 

1I61S-S 

TERMINAL  POSITION  VECTOR 

20^2 

REF 

1 

E7 , 1 656 

LNCHTM 

EQUALS 

NEWPOS 

+6 

I (2) S-S 

EST.  LAUNCH  TIME  FOR  LEM 

2063 

REF 

1 

E 7, 1 660 

TRANSTM 

EQUALS 

LNCHTM 

+2 

I (2 ) S-S 

TRANSFER  TIME 

2064 

A2065 

REF 

1 

E7, 1662 

NCSMVEL 

EQUALS 

TPANSTM 

+ 2 

I (6 ) S-S 

NEW  CSM  VELOCITY 

- G AP : 
L 

ASSEMBLE  REVISION  069  Of  AGC  PROGRAM 
ERASABLE  ASSIGNMENTS 

LUMINARY  BY  NASA  2021112-011 

-49:02  NOV.  25,1968  LUM ERASE. 102  PAGE  164 
USER'S  PAGE  NO.  59  EO  S4 

P2066 

A2067 

******* 

OVERLAY  NUMBER  4 IN 

EBANK 

7 

R2068 

AUTO-OPTICS  STORAGE. 

-R5  2- 

( 1 ) 

XMB-1— 

_ 

#HOC  ARES 

THFSF  WHOCARFS  THINGS  A RF  RFFFRFNCFD. 

2070 

2071 

REF 

2 

LAST  164  F7.1467 

YNB  1 

= 

WHOC ARES 

BUT  NOT 

USED  IN  SUNDANCE 

20  72 

REF 

3 

LAST  164  E7, 1467 

ZNB  1 

WHOC  ARES 

R2074 

VAR  IABLES 

, FOR  SECOND  DPS  GUIDANCE 

(THE 

LUNAR  LANDING) 

( 84D ) 

R2076 

THESE 

ERASABLES  MAY  BE  SHAPEO 

WITH 

CARE 

niJRTFMPS 

_ 

R Ml 

OVFRJ  AY 

last  part  of  servicer 

2078 

REF 

1 

E 7, 1542 

LANDTEMP 

= 

OUPTEMPS 

B 16) 

GUIDANCE 

2079 

REF 

1 

E7, 1 550 

TTF/8TMP 

= 

LANDTEMP 

+ 6 

B ( 2 ) 

GUIDANCE 

20  80 

fl-E-F 

1 

F7, 1 552 

EL  I NCR 

T TF / 8TMP 

+2 

B (2) 

GUIDANCE 

2081 

REF 

1 

E7, 1554 

AZINCR 

= 

E L I NCR 

+ 2 

R (2) 

GU I DANCE 

2082 

REF 

1 

E7, 1556 

KFEP-2 

= 

AZINCR 

+ 2 

B ( 2 ) 

TO  PREVENT  PIPTIME1  OVFRLAY 

20 

REF 

1 

F 7t 1 560 

TABLTTF 

KEEP-2 

+ 2 

B ( 2) 

GUIDANCE 

2084 

REF 

1 

E7 i 1 571 

TPI POLO 

= 

TABL TTF 

+ 90 

B ( 2 ) 

GU  IDANCE 

2085 

REF 

1 

E7, 1573 

/AFC/ 

= 

TPIPOLD 

+ 2 

B ( 2 ) 

GUIDANCE  AND  THROTTLE 

R2086 

R2087  ( f:RASA-Bl_ES  WHICH  OVERLAP  WITH  THE  ABOVE  BLOCK) 


2088 

REF 

2 LAST  164 

E7, 1560 

FCODD 

= 

TABL  TTF 

B I 2 ) 

THROTTLE 

20RQ 

RFF 

1 

F 7 t 1 56? 

FP 

_ 

f r no  n 

+ 2 

B ( 2 ) 

THROTTLE 

2090 

R2091 

REF 

1 

E7, 1617 

E2DPS 

EQUALS 

OURPERMS 

R 2092 

THESE 

ERASABLES  MUST 

NOT  OVERLAY 

GDBLTIME  OR  SERVICER 

2093 

REF 

3 LAST  162 

E 7, 1604 

P I FPSET 

_ 

XSMD 

B (1 ) 

THROTTLE 

2094 

REF 

1 

F 7 , 1605 

RTNHOLD 

= 

PIFPSET 

+i 

B(l) 

THROTTLE 

2095 

REF 

1 

E7, 1606 

FWE  I GHT 

= 

P TNHCLD 

+i 

B ( 2 ) 

THROTTLE 

2096 

— REF 

1 

F7, 1610 

P IF 

_ 

FWE I GHT 

+ 2 

B ( 2 ) 

THROTTLF 

2097 

REF 

1 

E7, 1612 

PSEUD055 

= 

P IF 

+ 2 

B(l) 

THROTTLE  DOWNLINK 

2098 

REF 

1 

E7, 1613 

FC 

= 

PSEUD055 

+ 1 

B ( 2 ) 

THROTTLE 

2099  - 

REF 

4 — 

F 7 , 1615 

TTHROT 

_ 

<=C 

+ 2 

BID 

THROTTLF 

2100 
A21  01 

REF 

1 

E7, 1616 

FCOLD 

— 

TTHROT 

+ 1 

B(l) 

THROTTLF 

R 2 102 

THESE 

ERASABLES  SHOULD  NOT  BE  SHARED  DURING  P63, 

P64 , P 65 , P 66, 

P67 

2103 

RFF 

1 

E 7 , 1617 

OURPERMS 

= 

F CO  l D 

+ 1 

MUSTN 1 

'T  OVERLAY  3URTEMPS  OR  SERVICER 

2104 

REF 

2 LAST  164 

E7, 1617 

WCHPHOLD 

= 

OURPERMS 

B ( l ) 

GUIDANCE 

GAP:  ASSEMBLE  REVISION  069  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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2105 

2106 
o 1 r\  “7 

RFF 

REF 

DPP 

1 

1 

L 

F 7 , 1620 
E7, 1621 
E 7, 1622 

WCHPHASE  = 
FLPASSO  = 
TP  I P 

WCHPHOLD 

WCHPHASE 

FLPASSO 

+ 1 
+ 1 
+ 1 

c.  L trf 
2108 

Ktr 

RFF 

X 

l 

E7, 1624 

VGU 

TPIP 

+ 2 

2109 

REF 

l 

E 7 » 1632 

LAND 

VGU 

+6 

o i i n 

REF 

i 

E7, 1640 

TTF/3  _= 

LAND 

+ 6 

C.  1 lu 
2111 

REF 

l 

F7, 1642 

EL  I NCR 1 = 

TTF/  8 

+ 2 

2112 

REF 

l 

E7  , 1643 

AZINCR1  = 

EL  I N CP  1 

+ 1 

? 1 1 -3 

REF 

_i_ 

F7t i 644 

ZERLINA  = 

AZINCR1 

+ 1 

C.  J.  i J — 

2114 

REF 

l 

E7, 1645 

ELVIRA 

ZERL INA 

+ 1 

2115 

REF 

l 

F 7 , 1646 

LRADRET  = 

ELVIRA 

+ 1 

2116 

-REF- 

i 

E 7,  1647 

VSELECT  = 

1 PAD  PET 

+ 1 

2117 

REF 

l 

E7, 1650 

VMEAS 

VSEL  ECT 

+ 1 

2118 

REF 

l 

F 7 , 1652 

HMEAS 

VMEAS 

+ 2 

2119 

REE 

i 

EX,  1654 

VN2 ... 

HMEA  S 

+ 2 

2120 

REF 

l 

F7, 1654 

GNUR 

VN2 

2121 

REF 

2 

LAST 

165 

E 7 , 1654 

GNU  V 

VN2 

2122 

REF 

3. 

LAST 

16  5- 

E7, 1 654 

LRADRET 1 = 

VN2 

2123 

REF 

4 

LAST 

165 

E7, 1662 

DELTAH 

VN2 

+ 6 

2124 

REF 

1 

F7, 1664 

FUNNYDSP  = 

DEI  T AH 

+ 2 

?1  7 R 

a ff  - 

] 

_ F7. 1 6 hh 

FOLJRPFRM  EQUALS 

FUNNYDSP 

+ 2 

R2126 

R2127  (ERASABLES  WHICH  OVERLAY  THE  ABOVE  BLOCK) 


2128 

REF 

2 

LAST 

165 

E7, 1642 

VDGVERT  = 

ELINCR1 

2129 

REF 

2 

EAST- 

16  5 

F 7,  1 644 

NIGNLOOP  = 

ZERL INA 

2130 

REF 

2 

LAST 

16  5 

F7,  1 645 

NGUIDSUB  = 

ELVIRA 

2131 

REF 

3 

LAST 

165 

E7, 1644 

RODCOUNT  = 

ZERL  INA 

2132 

RFF 

a_ 

LAST 

16  5 

_ EX,  1 645 

WCHVFRT  = 

ELVIf A 

2133 

REF 

2 

LAST 

165 

E7 , 1664 

FUELNEED  = 

FUNNYDSP 

2134 

REF 

3 

LAST 

165 

E 7 , 1664 

TREDES 

FUNNYDSP 

2135 

REF 

4_ 

LAST 

165 

r 7.  1665 

LOOKANGL  = 

FUNNYDSP  +1 

A2136 

R 21 37  ERASABLES  CONVEN I ENT LY-  DE F I NABLE  IN  THE  WORK  AREA 


2138 

2139 

0022 

0024 

PRO  J 

UNLR8/2  = 

1 8D 
20D 

2140 
R 2 1 41 

0024 

UNLR/2 

2 0 D 

R2142 

A2143 

THE  END  OF  THE 

LUNAR 

LANDING  ERASABLES 

R2144 

R 12 

( FOR 

LUNAR  LANDING) 

2146 

2147 


REF 

REF 


1 

1 


E7, 1666 
F 7 , 1667 


LRLCTR  EQUALS  EOUPPERM 

LRRCTR  EQUALS  LPLCTR  +1 
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USER'S  PAGE  NO.  60  EO  S4 


BID  GUIDANCF 

Btl)  GUIDANCE 

B (2) 

B < 6 ) GUIDANCF 

B ( 6 ) GUIDANCE  CONTIGUOUS 

B 1 2 ) GUIDANCF  CONTIGUOUS 

B(l)  GUIDANCE 

B(l)  GUIDANCE 

BID  GUIDANCE 

B(l)  GUIDANCE 

B(l)  LR 

B(l)  LR 

B ( 2 ) LR 

B ( 2 ) LR 

8(6)  LR 

B I 6 I L R 

B ( 6 ) LR 

B(l)  LR 

B ( 2 ) DISPLAY 

B ( 2 ) DISPLAY 

NEXT  AVAILABLE  ERASABLE  AFTER  OURPERMS 


B(  2) 
B ( 1 ) 
B(l) 
B I 1 ) 
3(1) 
B(l) 
B(l) 
B(l) 


P 6 5 * 66 
IGNALG 
IGNALG 
P 66 

P65,66,67 
DISPLAY 
DISPLAY 
DI SPLAY 


1(2)  GUIDANCE 

1(6)  GUIDANCF  (DURING  P64  ONLY) 

1(6)  GUIDANCE 


( 60  ) 

B(l)  LR  DATA  TEST 
B(l) 
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ERASAELE  ASSIGNMENTS  USER'S  PAGE  NO.  61  EO  S4 


21 

REF 

1 

E7, 1670 

LRMCTR 

EQUALS 

L RRCTR 

+ 1 

B(l! 

2149 

2150 

2151 
A2152 

REF 

1 

F 7 , 1671 

LRSCTR 

EQUALS 

LRMCTR 

+ 1 

B(l) 

£ 7f  ] 672 

STI LBADH 

EQUALS 

LRSC  TR 

+ 1 

Bill 

REF 

1 

E7, 1673 

STI LBADV 

EQUALS 

ST  IL  BADH 

+ 1 

B(l) 

R2153 

LANDING  ANALOGS  DISPLAY 

STORAGE. 

( 40D  ) 

2155 

REF 

1 

E 7,  1674 

LATVMETR 

EQUALS 

STI  L BADV 

+ 1 

B ( 1 ) PPM 

LATVEL  MONITOR  METER  (AM  ORDER) 

2156 

REF 

1 

E7, 1675 

FOR VMETR 

EQUALS 

LATVMETR 

+ 1 

BID  PRM 

FORVEL  MONITOR  METFR  (-ED  PAIR) 

l 

F 7t 1676 

LAT VEL 

EQUALS 

FOR VMETR 

+ 1 

B(l)  PRM 

LATERAL  VELOCITY  (AN  ORDER) 

2158 

REF 

1 

F 7, 1677 

FORVEL 

EQUALS 

LATVEL 

+ 1 

B(l) PRM 

FORWARD  VELOCITY  (-ED  PAIR) 

2159 

REF 

1 

F7.1700 

TRAKLATV 

EQUAL  S 

FORVEL 

+1 

BUI  PRM 

MONITOR  FLG  4 LATVEL  (AN  OROER) 

2 L 6Q 

REF 

1 

F7, 1 701 

TRAKFWDV 

EQUAL  S 

TRAK  LATV 

+ 1 

B(l) PRM 

MONIT.  FLAG  FOR  FORVEL  (ED  PAIR) 

2161 

REF 

1 

E 7 , 1702 

VHY 

EQUALS 

TP AK  FWDV 

+ 1 

B(l) PRM 

VHY= VMP .UHYP  (AN  OROER) 

2162 

REF 

1 

E7i 1703 

VHZ 

EQUAL  S 

VHY 

+ 1 

B(l) PRM 

VHZ  = VMP .UHZP  ( - ED  PAIR) 

21  63 

REF 

1 

F 7, 1 704 

VVECT 

EQUALS 

VHZ 

+ 1 

B (3 ) PRM 

UPDATED  S.P.  VELOCITY  VECTOR 

2164 

REF 

1 

E7,  1 707 

ALTRATE 

EQUAL  S 

VVECT 

+ 3 

8(1) PRM 

ALTITUDE  RATE  IN  BIT  UNITS 

2165 

REF 

1 

E 7 , 1 710 

ALTSAVE 

EQUALS 

ALTP ATE 

+ 1 

B ( 2 ) PRM 

ALTITUDE  IN  BIT  UNITS 

21  66 

REF 

1 

F7,  1 712 

LADQSAVE 

EQUALS 

ALTSAVE 

+2 

B(l) PRM 

SAVE  Q IN  LAND I SP 

2167 

REF 

1 

E 7 , 1 713 

DT 

EQUALS 

LADQSAVE 

+ 1 

B ( 1 ) PRM 

TIME  1 MINUS  (PIPTIME  +1) 

2168 

REF 

1 

E7, 1714 

DALTRATE 

EQUALS 

DT 

+ 1 

B(l) PRM 

ALTITUDE  RATE  ERROR  CORRECTION 

21  6 <3 

R FF 

1 

F 7, 1 715 

UHYP 

EQUALS 

DALTRATE 

+ 1 

B (6) PRM 

SM  UNIT  VECTOR 

2170 

REF 

1 

E7, 1715 

QAXIS 

UHYP 

2171 

REF 

2 

LAST  166  E 7 , 172  3 

UHZP 

EQUALS 

UHYP 

+ 6 

B ( 6 ) PR  M 

SM  UNIT  VECTOR 

217? 

R FF 

1 

ft, 1731 

DEL  VS 

EQUALS 

UHZP 

B 16 ) PRM 

DELVS  = WMXR 

2173 

REF 

1 

E7, 1737 

ALTBITS 

EQUALS 

DEL  VS 

+ 6 

B ( 2 ) PRM 

ALTITUDE  IN  BIT  UNITS,  2.34FT/BT 

2174 

REF 

1 

E7, 1741 

RUNI  T 

EQUALS 

ALTP  ITS 

+2 

BIB) PRM 

SM  HALF-UNIT  R VECTOR 

2175 

REF 

— 

E 7,  1 743 

LAS  TLADW 

EQUALS 

RUNI  T 

±2 

ONLY  A TAG  TO  SIGNIFY  LAST  L.A.D.  WORD 

A2I76 


GAP: 
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P2177 

A2178 


R2179 

2181 

2162 

2183 

2184 

2185 

2186 
2187 

A2188 

2189 

2190 

2191 
A2192 

R2193 

R2194 


2196 

2197 

2198 

2199 

2200 
2201 
2202 

A2203 


***  END 


ERASABLE  ASSIGNMENTS 

*******  OVERLAY  NUMBER  5 IN  EBANK  7 ******* 


USER' S PAGE  NO.  62  EO  S4 


ASCENT  GUIDANCE  ERASABLES.  { 23D) 


REF 
REF 
n F R 

2 LAST  163 
1 
1 

E7, 1626 
E 7 . 1630 
F 7 , 1632 

RCO 

YCO 

1/DV1 

EQUALS 

EQUALS 

EQUALS 

END-AL IG 

RCO 

YCQ 

+ 2 
+ 2 

I (2ITMP 
I ( 2 ) TMP 
B ( 2 ) TMP 

TARGET  RADIUS  AND  nUT-OF-PL ANF 
DISTANCE,  SCALED  AT  2(24). 
ATMAG 

REF 

1 

E7, 1634 

1/DV2 

EQUALS 

1/DV  1 

+ 2 

B ( 2 ) TMP 

ATMAG 

REF 

1 

E 7 , 1636 

1/DV3 

EQUALS 

1/DV2 

+2 

B ( 2 ) TMP 

ATMAG 

REF 

1 

F 7 , 1 640 

XRANGE 

EQUAL  S 

1/DV3 

+2 

B ( 2 ) T MP 

REF 

1 

E7, 1642 

APO 

EQUALS 

XRANGE 

+2 

B ( 2 I TMP 

APOLUNE  ALTITUDE  DESIRED  - M. 
SCALED  AT  2(29). 

REF 

1 

E7  t 1 644 

ENGOFFDT 

EQUALS 

APD 

+ 2 

B ( 1 ) TMP 

PROTECTION  OF E NGOFF 1 CALL 

REF 

1 

F 7 , 1645 

VGVECT 

EQUALS 

ENGOFFDT 

+ 1 

I ( 6 ) OUT 

VELOCITY-TO-BE -GAINED 

REF 

- £-7,  1653 

JXO 

EQUALS 

VGVECT 

+6 

I ( 2 ) TMP 

TIME  AT  WHICH  X-AXIS  OVERRIDE 

IS  ALLOWED. 


END  OF  THE  ASCENT  GUIDANCE  ERASABLES. 


THE  FCLLOWING  CARDS  KEEP  THE  ASSEMBLER  HAPPY  UNTIL  THE  SYMBOLS  ARF  DELETED  FROM  THE  PINBALL  NOUN  TABLES. 


REF 

REF 

REF 

i 

i 

i 

E 7, 1 744 
E7 , 1 745 
E 7, 1 774 

END-E7.0 
END-E7. 1 
END-E7.2 

EQUAL  S 
EQUALS 
EQUALS 

IRFT  URN1 
N49F LAG 
POINTVSM 

+ 1 
+ 1 
+ 6 

FIRST 

FIRST 

FIRST 

UNUSED 

UNUSED 

UNUSED 

LOCATION 

LOCATION 

LOCATION 

IN 

IN 

IN 

E7 

E7 

E7 

OVERLAY 
OVEPL AY 
OVERLAY 

0 

1 

2 

REF 

3 LAST  167 

E7, 1626 

END-E7.3 

EQUALS 

END- AL IG 

FIRST 

UNUSED 

LOCATION 

IN 

E7 

OVERLAY 

3 

REF 

1 

E 7, 1744 

END-E7.4 
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Ktr 

REF 

UO  } c.  L D C. 

06,2133 

1 2074 

1 

TCF 

SETT  IMF4 

D C C 

1 /■ 

1 ACT 

06.2134 

06.2135 

06.2136 

3 4736 

4 

QUI KDSP 

CAF 

BIT]  4 

0155 

01551 

01552 

Ktr 

REF 

i M 

4 

L Wo  1 

LAST 

1 f 3 

172 

7 1313 
0 0006 

0 

1 

MASK 

EXTEND 

DSRUPTSW 

01553  REF  1 06,2137  1 2165  0 BZF  QUIKOFF 


01555 

0156 

REF 

REF 

4 

2 

LAST 

LAST 

172 

172 

06.2 140 

06. 2 141 

1 1 ' 0 1 6 
0 2024 

0 

0 

CCS 
TC 

NOUT 

DSPCUTSB 

0157 

REF 

1 

06, 2 142 

l 2152 

1 

TCF 

NODSPY 

01575 

REF 

15 

LAST 

175 

06,2143 

4 4736 

0 

CS 

BIT1  4 

01577 

REF 

5 

LAST 

1 7 5 

06, 2144 

27' 3 13 

0 

QUIKRUPT  ADS 

DSRUPTSW 

0158 

REF 

2 

LAST 

172 

06,2 145 

3 7730 

1 

CAF 

20MRUPT 

0159  REF  — 2-  LAST  172  06,2146  54  027  0 IS  TIME4 


0160 

REF 

14 

LAST 

103 

06, 2 147 

3 4743 

0 

CAF 

B I T 9 

0161 

REF 

6 

L AST 

1 7 5 

06, 2 150 

27*313 

0 

ADS 

D SRU PTSW 

0162 

REF 

i 

06,2151 

0 5270 

1 

TC 

RESUME 

0163 

06,2  152 

0 0006 

1 

NODSPY 

EXTEND 

0164 

REF 

4 

LAST 

175 

06,2153 

01  010 

1 

WRITE 

OUTO 

0165 

REF 

3 

LAST 

175 

06,2  154 

3 7730 

1 

SYNCT4 

CAF 

20MPUPT 

01  66 

REF 

3 

LAST 

175 

06, 2155 

26  027 

0 

ADS 

T I ME 4 

0167 

REF 

15 

LAST 

175 

06, 2156 

3 4743 

0 

CAF 

B I T9 

0168 

REF 

7 

LAST 

175 

06, 2 157 

27 ' 3 1 3 

0 

ADS 

DSRUPTSW 

0169 

REF 

8 

LAST 

175 

06,2 160 

11*313 

0 

CCS 

DSRUPTSW 

0170 

REF 

2 

LAST 

175 

06,2161 

0 5270 

1 

TC 

RESUMF 

0171 

06, 2 162 

37737 

0 

OCT  37737 

OCT 

3773  7 

0172 

REF 

1 

06,2163 

0 2154 

0 

TC 

SYNCT4 

0173 

REF 

3 

LAST 

175 

06, 2164 

0 52  70 

1 

TC 

RFSUME 

0174 

06,2 165 

0 0006 

1 

QUI KOFF 

EXTEND 

0175 

REF 

5 

LAST 

175 

06,2166 

01  010 

1 

WRITE 

OUTO 

0176 

REF 

16- 

LAST 

175 

06, 2167 

3 4736 

1 

CAT 

BIT14 

0177 

REF 

1 

06, 2 170 

l 2144 

0 

TCF 

QUIKRUPT 

0179 


06, 2 171 


22400  0 14,11,9  OCT 


22400 
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SET  FOR  NEXT  CORIVE 


WROTE  LAST  TIME,  NOW  TURN  OFF  RELAYS. 


NOUT =0  OR  BAO  RETURN  FROM  DSPOUTSB 
GOOD  RETURN  (WE  DISPLAYED  SOMETHING) 


RESET  DSRUPTSW  TO  SEND  DISPLAY  NEXT  PASS 
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L TAR  UP  T PROGRAM  USER'S  PAGE  NO.  7 E6  S4 

P0300  PROGRAM  NAME:  I MUMON 

R0301  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  IS  ENTERED  EVERY  480  MS.  IT  DETECTS  CHANGES  OF  THE  I MU  STATUS  BITS- IN 

R0303  CHANNEL  30  AND  CALLS  THE  APPROPRIATE  SUBROUTINES.  THE  BITS  PROCESSED  AND  THEIR  RELEVANT  SUBROUTINES  ARE: 

ROOD 5-  FL-NCFIQN B IT  SUBROUTINE  CALLED — 

R0306  

R0307  TEMP  IN  LIMITS  15  TLIM 

R0308  ISS  TURN-ON  REQUEST  14  ITURNON 

R0309  I MU  FAIL  13  IMUFAIL  (SETISSW) 

R0310  IMU  CDU  FAIL  12  ICDUFAIL  (SETISSW) 

R0311  IMU  CAGE  11  IMUCAGE 

R0312  IMU  OPERATE  9 IMUOP 

R 0 313  THE  LAST  SAMPLED  STATE  OF  THESE  BITS  IS  LEFT  IN  IMODES30.  ALSO,  EACH  SUBROUTINE  CALLED  FINDS  THE  NEW  _ 

R0315  VALUE  OF  THE  BIT  IN  A,  WITH  Q SET  TO  THE  PROPER  RETURN  LOCATION,  NXTI FAIL. 

R0317  CALLING  SEQUENCE:  T4RUPT  EVERY  480  MILLISECONDS. 

R0318  JCBS  CR  TASKS  INITIATED:  NONE. 


R0319  SUBROUTINES  CALLEC:  TLIM,  ITURNON,  SETISSW,  IMUCAGE,  IMUOP. 

R0320  ERASABLE  INITIALIZATION: 

R0321  FRESH  START  OR  RESTART  WITH  NO  GROUPS  ACTIVE:  C ( IM0DES30 ) = OCT  37411. 

R0323  RESTART  WITH  ACTIVE  GROUPS:  CUM0DES30)  = ( B ( I MODES  30 ) AND( OCT  00035))  PLUS  OCT  37400. 

R0325  THIS  LEAVES  IMU  FAIL  BITS  INTACT. 


R0326  ALARMS:  NONE. 

RO  327  EXIT:  TNONTEST. 


R 03-2-8  OUTPUT:  UPDATED  IM0DES30  WITH  CHANGES  PROCESSED  BY  APPROPRIATE  SUBROUTINE. 


0330 

-0331 

REF 

1 

06,2172 
06,2  173 

3 1302 
0 00  06 

1 IMUMON 
1 

CA 

EXTEND 

I MOD  ES30 

SEE  IF  THERE  HAS  BEEN 
RELEVANT  BITS  OF  CHAN 

A CHANGE  IN  THE 
30. 

0332 

REF 

1 

06,2174 

06  030 

i 

RXOR 

CHAN  30 

0333 

RFF 

1 

06, 2 175 

7 2761 

i 

MASK 

30RDMSK 

0334 

06, 2 176 

0 00  06 

i 

EXTEND 

0335 

REF 

1 

06,2177 

1 2227 

0 

BZF 

TNONTEST 

NO  CHANGE  IN  STATUS. 

0336 

REF— 

— 3— 

LAST 

17  4 

06,2  200 

54  070 

1 

T S 

p UP  T REG] 

SAVE  RTTS  WH T TH  HAVE 

CHANGED. 

0337 

REF 

2 

LAST 

176 

06,2201 

23' 302 

1 

LXCH 

IM0DES30 

UPDATE  IM0DES30. 

0338 

06, 2202 

0 0006 

1 

EXTEND 

0339 

RFF 

2 

LAST 

173 

06,2203 

06  001 

0 

RXOR 

L C H A N 

0340 

REF 

3 

LAST 

176 

06,2204 

55*  302 

0 

TS 

I MOD  ES30 

0341 

0342 

0343 


REF 

REF 


2 L AS  T 1 7 2 
4 LAST  176 


06.2205  4 4753  0 

06.2206  56  070  0 

06.2207  0 0006  1 


CS  QNE- 

XCH  RUPTREG1 

EXTEND 
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0344 

0345 

REF 

REF 

1 

1 

06,2210 
06, 2211 

6 2514 
1 2213 

0 

1 

BZMF 

TCF 

TLI  M 

NXT I FBIT 

CHANGE  IN  IMU  TEMP. 
BEGIN  BIT  SCAN. 

0346 

REF 

3 

LAST 

176 

06, 2212 

6 4753 

1 

-1 

AO 

OIF 

(RE-ENTERS  HERE  FROM  NXTIFAIL. 

0347 

REF 

5 

LAST 

176 

06,2213 

24  070 

0 

NXT  I FBI T 

I NCR 

RUPTREG1 

ADVANCE  BIT  POSITION  NUMBER. 

n 

06, 2214 

6 0000 

1 

+ 1 

DOUBLE 

u_>*+o 

0349 

REF 

2 

LAST 

173 

06,2215 

54  000 

0 

TS 

A 

SKIP  IF  OVER GLOW . 

0350 

REF 

2 

LAST 

177 

06,2216 

1 2213 

1 

TCF 

NX  F I FBIT 

LOOK  FOR  BIT. 

0351 

REF 

1 

06,2217 

56  071 

1 

XC  Ft 

RUPTPEG2 

SAVE  OVERFLOW-CORRECTED  DATA. 

0352 

REF 

6 

LAST 

177 

06, 2220 

50  070 

0 

INDEX 

RUPTREG1 

SELECT  NEW  VALUE  OF  THIS  BIT. 

0353 

REF 

17 

LAST 

175 

06,2221 

3 4736 

1 

CAF 

BIT14 

0354 

REF 

4 

LAST 

176 

06, 2222 

7 1302 

0 

MASK 

I MOD  ES30 

0355 

REF 

7 

LAST 

177 

06,2223 

50  070 

0 

INDEX 

RUPTREG1 

0356 

REF 

1 

06, 2224 

0 2755 

-1 

TC 

I FA  I LJMP 

0357 

REF 

2 

LAST 

177 

06,2225 

10  071 

0 

NXTIFAIL 

CCS 

RUPTPEG2 

PROCESS  ANY  ADDITIONAL  CHANGES 

0358 

REF 

— a- 

LAST 

1 7-7 

06,2226 

1-22  12 

-0 

TCF 

NXT I FBIT  -1 

177 
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L 

P0359 

R0360 

R0362 

R0364 

R0366 

R0368 

R0370 

R0372 

R0374 

R0376 

R0378 


R 0379 
R0381 

R0383 
R0385 
R0387 
R0389 
P 03  91 
R0393 
R 0395 
R0397 
R 0399 

R0401 

R04G3 

R0405 

R0406 

R0408 

R0410 

R0411 

R0413 

R0414 

R0416 
R0418 
R 0420 

R0421 
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PROGRAM  NAME:  TNCNTEST. 

FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  HONORS  REQUESTS  FOR  I -S  S IN  I T I AL I Z AT  ION . ISS  TURN-ON  (CHANNEL  30  BIT  14) 

AND  ISS  OPERATE  (CHANNEL  30  BIT  9)  REQUESTS  ARE  TREATED  AS  A PAIR  AND  PROCESSING  TAKES  PLACE  .480  SECONDS 
AFTER  EITHER  ONE  APPEARS.  THIS  INITIALIZATION  TAKES  ON  ONE  OF  THE  FOLLOWING  THREE  FORMS: 


1)  ISS  TURN-ON:  IN  THIS  SITUATION  THE  COMPUTER  IS  OPERATING  WHEN  THE  ISS  IS  TURNED  ON.  NOMINALLY, 

BCTH  ISS  TURN-ON  AND  ISS  OPERATE  APPEAR.  THE  PLATFORM  IS  CAGED  FOR  90  SECONDS  AND  THE  ICDU'S  ZEROED 
SC  THAT  AT  -T RE  E-NIT  OF  THE  PROCESS  THE  GIMBAL  LOCK  MONITOR  WILLFUNCTJ ON  PROPERLY. 

2)  I CDU  INITIALIZATION:  IN  THIS  CASE  THE  COMPUTFR  WAS  PROBABLY  TURNED  ON  WITH  THE  ISS  IN  OPERATE  OR 

A FRESH-  START  WAS  DONE  WITH  THE  ISS  IN  OPERATE-.-  IN  THIS  CASE  ONLY  ISS  OPERATE.  IS  ON.  THE  ICDU'S  ARE 
ZEROED  SO  THE  GIMBAL  LOCK  MONITOR  WILL  FUNCTION.  AN  EXCEPTION  IS  IF  THE  ISS  IS  IN  GIMBAL  LOCK  AFTER 

A RESTART,  THE  ICDU'S  WILL  NOT  BE  ZEROED. 

3)  RESTART  WITH  RESTARTABLE  PROGRAM  USING  THE  IMU:  IN  THIS  CASE,  NO  INITIALIZATION  TAKFS  PLACE  SINCE 

IT  IS  ASSUMED  THAT  THE  USING  PROGRAM  DID  THE  INITIALIZATION  AND  THEREFORE  T4RUPT  SHOULD  NOT  INTERFERE. 

I MODE  S30  BIT  7 IS  SET  = 1 BY  THE  FIRST  BIT  (CHANNEL  30  BIT  14  OR  9)  WHICH  ARRIVES.  FOLLOWING  THIS.  TNONTEST  IS 
ENTERED,  FINDS  BIT  7=1  BUT  BIT  8 = 0,  SO  IT  SETS  BIT  8 = 1 AND  EXITS.  THE  NEXT  TIME  IT  FINDS  BIT  8 = 1 AND 
PROCEEDS,  SETTING  BITS  8 AND  7=0.  AT  PROCTNON,  IF  ISS  TURN-ON  REQUEST  IS  PRESENT,  THE  ISS  IS  CAGED  (ZERO  + 
COARSE).  IF  ISS  OPERATE  IS  NOT  PRESENT  PROGRAM  ALARM  00213  IS  ISSUED.  AT  THE  END  OF  A 90  SECOND  CAGE,  BIT  2 
OF  IMCDES30  IS  TESTED.  IF  IT  IS  = 1,  ISS  TURN-ON  WAS  NOT  PRESENT  FOR  THE  ENTIRE  90  SECONDS.  IN  THAT  CASE,  IF 
TFE  ISS  TURN-ON  REQUEST  IS  PRESENT  THE  90  SECOND  WAIT  IS  REPEATED,  OTHERWISE  NO  ACTION  OCCURS  UNLESS  A PROGRAM. 
WAS  WAITING  FOR  THE  INITIALIZATION  IN  WHICH  CASE  THE  PROGRAM  IS  GIVEN  AN  IMUSTALL  ERROR  RETURN.  IF  THE  DELAY 
WENT  PROPERLY,  THE  ISS  DELAY  0UT81T  IS  SENT  AND  THE  ICDU'S  ZEROED.  A TASK  IS  INITIATED  TO  REMOVE  THE  PIPA  FAIL 

INHI6IT  BIT  IN-  10.24  SECONDS.  IF  A MISSION  PROGRAM  WAS  WAITING  IT  IS  INFORMED  VIA  END  I MU . 

AT  PR CCT NON , IF  ONLY  ISS  OPERATE  IS  PRESENT  (OPONLY),  THE  CDU'S  ARE  ZEROED  UNLESS  THE  PLATFORM  IS  IN  COARSE 

ALI-GN  ( = GIMBAL  LOCK  HERE  ) OR  A MISSION  PROGRAM  IS  USING  THE  IMU  ( I MUSEFLG  = 1). 

CALLING  SEQUENCE:  T4RUPT  EVERY  480  MILLISECONDS  AFTER  IMUMON. 

JOBS  CR  TASKS  INITIATED:  1)  ENDTNON,  90  SECONDS  AFT FR  CAGING  STARTED.  2)  I SSUP,  4 SECONDS  AFTER  CAGING  DONE. 

3)  PFAILOK,  10.24  SECONDS  AFTER  INITIALIZATION  COMPLETED.  4)  UNZ2,  320  MILLISFCONDS  AFTER  ZEROING 
STARTED.  


SUBROUTINES  CALLED:  CAGESUB,  CAGESUB2,  ZEROICDU,  ENDIMU,  IMUBAD,  NOATTOFF,  SETISSW,  VARDELAY. 

ERASAELE  INITIALIZATION:  SEE  IMUMON. 

ALARMS:  PROGRAM  ALARM  00213  IF  ISS  TURN-ON  REQUESTED  WITHOUT  ISS  OPERATF. 

EXIT:  ENDTNON  EXITS  TO  C33TEST.  TASKS  HAVING  TO  DO  WITH  INITIALIZATION  EXIT  AS  FOLLOWS:  MISSION  PROGRAM 

WAITING  AND  INITIALIZATION  COMPLETE,  EXIT  TO  ENDIMU,  MISSION  PROGRAM  WAITING  AND  INITIALIZATION  FAILED,  EXIT  TO 
IMUBAD,  IMU  NOT  IN  USE,  EXIT  TO  TASKOVER. 

OUTPUT:  ISS  INITIALIZED. 

REF  5 LAST  177  06,2227  4 1302  0 TNONTEST  CS  IM0DES30  AFTER  PROCESSING  ALL  CHANGES,  SEF  IF  IT 


0422 
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L 
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0423 

REF 

15 

LAST 

104 

06, 2230 

7 4745 

1 

MASK 

8IT7 

IS  TIME  TO  ACT  ON  A TURN-ON 

SEQUENCE. 

0424 

REF 

3 

LAST 

177 

06,2231 

10  000 

0 

CCS 

A 

Oh,  2 232 

1 2374 

1 

TCF 

C33T  EST 

NO  - EXAMINE  CHANNEL  33. 

0426 

REF 

14 

LAST 

104 

06,2233 

3 4744 

1 

CAF 

BIT8 

SEE  IF  FIRST  SAMPLE  OR  SECOND. 

0427 

REF 

6 

| AST 

17  8 

06, 2234 

7 13  02 

0 

MASK 

I MOD  ES30 

0428 

REF 

4 

LAST 

175 

06,2235 

10  000 

0 

CCS 

A 

0429 

REF 

1 

06,2236 

1 2242 

0 

TCF 

PROCTNON 

REACT  AFTER  SECOND  SAMPLE. 

0430 

REF 

15 

LAST 

175 

06, 2237 

3 4744 

1 

CAF 

8 1 T 8 

IP  FIRST  SAMPLE,  SET  BIT  TO 

REACT  NEXT 

0431 

REF 

7 

LAST 

179 

06,2240 

27*302 

0 

ADS 

IM0DES30 

TIME. 

043  2 

REF 

2 

1 AST 

1 7 Q 

06,2741 

1 2374 

1 

TCF 

C33T  EST 

R0433 

PROCESS  IMU 

TURN-ON 

REQUESTS  , 

AFTER  WAITING  1 

SAMPLE  FOP  ALL 

SIGNALS  TO  ARRIVE. 

0435 

REF 

i 

06,2242 

4 2777 

0 

PROCTNON  CS 

BITS7E8 

0436 

REF 

8 

LAST 

179 

06,2243 

7 1302 

0 

MASK 

I MOD  E S30 

0437 

R FF 

9 

1 AST 

1 7 9 

06 f 2 244 

55  * 3 02 

o 

TS 

I MOD  ES30 

0438 

REF 

18 

LAST 

177 

06,2245 

7 4736 

0 

MASK 

BIT14 

SEE  IF  TURN-ON  REQUEST. 

0439 

REF 

5 

LAST 

179 

06,2246 

10  000 

0 

CCS 

A 

04-40  REF  1 06, 2 247  1 2347  I TCF  OPONLY  OPERATE  ON  ONLY. 


0441 

0442 

REF 

REF 

10 

16 

LAST 

LAST 

175 

175 

06.2250 

06.2251 

4 1302 
7 4743 

0 

1 

CS 

MASK 

I M0DES30 
8 I T 9 

IF  TURN-ON  REQUEST,  WE  SHOULD  HAVE  IMU 
OPFRATE. 

0443 

REF 

6 

LAST 

179 

06,2252 

10  000 

0 

CCS 

A 

0444 

06,2253 

l 2256 

0 

TCF 

+3 

0445 

REF 

1 

06, 2254 

0 5567 

0 

TC 

ALAR  M 

ALARM  IF  NOT. 

0446 

06,2255 

00213 

1 

OCT 

213 

0447 

REF 

1 

06,2256 

0 2735 

1 

+ 3 

TC 

CAGE  SUB 

0448 

REF 

1 

06, 2257 

3 3005 

1 

CAF 

90SECS 

0449 

REF 

1 

06,2260 

0 5203 

o 

TC 

WAITLIST 

0450 

REF 

3 

LAST 

170 

E6 , 1412 

EBANK= 

Mil 

0451 

REF 

1 

06, 2261 

02266 

1 

2CADR 

ENDT  NON 

04-51  REF  1 06,2262  14106  0 


0452 

REF 

3 

LAST 

175 

06, 2263 

1 

2374 

1 

TCF 

C 33 T FST 

0453 

REF 

2 

LAST 

179 

06,2264 

3 

3005 

1 

RETNON 

CAF 

90SECS 

0454 

REF 

1 

06, 2265 

0 

5224 

0 

TC 

VARDELAY 

0455 

REF 

13 

LAST 

104 

06, 2266 

4 

4752 

1 

ENDTNON 

CS 

81  T2 

RESET 

TURN-ON 

REQUFST  FAIL  3IT. 

0456 

REF 

11 

LAST 

179 

06, 2267 

7 

1302 

0 

MASK 

I MOD  ES30 

0457 

REF 

12 

LAST 

175 

06, 2270 

57*302 

1 

XCH 

I MOD  ES30 

0458 

REF 

14 

LAST 

179 

06, 2271 

7 

4752 

1 

MASK 

BIT2 

I F 

I T 

WAS  OFF 

, SEND  ISS  DELAY  COMPLETE. 

0459 

06,2272 

0 

0006 

1 

EXTEND 

0460 

REF 

— 1— 

06,2273 

_1 

2306 

1 

BZF 

END! N0N2 

0461 

REF 

19 

LAST 

179 

06,2274 

3 

4736 

1 

CAF 

BIT1  4 

IF 

I T 

WAS  ON 

AND  TURN-ON  REQUEST  NOW 
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0462 

REF 

13 

LAST 

179 

06,2275 

7 13  02 

0 

MASK 

I MOD  ES30 

046  3 

06, 2276 

0 0006 

1 

EXTEND 

06*  2 277 

1 2?  64 

1 

BZF 

RETNON 

0465 

REF 

1 

06, 2300 

4 0074 

0 

cs 

FLAGWRDO 

nA.  9 1 

7 4744 

o 

MASK 

I MUS EBI T 

0467 

REF 

7 

LAST 

175 

06,2302 

10  000 

0 

CCS 

A 

0468 

REF 

1 

06,2303 

1 5261 

0 

TCF 

TASKOVER 

REF 

f)6*  ? ^04 

0 4635 

0 

TC 

POST  JUMP 

0470 

REF 

1 

06,2305 

17612 

1 

CADR 

IMUB AD 

0471  — 

REF 

12 

LAST 

103 

06, 2 306 

3 4735 

1— 

-ENDTNQN2 

CAF 

B!  T 1 5 

0472 

06,2307 

0 0006 

1 

EXTFND 

0473 

REF 

1 

06, 2310 

05  012 

1 

WOR 

CHAN  12 

0474 

REF 

1 

06,2311 

0 46  74 

0 

TC 

I BN K CALL 

0475 

REF 

1 

06,2312 

17241 

0 

CADR 

NOATTOFF 

0476 

REF 

1 

06,  2313 

0 5457 

1 

UNZ  2 

TC 

ZERD ICDU 

p ef 

1 

oat 2^14 

4 476^ 

n 

c s 

BITS  4 f,5 

0478 

06, 2315 

0 0006 

1 

EXTEND 

04  79 

REF 

2 

LAST 

1 8 C 

06,2316 

03  012 

1 

WAND 

CHAN  12 

0480 

REF 

14 

LAST 

145 

06,2317 

3 4741 

1 

CAF 

BIT11 

0481 

REF 

2 

LAST 

179 

06,2320 

0 5224 

0 

TC 

VARDELAY 

0482 

REF 

1 

06,2321 

4 2 774 

0 

ISSUP 

CS 

0CT54 

0483 

REF 

14 

LAST 

180 

06,2322 

7 1302 

0 

MASK 

I MOD  ES30 

0484  REF-  15  LAST  180  06,2323  55*302  0 TS  IK0DES30 


0485 

0486 

REF 

REF- 

14 

4- 

LAST 

LAST 

104 

173 

06,2324 
06,  2 325 

4 4746 
7 1303 

1 

1 

cs 

MASK 

BIT6 

I M0DES33 

0487 

REF 

5 

LAST 

180 

06, 2326 

55*303 

1 

TS 

I MOD  ES33 

0487  1 

R E F 

— 1 — 

06,2  327 

4 00  76 

re 

FI  AG  WPD2 

04872 

REF 

1 

06,2  330 

7 4735 

0 

j 

MASK 

DRFTBIT 

04873 

06,2331 

0 0006 

1 

EXTEND 

04874 

06, 2332 

1 2336 

1 

BZF 

+ 4 

04875 

REF 

2 

LAST 

180 

06,2333 

26  076 

1 

ADS 

FLAGWRD2 

04876 

REF 

1 

06, 2334 

3 0025 

0 

CA 

TIME  1 

Q4S-77-— R-tt -1 — 06,2335  57*075  1 XCH  1/PIPAOT 


0488 

REF 

1 

06, 2336 

0 2703 

1 

TC 

SETI SSW 

0489 

REF 

13 

LAST 

180 

06,2337 

4 4735 

0 

CS 

B I T 1 5 

0490 

06,2340 

0 0006 

1 

EXTEND 

0491— 

REF 

- 3 

LAST 

18  0 _ 

06,2341 

03  012 

1 

WAND 

CHAN12 

0492 

REF 

1 

06,2342 

3 5003 

1 

CAF 

4SECS 
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PRESENT,  RE-ENTER  90  SEC  DELAY  IN  WL . 

IF  IT  IS  NOT  ON  MOW,  SEE  IF  A PROG  WAS 
WAITING. 

UNSUCCESSFUL  TURN-ON. 

SEND  ISS  DFLAY  COMPLETE. 


TURN  OFF  NO  ATT  LAMP. 


REMOVE  ZERO  AND  COARSE. 


WAIT  10  SECS  FOR  CTRS  TO  FIND  GIMBALS 


REMOVE  CAGING,  IMU  FAIL  INHIBIT,  AND 
ICOUFAIL  INHIBIT  FLAGS. 


ENABLE  DAP 


TEST  DRIFT FLG : IF  ON,  DO  NOTHING  BECAUSE 
IMUCOMP  SHOULD  BE  ALL  SET  UPtRESTART 
WITH  IMUSE  DOWN).  IF  OFF,  SET  DR  I FT  FLG 
AND  1/PIPADT  TO  GET  FRFEFALL  IMUCOMP 
GOING  (FRESH  START  OR  ISS  TURN-ON). 

CANNOT  GET  HERE  IF  RESTART  WITH  IMUSE  UP 

ISS  WARNING  MIGHT  HAVE  BEEN  INHIBITED. 

REMOVE  IMU  DELAY  COMPLETE  DISCRETE. 


DONT  ENABLE  PROG  ALARM  ON  PIP  FAII  FOR 


ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY 


GAP: 


L T4RU°T  PROGRAM 


0493 

0494 

0495 

REF 

REF 

REF 

2 

1 

LAST 

179 

06,2343 
E3, 1474 
06,  2 344 

0 5203 
03227 

0 

0 

0495 

REF 

1 

06, 2345 

16103 

1 

D CC 

o 

1 A Q T 

von 

Of*.  2 846 

1 5261 

o 

0499 

Ktr 

“C 

L Aj  1 

i o U 

UU|  d J “ D 

0502 

REF 

11 

LAST 

104 

06, 2347 

3 4750 

1 

rj  k r\'i 

06, 2 350 

0 0006 

1 

0504 

REF 

4 

LAST 

180 

06,2351 

02  012 

0 

0505 

REF 

8 

LAST 

180 

06,2352 

10  000 

0 

0506  REF  4 LAST  1 Fa  06,2353  1 2374  I 


0507 

REF 

2 

LAST 

130 

06,2354 

3 

4744 

1 

0SQ  A 

REF 

2 

| AST 

i a o 

06,2355 

7 

0074 

0 

0509 

REF 

9 

LAST 

181 

06,2356 

10  000 

0 

0510 

REF 

5 

LAST 

18  1 

06,2357 

1 

2374 

1 

0511 

REF 

1 

06,2360 

0 

2746 

0 

D p F 

2 

LAST 

1 ft  Q 

HA. ? T A 1 

0 

4674 

o 

05116 

REF 

2 

LAST 

180 

06, 2362 

17241 

0 

0512 

PEP 

12 

LAST 

104 

OA.  ? TAT 

3 

4747 

l 

0513 

06,2364 

0 

0006 

1 

0514 

REF 

5 

LAST 

18  1 

06,2365 

05  012 

1 

05141 

REF 

2 

LAST 

180 

06,2366 

0 

5457 

1 

0515 

REF 

15 

LAST 

130 

06,  2367 

3 

4746 

0 

0516 

REF 

3 

LAST 

13  1 

06,2  370 

0 

5203 

0 

0517 

REF 

4 

LAST 

179 

E6, 1412 

0518 

REF 

1 

06,2371 

02313 

1 

05 1 8 

REF 

— 1— 

06,2372 

14106 

0 

OPONLY 


ISSZERO 


0519 


REF 


6 LAST  181 


06,2373  l 2374  1 


SA  20  21112-011 
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TC 

WAITLIST 

ANOTHER  4 SECS. 

EB ANK= 

CDUIND 

2C  ADR 

PFA I LOK 

TCF  TASKOVER 


CAF 

EXTEND 

B I T 4 

IF  OPERATE  ON  ONLY,  AND  WE  ARE  IN 
ALIGN,  DONT  ZERO  THE  CDUS  BFCAUSE 

COARSE 

WE 

RAND 

CCS 

TCF 

CHAN  12 
A 

C33TEST 

MIGHT  BE  IN  GIMBAL  LOCK 

CAF 

MASK 

IMUSEBIT 
FLAG  WR DO 

OTHERWISE,  ZERO  THE  COUNTERS. 
UNLESS  SOMEONE  IS  USING  THE  IMU. 

CCS 

TCF 

A 

C 33  T EST 

TC 

CAGE  SUB2 

SET  TURNON  FLAGS. 

TC 

CADR 

I BNKCALL 

TURN  OFF  NO  ATT  LAMP 

NOAT  TOFF 

IMU  CAGE  OFF  ENTRY 

CAF 

B I T 5 

ISS  C DU  ZERO 

EXTEND 

WOR 

CHAN  12 

TC 

CAF 

TC 

ZFRO  ICDU 
BIT6 

W A I TLIST 

WAIT  300  MS  FOR  AGS  TO  RECEIVE  SIGNAL. 

EB ANK= 
2C  ADR 

Mil 

UNZ2 

TCF 


C33T  EST 
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P0520  PRCGRAM  NAME:  C33TEST 


R0521 

R0523 

R0525 

R0527 

R0528 
R0529 
R0530 
R 0 5 3 1 
R0532 


FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  MONITORS  THREE  FLIP-FLOP  IT48ITS  OF  CHANNEL  33  AMD  CALLS  THE  APPROPRIATE 

SUBROUTINE  TO  PROCESS  A CHANGE.  IT  IS  ANALOGOUS  TO  IMUMON,  WHICH  MONITORS  CHANNEL  30,  EXCEPT  THAT  IT  READS 
CHANNEL  33  WITH  A WAND  INSTRUCTION  BECAUSE  A 'WRITE'  PULSE  IS  REQUIRED  TO  RESET  THE  FLIP-FLOPS.  THE  BITS 
PROCESSED  AND  THE-  SUBROUTINES  CALLED  ARE: 


BIT 

FUNCTION 

SUBROUTINE 

13 

P IPA  FAIL 

PIPFAIL 

12 

DOWNLINK  TOO  FAST 

DNTMFAST 

11 — 

UPLINK  TOO  FAST 

UPTMFAST 

R0533  UPC  N ENTRY  TO  THE  SUBROUTINE,  THE  NEW  BIT  STATE  IS  IN  A. 


R0534  CALLING  SEQUENCE:  EVERY  480  MILLISECONDS  AFTER  TNONTEST . 

R0535  JCBS  CR  TASKS  INITIATED:  NONE. 

R0536  SUBROUTINES  CALLED:  PIPFAIL,  DNTMFAST  AND  UPTMFAST  ON  BIT  CHANGES. 

R0537  ERASABLE  INITIALIZATION:  CIIM0DES33)  = OCT  16000  ON  A FRESH  START  OR  RESTART,  THEREFORE,  THESE  ALARMS  WILL 

R0539  REAPPEAR  IF  THE  CONDITIONS  PERSIST. 


R0540  ALARMS:  NONE. 

R0541  EXIT:  GLCCKMON. 

R 0542  OUTPUT:  UPDATED  BITS  13,  12  AND  11  OF  IMOOES33  WITH  CHANGES  PROCESSED. 


0543 

REF 

6 

LAST 

180 

06,2374 

3 13  03 

0 

C33  TEST  CA 

I MOD  ES33 

SEE  IF  RELEVANT  CHAN  33  BITS  HAVE 

0544 

REF 

1 

06, 2375 

7 5026 

1 

MASK 

33RDMSK 

0545 

REF 

2 

L AST 

10  9 

06, 2 376 

54  001 

\ 

TS 

L 

CHANGED. 

0546 

REF 

2 

LAST 

182 

06,2377 

3 5026 

0 

CAF 

33RDMSK 

0547 

06,2400 

0 0006 

1 

EXTEND 

0548 

REF 

1 

06,2401 

03  033 

1 

WAND 

CHAN33 

RESETS  FLIP-FLOP  INPUTS 

0549 

06, 2402 

0 0006 

1 

EXTEND 

0550 

REF 

3 

LAST 

176 

06, 2403 

06  001 

0 

RXOR 

LCHAN 

0551 

06,2404 

0 0006 

1 

EXTEND 

0552 

REF 

l 

06,2405 

1 2434 

1 

BZF 

GLOC  KM ON 

ON  NO  CHANGE. 

0553 

REF 

— 8 — 

L AS  T 

17  7 

06t -2  406 

54  070 

l 

T 9 

R1JP  T RFH] 

^A\/F  RTTS  WHICH  HAVF  CHANOFD. 

0554 

REF 

7 

LAST 

182 

06,2407 

23'  303 

0 

LXCH 

I MOD  ES33 

0555 

06,2410 

0 0006 

1 

EXTEND 

0556 

REF 

4 

LAST 

18  2 

06,2411 

06  001 

0 

RXOR 

LCHAN 

0557 

REF 

8 

LAST 

132 

06,2412 

55' 303 

1 

TS 

I MOD  ES33 

UPDATED  IMODES33. 

0558 

REF 

— 3 — 

LAST 

17  2 

06,  2 41  3 

3 47  55 

1 

CAF 

ZERO 

0559 

REF 

9 

LAST 

182 

06, 2414 

56  070 

0 

XCH 

RUPTREGl 

0560 

06, 2415 

6 0000 

1 

DOUBLE 

9 
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0561 

REF 

1 

06,2416 

1 2421 

0 

TCF 

NXT I BT  + 1 

A 

1 

-1 

AD 

ONE 

0 5 62 

REF 

0563 

REF 

10 

LAST 

182 

06, 2420 

24  0 70 

0 

NXTIBT 

INCR 

RUPTREG1 

0564 

06,2421 

6 0000 

1 

+ 1 

DOUBLE 

10 

LAST 

18  1 

06, ? 422 

54  000 

0 

TS 

A 

0566 

REF 

2 

LAST 

133 

06,2423 

1 2420 

1 

TCF 

NXTI BT 

S6  071 

1 

XCH 

RUPT  RFG2 

0567 

0568 

REF 

11 

LAST 

133 

06,2425 

50  070 

0 

INDEX 

RUPTPEG1 

0569 

REF 

14 

LAST 

103 

06,2426 

3 4737 

0 

CAF 

BIT  l 3 

05  70 

REF 

9 

LAST 

182 

06,2427 

7 1303 

1 

MASK 

I MOD  ES33 

0571 

REF 

12 

LAST 

193 

06,2430 

50  070 

0 

INDEX 

RUPTREG1 

0572 

REF 

1 

06,2431 

0 2763 

1 

TC 

C33 JMP 

0573 

REF 

4 

LAST 

133 

06, 2432 

10  071 

0 

NXTFL33 

CCS 

RUPTREG2 

0574 

REF 

3 

LAST 

183 

06,2433 

1 2417 

0 

TCF 

NXT I BT  -1 

I 


I 


i 
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SCAN  FOR  BIT  CHANGES. 

(CODING  IDENTICAL  TO  CHAN  30). 

GET  NEW  VALUE  OF  BIT  WHICH  CHANGED. 

PROCESS  POSSIBLE  ADDITIONAL  CHANGES. 


GAP  : 

L 

P0575 

R0576 

R0578 

R0580 

R0581 

R0583 

R0585 

R0586 

R0587 

RQ589 

R0590 

R0591 

R0593 

R0595 

R0596 
R0597 
R 0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 
0617 

06173 

06174 
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PROGRAM  NAME:  GLCCKMON 

FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  MONITORS  THE  CDUZ— COUNTER  ^TO  DETERMINE  WHETHER  THE  ISS  IS  IN  GIMBAL  LOCK 

AND  TAKES  ACTION  IF  IT  IS.  THREE  REGIONS  OF  MIDDLE  GIMBAL  ANGLE  ( MG A ) ARE  USED: 

1)  ABS(MGA)  LESS  THAN  OR  EQUAL  TO  70  DEGREES  --NORMAL  MODE. 

2)  ABS(MGA)  GREATER  THAN  70  DEGREES  AND  LESS  THAN  OR  EQUAL  TO  85  OEGREES  - GIMBAL  LOCK  LAMP  TURNED  ON. 

3)  ABS(MGA)  GREATER  THAN  85  DEGREES  - ISS  PUT  IN  COARSE  ALIGN  AND  NO  ATT  LAMP  TURNED  ON. 


CALLING  SEGUENCE:  EVERY  480  MILLISECONDS  AFTER  C33TEST . 

JCBS  CR  TASKS  INI TIATED:  -NONE. 

SUBPOLTINES  CALLED:  1)  SETCOARS  WHEN  ABS(MGA)  GREATER  THAN  85  DEGREES  AND  ISS  NOT  IN  COARSE  ALIGN. 

2)  LAMPTEST  BEFORE  TURNING  OFF  GIMBAL  LOCK  LAMP. 

ERASAELE  INITIALIZATION: 

1)  FRESH  START  OR  RESTART  WITH  NO  GROUPS  ACTIVE:  C(CDUZ)  = _Q,__IMODES30  BIT  6 = 0,  I M0DES33  _B  LT  1 = 0. 

2)  RESTART  WITH  GROUPS  ACTIVE:  SAME  AS  FRESH  START  EXCEPT  C(CDUZ)  NOT  CHANGED  SO  GIMBAL  MONITOR 

PROCEEDS  AS  BEFORE. 


ALARMS:  1)  MG A REGION  (2)  CAUSES  GIMBAL  LOCK  LAMP  TO  BE  LIT. 

2)  MG A REGION  (3)  CAUSES  THE  ISS  TO  BE  PUT  IN  COARSE  ALIGN  AND  THE  NO  ATT  LAMP  TO  BE  LIT  IF  EITHER  NOT 
SO  ALREADY. 


REF 

1 

06, 2434 

10  034 

1 

GLOCKMON  CCS 

CDUZ 

REF 

06,2435 

1 2441 

0 

TCF 

GLOC  KCHK 

SEE  IF  MAGNITUDE  OF  MG  A IS  GREATER  THAN 

REF 

1 

06,2436 

1 2465 

0 

TCF 

SETGLOCK 

70  DEGREES. 

REF 

2 LAST  184 

06,2437 

1 2441 

0 

TCF 

GLOC  KCHK 

REF  2 LAST  184  06,2440  1 2465  0 TCF  SETG  LOCK 


REF 

1 

06,2441 

6 

2512 

0 

GLOCKCHK  AD 

-70DEGS 

0 6f 2442 

0 

0006 

1 

EXTEND 

REF 

3 

LAST 

184 

06, 2443 

6 

2464 

0 

BZMF 

SETGLOCK  -1 

NO 

LOCK 

• 

R E f 

x 

n A T 2 4A4 

5 

2513 

x 

AH 

150  EGS 

S FF 

I F 

ARS(MQA)  orfatfr  than 

85  DEGREES- 

06, 2445 

0 

0006 

1 

EXTEND 

REF 

1 

06, 2446 

6 

2462 

0 

BZMF 

NOGI MRUN 

REF 

12 

LAST 

18  1 

06, 2447 

3 

4750 

1 

CAF 

BIT4 

I F 

so, 

SYSTEM  SHOULD  BE  IN  COARSE  ALIGN 

06,2450 

0 

0006 

1 

EXTEND 

TO 

PREVENT  GIMBAL  RUNAWAY. 

REF 

— 6- 

LAST 

184 

06,2451 

02  012 

0 

RAND 

CHAN  12 

REF 

11 

LAST 

183 

06,2452 

1 0 000 

0 

CCS 

A 

REF 

2 

LAST 

184 

06, 2453 

1 

2462 

1 

TCF 

NOGI MRUN 

REF 

3 

LAST 

18  1 

06,2454 

0 

46  74 

0 

TC 

I BNK  C ALL 

REF 

1 

06,2455 

17117 

0 

CADR 

SETCOARS 

REF 

1 

06,2456 

3 

6241 

0 

CAF 

SIX 

ENABLE 

ISS  ERROR  COUNTERS  IN 

60  MS 

REF 

4 

LAST 

18  1 

06,2457 

0 

5203 

0 

TC 

WAITLIST 

GAP 
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06175 

REF 

2 

LAST 

18  1 

E3, 1474 

EBANK= 

C DU  I ND 

06176 

REF 

1 

0 6,2  460 

03113 

1 

2C  ADR 

CA+ECE 

P EF 

l 

06,2461 

16103 

1 

0618 

REF 

16 

LAST 

13  1 

06, 2462 

3 4746 

0 

NOGIMRUN 

CAF 

B I T 6 

TURN  ON  GIMBAL  LOCK  LAMP. 

0619 

REF 

4 

LAST 

184 

06, 2463 

l 2465 

0 

TCF 

SETG  LOCK 

0620 

REF 

4 

LAST 

13  2 

06, 2464 

3 4755 

1 

-1 

CAF 

ZERO 

0621 

REF 

6 

LAST 

172 

06,2465 

6 1036 

0 

SET  GLOCK 

AD 

DSPTAB  + 1 1 D 

SEE  IE  PRESFNT  STATE  OF  GIMBAL  LOCK  LAMP 

0 EF 

LAST 

\ ft  5 

06 » 2 466 

7 4746 

1 

MASK 

BIT6 

AGREES  WITH  DESIRED  STATE  BY  HALF  ADDING 

0623 

06,2467 

0 0006 

1 

EXTEND 

THE  TWO. 

0624 

REF 

i 

06,2470 

1 52  70 

0 

BZF 

GL3C KOK 

OK  AS  IS. 

0625 

REF 

7 

LAST 

185 

06,2471 

7 1036 

1 

MASK 

DSPTAB  +110 

IF  OFF,  DONT  TURN  ON  IF  I MU  BEING  CAGED. 

0626 

REF 

12 

LAST 

184 

06, 2472 

10  000 

0 

CCS 

A 

062  7 

q e F 

1 

06  t ? 47  3 

1 2507 

0 

TCF 

GLAMPTST 

TURN  OFF  UNLESS  LAMP  TF  ST  IN  PROGRESS. 

0628 

REF 

18 

LAST 

185 

06, 2474 

3 4746 

0 

CAF 

BIT6 

06  2*3 

REF 

L6 

[ AST 

1 8 C 

06,2475 

7 1302 

0 

MASK 

IM0DES30 

0630 

REF 

13 

LAST 

185 

06,2476 

10  000 

0 

CCS 

A 

0631 

REF 

2 

LAST 

185 

06,2477 

1 5270 

0 

TCF 

GLDC KOK 

0632 

REF 

8 

LAST 

185 

06,2500 

4 1036 

1 

GLI NVERT 

CS 

DSPTAB  + 1 1 D 

INVERT  GIMBAL  LOCK  LAMP. 

0633 

REF 

19 

LAST 

18  5 

06, 2501 

7 4746 

1 

MASK 

B IT6 

0634 

REF 

14 

LAST 

180 

06,2502 

6 4735 

1 

AD 

BIT1  5 

TO  INDICATE  CHANGE  IN  DSPTAB  +110. 

0635 

REF 

9 

LAST 

185 

06,2503 

57 ' 036 

0 

XCH 

DSPTAB  +110 

0636 

REF 

1 

06, 2504 

7 2162 

1 

MASK 

OC  T 3 7737 

0637 

REF 

10 

LAST 

1 8 5 

06, 2505 

27*036 

1 

ADS 

DSPTAB  + 1 1 D 

0638 

REF 

3 

LAST 

185 

06,2506 

1 5270 

0 

TCF 

GLDC KOK 

06  3Q 

REF 

1 

06-  ? 607 

0 27  ^6 

\ 

A i A MPT ST 

TO 

\ A M P T F S T 

TURN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS. 

0640 

REF 

4 

LAST 

185 

06,2510 

1 5270 

0 

TCF 

GLDC  KOK 

0641 

REF 

1 

06,2511 

1 2500 

1 

TCF 

GL INVERT 

0642 

06, 2512 

63434 

1 

-70DEGS 

DEC 

-.38 888 

-70  DEGREES  SCALED  IN  HALF-REVOLUTIONS. 

0643 

06,2513 

75252 

0 

-15DEGS 

DEC 

- .08  333 

GAP: 

L 

P0644 

R0645 

R0647 

R0649 

R0650 

R0651 

R0652 

R0653 

R0655 

R0656 

R0657 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 
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PROGRAM  NAME : TL  IM. 

FUNCTIONAL  DESCRIPTION:—  THIS  PROGRAM  MAINTAINS  THE  TFWP  -LAMP  (BIT  4 OF  CHANNEL  11)  ON  THE  OSKY  TO  AGREE  WITH 
THE  TEMP  SIGNAL  FROM  THE  ISS  (BIT  15  OF  CHANNEL  30).  HOWEVER,  THE  LIGHT  WILL  NOT  BE  TURNED  OFF  IF  A LAMP  TEST 
IS  IN  PROGRESS. 

CALLING  SEQUENCE : CALLED  BY  IMUMON  ON  A CHANGE  OF  BIT  15  OF  CHANNEL  30. 

TOBS  CR  TASKS  INITIATED:  NONE. 

SUBROUTINES  CALLED:  LAMPTEST. 

ERASABLE  INITIALIZATION:  FRESH  START  AND  RESTART  TURN  THE  TEMP  LAMP  OFF. 

ALARMS:  TEMP  LAMP  TURNED  ON  WHEN  IMU  TEMP  GOES  OUT  OF  LIMITS,. 

EXIT:  NXTIFAIL. 


OUTPUT: 

SERVICE  OF 

TEMP  LAMP 

• 

Q 

TL  I M 

MASK 

REF 

5 

LAST 

183 

06, 2515 

54  071 

0 

TS 

18  5 

1 1*302 

Q 

CCS 

REF 

1 

06,2517 

1 2525 

0 

TCP 

REF 

2 

LAST 

186 

06,2520 

1 2525 

0 

TCF 

REF 

13 

LAST 

134 

06, 2521 

3 4750 

1 

CAF 

06,2522 

0 0006 

1 

EXTEND 

REF 

1 

06,2523 

05  Oil 

1 

WDR 

REF 

1 

06, 2524 

1 2225 

1 

TCF 

R Ef 

2 

LAST 

1 g q 

06 ,2^2^ 

0 27  66 

l 

y EM  pqk 

TC 

REF 

2 

LAST 

186 

06,2526 

1 2225 

1 

TCF 

REF 

14 

LAST 

18  6 

06  j 2 627 

4 47  50 

Q 

f c 

06,2530 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

186 

06,2531 

03  Oil 

1 

WAND 

REF 

3 

LAST 

136 

06,2532 

1 22  25 

1 

TCF 

IN  A,  EXCEPT  FOR  TL IM . 

POSMAX  REMOVE  BIT  FROM  WORD  OF  CHANGES  AND  SET 

RUPTPEG2  D SKY  TEMP  LAMP  ACCORDINGLY. 

IM0DES30 

TEMPOK 

TEMPOK 


BIT4  TURN  ON  LAMP. 

DSALMOUT 
NXT I FAIL 

LAMPTEST  IF  TEMP  NOW  OK,  DONT  TURN  OFF  LAMP  IF 

NXTIFAIL  LAMP  TEST  IN  PROGRESS. 

3 I T 4 

DSALMOUT  TURN  OFF  LAMP 

NXTI FAIL 
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P0674  PROGRAM  NAME:  ITURNON. 

R0675  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  IS  CALLED  BY  IMUMON  WHEN  A CHANGE  OF  BIT  14  OF  CHANNEL  30  ( ISS  TURN-ON 

R0677  REQUEST)  IS  DETECTED.  UPON  ENTRY,  ITURNON  CHECKS  IF  A T JR N- ON  DELAY  SEQUENCE  HAS  FAILED,  AND  IF  SO,  IT  EXITS. 

R0679  IF  NOT,  IT  CHECKS  WHETHER  THE  TURN-ON  REQUEST  CHANGE  IS  TO  ON  OR  OFF.  IF  ON,  IT  SETS  BIT  7 OF  IM0DES30  TO  1 SO 

R0681  THAT  T NON TEST  WILL  INITIATE  THE  ISS  INITIALIZATION  SEQUENCE.  IF  OFF,  THE  TURN-ON  DELAY  SIGNAL,  CHANNEL  12  BIT 

R0683  15,  IS  CHECKED  AND  IF  IT  IS  ON,  ITURNON  EXITS.  IF  THE  DELAY  SIGNAL  IS  OFF,  PROGRAM  ALARM  00207  IS  ISSUED,  BIT  2 

R0685  OF  IMCDES30  IS  SET  TO  1 AND  THE  PROGRAM  EXITS. 

R0686  THE  SETTING  OF  BIT  2 OF  IM0DES30  (ISS  DELAY  SEQUENCE  FAIL)  INHIBITS  THIS  ROUTINE  AND  I MUQP  FROM 

R0688  PROCESSING  ANY  CHANGES.  THIS  BIT  WILL  BE  RESET  BY  THE  ENDTNON  ROUTINE  WHEN  THE  CURRENT  90  SECOND  DELAY  PERIOD 
R 0690  ENDS. 

R0691  CALLING  SFCUENCE:  FROM  I MUMOM  WHEN  ISS  TURN-ON  REQUEST  CHANGES  STATE. 

R0692  JOBS  CR  TASKS  INITIATED:  NONE. 

R0693  SUBROUTINES  CALLED:  ALARM,  IF  THE  ISS  TURN-ON  REQUEST  IS  NOT  PRESENT  FOR  90  SECONDS. 

R0695  ERASABLE  INITIALIZATION:  FRESH  START  AND  RESTART  SET  BIT  15  OF  CHANNEL  12  AND  BITS  2 AND  7 OF  IMODES30  TO  0, 

R0697  AND  BIT  14  OF  IM0DES30  TO  1. 

R0698  ALARMS:  PROGRAM  ALARM  00207  IS  ISSUED  IF  THE  ISS  TURN-ON  REQUEST  SIGNAL  IS  NOT  PRESENT  FOR  90  SECONDS. 


R0700  EXIT:  NXTIFAIL. 


R 0701 

OUTPUT : 

BIT  7 

OF 

I MODESTO  TO 

START 

ISS 

INITIALIZATION, 

□ R B IT  2 OF 

I MODE  S30  AND  PROGRAM  ALARM  00207  TO  INDICATE 

R 07m 

A F A I 1 F D 

TURN- 

nw  qpQiiFMr.  F- 

0704 

REF 

15 

LAST 

179 

06, 2533 

3 

4752 

0 

ITURNON  CAF 

BIT? 

IF  DELAY  REQUEST  HAS  GONE  OFF 

0705 

REF 

18 

LAST 

18  6 

06,2  534 

7 

1 3 0? 

0 

MASK 

I MOD  ES  30 

PREMATURELY,  DO  NOT  PROCESS  ANY  CHANGES 

0706 

REF 

14 

LAST 

185 

06,2535 

10  000 

0 

CCS 

A 

UNTIL  THE  CURRENT  90  SEC  WAIT  EXPIRES. 

0707 

RFF 

4 

LAST 

186 

06,2536 

1 

2225 

1 

TCF 

NXT I FAIL 

0708 

REF 

20 

LAST 

179 

06, 2537 

3 

4736 

1 

CAF 

BIT14 

SEE  IF  JUST  ON  OR  OFF. 

0709 

REF 

19 

LAST 

187 

06, 2540 

7 

1302 

0 

MASK 

I MODE S30 

0710 

06,2541 

0 

0006 

_1 

EXTEND 

0711 

REF 

1 

06,  2542 

I 

2556 

I 

BZF 

I TURN0N2 

IF  JUST  ON. 

0712 

REF 

15 

LAST 

185 

06, 2 543 

3 

47  35 

1 

CAF 

B I T 1 5 

0713 

06, 2544 

0 

0006 

1 

EXTEND 

SEE  IF  DELAY  PRESENT  DISCRETE  HAS  BEEN 

0714 

REF 

7 

LAST 

18  4 

06,2545 

02 

' 012 

0 

RAND 

CHAM  12 

SENT.  IF  SO,  ACTION  COMPLETE 

0715 

06,2546 

0 

0006 

1 

EXTEND 

0716 

06,2547 

1 

2551 

0 

BZF 

+ 2 

0717 

REF 

5 

LAST 

187 

06,2550 

1 

2225 

1 

TCF 

NXTI FAIL 

0718 

REF 

16 

LAST 

18  7 

06,2551 

3 

4752 

0 

CAF 

B I T 2 

IF  NOT,  SET  BIT  TO  INDICATE  REQUEST  NOT 

0719 

REF 

20 

LAST 

18  7 

06,  2 552 

27 

' 302 

0 

ADS 

I MOD  E S30 

PRESENT  FOR  FULL  DURATION. 

0720 

REF 

2 

LAST 

179 

06, 2553 

0 

5567 

0 

TC 

ALARM 

0721 

06,2554 

00207 

1 

OCT 

207 

0722 

REF 

6 

LAST 

187 

06,2555 

1 

2225 

1 

TCF 

NXTI FAIL 
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0723 

0724 

REF 

REF 

21 

16 

LAST 

LAST 

187 

179 

06.2556 

06.2557 

4 1302 
7 4745 
2-7—302 
3 2564 

0 

1 

n 

I TURN0N2  CS 

MASK 

ADS 

IM0DES30 

B I T 7 

I MOD  ES30 

SET  BIT7  TO  INDICATE  WAIT  OF  1 SAMPLE 

0725 — 
0726 

—REF 

REF 

22 

1 

06,2561 

1 

CAF 

RR IN  IT 

07261 

0727 

REF 

- RF-F  - 

2 

— 1— 

LAST 

LAST 

169 

187 

06, 2562 
.06-,- 2 56  3 

54  110 
1 2225 

0 

-l— 

TS 
TC  F 

R ADM  ODES 
NXJIFA1L 

07271 


06, 2564 


00102  1 RRINIT  OCT 


00102 


GAP 
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P0728  PROGRAM  NAME:  IMUCAGE. 

R0729  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  PROCESSES  CHANGES  OF  THE  IMUCAGE  INBIT,  CHANNEL  TO  BIT  11.  IF  THE  BIT 

R0731  CHANGES  TO  0 (CAGE  BUTTON  PRESSED),  THE  I SS  IS  CAGED  (ICDU  ZERO  + COARSE  ALIGN  + NO  ATT  LAMP)  UNTIL  THE 

R0733  ASTRONAUT  SELECTS  ANOTHER  PROGRAM  TO  ALIGN  THE  ISS.  ANY  PULSE  TRAINS  TO  THE  ICDU'S  AND  GYRO'S  ARE  TERMINATED, 

R0735  THE  ASSOCIATED  OUTCOUNTERS  ARE  ZEROED  AND  THE  GYRO'S  ARE  DE-SELECTED.  NO  ACTION  OCCURS  WHEN  THE  BUTTON  IS 
R0737  RELEASED  (INBIT  CHANGES  TG  1). 

R0738  CALLING  SEQUENCE:—  BY  IMUMON  WHEN  IMU  CAGE  BIT  CHANGES. 

R0739  JOBS  OR  TASKS  INITIATED:  NONE. 

R0740  SUBROUTINES  CALLED:  CAGESUB. 

R0741  ERASABLE  INITIALIZATION:  FRESH  START  AND  RESTART  SET  BIT  11  OF  IM0DES30  TO  1. 

R0743  ALARMS:  NONE. 


R0744 

EXIT: 

NXTIFAIL. 

I SS  1 

r AC.  F F 

r ni  iiMT  fr  <; 

7FRHF  D. 

Pill  <;F  TRAIN!*;  TFRMiruATFn  ANin  Nn 

ATT  LAMP  LIT. 

0747 

REF 

15 

LAST 

187 

06, 2565 

10  000 

0 IMUCAGE 

CCS 

A 

NO  ACTION  IF  GOING  OFF. 

074ft 

R FF 

1 

06,  2 566 

1 2361 

0 

TCF 

I SSZERO 

0749 

REF 

1 

06,2567 

4 3002 

1 

CS 

OCT  77000 

TERMINATE  ICDU,RCDIJ,  GYRO  PULSE  TRAINS 

0750 

06,2570 

0 0006 

1 

EXTEND 

0751 

REF 

1 

06,2571 

03  014 

1 

WAND 

CHAN  14 

0752 

REF 

1 

06,  2572 

4 2776 

1 

CS 

0CT272 

KNOCK  DOWN  DISPLAY  INERTIAL  DATA,  IMU 

0752  1 

06, 2573 

0 0006 

1 

EXTEND 

ERROR  COUNTER  ENABLE,  ZERO  ICDU,  COARSE 

07522 

REF 

8 

LAST 

187 

06,2574 

03  012 

1 

WAND 

CHAN  12 

ALIGN  ENABLE,  RR  ERROR  COUNTER  ENABLE. 

0757?  1 

REF 

1 

06, 2 575 

4 4745 

1 

CS 

F NGO  NB I T 

INSURE  FNGONFLG  IS  CLEAR. 

075222 

REF 

2 

LAST 

172 

06,2576 

7 0101 

0 

MASK 

FLAG  WRD5 

075223 

REF 

3 

LAST 

189 

06,2577 

54  101 

0 

TS 

FLAG  WRD5 

0752  3 

REE 

1 

06,2  600 

4 4355 

1 

CS 

PR  I 0 30 

TURN  ENGINE  OFF. 

07524 

06,2601 

0 0006 

1 

EXTEND 

07525 

REF 

3 

LAST 

186 

06,2602 

02  Oil 

0 

RAND 

DSAL MOUT 

075251 

REF 

21 

LAST 

18  7 

06, 2603 

6 4736 

i 

AD 

BIT1  4 

075252 

06,2604 

0 0006 

i 

EXTEND 

075253 

REF 

4 

LAST 

135 

06,2605 

01  Oil 

0 

WR  ITE 

DSAL  MOUT 

FORCE  B IT  1 4= 1 , RIT13=0. 

07526 

REF 

1 

06,2606 

0 2743 

0 

TC 

CAGE  SUB  1 

0752  7 

REF 

4 

LAST 

184 

06, 2 607 

0 

TC 

I BNKCALL 

KNOCK  DOWN  TRACK,  PEFSMMAT,  DRIFT  FLAGS 

07528 

REF 

1 

06,2610 

17150 

0 

CADR 

RNDR EFDR 

0753 

REF 

-5. 

LAST 

185 

06, 2611 

4 4755 

0 

CS 

ZERO 

0754 

REF 

1 

06,2612 

54  050 

0 

TS 

CDUXCMD 

0755 

REF 

1 

06, 2613 

54  051 

1 

TS 

CDUYCMD 
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T4RUPT 

PROGRAM 

0756 

0757 

REF 

REF 

1 

1 

06.2614 

06. 2615 

54  052 
54  047 

1 

0 

TS 

TS 

CDUZCMD 

GYROCMD 

0758 

REF 

1 

06, 2616 

4 3001 

1 

cs 

OCT  740 

0759 

06, 2617 

0 0006 

1 

EXTEND 

0760 

RER 

2 

— LAST 

189 

06,2620 

03  014 

1 

WAND 

CHAN  14 

0761 

REF 

8 

LAST 

188 

06,2621 

1 2225 

1 

TCF 

NXTI FAIL 

19:02  NOV.  25,1963  LEMONAID.070  PAGE 
USER'S  PAGE  NO.  21  E6  S4 


HAVING  WAITED  AT  LEAST  27  MCT  FROM 
GYRO  PULSE  TRAIN  TERMINATION,  WE  CAN 
DE-SELECT  THE  GYROS 


190 
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P0762  PROGRAM  NAME:  IMUOP. 

R0763  FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  PROCESSES  CHANGES  IN  THE  I SS  OPERATE  DISCRETE,  BIT  9 OF  CHANNEL  30. 

R0765  IF  THE  INBIT  CHANGES  TO  0,  INDICATING  ISS  ON,  IMUOP  GENERALLY  SETS  BIT  7 OF  IM00ES30  TO  l TO  REQUEST  ISS 

RO 767  INITIALIZATION  VIA  TNONTEST.  AN  EXCEPTION  IS  DURING  A FAILED  ISS  DELAY  DURING  WHICH  BIT  2 OF  IM0DES30  IS  SET 

R0769  TO  1 AND  NC  FURTHER  INITIALIZATION  IS  REQUIRED.  WHEN  THE  INBIT  CHANGFS  TO  1,  INDICATING  ISS  OFF,  IMUSEFLG  IS 

R0771  TESTED  TO  SEE  IF  ANY  PROGRAM  WAS  USING  THE  ISS.  IF  SO,  PROGRAM  ALARM  00214  IS  ISSUED. 

R0773  CALLING  SEQUENCE:  BY  IMUMON  WHEN  BIT  9 OF  CHANNEL  30  CHANGES. 

R0774  JCBS  CR  TASKS  INITIATED:  NONE. 

R0775  SUBROUTINES  CALLEC:  ALARM,  IF  ISS  IS  TURNED  OFF  WHILF  IN  USE. 

R0776  ERASABLE  INITIALIZATION:  ON  FRESH  START  AND  RESTART,  BIT  9 OF  IM0DES30  IS  SET  TO  1 EXCEPT  WHEN  THE  GIMBAL  LOCK 

R0778  LAMP  IS  ON,  IN  WHICH  CASE  IT  IS  SET  TO  0.  THIS  PREVENTS  ICDU  ZERO  BY  TNONTEST  WITH  THE  ISS  IN  GIMBAL  LOCK. 

R 07 80  ALARMS:  PROGRAM  ALARM  00214  IF  THE  ISS  IS  TURNED  OFF  WHILE  IN  USE. 


R0781  EXIT:  NXTIFAIL. 


R 0782 

OUTPUT : 

ISS 

INITIALIZATION 

REQUEST 

( I M0DES30  BIT  7 ) OR 

PROGRAM  ALARM 

00214. 

0784 

o on  06 

l 

[Mljnp  FXTFNID 

0785 

REF 

1 

06, 2623 

1 2643 

0 

BZF 

I MU0P2 

D7R6 

R F F 

LQ 

| AST 

\ 8 T 

06f  ? 6?4 

4 1 TOT 

l 

cs 

I MOD  ES33 

DISABLE  DAP 

0787 

REF 

20 

LAST 

185 

06,  2625 

7 4746 

1 

MASK 

BIT6 

0788 

REF 

11 

LAST 

191 

06,2626 

27' 303 

1 

ADS 

I MOD  ES33 

07885 

REF 

5 

LAST 

189 

06, 2627 

0 4674 

0 

TC 

I BNKCALL 

KNOCK  DOWN  TRACK,  P EFSMMAT , DRIFT  FLAGS 

07886 

REF 

2 

LAST 

189 

06, 2630 

17150 

0 

CADR 

RNDR FFDR 

07887 

REF 

2 

LAST 

179 

06,2631 

4 2777 

0 

CS 

8ITS7C8 

KNOCK  DOWN  RENDEZVOUS,  IMUUSE  FLAGS 

07888 

REF 

3 

LAST 

181 

06, 2632 

7 0074 

0 

MASK 

FLAGWRDO 

0789 

REF 

4 

LAST 

19  1 

06, 2633 

56  074 

1 

XCH 

FLAGWPDO 

IF  GOING  OFF,  ALARM  IF  PROG  USING  IMU. 

07891 

06, 2634 

4 0000 

0 

COM 

0790 

REF 

i 

06, 2635 

7 4744 

0 

MASK 

I MUS  EFLG 

0791 

REF 

16 

LAST 

189 

06, 2636 

10  000 

0 

CCS 

A 

0792 

REF 

9 

LAST 

190 

06,  2637 

1 2225 

1 

TC  F 

NXT I FAIL 

0793 

REF 

— 3- 

LAST 

18  7 

06,  2 640 

0 5567 

0 

TC 

ALAR  M 

0794 

06,2641 

00214 

0 

OCT 

214 

0795 

REF 

10 

LAST 

19  1 

06,2642 

1 2225 

1 

TC  F 

N XT  I FAIL 

0796 

REF 

17 

LAST 

1 8 7 

06, 2643 

3 4752 

0 

IMU0P2  CAF 

BIT2 

SEE  IF  FAILED  ISS  TURN-ON  SEO  IN  PROG. 

0797 

REF 

23 

LAST 

188 

06,2644 

7 1302 

0 

MASK 

I MOD  E S30 

0798 

REF 

17 

LAST 

19  1 

06, 2645 

10  000 

0 

CCS 

A 

0799 

REF 

11 

LAST 

19  1 

06,2646 

1 2225 

1 

TCF 

NXTI FAIL 

IF  SO,  DONT  PROCESS  UNTIL  PRESENT  90 

0800 

REF 

2 

LAST 

187 

06,2647 

1 2556 

1 

TC  F 

ITJRNCN2 

SECONDS  EXPIRES. 

GAP: 

L 

P0801 

R0802 

R0804 

R0806 

R0808 

P 0809 

R08i0 

R0812 

R 08  1 4 

R0816 

R0817 

R0818 

0819 

0820 

0821 

0822 

0823 

0824 

08  25 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

08  3 5 
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PROGRAM  NAME:  PIPFAIL 

FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  PROCESSES  CHANGES  -OF  BIT  13  OF  CHANNEL  33,  PIPA  -FAIL.  IT  SETS  BIT  10  OF 

I M0DES30  TC  AGREE.  IT  CALLS  SETISSW  IN  CASE  A PIPA  FAIl  NECESSITATES  AN  ISS  WARNING.  IF  NOT.I.E.,  IM0DES30 
BIT  1 = 1,  AND  A PIPA  FAIL  IS  PRFSENT  AND  THE  ISS  IS  NOT  BEING  INITIALIZED,  PROGRAM  ALARM  00212  IS  ISSUED. 


CALLING  SEQUENCE:  BY  C33TEST  ON  CHANGES  OF  CHANNEL  33  BIT  13. 

JOBS  CR  TASKS  INITIATED:  NONE. 

SUBROUTINES  CALLED:  1)  SETISSW,  AND  2)  ALARM  I SEE  FUNCTIONAL  DESCRIPTION). 

ERASABLE  INITIALIZATION:  SEE  IMUMON  FOP  INITIALIZATION  OF  IM0DES30.  THE  RFLAVANT  BITS  ARE  5,  7,  8,  9,  AND  10. 

ALARMS:  PROGRAM  ALARM  00212  IF  PIPA  FAIL  IS  PRESENT  BUT  NEITHER  CSS  WARNING  IS  TO  BE  I SSUFD  NOR  THE  ISS  IS 
BEING  INITIALIZED. 

EXIT:  N X T FL  33-, — 


OUTPUT:  PROGRAM  ALARM  00212  AND  ISS  WARNING  MAINTENANCE. 


REF 
REF 
R EF 

18 

14 

24 

LAST 
LAST 
1 asx 

19  1 
145 
1 9 1 

06,  2650 
06,2651 
n h T 7 h 5 2 

10  000 
3 4742 
5 7' 30? 

0 PIPFAIL 

1 
1 

CCS 

CAF 

XCH 

A 

BIT10 
I MOD  ES30 

SET  BIT10  IN  I MODE  S3  0 SO  ALL  ISS 
INFO  IS  IN  ONE  REGISTER. 

WARNING 

REF 

1 

06,2653 

7 3004 

1 

MASK 

- B I T 10 

REF 

25 

LAST 

192 

06,2654 

27' 302 

0 

ADS 

IM0DES30 

REF 

2 

LAST 

180 

06,2655 

0 2703 

1 

TC 

SET  I SSW 

REF 

26 

LAST 

19? 

4 13  0? 

o 

r s 

T Mnp  FS30 

IF  PTP  Fan  DOFSMT  1 IGHT  ISS  WARNING.  DO 

REF 

13 

LAST 

104 

06,2657 

7 4753 

0 

MASK 

BIT1 

A PROGRAM  ALARM  IF  I MU  OPERATING 

BUT  NOT 

REF 

19 

LAST 

192 

06, 2660 

10  000 

0 

CCS 

A 

CAGED  OR  BEING  TURNED  ON. 

REF 

1 

06, 2661 

1 2432 

1 

TC  F 

NXTF  L33 

REF 

27 

LAST 

192 

06,2662 

3 1302 

l 

CA 

I MOD  ES30 

REF 

1— 

06 t 2663 

7 3 000 

o 

MASK 

OCT  1 720 

REF 

20 

LAST 

192 

06, 2664 

1 0 000 

0 

CCS 

A 

REF 

2 

LAST 

192 

06,2665 

1 2432 

1 

TC  F 

NXTFL33 

ABOVE  CONDITION  NOT  MET. 

REF 

4 

LAST 

19  1 

06, 2666 

0 5567 

0 

TC 

ALARM 

06,2667 

00212 

0 

OCT 

212 

REF 

3 

LAST 

192 

06,2670 

1 2432 

-I 

TCF 

NXTF  L33 
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P0836  PROGRAM  NAMES:  DNTMFAST,  UPTMFAST 

R0837  FUNCTIONAL  DESCRIPTION:  THESE  PROGRAMS  PROCESS  CHANGES  OF  BITS  12  AND  11  OF  CHANNEL  33.  IF  A BIT  CHANGES  TO  A 

R0839  0,  A PROGRAM  ALARM  IS  ISSUED.  THE  ALARMS  ARE: 

R0840  BIT  ALARM  CAUSE 

R0841  

R0842  12  01105  DOWNLINK  TOO  FAST 

R0843  11  01106  UPLINK  TOO  FAST 

R0844  CALLING  SEQUENCE:  BY  C33  TEST  ON  A BIT  CHANGE. 

R 0845  SUBROLTINES  CALLED:  ALARM,  IF  A BIT  CHANGES  TO  A 0. 

R 0846  ERASABLE  INITIALIZATION:  FRESH  START  OR  RESTART,  BITS  12  AND  11  OF  IM0DES33  ARE  SET  TO  l. 

R 0848  ALARMS:  SEE  FUNCTIONAL  DESCRIPTION. 


R 0849  EXIT:  NXTFL33 . 


R0850  OUTPUT  : PROGRAM  ALARM  ON  A BIT  CHANGE  TO  0. 


0851 
085  2 

REF 

REF 

21 

4 

LAST 

LAST 

192 
19  2 

06,2671 
OA. 2 672 

10  000 
1 2412 

0 

1 

DNTMFAST 

CCS 

TCF 

A 

NXTF  L33 

DO  PROG 

ALARM 

IF  TM  TOO 

FAST. 

0853 

REF 

5 

LAST 

192 

06, 2673 

0 5567 

0 

TC 

ALARM 

n ft  54 

06, 2 674 

01105 

1 

OCT 

1105 

0855 

REF 

5 

LAST 

193 

06, 2675 

1 2432 

1 

TCF 

NXTF  L33 

ORS6 

REF 

22 

[ AST 

1 9 1 

06,2676 

1 0 000 

o 

UPTMFAST 

CCS 

A 

8 AM  F A 8 

DNI  INK 

TOO  FAST 

WITH  DIFFERENT 

0857 

REF 

6 

LAST 

19  3 

06, 2677 

1 2432 

1 

TCF 

NXTT L33 

ALARM  CODE. 

Qfl 

REF 

£ 

LAST 

19  1 

06,  2 700 

0 5 6 6 7 

o 

TO 

ALARM 

0859 

06, 2 701 

01106 

i 

OCT 

1106 

0860 

REF 

7 

LAST 

193 

06,2702 

1 2432 

l 

TCF 

NXTF  L33 

GAP 
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L 

P0861 

R0862 

R0864 

R0866 

R0868 


R0869 
R 08-71 
R0873 
R0875 

R0877 

R 087  8 

R0879 

R0880 
R 08  8 1 

R0882 

R0882  1 
R08822 
R08823 
R08824 
R08825 
R08826 
R 0882 7 
R 0 882  8 

R 0 8 8 3 

R 08  84 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 


T4RUPT  PROGRAM  USER'S  PAGE  NO.  25  E6  S4 

PROGRAM  NAME:  SETISSW 

FUNCTIONAL  DESCRIPTION:  THIS  PROGRAM  TURNS  THE  ISS  WARNING  LAMP  ON  AND  OFF  (CHANNEL  11  BIT  1=1  FOP  ON, 

0 FOR  OFF)  DEPENDING  ON  THE  STATUS  OF  IMODES30  BITS  13  (IMJ  FAIL)  AND  4 (INHIBIT  I MU  FAIL),  12  ( I CDU  FAIL)  AND 
3 (INHIBIT  ICDU  FAIL),  AND  10  (PIPA  FAIL)  AND  1 (INHIBIT  PIPA  FAIL).  THE  LAMP  IS  LEFT  ON  IF  A LAMP  TEST  IS  IN 
PROGRESS. 

CALLING  SEQUENCE : CALLED  BY  IMUMON  ON  CHANGES  TO  IMU  FAIL  AND  ICDU  FAIL.  CALLFD  BY  IFAILOK  AND  PFAILOK  UPON 
REMOVAL  OF  THE  FAIL  INHIBITS.  CALLED  BY  PIPFAIL  WHEN  THE  PIPA  FAIL  DISCRETE  CHANGES.  IT  IS  CALLED  BY  PIPUSF 
SINCE  THE  PIPA  FAIL  PROGRAM  ALARM  MAY  NECESSITATE  AN  ISS  WARNING,  AND  LIKEWISE  BY  PIPFREE  WHEN  THE  ALARM  DEPARTS 
AND  IT  IS  CALLED  BY  IMU2ER03  AND  I SSUP  AFTER  THE  FAIL  INHIBITS  HAVE  BEEN  REMOVED. 

JOBS  CR  TASKS  INITIATED:  NONE. 

SUBPOLTINES  CALLEC:  NONE. 

ERASABLE  INITIALIZATION: 


1)  I MODE  S3  0 - SEE  IMUMON. 

2)  I MODE  S 33  BIT  1 = 0 (LAMP  TEST  NOT  IN  PROGRESS). 


ALARMS:  ISS  WARNING. 

THE  FOLLOWING  PROGRAM  ALARMS  WILL  SHOW  WHICH  FAILURE  CAUSED  THE  ISS  WARN 

PROGRAM  ALARM  00777  PIPA  FAIL 

PROGRAM  ALARM  03777  ICDU  FAIL 

PROGRAM  ALARM  04777  ICDU  , PIPA  FAILS 

PROGRAM  ALARM  07777  IMU  FAIL 

PROGRAM  ALARM  10777  IMU  , PIPA  FAILS 

PROGRAM  ALARM  13777  IMU  , ICDU  FAILS 

PROGRAM  ALARM  14777  IMU  , ICDU  , PIPA  FAILS 

EXIT:  VIA  0. 


OUTPUT:  ISS  WARNING  LAMP  SET  PROPERLY. 


REF 

REF 

1 

28 

LAST 

192 

06. 2703 

06. 2704 

06.2705 

3 

7 

0 

4761 

1302 

0006 

0 

0 

1 

SETISSW 

CAF 

MASK 

EXTEND 

3 CT 1 5 
I MOD  ES30 

SET  ISS  WARNING  USING  THE  FAIL  BITS 
BITS  13,  12,  AND  10  OF  IMO0ES30  AMD 
FAILURE  INHIBIT  BITS  IN  POSITIONS 

IN 

THE 

REF 

15 

LAST 

192 

06, 2706 

7 

4742 

0 

MP 

B I T 1 0 

4,  3,  AND  1. 

REF 

29 

LAST 

194 

06, 2707 

3 

1302 

1 

CA 

I MOD  ES30 

06, 2710 

0 

00  06 

.1 

EXTEND 

REF 

5 

LAST 

182 

06,  271  1 

04  001 

1 

ROR 

LCHA  N 

0 INDICATES  FAILURE 

06, 2712 

4 

0000 

0 

COM 

REF- 

-1- 

06,2713 

7 

5025 

1 

MASK 

0CT1 5000 

REF 

23 

LAST 

193 

06, 2714 

1C 

I 000 

0 

CCS 

A 

REF 

1 

06,2715 

1 

2726 

1 

TCF 

I SSWON 

FAILURE. 

REF 

14 

LAST 

192 

06, 2716 

3 

4753 

1 

ISSWOFF 

CAF 

BIT1 

DONT  TURN  OFF  ISS  WARNING  IF  LAMP  TFST 

REF 

12 

LAST 

19  1 

06,2717 

7 

1303 

1 

MASK 

I MDDES33 

IN  PROGRESS. 
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0898 

REF 

24 

LAST 

1 94 

06,2720 

10  000 

0 

CCS 

A 

0899 

REF 

3 

LAST 

172 

06,2721 

0 0002 

0 

TC 

Q 

0900 

REF 

15 

LAST 

1 94 

06,2722 

4 4753 

0 

CS 

BIT1 

0901 

06,2723 

0 0006 

1 

EXTEND 

5 

LAST 

1 q 9 

Oft,  ? 724 

03  Oil 

1 

WAND 

DSAL MOUT 

0903 

REF 

4 

LAST 

195 

06,2725 

0 0002 

0 

TC 

0 

HA- 9 79 A 

0 00  0ft 

1 

[ SS  WON 

FXT  END 

0904 

090402 

REF 

1 

06,2727 

22  066 

1 

QXCH 

ITEMP6 

0904  04 

REF 

1 

06,2730 

0 5735 

0 

TC 

VARALARM 

0904  1 

REF 

16 

LAST 

195 

06, 2731 

3 4753 

1 

CAF 

BIT1 

0905 

06,2732 

0 00  06 

1 

EXTEND 

0906 

REF 

6 

LAST 

195 

06, 2733 

05  Oil 

1 

WOR 

DSAL  MOUT 

0907 

REF 

2 

LAST 

19  5 

06, 2734 

0 0066 

1 

TC 

I TEMP6 

0908 

REF 

i 

06, 2735 

4 3003 

0 

CAGESUB 

CS 

BITS  6CL5 

0909 

0-6,  2 736 

0 0006 

1 

EXTEND 

0910 

REF 

9 

LAST 

1 8 S 

06,2737 

03  012 

1 

WAND 

CHAN  12 

0911 

REF 

2 

LAST 

1 8 C 

06,2740 

3 4763 

1 

CAF 

BITS4&5 

09  1 2 

06,2741 

0 0006 

1 

EXTEND 

0913 

REF 

10 

LAST 

19  5 

06, 2742 

05  012 

1 

WDR 

CHAN  12 

0914 

REF 

Ll 

LAST 

IAS 

Oft r 2 74 A 

4 1 OTft 

1 

CAGESUB1 

CS 

0 SPT AB  + 1 ID 

0915 

REF 

i 

06, 2744 

7 2773 

1 

MASK 

OC40010 

0916 

RFF 

12 

LAST 

19  5 

06,2  745 

27*036 

1 

ADS 

D SPT  AB  + 11 D 

0918 

REF 

30 

LAST 

194 

06 , 2 746 

4 1302 

0 

CAGESUB2 

CS 

I MOD  ES30 

0919 

REF 

1 

06,2747 

7 2775 

1 

MASK 

0CT75 

0920  REF  31  LAST  195  06,2750  27'30 2 0 ADS  IMODES30 


0922 

REF 

13 

LAST 

194 

06,2751 

4 1303 

1 

CS 

I MOD  ES33 

0923 

REF 

21 

LAST 

L9  1 

06,2752 

7 4746 

__L 

MASK 

B I T 6 

0924 

REF 

14 

LAST 

195 

06, 2753 

27 ' 303 

1 

ADS 

i k'c  t es:” 

0925  REF  5 LAST  195  06*2754  0 0002  0 TC  0 


0926 

REF 

3 

LAST 

192 

06,2703 

IMUFAIL 

EQUAL  S 

SET  I SSW 

0927 

REF 

4 

LAST 

195 

06,2703 

ICDUFAIL 

EQUALS 

SETI SSW 
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TELL  FV ER Y ONE  WHAT  CAUSED  THE  ISSWAPNING 


SET  OUTBITS  AND  INTFRNAL  FLAGS  TOR 
SYSTEM  TURN-ON  OR  CAGE.  DISABLE  THE 
ERROR  COUNTER  AND  REMOVE  I MU  DELAY  COMP. 
SEND  ZERO  AND  COARSE. 


TURN  ON  NO  ATT  LAMP 


SET  FLAGS  TO  INDICATE  CAGING  OR  TURN-ON 
AND  INHIBIT  ALL  ISS  WARNING  INFO 


DISABLE  DAP  AUTO  AND  HOLD  MODES 
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L 
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P 0928 

JUMP 

TABLES 

AND  CONSTANTS. 

06 , 2 7^^ 

1 2 S33 

1 

IFAILJMP 

-TCF — 

I TUR  NON 

0930 

REF 

1 

06,2756 

1 2703 

0 

TCF 

IMUF AIL 

0931 

REF 

1 

06,2  757 

1 2703 

0 

TCF 

ICDUFAIL 

Ctf.j  27S0 

1 2 5 65 

1 

ICE 

I MU  CAGE 

0933 

06,2761 

76400 

1 

30R  OMSK 

OCT 

76400 

093  A 

REF 

1 

06,2762 

1 2622 

1 

TCF 

IMUOP 

0935 

REF 

1 

06,2763 

1 2650 

1 

C33 JMP 

TCF 

P I P F A I L 

0936 

REF 

1 

06,2764 

1 2671 

1 

TCF 

DNT  M FAST 

REF 

— 1- 

06,2765 
TO  SKIP 

1 2676 

n 

TCF 

U PT M FAST 

R0938 

SLBROUT I NE 

IF  LAMP 

TEST  NOT  IN 

PROGRESS. 

09  39 
0940 

R FF 

L5 

| AST 

1 9 S 

06 T 2 766 

4 1303 

1 

LAMPTEST 

CS 

IF  CL  ES33 

REF 

17 

LAST 

195 

06,  2 767 

7 4753 

0 

MASK 

B IT1 

0941 

REF 

25 

LAST 

195 

06, 2770 

10  000 

0 

CCS 

A 

0942 

REF 

6 

LAST 

1 9 5 

06,2  771 

24  002 

0 

I NCR  . 

Q 

0943 

REF 

7 

LAST 

196 

06, 2772 

0 0002 

0 

TC 

Q 

s 026 

31R  n M SK 

EQUALS 

OCT 

p r T n l* 

0945 

06,2773 

40010 

1 

OC400  10 

4001  0 

0947 

06, 2774 

00054 

0 

OCT  54 

OCT 

54 

0948 

06,2  775 

00075 

0 

OCT  7 5 

OCT 

75 

09485 

06,2776 

00272 

0 

0CT272 

OCT 

00272 

0949 

06,2777 

00300 

1 

3ITS7F.8 

OCT 

300 

09  SO 

06, 3000 

01720 

o 

QCT  1720 

OCT 

1720 

0951 

06, 3001 

00740 

1 

0CT740 

OCT 

0074  0 

0952 

REF 

1 

5025 

OCT  L5000 

EQUALS 

PR  ID  15 

0953^ 

06,  3 002 

77000 

1 

OCT  77000 

OC  T 

7700  0 

0954 

06,3003 

40040 

1 

BITS6S15 

OCT 

40040 

0955 

06,3004 

76777 

1 

-BIT10 

OCT 

-1000 

0956 

06, 3005 

21450 

0 

90SECS 

DEC 

9000 

0957 

REF 

1 

5742 

120MS 

= 

OCT  1 4 

0958 

REEL 

4 

EAST 

175 

_5270 

GLOCKOK 

EQUALS 

RESUME 
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CHANNEL  30  DISPATCH. 

(BIT  10  NOT  SAMPLED  HERE) . 

CHANNEL  33  DISPATCH. 


BIT  1 OF  I MODES  33  = 1 I?  LAMP  JFST  IN 
PROGRESS . 


GAP: 
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P0959  PROGRAM  NAME_  RRAUTCHK 


R0960 
R0961 
R0962 
R 09-6  3 
R0964 
R0965 
R0966 
R0967 
R0968 
R0969 
R0970 
R 097 1 
R0972 


FUNCTIONAL  DESCRIPTION. 

RRAUTCHK  IS  THE  RENDEZVOUS  RADAR  INBIT  MONITOR.  INITIALLY  THE  RR 
PGVvER  ON  AUTO  (CHAN  33  BIT  2)  INBIT  IS  CHECKED.  IF  NO  CHANGE,  THE 
PROGRAM  EXITS  TO  RRCDUCHK . IF  A CHANGE,  RADMODES  IS  UPDATED 
AND  A CHECK  MADE  IF  RR  POWER  HAS  JUST  COME  ON.  IF  JUST  OFF,  A CHECK 
IS  MADE  TO  SEE  IF  A PROGRAM  WAS  USING  THE  RR  (STATE  BIT  7).  IF  NO, 

THE  PROGRAM  EXITS  TO  RRCDUCHK.  IF  YES,  PROGRAM  ALARM  00514 
IS  RECUESTED  BEFORE  EXITING  TO  RRCDUCHK.  IF  RR  POWER  HAS  JUST  COME 
ON,  A CHECK  IS  MADE  TO  SEE  IF  A PROGRAM  WAS  USING  THE  PR  (STATE  BIT  7). 
IF  YES,  THE  PROGRAM  EXITS  TO  RRCDUCHK  WITHOUT  REQUESTING  THE  TUPN-ON 
SEQUENCE.  IF  NO,  RADMODES  IS  UPDATED  TO  INDICATE  RR  CDU  ZERD  AND 
RR  TURN-ON  SEQUENCE  (BITS  13,  1).  A 10  MILLISECOND  WAITLIST  CALL 
IS  THEN  SET  FOR  RRTURNON  BEFORE  THE  PROGRAM  EXITS  TO  NORRGMON. 


R0973  CALLING  SEQUENCE. 

R 0974  T4RUPT  EVERY  480  MILLISECONDS 


P 097 5 ERASAELE  INITIALIZATION  REQUIRED. 

R0976  RADMODES,  STATE 


R0977  SUBROUTINES  CALLED. 
R0978  WAITLIST 


R0979  JOBS  CR  TASKS  INITIATED. 

R 0 9 8 0 RRTURNON 

R0981  ALARMS.  PROGRAM  ALARM  00514  - RADAR  GOES  OUT  OF  AUTO  MODE  WHILE  BEING 
R0982  USED 


R0983  EXIT.  RRCDUCHK,  NORRGMON 


0984 

REF 

3 

LAST 

18  8 

06,3006 

3 0110 

1 

RRAUTCHK  CA 

RADMODES 

SEE  IF  CHANGE  IN  RR  AUTO  MODE  BIT. 

0985 

06, 3007 

0 0006 

l 

EXTEND 

0986 

REF 

2 

LAST 

182 

06,  3010 

06  033 

1 

RXOR 

CHAM  33 

0987 

0988 

REF 

18 

LAST 

191 

06.3011 

06. 3012 

7 4752 
0 0006 

1 

1 

MASK 

EXTEND 

B IT2 

0989  REF  1 06,3013  1 3037  1 BZF  RRCDUCHK 


0990 

0991 

REF 

4 

LAST 

197 

06. 3014 

06.3015 

22  110 
0 0006 

1 

1 

LXCH 

EXTEND 

RADMODES 

UPDATE  RADMODES. 

0992 

REF 

6 

LAST 

194 

06, 3016 

06  001 

0 

RXOR 

LCHAN 

09925 

REF 

1 

06,3017 

7 3033 

0 

MASK 

□ CTO  5776 

CLR  CONT.  DES.,  RFMODE, 

REPOS,  CDUZEPO, 

0993 

REF 

5 

LAST 

197 

06, 3020 

54  110 

0 

TS 

RADMODES 

AND  TURNON  BITS. 

0994 

REF 

19 

LAST 

197 

06, 3021 

7 4752 

1 

MASK 

BIT2 

SEE  IF  JUST  ON. 

0995 

REF 

26 

LAST 

196 

06, 3022 

10  000 

0 

CCS 

A 

0996 

REF 

2 

LAST 

197 

06, 3023 

1 3034 

1 

TCF 

RRCDUCHK  -3 

OFF.  GO  DISABLE  RR  CDU 

ERROR  COUNTERS. 

0999 

REF 

1 

06,3024 

3 7662 

1 

CA 

OCT  1 0001 

SET  RRCDUZRO  AND  TURNON 

BITS. 

1000 

REF 

6 

LAST 

197 

06,3025 

26  no 

0 

ADS 

RADMODES 
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1001 

REF 

5 

LAST 

183 

06,3026 

3 4753 

1 

CAF 

ONE 

1002 

REF 

5 

LAST 

184 

06,3027 

0 5203 

0 

TC 

WAITLIST 

P7 1 | 4^4 

EB ANK= 

LCSC HUNT 

1004 

REF 

1 

06,3030 

02062 

1 

2C  ADR 

RFTUPNON 

1004 

REF 

1 

06, 3031 

52107 

0 

1005 

REF 

1 

06,3032 

1 3132 

0 

TC  F 

NORRGMON 

1006 

06,3033 

05776 

-1 

0CT05776  OCT 

5776 
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GAP 
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P 1 007  PROGRAM  N AME_  RRCDUCHK 

R 1008  FUNCTIONAL  DESCRIPTION_ 

R 1009  RRCDUCHK  CHECKS  FOR  RR  CDU  FAIL  ICHAN  30  BIT  7).  INITIALLY  THE 

r 10 10  RR  COU  FAIL  BIT  IS  SAMPLED  (CHAN  30  BIT  7).  IF  NO  CHANGE,  THE 

RIO  1 1 PROGRAM  EXITS  TO  RRGIMON.  IF  A CHANGE,  THE  RR  AUTO  MODE 

R 10 12  (RAOMCDES  BIT  2)  BIT  IS  CHECKED.  IF  NOT  IN  RR  AUTO  MODE,  THE 

r 10 1 3 PROGRAM  EXITS  TO  NORRGMON . IF  IN  AUTO  MODE,  RADMODES  BIT  7 

RIO  14  (RR  CDU  OK)  IS  UPDATED  AND  IF  P-20  IS  OPERATING  PROGRAM  ALARM  00515  I 

R 10 1 5 REQUESTED.  CONTROL  IS  TRANSFERRED  TO  SETTRKF  TO  UPDATE 

R 10 16  THE  TRACKER  FAIL  LAMP  (DSPTAB+11D  BIT  8).  CONTROL  RETURNS  TO 

R 101 7 RRGIMON. 

R 1 01 8 CALLING  SEQUENCE. 

R 1 0 1 9 EVERY  480  N I LL IS E CONOS  F ROM  RRAUTCHK  (VIA  T4RUPT ) UNLESS  A 

R 1 020  TURN-CN  SEQUENCE  HAS  JUST  BEEN  INITIATED. 

R 102 1 ERASABLE  INITIALIZATION  REQUIRED. 

R 1022  RACMODES 

R 1023  SUBROUTINES  CALLED^ — 

R1024  SETTRKF 

R1025  JOBS  CR  TASKS  INITIATED. 

R 1026  NCNE 


R 102  8 
R1029 

TRACKER 

PROGRAM 

FAIL 

ALARM 

005  15 

- RR  CDU  FAIL  DURING 

P-20 

R 1030 
R 103 1 

EXIT. 

RRGIMCN, 

NORRGMON 

10315 

REF 

20 

LAST 

197 

06,3034 

4 4752 

1 

-3 

cs 

BIT2 

10316 

06,3035 

0 0006 

1 

EXTEND 

10317 

REF 

11 

LAST 

19  5 

06,3036 

03  012 

1 

WAND 

CHAN  12 

1032 

REF 

7 

LAST 

197 

06, 3037 

3 0110 

1 

RRCDUCHK 

CA 

RADMODES 

1033 

06, 3040 

0 0006 

1 

EXTEND 

1034 

REF 

2 

LAST 

176 

06, 3041 

06  030 

1 

RX  OR 

CHAN  30 

1035 

REF 

17 

LAST 

188 

06, 3042 

7 4745 

1 

MASK 

B I T 7 

1036 

06,3043 

0 0006 

1 

EXTFND 

1037 

REF 

1 

06,3044 

1 3071 

0 

BZF 

RRG I MON 

1038 

REF 

2 1 

LAST 

1 9 9 

06  f 3 04 5 

3 475? 

o 

CAF 

B I T 2 

1039 

REF 

8 

LAST 

199 

06,3  046 

7 01  10 

0 

MASK 

R ADMCDFS 

1040 

REF 

27 

LAST 

197 

06,3047 

10  000 

0 

CCS 

A 

10  41 

REF 

2 

LAST 

198 

06,3050 

1 3132 

0 

TCF 

NORRGMON 

1042 

REF 

18 

LAS  T 

199 

06,3051 

3 4745 

0 

CAF 

B IT7 

USER'S  PAGE  NO.  30  E6  S4 


AT  TURNON,  OISABLE  CDU  ERROR  COUNTER S . 
LAST  SAMPLED  BIT  IN  RADMODES. 


IF  RR  NOT  IN  AUTO  MODE,  DONT  CHANGE  BIT 
7 OF  RADMODES.  IF  THIS  WERE  NOT  DONE, 
THE  TRACKER  FAIL  MIGHT  COME  ON  WHEN 
JUST  READING  LR  DATA. 

SET  BIT  7 OF  RADMODES  FOR  SETTRKF. 


GAP 
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1043  REF  9 LAST  199  06, 

1044  06, 

1046  REF  3 LAST  182  06, 

1046  REF  10  LAST  200  06, 

104  7 REF  11  - LAST  200  06, 

1048  REF  19  LAST  199  06, 

1049  REF  28  LAST  199  06, 

1050  REF  1 06, 

1051  REF  5 LAST  191  06, 

1052  REF  1 06, 

1053  REF-  29  LAST  200  06, 

1054  REF  2 LAST  200  06, 

1055  REF  7 LAST  193  06, 

1056  06, 

1057  REF  1 06, 


22  no 

1 

LXCH 

RADMODES 

0 0006 

1 

EXTEND 

06  00 1 

0 

RXOR 

L 

54  no 

0 

TS 

RADMODES 

-2  n i 1 n 

CA 

R ADMI3DES 

D \J  1 1 U 

7 4745 

1 

MASK 

BIT7 

10  000 

0 

CCS 

A 

1 3070 

TCF 

TRKF  LCDU 

4 0074 

0 

CS 

FLAGWRDO 

7 4745 

1 

MASK 

RNDV ZBIT 

10  000 

o 

CCS 

_A 

1 3070 

1 

TCF 

TRKF  LCDU 

0 5567 

0 

TC 

ALAR  M 

005  15 

o 

OCT 

0051  5 

0 45  64 

1 

TRKFLCOU  TC 

SETTPKF 

3052 

3053 

-3  054 

3055 

3 056 

3057 

3060 

3 061 

3062 

3063 

3064 

3065 

3 066 

3067 

3070 
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UPDATE  RADMODES. 

DIO  RR  COU  FAIL 

NO  _ 

PNDVFLG  P 20  OR  P22  OPERATING 

NO 

YES 

UPDATE  TRACKER  FAIL  LAMP  ON  DSKY. 

GAP: 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


19:02  NOV.  25,1968  LEM0NAID.070  PAGF  201 


L T4RUPT  PROGRAM 

P1058  PROGRAM  NAME_  RRGIMON 

R 1060  FUNCTIONAL  DESCRIPTION. 

R1062  RRGIMON  IS  THE  RR  GIMBAL  LIMIT  MONITOR.  INITIALLY  THE  FOLLOWING  IS 
R 1064  CHECKED.  REMODE,  RR  CDU:S  BEING  ZEROED,  REPOSITION,  AND  RR 

R1065  NOT  IN  AUTO  MODE  (RADMODES  BITS  14,  13,  11  2).  IF  ANY  OF  THESE 

R1066  EXIST  THE  PROGRAM  EXITS  TO  GPMATRIX.  IF  NONE  ARE  PRESENT  RRL  IMCHK 

R 1 067  IS  CALLED  TO  SEE  IF  THF  PRESENT  RR  CDU  ANGLES  (OPTY,  OPTX ) APE  WITHIN 

R1068  THE  LIMITS  OF  THE  CURRENT  MODE.  IF  WITHIN  LIMITS,  THE  PROGRAM  EXITS 

R 1069  TO  NORRGMON.  IF  NOT  WITHIN  LIMITS,  THE  REPOSITION  FLAG  (RADMODES 

R 1070  BIT  11)  IS  SET,  THE  RR  AUTO  TRACKER  ANO  RR  ERROR  COUNT  FR 
R 10 71  (CHAN  12  BITS  14,  2)  ARE  DISABLED,  AND  A 20  MILLISECOND  WAITLIST 

R 1072  CALL  IS  SET  FOR  D GRREPOS  AFTER  WHICH  THE  PROGRAM  EXITS  TO  NORRGMON. 

R 1 073  CALLING  SEQUENCE. 

R 1074  EVERY  480  MILLISECONDS  FROM  RRCDUCHK  (VIA  T4RUPT)  UNLESS  TURN-ON 
R 1075  HAS  JUST  BEEN  INITIATED  VIA  RRAUTCHK  OR  IF  THERE  HAS  BEEN  A CHANGE  IN 

R1076  THE  RR  CDU  FAIL  BIT  (CHAN  30- BIT  7)  AND  THE  RR  IS  NOT  IN  THE  AUTO  MODE 

R1077  IRADMCDES  BIT  2). 

R 1078  ERASABLE  INITIALIZATION.  RADMODES 

R 1079  SUBROUTINES  CALLED. 

R 1 080  RRL  IMCHK,  WAITLIST — 

R 1081  JOBS  OR  TASKS  INITIATED. 

R 1082  DCRREPOS 


R 1083  ALARMS 

R1084  -NONE 


R1085  EXIT. 

R 1 086  NORRGMON 


1087 

REF 

4 

LAST 

189 

06,3071 

30  101 

1 

RRGIMON 

CAE 

FLAGWRD5 

1088 

REF 

- 1 

06,3072 

7 -47  50 

0 

MASK 

NORRMBIT 

1089 

REF 

30 

LAST 

200 

06, 3073 

10  000 

0 

CCS 

A 

1090 

REF 

3 

LAST 

199 

06, 3074 

1 3132 

0 

TCF 

NORRGMON 

10901 

REF 

— 1 

06,  3 075- 

4 0103 

1 

CS 

FLAGWPD7 

10902 

REF 

1 

06,3076 

7 4747 

0 

MASK 

AVEGFBIT 

10903 

REF 

31 

LAST 

20  1 

06,3077 

10  000 

0 

CCS 

A 

10904 

06,3100 

1 3105 

1 

TCF 

+ 5 

10905 

REF 

1 

06, 3 101 

3 0102 

1 

CA 

FLAG  WRD6 

10906 

REF 

1 

06,3102 

7 4744 

0 

MASK 

MUNF LBIT 

10907 

REF 

32 

LAST 

20  1 

06, 3 103 

10  000 

0 

CCS 

A 

10908 

REF 

4 

LAST 

20  1 

06,3104 

1 3132 

0 

TCF 

NORRGMON 

1091 

REF 

1 

06,3  105 

3 3127 

0 

+ 5 

CAF 

OCT  3 2002 

1092 

REF 

12 

LAST 

200 

06,3106 

7 0110 

_0 

MASK 

R ADMCDES 

1093 

REF 

33 

LAST 

20  1 

06,  3 107 

10  000 

0 

CCS 

A 

1094 

REF 

5 

LAST 

20  1 

06,3  110 

1 3132 

0 

TCF 

NORRGMON 

USER'S  PAGE  NO.  32  E6  S4 

E AUTO  MODE  EXCEPT  WHEN  THE  PR  CDUS  ARE 

TTER  IS  INITIATED  BY  THIS  MONITOR  WHEN 
ED  TO  DRIVE  THE  GIMBALS  TO  T = 0 AND 


IS  NO  ANGLE  MONITOR  FLAG  SET 


YES  - SKIP  LIMIT  CHFCK 
IS  SERVICER  RUNNING? 


NO.  DO  R 2 5 

YES.  IS  MUNFLAC  SET? 


YES.  DON'T  DO  R25 

INHIBIT  BY  REMODE, ZEROI NG, MONITOR. 
OR  RR  NOT  IN  AUTO. 


GAP 
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1095 

1096 

REF 

REF 

1 

1 

06, 3111 

06,3  112 

0 

4523 

00035 

1 

1 

TC 

ADRFS 

RRLI MCHK 
CDUT 

1097 

REF 

1 

06, 3 1 13 

1 

3115 

0 

TCF 

MONP FPOS 



3132 

0 

-TGf- 

NOR  R GMDN 

1098 

REF 

1099 

REF 

15 

LAST 

180 

06,3115 

3 

4741 

1 

MONREPOS  CAF 

BIT  1 1 

1100  HEP  1 3-  LAST  2-01  -06,-31-16  26  410  0 ADS  RAOKODES 


1101 
1 i no 

REF 

1 

06,3117 

HA- ^ 1 

4 3130 
0 0006 

1 

1 

cs 

EXTEND 

OC  T 2 0002 

1 iU  C. 

1103 

REF 

12 

LAST 

199 

06, 3121 

03  012 

1 

WAND 

CHAN  12 

1 1 AA 

DPP 

9 

LAC  T 

3 £ 

06 , 3 122 

3 4752 

0 

CAF 

TWO 

I I 

k t r 

6 

L H J 1 

1105 

REF 

6 

LAST 

198 

06,3123 

0 5203 

0 

TC 

WAITLIST 

1106 

REF 

2 

LAST 

19  8 

E7, 1454 

EB ANK= 

LOSCOUNT 

1107 

R E-F 

1 

06, 3124 

02127 

1 

2CADR  DORR  EPOS 

1107 

REF 

1 

06, 3125 

52107 

0 

1108  REF  7 -LAST  202  06,3126  1 3132  0 TCF  NORRGMON 


1109 

06,3127 

32002 

1 

OCT  32002 

OCT 

32002 

1110 

06^3 130 

20002 

1 

OCT20002 

OCT 

2000 2 

1111 

06,3131 

02100 

1 

0CT02100 

OCT 

02100 
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SEE  IF  ANGLES  IN  LIMITS. 


(ADDITIONAL  CODING  MAY  GO  HERE). 

SET  FLAG  TO  SHOW  REPOSITION  IN  PROGRESS. 

DISABLE  TRACKER  AND  ERROR  COUNTER. 


P20.P22  MASK  BITS 
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p 1 1 1 2 PROGRAM  NAME:  GPMATRIX  ( DAPT4S)  MOD.  NO.  2 DATE:  OCTOBER  27  , 1966 

R1113  AUTHOR:  JONATHAN  C.  ADDELSTON  (ADAMS  ASSOCIATES) 

RU131  MODIFIED:  7FEB.  1968  BY  P.  S.  WFISSMAN  TO  DELETE  COMPUTATION  OF  MR12  AND  MR13,  WHICH  ARE  NO  LONGER  REOIURED . 

R1114  THIS  PROGRAM  CALCULATES  ALL  THE  S I NGL E -PREC I S I ON  MATRIX  ELEMENTS  WHICH  ARE  USED  BY  LEM  DAP  TO  TRANSFORM  VECTORS 
R1116  FRCM  GIMBAL  TO  PILOT  (BODY)  AXES  AND  BACK  AGAIN.  THESE  ELEMENTS  ARE  USED  EXCLUSIVELY  BY  BASIC  LANGUAGE  ROUTINES 
r 1 1 1 8 AND  THEREFORE  ARE  NOT  ARRAYED  FOR  USE  BY  INTERPRETIVE  PROGRAMS. 

R1119  CALLING  SEQUENCE:  GPMATRIX  IS  TRANSFERRED  TO  FROM  D APT  AS  AND  IS  THUS  EXECUTED  A TIMES  A SECOND  BY  TAR  UPT . 

R1121  DAPTAS  IS  LISTED  IN  TAJUMP  TABLE  TWICE  EXPLICITLY  AND  ALSO  OCCURS  AFTER  RRAUTCHK  (WHICH  IS  ALSO  LISTED  TWICE). 

R 1 123  SUBROUTINES  CALLED:  SPSIN,  SPCOS. 

R112A  NORMAL  EXIT  MODE:  TCF  RESUME 

R 1 1 2 5 ALARM  AND  ABORT  MOOES:  NONE. 

R 1 1 30  INPUT:  CDUX  , CDUY,  CDUZ. 

R1131  OUTPUT:  Mil,  M21,  M31,  M22,  M32. 

RLL32  ACC-  = CDUX,  A I G = CDUY,  AMG  = CDUZ:  MNEMONIC  IS:  OIM  = XYZ 

R 1 1 33  * * SIN(MG)  0 1 * 

R113A  M = * COS(MG)COStOG)  SIN(OG)  0 * 

R1135  GP  * -COSIMG)SIN(OG)  COS(OG)  0 * 

R 1 13  6 * * O GGSIOG 1VG0SI  MG)  - S I N ( OG ) /COS  ( MG  ) * 

R 1 1 37  M = * 0 SIN(OG)  COS(OG)  * 

R 1 138  PG  * 1 -SIN(MG)COS(OG)/COS(MG)  S I N ( MG ) S I N ( OG) /C 0 S ( MG ) * 


1 1 A3 
11  AA 
R11A5 

REF  5 LAST  181 

REF  1 

TARIJPT  DAP  LOGIC: 

E6 , 1 A12 
06,3132 

DAPTAS 

EBANK= 
EQUAL  S 

Mil 

GPMA TRIX 

11A6 

REF 

2 

LAST 

18  A 

06, 3 132 

30  034 

0 

GPMATRIX 

CAE 

CDUZ 

SINGLE  ENTRY 

POINT 

11A7 

REF 

_L_ 

06,3 133 

0 5033 

1 

TC 

SPSI  N 

SIN(CDUZ) 

- 

S IN(MG) 

11A8 

REE 

6 

LAST 

203 

06, 3 134 

5 5 ' A 1 2 

0 

TS 

Mil 

SCALED  AT 

1 

1 1A9 

REF 

3 

LAST 

20  3 

06,  3 135 

30  0 34 

o 

CAE 

CDUZ_ 

1150 

REF 

1 

06,3136 

0 5032 

0 

TC 

SPCCS 

COS(CDIJZ) 

= 

CDS ( MG ) 

1151 

REF 

1 

06,3137 

54  06  1 

1 

TS 

COSMG 

SCALED  AT 

l 

(ONLY  A FACTOR) 

1152 

REF 

1 

06 , 3140 

30  032 

0 

CAE 

CDUX 

1153 

REF 

2 

LAST 

203 

06 , 3 1 A 1 

0 5033 

1 

TC 

SPSI  N 

S IN ( CDUX ) 

= 

SIN(OG) 

1154 

REF 

L 

0i>,3  142 

55' 415 

A 

TS 

M 2 2 

SCALED  AT 

1 

(ALSO  IS  MR  22 ) 

1155 

REE 

2 

LAST 

20  3 

06, 3 143 

A 1415 

1 

CS 

M 22 
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1156 

06, 3 144 

0 0006 

1 

EXTEND 

1157 

REF 

2 

LAST 

20  3 

06,3145 

7 0061 

1 

MP 

COSMG 

HA-  1 4 A 

55*414 

0 

TS — 

M31 

1158 

1159 

REF 

2 

LAST 

20  3 

06, 3147 

30  032 

0 

CAE 

C DUX 

nA^ \ i 50 

0 50  5? 

o 

JX — 

SPCOS 

1161 

REF 

1 

06,3151 

5 5 ' 4 16 

1 

TS 

M 32 

l 

EXTEND 

1162 

1163 

REF 

3 

LAST 

204 

06,3  153 

7 0061 

1 

MP 

COSMG 

1164 

REF 

1 

06, 3154 

5 5 1 4 1 3 

1 

TS 

M2 1 

1191 

REF 

5 

LAST 

196 

06,3155 

0 52  70 

1 

TC 

RESUME 

PA.  ^ 

NORRGMON 

EQUAL  S 

DAP  T 4S 

1193 

REF 

6 

LAST 

204 

5270 

ENDDAPT  4 

EQUALS 

RESUME 
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-S I N ( OG ) CO  S ( MG ) 
SCALED  AT  L 


COS(CDUX)  = COS (OG) 

SCALED  AT  1 (ALSO  IS  MR23) 


COS (OG)CnS (MG) 
SCALED  AT  l 
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L 

R0001 

ROO  02 

R00025 

R0003 
R0005 
R0007 
R0009 
R0011 
ROO  1 3 
R0015 
ROO  17 

R 001 8 
R0020 
R0022 
R0024 
R0026 
R0028 
R0030 
ROO  32 
R0034 

R0036 

R0037 

R0038 

0039 

R0040 

R0041 

R0042 

R0043 

R0045 

R00465 

R0047 

R 0048 

0052 

0059 

0060 
0061 


RCS  FAILURE  MONITOR  USER'S  PAGE  NO.  1 EO  S4 

PROGRAM  DESCRIPTION 
ALTHOR:  J S MILLER 

MODIFIED  6 MARCH  1968  BY  P S WEISSMAN  TO  SET  UP  JOB  FOR  l /ACCS  WHEN  THF  MASKS  ARE  CHANGED. 

THIS  ROUTINE  IS  ATTACHED  TO  T4RUPT,  AND  IS  ENTERED  FVFRY  480  MS.  ITS  FUNCTION  IS  TO  EXAMINE  THE  LOW  8 SITS 
OF  CHANNEL  32  TO  SEE  IF  ANY  I SO LAT I ON-VALVE  CLOSURE  BITS  HAVE  APPFARED  OR  DISAPPEARED  (THE  CREW  IS  WARNFD  OF  JFT 
FAILURES  BY  LAMPS  LIT  BY  THE  GRUMMAN  FAILURE-DETECTION  CIRCUITRY;  THEY  MAY  RESPOND  BY  OPERATING  SWITCHES  WHICH 
ISOLATE  PAIRS  OF  JETS  FROM  THE  PROPELLANT  TANKS  AND  SET  3ITS  IN  CHANNEL  32).  IN  THE  EVENT  THAT  CHANNEL  32  BITS 
DIFFEP  FRGF!  ' p VAL  VEST 1 * THE  RECORD  OF  ACTIONS  TAKEN  BY  THIS  ROUTINE,  THE  APPROPRIATE  BITS  IN  1 C H5  MASK ' G 
' CH6M ASK ' * USED  BY  THE  DAP  J E T- SELEC T I ON  LOGIC,  ARE  UPDATED,  AS  IS  'PVALVEST'.  TO  SPFED  UP  G SHORTEN  THF 
ROUTINE,  NC  MORE  THAN  ONE  CHANGE  IS  ACCEPTED  PER  ENTRY.  THE  HIGHEST-NUMBERED  BIT  IN  CHANNEL  32  WHICH  REQUIRES 
ACTION  IS  THE  ONE  PROCESSED. 

THE  CODING  IN  THE  FAILURE  MONITOR  HAS  BEEN  WRITTEN  SP  A S TO  HAVE  ALMOST  COMPLETE  RESTART  PROTECTION.  FOR 

FXAMPLE,  NO  ASSUMPTION  IS  MADE  WHEN  SETTING  A • CH5MA  SK ' BIT  TO  1 THAT  THE  PREVIOUS  STATE  IS  0,  ALTHOUGH  IT  OF 

COURSE  SHOULD  BE.  ONE  CASE  WHICH  MAY  BE  SEEN  TO  EVADE  PROTECTION  IS  THE_  QCCURRFNCE  OF  A RESTART  AFTER  UPDATING 
ONE  OR  BOTH  DAP  MASK-WORDS  BUT  BEFORE  UPDATING  'PVALVEST',  COUPLED  WITH  A CHANGE  IN  THE  VALVE-BIT  BACK  TO  ITS 
FORMFR  STATE.  THE  CONSEQUENCE  OF  THIS  IS  THAT  THE  NEXT  ENTRY  WOULD  NOT  SEE  THE  CHANGE  INCOMPLETELY  INCORP- 
ORATED 8 Y THE  LAST  PASS  (BECAUSE  IT  WENT  AWAY  AT  JUST  THE  RIGHT  TIME),  BUT  THE  DAP  MASK-WORDS  WILL  BE  INCORRECT. 
THIS  COMBINATION  OF  EVENTS  SEEMS  QUITE  REMOTE,  BUT  NOT  IMPOSSIBLE  UNLESS  THE  CREW  OPERATES  THE  SWITCHES  AT  HALF- 
SECCNC  INTERVALS  OR  LONGER.  IN  ANY  EVENT,  A DISAGREEMENT  BETWEEN  REALITY  AND  THE  DAP  MASKS  WILL  BE  CURED  IF 
THE  MISINTERPRETED  SWITCH  IS  REVERSED  AND  THEN  RESTORED  TO  ITS  CORRECT  POSITION  (SLOWLY). 

CALLING  SEQUENCE: 

TCF  RCSMONIT  (IN  INTERRUPT  MODE,  EVERY  480  MS.) 

EXIT:  TCF  RCSMONEX  (ALL  PATHS  -EXIT  VIA  SUCH  AN  INSTRUCTION) 

REF  7 LAST  204  5270  RCSMONEX  EQUALS  RESUME 

ERASABLE  INITIALIZATION  REQUIRED: 

VIA  FRESH  START:  PVALVEST  = +0  (ALL  JETS  ENABLED) 

CH5MASK,  CH6MASK  = +0  (ALL  JETS  OK) 

OUTPUT:  CH5MASK  6 CH6MASK  UPDATED  (l'S  WHERE  JETS  NOT  TO  BE  USED,  IN  CHANNEL  5 G 6 FORMAT) 

PVALTEST  UPDATED  (1,S  WHEN  VALVE  CLOSURES  HAVE  BEE!  TR  ANSLATED  INTO  CH5MASK  G CH6MASK ; CHAN  32  FORMAT) 
JOB  TO  DO  1/ACCS. 

DEBRIS:  A,  L,  Q AND  DEBRIS  OF  NOVAC. 

SUBROUTINE  CALLED:  NOVAC. 

REF  1 1262  EBANK=  CH5MASK 

23,2000  BANK  23 

REF  1 06,2000  SETLOC  RCSMPNT 

06,3156  BANK 
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0062 

REF 

1 

COUNT* 

$ $/ T 4RCS 

RfSMONT  T 

EQUAL  S 

P C SMCN 

0062  5 

0063 

R FF 
REF 

1 

6 

LAST 

189 

06,3156 

4 4755 

0 

RCS  MON 

cs 

ZERO 

06t  3 1 57 

0 0006 

1 

EXTEND 

0065 

REF 

2 

LAST 

173 

06, 3160 

06  032 

0 

RXOR 

CHAN32 

PICK  UP  + INVFRT  INVERTED  CHANNEL  32. 

0066 

REF 

1 

06, 3161 

7 4357 

0 

MASK 

LDW8 

KEEP  JET-FAIL  BITS  ONLY. 

0067 

REF 

8 

1 A5T 

196 

06*3 162 

54  0 02 

1 

TS 

Q 

0068 

REF 

i 

06,  3 163 

4 1276 

1 

CS 

PVAL VEST 

_ 

LAST 

2 0 6 

06,3164 

7 0002 

1 

MASK 

Q 

FORM  PC  + PC. 

0070 

REF 

4 

LAST 

200 

06,3  165 

54  001 

1 

TS 

L 

IP  = PREVIOUS  ISOLATION  VALVE  STATE, 

0071 

REF 

10 

LAST 

206 

06,3  166 

4 0002 

1 

CS 

Q 

C = CURRENT  VALVE  STATE  (CH  32)1. 

REF 

2 

L AR  T 

2D  6 

06T  3 1 67 

7 12  76 

1 

MASK 

PVAL  VEST 

0073 

REF 

5 

LAST 

20  6 

06,  3170 

26  001 

1 

ADS 

L 

RESULT  NZ  INDICATES  ACTION  REQUIRED. 

n n n n 6 

l 

FX  T FNH 

0075 

REF 

1 

06,3 172 

1 5270 

0 

BZF 

R CSMONEX 

QUIT  IF  NO  ACTION  REQUIRED. 

n nn ha 

\ 

F x T F N n 

0077 

REF 

20 

LAST 

200 

06, 3174 

7 4745 

1 

MP 

B I T 7 

MOVE  BITS  3 - 1 OF  A TO  14  - 7 OF  L. 

0078 

REF 

6 

LAST 

206 

06, 3175 

56  001 

0 

XCH 

L 

ZERO  TO  L IN  THE  PROCESS. 

0079 

REF 

7 

LAST 

206 

06,3176 

24  001 

0 

-3 

I NCR 

L 

0080 

06, 3 177 

6 0000 

1 

DOUBLE 

BOUND  TO  GET  OVERFLOW  IN  THIS  LOOP, 

0081 

06, 3200 

54  000 

0 

OVSK 

SINCE  WE  ASSURED  INITIAL  NZ  IN  A. 

0082 

06,3201 

1 3176 

0 

TCF 

-3 

0083^ 

REF 

g 

LAST 

2 n 6 

06.  3 70? 

50  n o 1 

o 

INDEX 

L 

00  84 

REF 

16 

L AST 

179 

06, 3203 

3 4743 

0 

CA 

B I T 8 -1 

SAVE  THE  RELEVANT  BIT  (8  - 1). 

0085 

REF 

11 

LAST 

206 

06,3204 

54  002 

1 

TS 

Q 

0086 

REF 

3— 

LAST 

206 

06, 3205 

7 1276 

1 

MASK 

PVAL VEST 

LOOK  AT  PREVIOUS  VALVE  STATE  PIT. 

0087 

REF 

34 

LAST 

201 

06, 3206 

10  000 

0 

CCS 

A 

0088 

REF 

1 

06, 3207 

1 3223 

0 

TCF 

VOPE  NED 

THE  VALVE  HAS  JUST  BEEN  OPENED. 

0089 

REF 

2 

LAST 

205 

06,3210 

4 1262 

1 

CS 

CH5MASK 

THE  VALVE  HAS  JUST  BEEN  CLOSFD. 

0090 

REF 

9 

LAST 

206 

06,3211 

50  001 

0 

INDEX 

L 

0091 

REF 

1 

06,3212 

7 3242 

1 

MASK 

5F  A I LTAB 

0092 

REF 

3 

LAST 

20  6 

06,3213 

27' 262 

1 

ADS 

CH5M ASK 

SET  INHIBIT  BIT  FOR  CHANNFL  5 JFT . 

0093 

REF  — 

1— 

-06 , 3214 

4 12  63 

o 

r r 

f H6  N*  A SK 

0094 

REF 

10 

LAST 

206 

06, 3215 

50  001 

6 

INDEX 

L 

0095 

REF 

1 

06,3216 

7 32  52 

0 

MASK 

6F  A I LTAB 

0096 

REF 

— 2 

LAST 

206 

06, 3217 

27' 263 

0 

ADS 

CH6M ASK 

SET  TNGIBIT  BIT  FOR  CHANNFL  6 JFT. 

0097 

REF 

12 

LAST 

206 

06,3220 

3 0002 

0 

CA 

g 

0098 

R E F 

— 4- 

LAST 

206 

06,3221 

27*2  76 

1 

ADS 

PVAL  VEST 

RECORD  ACTION  TAKEN. 

0099 

REF 

1 

06, 3222 

1 3236 

1 

TCF 

1 /ACCFIX 

SET  UP  1/ ACC  JOB  AND  EXIT. 
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L RCS  FAILURE  MONITOR 


0100 

REF 

11 

LAST 

206 

06, 3223 

50  001 

0 

VOPENED 

INDEX 

L 

0101 

REF 

2 

LAST 

206 

06, 322A 

4 3242 

1 

cs 

5 F A I LTAB 

LAST 

2 0 6 

06»  3 ??S 

7 1262 

1 

MASK 

CH5M ASK 

0103 

REE 

5 

LAST 

20  7 

06,3226 

55*262 

l 

TS 

CH5MASK 

06-r  3 22  7 

SO  001 

0 

INDEX 

L 

0105 

REF 

2 

LAST 

206 

06, 3230 

4 3252 

0 

CS 

6 F A I LTAB 

0106 

REF 

3 

LAST 

206 

06,3231 

7 1263 

0 

MASK 

CH6  MASK 

0]07 

REF 

4 

LAST 

20  7 

06, 3232 

5 5 ' 2 63 

0 

TS 

CH6MASK 

0108 

REF 

13 

LAST 

206 

06, 3233 

4 0002 

1 

CS 

Q 

01  OQ 

R FF 

5 

LAST 

20  6 

06, 3234 

7 1276 

1 

MASK 

PV  A L VEST 

0110 

REF 

6 

LAST 

207 

06, 3235 

55*276 

1 

TS 

PVAL  VEST 

REF 

n^t 3 23  a 

3 77  1 4 

1 

l/ACCFI X 

CAF 

PR  I C 27 

0112 

REF 

2 

LAST 

173 

06, 3237 

0 5072 

1 

TC 

NOVAC 

0113 

REF 

4 

LAST 

1 A 8 

E6, 1 537 

E3ANK= 

AOSQ 

0114 

R FF 

1 

06,3240 

02454 

0 

2CADP 

1 /AC  C JOB 

01 1 A 

REF 

1 

06,3241 

40106 

1 

0115 

REF 

2 

LAST 

206 

06, 3242 

1 5270 

0 

TC  F 

RCS  M CNEX 

0117 

06, 3241 

5FAILTAB  EQUALS 

-1 

01  IF 

06, 3243 

00040 

-0 

oct 

00040 

0119 

06,3244 

00020 

0 

OCT 

0002  0 

0120 

06, 3245 

00100 

0 

OCT 

00100 

0121 

06,3246 

00200 

0 

OCT 

00200 

0122 

06,3247 

00010 

0 

OCT 

00010 

0123 

06, 3250 

00001 

0 

OCT 

0000  1 

0124 

06,3251 

00004 

0 

OCT 

00004 

0125 

06,3252 

00002 

0 

OCT 

0000  2 

0 1 2 6 

06, 3251 

6F A 1 1 TAR  FQUAI  S 

- 1 

0127 

06,3253 

00010 

0 

OCT 

0001  0 

0128 

06, 3254 

00020 

0 

OCT 

00020 

0129 

06, 3255 

00004 

0 

OCT 

00004 

0130 

06,3256 

002  00 

0 

OCT 

00200 

0131 

06,  3257 

00001 

0 

OCT 

0000  1 

0132 

06, 3260 

00002 

0 

OCT 

00002 

0133 

06,3261 

00040 

0 

OCT 

00040 

0134 

06,3262 

00100 

0 

OCT 

00100 

O'  •>!  CDO 
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USER' S °AGE  NO.  3 E2  S4 

A VALVE  HAS  JUST  BEEN  OPENED. 

REMOVE  INHIBIT  BIT  FOR  CHANNEL  5 JET. 


REMOVE  INHIBIT  BIT  FOR  CHANNEL  6 JET. 


RECORD  ACT  ION  TAKEN. 

SET  UP  1/ACCS  SO  THAT  THE  SWITCH  CURVES 
FOR  T JET  LAW  CAN  BE  MODIFIED  IF  CH5MASK 
HAS  BEEN  ALTERED. 


EXIT. 


H 5 JET  BIT  CORRESPONDING  TO  CH  32  BIT: 


5 

4 
3 

2 

1 

CH  6 JET  BIT  CORRESPONDING  TQ  CEL  32  BIT: 
8 
7 

6 

5 
A 
3 
2 
l 
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0001  22,2004 

0002  REF  1 05,2000 

0003  05,2065 


BANK  22 
SETLOC  DOWNTELM 
BANK 


0004  REF  2 LAST  169  0340 


EB ANK=  DNTMBUFF 


R0005 
A0006 
A 00  07 
A0008 
A0009 
A0010 
A0011 
A0012 
A0013 
A0014 
A0015 
A0016 
A0017 
A0018 
A0019 


SPECIAL  DOWNLINK  CP  CODES 


OP  CODE  ADDPFSS (EXAMPLE)  SENDS..  BIT  15  BITS  14-12  BITS  11 

-0 


1DNADP.  TIME2  17  AGC  WDS  ) 0 0 ECADR 

2DNADP  TEPHEM  (4  AGC  WDS)  0 1 ECADR 

3DNADR  VGBCDY  (6  AGC  WDS)  0 2 ECADR 

4DNADR  STATE  (8  AGC  WDS)  0 3 ECADR 

5DNADR  UPBUFF  ( 10AGC  WDS)  0 4 ECADR 

6DNADR  DSPTAB  ( 12AGC  WDS)  0 5 ECADR 

DNCHA  N_3X3 CHANNELS  0 7 CHANNEL 

ADDRESS 

ONPTR  NEXTLIST  POINTS  TO  NEXT  0 6 ADRES 

L I ST. 


R0020  DOWNLIST  FCRMAT  DEFINITIONS  AND  RULES- 

R0021  1.  END  OF  A LIST  = -XGNAOR  < X = l TO  6),  -DNPTR , OR  -DNCHAN. 

R0022  2.  SNAPSHOT  SUBLIST  = LIST  WHICH  STARTS  WITH  A -1DNADR  . 

R0023  3.  SNAPSHOT  SUBLIST  CAN  ONLY  CONTAIN  1DNADRS. 

R0024  4.  TINE2  1 CN ADR  MUST— 8E  -L-OCAT ED  IN  THE  CONTROL  LIST  OF  A DOWNLIST. 

R0025  5.  ERASABLE  DOWN  TELEMETRY  WORDS  SHOULD  BE  GROUPED  IN  SEQUENTIAL 

R0026  LOCATIONS  AS  MUCH  AS  POSSIBLE  TO  SAVE  STORAGE  USED  BY  DOWNLINK  LISTS. 


0027 

0028 

REF 

1 

0 007 

ERASZERO 

COUNT* 
EQUAL  S 

$$/DL  1ST 
7 

0029 

REF 

1 

0007 

UNKNOWN 

EQUALS 

ERAS  Z E R r 

0030 

REF 

2 LAST  208 

0007 

SPARE 

EQUALS 

ERAS  ZERO 

USE 

SPARE  TO  INDICATE  AVAILABLE  SPACE 

00  32 

05,2065 

77340  0 LOW  IDCOD 

OCT 

77340 

LOW 

ID  CODE 

0033 

REE 

1 

0 5^  2472 
05,2407 

NOMDNLST 

AGSLIST 

EQUALS 

EQUALS 

L MC  S TAD| 

FRFSH  START  AMD 

POST 

p 2 7 DOWNLIST 

0034 

REF 

1 

L M AG  SI DL 

0035 

REF 

2 LAST  208 

05, 2407 

UPDNLI ST 

EQUALS 

L MAG  SIDL 

UPDATE  PROGRAM 

( P27  ) 

DOWNLIST 

GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25,1968  LEMONAID.070  PAGE  209 


L 

DOWNLINK 

L ISTS 

USER'S  PAGE  NO.  2 EO  S4 

P0036 

LM 

ORBITAL  MANEUVERS 

LIST 

R0037 

0038 

05, 2066 

LMORBMDL 

EQUALS 

SEND  ID  BY  SPECIAL  CODING 

0039 

REF 

1 

05, 2066 

32127 

1 

DNPTR 

LMJRBM01 

COLLECT  SNAPSHOT 

0040 

REF 

3 

LAST 

208 

05, 2067 

24340 

0 

6DNADP 

DNTMBUFE 

SEND  SNAPSHOT 

0041 

REF 

1 

05, 2070 

03447 

0 

1DNADR 

0ELLT4 

DELLT4, + l 

0042 

REF 

1 

05,2071 

13441 

1 

3DNADR 

RTARG 

RTARG, +1. . .+5 

0043 

REF 

1 

05,2072 

02262 

0 

1DNADR 

ELEV 

ELEV.+l 

0044 

REF 

1 

05,2073 

01344 

0 

1DNADR 

T EVE  NT 

T EVENT , +1 

0043 

REF 

l 

05,  2 074 

25733 

1 

6DNADR 

REFSMMAT 

REFSMMAT +0 . . . +1  ID 

0046 

REF 

1 

05,  2075 

03631 

0 

1 DN ADR 

TCSI 

TCSI ,+l 

0047 

REF 

1 

05,2076 

12272 

0 

3DNADP 

DELVEET1 

DELVEET1+0. . .+5 

0048 

REF 

2 

L A9  T 

1 5 8 

05 1 2 077 

13704 

0 

3DNADR 

VGT  I G 

VGTIG+0...+5 

0049 

*REF 

2 

LAST 

123 

05,2  100 

01340 

1 

1DNADR 

DNLR  VEl Z 

DNLRVELZ.DNLRALT 

0050 

REF 

2 

LAST 

159 

05,2101 

03626 

0 

1DNA0R 

TPASS4 

TPASS4,+1 

ons  ] 

R F F 

1 

05,2102 

32136 

1 

DNPTR 

l MUR BM02 

COMMON  DATA 

0052 

REF 

1 

05,2 103 

00024 

1 

1DNADR 

T I M E 2 

TIME  2/1 

0053 

REF 

1 

05,2 104 

32145 

0 

DNPTR 

LMOR  RM03 

COLLECT  SNAPSHOT 

0054 

REF 

4 

LAST 

20  9 

05, 2 105 

24340 

0 

6DNADR 

DNTNBUFF 

SEND  SNAPSHOT 

0055 

REF 

i 

05,2 106 

32154 

0 

DNPTR 

L MDR BM04 

COMMON  DATA 

0056 

REF 

i 

05, 2107 

07115 

0 

2DNADR 

POST  CRKU 

POSTORKU,NEGTORKU,POSTORKV,NEGTORKV 

0058 

REF 

i 

05, 2110 

00007 

0 

1DNADR 

SPAR  F 

0059 

REF 

i 

05,2111 

03373 

0 

1DNADR 

TCDH 

TCDH, +1 

0060 

REF 

i 

05,2112 

12300 

1 

30NADR 

DEL  V EET2 

DELVEET2+0...+5 

0061 

REF 

i 

05, 2113 

03633 

1 

1DNADP 

TTP  I 

T TP  I , + l 

0062 

REF 

i 

05, 2 114 

13365 

0 

3DNADR 

DEL  V FET3 

DFLVEET3+0. . .+5 

0063 

*REF 

2 

LAST 

12  3 

05, 2115 

01333 

0 

1 DN ADR 

DNRR ANGE 

DNRRANGE, DNRR DOT 

0065 

REF 

2 

LAST 

12  3 

Q5 , 2 1 1 6 

05336 

1 

2DNADR 

DNLR  VELX 

DNLR VELX , DNL R VE L Y , DNLR V EL Z , DNL R AL T 

0066 

REF 

i 

05,2117 

03575 

0 

1DNADR 

DIFF ALT 

D I FF ALT , + 1 

0067 

REF 

i 

05, 2120 

01331 

1 

1DNADR 

LEMM ASS 

L EMM ASS ,CSMMASS 

0068 

REF 

32 

LAST 

195 

05,2121 

01302 

1 

1DNADR 

I MUD  ES30 

[ M0DFS30, I MODES33 

0069 

REF 

1 

05, 2122 

034  3 7 

1 

1DNADR 

TIG 

T IG, +1 

0070 

REF 

1 

05, 2123 

321  57 

0 

DNPTR 

LMOR  BM05 

COMMON  DATA 

0071 

REF 

1 

05,2  124 

321  70 

0 

DNPTR 

LM1R  BM06 

COMMGN  DATA 

0072 

REF 

2 

LAST 

209 

05,  2 125 

00007 

0 

1DNADR 

SPAR  E 

FORMERLY  PIF 

0073 

REF 

2 

LAST 

16  2 

05, 2 126 

74263 

0 

-1DNADR 

TGO 

T GO , + 1 

R0074 

— 

- SUB-LISTS  — - 

0075 

REF 

2— 

LAST 

1 3 6 

05,2 127 

76056 

0 

LMORBMOl 

-l DNADR 

R-OT  HER  +2 

R-OTHER  + 2 , +3  SNAPSHOT 

0076 

REF 

3 

LAST 

209 

05,2130 

01723 

0 

IDNADR 

R-OTHER  +4 

R-OTHER+4, +5 

0077 

REF 

2 

LAST 

136 

05,2131 

01725 

0 

1 DNADR 

V-OTHEP 

V-OTHER, +1 

0078 

REF 

3 

LAST 

209 

05, 2 132 

01727 

1 

IDNADR 

V-OTHER  +2 

V-OTHER+2 , +3 

0079 

REF 

4 

LAST 

209 

05,2133 

01731 

0 

IDNADR 

V-OTHFR  +4 

V-OTHER+4 , +5 

0080 

REF 

1 

05, 2134 

01570 

1 

IDNADR 

T-OT  HER 

T-OTHER ,+l 

0081 

REF 

4 

LAST 

209 

05, 2 135 

76060 

0 

-IDNADR 

R-CTHEP 

R-OTHER+O, +1 

0082 

REF 

1 

05,2136 

04320 

1 

LM0RBM02 

2DNADR 

REDOCTR 

REDOCTR, THETAD, +1 , +2  COMMON  DATA 

GAP  : 

L 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

—0108 

0109 

R0110 
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REF 

1 

05,2  137 

01432 

0 

1DNADR 

RSBBC 

R SBBQ , + 1 

REF 

5 

LAST 

144 

05,2140 

07017 

0 

2DNADR 

DMEGAP 

OMEGAP,OMEGAQ,OMEGAR, GARBAGE 

072  33 

1 

2DNADR 

CDUX  D 

CDUX D,CDUYD,CDUZQ, GARB  AGE 

REF 

3 

LAST 

204 

05,2  142 

04032 

1 

2DNADR 

C DU  X 

CDUXjCDUY ,CDUZ,CDUT 

REF 

16 

LAST 

112 

05,2143 

24074 

1 

6DNADP 

STATE 

STATE+0...+11D  IFLAGWORDS) 

O^r  2 144 

52  754 

o 

-6DNA0R 

DSPT AB 

DSPT  AB  TABLES 

REF 

1 

05,2  145 

76555 

0 

LM0RBM03-1DNADR 

RN  +2 

RN  +2, +3  SNAPSHOT 

LAST— 

2 1 0 

06,  2 144 

nj  2 24 

1 

10NADR 

RN  + 4 

RN  +4, +5 

REF 

1 

05,2 147 

01226 

0 

1DNADR 

VN 

VN,  +1 

REF 

2 

LAST 

2 1 0 

05,2150 

01230 

1 

1DNADR 

VN  +2 

VN  +2, +3 

REF 

3 

1 AST 

2 1C 

05,  2 151 

01232 

0 

1DNADR 

VN  +4 

VN  +4, +5 

REF 

i 

05, 2152 

01234 

0 

1DNADR 

PIPT IMF 

PIPTIME, +1 

REF 

3 

LAST 

210 

05,2153 

76557 

1 

-1DNADR 

RN 

RN,  +1 

REF 

3 

LAST 

149 

05,  2154 

07241 

1 

LMQRBM04  2DNADR 

OMEGAPD 

0 ME G APD, OMEGA OD,QMEGARD, GARBAGE 

REF 

1 

05, 2 155 

10372 

0 

3DNADR 

CADR  FLSH 

CADRFLSH,+l,+2,FAILREG,+l,+2 

REF  14  EAST 202  05,  2156  77667  CL  -1DNADR  RADMODFS  P.  ADMODESj  DAPBOOLS  COMMON  DATA 


REF 

6 

LAST 

210 

05,2157 

07017 

0 

LM0RBMO5 

2DNADR 

OMEGAP 

OME GAP.OMEG AO, OME GAR, GARBAGE 

REF 

5 

| AST 

2 1 0 

05*  2 1 40 

07233 

1 

2DNADR 

CDUX  D 

C DU XD,C DUX D, C DU  ZD .GARBAGE 

REF 

4 

LAST 

210 

05,2161 

04032 

1 

2DNADR 

CDJX 

CDUX,CDUY ,CPUZ,CDUT 

REF 

1 

05,2162 

03022 

1 

1DNADR 

ALPHAQ 

ALPHAQ, ALPHAR  COMMON 

DATA 

RFF 

1 

05,2163 

031  13 

1 

1DNADR 

POST  ORKP 

POSTORKP, NEGTORKP 

05,  2 164 

34011 

0 

DNCHAN 

1 1 

CHANNEL  S 1 1 , 1 2 

05,2165 

34013 

1 

ONCHAN 

13 

CHANNELS  13,14 

05,2 166 

34030 

0 

DNCHAN 

30 

CHANNELS30 ,31 

05, 2 167 

43745 

0 

-DNCHAN 

32 

CHANNELS  32 ,33 

RFF 

2r~ 

■HAST 

1 4 2 

05,2170 

035  56 

1 

\ MflR  RM06 

1 Di\|A  DR- 

PIPT  I M E 1 

PIPTIME, +1  COMMON 

DATA 

REF 

4 

LAST 

1 1 5 

05,2171 

67453 

1 

-3DNADR 

DEL  V 

DELV+O. ..+5 
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P0111 

LM 

COAST 

AND 

ALIGNMENT  DOWNLIST 

R01 12 
0113 

05,2172 

LMCSTADL 

EQUALS 

0ST  2 1 72 

32  127 

l 

DNPTR 

LMCSTA01 

0115 

REF 

5 

LAST 

209 

05,2 173 

243  40 

0 

6DNADR 

DNTM  BUFF 

0116 

REF 

1 

05, 2 174 

02020 

1 

1DNADP, 

AGSK 

0117 

REF 

1 

0 5,  2 1 75 

02774 

1 

1DNADR 

TALIGN 

0118 

REF 

2 

LAST 

209 

05,2176 

07115 

0 

2DNADR 

POSTORKU 

0120 

REF 

3 

LAST 

209 

05,2 177 

01333 

0 

1DNADR 

DMRR ANGE 

0121 

REF 

2 

| AS  T 

20  <3 

05,2200 

01344 

0 

1DNADR 

TEVENT 

0122 

REF 

2 

LAST 

209 

05,2201 

25733 

1 

6DNADR 

REF  S MMAT 

0123 

REF 

1 

05,2202 

00735 

0 

1 DN ADR 

ADTCODE 

0124 

REF 

3 - 

LAST 

20  9 

05,2203 

13704 

0 

3DNADR 

VGT  I G 

0125 

RFF 

3 

LAST 

209 

05, 2204 

05336 

1 

2DNADR 

DNLRVELX 

0126 

REF 

1 

05, 2205 

32224 

l 

DNPTR 

LMCSTA06 

0127 

REF 

1 

05,2206 

32136 

l 

DNPTR 

LMCS  TA02 

0128 

RFF 

2 

LAST 

209 

05,2207 

00024 

1 

1DNADR 

TIME2 

0129 

REF 

1 

05,2210 

32145 

0 

DNPTR 

LMCSTA03 

0130 

REF 

6 

LAST 

21  1 

05,2211 

243  40 

0 

6DNADR 

D1  TM  BUFF 

0131 

REF 

1 

05,2212 

321  54 

0 

DNPTR 

LMCSTA04 

0132 

REF 

1 

05,2213 

322  2 6 

0 

DNPTR 

LMCS  TA07 

01  33 

RFF 

4 

LAST 

211 

05,2214 

05336  1 

2DNADR 

DNLP VELX 

0134 

REF 

i 

05,2215 

04036 

0 

2DNADR 

C DU  S 

0135 

REF 

2 

LAST 

112 

05,2216 

00112 

0 

1DNADR 

LAST YCMD 

0136 

REF 

2 

LAST 

20  9 

05, 2217 

01331 

1 

1DNADR 

LEMMASS 

0137 

REF 

33 

LAST 

209 

05, 2220 

01302 

1 

1DNADP 

IM0DES30 

0138 

REF 

2 

LAST 

209 

05,2221 

03437 

1 

1DNADP 

TIG 

0139 

REF 

1 

05,  2222 

32157 

0 

DNPTP 

LMCSTA05 

0140 

REF 

14 

LAST 

21  C 

05,2223 

52754 

0 

-6DNADR 

DSPT  AB 

R 0 1 41 

Clio  1 T C T C 

0142 

REF 

2 

LAST 

209 

05, 2 127 

LMCSTA01 

EQUALS 

L MOR  BM01 

0143 

REF 

2 

LAST 

209 

05,2136 

LMCSTA02 

EQUALS 

LM0RBM02 

0144  REF  2 LAST  209  05,2145  LMCSTA03  EQUALS  LM0REM03 


0145 

REF 

2 

LAST 

209 

05,  2 154 

LMCSTA04 

EQUALS 

LM0RBM04 

0146 

REF 

2 

LAST 

209 

05,2157 

LMCSTA05 

EQUALS 

LM0RBM05 

0147 

REF 

1 

05,  2224 

05700 

o 

! MC STA06 

?DN ADR 

X 789 

0148 

REF 

3 

LAST 

21  1 

05,2225 

77665 

1 

• 1DN ADR 

L AS  T YCMD 

0149 

REF 

2 

LAST 

138 

05,2226 

12737 

1 
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3DNADR 
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1DNADP 

BEST  I 
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LM  R 

ENDEZVCUS 

AND  1 

PRE-THRUST 

DOWNL 1ST 

1 T C T 

05,2232 

LMRENDDL 

EQUALS 

SEND  ID  BY  SPECIAL  CODING 

OS  t 2 232 

32  127 

1 

DNPTR 

LMPEND01 

COLLECT  SNAPSHOT 
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7 

LAST 

211 

05, 2233 

24340 

0 

6DNADR 

DNTMBUFF 

SEND  SNAPSHOT 

REF 

1 

05,2234 

32276 

0 

DNPTR 

LMREND07 

COLLECT  SNAPSHOT 

REF 

g 

LAST 

? 1 3 

05, 2235 

14340 

0 

4DNADR 

DNTMBUFF 

SEND  SNAPSHOT 

REF 

2 

LAST 

209 

05  * 2236 

03447 

0 

1DNADP 

DELLT4 

DELLT4,+1 

REF 

2 

LAST 

2 0 S 

05,2237 

13441 

1 

3DNADR 

R TAP  G 

PTARG+0...+5 

R EF 

1 

05,2240 

13431 

0 

3DNADR 

D EL  V SI  V 

DELVSLV+O ... +5 

REF 

2 

LAST 

209 

05,2241 

03631 

0 

1DNADR 

TCSI 

TCSI  , + l 

REF 

2 

LAST 

20  9 

05,2242 

12272 

0 

3DNADR 

DEL  V FET1 

DEL VEET  +0- . . + 5 

REF 

3 

LAST 

209 

05,2243 

00007 

0 

IDNADP 

SPAR  E 

REF 

3 

LAST 

209 

05,2244 

03626 

0 

1DNA0R 

TPASS4 

TPASS4,  + L 

REF 

1 

05,2245 

32224 

1 

DNPTR 

LMREND06 

COMMON  DATA 

RFF 

1 

05, 2246 

32136 

1 

DNPTR 

LMPEND02 

COMMON  DATA 

REF 

3 

LAST 

21  1 

05,2247 

00024 

1 

1 DN ADR 

T IMF  2 

TIME2/1 

REF 

1 

05, 2250 

32145 

0 

DNPTR 

LMREND03 

COLLECT  SNAPSHOT 

RFF 

9 

1 AST 

2 L 3 

05,  2 25 1 

24340 

0 

6DNADR 

DNTMBUFF 

SEND  SNAPSHOT 

REF 

i 

05,2252 

32154 

0 

DNPTR 

LMRF  ND04 

COMMON  DATA 

REF 

3 

LAST 

21  1 

05, 2253 

07115 

0 

2DNADR 

POSTORKU 

POSTORKU, NEGTORKU ,P0 STORK V.NEGTOPKV 

REF 

4 

LAST 

2 1 3 

05, 2254 
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0 

1DNADR- 

SPARE 

REF 

2 

LAST 

209 

05,2255 

03373 

0 

1DNADR 

TCDH 

TCDH, +1 

REF 

2 

LAST 

209 

05,2256 

12300 

1 

3DNADR 

DEL VEET2 

DELVEET2+0...+5 

REF 

2 

LAST 

20  9 

05,2257 

03633 

1 

IDNADP 

TTP  I 

TTPI.+l 

REF 

2 

LAST 

209 

05, 2260 

13365 

0 

3DNADR 

DEL  VEET3 

DELVEET3+0. . .+5 

REF 

2 

LAST 

209 

05, 2261 
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0 

1DNADR 
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REF 

2 
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05, 2262 
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0 

2DNADP 
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REF 

4 

LAST 
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05,  2263 
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0 

1DNADR 

LAST YCMC 
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REF 
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LAST 
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05, 2264 

01331 

1 

IDNADR 

LEMMASS 

LEMMASS, CSMMASS 

REF 
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05,2265 

01302 

1 
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I MOD  FS30 
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REF 

3 

LAST 
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05, 2266 

03437 

1 

IDNADR 

T IG 
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REF 

1 

05,2267 

32157 

0 

DNPTR 
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COMMON  DATA 

REF 
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05, 2270 
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0 

IDNADR 
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REF 

1 

05,2271 
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0 

IDNADR 
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REF 

1 

05,2272 
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1 

IDNADR 

NN 
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REF 

2 

LAST 

209 

05, 2273 
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0 

IDNADR 
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REF 

1 

05, 2274 

02353 

0 

IDNADR 

DEL  V TPF 
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REF 

5 

LAST 
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05,2275 
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FQUALS 
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REF 
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REF 
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LMREND06  EQUALS 
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REF 

i 

05,2276 
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1 
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REF 

i 

05,2277 
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1 

1DNADR 
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o 

1DNADR 
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02  03 
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REF 
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05,2301 
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02  09 

05,2303 

LMDSASDL 

EQUAL  S 

SEND  ID  BY  SPECIAL  CODING 

REF 

\ 

05»  2 303 

32341 

0 

DNPTR 

LMDS AS07 

COLLECT  SNAPSHOT 

0211 

REF 

1 

05,2304 

32355 

0 

DNPTR 

LMDS AS08 

SEND  SNAPSHOT 

0212 

REF 

3 

LAST 

211 

05,2305 

01344 

0 

1DNADR 

T EVE  NT 

T EV  ENT  , +1 

02 1 3 

R FF 

2 

LAST 

15  1 

05, 2306 

13251 

0 

30NADR 

UNFC/2 

UNFC/2+0. . .+5 

0214 

REF 

2 

LAST 
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05,2307 

13645 

1 

3DNADP 

VGVECT 

VGVECT+0...+5 

0215 

REF 
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05, 2310 

03640 
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1DNADR 
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REF 
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05, 2311 
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0 

1DNADR 
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0217 

REF 

i 

05,2312 

12022 

1 

3DNADR 

RLS 

RLS+0...+5 

0220 

REF 

6 
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213 

05,  2313 
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0 

10NADR 

SPARE 

02  21 

REF 

1 

05 , 2 3 14 

32224 

1 

DNPTR 

LMDS AS09 

COMMON  DATA 

0222 

REF 

1 

05,2315 

32136 

1 

DNPTR 

LMDS AS02 

COMMON  DATA 

0223 

REF 

4 

LAST 

213 

05,2316 

00024 

1 

1DNADR 

T I ME  2 

TIME2/1 

02  24 

REF 

1 

05,2317 

32145 

0 

DNPTR 

LMDS AS03 

COLLECT  SNAPSHOT 

0225 

REF 

10 

LAST 

213 

05,2320 

243  40 

0 

6DNADR 

DNTMBUFF 

SEND  SNAPSHOT 

0226 

REF 

1 

05,2321 

32154 

0 

DNPTR 

LMDS ASO^ 

COMMON  DATA 

0227 

REF 

4 

LAST 

213 

05,2322 

07115 

0 

2DNA0R 

POST  CRKU 

POSTORKU.NEGTORKU , POST ORK V , NE GTORK V 

0229 

REF 

i 

05,2323 

12543 

0 

3DNADR 

RGU 

RGU+O. . .+5 

0230 

REF 

2 

LAST 

165 

05, 2324 

13624 

0 

3DNADR 

VGU 

VGU+O . . .+5 

0231 

REF 

2 

LAST 

165 

05,2325 

13632 

1 

3DNADR 

LAND 

LAND+O. . .+5 

0232 

REF 

2 

LAST 

135 

05, 2326 

02256 

1 

1DNADR 

AT 

AT  , +1 

0233 

REF 

2 

LAST 

137 

05,  2 327 

02400 

1 

1DNADR 

TLAND 

TLAND, +1 

0234 

REF 

2 

LAST 

164 

05,2330 

036  13 

0 

IDNADR 

FC 

FC, GARBAGE 

0235 

REF 

5 

LAST 

213 

05,2331 

00112 

0 

1DNADP 

LAST YCMD 

LASTYCMD.LASTXCMD 

0236 

REF 

4 

LAST 

213 

05,2332 

01331 

1 

1DNADR 

LEMM ASS 

LEMMASS.CS MM ASS 

0237 

REF 

35 

L AST 

213 

05, 2333 

013  02 

1 

1DNADP 

I MOD  ES30 

I MODES 30 , I MODES  33 

0238 

REF 

4 

LAST 

213 

05,  2334 

03437 

1 

1DNADR 

TIG 

T IG , + 1 

0239 

REF 

1 

05,2335 

32157 

0 

DNPTR 

LMDS AS05 

COMMON  DATA 

0240 

REP 

l 

0 5 1 2336 

3?  1 70 

o 

DNPTR 

L MDS  AS06 

COMMON  DATA 

0241 

REF 

2 

LAST 

164 

05  j 2337 

03612 

1 

10NADR 

PSFUD055 

PSEUD055, GARBAGE 

0242 

REF 

2 

LAST 

154 

05,2340 

74326 

0 

-IDNADR 

TTOGO 

TTOGO, +1 

R0243 

RtIR-l  I RTF  

0244 

REF 

4 

LAST 

213 

05,2  136 

LMDSAS02 

EQUALS 

LMQRRM02 

COMMON  OOWNLIST  DATA 

0245 

REF 

4 

LAST 

213 

05,2145 

LMDSAS03 

EQUALS 

LM0RBM03 

COMMON  DOWNLIST  DATA 

0246  REF  4 LAST  2 14  05,2154  LMDS A SO 4 EQUALS  LM0RBM04  COMMON  DOWNLIST  DATA 


0247 

REF 

4 

LAST 
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05,2157 

LMDSAS05 

EQUALS 

LMDRBM05 

COMMON  DOWNLIST  DATA 

0248 

REF 

2 

LAST 

209 

05, 2 170 

LMDSAS06 

EQUALS 

LM0RPM06 

COMMON  DOWNLIST  DATA 

0249 

REF 

— 2— 

LAST 

13  5 

05, 2 341 

75435 

1 

LMDSAS07- 

■IDNADR 

LRZC  DUDL 

LRZCDUDL, GARBAGE 

SNAPSHOT 

0250 

REF 

2 

LAST 
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05,2342 

03647 

1 

IDNADR 

VSELECT 

VSELECT, GARBAGE 

0251 

RFF 

1 

05,2343 

02343 

1 

IDNADR 

LRVT  I MDL 

LRVT I MDL , + 1 
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2 
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05.2344 

05.2345 

03650 
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l 

1 

n 

IDNADR 
1 DN ADR 
IDNADR 

VMEAS 
MKT  I ME 
HMEAS 

VMEAS, +1 
MKT  I ME , +1 
HMEAS , +1 

1 

02  54 
0255 

RFF 

2 

LAST 

16  1 

05, 2347 

03754 

1 

IDNADR 

PM 

R M , + 1 

0256 

REF 

2 

l AST 

214 

05,2350 

03455 

0 

IDNADR 

A I G 

A IG, AMG 

% 

R.  EF 

2 

L /'S  T 

2 14 

nst  2 3S  l 

03457 

l 

IDNADR 

AQG  _ _ 

AOG, TRKMKCNT 

0258 

REF 

3 

LAST 

214 

05, 2352 

03750 

0 

IDNADR 

TANGNB 

TANGNB, +1 

0259 

REF 

4 

LAST 

216 

05, 2353 

03752 

1 

IDNADR 

MKT  I ME 

MKT  IMF , +1 

l 

0260 

REF 

2 

| AS  T 

1 3 5 

05,  2 354 

75437 

0 

■IDNADR 

LR-XC  nUDL 

LRXCDUDL, LRYCDUDL 

0261 

REF 

ii 

LAST 

215 

05,2355 

24340 

0 

LMDS ASO  8 

6DNADR 

DNTM  BUFF 

SEND  SNAPSHOT 

4» 

0262 

RFF 

L2 

1 AST 

216 

0 5,  2 356 

57423 

0 

■5DNADR 

DNT  M BUFF  +12D 

02  63 

REF 

3 

LAST 

214 

05,2224 
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EQUALS 
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COMMON  DOWNL 1ST  DATA 

* 
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t 
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1 

DNPTR 
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REF 

13 

LAST 

216 

05,2360 

24340 

0 

6DNADR 

DNTMBUFF 

0270 

REF 

1 

05, 2361 

32276 

0 

DNPTR 

L ML  S AL07 

LAST 

217 

0 2 362 

1 4340 

0 

4DNADR 

DNTMBUFF 

0272 

REF 

2 

LAST 

21  1 

05,  2363 

02774 

1 

1DNADR 

TALI GN 

0273 

REF 

3 

LAST 

21  1 

05, 2364 

25733 

1 

6DNADR 

REFSMMAT 

0274 

Rf  F 

2 

1 AST 

132 

05,2  365 

26242 

1 

6DNADP 

YNBSAV 

0275 

REF 

i 

05, 2366 

32224 

1 

DNPTR 

L ML  S AL08 

0276 

REF 

i 

05,2367 

32136 

1 

DNPTR 

LML  SAL  02 

0277 

REF 

5 

LAST 

215 

05,2370 

00024 

1 

1DNADR 

TIME  2 

0278 

REF 

i 

05, 2371 

32145 

0 

DNPTR 

L MLS  AL  03 

0279 

REF 

15 

LAST 

217 

05,2372 

24340 

0 

6DNADR 

DNTMBUFF 

0280 

REF 

1 

05,2373 

321  54 

0 

DNPTR 

LMLS ALOA 

0281 

REF 

1 

05,2374 

32226 

0 

DNPTR 

L ML  S AL09 

02  82 

REF 

4 

LAST 

132 

05, 2375 

12234 

1 

3DNADR 

GSAV 

0283 

REF 

2 

LAST 

21  1 

05,2376 

02020 

1 

IDNADR 

AGSK 

0284 

REF 

6 

LAST 

21  5 

05, 2377 

00112 

0 

1DNADR 

LAST YCMD 

0285 

REF 

5 

LAST 

215 

05,2400 

01331 

1 

1DNADR 

LEMMASS 

02  86 

REF 

36 

LAST 

21  5 

05,2401 

01302 

1 

1DNADP 

I MOD  ES30 

0287 

REF 

5 

LAST 

215 

05,2402 

03437 

1 

IDNADR 

TIG 

0288 

REF 

1 

05,2403 

32157 

0 

DNPTR 
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0289 

REF 

1 

05,  2404 

321  70 

o 

DNPTP 

LMLS  ALC6 

0290 

REF 

7 

LAST 

215 

05,2405 
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0 

IDNADR 

SPAR  E 
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REF 
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LAST 
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REF 
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EQUALS 
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REF 
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LMLSAL08 

EQUAL  S 

LMCSTA06 

0301 


REF 


2 LAST  211 


05,2226 


LMLSAL09  EQUALS  LMCSTA07 


19:02  NOV.  25,1968  LEMQNAID.070  PAGE  2 


USER'S  PAGE  NO.  10  EO  S4 


SEND  ID  BY  SPECIAL  COOING 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

COLLECT  SNAPSHOT 

SEND  SNAPSHOT 

TAL IGN, +1 

REFSMMAT+O.  . .+110 

YNBSAV  + O. . . + 5 , ZNB  S AV+  0 , ..+5 

COMMON  DATA 

COMMON  DATA 

TIMF/1 

COLLECT  SNAPSHOT 
SEND  SNAPSHOT 
COMMON  DATA 
COMMON  OATA 
GSAV+O. . .+5 
AGSK , +1 

LASTYCMD.LASTXCMD 
LEMMASS,CSMMASS 
I MODES30, IM0DFS33 
T I G , + 1 
COMMON  DATA 
COMMON  DATA 


COMMON  DOW NL I ST  DATA 
COMMON  DOWNLIST  OATA 
COMMON  DOWNLIST  OATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  OATA 
COMMON  DOWNLIST  DATA 
COMMON  DOWNLIST  DATA 
COMMON  DOW Nl  1ST  DATA 


COMMON  DOWNLIST  DATA 


GAP:  ASSEMBLE  REVISION  069  GF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 

L DOWNLINK  LISTS 


19:02  MOV.  25,  1968  LFMONAID.07Q  PAGE 
USER' S PAGE  NO.  11  EO  SI 


218 


R0302 


GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 


19:02  NOV.  25,1963  LFM0NAID.070  PAGE  219 


L 

DCWNL INK 

L ISTS 

USER'S  PAGE  NO.  12  EO  S4 

P0303 

LM 
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0308 

REF 

4 

LAST 

219 

05,2411 

12205 

0 

3DNADR 

AGSBUFF  +1 

AGSBUFF  + 1 ...  +6 
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0 
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AGS  INITIALIZATION  USER'S  PAGE  NO.  1 FO  S4 


PROGRAM 

NAME: 

AGS  INITIALIZATION  (R47) 

MOD  NO. 
DATE 

0 

23  MARCH  1967 

MOD  BY 

K ILROY 

DATE 

28  OCTOBER  1967 

MOD  BY 

FOLLETT 

FLNCT . DESC.:  (1)  TO  PROVIDE  THE  AGS  ABORT  ELECTRONICS  AS S EMBL Y [ A E A ) WITH  THE  LEM  AND  C SM  STATE  VECTORS 

( POSITION, VELOCITY, TIME)  IN  LEM  IMU  COORDINATES  BY  MEANS  OF  THE  LGC  DIGITAL  DOWNLINK. 


(2)  TO  ZERO  THE  ICDU,  LGC  AND  AE A GIMBAL  ANGLE  COUNTERS  SIMULTANEOUSLY  IN  ORDER  TO  ESTABLISH  A 
COMMON  ZERO  REFERENCE  FOR  THE  MEASUREMENT  OF  GI M BAL ( EUL ER ) ANGLES  WHICH  DEFINE  LEM  ATTITUDE 

L3 ) TO  ESTABLISH  XHE  GROUND  ELAPSED  TIME  OF  AE A CLOCK  ZERO. (IF  AN  AE A CLOCK  ZERO  IS 

REQUESTED  DURING  THIS  PROGRAM 

LOG  SECTION  : AGS  INITIALIZATION 

CALLING  SEC  : PROGRAM  IS  ENTERED  WHEN  ASTRONAUT  KEYS  V47E  ON  DSKY. 

R 47  MAY  BE  CALLED  AT  ANY  TIME  EXCEPT  WHEN  ANOTHER  EXTENDED  VERB  IS  IN  PROGRESS 


SUEROLT INES 
CALLED  : 

NORMAL  EXIT  : ENDEXT 


ALARM/ABORT  : ALARM  - BAD  REFSMMAT  - C0DE:220 

OPERATOR  ERROR  IF  V47  SELECTED  DURING  ANOTHER  EXTENDED  VERB. 


ERASAeLES 

USED  : SAMPTIME  (2)  TIME  OF  : ENTER : KEYSTROKE 

AGSK  (2)  GROUND  ELAPSED  TIME  OF  THE  AEA  CLOCK  :ZFRO: 

AGSBUFF  ( 14D ) CONTAINS  AGS  INITIALIZATION  DATA  (SEE  :OUTPUT:  BELOW) 
AGSWORD  (1)  PREVIOUS  DOWNLIST  SAVED  HERE 

REF  10  LAST  219  E4,1604  EBANK=  AGSBUFE 

40,2000  BANK  40 

REF  1 32,2000  SETLOC  R47 

32,2015  BANK 

REF  1 COUNT*  $ $ / P 47 

REF  1 32,2015  3 4737  0 AGSINIT  CAF  REFSMEIT 

REF  1 32,2016  7 0077  0 MASK  FLAGWRD3  CHECK  REFSMFLG. 

REF  35  LAST  206  32,2017  10  000  0 CCS  A 
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32,2040 
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1 
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32,2041 
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1 

EXTEND 
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32, 2043 
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EXTEND 
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01076 
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32, 2051 

77414 
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EXIT 
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REF 

1 

32,2052 

02076 

1 
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REF 

2 

LAST 

222 

32, 2053 

3 2202 

0 

CAF 

V06N16 

00795 

REF 

2 

LAST 
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32,2054 

0 46  16 

1 

TC 

BANKCALL 

00796  REF  1 32,2  055  20473  0 CADR  EXDSPRET 


0082 

0083 

REF 
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LAST 

22  2 

32.2056 

32. 2057 

0 6036 
77634 

1 

0 

TC  INTPRET 

RTB 

0084 

REF 

1 

32,2060 

21462 

1 

LOADTIMF 

0085 

REF 

1 

32,2061 

34041 

0 

STCALL  TDEC 1 

0086 

R-i-F — 

2— 

LAST 

3 6 

32,2  062 

-270  57 

o 

LEMPREC 

0087 

32, 2063 

77624 

1 

CALL 

0088 

REF 

1 

32,2064 

64142 

1 

SCAL  FVEC 

0089 

REF  - 

11 

LAST 

2.2 1 

32,2065 

16205 

1 

STOOL  AGSBUFF 

0090 

REF 

1 

32,2066 

00015 

0 

TAT 

0091 

REF 

2 

LAST 

222 

32,2067 

34041 

0 

STCALL  T DEC  1 

0092 

R-EF — 

2 — 

LAST 

3-6- 

32,2070 

27043 

_Q 

CSMPREC 

0093 

32,2071 

77624 

1 

CALL 

0094 

REF 

2 

LAST 

222 

32,2072 

64142 

1 

SCAL  EVEC 
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USER'S  PAGE  NO.  2 E4  S3 

R EFSMMAT  IS  OK 
REFSMM AT  IS  BAD 


TIME  OF  THE  : ENTER : KEYSTROKE 
BECOMES  NEW  AE A CLOCK  :ZERO: 


R 1 = OOXXX.  HRS.,  R2  = OOOXX  MIN., 
R 3 = OXX.XX  SEC. 

TERMINATE  RETURN 
PROCEED  RETURN 
I S ENTER  VIA  A V32 


YES,  USE  KEYSTROKE  TIME  FOR  NEW  AGSK 

NO,  NEW  AGSK  LOADED  VIA  V 25 
LOADED  INTO  DSPTEMX  BY  KEYING 
V25E  FOLLOWED  BY  HRS . , M IN S. , S EC S . 
DISPLAY  THE  NEW  K 


DONT  ALLOW  V37 


EXTRAPOLATE  LEM  AND  CSM  STATE  VECTORS 
TO  THE  PRESENT  TIME 
LOAD  MP AC  WITH  T I ME 2 , T I ME  1 
CALCULATE  LEM  STATE  VECTOR 

CALL  ROUTINE  TO  CONVERT  TO  SM  COORDS  AND 
PROVIDE  PROPER  SCALING 

(LEMOREC  AND  CSMPREC  LEAVE  TDEC 1 IN  TAT) 
TAT  = TIME  TO  WHICH  RATT1  AND  VATT1  ARE 
COMPUTEDICSEC  SINCE  CLOCK  START  R-28 ) . 
CALCULATE  CSM  STATE  VECTOR  FOR  SAME  TIME 
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USER'S  PAGE  NO.  3 E4  S3 

0095 

REF 

12 

LAST 

22  2 
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STOOL 

AGSBUFF  +6 

0096 

REF 
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0 

TAT 
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56225 

1 

DSU 

DDV 
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0098 

REF 

6 

LAST 

222 

32,2076 

02021 

0 

AGSK 

0099 

REF 

1 

32, 2077 

24205 

0 

TSCALE 

1 3 

L 4S  T 

22  3 

? i on 

02221 

l 

STORE 

AGSEUFF  + 1 2D 

0101 

32, 2 101 

77776 

1 

EXIT 

32 » 2 102 

^ 4 7 S 4 

1 

CAF 

LA3SLIST 

0103 

REF 

2 

LAST 

115 

32, 2 103 

54  332 

1 

TS 

DNLSTCOD 

REF 

1 2 1 2 1 Q4 

^ ??  06 

1 

CAF 

20SE  C 

DELAY  FOR  20  SEC  WHILE  THE  AGS 

0105 

REF 

3 

LAST 

22  2 

32,2  105 

0 46  16 

1 

TC 

BANKCALL 

DOW NL  I ST  IS  TRANSMITTED 

0106 

REF 

1 

32,2  106 

01735 

1 

CADR 

DELAYJOB 

0107 

REF 

1 

32,2107 

3 1324 

0 

CA 

AGSWORD 

0108 

REF 

3 

LAST 

22  3 

32, 2110 

54  332 

l 

TS 

DNLSTCOD 

RETURN  TO  THE  OLD  OOWNLIST 

0109 

REF 

3 

LAST 

13  1 

32,2111 

3 4744 

1_ 

CAF 

IMUSEBIT 

0110 

REF 

6 

LAST 

200 

32,2112 

7 00  74 

0 

MASK 

FLAGWRDO 

CHECK  IMUSE  FLAG. 

0111 

REF 

36 

LAST 

22  1 

32, 2113 

10  000 

0 

CCS 

A 

0112 

REF 

1 

32,2114 

0 2132 

0 

TC 

A G S E ND 

IMU  IS  BFING  USED  - DO  NOT  ZFPO 

0112  1 

REF 

1 

32, 2115 

1 1 ' 304 

0 

CK  ST  ALL 

CCS 

IMUC  ADR 

CHFCK  FOR  IMU  USAGE  WHICH  AVOIDS  THE 

01122 

32,2116 

1 2121 

0 

TC  F 

+ 3 

IMUSE  BIT:  I.E.,  IMU  COMPENSATION. 

01123 

32,2117 

1 2125 

1 

TC  F 

FREE.  GO  AHEAD  WITH  THF  IMU  ZERO. 

01124 

32,2120 

1 2121 

0 

TC  F 

+ 1 

01125 

REF 

1 

32, 2121 

3 4363 

0 

+ 3 

CAF 

TEN 

WAIT  .1  SEC  AND  TRY  AGAIN. 

01126 

REF 

4 

LAST 

22  3 

32,2  122 

0 46  16 

1 

TC 

BANKCALL 

01127 

REF 

2 

LAST 

223 

32,  2 123 

01735 

1 

CADR 

DELAYJOB 

01 128 

REF 

1 

32, 2 124 

1 2115 

1 

TCF 

CKST ALL 

0113 

REF 

5 

LAST 

22  3 

32,2 125 

0 4616 

1 

+ 6 

TC 

BANKCALL 

IMU  IS  NOT  IN  USE 

0114 

REF 

1 

32,2126 

16667 

1 

CAOR 

IMUZ  FRO 

SET  IMU  ZERO  DISCRETE  FOR  320MSEC S 

0115 

REF 

6 

LAST 

22  3 

32,2127 

0 4616 

1 

TC 

BANK  CALL 

WAIT  3SFC  FOR  COUNTERS  TO  INCREMENT 

0116 

REF 

1 

32,2  130 

17671 

1 

CAOR 

IMUSTALL 

0117 

REF 

2 

LAST 

223 

32,2131 

0 2132 

0 

TC 

AGSEND 

0118 

REF 

— L- 

32, 2132 

0 5516 

0 

AGSEND 

TC 

DOWNFLAG 

AL10W  V37 

0119 

REF 

2 

LAST 

222 

32,2133 

00054 

0 

ACRES 

NCDO  FLAG 

0120 

REF 

1 

32,2134 

3 2203 

1 

CAF 

V50N  16 

0121 

REF 

7 

LAST 

22  3 

32,2135 

0 46  16 

1 

TC 

BANKCALL 

0121  1 

REF 

1 

32,2  136 

20220 

0 

CADR 

GOMA  RK3 

01212 

REE— 

— 3- 

LAST 

222 

32,2137 

1 5472 

1 

TCF 

ENDEXT 

01213 

REF 

4 

LAST 

223 

32,2140 

1 5472 

1 

TCF 

ENOEXT 

0122 

REF 

5 

LAST 

22  3 

32,2141 

0 5472 

0 

TC 

ENDEXT 

0127 

32,2142 

64375 

1 

SC AL  E VEC 

VLOAO 

MX  V 

0128 

REF 

1 

32,2  143 

00025 

0 

VATT  1 

0129 

-REE- 

—4— 

LAST 

217 

3-2,2  144 

01734 

0 

REF  SMMAT 

0130 

32,2145 

72561 

0 

VXSC 

V SL2 

0131 

REF 

1 

32,2 146 

24212 

0 

VSCALF 

223 
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0131  1 
01312 

REF 

o C c 

1 

1 

32,2147 

32.2150 

22.2 15 1 

53255 
24214 
242  22 

0 

0 

0 

VAD 

VAD 

AGSR  ND1 
AGSRND2  _ 

0131  3 
01314 

K t r — 

1 

32,2152 

77634 

0 

R T r) 

01315 

REF 

1 

32,2153 

21744 

0 

VECSGNAG 

REF 

2 

LAST 

2 2 3 

32,2  154 

24025 

-0- 

STQVL 

V ATT  1 

U L cL 

0133 

REF 

1 

32, 2155 

000  17 

1 

R ATT  1 

0134 

32,2156 

74321 

1 

MX  V 

VXSC 

0135 

REF 

_5_ 

LAST 

22  3 

32,2157 

01734 

0 

REF  SMMAT 

0136 

REF 

1 

32,2160 

24210 

1 

RSCAIE 

0137 

32,2161 

53212 

0 

VSL  8 

VAD 

013  71 

REF 

_ 2 

LAST 

2-2  4 

32, 2 162 

24214 

_0_ 

ACER  NHL _ 

01372 

32,2 163 

47055 

1 

VAD 

RTB 

01373 

REF 

2 

LAST 

224 

32,2 164 

24222 

0 

AGSRND2 

01374 

-RE  F 

2 

LAST 

2-2  4 

32, 2165 

_2_1  744 

0 

VECSGNAG 

01375 

32,2166 

77750 

0 

LXA  ,1 

0138 

REF 

3 

LAST 

224 

32,2167 

00024 

1 

VATT  1 

0139 

32, 21 70 

721  30 

_0- 

SX  A , 1 

1 XA,  1 

0140 

REF 

13 

LAST 

222 

32,2 171 

00155 

0 

MPAC  +1 

0141 

REF 

4 

LAST 

224 

32,2172 

00026 

0 

VAT  T 1 +2 

0142 

32,  2 173 

721  30 

_Q 

SXA,  1 

LXA  , 1 

0143 

REF 

14 

LAST 

224 

32,2174 

00160 

0 

MPAC  +4 

0144 

REF 

5 

LAST 

224 

32,2175 

00030 

1 

V AT  T 1 +4 

0145 

32,  2 1 76 

43530 

0 

SX  A , 1 

RVQ 

0146 

REF 

15 

LAST 

224 

32,2177 

00162 

1 

MPAC  +6 

0147 

REF 

-N.  AST 

19  8 

4-753 

i a r; s t t st 

ONE 

0148 

32,2200 

00216 

1 

LHVJ  JL  1 J 1 

V01N14 

VN 

0114 

01485 

32,2201 

14400 

0 

V50N00A 

VN 

5000 

0149 

REF 

j 

6 01  0 

V00N25 

EQUALS 

OCT  3 1 

01495 

32, 2202 

01420 

0 

V06N16 

VN 

061  6 

01496 

REF 

1 

4242 

V00N34 

EQUALS 

34DEC 

01497 

32, 2203 

14420 

_1 

V50N 16 

VN 

5016 

0150 

32,2204 

03100 

0 

TSCALE 

2DEC 

100B-10 

0150 

32,2205 

00000 

1 

0151 

32,2206 

03720 

1 

20SEC  - 

DEC 

2000 

0152 

32, 2207 

15077 

0 

RSCALE 

20  EC 

3.280839  B— 3 

0152 

32,2210 

05041 

1 

0153 

32,221 1 

24402 

1 

VSCALE 

2DEC 

3.280839  F2  B- 

0153 

32, 2212 

25724 

1 

01531 

32,2213 

00000 

1 

AGSRND1 

20CT 

0000060000 

01531 

32, 2214 

60000 

1 

01532 

32,2215 

00000 

1 

20CT 

0000060000 

01532 

32,2216 

60000 

1 

01  533 

32,2217 

00000 

1 

20  Cl 

OOOC  060000 

01533 

32,2220 

60000 

1 

01534 

32,2221 

00000 

1 

AGSRND2 

20CT 

0000037777 

01534 

32,2222 

37777 

_1_ 

01535 

32,2223 

00000 

1 

20CT 

0000037777 

01535 

32, 2224 

37777 

1 

USER' S PAGE  NO.  4 E4  S3 

THIS  SECTION  ROUNDS  THE  VECTOR,  ANO 
CORRECTS  FOR  THE  FACT  THAT  THE  AGS 
IS  A 2 S COMPLIMENT  MACHINE  WHILE  THE 
LGC  IS  A 1 S COMPLIMENT  MACHINE. 


AGAIN  THIS  SECTION  ROUNDS.  TWO  VECTORS 
ARE  ADDED  TO  OEFEAT  ALS IGNAG  IN  THE 
CASE  OF  A HIGH-ORDER  ZERO  COUPLED  WITH 
A LOW  ORDER  NEGATIVE  PART. 


C SEC  TO  SEC  SCALE  FACTOR 


METERS  TO  FEET  SCALE  FACTOR 
9 METERS/CS  TO  FEET/SEC  SCALE  FACTOR 
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USER'  S PAGE  NO.  5 E A-  S3 


01536 

01536 

0154  REF 


32.2225  00000  1 20CT  0000037777 

32.2226  37777  1 
30, 2000 


1 


SB ANK=  LOWSUPEP 


FOR  SUBSEQUENT  LOW  2CA0RS 


GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021-112-011 

L FRESH  START  AND  RESTART 


P00743 

0075 

10,2000 

BANK 

10 

5 8 

05t  2 000 

SETLOC 

F R ANDRES 

0077 

05,2447 

BANK 

F-BA-NK  = 

L ST  1 

007  8 

REF 

0079 

REF 

2 

LAST 

58  TO 

58: 

1 

1* 

COUNT* 

it/ START 

^ ^ ^ ^ 

n nnn4 

o 

SLA  PI 

INHINT 

OOoU 

0081 

REF 

1 

05,  2450 

0 3100 

0 

TC 

STAR  TSUB 

1 2456 

0- 

ST  ART  SW 

TCF 

-SKI  P SIM 

0083 

REF 

22 

LAST 

189 

05,  2452 

3 4736 

1 

STARTSIM 

CAF 

BIT14 

00  84 

REF 

1 

05,2453 

0 5105 

0 

TC 

F INDVAC 

0Q8R 

05t  2454 

77777 

0 

SIM2CADR 

OCT 

77777 

0086 

0 5^2455 

77777 

0 

OCT 

77777 

3 10  ^6 

0 

SK  T P S T M 

FA 

n sp  t ar  + 1 1 n 

L H Q 1 

00871 

REF 

1 

05,2457 

7 4771 

0 

MASK 

B ITS4&6 

00872 

REF 

16 

LAST 

187 

05, 2460 

6 4735 

1 

AD 

B 1 T 1 5 

OOftP 

R FF 

17 

1 AST 

??  6 

0 5-»  2 46  1 

55 ' 0 36 

1 

TS 

DSPTAB  +110 

0089 

REF 

13 

LAST 

103 

05,2462 

3 4740 

0 

CA 

BIT12 

R FF 

1 

0 5-»  2 463 

54  333 

c 

TS 

DUMP  CNT 

0093 

REF 

7 

LAST 

20  6 

05,2464 

3 4755 

1 

CA 

ZERO 

00q  ^ 1 

REF 

2 

L AS  T 

12  4 

05t  ? 46  5 

55*365 

1 

TS 

E PSP UNT 

009315 

REF 

i 

05,2466 

54  375 

1 

TS 

FAIL  REG 

00932 

REF 

2 

LAST 

226 

05,2467 

54  376 

1 

TS 

FAIL  REG  +1 

009325 

REF 

3 

LAST 

22  6 

0S,2470 

54  377 

0 

TS 

FAIL  REG  +2 

00933 

REF 

2 

LAST 

209 

05,2471 

54  320 

1 

TS 

REDO  CTR 

Q093  35 

R FF 

1 

ric;  , 2 472 

P P I P 1 2 

00934 

REF 

9 

LAST 

175 

05, 2473 

5 5*  3 L3 

0 

\>  O 

TS 

DSRUPTSW 

-0094 

R E F 

?3 

LAST 

2 2 6 

ns, 2474 

0095 

05,’  2475 

0 0006 

1 

cHr 

EXTEND 

0096 

REF 

7 

LAST 

19  5 

05,2476 

01  Oil 

0 

WRITE 

D SAL  MOUT 

0097 

REF 

8 

LAST 

22  6 

05,2477 

4 4755 

0 

cs 

ZERO 

0098 

REF 

1 

05, 2500 

54  055 

0 

TS 

THRUST 

0099 

p FF 



0PT  2 qF>  1 

3 4751 

0100 

REF 

1 

05,2502 

55' 273 

1 

TS 

RCSF  LAGS 

0101 

REF 

2 

LAST 

185 

05, 2503 

3 4355 

0 

CA 

PRI 030 

0102 

REF 

1 

05,  2504 

54  3 66 

o 

TS 

RESTREG 

0103 

REF 

9 

LAST 

226 

05,2505 

3 4755 

1 

CA 

ZERO 

0104 

REF 

2 

LAST 

121 

05,  2 506 

55*  246 

1 

TS 

A BDE  LV 

0105 

REF 

i 

05, 2507 

54  371 

0 

TS 

NVSA VE 

0106 

REF 

i 

05,2510 

55' 072 

1 

TS 

FBANKTEM 
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USER'S  PAGE  MO.  1 EO  S? 


FRFSH  AND  RESTART 

FRESH  START.  COMES  HERE  FROM  PINBALL. 
SUBROUTINE  DOES  MOST  OF  THE  WORK. 

PATCH.. ..TCF  STARTSIM FOR  SI.MULATIOM 


PATCH  2CADR  (AND  EBANK  DESIGNATION)  OF 
SIMULATION  START  ADDRESS. 


TURN  OFF  ALL  DSPTAB  +11D  LAMPS 
EXCEPT  THE  GIMBAL  LOCK  & NO  ATT  ONLY  ON 
REQUESTED  FRE_SH  START. 

INITIALIZE  DOWNLINK  ERASABLE  MEMORY 
DUMP  FOR  ONE  PASS. 


INSURE  ENGINE  IS  OFF. 


INITIALIZE  ATTITUDE  ERROR  DISPLAYS. 
SUPER  BANK  PRIORITY  FOR  DISPLAYS. 


DAP  INITIALIZATION 


GAP 
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0107 

REF 

6 

LAST 

207 

05,2511 

55' 262 

1 

TS 

CH5M ASK 

0108 

REF 

5 

LAST 

207 

05, 2512 

55*263 

0 

TS 

CH6MASK 

0 1 0Q 

R FF 

7 

1 AST 

2 0 7 

05,2513 

5 5 ' 2 76 

1 

TS 

PVAL VEST 

FOR  RCS  FAILURE  MONITOR 

0110 

REF 

2 

LAST 

124 

05,2514 

55*360 

1 

TS 

EPESTORF 

*****  MUST  NOT  BE  REMOVED  FROM  DOFSTART 

0111 

REF 

2 

LAST 

124 

05,  2515 

55*362 

0 

TS 

S MOD  E 

*****  MUST  NOT  RE  REMOVED  FROM  DOFSTART 

0112 

REF 

4 

LAST 

22  3 

05, 2 516 

54  332 

1 

TS 

DNLS  TCOD 

SELECT  POO  DOKNl I ST 

0113 

REF 

2 

LAST 

223 

05,2517 

55*324 

1 

TS 

ACS WORD 

ALLOW  AGS  INITIALIZATION 

0114 

REF 

2 

LAST 

126 

05,2520 

55' 501 

0 

TS 

UPS V FLAG 

ZERO  UPDATE  STATE  VECTOR  REQUEST  FLAGWRD 

Oils 

05,  2521 

0 0006 

1 

EXTEND 

0116 

REF 

1 

05,2522 

01  005 

0 

WRITE 

CHAN  5 

TURN  OFF  RCS  JETS. 

0117 

05,2523 

0 0006 

1 

EXTEND 

0118 

REF 

l 

05,  2 524 

01  006 

0 

WRITE 

CHAN  6 

TURN  OFF  RCS  JETS. 

0119 

05,  2525 

0 0006 

1 

EXTEND 

0120 

REF 

13 

LAST 

20  2 

05,  2526 

01  012 

0 

WRITE 

CHAN  12 

0121 

05f  2 527 

0 0006 

1 

EXTEND 

0122 

REF 

1 

05, 2530 

01  013 

1 

WRITE 

CHAN  13 

0123 

05,2531 

0 0006 

1 

EXTEND 

01  24 

R E F 

3_ 

LAST 

190 

05, 2532 

01  014 

0 

WRITE 

CHAN  14 

0125 

REF 

18 

LAST 

226 

05, 2533 

4 1036 

1 

CS 

DSPTAB  + 1 1 D 

0126 

REF 

2 

LAST 

22  6 

05, 2534 

7 4771 

0 

MASK 

B l TS4C6 

0127 

R EF 

37 

LAST 

22  3 

05,2535 

10  000 

0 

CCS 

A 

0128 

05,  2536 

0 2542 

0 

TC 

+ 4 

0129 

REF 

3 

LAST 

227 

05,  2537 

3 4771 

1 

CA 

B I TS486 

0130 

_ O5,?540 

0 0006 

1 

EXTEND 

THE  l MU  WAS  IN  COARSE  ALIGN  IN  GIMBAL 

0131 

REF 

14 

LAST 

227 

05,2  541 

05  012 

1 

WOR 

CHAN  12 

LOCK,  SO  PUT  IT  BACK  INTO  COARSE  ALIGN. 

0132 

REF 

1 

05,2542 

0 2643 

1 

+ 4 

TC 

MR . K LEAN 

0133 

REF 

10 

LAST 

22  6 

05,  2 543 

4 4755 

0 

CS 

ZEPC 

0134 

REF 

1 

05,2544 

55*011 

1 

TS 

MODP  EG 

0135 

REF 

1 

05,2545 

3 33  50 

1 

CAF 

I M30  IN I F 

FRESH  START  I MU  INITIALIZATION. 

0136 

REF 

38 

LAST 

219 

05,2546 

55*302 

0 

TS 

I MOD  ES30 

0137 

REF 

1 

05,2547 

3 3062 

0 

CAF 

MAXDB 

0138 

REF 

1 

05,2  550 

55*346 

0 

TS 

DE 

0139 

REF 

—2 

LAST 

22  6 

05,  2551 

3 4751 

0 

CAF 

FOUR 

0140 

REF 

1 

05,2552 

55*325 

0 

TS 

RATE INDX 

INITIALIZE  K ALCMANU  PATE 

0141 

REF 

1 

05, 2553 

3 3056 

1 

CA 

BODL STRT 

0142 

REF 

1 

05,2554 

54  1 1 I 

1 

TS 

D APB  COLS 

0143 

REF 

1 

05,  2555 

3 5015 

0 

CAF 

EBANK6 

0144 

REF 

1 

05,  2 556 

54  003 

0 

TS 

EBANK 

0145 

REF 

1 

E6, 1400 

EB ANK= 

HI  A SCENT 

01451 

REF 

1 

05,2557 

3 3053 

1 

CA 

STIK  STRT 

01452 

REF 

I 

05,  2560 

55*  442 

0 

TS 

STIKSFNS 

01453 

REF 

1 

05,  2 561 

3 3054 

0 

CA 

RATE  STRT 

01454 

REF 

2 

LAST 

145 

05,2562 

5 5 ' 4 74 

0 

TS 

-RAT  EDB 

0146 

REF 

— 1 — 

05,2563 

3 2000 

0 

CAF 

FULL  APS 

INITIALIZE  MAXIMUM  ASCENT  MASS  FOR  USF 

0147 

REF 

2 

LAST 

227 

05,  2564 

5 5 ' 4 00 

0 

TS 

HIASCENT 

BY  1/ACCS  UNTIL  THF  PAD  LOAD  IS  DONE. 

0148 

REF 

1 

05,2565 

3 3057 

0 

CA 

7700  iOCT 

LOAD  DAP  FILTER  GAINS  PAD  LOAD 

-GAP  : 

L 

0149 

0150 

01-51- 

0152 

0153 

0154 

0155 

0156 

01-57- 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 
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REF 

1 

05,  2 566 

55*403 

0 

TS 

DKTR AP 

TO  BEST  PRESENT  ESTIMATE  OF  GOODIES 

REF 

1 

05,2567 

55 ' 406 

0 

TS 

LMTR  AP 

. 14  OEG 

0^*2  ^70 

1 

- CA 

60  DE  C 

REF 

1 

05,2571 

55' 405 

0 

TS 

DKKAOSN 

REF 

1 

05,2572 

55 ' 4 10 

l 

TS 

LMKACSN 

6 SEC  GAIN  FOR  ALPHA 

OS  t 2 57  3 

S 47  55 

1 

GA  7t  RH  __ 

REF 

1 

05,2574 

5 5 ' 4 07 

1 

TS 

L MOM  FG AN 

UNITY  GAIN 

REF 

2 

LAST 

223 

05, 2575 

3 43  63 

0 

CA 

TEN 

REF 

1 

05 , 2 576 

55*404 

1 

TS 

DKOMEGAN 

1 SEC  GAIN  FOR  OMEGA 

REF 

17 

LAST 

206 

05,2577 

3 4744 

1 

CAF 

BITS 

SET  DOCKED  D8  TO  1.4  OEG.  MAY  OVERWRITE 

REF 

1 

05, 2600 

55 ' 41 1 

0 

TS 

DKDB 

WITH  PAD  LOAD. 

REF 

1 

0 5,-2  601 

3 5026 

0 

CAF 

I M3  3 I NI  T 

REF 

23 

LAST 

222 

05,2602 

6 4746 

0 

AD 

B IT6 

KEEP  BOTH  DAP  AND  ERROR-NEEDLES  DISPLAY 

REF 

16 

LAST 

196 

05, 2603 

55*303 

1 

TS 

I MDDES33 

OFF  UNTIL  I CDU  ZERO  IS  FINISHED. 

05,2604 

0 0006 

1 

EXTEND 

INITIALIZE  SWITCHES  ONLY  ON  FRESH  START. 

REF 

1 

05,2605 

3 3355 

1 

DC  A 

SWI N IT 

R FF 

17 

1 AST 

210 

05, 2606 

52  075 

1 

DXCH 

STAT  E 

REF 

2 

LAST 

22  8 

05,2607 

3 3356 

1 

CA 

SKIN  IT  +2 

REF 

18 

LAST 

228 

05,2610 

54  076 

1 

TS 

STATE  +2 

R FF 

2 

1 AST 

? ? 1 - 

05,261 1 

3 4737 

o 

CA 

RE  F SMB  I T 

DO  NOT  ALTER  PEFSMFLG  ON  FRESH  START. 

REF 

19 

LAST 

22  8 

05,2612 

7 0077 

0 

MASK 

STATE  + 3 

REF 

3 

LAST 

228 

05,2613 

6 3357 

0 

AD 

SWIN  IT  +3 

RFF 

ZD 

1 AST 

22  8 

05,2614 

54  077 

0 

TS 

STATE  +3 

05,2615 

0 0006 

l 

EXTEND 

REF 

4 

LAST 

22  8 

05, 2616 

3 3361 

0 

DC  A 

SWI NIT  +4 

REF 

21 

LAST 

22  8 

05,2617 

52  101 

0 

DXCH 

STAT  E +4 

05,2620 

0 0006 

1 

EXTEND 

REF 

5 

LAST 

22  8 

05, 2621 

3 3363 

1 

DC  A 

SWIN  IT  +6 

REF 

22 

LAST 

22  8 

05, 2622- 

52  103 

1 

DXCH 

STAT  E +6 

REF 

1 

05, 2623 

3 4744 

1 

CA 

SURFFBIT 

00  NOT  ALTER  SURFFLAG  ON  FRESH  START. 

REF 

1 

05,2624 

6 4740 

0 

AD 

CMOONBIT 

CMOONFLG 

REF 

1 

05,2625 

6 4741 

1 

AD 

LMOONBIT 

L MCONFLG 

REF 

23 

LAST 

228 

05,  2626 

7 0104 

0 

MASK 

STATE  +8  D 

REF 

6 

LAST 

228 

05,2627 

6 3364 

0 

AD 

SWIN IT  +80 

- REF 

24 

LAST 

22  8 

05,2630 

54  104 

0 

TS 

STATE  +8  D 

REF 

7 

LAST 

22  8 

05, 2631 

3 3365 

1 

CA 

SWIN IT  +90 

REF 

25 

LAST 

22  8 

05, 2632 

54  105 

1 

TS 

STATE  +90 

RFF 

—4— 

05,2633 

3 4737 

0 

CA 

APSE  LB  I T 

DO  NOT  ALTFP  AP  SF  L AG  ON  FRESH  START. 

REF 

26 

LAST 

228 

05,2634 

7 0106 

1 

MASK 

STATE  +10D 

REF 

8 

LAST 

22  8 

05,2635 

6 3366 

1 

AD 

SWIN  IT  +100 

REF 

—27 — 

LAST 

22  8 

05, 2636 

54  106 

1 

TS 

STAT  E +10D 

REF 

9 

LAST 

228 

05, 2637 

3 3367 

0 

CAF 

SWINIT  +110 

REF 

28 

LAST 

228 

05,2640 

54  107 

0 

TS 

STATE  +1  ID 

REF 

2 

LAST 

180 

05,2641 

0 46  3 5 

0 

ENDRSTRT  TC 

POST  JUMP 

NOW  IN  ANOTHER  BANK. 

REF 

1 

05, 2642 

03205 

0 

CADR 

DUMM  Y JOB  + 2 

PICKS  UP  AT  RELINT.  I DONT  ZERO  NEWJOB) 

05,2643 

0 0004 

0 

MR.KLEAN  INHINT 
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L FRESH  START  AND  RESTART 


0195 

05, 2644 

0 0006 

1 

FXTEND 

0196 

REF 

2 

LAST 

172 

05,2645 

3 4755 

I 

DC  A 

NEGO 

01 Q7 

REF 

1 

05, 2646 

52  755 

1 

DXCH 

-PHA  SE2 

0198 

05, 2647 

0 0006 

1 

POOKL  E AN 

EXTEND 

0199 

REF 

3 

LAST 

22  9 

05,  2650 

3 4755 

1 

OCA 

NEGO 

0200 

REF 

4 

05,  2651 

52  761 

0 

DXCH 

-PHA  SE4 

0201 

05,2652 

0 0006 

1 

V37KLEAN 

EXTEND 

0202 

REF 

4 

LAST 

22  S 

05,  2653 

3 4755 

1 

DC  A 

NEGO 

REF 

l 

05 » 2654 

52  753 

1 

DXCH 

-PH ASE1 

0204 

05, 2655 

0 0006 

1 

EXTEND 

0205 

REF 

5 

LAST 

229 

05,2656 

3 47  55 

1 

DC  A 

NEGO 

0206 

REF 

1 

05,2  657 

52  757 

0 

DXCH 

-PHA  SE3 

0207 

05,2660 

0 0006 

1 

EXTEND 

0208 

REF 

6 

LAST 

22  9 

05, 2661 

3 4755 

1 

OCA 

NEGO 

0209 

REF 

1 

05, 2662 

52  763 

1 

DXCH 

-PHASE5 

0210 

05,2663 

0 0006 

1 

EXTEND 

0211 

REF 

7 

LAST 

229 

05, 2664 

3 4755 

1 

DC  A 

NEGO 

0212 

REF 

1 

05,2665 

52  765 

1 

DXCH 

-PHASE6 

0213 

REF 

14 

LAST 

20  7 

05, 2666 

0 0002 

0 

TC 

3 
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USFR'S  PAGE  MO 


4 


E 6 S3 


GAP : 

L 

P02  14 

0215 

0217 

H321r8 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 
022  7 
0228 
0229 

R0230 

R0232 

R0234 

R0236 

R0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 
02  50 

0251 

0252 

0253 

0254 

0255 
02  56 

0257 

0258 
02  59 

A0260 

A0261 

0269 

A0270 
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FRESH  START  AND  RESTART  USER'S  PAGF  NO.  5 E6  S3 

COMES  HERE  FROM  LOCATION  4000*  GOJAM.  RESTART  ANY  PROGRAMS  WHIC 


REF  4 LAST  226  E3.1400 

REF  3 LAST  226  05,2667  24  320  0 GOPROG 


FRANK-  LSI  1 
I NCR  RFDOCTR 


-H  MAY  HAVE  REEN  RUNNING  AT  THE  TIME. 
ADVANCE  RFSTAPT  COUNTER. 


BEF 

— L5— 

—LAST 

22-9 

05.2670 

05.2671 

22 

0 

: 002 
0006 

-Q-- 

1 

REF 

1 

05,2672 

04 

007 
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ENGINE  ON,  OFF  AND  ISS  WARNING. 


CLEAR  READRFLG  FOR  R29 
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0411 

0412 

REF 
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4 

1 
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05.3145 

05.3146 
05, 3 147 

4 

7 

_0_ 

0077 

4741 

0006 

0 

0 

1 

cs 

MASK 

EXTEND 

FLAGWRD3 
NP2  9 FBI T 

DURING  SOFTWARE  R ESTAR T .CLEAR  TURNON, 
REPOS  IT  ION, CDU  ZERO  AND  REMODE  BITS 
IN  RADMODES, SINCE  TASKS  ASSOCIATED 

0413 

05,3150 

1 

3152 

0 

BZF 

<-2 

WITH  THESE  BITS  HAVE  BEEN  KILLED 

0414 

REF 

16 
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194 

05,3151 

3 

4742 

1 

CAF 

3 I T 1 0 

ALSO  IF  R 29  HAD  BEEN  REQUESTED, 

0415 

REF 

1 

05-,-3  152 

6 

3342 

1 

AD 

CLCT32001 

(N0R29FLG  = 0)  CLEAR  BIT  10  RADMODES 

0416 

05, 3153 

4 

0000 

0 

COM 

TO  MAKE  R 2 9 FORGET  IT  HAD  STARTED 

0417 

REF 

16 
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234 

05,3 154 

7 

0110 

0 

MASK 

RADMODES 

DESIGNATING 

HA  1 Q 

ft  Ff 

^ 7 

LAST 

23  5 

05,  3155 

54 

110 

0 - 

TS 

RADMODES 

u*r  r o 

0419 

REF 

1 

05,3156 

3 

3344 

1 

CAF 

OC  T 2 7470 

DURING  SOFTWARE  RESTART,  DO  NOT  DISTURB 

0420 

05,3157 

0 

0006 

1 

EXTEND 

IMU  FLAGS.  (COURSE  ALIGN  ENABLE,  ZERO 

042 1 

REF 

16 
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230 

05^3160 

03 

i 012 

J 

WAND 

CHAN  12 

I MU  CDUS , ENABLE  IMU  COUNTFR ) AND  GIMBAL 

A0422 

TRIM  DRIVES.  LEAVE  RR  LOCKON  ENABLE 

A0423 

ALONE. 

04232 

REF 

2 
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20  1 

05, 3161 

4 

4750 

0 

CS 

NORR  MBIT 

ENABLE  R 2 5 . 

04234 

REF 

6 

LAST 

231 

05,3 162 

7 

0101 

0 

MASK 

FLAG  WRD5 

04236  REF  7 LAST  23  5 05,3163  54  101  0 TS  FLAG  WRD5 


0424 

0425 

REF 

1 

05. 3164 

05. 3165 

3 

0 

3345 

0006 

0 

1 

CAF 

EXTEND 

3CT74160 

DURING  SOFTWARE  RESTART,  DO  NOT  DUSTUR8 
TELEMETRY  FLAGS,  RESET  TRAP  FLAGS,  AND 

0426 
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3 
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234 

05,3 166 

03 

- 013 

0 

WAND 

CH A 1 13 

ENABLE  T6RUPT  FLAG. 
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05, 3 167 

3 

4740 

_Q 

CAF 
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REENABLE  RUPT10  (RUPT  QUICKLY 

0428 

05,3170 

0 

0006 

1 

EXTFND 

RESUMES  EXCEPT  DURING  P64) 

0429 
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4 
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05 
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0 

WOR 

CHAN  13 

0430 

REF 
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234 

05, 3172 

3 

4746 

0 

CAF 

BIT6 

DURING  SOFTWARE  RESTART,  DO  NOT  DISTURB 

0431 

05,3173 

0 
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1 

EXTEND 

GYRO  ENABLE  FLAG. 
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1 

05,  3 175 
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0 
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STAR  TEB 

0435 
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4 
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05, 3 176 
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0 

TS 

EBAN  K 

SET  FOR  E3 
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05, 3200 
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1 

TS 
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0438 

REF 

7 

LAST 
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55*406 

0 

TS 

LST  1 

+ 6 

0439 
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8 

LAST 
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05,3202 

55*  405 

0 

TS 

L ST  1 

+5 

0440 

REF 

9 

LAST 
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05, 3203 

5 5' 4 04 

1 

TS 

LST  1 

+ 4 

0441 

REF 

10 

LAST 
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05, 3204 

5 5 ' 4 03 

0 

TS 

LST1 

+ 3 

0442 

REF 

. 11 

LAST 

23  5 

05,3205 

5 5 ' 4 02 

1 

TS 

LST  1 

+ 2 

0443 

REF 

12 
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235 

05, 3206 

55*401 

1 

TS 

L ST  1 

+ 1 

0444 

REF 

13 

LAST 

235 

05, 3207 

55*4  00 

0 

TS 

LST1 

0445 

REF 

1 

05, 3210 

4 5236 

1 

CS 

ENDT  ASK 

0446 

REF 

1 

05,3211 

55*410 

1 

TS 

LST2 

0447 

REF 

2— 
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235 

05,3212 

55*412 

0 

TS 

LST2 
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0448 
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3 
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0 

TS 
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+4 
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05, 3214 

55*416 

1 
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LST2 
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23  5 
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55*420 

1 

TS 

LST2  +80 

0451 
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6 
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236 

05,3216 

55' 422 

0 

TS 

LST2  +100 

n 5t  ^ 2 1 7 

55*424 

0 

TS 

LST2  +120 

04  52 

■■  ■t'HJ'  1 ■ 

0453 

REF 

8 

LAST 

236 

05, 3220 

55*426 

1 

TS 

LST2  +140 

0454 

REF 

9 

LAST 

236 

05,3221 

55*430 

0 

TS 

L ST  2 +160 

2 3 5 

ns f 3 2? 2 

4 52  37 

0 

CS 

ENDTASK  +1 

0456 

REF 

10 
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236 

05, 3223 

55*411 

0 

TS 

LST2  +1 

0457 

REF 

11 

LAST 

236 

05, 3224 

55*413 

1 

TS 

LST2  +3 

REF 

1 2 

4_  AST 

? 3 6 

05, 3225 

-55*415 

1 

TS 

LST2  +5 

0459 

REF 

13 

LAST 

236 

05, 3226 

55*417 

0 

TS 

LST2  +7 

0460 

REF 

14 

LAST 

236 

05,3227 

55*421 

0 

TS 

LST2  +90 

L AST 

2 3^ 

nst 3730 

55*423 

L 

TS 

LST2  +11D 

0462 

REF 

16 

LAST 

236 

05,3231 

55*425 

1 

TS 

LST2  + 13  D 

0463 

REF 

17 

LAST 

236 

05,3232 

55*427 

0 

TS 

L ST  2 +150 

0464  REF 18  LAST  236  05,3233  -55*  431  1 — TS  LST2  +170 


0465 

REF 

14 

LAST 

234 

05, 3234 

4 4 755 

0 

CS 

ZERO 

MAKE  ALL  EXECUTIVE  REGISTER  SETS 

REF 

H5r  ^ 735 

54  1 67 

o 

TS 

PRIORITY 

AVAILABLE . 

046  7 

REF 

2 

LAST 

236 

05,  3236 

54  2 03 

1 

TS 

PRIORITY  +120 

0468 

RFF 

3 

LAST 

236 

05, 3237 

54  217 

1 

TS 

PRIORITY  +24D 

046°) 

REF 

4 

1 AST 

23  6 

05, 3240 

54  233 

1 

TS 

PRIORITY  +360 

0470 

REF 

5 

LAST 

236 

05, 3241 

54  247 

1 

TS 

PRIORITY  +48D 

0471 

REF 

6 

LAST 

236 

05, 3242 

54  263 

1 

TS 

PRIORITY  +60D 

0472 

REF 

7 

L AS  T 

23  6 

05,3243 

54  277 

1 

TS 

PRIORITY  +72D 

0473 

REF 

8 

LAST 

236 

05,3244 

54  313 

1 

TS 

PRIORITY  +84D 

REF 

10 

LAS  T 

22^f 

n 5 T 3 24^ 

5^*313 

o 

TS 

n 5R]  i 

0475 

REF 

1 

05, 3246 

54  067 

1 

TS 

NEW  JOB 

SHOWS  NO  ACTIVE  JOBS. 

R EF 

\ 

0 5t  R 247 

3 3341 

C A F 

v AT  1 ADR  E 

MAKE  ALL  VAC  AREAS  AVAILARLE. 

04  77 

REF 

1 

05, 3250 

54  400 

1 

TS 

V AC  1 USE 

0478 

REF 

1 

05, 3251 

6 3343 

0 

AD 

LTHV ACA 

0479 

REF 

1 

0 5,  3252 

o 

TS 

VAC  2 US  E 

0480 

REF 

2 

LAST 

236 

05, 3253 

6 3343 

0 

AD 

LTHV ACA 

0481 

RFF 

1 

05,  3254 

54  530 

0 

TS 

V AC3 USE 

04  82 

REF 

3 

LAST 

2 3-6 

- 05,3255 

6 3343 

0 

AD 

LTHV ACA 

0483 

REF 

1 

05, 3256 

54  6 04 

1 

TS 

VAC4USE 

04  84 

REF 

4 

LAST 

236 

05,3257 

6 3343 

0 

AD 

LTHV ACA 

0485 

REF 

1 

05, 3260 

54  660 

0 

TS 

VAC  5 USE 

0486 

REF 

3 

LAST 

22  8 

05, 3261 

3 4363 

0 

CAF 

TEN 

0487 

REF- 

25 

-LAST 

23  2 

05, 3262- 

54  154 

0 DSP  OFF 

TS 

MPAC 

R1,R-2»R3)  . 

0489 

REF 

15 

LAST 

235 

05,3263 

4 4740 

1 

CS 

RIT12 

0490 

REF 

26 

LAST 

236 

05, 3264 

50  154 

1 

INDEX 

MPAC 

0491 

REF 

22 

LAST 

23  1 

05, 3265 

55' 023 

0 

TS 

DSPT  AB 

0492 

REF 

27 

LAST 

2 36 

05,3266 

10  154 

0 

CCS 

MPAC 

0493 

REF 

1 

05, 3267 

1 32  62 

0 

TCF 

DSPOFF 

REF  1 05,3270  55*326  0 TS  DELAYLOC 

REF  2 LAST  236  05,3271  55'327  1 TS  DELAYLOC  +1 
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3 
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05,3272 

55*330 

1 

TS 

DEL AYLOC 

0497 

REF 

1 

05, 3273 

55' 074 

1 

TS 

R 1 S A VF 

^274 

S4  045 

1 

TS 

! NL  I NK 

0499 

REF 

7 

LAST 

172 

05,3275 

54  776 

0 

TS 

OSPCNT 

0500 

REF 

1 

05, 3276 

55' 042 

1 

TS 

C A3R  STOP 

0501 

REF 

l _ 

0 5 f 3277 

55' 013 

0 

TS 

REQRET 

0502 

REF 

1 

05,3300 

5 5 ' 0 1 5 

0 

TS 

CLPASS 

0503 

REF 

1 

05, 3301 

5 5 ' 0 1 2 

1 

TS 

DSPLOCK 

05Q4 

REF 

1 

05 , 3302 

55' 020 

0 

TS 

MONSAVE 

0505 

REF 

1 

05, 3303 

5 5 ' 02 1 

1 

TS 

MONS AVE1 

0506 

REF 

1 

05, 3304 

55*  001 

0 

TS 

VERBREG 

0507 

REF 

05,-3305 

55*002 

0 

TS 

NOUN  PEG 

0508 

REF 

1 

05, 3306 

55' 043 

0 

TS 

DSPL  1ST 

0509 

REF 

1 

05, 3307 

55*312 

1 

TS 

MARK  STAT 

0510 

REF 

1 

05,3310 

55*  044 

1 

- TS 

EXTV  BACT 

0511 

REF 

2 

LAST 

223 

05, 3311 

55*304 

0 

TS 

IMUCADR 

0512 

REF 

1 

05,3312 

55*  305 

1 

TS 

OPTC  ADP 

0513 

REF 

05,3313 

55*306 

1 

TS 

R ADC  ADR 

0514 

REF 

2 

LAST 

12  2 

05, 3314 

55*307 

0 

TS 

ATTC ADP 

0515 

REF 

1 

05,3315 

55*314 

1 

TS 

LGYPO 

0516 

REF 

1 

05,3316 

54  100 

1 

TS 

FLAG  WRD4 

0517 

REF 

1 

05, 3317 

3 4760 

1 

CAF 

N OUT  CON 

0518 

REF 

5 

LAST 

175 

05, 3320 

55*016 

0 

TS 

NOUT 

0519 

REF 

7 

LAST 

224 

05, 3321 

4 4753 

0 

CS 

ONE 

0520 

REF 

1 

05, 3322 

55' 100 

0 

TS 

SAMP  LIM 

0521 

REF 

27 

LAST 

23  5 

05, 3323 

3 4746 

0 

CAF 

BITE 

0522 

REF 

17 

LAST 

228 

05, 3324 

7 13  03 

1 

MASK 

IMOD  ES33 

0523 

RFF 

2 

LAST 

228 

05, 3325 

6 5026 

0 

AD 

I M3 3 INIT 

0524 

R-E  F 

18 

-LAST 

23  7 

05, 3326 

55*303 

1 

TS 

I MOD  ES33 

0525 

REF 

1 

05, 3327 

3 3340 

0 

CAF 

LESCHK 

0526  REF  2 LAST  124  05,  3330  55'361  0 TS  SELF  RFT 


0527 

REF 

1 

05, 3331 

4 4360 

1 

CS 

VD1 

052« 

REF 

2 

LAST 

1 7 3 

05, 3332 

54  777 

1 

TS 

D SPC  CUNT 

0529 

REF 

17 

LAST 

233 

05, 3333 

0 0002 

0 

TC 

Q 

0530 

REF 

— 6- 

LAST 

234 

E6, 1 537 

FBANK= 

AOSQ 

0531 

REF 

1 

05, 3334 

02024 

0 

IDLE  ADR 

2CADP 

DA  PI  DL  ER 

0531 

REF 

1 

05, 3335 

34066 

0 

0532 

05, 3336 

00435 

0 

IFA IL INH 

OCT 

435 

0533 

REF 

1 

05,  3337 

03437 

1 

L DN  PH AS  1 

GENADR 

DNPH  ASE1 

0534 

REF 

1 

05,3340 

03344 

d 

LESCHK 

GENADR 

S ELF  CHK 

0535 

REF 

2 

LAST 

236 

05, 3341 

00400 

0 

VAC  1 ADRC 

ADRES 

VAC  1 USE 

0536 

05, 3342 

32001 

1 

OCT3200  l 

□ CT 

3200  1 

0537 

05, 3343 

00054 

0 

LTHVACA 

DEC 

44 

0538 


05,  3344 


27470  l OC T 27470  OCT 


27470 
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KILL  MONITOR 


MAKE  EXTENDED  VERBS  AVAILABLF 


KILL  INTERFACE  DISPLAYS 
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NO  PIP  OR  TM  FAILS. BIT6=0  IN  THIS  WORD. 
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05,  3345 

74160 

0 

OCT  74160 

OCT 

74160 

05, 3346 
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0 

OCT  3000  1 

OCT 

3000  1 

REF 

1 5 007 

START  EB 

EQUALS- 

EBANK3 

REF 

1 4756 

NUMGRPS 

EQUALS 

FIVE 

05, 3347 

77755 

0 

-ELR 

OCT 

-22 

-ERROR  LIGHT  RESET  KEY  CODF. 

05 » 3 350 

374  1 1 

1 

IM30INI F 

OCT 

3741  1 

INHIBITS  I ML)  FAIL  FOR  5 SFC  AND  PIP  ISSW 

05, 3351 

37000 

0 

IM30INIR 

OCT 

37000 

REF 

2 LAST  196  5026 

IM33INIT 

= 

PRI016 

NO  PIP  OR  TM  FAIL  SIGNALS. 

05t  3352 

00450 

0 

9,6,4 

OCT 

450 

05,3353 

00102 

1 

RMODINIT 

OCT 

00102 

05,3354 
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1 

SWINIT 

OCT 

0 

05t  3355 
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1 

OCT 

0 

05,3356 

00000 

1 

OCT 

0 

05, 3357 

02000 

0 

OCT 

02000 

BIT  11  = N0R29FLG 
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.0 

05,3361 

00000 
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0 
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0 
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0 
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05, 3367 

40000 

0 

OCT 

40000 
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1 
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6003 
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0 
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0581 

REF 
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-PHA  SE4 

0582 

REF 

3 

LAST 

22  8 
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0 4635 

o 

TC 

POST  JUMP 

0583 

REF 

1 

6006 
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0 

CADP 

GOPOOFIX 

0584 
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00024 

1 
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MM 

20 

0585 

6010 
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0 
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MM 

25 

0586 

20, 2004 

BANK 

20 
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REF 
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SETLOC 
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04, 2024 

BANK 

0589 

REF 

I 
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REF 
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REF 
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04, 2025 
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REF 
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LAST 
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0 5516 

0 

TC 

DOWN  FLAG 
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04,2027 
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1 2030 

1 

TC  F 

-3 
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R0623 
R0625 
R0626 
R 0627 
R 062  9 
R0631 
R0633 
R0634 
R0635 
R 06  36 
R0637 
R0638 
R0639 
R0641 
R0643 

R 0644 

R0645 

R0646 

R0647 

R0648 

R0649 


FRESH  START  AND  RESTART  USER'S  PAGE  NO.  16  E3  S3 

PROGRAM  NAME  V 37  ASSEMBLY  SUNDANCE 

LOG  SECTION  FRESH  START  AND  RESTART 

FUNCTIONAL  DESCRIPTION 

1.  CPECK  IF  NEW  PROGRAM  ALLOWED.  IF  BIT  1 OF  FLAGWRD2I NODOFLAGI  IS  SET,  AN  ALARM  1520  IS  CALLED. 

2.  CHECK  FOR  VALIDITY  OF  PROGRAM  SELECTED.  IF  AN  INVALID  PROGRAM  IS  SELECTED,  THE  OPERATOR  FRROR  LIGHT  IS 
SET  AND  CURRENT  ACTIVITY,  IF  ANY,  CONTINUES. 

3.  SERVICER  IS  TERMINATED  IF  IT  HAS  BEEN  RUNNING. 

4.  INSTALL  IS  EXECUTED  TO  AVOID  INTERRUPTING  INTEGRATION. 

5.  THE  ENGINE  IS  TURNED  OFF  AND  THE  DAP  IS  INITIALIZED  FOR  COAST. 

6.  TRACK  AND  UPDATE  FLAGS  ARE  SET  TO  ZERO. 

7.  DISPLAY  SYSTEM  IS  RELEASED. 

8.  THE  FOLLOWING  ARE  PERFORMED  FOR  EACH  OF  THE  THREE  CASES. 

A.  PROGRAM  SELECTED  IS  POO. 

1.  RENDEZVOUS  AND  P25  FLAGS  ARE  RESET. (KILL  P20  AND  P25) 

2.  S T AT INT 1 IS  SCHEDULED  BY  SETTING  PFSTAPT  GROUP 

3.  MAJOR  MODE  00  IS  STORED  IN  THE  MODE  PEGISTER( MOD PEG) . 

4.  SUPERBANK  3 IS  SELECTED. 

5.  NODOFLAG  IS  RESET. 

6.  ALL  RESTART  GROUPS  EXCEPT  GROUP  2 ARE  CLEARFD.  CONTROL  I STR ANSFERRED  TO  RESTART  PROGRAM  ( GOPROG2 ) 
WHICH  CAUSES  ALL  CURRENT  ACTIVITY  TO  BE  DISCONTINUED  AND  A 9 MINUTE  INTEGRATION  CYCLE  TO  BE 

IN  I T I AT  EQ-. 

B.  PROGRAM  SELECTED  IS  P20  OR  P25. 

1.  IF  THE  CURRENT  MAJOR  MODE  IS  THE  SAME  AS  THE  SELECTED  NEWPROGR AM , THE  PROGRAM  IS  R E- I N I T I AL I Z E D 
-VIA  V37XFQ,  ALL  RESTART  GROUPS,  EXCEPT  GROUP  4 APE  CLEARED. 

2.  IF  THE  CURRENT  MAJOR  MODE  IS  NOT  EQUAL  TO  THE  NEW  REQUEST,  A CHECK  IS  MADE  TO  SEE  IF  THE  REQUEST- 
ED MAJOR  MODE  HAS  BEEN  RUNNING  IN  THE  BACKGROUND, 

AND  IF  IT  HAS,  NO  NEW  PROGRAM  IS  SCHEDULED,  THE  EXISTING 
P 2 0 OR  P25  IS  RESTARTED  TO  CONTINUE,  AND  ITS  M M IS  SET. 

3.  CONTROL  IS  TRANSFERRED  TO  G0PR0G2 . 

C.  PROGRAM  SELECTED  IS  NEITHER  P00,P20,  NOR  P25 

1.  V37XEQ  IS  SCHEDULED  (AS  A JOB)  BY  SETTING  RESTART  GROUP  4 

2.  ALL  CURRENT  ACTIVITY  EXCEPT  RENDEZVOUS  AND  TRACKING  IS  DISCONTINUED  BY  CLEARING  ALL  RESTART 
GROUPS.  IF  THE  RENDEZVOUS  OR  THE  P25  FLAG  IS  ON,  GROUP  2 IS  NOT  CLEARED,  ALLOWING  THESE  PROGRAMS 
TO  CONTINUE. 

INPLT/OUTPLT  INFORMATION 

A.  CALLING  SEQUENCE 

CONTROL  IS  DIRECTED  TO  V 37  BY  THE  VERBFAN  ROUTINE. 

VERBFAN  GOES  TO  C ( VER BT A B+C { VER BR EG ) ) . VERB  37  = MMCHANG. 

MMCHANG  EXECUTES  A TC  POSTJUMP,  CADR  V37. 

B.  ERASABLE  INITIALIZATION  NONE 


R0650 

R0651 


C.  OUTPUT 
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GAP: 

L 

R0652 

R0653 

R0654 

R0656 

R0657 

R0658 
R 06  5 9 
R0661 

R0662 

R0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 
06  75 

0676 

0677 

0678 

0679 

0680 

0681 

0682 

0683 

0684 

0685 

0686 

0687 

0688 
0689 


FRESH  START  AND  RESTART 


USER'S  PAGE  NO.  17 


E3  S3 


MAJOR  MCDE  CHANGE 
P DEBRIS  ■ 

MMNUMBER*  MPAC  +1*  MINDEX*  8ASETEMP  +CIMINDEX),  FLAGWRDO,  FLAGWRD1*  FLAGWRD2*  MODREG,  GOLOC  -1  * 
GOLOC,  GOLOC  +1*  GOLOC  +2,  BASETEMP,  -PHASE2,  PHASE2,  -PHASE4 


PROGRAM  ANALYSIS 


A. 

S LB ROUTINES— GALLED 

ALARM,  RELOSP , PINBRNCH,  INTSTALL,  ENGIN0F2 
DSPMM 

, ALLCOAST,  V37KLEAN , G0PR0G2 , FALTON,  FINDVAC,  SUPERSW, 

B. 

NORMAL  EXIT 

TC 

ENDOF JOB 

1 ROD  IMA  in  D Mnnp  fMAMCF  MHT 

PFRMI  TTF  n 1 

REF 

v • 

1 

04, 2037 

54  775 

0 

V 37 

TS 

MMNUMBER 

SAVE  MAJOR  MODE 

REF 

LAST 

2 7 7 

04r  7 040 

7 

47  5 5 

o 

CAF 

PR  I 0 30 

RESTART  AT  PINBALL  PRIORITY 

REF 

2 

LAST 

226 

04, 2041 

54  3 66 

0 

TS 

RESTREG 

3 

1^02 

l 

r a 

I M fl  p F s 7 0 

IS  I MU  BE INB  INITIALIZED 

REF 

28 

LAST 

237 

04,' 2 04  3 

7 

4746 

1 

MASK 

BITS 

REF 

42 

LAST 

232 

04,2044 

10  000 

0 

CCS 

A 

REF 

1 

04, 2 04  5 

1 

2 0 64 

0 

TC  F 

CANT  ROC 

REF 

2 

LAST 

242 

04,2  046 

4 

0775 

0 

CS 

MMNUMBER 

IS  P70  REQUESTED? 

REF 

1 

04, 2 047 

6 

2375 

1 

AD 

DEC7  0 

04,2050 

0 

0006 

1 

EXTEND 

REF 

1 

04, 2051 

1 

2370 

0 

BZF 

SETUP70 

YES 

REF 

8 

1 AST 

23  7 

-04-,  2 0 57 

6 

4753 

1 

AH 

flNF 

IS  P 7 1 REQUESTED? 

04,2053 

0 

0006 

1 

EXTEND 

REF 

i 

04, 2054 

1 

2367 

0 

BZF 

SETUP71 

YES 

REF 

3 

LAST 

242 

04,2055 

3 

0775 

1 

CA 

MMNUMBER 

IS  NEW  REQUEST  POO 

04,2056 

0 

0006 

1 

EXTEND 

REF  - 

1 

04,  2 057 

1 

2106 

o 

BZ  F 

I SSE  PVON 

YES,  CHECK  SERVICER  STATUS 

REF 

3 

LAST 

180 

04,2060 

4 

0076 

1 

CS 

FLAGWRD2 

NO,  IS  NOOO  V 37  FLAG  SET 

REF 

4 

04, 2 061 

7 

4757 

o 

MA  S K 

N ODD  B I T 

REF 

43 

LAST 

242 

04,2062 

10  000 

0 

CCS 

A 

REF 

1 

04,2063 

1 

2071 

1 

TC  F 

CHECKTAB 

NO 

REF 

10 

LAST 

232 

04,2064 

0 

5567 

0 

CANTROD 

TC 

ALARM 

04,2065 

01520 

1 

OCT 

1520 

R^EF 

1 

04, 2 066 

o 

44  5 7 

n 

V7 7 R Ap 

TC 

r el  n fp 

RFIFASFS  DISP1AY  FREW  ASTRONAUT 

REF 

4 

LAST 

239 

04,2067 

0 

4635 

0 

TC 

POST  JUMP 

BRING  BACK  LAST  NORMAL  DISPLAY  IF  THERE 

- REF 

1 

04, 2 070 

70723 

0 

C ADR 

P INB  RNCH 

WAS  ONE.  OTHERWISE  DO  AN  EOJ. 

REF 

1 

04, 2071 

3 

2474 

1 

CHECKTAB 

CA 

N0V3  7MM 

INDEX  FOR  MM  TABLES. 

0690 
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0691 

REF 

28 

LAST 

236 

04,2072 

54  155 

1 

AGA INMM 

TS 

MPAC  +1 

0692 

REF 

29 

LAST 

243 

04,2073 

50  155 

0 

NDX 

MPAC  +1 

06  9 3 

REF 

1 

04, 2 074 

3 2436 

_1_ 

CA 

PRENM1 

0694 

REF 

1 

04,2075 

7 6073 

1 

MASK 

L0W7 

0695 

04, 2076 

4 0000 

0 

COM 

0696 

REF 

4 

L AST 

242 

04, 2 077 

6 0775 

_L 

AD 

MMNUMBER 

0697 

REF 

44 

LAST 

242 

04,2100 

10  000 

0 

CCS 

A 

0698 

REF 

30 

LAST 

24  3 

04,  2101 

10  155 

1 

CCS 

MPAC  +1 

0699 

REF 

1 

04, 2 102 

1 2072 

_1 

TCF 

AGA I NMM 

0700 

REF 

1 

04, 2103 

1 2317 

1 

TCF 

V37NONO 

070 1 

REF 

31 

L AST 

243 

04, 2 104 

3 0155 

o 

CA 

MPAC  +1 

0702 

REF 

1 

04,2  105 

54  774 

1 

TS 

MINPEX 

0703 

REF 

2 

XA5F 

20  1 

04. 2106 

4 0103 

-3 

I SSERVON 

cs 

FL AGWRD7 

0704 

REF 

1 

v , y C—  i vv 

04,2107 

7 4746 

1 

MASK 

V37FLBIT 

0705 

REF 

45 

LAST 

243 

04,2110 

10  000 

0 

CCS 

A 

0706 

REF 

1 

0-4,2  111 

1 2133 

0 - 

THE 

CANV37 

0707 

REF 

4 

LAST 

239 

04,2112 

0 5516 

0 

TC 

DOW  NFL  AG 

0708  REF  -1-  04,2113  00163  0 ADRES  AVEGFLAG 


0709 

0710 

REF 

REF- 

1 

1_ 

04. 2114 

04.2 115 

3 2363 
55*260 

0 

_£L 

CAF 
IS 

V37P ETAD 
OUTR  CUTE 

0711 

REF 

1 

04,2116 

1 5155 

1 

TCF 

ENDP  F JOB 

0712 

REF 

7 

LAST 

22  3 

04, 2117 

4 0074 

0 

V37RET 

CS 

FLAG  WRDO 

0713 

REF 

2 

LAST 

200 

04,2120 

7 4745 

1 

MASK 

RNDV  ZBIT 

0714 

- REF 

46 

LAST 

243 

04,2121 

10  000 

0 

CCS 

A 

0715 

04,2122 

1 2124 

0 

TCF 

+ 2 

0716 

REF 

1 

04,2123 

1 2131 

1 

TCF 

2.7SPT 

^)717 

REF- 

— 8— 

LAST 

24  3 

04, 2 124 

4 00  74 

0 

cs_ 

FLAG  WRDO 

0718 

REF 

1 

04, 2 125 

7 4743 

1 

MASK 

P25FLBIT 

0719 

REF 

47 

LAST 

243 

04, 2 126 

10  000 

0 

CCS 

A 

0720 

^EF 

1 

04, 2127 

3 23  64 

1 

2.0SPT 

C A 

QC T 3 7667 

0721 

REF 

14 

LAST 

233 

04,2130 

6 4747 

1 

2. 1 1SPT 

AD 

B IT5 

0722 

REF 

1 

04,  2 131 

6 2365 

0 

2.7SPT 

AD 

OC  T4  0072 

0723 

R EE  - 

1 

04,  2132 

0 5357 

0 

TC 

PHSCHNGA 

0724 

RFF 

15 

LAST 

236 

04, 2 133 

3 4755 

1 

CANV37 

CAF 

ZERO 

0725 

04,2134 

0 0006 

1 

EXTFND 

0726 

REF 

2 

LAST 

230 

04,2135 

01  007 

1 

WR  ITF 

SUPFRBNK 

0727 

R EF 

-1  — 

04,2136 

3 2362 

1 

CAF 

-RQQA  D 

0728 

REF 

1 

04,2137 

54  3 74 

0 

TS 

TEMP  FL  SH 

0729 

REF 

■ 1 

04,2 140 

0 5 3 53 

1 

TC— 

PHAS  CHNG 

0730 

04,2141 

00014 

1 

OCT 

1 4 
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OBTAIN  WHICH  MM  THIS  IS  TOR 


IF  GR,  SEF  IF  ANYMORE  IN  LIST 
YES,  GET  NEXT  ONE 
LAST  TIMF  OR  PASSED  MM 


SAVE  INDEX  FOR  LATFR 

V37  FLAG  SET  - I. E.  IS  SERVICER  GOING 


NO 

YES, TURN  OFF  THE  AVERAGE  FLAG  AND 
WAIT  FOR  SERVICER  TO  RETURN  TO  CANV37. 


IS  P 20  OR  P22  RUNNING? 


NO.  CHECK  FOR  P25. 
YES.  DO  2.7SP0T 
IS  P 25  RUNNING? 
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0731 

REF 

3 

LAST 

222 

04,2142 

0 6036 

1 

ROO 

TC 

INTPRET 

77^24 

1 

CALL- 

0732 

0733 

REF 

1 

04, 2 144 

27412 

0 

I NTS  TALL 

0734 

04,2145 

77776 

1 

DUMMYAD 

EXIT 

0735 

REF 

5 

LAST 

243 

04, 2 146 

0 5516 

0 

TC 

DOWNFLAG 

0736 

REF 

1 

04,2147 

00124 

0 

ADRES 

3 AX  I SFLG 

0737 

REF 

1 

04, 2150 

3 4735 

1 

CAF 

LRBY  El T 

0738 

REF 

1 

04,2151 

54  1 07 

0 

TS 

FLGWRD11 

07382 

REF 

6 

LAST 

244 

04,2152 

0 5516 

0 

TC 

DOWNFLAG 

07384 

RFF 

2 

LAST 

87 

04, 2 153 

00063 

1 

ADRES 

ROAFLAG 

0739 

REF 

7 

L AST 

244 

04, 2154 

0 5516 

c 

TC 

DOWNFLAG 

0740 

REF 

2 

LAST 

239 

04, 2 155 

00311 

1 

ADRES 

XOV I NFLG 

0741 

RFF 

5 

— 1AS4-— 

24  3 

04 f 2 156 

10  775 

0 

CCS 

MM NUMBER 

0742 

REF 

i 

04,2157 

1 2305 

1 

TC  F 

NOUVEAU 

0743  REF  2 LAST  242  04,2  160  0 4457  0 POOH  TC  R EL  DSP 


0744 

0745 

REF 

REF 

1 

04. 2161 

04.2 162 

3 5017 
55*056 

1 

1 

CAF 

TS 

PRI05 
PHSP RDT? 

0746 

REF 

1 

04,2163 

0 6011 

1 

TC 

CLRADMOD 

0747 

REF 

2 

LAST 

242 

04, 2164 

4 4753 

0 

CS 

NOOCBIT 

0748 

REF 

4 

LAST 

242 

04,2165 

7 0076 

1 

MASK 

FLAG  WPD2 

0749  REF  5 LAST-  244  04,2166  54  076  1 TS  FLAG  WRD2 


0750 

REF 

2 

LAST 

238 

04,2167 

3 4756 

1 

CA 

FIVE 

0751 

REF 

14 

LAST 

2 39 

04, 2170 

54  001 

_|, 

TS 

L 

0752 

04, 2 171 

4 0000 

0 

COM 

0753 

REF 

2 

LAST 

229 

04,2172 

52  755 

1 

DXCH 

-PHASE2 

0754 

REF 

1 

04, 2173 

4 2366 

1 

CS 

DC  T 7 00 

0755 

REF 

9 

LAST 

243 

04,2174 

7 0074 

0 

MASK 

FLAGWRDO 

0756  REF  10  LAST  2-44  04,2175  54  074  0 TS  FLAGWRDO 


0757 

REF 

1 

04,  2 176 

3 4755 

1 

CAF 

DNL  A DPOO 

0758 

REF 

6 

LAST 

23  1 

04,2177 

54  332 

1 

SEUDOPOO  TS 

DNLS  TCOD 

0759 

REF 

4 

LAST 

23  1 

04,2200 

5 5 ' 324 

1 

TS 

AGSWPRD 

AO  760 

0761 

REF 

6 

LAST 

19  1 

04,2201 

0 46  7 4 

0 

TC 

I BNK  CALL 

0762 

REF 

1 

04, 2202 

75555 

0 

CADR 

ENGI N0F1 

0763 

REF 

7 

LAST 

244 

04, 2203 

0 4674 

0 

TC 

IBNKCALL 

0764 

REF 

1 

04,2204 

40204 

0 

CADR 

ALLCOAST 
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WAIT  FOR  INTEGRATION  TO  FINISH 


RESET  3-AXIS  FLAG 

CLEAN  UP  THE  R12  FLAGWORD. 

INSURE  THAT  THE  P.04FLAG  IS  CL  FAR. 

ALLOW  X-AXIS  OVERRIDE. 

_LS—TH I S A POOH  REQUEST 
NO,  PICK  UP  NEW  PROGRAM 

RELEASE  DISPLAY  SYSTEM 

SET  VARIABLF  RESTART  PRIORITY  FOR 
POO  INTEGRATION. 

CLRADMOO  DOES  AN  INHINT. 

TURN  OFF  NODOFLAG. 

SET  RESTART  FOR  STATE  I NT1 


TURN  OFF  P20,P25,  I MU  IN  USE  FLAG 

RENDFLG 


SET  UP  APPROPRIATE  DOWNLIST  CODE 
(CURRENT  LIST  WILL  BF  COMPLETED  B FFORE 
NEW  ONE  IS  STARTED) 


INSURE  ALLCOAST 
DOFS  A RES  TOR  DB 


GAP 
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0765 

0766 

A7/,7 

REF 

REF 

DCC 

1 

2 

3 

LAST 

LAST 

226 
2 3 2 

04. 2205 

04.2206 

04. 2207 

4 4775 

5 5 ' 0 72 
7 0075 

1 

1 

1 

cs 

TS 

MASK 

OCT  120 
EBANKTEM 
F LAG  WRD1 

TURN  OFF  TRACK,  UPDATE  FLAGS 

U f O f 

0768 

-tvcrr 

REF 

4 

LAST 

245 

04, 2210 

54  075 

1 

TS 

FLAG  WRD1 

n c n 

Q 

1 ACT 

? A A 

04, 2211 

0 46  74 

0 

EC 

I BN K CALL 

KILL  GROUPS  1,3, 5, 6 

0769 

0770 

Kxrn 

REF 

0 

1 

LPj  1 

ATT 

04, 2212 

12652 

0 

CADR 

V37  K LEAN 

DPP 

A 

i a <;  t 

2 44 

04,2213 

10  775 

o 

CCS 

MMNUMBER 

IS  IT  POOH 

Ui  (1 

0772 

Ktr 

REF 

0 

1 

L W J 1 

04, 2214 

1 2223 

1 

TCF 

R ENDVOO 

NO 

0773 

REF 

9 

LAST 

245 

04,2215 

0 46  74 

0 G0M0D 

TC 

I BNKCALL 

REDUNDANT  EXCEPT  FOR  GROUP  4 

0774 

REF 

3 

04,2216 

12647 

1 

CADR 

POOKLEAN 

0775 

REF 

7 

LAST 

245 

04,2217 

3 0775 

1 

CA 

MMNUMBER 

0776  REF  1 — LAST  23  2 04,2  220  55*011 1 TS  MODREG 


0777 

0778 

REF 

TLiT- 

5 

1 

LAST 

242 

04.2221 

04. 2222 

0 

4635 

12771 

0 

0 

GOGOPROG 

TC 

CADR 

POST  JUMP 
G0PR0G2 

0779 

REF 

4 

LAST 

245 

04,2223 

4 

1011 

1 

RENDVOO 

CS 

MODREG 

IS  CURRENT  PROGRAM  22 

0780 

REF 

1 

04, 2224 

6 

2323 

1 

AD 

0CT26 

0781 

04, 2225 

0 

0006 

1 

EXTEND 

0782 

REF 

1 

04,2226 

1 

2245 

1 

BZF 

RESET22 

YES  - CLEAR  RENDEZVOUS  FLAG 

0783 

REF 

8 

LAST 

245 

04,2227 

4 

0775 

0 

CS 

MMNUMBER 

IS  NEW  PROGRAM  P22 

0784 

REF 

2 

LAST 

24  5 

04,  2230 

6 

23  23 

J 

AD 

□ C T 2 6 

0785 

04,2231 

0 

0006 

1 

EXTEND 

0786 

REF 

2 

LAST 

245 

04, 2232 

1 

2245 

1 

BZF 

RESET22 

0787 

0788 

REF 

1 

04,  2233 
04, 2234 

6 

0 

7745 

0006 

0 

1 

AD 

EXTEND 

NEG2 

I S 

NEW  PROGRAM  = P20 

OR  P25 

0789 

REF 

1 

04,2235 

1 

2257 

1 

BZF 

RENDNOO 

YES 

0790 

REF 

3 

LAST 

244 

04,2236 

6 

4756 

1 

AD 

FIVE 

25 

0791 

0-4,  2 237 

0 

0006 

1 

EXTEND 

0792 

REF 

2 

LAST 

245 

04, 2240 

1 

2257 

1 

BZF 

RENDNOO 

YES 

0793 

REF 

1 

04, 2 241 

3 

2321 

o 

CA 

0CT5  00 

NO, 

IS  EITHFR  P 20  OR 

P 2 5 RUNNING 

0794 

REF 

11 

LAST 

244 

04, 2242 

7 

0074 

0 

MASK 

FLAG  WRDO 

0795 

REF 

48 

LAST 

243 

04, 2243 

10  000 

0 

CCS 

A 

0796 

REF 

1 

04,2244 

1 

2254 

1 

TCF 

POOF  I ZZ 

YFS 

, LEAVE  GROUP  2 TO 

PICK  UP  P20 

0797 

REF 

2 

LAST 

244 

04,  2245 

4 

2366 

1 

RESFT22 

CS 

0CT700 

CLEAR  RENDEZVOUS, P25 

0798 

REF 

12 

LAST 

245 

04,2246 

7 

0074 

0 

MASK 

F L AC  WRDO 

AND 

IMU  IN  US  F FLAGS 

0799 

REF 

13 

LAST 

245 

04, 2247 

54 

■ 074 

0 

TS 

FLAGWRDO 

0800 

REF 

2 

LAST 

244 

04,2250 

0 

6011 

1 

TC 

CLRADMOD 

0801 

04,2251 

0 

0006 

1 

KILL2 

EXTEND 

NO, 

KILL  2 

0802 

REF 

8 

LAST 

229 

04, 2252 

3 

4755 

1 

DC  A 

NEGO 
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0803 

REF 

3 

LAST 

244 

04,2253 

52  755 

1 

OXCH 

-PHASE2 

— 1— 

2 

04.2254 

04. 2255 

l POOF I ZZ 

CAE 

V37G  CAO 

RESTART  POINT  FOR  V37X&Q 

0804 

0805 

-REE 

REF 

LAST 

243 

-J  C.  D O 1 

54  374 

0 

TS 

TEMPFLSH 

0806  — REE 1 04,  2256  1 2221  0 TGF  GGGOPROG — 


0807 

REF 

5 

LAST 

245 

04,2257 

4 

5 

1011 

A007 

1 

o 

RENDNOO  CS 
AD 

MQDR  EG 
nr.T74 

0809 

04, 2261 

0 

0006 

1 

EXTEND 

0810 

REF 

1 

04, 2262 

1 

2251 

1 

BZF 

K I L L 2 

P20  OR  P25  ON  TCP  OF  P20  OR  P25  - 

0811 

REF 

4 

LAST 

245 

04,2263 

6 

4756 

1 

AD 

F IVE 

0812 

04,2264 

0 

0006 

1 

EXTEND 

0013  REE-  -2 LAST 2 46 04,2265  1 22  51  -1 3ZE KILL- 2 — 


0814 

08 15 

REF 
R EF 

2 

L4 

LAST 
l A^T 

245 

R 4 8 

04, 2266 
04-,  2 767 

3 

7 

2321 

0074 

0 

0 

CA 

MASK 

0CT500 
F l AGWRDO  - 

0816 

REF 

9 

LAST 

245 

04,2270 

6 

0775 

1 

AD 

MMNUMBER 

0817 

04, 2271 

4 

0000 

0 

COM 

08  1 R 

REF 

l 

0 4 f ? ?1? 

6 

2 3 24 

0 

AD 

P 2 0R FG 

IS  IT  20  AND 

IS  RENDEZVOUS  FLAG  ON 

0819 

04,2273 

0 

0006 

1 

EXTEND 

0820 

REF 

1 

04,2274 

1 

2301 

0 

BZF 

STATCUO 

YES 

0 ft  27 

RFF 

1 

04, 2275 

6 

2322 

0 

An  - 

QCT305 

IS  IT  25  AND 

IS  325  BIT  0N_ 

0822 

04,2276 

0 

0006 

1 

EXTEND 

0823 

REF 

2 

LAST 

246 

04,2277 

1 

2301 

0 

BZF 

STATGUO 

YES,  LEAVE  AS 

IS 

0824 REE  3 t AST  246 04,2  300  1 2251  1 ICE  KILL2 


0825 

REF 

5 

LAST 

245 

04,2301 

4 0075 

1 

STATQUO 

CS 

FLAGWRD1 

SET  TRACKFLAG 

0 826 

REF 

2 

LAST 

24  5 

04, 2302 

7 4775 

1 

MASK 

OCT  1 20 

UPDATE  FLAG 

0827 

REF 

6 

LAST 

246 

04,2303 

26  075 

1 

ADS 

FLAGWRD1 

082  8 

REF 

l 

04,  2 304 

1 221^ 

TC  F 

com  nr 

0829 

REF 

3 

LAST 

246 

04,2305 

3 2321 

0 

NOUVEAU 

CAF 

OCT 5 00 

IS  P 20  OR  P25  FLAG  SET 

0830 

— RFF 

-1-5— 

LAST 

246 

04, 2 306 

7 0074 

0 - 

MASK 

FLAG  WRDO 

0831 

REF 

49 

LAST 

245 

04,2307 

1 0 000 

0 

CCS 

A 

0832 

04, 2310 

1 2313 

0 

TC  F 

+ 3 

YES 

0833 

REF 

8 

LAST 

2 44 

04 ,2311 

0 55  16 

o 

TC 

DOWN  FLAG 

MO, RESET  IMUINUSE  FLAG 

0834 

REF 

i 

04, 2312 

00007 

0 

ADRES 

I MUS  E 

0835 

— RFF— 

— 2— 

—LAST 

243 

04, 2313 

5 0 774 

o 

I NDE  * 

M T fv  n F X 

0836 

REF 

i 

04, 2314 

3 2475 

0 

CAF 

DNLADMMl 

OBTAIN  APPROPRIATE  DOWNLIST  ADDRESS 

Oft  87 

04,  2 3 1 S 

0 0Qfi4 

o 

0838 

REF 

i 

04, 2316 

1 2177 

0 

TC  F 

SEUDOPOO 

—08  39 

REF 

— 1— 

04, 2317 

0 4364 

1 

V37NONO 

TC 

F A 1 T HM 

CDMF  HFRF  IF  MM  R FQU  FST  FH  DHFSMT  FXIST 

0840 

REF 

i 

04,  2320 

1 2066 

1 

TC  F 

V37B AD 
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0841 

REF 

17 

LAST 

231 

4750 

OCT  00010 

EQUAL  S 

B IT4 

0842 

04,2321 

00500 

1 

OCT  500 

OCT 

500 

084^ 

04,2322 

00305 

1 

QCT305 

OCT 

305 

0844 

04, 2323 

00026 

0 

0CT26 

OCT 

26 

0845 

04, 2324 

00124 

0 

P20REG 

OCT 

1 24 

0846 

04,  2325 

0 0004 

0 

V37XEQ 

INHINT 

0847 

REF 

3 

LAST 

246 

04, 2326 

50  774 

0 

INDEX 

MINDEX 

0848 

Rf  F 

2 

last 

74  3 

04,2  327 

3 2436 

1 

CAF 

P REM  M 1 

0849 

REF 

i 

04, 2330 

55' 060 

1 

TS 

MMTEMP 

0850 

REF 

i 

04, 2331 

54  020 

1 

TS 

CYR 

0851 

REF 

2 

LAST 

247 

04,2332 

3 0020 

0 

CA 

CYR 

0852 

REF 

1 

04,2333 

7 7724 

0 

MASK 

PP  10  37 

0853 

REF 

1 

04, 2334 

55' 062 

0 

TS 

PHSPRDT4 

0854 

REF 

1 

04, 2335 

54  063 

0 

TS 

NEW P P 1 0 

ORSS 

R Ef 

2 

1 AST 

74  7 

04t  7 336 

3 1 060 

o 

CA 

MMTE  MP 

0856 

04,  2337 

0 0006 

1 

EXTEND 

0857 

REF 

18 

LAST 

228 

04,  2340 

7 4744 

0 

MP 

B I T 8 

0858 

REF 

1 

04,2341 

7 4757 

1 

MASK 

L0W3 

0859 

REF 

15 

LAST 

244 

04,2342 

54  001 

1 

TS 

L 

0860 

REF 

4 

LAST 

24  7 

04t  7 343 

sn  774 

o 

IAJOE* 

M I NP  EX 

0861 

REF 

i 

04,2344 

3 2400 

1 

CAF 

FCADRMMl 

0862 

REF 

i 

04,2345 

55 • 0 6 1 

0 

TS 

BASE  TEMP 

0863 

REF 

3 

LAST 

2 3 0 

04,  2 346 

7 4350 

1 

MASK 

H 1 5 

0864 

REF 

16 

LAST 

247 

04, 2347 

26  001 

1 

ADS 

L 

0865 

REF 

2 

1 AST 

247 

0-4*  7 3 50 

3 106  1 

1 

CA 

RASFTFMP 

0866 

REF 

i 

04,2351 

7 5012 

0 

MASK 

L0W10 

0867 

REF 

16 

LAST 

2 02 

04,2352 

6 4741 

1 

AD 

B I T 1 1 

0868 

REF 

1 

04, 2353 

0 5116 

1 

TC 

SPVAC 

0869 

R6F 

— 3— 

LAST 

74  7 

04,  7 354 

3 10  60 

n 

V 37 XFQf 

C A 

MMTF  MP 

0870 

REF 

2 

LAST 

243 

04,2355 

7 6073 

1 

MASK 

LDW7 

0871 

REF 

1 

04, 2356 

0 5314 

1 

TC 

NEWMODEA 

0872 

REF 

3 

LAST 

244 

04,2357 

0 4457 

0 

TC 

RFLDSP 

0873 

REF 

2 

LAST 

243 

04,2360 

0 5155 

0 

TC 

FNDOFJOB 

0874 

REF 

1 

5660 

NEG7 

EQUAL  S 

DC  T 7 7770 

0875 

REF 



106  0 

mmt fmp 

FQIJA1  S 

PHSP  RPT3 

0876 

REF 

1 

1061 

BASETEMP 

EQUALS 

TBAS  F4 

0877 

REF 

1 

04,2361 

10330 

0 

V370CAD 

CADR 

V 37X EG  +3 

0878 

REF 



04,2362 

10145 

0 

ROOAD 

CADR 

DUMM YAO 

0879 

REF 

1 

04,2363 

10117 

1 

V37RETAD 

CADR 

V37P ET 

0880 

04,  2 364 

37667 

1 

OCT  3766  7 

OCT 

3766  7 
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0881 

0882 

04.2365 

04.2366 

40072 

00700 

0 

0 

OCT  40072 
0CT700 

OCT 

OCT 

40072 

700 

0884 

REF 

1 

04,2367 

3 6244 

0 

SET  UP  7 1 

CAF 

THRE  E 

0885 

REF 

18 

LAST 

237 

04, 2370 

54  002 

1 

SETUP70 

TS 

0 

04, 2371 

0 0006 

1 

EXTEND 

0887 

REF 

1 

04,2372 

3 23  77 

0 

DC  A 

P70C ADR 

0888 

REF 

19 

LAST 

248 

04,2373 

6 0002 

0 

AD 

0 

04f  2 374 

52  0 06 

0 

DTCB 

0890 

04, 2375 

00106 

0 

DEC  70 

DEC 

70 

LAST 

16  2 

E 7t  1 *=>  1 A 

EB ANK= 

R 

0892 

REF 

1 

04,2  376 

02166 

1 

P70CADR 

2CADP 

P70 

0892 

REF 

1 

04, 2377 

42  067 

0 

R0893  FOR  VERB  37  TWO  TABLES  ARE  MAINTAINED.  EACH  TABLE  HAS  AN  ENTRY  FOR  EACH 

R0894  MAJOR  MODE  THAT  CAN  8E  STARTED  FROM  THE  KEYBOARD.  THE  ENTRIES  ARE  PUT 

R0895  INTO  THE  TABLE  WITH  THE  ENTRY  FOR  THE  HIGHEST  MAJOR  MODE  COMING  FIRST, 


R0896  TO  THE  LOWEST  MAJOR  MODE  WHICH  IS  THE  LAST  ENTRY  IN  EACH  TABLE. 

R0897  THE  FCADRMM  TABLE  CONTAINS  THE  F-GADR  OF  THE  STARTING  JOB  OF 

R 0898  THE  MAJOR  MODE.  FOR  EXAMPLE, 

A0899  FCADRMM1  FC ADR  P79  START  OF  P 79 

A0900  FC ADR  PROG  18  START  OF  P 18 

A0901  FC ADR  P01  START  OF  P 01 


R0902 

R0903 

NOTE, 

THE  FIRST  ENTRY  MUST 

BE  LABLED 

FCADRMM1 

* 

0904 

REF 

1 

04,2400 

71524 

1 

FCADRMM1 

FC  ADR 

P79 

0905 

REF 

1 

04, 2401 

71274 

0 

FC  ADR 

P78 

0906 

R F F 

1 

04 T 2402 

262  07 

o 

FT  A OR 

P 76 

0907 

REF 

1 

04, 2403 

72673 

0 

FC  ADR 

P75 

0908 

REF 

1 

04,2404 

72513 

0 

FC  ADR 

P 74 

0909 

REF 

1 

04,2405 

72164 

1 

E C A D P 

P 73 

0910 

REF 

1 

04, 2406 

72031 

0 

FC  ADR 

P 72 

0911 

REF 

1 

04,  2407 

62172 

1 

FC  ADR 

LAND  JUNK 

0912 

REF  _ 

1 

04,2410 

64772 

1 

FC  ADR 

P63L  M 

0913 

REF 

1 

04, 2411 

33317 

1 

FC  ADR 

P 5 7 

0914 

REF 

1 

04, 2412 

32050 

0 

FC  ADR 

PROG  52 

0915 

REF 

1 

04, 2413 

31340 

1 

FC  ADR 

P 5 1 

0916 

RFF 

1 

04, 2414 

75436 

1 

FC  ADR 

P47L  M 

0917 

REF 

1 

04, 2415 

75410 

0 

FC  ADR 

P42L  M 

0918 

-REF 

1 

04,2416 

752  72 

1 

FC  ADR 

P41  L M 

0919 

REF 

1 

04, 2417 

75147 

1 

FCADP 

P40LM 

0920 

REF 

1 

04,2420 

71517 

1 

FC  ADR 

P 3 9 

09  21 

REF 

1 

04,  2421 

71271 

0 

F C A n R 

P 3 8 

0922 

REF 

1 

04, 2422 

72667 

0 

FC  ADR 

P 35 

0923 

REF 

1 

04,2423 

72511 

1 

FC  ADR 

P 34 
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0924 

RFF 

1 

04,2424 

72162 

1 

FC  ADR 

P 33 

0925 

REF 

1 

04,2425 

72027 

1 

FC  ADR 

P32 

04-t  ? 42^» 

72414 

0 

FC  ADR 

P31 

0927 

REF 

1 

04,2427 

72000 

1 

FC  ADR 

P 30 

0928 

REF 

1 

04,2430 

50427 

0 

FC  ADR 

PR0G25 

REF 

\ 

04,2431 

50022 

1 

FC  ADR 

PROG  22 

0930 

REF 

1 

04,2432 

51402 

0 

FC  ADR 

PROG  21 

0931 

REF 

1 

04,2433 

50022 

1 

FCADR 

PROG  20 

QQ32 

REF 

1 

04, 2434 

60006 

1 

FC  ADR 

P 1 2 L M 

0933 

REF 

1 

04, 2435 

77641 

1 

FCADR 

P06 

R0934 

THE  PREMM 

TABLE  CONTAINS  THE 

E-BANK 

.MAJOR  MODE 

, AND  PRIORITY 

R0935 

INFORMATION,  IT  IS 

IN  THE  FOLLOWING  FORM, 

R0936  PPP  P PE  EEM  MMM  MMM 

R0937  WHERE  THE  7 M BITS  CONTAIN  THE  MAJOR  MODE  NUMBER 

R0938  3 E BITS  CONTAIN  THE  E-BANK  NUMBER 

R0939  5-P—fi  LT-S  CONTAIN  THE  PRIORITY  AT  WHICH  THE  JOB  IS 

R 0940  TO  BE  STARTED 

R0941  FCR  EXAMPLE, 


A0942 

A0943 

PREMM1 

OCT 

6721  3 

PRIORITY 

E-BANK 

33 

5 

A0944 

MAJOR  MODE 

11 

A0945 

OCT 

2 543  7 

PRIORITY 

12 

A0946 

F-BANK 

6 

A0947 

MAJOR  MOO E 

31 

R0948  NOTE,  TEE  FIRST  ENTRY  MUST  BE  LABELED  PREMM1 


0949 

04, 2436 

27717 

0 PREMM1 

OCT 

2771  7 

MM 

79 

EBANK 

7 

PRIO 

13 

0950 

04,2437 

277  16 

1 

OCT 

2771  6 

MM 

78 

E8ANK 

7 

PRIO 

13 

0951 

_ _04, 2 440 

27714 

0 

oct 

2771  4 

MM 

76 

EBANK 

7 

PRIO 

13 

0952 

04,2441 

27713 

1 

OCT 

2771  3 

MM 

75 

EBANK 

7 

PRIO 

1 3 

0953 

04,2442 

27712 

0 

OCT 

27712 

MM 

74 

EBANK 

7 

PRIO 

1 3 

0954 

04,  2 443 

27711 

0 

OCT 

2771  1 

MM 

73 

EBANK 

7 

PRIO 

1 3 

0955 

04,2444 

27710 

1 

OCT 

27710 

MM 

72 

EBANK 

7 

PRIO 

13 

0956 

04,  2 445 

27704 

1 

OCT 

27704 

MM 

68 

EBANK 

7 

PRIO 

13 

0957 

04, 2446 

27677 

1 

OCT 

27677 

MM 

63 

FRANK 

7 

PRIO 

13 

0958 

04,2447 

27271 

0 

OCT 

2727  1 

MM 

57 

EBANK 

5 

PRIO 

13 

0959 

04, 2450 

27264 

1 

OCT 

27264 

MM 

52 

EBANK 

5 

PRIO 

1 3 

0960- 

0 4,  2 451 

27263 

0 

OCT 

27263 

MM 

51 

EBANK 

5 

PRIO 

1 3 

0961 

04,2452 

27657 

0 

OCT 

27657 

MM 

47 

EBANK 

7 

PRIO 

13 

0962 

04,2453 

27652 

0 

OCT 

27652 

MM 

42 

EBANK 

7 

PRIO 

13 

0963 

04, 2454 

27651 

0 

OCT 

2765  1 

MM 

41 

EBANK 

7 

PRIO 

1 3 

0964 

04,2455 

27650 

l 

OCT 

27650 

MM 

40 

EBANK 

7 

PRIO 

1 3 

0965 

04, 2456 

27647 

1 

OCT 

27647 

MM 

39 

EBANK 

7 

PRIO 

1 3 

0966 

04, 2457 

27646 

0 

OCT 

27646 

MM 

38 

EBANK 

7 

PRIO 

13 

0967 

04,  2460 

27643 

0 

OCT 

27643 

MM 

35 

EBANK 

7 

PRIO 

13 

0968 

04, 2461 

27642 

1 

OCT 

27642 

MM 

34 

EBANK 

7 

PRIO 

1 3 
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096  9 

04, 2462 

27641  1 

OCT 

27641 

0970 

04,  2463 

27640  0 

OCT 

2764  C 

04*2464 

27637  0 

OCT 

2763  7 

0972 

04,2465 

27636  1 

OCT 

27636 

0973 

04t  2 466 

27631  0 

OCT 

2763  1 

04*  2 467 

27626  0 

OCT 

27626 

0975 

04, 2470 

27625  0 

OCT 

2762  5 

0976 

04,2471 

27624  l 

OCT 

27624 

04*  2 472 

27614  1 

OCT 

2 761  4 

0978 

04, 2473 

27006  1 

OCT 

27006 

R 0979 

NOTE, 

THE  FOLLOWING  CONSTANT 

IS  THE  NUMBER 

OF  ENTRIES 

, IN  EACH 

TUIP  A«n\/P  1 / IF. 

THF  NIIMBFR  OF 

MAJOR  MODES ( EXC  EPT 

R0981 

THAT  CAN  BE  CALLED  FROM  THE  KEYBOARD 

MINUS  ONE) 

0982  04,2474  00035  1 NOV37MM  DEC  79 


0983 
09  84 

REF 

REF 

1 

2 

L AS  T 

—2  50 

04,  2475 
04,  2 4-76 

00002 

00002 

0 

0 

DNLADMM1 

AORES 
AD  RES 

RENDEZVU 
. RENDEZVU 

0985 

REF 

3 

LAST 

250 

04, 2477 

00002 

0 

ADRES 

REND  EZVU 

0986 

REF 

4 

LAST 

250 

04,2500 

00002 

0 

ADRES 

RENDEZVU 

0967^ 

REF 

5 

LAST 

2 50 

04,-2  501 

00002 

0 

ADRES 

RENDEZVU 

0988 

REF 

6 

LAST 

250 

04,2502 

00002 

0 

ADRES 

RFNDEZVIJ 

0989 

REF 

7 

LAST 

250 

04,  2 503 

00002 

0 

ADRES 

RENDEZVU 

0990 

-REF 

I 

04, 2 504 

00004 

0 

ADRES 

DESA  SCNT 

0991 

REF 

2 

LAST 

250 

04, 2505 

00004 

0 

ADRES 

DESA  SCNT 

0992 

REF 

1 

04, 2 506 

00005 

1 

ADRES 

LUNR  SALN 

0993 

Rg-F- 

|_ 

04,2507 

00000 

1 

ADRES 

COST  ALIN 

0994 

REF 

2 

LAST 

250 

04,  2510 

00000 

1 

ADRES 

COSTALIN 

0995 

REF 

1 

04,2511 

00003 

1 

ADRES 

OPBMANUV 

0996 

REF 

2— 

L AST 

2 5 0 

04,  2 512 

00003 

1 

ADRES 

-ORBMANUV 

0997 

REF 

3 

LAST 

25  C 

04, 2513 

00003 

1 

ADRES 

OPBMANUV 

0998 

REF 

4 

LAST 

250 

04, 2514 

00003 

1 

ADRES 

OR  B M ANUV 

0999 

REF 

a 

-LAST 

250 

04,2515 

00002 

_Q 

ADRES 

RENDEZVU 

1000 

REF 

9 

LAST 

250 

04,  2516 

00002 

0 

ADRES 

RENDEZVU 

1001 

REF 

10 

LAST 

250 

04,2517 

00002 

0 

ADRES 

RENDEZVU 

1002- 

REF 

11 

LAST 

-2  50 

04,2520 

00002 

0 

ADRES 

RENDEZVU 

1003 

REF 

12 

LAST 

250 

04,2521 

00002 

0 

ADRES 

RENDEZVU 

1004 

REF 

13 

LAST 

250 

04,2522 

00002 

0 

ADRES 

RENDEZVU 

1005 

REF 

14 

-LAST 

■25  0— 

04-,  2 523 

00002 

n 

ADRES 

REND  EZVU- 

1006 

REF 

15 

LAST 

250 

04,  2 524 

00002 

0 

ADRES 

R END  EZVU 

1007 

REF 

16 

LAST 

250 

04,2525 

00002 

0 

ADRES 

RFNDEZVU 

1008 

RFF 

2 

-LAST 

250 

0-4,  2 526 

00005 

1 

ADRES 

LUNR  SALN. 

1009 

REF 

17 

LAST 

250 

04,  2 527 

00002 

0 

ADRES 

RFF DEZVU 

1010 

REF 

18 

LAST 

250 

04,2530 

00002 

0 

ADRES 

RENDEZVU 

1011 

REF 

— 3— 

-LAST 

250 

04,  2 53 1— 

00004 

_o 

ADRES 

DESA  SCNT 

1012 

REF 

3 

LAST 

250 

04, 2532 

00000 

1 

ADRES 

COST  AL IN 

1013 

REF 

16 

LAST 

243 

4755 

DNL ADPOO 

= 

ZERO 

1014 

0 000 

COSTALI N 

0 

1015 

0001 

AGSUPDAT 

_ 

l 

1016 

0002 

RENDEZVU 

= 

7 
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2 

MM 

33 

EBANK 

7 

PRIO 

13 

MM 

32 

EBANK 

7 

PR  10 

13 

MM 

31 

EBANK 

7 

PRIO 

13 

MM 

30 

EBANK 

7 

PRIO 

13 

MM 

25 

EBANK 

7 

PRIO 

13 

MM 

22 

EBANK 

7 

PRIO 

13 

MM 

21 

EBANK 

7 

PRIO 

13 

MM 

20 

EBANK 

7 

PRIO 

13 

MM 

1 2 

EBANK 

7 

PRIO 

13 

MM 

06 

EBANK 

4 

PRIO 

13 

MM'S  -1 

P 79 
P 78 

P 75 
P 74 
P 73 
P72 
P 68 
P63 
P 57 
P 52 
P 5 1 
P47 
P42 
P41 
P40 
P 39 
P38 
P35 
P 34 
P 33 
P 32 
P31LM 
P 30 
P 2 5 
P 22 
P21 
P20 
P 12 
P 06 
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L FRESH  START  AND  RESTART 


1017 

0003 

OPBMANUV 

= 

3 

1018 

0004 

DESASCNT 

= 

4- 

i n i q 

0005 

LUNRSALN 

— 

5 

1020 

13,2026 

BANK 

1 3 

1021 

REF 

2 

LAST 

6 1 

13,2000 

SETLOC 

INT I NIT 

1022 

13,2026 

BANK 

1023 

REF 

2 

LAST 

61  TO 

61  : 

2 

2* 

COUNT  * 

*>  $/  I NT  IN 

1024 

REF 

2 

LAST 

126 

E 3 , 1 554 

EBANK= 

RP  EC TCSM 

R 102  5 

THIS 

ROUTINE 

DOES  THE 

POO  INTEGRATION 

1026 

13,2026 

43014 

0 

STATEUP 

SET 

BOF 

1027 

REF 

\ 

13,2027 

01474 

1 

VINTFLAG 

1028 

REF 

1 

13,2030 

04347 

0 

SURFFLAG 

1029 

REF 

1 

13,2031 

26036 

0 

D 0 1 N T 

1 010 

13,2032 

43014 

0 

BOF 

SET 

1031 

REF 

1 

13,2033 

02756 

1 

RENDWFLG 

1032 

REF 

2 

LAST 

25  1 

13,  2034 

26036 

0 

DOI  NT 

1033 

REF 

1 

13,  2 03  5 

01476 

0 

01  MO  FLAG 

1034 

13,2036 

45014 

0 

DO  I NT 

CLEAR 

CALL 

1035 

REF 

1 

13,2037 

01667 

1 

PREC  I FLG 

1036  REF  1 13,2040  27134  1 INTFGPV 


1037 

1038 

REF 

2 

LAST 

25  1 

13,2041 
1 3,  2 042 

71214 
04  3 07 

0 

_L 

BON 

DL3AD 

SURFFLAG 

1039 

REF 

1 

13,2043 

26063 

0 

NO- 1 NT 

1040 

REF 

3 

LAST 

127 

13,2044 

01571 

0 

TETC  SM 

1041 

REF 



LAST 

222 

13,2045 

34041 

0 

STCALL 

TDEC 1 

1042 

REF 

2 

LAST 

244 

13,2046 

27412 

0 

I NTS  TALL 

1043 

13,2047 

45014 

0 

CL  EAR 

CALL 

1044 

REF 

— 2 

LAST 

25  1 

1 3,  2 050 

01674 

0 

V I NT  FLAG 

1045 

REF 

1 

13,2051 

26644 

0 

SET  I FLGS 

1046 

13, 2052 

77614 

1 

BOF 

1047 

8EE 

2 - 

LAST 

2 5 1 

13,2053 

02756 

1 

R END  WFLG 

1048 

REF 

1 

13,2054 

26060 

0 

D0INT2 

1049 

13, 2055 

43014 

0 

SET 

SET 

1050 

REF 

2 

LAST 

25  1 

13,2056 

01476 

0 

DI MO  FLAG 

1051 

REF 

1 

13,2057 

01475 

0 

D60R9FLG 

1052 

13,2060 

45014 

0 

DO  I NT  2 

SET 

CALL 

1053 

REF 

2 

LAST 

25  1 

13,2061 

01467 

0 

PREC  IFIG 

1054 

REF 

2 

LAST 

25  1 

13,2062 

27134 

1 

INTFGPV 

1055 

13,2063 

77614 

1 

NO- I NT 

CLRGO 

1056 

REF 

3 

LAST 

223 

13,2  064 

01236 

1 

N03GFLAG 

1057 

REF 

1 

13,2065 

266  32 

1 

END  I NT 

R 1058 


TF  IS VINT  IS  CALLED  BY  MI0T0AV1  AND2 
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EXTRAPOLATE  CM  STATE  VECTOR 
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SURFACE  AND  W-MATRIX  VALIO 
FOR  RENDEZVOUS  NAVIGATION. 


ENGAGES  4-TIME  STEP  LOGIC  IN  INTEGRATION 
WHEN  MOOR EG  = 0 


FXTRAPOLATE  LM  STATE  VECTOR 


ALSO  9X9  W-MATRIX  IF  W IS  VALID 


DISENGAGE  4 TIMF  STEP  LOGIC  IN  INTEG 
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L 

RESTART  TABLES  USER'S  PAGE  NO.  1 EO  S3 

P0001 
R 0002 

RESTART  TAELES 

R 0003 
R0005 
R0007 
P0009 
R0010 
R0012 
R0014 

THERE  ARE  TWo  FORMS  OF  RESTART  TABLES  FOR  EACH  GROUP.  THEY  ARE  KNOWN  AS  THE  EVEN  RESTART  TABLES  AND  THE.  ODD 
RESTART  TABLES.  THE  ODD  TABLES  HAVE  ONLY  ONE  ENTRY  OF  THREE  LOCATIONS  WHILE  THE  EVEN  TABLES  HAVE  TWO  FNTRIES 
EACH  LSING  THREE  LOCATIONS.  THE  INFORMATION  AS  TO  WHETHER  IT  IS  A JOB,  WAITLIST,  OR  A LONGCALL  IS  GIVEN  BY  THE 
WAY  THINGS  ARE  PUT  INTO  THE  TABLES. 

A JOB  HAS  ITS  PRIORITY  STORED  IN  PRDTTAB  OF  THE  CORRECT  PHASE  SPOT  - A POSITIVE  PRIORITY  INDICATES  A 
FINDVAC  JOB,  A NEGATIVE  PRIORITY  A NOVAC.  THE  2CADR  OF  THE  JOB  IS  STORED  IN  THE  CADRTAB. 

FOP  EXAMPLE, 

A0015 

A0016 

5.7SP0T  OCT  23000 

2CADP  SOMEJOB 

R0017 

A RESTART  CF  GROUP  5 WITH  PHASE  SEVEN  WOULD  THEN  CAUSE  SOMEJOB  TO  BE  RESTARTED  AS  A FINDVAC  WITH  PRIORITY  23. 

A0019 

A0020 

5 . 5 SPOT  OCT  -23000 

2C  ADR  ANYJOB 

R0021 

R0023 

R0025 

R0027 

HERE  A RESTART  OF  GROUP  5 WITH  PHASE  1 WOULD  CAUSE  ANYJ03  TO  BE  RESTARTED  AS  A NOVAC  WITH  PRIORITY  23. 

A LCNGC ALL  HAS  ITS  GENADR  OF  ITS  2CADR  STORED  NEGATIVFLY  AND  ITS  B9C0N  STORED  POSITIVELY.  IN  ITS  PRDTTAB  IS 
PLACEC  THE  LOCATION  OF  A DP  REGISTER  THAT  CONTAINS  THE  DELTA  TIME  THAT  LONGCALL  HAD  BEEN  ORIGINALLY  STARTED 
WITH.  EXAMPLE, 

A 002  8 
A0029 
A0030 

3.6SP0T  GENADR  DELTAT 

-GENADR  LONG  TASK 
BBCON  LONCTASK 

A0031 

A0032 

OCT  3 1 0 0 G 

2C ADR  JOBAGAIN 

R0033- 

R0035 

R0037 

THIS  WOULD  START  UP  LONGTASK  AT  THE  APPROPRIATE  TIMF,  OR  IMMEDIATELY  IF  THE  TIME  HAD  ALREADY  PASSED.  IT  SHOULD 
BE  NOTED  TEAT  IF  DELTAT  IS  IN  A SWITCHED  E BANK,  THIS  INFORM  ATOI N SHOULD  BE  IN  THE  BBCON  OFTHE  2CADR  OF  THE 
TASK.  FROM  ABOVE,  WE  SEE  THAT  THF  SECOND  PART  OF  THIS  PHASE  WOULD  BE  STARTEO  AS  A JOB  WITH  A PRIORITY  OF  31. 

R0039 
R0041 
R 0043 
R 0045 
R0047 
R0049 

WAITLIST  CALLS  ARE  IDENTIFIED  BY  THE  FACT  THAT  THEIR  2CADR  IS  STORED  NEGATIVELY.  IF  PRDTTAB  OF  THF  PHASE  SPOT 
IS  POSITIVE,  THEN  IT  CONTAINS  THE  DELTA  TIME,  IF  PRDTTAB  IS  NEGATIVE  THEN  IT  IS  THE  -GENADR  OF  AN  FRASABLE 
LOCATION  CONTAINING  THE  DELTA  TIME,  THAT  IS,  THE  TIME  IS  STORED  INDIRECTLY.  IT  SHOULD  BE  NOTED  AS  ABOVE,  THAT 
IF  THE  TIME  IS  STORED  INDIRECTLY,  THE  BBCON  MUST  CONTAIN  THE  NECESSARY  E BANK  INFORMATION  IF  APPLICABLE.  WITH 
WAITLIST  WE  HAVE  ONE  FURTHER  OPTION,  IF  -0  IS  STORED  IN  PRDTTAB,  IT  WILL  CAUSE  AN  IMMEDIATE  RESTART  OF  THE 
TASK.  EXAMPLES, 

A0050 

A0051 

OCT  77777  THIS  WILL  CAUSE  AN  IMMEDIATE  RESTART 

-2CADF  ATASK  OF  THE  TASK  : AT  ASK : 

A0052 
A00  53 
A0054 
A0055 

DEC  200  IF  THE  TIME  OF  THE  2 SECONDS  SINCE  DUMMY 

-2CADP  DUMMY  WAS  PUT  ON  WAITLIST  IS  UP,  IT  WILL  BEGIN 

IN  10  MS,  OTHERWISE  IT  WILL  BEGIN  WHEN 
IT  NORMALLY  WOULD  HAVE  BEGUN. 
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L 

RESTART 

TABLES 

USER'  S PAGE  NO.  2 EO  S3 

A0056 

A0057 

-GENADR 

-2CADR 

DTIME 

TASKTASK 

WHERF  DTIME  CONTAINS  THE  DELTA  TIME 
OTHERWISE  THIS  IS  AS  ABOVE 

R0058 

NOW  THE 

TABLES  THEMSELVES 

$ # 3jC  If. 

BANK 

01 

0059 

0060 
0061 

REF  1 

01, 2000 
01,2002 

SETLOC 

BANK 

RESTART 

0062 

0063 

01,2000 
01, 2001 

PRDTTAB 
C ADR  T AB 

EQUAL  S 
EQUAL  S 

12000 
1200  1 

USED  TO  FIND  THE  PRIORITY  OR  DELTATIME 
THIS  AND  THE  NEXT  RELATIVE  LOC  CONTAIN 

A0064  RESTART  2CADR 


0065 

REF 

1 

m - ? on? 

n no  l o 

o 

SI  ZETAB 

COUNT  * $ $/ R STAB 
TC  1.2-SPOT  -12006 

TABLES  IN  BANK  1. 

0067 

REF 

1 

01,2003 

0 0020 

0 

TC  1 .3S  POT  -12004 

0068 

REF 

1 

01, 2004 

0 0010 

0 

TC  2.2SPCT  -12006 

006Q 

R FF 

1 

01 r P 005 

0 0023 

0 

TC  2.3SPOT  -12004 

0070 

REF 

1 

01,2006 

0 0010 

0 

TC.  3.2SPOT  -12006 

0071 

REF 

1 

01, 2007 

0 00  53 

1 

TC  3 . 3 S POT  -12004 

0072 

REF 

1 

01,2010 

0 0054 

0 

TC  4 . 2 S POT  -12006 

0073 

REF 

1 

01,2011 

0 0064 

0 

TC  4.3SPOT  -12004 

00  74 

REF 

1 

01, 2012 

0 0137 

1 

TC  5.2SPOT  -12006 

0075 

REF 

1 

-01,201 3 

0 0155 

0 

TC  5.3SP0T  -12004 

0076 

REF 

1 

01, 2014 

0 0010 

0 

TC  6. 2 SPOT  -1200  6 

0077 

REF 

1 

01, 2015 

0 0166 

0 

TC  6 . 3 S POT  -12004 

0078 

01, 2016 

21000 

1 

1 . 2 SPOT 

OCT  21000 

A DUMMY  EXAMPLE  TO  BE  REPLACED  AS  SOON 

0079 

REF 

29 

LAST 

22  8 

0074 

EB  ANK  = ST  AT  F 

0080 

REF 

3 

LAST 

247 

01,2017 

05155 

0 

2CADR  ENDOFJOB 

AS  THERE  IS  A LEGITIMATE  1.2SP0T 

0080 

01, 2 02  0 

04060 

0 

0081 

01,2021 

00144 

0 

DEC  100 

0082 

REF 

30 

LAST 

254 

0074 

EB ANK=  STATE 

0083 

REF 

— 3- 

LAST 

13  1 

01,2022 

05261 

1 

2C ADR  T AS  ROVER 

0083 

0 1,  2023 

04060 

0 

R0084 

ANY 

MC  RE 

GROUP 

1 . EVEN  RESTART 

VALUES 

SHOULD  GO 

HERF 

0085 

REF 

2 

LAST 

16  2 

01, 2024 

76302 

1 

1 . 3SP0T 

-GFNADR  SAVE  T-30 

0086 

REF 

2 

LAST 

162 

F 7 , 1513 

EB ANK=  DVCNTR 

0087 

- REE 

— 1- 

01, 2025 

75440 

0 

-2CADR  ULLGTASK 

0087 

REF 

1 

01, 2026 

037  10 

1 

R0088 

ANY 

MORE 

GROUP 

1 . ODD  RESTART 

VALUES  SHOULD  GO  HERF 

0089 

REF 

2 

LAST 

254 

01,2016 

2.2  SPOT 

EQUALS  1.2SP0T 

R 0090 

ANY 

MORE 

GROUP 

2. EVEN  RESTART 

VALUES 

SHOULD  GO 

HERE 

0091 

REF 

1 

01,2027 

02630 

0 

2.3SP0T 

GENADR  600SECS 

0092 

REF 

1 

01,2030 

75173 

0 

-GENADR  STATEINT 

0093 

REF 

-3-- 

LAST 

25  1 

E 3 , 1 554 

EB  ANR=  RREC.TCSM 

0094 

REF 

2 

LAST 

254 

01,  2031 

26063 

0 

BBCON  STATEINT 

GAP 
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0095 

0096 

REF 

REF— 

REF 

REF 

4 

— 1— 

1 

3 

LAST 

LAST 

254 
20  2 

01, 2032 
E3, 1 554 
01,  2033 

01. 2034 

01.2035 

E7, 1 454 

05000 
026  1 3 

1 

_1_ 

2 . 5 SPOT 

OCT 

EBANK= 
2C  ADR 

05000 
RREC  TCSM 
STAT INTI 

0097 

0097 

0098 

0099 

26063 

02734 

0 

0 

2.7  SPOT 

DEC 

EB ANK= 

1 500 

LOSCGUNT 

0100 

REF 

1 

01,2036 

75502 

1 

-2CADR 

P 2 0 L EMC  1 

0100 

REF 

1 

01, 2037 

27710 

1 

0101 

01, 2040 

14000 

1 

2. 1 1SP0T 

OCT 

14000 

0102 

REF 

2 

LAST 

16  1 

E 7 , 1 756 

EBANK= 

P 21 T IME 

0103 

REF 

1 

01,2041 

02441 

_1 

2CADR 

P25LEM1 

0103 

REF 

1 

01,2042 

50067 

0 

0104 

01, 2043 

10000 

0 

2.1 3SP0T 

OCT 

10000 

0105 

fiE^ 

4 

LAST 

2-5  5 

E7, 1454 

EB ANK= 

LOSC CUNT 

0106 

REF 

1 

01,  2044 

02175 

0 

2C  ADR 

RELI NUS 

0106 

REF 

1 

01,2045 

54067 

1 

0107 

01,  2 046 

26000 

-0 

2. 1 5 S POT 

OCT 

2600  C 

0108 

REF 

5 

LAST 

255 

E7, 1454 

EBANK= 

LOSC CUNT 

0109 

REF 

1 

01,2047 

026  77 

0 

2C  APR 

R22R  STRT 

0109 

REF- 

1__ 

01,  2050 

50067 

-0- 

0110 

01,2051 

77777 

0 

2. 1 7SP0T 

OCT 

77777 

0111 

REF 

1 

E 7 , 1 704 

EB ANK= 

VCPPEV 

0112 

REF 

1 

01,2052 

75447 

1 

-2CADR— 

RLEDC  2.  17 

0112 

REF 

1 

01, 2053 

03710 

1 

0113 

01, 2054 

00031 

0 

2 . 2 1 S POT 

DEC 

25 

0114 

REF 

3 

LASH- 

-254 

F7, 1 51 3 

EBANK= 

D VC  N TP 

0115 

REF 

1 

01,2055 

75675 

1 

-2CADR 

R 1 0 , P 1 1 

0115 

REF 

1 

01,2056 

35710 

1 

R0116  ANY  MORE  GROUP  2.0CD  RESTART  VALUES  SHOULD  GO  HERE. 


0117 
R01 18 

REF 

ANY 

3 

MORE 

LAST 
GRO  UP 

254 
3. EVEN 

01,2016 

RESTART 

VALUES 

3.2SPOT 
SHOtll  0 GO 

EQUALS 

HERE 

1 . 2 S POT 

0119 

REF 

1 

01,2057 

76353 

0 

3.3SP0T 

-GFNADR 

ZOOMTIMF 

0120 

REF 

4 

LAST- 

25  5 

E 7 , 1513 

£BANK= 

DVCN  TR 

0121 

REF 

1 

01,2060 

75223 

0 

-2CADR 

ZOOM 

0121 

REF 

1 

01,2061 

03710 

1 

R0122  ANY  TORE  GROUP  3.  ODD  RESTART  VALUES  SHOULD  GO  HERE 


0123 

0124 

REF 

3 

LAST 

215 

01,2062 
E7, 1451 

04704 

0 4 . 2 SPOT 

DEC 

EBANK= 

2500 

TTOGO 

0125 

REF 

1 

01,2063 

75434 

0 

-2CA0R 

TIG-5 

0125 

REF 

1 

01, 2064 

037  10 

1 

0126 

01,2065 

77777 

0 

nr,T 

77777 

0127 

RFF 

4 

LAST 

255 

F7 , 1451 

EBANK= 

TTOGO 

0128 

REF 

1 

01, 2066 

75444 

1 

-2CADR 

R EDO  4. 2 

0128 

REF 

1 

01,2067 

03710 

1 

R0129 

ANY 

MORE 

GROUP 

4. EVEN 

RESTART 

VALUES 

SHOULD  GO 

HERF 
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0130 

01,2070 

25000 

0 

4.3  SPOT 

OCT 

25000 

0131 

REF 

5 

LAST 

255 

E7, 1513 

EB  ANK  = 

DVCNTR 

REF 

01 ,7071 

032  57 

1 

2CADR 

GOABGRT 

0132 

REF 

1 

01,2072 

64067 

1 

0133 

01,2073 

00062 

0 

4. 5 SPOT 

OEC 

50 

L/\s  T 

? ^ ^ 

E7  t 1 4S 1 

EBANK= 

TTOGO— 

0135 

REF 

1 

01,2074 

75237 

0 

-2CADR 

J LL  A GOFF 

0135 

REF 

1 

01, 2075 

03710 

l 

n 1 1 7 07^ 

00764 

1 

4.7SP0T 

OEC 

5 00 

0137 

REF 

6 

LAST 

256 

E7, 1513 

EBANK= 

DVCNTR 

0138 

REF 

1 

01,2077 

75410 

0 

-2CADR 

TIG-0 

0138  REF  — 1 — -4X1,2100  03710  1 


0139 

0140 

REF 

REF 

3 

7 

LAST 
1 AST 

209 
Z3  6 

01,2101 
E7, 1 513 

76262 

0 

4.11SP0T-GENADR 
EB ANK  = 

T GO  +1 
DVCNTR 

0141 

REF 

i 

01,2102 

74235 

0 

-2CADR 

ENGO  FTSK 

0141 

REF 

i 

01,2103 

03710 

1 

0147 

01,2  104 

12000 

1 

4.1  3SP0-T  OCT 

12000 

0143 

REF 

2 

LAST 

154 

E7, 1460 

EB ANK= 

TRKMKCNT 

0144 

REF 

1 

01, 2 105 

03223 

1 

2CADR 

POSTBURN 

0144  REF  1 --01,2106  74067  0 
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POl  12  THE  OPTAXIS  SUBROUTINE  COMPUTES  THE  X ANO  Y MARK  PLANE  VECS  AND 

R0113  AND  ROTATES  THEM  THRU  THE  APPARENT  FIELD  OF  VIEW  ROTATION  UN  IOUF  TO  AOT 


R0114 

R0115 

OPTAXIS  USES  0 ANB  TO 
INPUT-AZIMUTH  ANGLE 

COMPUTE  T 
IN  SINGLE 

HE  OPT 
PREC 

1C 

AT 

AX  lb 

CDU  SCALE 

IN  8D 

OF  JOB  VAC 

R 0 1 1 6 

ELEVATION  ANGLE  IN  SINGLE  PREC  AT  CDU 

SCALE  IN 

9D  OF  JOB  VAC 

RO  117 

ROTATION  ANGLE  IN  SINGLE  PREC 

IS 

COMP 

SCALED  BY 

PI  IN  100  OF 

VAC 

ROl  1 8 

OUTPUT-OPTIC  AXIS  V EC  IN  NB  COORDS 

IN 

SC AX  IS 

RO  1 19 

X-MARK  PLANE 

1/4VEC  IN 

NB  COORDS  AT 

18D 

OF  JOB 

VAC 

ro ] ?a 

Y-MARK  PLANE 

1/4VEC  IN 

NB  COORDS  AT 

1 2D 

OF  JOB 

VAC 

0121 

07,2  142 

77624 

1 

OPTAXIS 

CALL 

GO  COMPUTE  OA  AND  X AND  Y PIANE  VECS 

0122 

REF  1 

07,2143 

13370 

1 

□ ANB 

0123 

07,2 144 

70535 

0 

SLOAD 

SP1 

LOAD  APP  ROTATION  IN  ONES  COMP 

0124 

07,2145 

00013 

0 

10D 

RESCALE  BY  2PI 

012^ 

07,2 146 

73406 

1 

PUSH 

S I NL 

1/2SINIR0T ) 0-1 

0126 

07,2 147 

71525 

0 

PDDL 

cos 

0127 

07,2150 

74206 

0 

PUSH 

VXSC 

1/2C0SIR0T)  2-3 

n l 

07,2151 

00023 

0 

18D 

0129 

07,2 152 

74325 

0 

PDDL 

VXSC 

1/4C0SIR0T1UYP  4-9 

0130 

07,2153 

00001 

0 

0 

0 131 

07, 2 154 

00031 

0 

24D 

1 /4STNI ROT IUXP 

0132 

07,2155 

45445 

0 

BVSU 

STADR 

UP  4-9 

0133 

07,2156 

63762 

1 

STOOL 

1 2D 

YPNB=1/4(C0SI ROT) UYP-S INI  ROT) UXP ) 

0134 

07, 2157 

65361 

0 

VXSC 

PDDL 

UP  2-3  UP  0-1  FOR  EXCHANGE 

0135 

07,2160 

00031 

0 

24D 

1 /4C0SI ROT ) UXP  PUSH  0-5 

0137 

07,2161 

53361 

0 

VXSC 

VAD 

1 /4S I N ( ROT ) U YP 

0138 

jO  7 ,2162 

00023 

0 

18D 

UP  0-5 

01381 

07,2163 

77626 

0 

STADR 

0139 

07,2 164 

53754 

1 

STOVL 

18D 

XPNB=1/4(COS(ROT)UXP*-SIN(ROT)UYP) 

0140 

REF  1 

07, 2165 

222  75 

1 

L OfeZ  EROS 

INITIALIZE  AVE  STAR  VEC  ACCUMULATOR 

0141 

REF  8 LAST  139 

07,2166 

02715 

0 

STORE 

STARAD  +6 

0142 

07,2  167 

77776 

1 

EXIT 

0143 

REE  1 

07,2170 

1 2202 

1 

TCF 

3ETMKS 

263 
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R0144  TEE  QANB  SUBROUTINE  COMPUTES  T HE  OPTIC  AXIS  OF  THE  SIGHTING  INSTRUMENT 
R0145  F PCM  AZIMUTH  AND  ELEVATION  INPUT  FROM  THE  ASTRONAUT. 

R0146  INPUT-  AZIMUTH  ANC-LE  IN  SINGLE  PREC  2S  COMP  IN  8D  OF  JOB  VAC 

R0147  ELEVATION  ANGLE  IN  SINGLE  PREC  2S  COMP  IN  9D  OF  VAC 

R0148  OUTPUT-CPTIC  AXIS  IN  N9  COORDS.  IN  SCAXIS 

RO 1 49  X-PLANE  1/2VEC  IN  N3  COORDS  AT  24D  OF  VAC 

R0150  Y-PLANE  1/2VEC  IN  NB  COORDS  AT  18D  OF  VAC 


01  50  1 

05,3370 

BANK 

05 

01502 

REF 

1 

05,2000 

SETLOC 

AOTM  ARK2 

01  504 

05,3370 

BANK 

01506 

REF 

1 

COUNT  * 

t$/M  ARK 

n 5t  ^^70 

4-4  00  1 

0 QANB 

SFTPP 

STO 

0152 

05, 3371 

00001 

0 

0 

0153 

REF 

2 

LAST 

138 

05, 3372 

02736 

1 

GCTR 

STORE  RETURN 

0 1 54 

0 5*  3 373 

47135 

0 

SLOAD 

RTB 

0155 

05, 3374 

00012 

1 

9 D 

PICK  UP  SP  ELV 

0156 

REF 

1 

05, 3375 

21465 

0 

CDJL  OGIC 

01  57 

0 5,  3376 

71406 

0 

PUSH 

CCS 

0158 

05,3377 

73525 

1 

PDDL 

SIN 

1/2C0SIELV)  PD  0-1 

01581 

05,  3400 

77626 

0 

STADR 

0159 

REF 

2 

LAST 

16  1 

05, 3401 

60016 

0 

STODL 

SCAXIS 

0 AX  = 1 / 2S I N ( ELV ) 

0160 

05,3402 

00011 

l 

8 D 

PICK  UP  AZ  SP 

0161 

05, 3403 

776  34 

0 

RTB 

0162 

REF 

2 

L AST 

-264 

05*3404 

2 L 4 65 

0 

CDULOGIC 

0163 

05, 3405 

71406 

0 

PUSH 

COS 

0164 

05,3406 

00025 

0 

STORE 

2 OD 

STORE  UYP(Y)  20-21 

0165 

05,3407 

73525 

1 

PDDL 

SIN 

1/2C0SIAZ)  PD  2-3 

0166 

05,  3410 

57406 

1 

PUSH 

DCOM  P 

PUSH  1/2SINIAZ)  4-5 

0167 

05,3411 

14027 

1 

STODL 

2 2D 

STORE  UYPtZ)  22-23 

0168 

REF 

2 

LAST 

26  3 

05, 3412 

222  75 

1 

L06ZER0S 

0169 

05, 3413 

14023 

0 

STODL 

1 8D 

STORE  UYP(X)  18-19  UP 

0170 

05,3414 

72405 

0 

DM  P 

SL1 

01 71 

05,3415 

00001 

o 

o 

0172 

REF 

3 

LAST 

264 

05,3416 

17763 

0 

STODL 

SCAX  IS  +2 

0 AY  = 1 / 2C0S (ELV )SIN! AZ) 

0173 

05, 3417 

72405 

0 

DM  P 

SL1 

UP  2-3 

0174 

05, 3420 

77626 

0 

STAPP 

UP  0-1 

0175 

REF 

4 

LAST 

264 

05, 3421 

50012 

1 

STOVL 

SCAX  IS  +4 

0 AZ  = l /2C0S ( ELV ) COS ( AZ ) 

01  76 

05, 3422 

00023 

0 

18D 

LOAD  UYP  VEC 

0177 

05,  3423 

53435 

0 

VX  V 

UNI  T 

0178 

REF 

5 

LAST 

264 

05,3424 

03761 

1 

SCAX  IS 

UXP  VEC=UYP  X OA 

0179 

05,3425 

00031 

0 

STORF 

24D 

STORE  UXP 

0180 

05,3426 

77650 

1 

anjn 

0181 

REF 

3 

LAST 

264 

05,  3427 

02736 

1 

GCTR 

2 64 
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P0182 

SURFSTAR  COMPUTES 

A STAR  VECTOR  IN  SM  COORDINATES  FOR  LUNAR 

R0183 

SURFACE  ALIGNMENT 

AND  EXITS 

TO  AVEIT 

TO  AVERAGE  STAR 

VECTORS. 

R 0 1 8 4 

GIVEN 

X-MARK  PLANE  1/4  VEC 

IN  NB 

AT 

18D  OF  LOCAL  VAC 

R0185 

Y-MARK  PLANE  1/4  VEC 

IN  NB 

AT 

1 2D  OF  LOCAL  VAC 

R0186 

CURSOR  SP 

2C0MP  AT  POSITION 

1 

OF  INDEXED  MARKVAC 

<;pi  R A 1 R P 

?r  nMP  AT  PflS  IT  I ON 

3 

OF  INDEXED  MARKVAC 

RO  188 

CDUY , 2,  X 

AT 

POSITIONS 

0,2,4 

OF 

INDEXED 

MARKVAC 

0189 

15,2000 

BANK 

15 

01  QO 

REF  1 

15,2  000 

SETLOC 

P50S 

0191 

15,2000 

BANK 

0192 

REF  1 

COUNT  * 

t*/P 59 

0192  1 

15,2000 

77773 

1 

SURFSTAR 

VLOAD* 

01922 

15,2001 

00001 

0 

0,1 

PUT  X-MARK  CDUS  IN  CDUSPOT  <=0R  TRG*NBSM 

0 1 9?  3 

REF  4 

LAST  117 

15,2002 

00767 

1 

STORE 

CDUSPOT 

0193 

15,2003 

471  33 

0 

SLOAD* 

RTB 

0194 

15, 2004 

00002 

0 

1,1 

PICK  UP  Y ROT 

0195 

REF  _3_ 

LAST  264 

15,2005 

21465 

0 

CDU1 OGIC 

0196 

15,2006 

00031 

0 

STORE 

24D 

STORE  CURSOR  FOR  SPIRAL  COMP  (REVS) 

01961 

15,2007 

77654 

0 

BZE 

01962 

REF  1 

15,2010 

16171 

1 

YZCHK 

IF  YROT  ZERO-SEE  IF  SROT  ZERO 

0197 

15, 2011 

71406 

0 

JUSTZY 

PUSH 

COS 

0198 

15,2012 

73525 

1 

PDDL 

SIN 

1 / 2C  OS ( YROT ) 0-1 

0199 

15, 201 3 

65361 

0 

VX  SC 

PDDL 

UP  0-1  1/8S IN( YROT)UXP  0-5 

0200 

15,2014 

00023 

0 

18D 

0201 

15, 201 5 

52361 

1 

VXSC 

VSU 

UP  0-5 

0701  1 

15,2016 

0001  5 

o 

1 2D 

UYP 

0202 

15,2017 

47256 

0 

UNIT 

VXV 

0203 

REF  6 

LAST  264 

15,2020 

03761 

1 

SCAX  I S 

0204 

15, 2021 

41456 

c 

UNIT 

PUSH 

0205 

15,2022 

47133 

0 

SLOAD* 

RTB 

0206 

15,2023 

00004 

0 

3,1 

PICK  UP  SPIRAL 

02  07 — 

REF  M 

LAST  265 

15, 2024 

21465 

0 

CDUL  OGIC 

0208 

15,2025 

00033 

1 

STORE 

26D 

STORE  SPIRAL  (REVS) 

0209 

15,2026 

43225 

0 

DSU 

DAD 

02  IQ- 

15,2027 

00031 

0 

24D 

0211 

REF  1 

15,2030 

32047 

0 

ABOUTONF 

0212 

15, 2031 

77605 

1 

DM  P 

0213- 

REF  -1 

15,2032 

32534 

1 

DPI/  12 

0214 

15,2033 

00033 

1 

STORE 

26D 

S E P= ( 360  + SPIRAL  - CURS0R1/12 

0215 

15,2034 

74356 

1 

SIN 

VXSC 

UP  0-5 

0216  - 

15, 2035 

65372 

1 

VSL  1 

PDDL 

1/2SIN(SEP) (UPP  X OA)  0-5 

0217 

15,2036 

00033 

1 

260 

0218 

15,2037 

74346 

0 

COS 

VXSC 

0219 

REF  7 

LAST  265 

15, 2040 

03761 

1 

SCAX  IS 

0220 

15,2041 

53372 

1 

VSL  1 

VAD 

UP  0-5 

0221 

15, 2042 

45056 

c 

JUS  TOA 

UNIT 

CALL 

0222 

REF  J. 

15,2043 

47570 

0 

TRG*  NBSM 

0224 

15,2044 

34031 

1 

ST  CAL  L 

24D 

STAR  VEC  IN  SM 

0225 

RFF  1 

15, 2045 

16276 

0 

AVE  I T 

GO  AVERAGE 
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0226 

15,2046 

37777 

1 

ABOUTONE 

2DEC 

. 9999999 

0226 

15,2047 

37775 

0 

1 r*  , 2 5 3 3 

OP  1 / 1 2 

EQUALS 

DEG30 

0228 

07,2171 

BANK 

7 

0229 

REF 

2 LAST 

259 

07,  2000 

SETLOC 

ACT  M ARK1 

07,  7 1 71 

BANK 

0231 

REF 

3 LAST 

261  TO 

264: 

38  105* 

COUNT* 

$$/M ARK 

02311 

07,2171 

53133 

0 

YZCHK 

SLOAO* 

BZE 

07,7172 

00004 

0 

3,1 

0231  3 

REF 

1 

07,2173 

16177 

1 

YSZERO 

02  31  A 

07, 2174 

52145 

0 

DLOAO 

GOTO 

07,  7 ] 7S 

00031 

0 

2 40 

02316 

REF 

1 

07,2 176 

32011 

0 

JUSTZY 

02317 

07,  2 177 

52175 

0 

YSZERO 

VLOAD 

GOTO 

2-6  8 

07-7 700 

03761 

1 

SC  A X IS 

0231  9 

REF 

1 

07,2201 

32042 

0 

JUSTOA 

.08333333 


Y ROT  ZERO  AND  IF  SROT  ZERO  FORCE  STAR 
ALONG  OPTIC  AXIS 


SROT  NOT  ZERO-CONT INUE  NORMALLY 


266 
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P0232  TEE  GETMKS  ROUTINE  INITIALIZES  THE  SIGHTING  MARK  PROCEDURE 


0233 

0234 

0235 

n O 

REF 

REF 

REF 

REF 

20 

8 

2 

2 

LAST 
LAST 
LAST 
L A'ST 

263. 
262 
1 6 C 
2 6 0 

07,  2202 

07.2203 

07. 2204 

07.2205 

3 4755 
55' 547 
55*546 
3 5004 

-t- 

1 

0 

_0_ 

GETMKS 

CAF 

TS 

TS 

CAF 

ZERO 

XYMARK 

MARKCNTR 

LDW9 

UcJ  o 
0237 

REF 

8 

LAST 

261 

07,2206 

7 1312 

1 

MASK 

MARK  STAT 

0238 

REF 

9 

LAST 

267 

07,2207 

55' 312 

1 

TS 

MARK  STAT 

0241 

REF 

07,2210 

3 2621 

0 

CAF 

MKVB54* 

0242 

REF 

11 

LAST 

26  1 

07,2211 

0 4616 

1 

PASTI T 

TC 

BANKCALL 

0243 

REF 

1 

07, 2212 

20223 

0 

CADR 

GOM  A RK4 

0244 

REF 

4 

LAST 

261 

07, 2213 

0 6001 

0 

TC 

GOTO  POOH 

0245 

REF 

1 

07,2214 

1 2216 

1 

TC  F 

MARK  CHFX 

0246 

REF 

4- 

LAST 

26  1 

07,2215 

1 2060 

J 

TC  F 

GETD AT 

0251 

REF 

10 

LAST 

267 

07,2216 

4 1312 

1 

MARKCHEX 

CS 

MARK  STAT 

02  52 

R6R 

17 

LAST 

26  1 

07, 2217 

7 4740 

_1 

MASK 

81T12 

0253 

REF 

11 

LAST 

267 

07, 2220 

27*312 

1 

ADS 

MARK  STAT 

0254 

REF 

3 

LAST 

267 

07,2221 

7 5004 

1 

MASK 

L0W9 

02  55 

REF 

9 

LAST 

26  7 

07, 2222 

55' 547 

1 

TS 

XYMARK 

0256 

REF 

21 

LAST 

267 

07,2223 

3 47  55 

1 

CAF 

ZERO 

0257 

REF 

2 

LAST 

16  C 

07, 2224 

55*550 

1 

TS 

MKDEX 

02  58 

REF 

12 

LAST 

26  7 

07, 2225 

3 1312 

0 

CA 

MARK  STAT 

0259 

REF 

1 

07,2226 

7 5015 

1 

MASK 

PRIC  3 

0260 

REF 

17 

LAST 

247 

07,2227 

54  001 

1 

TS 

L 

0 2 61 

REF 

2 

LAST 

267 

07,2230 

3 5015 

0 

CAF 

PRI03 

0262 

07,2231 

0 0006 

1 

EXTEND 

0263 

REF 

8 

LAST 

23  1 

07,  2232 

06  001 

0 

RXOR 

LCHAN 

0264 

J)  7,  2233 

0 0006 

1 

EXTEND 

0265 

REF 

1 

07,2234 

1 2241 

0 

BZF 

AVES  TAP 

0266 

REF 

3 

LAST 

267 

07, 2235 

11' 546 

0 

CNTCHK 

CCS 

MARKCNTR 

0267 

07,2236 

1 2240 

1 

TC  F 

+ 2 

0268 

REF 

1 

07, 2237 

1 2325 

0 

TC  F 

MKAL ARM 

0269 

REF 

4 

LAST 

26  7 

07,2240 

55' 546 

0 

TS 

MARKCNTR 

0270 

REF 

18 

LAST 

26  7 

07,2241 

3 4740 

0 

AVFSTAP 

CAF 

8 I T 1 2 

0271 

REF 

3 

LAST 

267 

07,2242 

27' 550 

1 

ADS 

MKDEX 

0272 

REF 

5 

LAST 

26  7 

07, 2243 

4 1546 

0 

CS 

MARKCNTR 

0273 

07,2244 

0 0006 

1 

EXTEND 

02  74 

REF 

3 

LAST 

25  5 

07, 2245 

7 6241 

1 

MP 

S I X 

0275 

REF 

10 

LAST 

26  7 

07,2246 

4 1547 

_L 

CS 

XYMARK 

0276 

REF 

18 

LAST 

26  7 

07,2247 

6 0001 

0 

AD 

L 

0277 

REF 

6 

LAST 

262 

07, 2250 

50  120 

1 

INDEX 

F l X L OC 

02  78 

REF 

X- 

07, 2251 

54  046 

JL 

TS 

XI 

0279 

REF 

7 

LAST 

267 

07,2252 

3 0120 

1 

CA 

F I X L CC 

0280 

REF 

L 

07,2253 

54  1 66 

JL 

TS 

PUSH  LOC 

0281 

REF 

5 

LAST 

262 

07,2254 

0 6036 

1 

TC 

INTPPET 
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INITIALIZE  MARK  ID  REGISTER  AND  MARK  CNT 
ZERO  BITS10  TO  15  RETAINING  MK VAC  ADR 
DISPLAY  VB54  INITIALLY 


V B 34  TERMINATE- THIS  RELEASES  MK V AC  AREA 
VB33-PR0CEED,  GOT  MARKS,  COMPUTE  LOS 
ENTER-RECYCLE  TO  V01N71 

SET  8 I T 1 2 TO  DISCOURAGE  MARKRUPT 


JAM  MARK  VAC  ADR  IN  XYMARK  FOR  AVESTAR 
SET  MKDEX  ZERO  FOR  LOS  VEC  CNT R 
SEE  IF  LAST  MK  PARI  COMPLETE 
BITS10  ANO  11 


LAST  PAIR  COMPLETE-GO  COMPUTE  LOS 
NO  PAIR  SHOWING-SEE  IF  PAIR  IN  HOLD 
PAIR  BURI ED-DECREMENT  COUNTER 
NO  PAIR-ALARM 
STORE  DECREMENTED  COUNTER 

INITIALIZE  MKDEX  FOR  STAR  LOS  COUNTER 
MKDEX  WAS  INITIALIZED  ZERO  IN  MARKCHEX 


GET  C ( L ) = - 6 MARKCNT  R 

ADD  - MARK  VAC  ADR  SET  IN  MARKCHEX 

JAM  - CDU  ADR  OF  X-MARK  IN  XI 


SET  PD  POINTER  TO  ZERO 
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0282 

07,2255 

766  14 

0 

BON 

VLOAO* 

0283 

REF 

3 

LAST 

25  1 

07,2256 

04307 

1 

SURF  FLAG 

^ ^ ^ , 

07 , 2 25  7 

12000 

0 

SURF  STAR 

0285 

07,2260 

00002 

0 

1,1 

02  86 

REF 

5 

LAST 

265 

07, 2261 

24767 

1 

STOVL 

CDUS  POT 

^ ^ 

07t  2 262 

000  1 5 

o 

120 

0288 

07, 2263 

77624 

1 

CALL 

0289 

REF 

2 

LAST 

265 

07,2264 

47570 

0 

TRS*NBSM 

07  , ? 766 

76606 

0 

PUSH 

V LOAD* 

0291 

07, 2266 

00001 

0 

0,1 

0292 

REF 

6 

LAST 

26  8 

07,2267 

24767 

1 

STOVL 

COUSPOT 

07, 2270 

00023 

0 

1 8D- 

0294 

07,2271 

77624 

1 

CALL 

0295 

REF 

3 

LAST 

268 

07,  2272 

47570 

0 

TRG*NBSM 

07,  2 271 

53435 

0 

VX  V 

UNI  T 

02  97 

07,2274 

77626 

0 

STADR 

0298 

07, 2275 

77746 

1 

STORE 

24D 

0301 

07, 2276 

63335 

1 

AVE  IT 

SLOAD 

PDVL 

0302 

REF 

4 

LAST 

26  7 

07,2277 

03551 

0 

MK3E  X 

010  3 

07,2  300 

00031 

0 

24D 

0304 

07, 2301 

70322 

0 

VSR3 

V/SC 

0305 

07,2302 

00001 

0 

0 

0106 

07, 2303 

14031 

0 

STODL 

2 4D 

0307 

07, 2304 

00001 

0 

0 

0308 

07,2305 

56225 

1 

DSU 

DDV 

oioq 

RFF 

1 

07,  2 306 

16623 

1 

DPI  / 8 

0310 

07,2307 

53361 

0 

VX  SC 

VAD 

0311 

REF 

9 

LAST 

263 

07,2310 

02715 

0 

STARAD  +6 

0112 

07,211 1 

000  11 

o 

24D 

0313 

REF 

10 

LAST 

268 

07,2312 

02715 

0 

STORE 

STARAD  +6 

0314 

REF 

4 

LAST 

21  1 

07, 2313 

02767 

0 

STORE 

STAR  SAV2 

0315 

07,2314 

77776 

1 

EXIT 

0316 

REF 

6 

LAST 

267 

07,2315 

11' 546 

0 

CCS 

M ARKCNTR 

0317 

REF 

2 

LAST 

267 

07, 2316 

1 2240 

1 

TCF 

AVESTAR  - 

0318 

REF 

5 - 

LAST 

Z 4 6 

07,2317 

3 4756 

1 

ENDMARKS 

CAF 

F I VE 

0319 

07,2320 

0 0004 

0 

INHINT 

0320 

REF 

7 

LAST 

202 

07, 2321 

0 5203 

0 

TC 

W A I TLIST 

0321 

REF 

11 

LAST 

2 67 

F7 , 1 547 

EBANK= 

X YMAPK 

0322 

REF 

1 

07,2322 

02047 

0 

2CADR 

MKRE  LEAS 

0322 

REF 

1 

07,2323 

16067 

1 

0323 

REF 

1 

07,2324 

0 5472 

0 

TC 

ENDM ARK 

0324 

RFF 

-11 

L AST 

242 

07,  2 325 

0 5567 

o 

MK A L AR  M 

TC 

A|  ARM 

0325 

07,2326 

00111 

0 

OCT 

in 

0326 

REF 

2 

LAST 

263 

07,2327 

1 2202 

1 

TCF 

GETMKS 

0327 

07,2330 

00307 

0 

V01N71 

VN 

171 

0328 

07,2331 

01527 

0 

V06N87* 

VN 

687 
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IF  ON  SURFACE  COMPUTE  VEC  AT  SURFSTAR 

PUT  Y-MARK  CDUS  IN  COUSPOT  FOR  TRG*NBSM 

LOAD  Y-PLANE  VECTOR  IN  NB 

CONVERT  IT  TO  STABLE  MEMBER 

PUT  X-MARK  COUS  IN  COUSPOT  FOR  TRGANBSM 

LOAD  X-PLANE  VECTOR  TN  NB 

CONVERT  IT  TO  S TA 8LE-MF MB ER 
UNIT1XPSM  * YPSM) 


NINUMBER  OF  VECSI  IN  0-1 
LOAD  CURRENT  VECTOR 


VEC/N 


(N-1I/N 

ADD  VEC  TO  PREVIOUSLY  AVERAGED  VECTOR 
LN-ll/N.  AVESTVEC  + VEC/N 
AVERAGE  STAR  VECTOR 


SEE  IF  ANOTHER  MARK  PAIR  IN  MKVAC 
THERE  IS-GO  GET  IT-DECREMENT  COUNTER 
NO  MORE  MARKS-TERMINATE  AOTMARK 


NOT  A PAIR  TO  PROCESS-DO  GETMKS 


GAP: 

L 

P0329 

R0330 

033  L 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 
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MARKRIPT  IS  ENTERED  FROM  INTERUPT  LEAC-INS  AND  PROCESSES  CHANNFL  16 
CAUSED  BY  X j Y MARK  OR  MARK  REJECT  OR  BY  THE  RATE  OF  DF  SCENT  SWITCH 


REF 

2 

LAST 

170 

07,  2332 

54  016 

1 

MARKRUPT  TS 

BANK  PUPT 

REF 

1 

07,2333 

3 0033 

1 

CA 

CDJY 

REF 

5- 

LAST 

1 52 

07, 2334 

54  063 

0 

TS 

I TEMP3  _ 

REF 

4 

LAST 

203 

07,2335 

3 0034 

0 

CA 

C DU  Z 

REF 

3 

LAST 

1 1 1 

07,  2336 

54  064 

1 

TS 

I TFMP4 

REF 

5- 

LAST 

21  C 

07,2337 

3 0032 

0 

CA 

C DU  X 

REF 

2 

LAST 

1 1 1 

07,  2 340 

54  065 

0 

TS 

I TEMP5 

07,2341 

0 0006 

1 

EXTFND 

REF 

7- 

LAST 

2 Li 

07,2342 

3 0025 

0 

DC  A 

T IME2_ 

REF 

4 

LAST 

152 

07, 2343 

52  062 

1 

DXCH 

I TFMP1 

REF 

20 

LAST 

248 

07, 2344 

56  002 

0 

XCH 

0 

REF 

2 

LAST 

1 7C 

07, 2 345 

54  012 

0 

TS 

QRUPT 

REF 

l 

07,2346 

3 2624 

0 

CAF 

3CT34 

07,  2 347 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

233 

07,2350 

02  016 

1 

RAND 

NAVKEYIN 

REF 

53 

LAST 

260 

07,2351 

10  000 

0 

CCS 

A 

07,2352 

1 2354. 

0 

TCF 

+ 2 

REF 

1 

07,  2353 

1 2404 

1 

TCF 

SOMEKEY 

REF 

4r9 

LAST 

267 

07,  2354 

3 4740 

8 

CAF 

B I T1  2 

REF 

13 

LAST 

267 

07,2355 

7 1312 

1 

MASK 

MARK  STAT 

REF 

54 

LAST 

269 

07, 2356 

10  000 

0 

CCS 

A 

REF- 

8 

LAST 

205 

07, 2357 

0 52  70 

1 

TC 

RESUME 

REF 

14 

LAST 

269 

07, 2360 

1 1 ' 3 1 2 

1 

CCS 

MARK  STAT 

REF 

— 1— 

07, 2 361 

1 2365 

1 

T C F 

F INDKEY 

REF 

12 

LAST 

26  8 

07, 2362 

0 5567 

0 

TC 

ALARM 

07, 2363 

00112 

0 

OCT 

112 

REF- 

— 9- 

LAST 

26  9 

07,2  364 

0 5270 

1 

TC 

RESUME 

REF 

15 

LAST 

243 

07,2365 

3 4747 

1 

FINDKEY  CAF 

B I T 5 

07,  2366 

0 0006 

4. 

EX  TEND 

REF 

3 

LAST 

269 

07, 2367 

02  016 

1 

RAND 

NAVKEYIN 

REF 

55 

LAST 

269 

07,2370 

10  000 

0 

CCS 

A 

REF 

1 

07, 2371 

1 2461 

1 

TCF 

M K P E J 

REF 

18 

LAST 

247 

07,2372 

3 4750 

1 

CAF 

B I T4 

07,  2373 

0 0006 

JL 

EXTFND 

REF 

4 

LAST 

269 

0 7,2374 

02  016 

1 

RAND 

NAVK  EYIN 

REF 

56 

LAST 

269 

07,2375 

10  000 

0 

CCS 

A 

REF 

1 

07, 2 376 

1 2422 

0 

TCF 

YMKP  UPT 

REF 

14 

LAST 

26  1 

07,2377 

3 4751 

0 

CAF 

B I T3 

07, 2400 

0 0006 

1 

EXTFND 

REF 

5 

LAST 

269 

07,  2401 

02  016 

1 

RAND 

NAVK  EYIN 

STORE  CDUS  AND  T I MF  NOW-THEN  SEE  IF 
WE  NEED  THFM 


SEE  IF  X OR  Y MARK  OR  MKREJECT 


ITS  A LIVE  ONE-SEE  IF  ITS  WANTED 
ITS  SOME  OTHER  KEY 

ARE  WE  ASKING  FOR  A MARK 


DONT  WANT  MARK  OR  MKREJECT-DO  NOTHING 

ARE  MARKS  BEING  ACCEPTED 
THEY  ARE-WHICH  ONE  IS  IT 
MARKS  NOT  BEING  ACCEPT  ED-DO  ALARM 


SEE  IF  MARK  RFJECT 

ITS  A MARK  REJECT 
SEE  IF  Y MARK 


ITS  A Y MARK 
SEE  IF  X MARK 


269 


GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  8Y  NASA  2021112-011 


L ACTMARK 


0371 

REF 

57 

LAST 

269 

07,2402 

10  000 

0 

CCS 

A 

0372 

REF 

1 

07, 2403 

1 24  16 

I 

tcf 

XMKRUPT 

0373 

REF 

1 

07,  2404 

3 4 776 

0 

SOMEKEY 

CAF 

OCT  1 40 

0374 

07,  2405 

0 0006 

1 

EXTEND 

07. 

02  0 1 6 

1 

RAND 

NAVK  FYIN 

0376 

L m o i 

07,2407 

0 0006 

1 

EXTEND 

0377 

07,2410 

1 2413 

1 

BZF 

+ 3 

0378 

REF 

6 

LAST 

24  5 

07,2411 

0 4635 

0 

TC 

POST  JUMP 

0379 

REF 

1 

07,2412 

40115 

0 

CADR 

DESC  B ITS 

0380 

REF 

13 

LAST 

269 

07, 2413 

0 5567 

0 

TC 

ALARM 

0381 

07,2414 

00113 

1 

OCT 

113 

0382 

REF 

10 

LAST 

269 

07,2415 

0 5270 

1 

TC 

RESUME 

X MK  RHpJ 

r 4F 

7 fr n 

L H J 1 

0384 

REF 

13 

LAST 

133 

07,2417 

54  070 

1 

TS 

RUPTPEGl 

0385 

REF 

17 

LAST 

235 

07,2420 

3 4742 

1 

CAF 

8 I T 1 0 

03  8^ 

D7t  2 4? 1 

1 2425 

1 

TCF 

-♦-4 

0387 

REF 

10 

LAST 

2 6 C 

07,2422 

3 4753 

1 

YMKRUPT 

CAF 

ONE 

0388 

REF 

14 

LAST 

270 

07, 2423 

54  070 

1 

TS 

RUPTPEGl 

0389 

REF 

17 

LAST 

24  7 

07,2424 

3 4741 

1 

CAF 

B I T 1 1 

0390 

REF 

12 

LAST 

268 

07,2425 

55 ' 547 

1 

TS 

XYMARK 

Q EF 

1 

n 7 T 2 4 2 6 

o 2^14 

o 

TC 

MARK  type 

03902 

REF 

1 

07,2427 

1 2521 

1 

TCF 

SURF  STOR 

Q3Q  ] 

REF 

L T 

23  l 

n7,  2 480 

r 47  37*. 

l 

CAF 

R I T 1 4 

0392 

REF 

15 

LAST 

269 

07,2431 

7 1312 

1 

MASK 

MARK  STAT 

0393 

07,2432 

0 0006 

1 

EXTEND 

03  94 

REF 

1 

07,2433 

1 2444 

0 

BZF 

VEP I FYMK 

0395 

REF 

7 

LAST 

268 

07,2434 

4 1546 

0 

cs 

MARK  CNTR 

0396 

REF 

3 

LAST 

227 

07,2435 

6 4751 

0 

AD 

FOUR 

0397 

07,-2436 

0 0006 

1 

EXTEND 

0398 

REF 

1 

07,2437 

6 2454 

0 

BZMF 

5MKALARM 

0399 

REF 

8 

LAST 

270 

07,2440 

25' 546 

1 

I NCR 

MARK  CNTP 

0400 

REF 

1 

07,2441 

4 77  10 

1 

CS 

PR  I 023 

0401 

REF 

16 

LAST 

270 

07,2442 

7 1312 

1 

MASK 

MARK  STAT 

0402 

REF 

17 

LAST 

270 

07,2443 

55' 312 

1 

TS 

MARK  STAT 

0403 

REF 

13 

LAST 

270 

07,2444 

3 1547 

0 

VEP I FYMK 

CA 

XYMAPK 

0404 

REF 

18 

LAST 

270 

07, 2445 

7 1312 

1 

MASK 

MARK  STAT 

0405 

REF 

58 

LAST 

270 

07,2446 

10  000 

0 

CC  s 

A 

0406 

07,  2447 

1 2451 

1 

TCF 

+ 2 

0407 

REF 

1 

07,2450 

1 2526 

0 

TCF 

VACSTOR 

0408 

REF  - 

14- 

LAST 

27  0 

07,2451 

0 5567 

0 

TC 

ALARM 

0409 

07,2452 

00114 

0 

OCT 

1 1 4 

0410 

REF 

11 

LAST 

270 

07, 2453 

0 5270 

1 

TC 

RESUME 
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ITS  A X MARK 

NOT  MARK  OR  MKREJECT-SEE  IF  DESCENT  BITS 

IF  NO  BITS 
IF  DESCENT  BITS 

NO  INBITS  IN  CHANNEL  16 


SET  X MARK  STORE  INDEX  TO  ZERO 


SET  Y MARK  STORF  INDEX  TO  ONE 

SET  MARK  I DENT  I FI  AT  ION 

SEE  IF  SURFACE  MARK 
SURFACE  MARK-JUST  STORE  CDUS 

GOT  A MARK-SEE  IF  MARK  °AIR  MADE 


NOT  A PAIR,  NORMAL  PROCEDURE 

GOT  A PAIR,  SEE  IP  ANOTHER  CAN  3 F MADE 

IF  SO,  INCREMENT  POI NTE R, CLEAR  BITS10.il 

HAVE  FIVE  MARK  PAIRS-DONT  ALLOW  MARK 
OK  FOR  ANOTHER  PAIR,  I NCR  POINTER 
CLEAR  BITS10, 11,14  FOR  NEXT  PAIR 


THIS  MARK  NOT  DESIRED 
MARK  DESIRED  - STORE  CDUS 


RESUME-DISPLAY  UNCHANGED-WAIT  FOR  ACTION 


GAP  : 
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L AOT  MARK 


0411 

REF 

15 

LAST 

270 

07, 2454 

0 

5567 

0 

5MKALARM  TC 

ALARM 

0412 

07,2455 

00107 

1 

OCT 

107 

r\A  19  1 

Dpp 

2 

LAST 

2 7 0 

07,2456 

0 

25  14 

_0 

TC 

MARK  TYPE 

unit  i 

04122 

r>  c r 

REF 

1 

07,2457 

1 

2627 

1 

TCF 

DSPV6N79 

0413 

REF 

12 

LAST 

270 

07,2460 

0 

5270 

1 

TC 

RESUME 

USER ■ S PAGE  NO.  13  E7  S3 

ATTEMPTING  TO  MAKE  MORE  THAN  5 MK  PAIRS 

SEE  IF  SURFACE  MARK 
IT  IS 

OONT  CHANGE  DISPLAY-DO  NOTHING 
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0414  REF  3 LAST  271  07,2461  0 2514  0 MKREJ  TC  MARKTYPE 

04141  REF  1 07,2462  1 2507  0 TCF  SURFPEJ 


04142 

REF 

3 

LAST 

267 

07,2463 

3 5015 

0 

CAF 

PRI03 

0415 

REF 

19 

LAST 

270 

07,2464 

7 1312 

1 

MASK 

MAPKSTAT 

0416 

REF 

5-9 

LAST 

J?7fl 

07*  2 465 

10  000 

0 

CCS 

A 

0417 

REF 

i 

07,2466 

1 2472 

0 

TCF 

REJECT 

0418 

REF 

16 

LAST 

27  1 

07, 2467 

0 5567 

0 

REJALM 

TC 

ALARM 

04 1 ^ 

07*  2 47  0 

00115 

1 

OCT 

115 

0420 

REF 

13 

LAST 

27  1 

07,  2471 

0 5270 

1 

TC 

RESUME 

l 

R-F.l  Ff.T 

c s 

P R I P.  ^0 

042 1 

REF 

0422 

REF 

20 

LAST 

272 

07,2473 

7 1312 

1 

MASK 

MARK  STAT 

0423 

REF 

18 

LAST 

234 

07,2474 

6 4737 

0 

AD 

BIT13 

07  T 2 476 

67 • T 1 2 

o 

XCH 

MARK  STAT 

0425 

REF 

19 

LAST 

272 

07^2476 

7 4737 

1 

MASK 

B I T 1 3 

0426 

REF 

60 

LAST 

272 

07,2477 

10  000 

0 

CCS 

A 

0427  REE 1 ■ ■■  07,2  500  1 2505 — 1-  TCF — RE  J fc  CT2 


0428 

REF 

14 

LAST 

270 

07,2501 

4 1547 

1 

CS 

XYMARK 

04  2Q 

REF 

2 2 

\ AST 

2 7 2 

07  * 2 502 

7 1312 

I 

REMEWMK 

MASK 

MARK  STAT 

043  0 

REF 

23 

LAST 

272 

07, 2503 

55' 312 

1 

TS 

MARK  STAT 

0431 

REF 

1 

07,2504 

1 2577 

1 

TCF 

REMARK 

0432 

REF 

4 

LAST 

272 

07,2505 

4 5015 

1 

REJECT2 

CS 

PRI  03 

0433 

REF 

1 

07,2506 

1 2502 

0 

TCF 

RENEWMK 

0433  1 

REF 

9 

LAST 

270 

07,2507 

1 1 ' 546 

0 

SURFREJ 

CCS 

MARK  CNTR 

04332 

07, 2510 

1 2512 

1 

TCF 

+ 2 

REF 

1 

07,251 1 

1 2467 

1 

TCF 

REJALM 

04334 

REF 

10 

LAST 

272 

07, 2512 

55' 546 

0 

TS 

M AP  K CNTR 

04335 

REF 

14 

LAST 

272 

07,  2513 

0 5270 

1 

TC 

RESUME 

SEE  IF  SURFACE 

SURFACE-JUST  CHECK  MARK  COUNTER 


INFLIGHT-SEE  IF  MARKS  MADE 


MARKS  MADE-REJECT  ONE 

NO  MARK  TO  REJECT-BAD  PROCEDURE-ALARM 


DESIRED  ACTION  DISPLAYED 


ZERO  B I T1  4*  SHOW  REJ..-SEE  IF  MARIC-SINCE 
LAST  REJECT 


ANOTHER  REJECT  SET  BIT  10+11  TO  ZERO 


MARK  MADE  SINCE  REJECT-REJECT  MARK  IN  ID 


GO  REQUEST  NEW  MARK  ACTION 
ON  SECOND  REJECT-DISPLAY  VB53  AGAIN 

IF  MARK  DECREMENT  COUNTER 
NO  MARKS  TO  REJECT-ALARM 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25*1968  LEMONAI0.070  PAGE  273 

L AOTMARK  USER'S  PAGE  NO.  15  E7  S3 


R0434 


R0435 

MARKTYPE  TESTS 

TO  : 

SEE  IF  LFM 

ON  LUNA! 

1 

SURFACE.  II 

F I T I S 

RETURN  TO 

LOG  + 1 

0436 

REF 

1 

07, 2514 

4 0104 

0 

MARKTYPE 

CS 

FLAGWRD8 

SURFFLAG*******TEMPORARY***** 

ha.  7 

REF 

19  LAST 

24  7 

07*  2 515 

7 4744 

o 

MASK 

BIT  8 

Ut  j / 

0438 

REF 

61  LAST 

272 

07,2516 

10  000 

0 

CCS 

A 

0439 

REF 

21  LAST 

269 

07, 2517 

24  002 

0 

INCR 

0 

IF  SURFACE  MARK  REUTNR  TO  LOC  +1 

0440 

REF 

22  LAST 

27  3 

07,  2520 

0 0002 

-0- 

_IC 

Q 

IF  INFLIGHT  MARK  RETURN  TO  LOC  +2 

04401 

REF 

23  LAST 

270 

07,2521 

3 47  55 

1 

SURFSTOR 

CAF 

ZERO 

FOR  SURFACE  MARK  ZERO  MARK  KIND  INDEX 

0440  2 

REF 

15  L AST 

27  0 

07, 2522 

54  070 

1 

TS  _ 

RUPTREGl 

04403 

REF 

24  LAST 

272 

07,  2523 

4 1312 

1 

CS 

MARKSTAT 

SET  BITS10,11  TO  SHOW  SURFACE  MARK 

04404 

REF 

5 LAST 

272 

07,2  524 

7 5015 

_1_ 

MASK 

PR  I 0 3 

FOR  MARKCHEX 

04405 

REF 

25  LAST 

273 

07,2525 

27' 312 

1 

ADS 

MARK  ST AT 

D L C 

4 LAST 

2 6 7 

07, 2 526 

3 5004 

o 

VACSTOR 

CAF 

L 0 W 9 

J. 

0442 

I'Ll 

REF 

26  LAST 

273 

07, 2527 

7 1312 

1 

MASK 

MARKSTAT 

STORE  MARK  VAC  ADR  IN  RUPTRFG2 

0443 

REF 

6 LAST 

186 

07,  2530 

54  071 

0 

TS 

RUPTREG2 

0444 

07,2531 

0 0006 

1 

EXTEND 

0445 

REF 

5 LAST 

269 

07, 2532 

3 0062 

0 

DC  A 

ITEMP1 

PICK  UP  MARKT  IMF 

0446 

REF 

1 

07,2533 

53*560 

1 

DXCH 

T SIGHT 

STORE  LAST  MARK  TIME 

0447 

REE 

11  LAST 

27  2 

07,2534 

3 1546 

_L 

CA 

MARK  CNTR 

6 X MARKCNTP  FOR  STORF  INDEX 

0448 

07,2535 

0 0006 

1 

EXTEND 

0449 

REF 

4 LAST 

267 

07,2536 

7 62  41 

1 

MP 

SIX 

0450 

REF 

19  LAST 

26  7 

07, 2537 

56  001 

0 

XCH 

L 

GET  INDEX  FROM  LOW  ORDER  PART 

0451 

REF 

7 LAST 

273 

07, 2540 

6 00  71 

1 

AD 

RUPT  REG2 

SET  CDU  STORE  INDEX  TO  MARKVAC 

04511 

REF 

16  LAST 

27  3 

07,  2541 

26  070 

1 

ADS 

RUPT  REG1 

INCREMENT  VAC  PICKUP  BY  MARK  FOR  FLIGHT 

0452 

REF 

_5 L AST 

26  8 

07, 2542 

55*550 

1 

TS 

MKOE  X 

STORE  HERE  IN  CASE  OF  SURFACE  M AR K 

0453 

REF 

6 LAST 

269 

07, 2543 

3 0063 

1 

CA 

I TEMP3 

0454 

REF 

17  LAST 

273 

07,2544 

50  070 

0 

INDEX 

RUPTREGl 

0455 

07, 2545 

54  000 

0 

TS 

_Q 

STORE  CDUY 

0456 

REF 

4 LAST 

269 

07,2546 

3 0064 

0 

CA 

I TEMP4 

0457 

REF 

18  LAST 

273 

07,2547 
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NO.  SET  FLAG  TO  SHOW  EXT  VERB  DISPLAY 

A0078 

SYSTEM  BUSY 

0079 

REF 

2 3- 

LAST 

27  3 

43, 2 1 06 

3 00  02 

0 

C A 

Q 

0080 

REF 

34 

LAST 

277 

43,  2 107 

54  155 

1 

TS 

MP AC  +1 

0081 

REF 

— 4- 

L AST 

2 5 9 

43, 2 1 10 

4 4752 

1 

C S 

TWO 

PI  ANK  FV/FRYTHTNO  FXTFPT  MM  AM  n VFRR 

0082 

REF 

i 

43, 2 11  1 

0 4154 

0 

TC 

NVSUB 

0083 

43, 2 112 

0 2113 

0 

TC 

+ 1 

0084 

REF 

-35 

LAST 

278 

43, 2113 

0 0155 

0 

TC 

M P A C +1 

0085 

REF 

2 

LAST 

246 

43, 2 114 

0 43  64 

1 

XACTALM 

TC 

F ALTON 

TURN  ON  OPERATOR  ERROR  LIGHT. 

0086 

REF 

6 

LAST 

-22  3 

43,2115 

0 547? 

0 

TC 

FNDF  XT 

RELEASE  MARK  AND  EXT.  VERB  QISPLAV  SYS. 

0087 

REF 

7 

LAST 

278 

5472 

TERMFXT V 

EQUALS 

ENDEXT 
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0088 

REF 

8 

LAST 

278 

5472 

ENDEXTV  B 

EQUALS 

ENDEXT 

D CC 

0 A 

1 ACT 

07  7 

43 ,2116 

3 

47  55 

1 

X ACTO 

CAF 

7 FRC 

0089 

0090 

Ktr 

REF 

1 

L A j 1 

C-  1 J 

43,  2 117 

0 

2105 

1 

TC 

SETXTACT 

DCC 

LAST 

2 7 8 

43  2 120 

0 

4364 

ALM /END 

TC 

F ALTON 

009 1 

Ktr 

D 

0092 

REF 

7 

LAST 

270 

43, 2 121 

0 

4635 

0 

GOP  IN 

TC 

POST  JUMP 

0093 

REF 

2 

LAST 

242 

43, 2 122 

20723 

0 

CADR 

PINBRMCH 

0094 

REF 

6 

LAST 

246 

43, 2123 

3 

1011 

0 

CHKPOOH 

CA 

MDDREG 

0095 

43,2124 

0 

0006 

1 

EXTEND 

0096 

REF 

1 

43 , 2 12  5 

L 

6741 

1 

BZF 

TCQ 

0097 

REF 

13 

LAST 

278 

43,2126 

0 

2120 

0 

TC 

ALM/ENP 

00971 


43,2 127 


24100  0 0C24100  OCT 


2 410  0 
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RELEASE  MARK  AND  EXT.  VERB  DISPLAY  SYS. 
TURN  ON  OPERATOR  ERROR  LIGHT 

CHECK  FOR  POO  OR  P00-. 


GAP: 

L 

P0098 

R0099 

R0100 

ROlOl 

R0102 

R0103 

R0104 

R0105 

R0106 

0110 

Gill 

0112 

0113 
01131 

0114 


0115 

0116 
0117 


0118 

0120 

01202 

0121 


0122 

0123 

0124 

0125 

R 01  26 
R0127 
R0129 
R0130 
R0131 
R0131 1 


0132 
01322 

0133 

0134 
0134  1 

01342 

01343 

01345 

01346 

01347 
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VBZERO  VERB  40  DESCRIPTION 

1-.--R  E-QUIR-E  NOON  20  ( I CDU  ANGLES)  OR  NOUN  72  IRCDU  ANGLES). 

2.  FOR  N20,  CHECK  IMUCAOR  IN  AN  EFFORT  TO  AVOID  A 1210  RESTART. 
FOR  N7 2 , CHECK  IF  EITHER  RADAR  IS  IN  USE. 

3.  EXECUTE  THE  CDU  ZERO. 

4.  STALL  UNTILL  THE  ZERO  IS  DONE. 

5.  DCN'T  DIFFERENIATE  BETWEEN  A BAD  OR  GOOD  RETURN. 

6.  EXIT,  RE-ESTABLISHING  THE  INTERRUPTED  DISPLAY  (IF  ANY). 


REF 

1 

43,2130 

0 2174 

1 

VBZERO 

TC 

OP/ I NERT 

43,  2 1 31 

0 2133 

1 

TC 

IMUZ  FROK 

RETURN  HERE  IF  NOUN  = ICDU(?0) 

REF 

1 

43,2 132 

0 2142 

1 

TC 

RRZEROK 

RETURN  HERE  IF  NOUN  = RCDU<72) 

REF 

1 

43, 2133 

0 2405 

1 

IMUZEROK 

TC 

CKMODCAD 

l 3 

LAST 

27* 

43,2134 

0 4616 

1 

TC 

BANKCALL 

KEYBOARD  R.EQ  FOR  ISS  CDUZERO 

REF 

2 

LAST 

22  3 

43,  2135 

16667 

1 

CADR 

I MUZ  EPO 

n 4*  1 

l 

TC 

R Afv  k r A | 1 

STALl 

REF 

2 

LAST 

22  3 

43,  2137 

17671 

1 

CADR 

IMUSTALL 

43,  2 140 

0 2141 

1 

TC 

+ 1 

REF 

1 

43,2141 

0 2121 

1 

TC 

GOP  I N 

I MUZERO 

4-3  t 2 142 

0 26  5 2 

l 

RR  7 PRflK 

TC 

r hr  u seck 

REF 

15 

LAST 

280 

43, 2 143 

0 4616 

1 

TC 

BANKCALL 

REF 

1 

43,2144 

52343 

l 

CADR 

RRZERO 

REF 

16 

LAST 

280 

43, 2 145 

0 4616 

1 

RWA I TK 

TC 

BANKCALL 

REF 

1 

43, 2 146 

17667 

0 

CADR 

R ADS  TALL 

43,2147 

1 21  50 

o 

TC  F 

+ 1 

REF 

2 

LAST 

280 

43,2 150 

0 2121 

1 

TC 

3CP  I N 

RRZERO 

LRP0S2K  VERB  60  DESCRIPTION 

COMMAND  LANDING  RADAR  TO  POSITION  2 

1.  EXIT  WITH  OP  ERROR  IF  SOMEONE  IS  USING  EITHER  RADAR. 

2.  ALARM  WITH  CODE  523  IF  POS  2 IS  NOT  INDICATED  WITHIN 
THE  PRESCRIBED  TIME. 

3.  RE-ESTABLISH  THE  DISPLAYS. 


REF 

REF 

— REF — 

2 

17 

— 1_ 

LAST 

LAST 

280 

280 

43.2 151 

43.2152 
43, 2 153 

0 2652 
0 4616 
53471 

1 

1 

0 

LRP0S2K 

TC 

TC 

CADR 

R DR  U SECK 
BANKCALL 
LPP0S2 

COMMAND  LR  TO  POSITION  2 

REF 

18 

LAST 

280 

43, 2154 

0 4616 

1 

TC 

BANKCALL 

REF 

2 

LAST 

280 

43,2155 

17667 

0 

CADR 

R ADSTALL 

RFF 

1 

43,2156 

0 2160 

1 

TC 

LPP2  ALM 

REF 

3 

LAST 

280 

43,2157 

0 2121 

1 

TC 

GOP  I N 

R EE  - 

17— 

-LAST 

27  2 

43, 2160 

0 5567 

o 

1 RP  2 ALm 

TC 

ALARM 

43,2161 

00523 

0 

OCT 

523 

REF 

4 

LAST 

280 

43,2162 

0 2121 

1 

TC 

GOPI  N 
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L 

EXTENCED 

VERBS 

USER'S  PAGE  NO. 

5 

E 5 S4 

R0135 

Vfcl 

VERB 

61,  DISPLAY  DAP 

ATTI TUDE 

FRRORS  ON 
DAPATTER 

FD A I ATTITUCE  ERROR  NEEDLES, 
■rr  nnuiMFi  A r. 

01  37 

0138 

0139 

REF 

REF 

REF 

9 

1 

5 

LAST 

2 8 0 

43.2164 

43. 2 165 

00013 
0 2121 

0 

1 

ADRES 

TC 

NEEDLFLG 
GOPI  N 

RO 140 

V 62 

VERB 

62,  DISPLAY  TOTAL  ATTITUDE  ERRORS 

ON  FDA  I 

ATTITUDE  ERROR  NEEDLES. 

43  t 2 1 AA 

0 5 5.f>4 

o 

TOT  ATTFR 

TC 

UPFL  AG 

0143 

REF 

2 

LAST 

28  1 

43, 2167 

00013 

0 

ADRES 

NEEDLFLG 

0144 

REF 

6 

LAST 

28  1 

43,2  170 

0 2121 

1 

TC 

GOP  I N 

R0145 
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P0146  VBCOARK  VERB  41  DESCRIPTION 

R0147  COARSE  ALIGN  IMU  OR  RADAR 

R0148  1.  REQUIRE  NOUN  20  OR  NOUN  72  OR  TURN  ON  OPERATOR  ERROR. 

R 0 1 4 9 2.  REQUIRE  EXT  VERB  DISPLAY  SYS  AVAILABLE  OR  TURN  ON  OPERATOR  ERROR  LIGHT  AND  GO  TO  PINBRNCH. 

R0151  CASE  1 NOUN  20  1ICDU  ANGLES) 

R0152  3.  SET  EXT  VERB  DISPLAY  ACTIVE  FLAG. 

RO  1 53  4.  DISPLAY  FLASHING  V25,N22  (LOAD  NEW  ICDU  ANGLES). 

RO 154  RESPONSES 

R 0 1 5 5 A.  TERMINATE 

RO 1 56  1.  RELEASE  EXT  VERB  DISPLAY  SYSTEM 

R0157  B.  PROCEED 

RO 1 58  U-COARSE  ALIGN  TO  THE  EXISTING  THETAD'S  (IC0PK2). 

R0168  C.  ENTER 

R 0 1 69  1.  COARSE  ALIGN  TO  THE  LOADED  THETAD'S  (IC0PK2). 

R0170  IC0RK2 

R0171  1.  RE-DISPLAY  VERB  41. 

RO  1 72  2 . EXECUTE  IMUCOARS  (IMU  COARSE  ALIGN). 

R0173  3-.  EXECUTE  IMUSTALL  (ALLOW  TIME  FOR  DATA  TRANSFERS 

RO 1 74  4.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 

R0175  CASE  2 NOUN  72  (RCDU  ANGLES) 

RO 17 5 5 EX  IT— WITH- OP  ERROR  IF  SOMEONE  IS  USING  EITHER  RADAD. 

RO  1 76  5.  DISPLAY  FLASHING  V24.N73  (LOAD  NEW  RR  TRUNION  ANGLE  AND  NEW  SHAFT  ANGLE). 

R0178  RESPONSES 

R0179  -A.  TERMINATE 

R0180  1.  RELEASE  EXT  VERB  DISPLAY  SYS. 

R0181  B.  PROCEED  OR  ENTER 

R 0 1 8 2 1.  EXECUTE  AURLOKON  (ASK  OPERATOR  FOR  LOC K-ON  REQU IREM ENTS  ) . 

R0184  2.  RE-DISPLAY  VERB  41. 

R0185  3.  SCHEDULE  RRDESK2  WITH  PRIORITY  20. 

*0186-  4.  RELEASE  EXT  VERB  DISPLAY  SYS. 

R0187  AURLOKON 


R0188 
RO  1 89 
R019O 

1.  FLASH  V 04  N 12  R1  = 00006  R2  = 
RESPONSES 
A.  TERMINATE 

00002 

R0194 

8.  PROCEED 

R0195 

1.  RESET  LOCK-ON  SWITCH 

R0195 1 

2.  SET  CONTINUOUS  DESIGNATE 

FLAG 

R01952 

3.  DISABLE  R25 

R 01 96 

C.  V 22  E 1 E,  R1  = 00001,  PROCEED 

R0197 

1.  SET  LOCK-ON  SWITCH 

0198 

REF 

2 

LAST  280  43,2171  0 2174  1 VBCOARK 

TC 

OP/ INERT 

0199 

REE 

1 

43,2172  0 2205  1 

TC 

I MUCOAPK 

0200 

REF 

— 1- 

43,2  173  0 2227  1 

TC 

RRDE  SNBK 

R0201 

RETURNS  TO  L+l  IF  IMU  OR  L+2  IF  RR . 

RETURN  HERE  IF  NOUN  = ICDU(20) 
RETURN  HERE  IF  NOUN  = RCDU(72) 


0202  REF  3 LAST  278  43,2174  4 6007  1 OP/ INERT  CS 

0203  REF  2 LAST  237  43,2175  6 1002  1 AO 

0204  43,2176  0 0006  1 EXTEND 


OCT 2 4 
NOUNREG 


282 


GAP 
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0205 

REF 

2 

LAST 

279 

43, 2 177 

l 6741 

1 

BZF 

T CO 

4 2 2H0 

A 7204 

o 

AD 

RRIMUDIF 

0207 

0208 

43,2201 

0 0006 

1 

EXTEND 

0209 

REF 

2 

LAST 

172 

43, 2202 

1 6736 

1 

BZF 

0+1 

0210 

REF 

14 

LAST 

279 

43,2203 

0 2120 

0 

TC 

ALM/ END 

777  1 3 

PR  I MIJDI  F 

DEC 

-52 

0211 

0213 

RFF 

2 

LAST 

280 

43, 2205 

0 2405 

1 

I MUCOARK 

TC 

CKMCDCAD 

0214 

RFF 

1 

43, 2206 

0 2076 

1 

TC 

TEST  X ACT 

02  1 ^ 

REF 

1 

43, 2207 

3 222  5 

0 

CAF 

VNLODCDU 

02  16 

REF 

19 

LAST 

280 

43,2210 

0 4616 

1 

TC 

BANKCALL 

0217 

REF 

1 

43,2211 

20212 

1 

CADR 

GOXDSPF 

0218 

RFF 

1 

43, 2212 

0 5472 

0 

TC 

TERM  EXTV 

0219 

43,2213 

1 2214 

0 

TC  F 

+ 1 

1 

4 3»  2 214 

3 22  2^ 

o 

IC0RK2 

CAF 

I MUCCAR V 

0221 

REF 

20 

LAST 

283 

43,2215 

0 4616 

1 

TC 

BANKCALL 

0222 

REF 

2 

LAST 

222 

43,2216 

20473 

0 

CADR 

EXDSPRET 

0223 

REF 

21 

LAST 

283 

43,2217 

0 4616 

1 

TC 

BANKCALL 

0224 

REF 

1 

43,2220 

16753 

1 

CADR 

I MUCOARS 

0225 

REF 

22 

LAST 

283 

43,2221 

0 46  16 

1 

TC 

BANKCALL 

0226 

REF 

3 

LAST 

280 

43, 2222 

17671 

1 

CADR 

I MUSTALL 

02  2*7 

RFF 

1 

43 1 2 22  3 

0 5472 

0 

TC 

END  EX  T VB 

0228 

REF 

2 

LAST 

28  3 

43,2224 

0 5472 

0 

TC 

ENDE  XTVB 

02  2^ 

4^  t 2 22  s 

0^2  2^ 

1 

VN|  nnrnu 

VN 

2 S2  2 

0230 

43,2226 

12200 

0 

I MUCOAR V 

VN 

4100 
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IF  = 20. 

-52 


I LLFGAL. 

THE  I MU 

COARSE  ALIGN  FROM  KEYBOARD. 
CALL  FOR  THETAD  LOAD 


RE-DISPLAY  COARSE  ALIGN  VERB. 


CALL  MODE  SWITCHING  PROG 


STALL 
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P0231 

DESIGNATE 

TO  DES  IP  FD 

GIMBAL 

ANGLES. 

0 26^2 

1 RRDESNBK 

TC 

R |3R  l J SFCK 

02  32 

REF 

0234 

REF 

2 

LAST 

28  3 

43,2230 

0 2076 

i 

TC 

TESTXACT 

0235 

REF 

3 

LAST 

243 

43, 2231 

3 4745 

0 

CA 

RNDVZBIT 

REF 

1 A 

LAST 

24  6 

43 , 2232 

7 0074 

0 

MASK 

FLAGWRDO 

0237 

REF 

65 

LAST 

278 

43,  2233 

10  000 

0 

CCS 

A 

0238 

REF 

1 

43, 2234 

1 21  14 

0 

TC  F 

X ACT ALM 

REF 

l 

43, 2235 

4 2321 

1 

CS 

OC  T 4 1000 

0240 

43,  2236 

0 0004 

0 

INHINT 

0241 

REF 

18 

LAST 

23  5 

43,2237 

7 01  10 

0 

MASK 

RADMODES 

0242  - REF  19  LAST  284  43, 2240  5-4  1.10  Q — TS  RADMGDFS 


0243 

0244 

REF 

REF 

1 

2 3 

LAST 

2813 

43,2241 
43,2  242 

3 

0 

2260 
46 16 

1 

L 

CAF 

TC 

VNLDRCDU 
BANK  CALI 

0245 

REF 

2 

LAST 

283 

43,  2243 

20212 

1 

CADR 

GCXPSPF 

0246 

REF 

2 

LAST 

28  3 

43, 2244 

0 

5472 

0 

TC 

TERMFXTV 

0247  43,  2245  1 2241  0 _IC£ 


0248 

REF 

24 

LAST 

284 

43, 2246 

0 4616 

1 

TC 

BANKCALL 

024Q 

REF 

1 

43, 2 247 

46000 

0 

CADR 

AURL  OKON 

0250 

REF 

1 

43,2250 

3 2226 

0 

CAF 

0 PTC  OAR V 

025  1 

REF 

25 

LAST 

28  4 

43,  2251 

0 46  16 

1 

TC 

BANKCALL 

0252 

REF 

3 

LAST 

283 

43, 2252 

20473 

0 

CADR 

EXDSPRET 

02^3 

P EF 

1 

4^,  2 253 

3 4736 

l 

CAF 

P R I n 20 

0254 

REF 

3 

LAST 

259 

43, 2254 

0 5105 

0 

TC 

FINDVAC 

0255 

REF 

6 

LAST 

255 

E7, 1454 

EBANK= 

LOSC  OUNT 

0236 

R EF 

1 

43, 2255 

077  61 

0 

2CADP 

PRDE  SK2 

0256 

REF 

1 

43, 2256 

66107 

1 

02  57 

REF 

3 

LAST 

2 84 

4^, 2257 

1 54  72 

TPP MFYTV 

0258 

43, 2260 

061  1 1 

0 

VNLDRCDU  VN 

2473 

0259 

REF 

— 2— 

LAST 

28  3 

43,  2 226 

OPT CDARV  FQUAl  S 

I MUC OAPV 

0260 

REF 

26 

LAST 

284 

43, 2261 

0 4616 

1 

RRDESK2  TC 

BANKCALL 

0261 

R EF 

1 

43, 2262 

52475 

0 

CADR 

RRDE  SNB 

0262 

43,2263 

0 22  64 

0 

TC 

+1 

0262  1 

REF 

9 

LAST 

23  6 

43, 2264 

3 0167 

1 

C A 

PRIORITY 

02622 

REF 

5 

LAST 

273 

43,2265 

7 5004 

1 

MASK 

LOW  9 

02623 

REF 

66 

LAST 

284 

43,2266 

10  000 

0 

CCS 

A 

02624 

REF 

67 

LAST 

284 

43, 2267 

50  000 

1 

INDEX 

A 

02625 

REF 

68 

LAST 

28  4 

43, 2270 

54  000 

0 

TS 

A 

02626 

43,2271 

4 0000 

0 

COM 

02627 

REF 

10 

LAST 

28  4 

43,2272 

26  167 

0 

ADS 

PR  I Q-R1TY 

0263 

REF 

27 

LAST 

284 

43,2273 

0 46  16 

1 

TC 

BANKCALL 

0264 

REF 

3 

LAST 

28  0 

43, 2274 

17667 

0 

CADR 

R ADSTALL 
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IS  P20  RUNNING? 


OPERATOR  ERROR  IF  IN  P20 
TERMINATE  PRESENT  DESIGNATION 
RELINT  DONE  IN  GOXQSPF 


ASK  FOR  GIMBAL  ANGLES. 


V 33 

ASK  OP  FOR  LOCK  ON  REQUIREMENTS. 


RE-DISPLAY  OUR  OWN  VERB 


FREFS  DISPLAY.— 

DIFFERENT  NOUNS. 

DUMMY  NEEDED  SINCE  DESRETRN  DOES  INCR 

RELEASE  THIS  JOBS  VAC  AREA. 

INSURE  ENDOF JOB  DOES  A NOVAC  END  ( BZMF ) . 


WAIT  FOR  C OMPLF  T I ON  OF  DESIGNATE 


GAP 
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0265 

43, 2275 

0 

2277 

1 

TC 

+ 2 

0266 

REF 

4 

LAST 

254 

43, 2276 

0 

51  55 

0 

TC 

ENDOFJOB 

O rr 

1 ft 

1 T 

7 ft  0 

43, 2277 

0 

5567 

0 

TC 

ALARM 

yjTL  O ( 
0268 

Ktr 

1 o 

LAj  1 

C.O  U 

43, 2300 

00503 

1 

OCT 

503 

0269 

REF 

5 

LAST 

285 

43,  2301 

0 

5155 

0 

TC 

ENDOFJOB 

0270 

REF 

20 

LAST 

28  4 

43,2302 

10  110 

0 

RPDESEND  CCS 

P ADMODES 

0271 

REF 

7 

LAST 

2 8 1 

43 , 2 303 

1 2121 

0 

TCF 

GOP  I N 

0272 

REF 

8 

LAST 

285 

43,2304 

l 2121 

0 

TC  F 

GOP  I N 

0273 

43,2305 

1 2306 

1 

TCF 

+ 1 

0274 

REEF 

2 

LAST 

28  4 

43, 2306 

4 2321 

1 

CS 

0CT4  1000 

0275 

43,2307 

0 0004 

0 

I NHINT 

0276 

REF 

21 

LAST 

28  5 

43, 2310 

7 0110 

0 

MASK 

RADMODFS 

0277 

REF 

22 

LAST 

28  5 

4 3,2311 

54  110 

jQ__ 

TS 

P ADMODES 

0277  1 

REF 

3 

LAST 

245 

43,  2 312 

0 6011 

1 

TC 

CLRADMOD 

02773 

REF 

1 

43,2313 

3 4777 

1 

CAF 

1SEC 

02774 

REF 

28 

LAST 

2 8 4 

43,  2 314 

0 4616 

_I 

TC 

BANKCALL 

02775 

REF 

3 

LAST 

22  3 

43,  2315 

01735 

1 

CADR 

DELAYJOB 

0278 

REF 

10 

LAST 

28  1 

43,2316 

0 5516 

0 

TC 

DOWN  FLAG 

02  79 

REF 

1 

43,  2 317 

00126 

1 

ADRES 

NORR  MON 

0280 

REF 

9 

LAST 

285 

43,2320 

1 2121 

0 

TCF 

GOPI  N 

0281 

43,2321 

41000 

1 

OCT 41000  OCT 

4 1000 

USER'S  PAGE  NO.  9 E5  S4 

BADENO-NO  LOCKON  OR  OUT  OF  LIMITS 
GOODEND-LOCKON  ACHIEVED 

TURN  ON  ALARM  LIGHT  -503  DESIGNATE  FAIL 

TERMINATE  CONTINUOUS  DESIGNATE  ONLY 

BEGDES  GOES  TO  ENDRADAR 
RELINT  DONE  IN  DOWNFLAG 


ENABLE  R25  GIMBAL  MONITOR 


CONTINUOUS  DESIGNATE 


DESIGNATE 


GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 


EXTENDED  VERBS 


02812 

23,2000 

BANK 

23 

0281  A 

REF 

1 

23,2000 

SETLOC 

EXT VB1 

2 3,2  000 

BANK 

02818 

REF 

1 

COUNT  * 

$ $ / E XTVB 

l 

AUR  LOKON 

TC 

MAX F CADR 

0282 

0283 

REF 

2 

LAST 

119 

23, 2001 

55' 1 13 

1 

TS 

DESPET 

028A 

REF 

5 

LAST 

278 

23,2002 

3 4752 

0 

CAF 

TWO 

_ „ _ P- 

6 6*  05? 

o 

TS 

DPTICNX  +1 

0286 

REF 

5 

LAST 

273 

2 3,2  OOA 

3 6241 

0 

CAF 

SIX 

02862 

REF 

2 

LAST 

286 

23,2005 

55*  051 

0 

TS 

OPT  I ONX 

02  86  A 

REF 

1 

23,2006 

3 2037 

1 

-5 

CAF 

V04N1272 

02866 

REF 

29 

LAST 

28  5 

23,2007 

0 4616 

1 

TC 

BANKCALL 

02  8^8 

REF 

1 

23,2010 

20231 

0 

CADR 

GOMA PKFR 

02869 

REF 

9 

LAST 

279 

23, 2011 

1 5472 

1 

TCF 

ENDE  XT 

0287 

23, 2012 

l 2017 

1 

TCF 

+ 5 

Q2-RR 

2 3,  2 013 

1 2006 

1 

TCF 

-5 

0289 

REF 

15 

LAST 

269 

23,  20  1 A 

3 4751 

0 

CAF 

BIT3 

0290 

REF 

1 

23, 2015 

0 5464 

1 

TC 

BLANKET 

0291 

REF 

6 

LAST 

28  5 

23, 2016 

0 5155 

0 

TC 

ENDCFJOB 

0292 

REF 

3 

LAST 

286 

23, 2017 

3 1052 

1 

+ 5 

CA 

OPT  I ONX  +1 

0292 

R|=F 

2 3 

\ AST 

2 6 9 

?3t  2 020 

7 4752 

1 

MASK 

B I T 2 

029A 

REF 

69 

LAST 

28  A 

23,2021 

10  000 

0 

CCS 

A 

0295 

REF 

1 

23,2022 

1 2026 

0 

TCF 

NOLOKON 

0296 

REF 

2 

L AST 

28  1 

23,  2 023 

0 5504 

0 

TC 

UPFLAG 

0297 

REF 

i 

23,2024 

00012 

1 

ADRES 

L OKO  NSW 

0298 

REF 

i 

23,2025 

1 2034 

0 

TCF 

AURLK0N1 

0299 

REF 

ii 

LAST 

285 

23,2026 

0 5516 

0 

NOLOKON 

TC 

DOWN  FLAG 

02991 

REF 

2 

LAST 

286 

23,2027 

00012 

1 

ADRES 

L OKO  NSW 

02992 

REF 

3 

LAST 

28  6 

23, 2030 

0 5504 

0 

TC 

UPFLAG 

02993 

REF 

i 

23, 2031 

00264 

1 

ADRES 

CDES  FLAG 

0302 

REF 

A 

LAST 

286 

23, 2032 

0 55  04 

0 

TC 

JPFL AG 

0303 

RE  F 

2 

LAST 

235 

23, 2033 

00126 

1 

ADRES 

NORRMON 

030A 

23,  2034 

0 0003 

1 

AURLK0N1 

RELINT 

0305 

REF 

3 

LAST 

286 

23,2035 

3 1113 

0 

CA 

DESR ET 

0306 

REF 

— 1 

23,  2036 

1 4640 

0 

TCF 

BANK  JUMP 

030f>4 

? 3t  ? 08  7 

010  14 

o 

412 

03065 

23,2040 

77757 

1 

— LOKONFG 

OCT 

-20 

03066 

43t  2 37? 

03067 

REF 

2 

LAST 

277 

43,2000 

SETLOC 

EXTVFRBS 

03068 

43,2322 

BANK 

03069 

REF 

— 2- 

LAST 

277  TO 

286: 

210  2 1 0^« 

count* 

$ i/EXTVB 

0307 

REF 

5 

LAST 

286 

43,2322 

0 5504 

0 

L RON 

TC 

JPFL  AG 

t 
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OPTION  CODE  FOR  V04N12 


R2  00001  LOCK-ON 


VTA 

V33 

V32 


IF  NO  LOCK-ON,  SET  9IT15  OF  RADMODES  TO 
INDICATE  THAT  CONTINUOUS  DESIGNATION  IS 
WANTED  (TO  BE  TERMINATED  BY  V44.) 

SET  NO  RR  ANGLE  MONITOR  FLAG. 

(DISABLE  R 25  RR  GIMBAL  MONITOR  IN  T4RUPT 


PERMIT  INCORPORATION  OF  LR  DATA 


V57 
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L 

EXTENDED 

VER  BS 

USER'S  PAGE  NO. 

11 

E5  S4 

0308 

0309 

REF 

REF 

1 

10 

LAST 

285 

43. 2323 

43.2324 

00254 
1 2121 

1 

0 

ADRES 

TCF 

LR  INH 
GOPI  N 

0310 

0311 

0312 

REF 

REF 

REF 

12 
2 
l l 

LAST 
LAST 
1 AST 

286 
287 
28  7 

43, 2325 
43,  2326 
43,2327 

0 5516 
00254 

1 2121 

0 

1 

0 

LROFF 

TC 

ADRES 

TCF 

DOWN  FLAG 
LRINH 
GOPI  N_ 

INHIBIT  INCORPORATION 

OF  LR 

DATA 

R03121 

THIS 

EXTENDED 

VERB 

CAUSES  P63 

TO  SWITCH 

INTO  P64. 

oil  to 

DCF 

1 

E 7 ,1425 

EBANK= 

TENDBRAK 

U D I £.  C. 

03123 

r\  c r 

REF 

1 

1 

43,2330 

0 5321 

1 P64N0W 

TC 

CHECKMM 

ARE 

WE  CURRENTLY  IN 

P63? 

03124 

43, 2 331 

00077 

1 

DEC 

63 

03125 

RE£ 

15 

LAST 

28  3 

43, 2 332 

1 2120 

1 

TCF 

ALM/END 

NO 

LIGHT  OPERATOR 

ERROR 

03126 

REF 

1 

43,2333 

3 5016 

0 

CAF 

EBANK7 

03127 

REF 

5 

LAST 

235 

43,2334 

54  003 

0 

TS 

EBANK 

0 312  8 

REF 

-4— 

LAST 

234 

43,  2335 

3 47  33 

1 

CAF 

POSMAX 

03129 

REF 

2 

LAST 

28  7 

43,2336 

55*425 

1 

TS 

TENDBRAK 

031295 

REF 

12 

LAST 

287 

43, 2337 

1 2121 

0 

TCF 

GOPI  N 

287 


V58 


031297  REF 


A LAST  277 


E 5 , 1737 


EBANK=  OGC 


GAP : 

L 

P0313 
R0314 
R0315 
R0317 
R0318 
R0319 
R0320 
R0321 
R0322 
P0323 
R0324 
R0325 
P 0326 
R0327 
R0328 
R0329 

0331 

0332 

0333 

0334 

0335 

0336 

0337 


0338 

0339 

0340 


0341 

0342 


0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 
R0356 
R0357 
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IMUFINEK  VERB  42  DESCRIPTION 

FINE  ALIGN  I MU 

1.  REOUIRE  EXT  VERB  DISPLAY  AVAILABLE  AND  SET  BUSY  FLAG  OR  TURN  ON  0 PER-  -ERROR  AND-  GO  TO  PINBPNCH. 

2.  DISPLAY  FLASHING  V25 , N93. . . . LOAD  DELTA  GYRO  ANGLES.... 

RESPONSES 

A.  TERMINATE — 

1.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 

B.  PROCEED  OR  ENTER 

1.  RE-DISPLAY  VERB  M2 — 

2.  EXECUTE  IMUFINE  (IMU  FIVE  ALIGN  MODE  SWITCHING). 

3.  EXECUTE  IMUSTALL  (ALLOW  FOR  DATA  TRANSFER) 

A^  FAILED 

1.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 

B.  GOOD 


2.  1 

EXECUTE 

IMUSTALL  AND 

RELEASE  EXT  VERB 

DISPLAY  SYSTEM. 

0 240^ 

1 

I Ml  I F T N FK 

TO 

r KM.nnr  An 

REF 

3 

L H J T 

LAST 

284 

43, 2341 

0 2076 

1 

TC 

TEST  XACT 

FINE  ALIGN  WITH  GYRO  TOROUING. 

REF 

1 

43,2  342 

3 2367 

1 

CAF 

VNLODGYR 

CALL  FOR  LOAD  OF  GYRO  COMMANDS 

P E F 

30 

L AR  T 

? P,  h 

4 3f  2 343 

0 46  16 

1 

TC 

BANKCALL 

REF 

3 

LAST 

284 

43,2344 

20212 

1 

CADR 

SOX  D SPF 

REF 

4 

LAST 

284 

43, 2345 

0 5472 

0 

TC 

T EP  M EXTV 

4 3,2  346 

0 2347 

0 

TC 

+ 1 

PROCEED  WITHOUT  A LOAD 

REF 

1 

43,2  347 

3 2370 

1 

CAF 

I MUF  INEV 

RE-DISPLAY  OUR  OWN  VERB 

REF 

31 

LAST 

? 8 8 

43, 2 350 

0 4616 

1 

TC 

BANKCALL 

REF 

4 

LAST 

284 

43,2351 

20473 

0 

CADR 

EXDSPRET 

P EF 

32 

LAST 

28  8 

43t  2 3^2 

n 46 16 

l 

Tf 

RANK  TAM 

CALL  MQOF  SWITCH  PRDG 

REF 

i 

43, 2353 

17163 

0 

CADR 

I MUF INF 

REF 

33 

LAST 

2 ft  ft 

4 3t  2 3 R4 

n 46  16 

l 

Tf 

R A \!  k r A 1 1 

HIBERNATION 

REF 

4 

LAST 

28  3 

43,  2355 

17671 

1 

CADR 

I MUSTALL 

REF 

3 

LAST 

28  3 

43, 2356 

0 5472 

0 

TC 

ENDE  XTVB 

REF 

1 

43,2357 

3 2366 

0 

FINEK2 

CAF 

LGYR  CBIN 

PINBALL  LEFT  COMMANDS  IN  OGC  REGIST5RS 

REF 

34 

LAST 

288 

43,  2360 

0 4616 

1 

TC 

BANKCALL 

REF 

1 

43,  2 361 

172  76 

-l— 

CADR 

I MUP ULSE 

REF 

35 

LAST 

288 

43,2362 

0 4616 

1 

TC 

BANKCALL 

WAIT  FOR  PULSES  TO  GET  OUT. 

REF 

— 5- 

LAST 

23  8 

43,  2363 

17671 

1 

CADR 

I MUS  TALL 

REF 

4 

LAST 

288 

43,2364 

0 5472 

0 

TC 

ENDE  XTVB 

REF 

5 

LAST 

288 

43,2365 

0 5472 

0 

TC 

ENDE  XTVB 

REF 

5 

LAST 

287 

43,  2366 

02737 

0 

LGY  ROBIN 

EC  A DR 

OGC 

43, 2367 

06335 

1 

VNLOOGYR 

VN 

2 593 

43,2370 

12400 

0 

IMUFINEV 

VN 

A 200  _ 

VERB  50 

AND  OTHER  PLEASE 


DESCRIPTION 


GCLOADL V 


GAP: 


R0358 

R0359 

R0360 

R0362 

R0363 

0365 

0366 

0367 

0368 

0369 

0370 

0371 
R0372 

R0373 

0374 
03  75 

0376 

0377 

0378 

0378 

0379 

0380 

0381 

0382 

0383 
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DO  SOMETHING  VERBS 

PLEASE  PERFORM,  MARK,  CALIBRATE,  ETC. 

1.  PRESSING  ENTER  ON  DSKY  INDICATES  REQUESTED  ACTION  HAS  BEEN  PERFORMED,  AND  THE  PROGRAM  DOES  THE 
SAME  RECALL  AS  A COMPLETED  LOAD. 

2.  THE  EXECUTION  OF  A VERB  33  (PROCEED  WITHOUT  DATA)  INDICATES  THE  REQUFSTED  ACTION  IS  NOT  DESIRED. 


REF 

ncp 

1 

1 

40,2000 

43,2371 

0 4433 

_4 

SB ANK= 
GOLOADLV  TC 

PINSUPFR 
FLAS  HOFF 

Ktr 

REF 

1 

1 

43, 2372 

3 4201 

0 

CAF 

PINS  UPBT 

43,2373 

0 0006 

_L 

EXTEND 

REF 

3 

LAST 

24  3 

43,2374 

01  007 

1 

WRITE 

SUPERBNK 

REF 

8 

LAST 

279 

43,2375 

0 4635 

0 

TC 

POST  JUMP 

REF 

1 

43.2  376 

62001 

L 

CADR 

LOADl VI 

VERB 

47 

- AGS 

INITIALIZATION 

- R47  . 

SEE  LOG  SECTION  AGS  INITIALIZATION  FOR  OTHER  PERTINENT  REMARKS 


REF 

4 

LAST 

288 

43, 2377 

0 

2076 

1 

V47TXACT 

TC 

TEST  XACT 

R EF 

1 

43, 2400 

3 

4740 

0 

CAF 

PRIC4 

REF 

4 

LAST 

284 

43, 2401 

0 

5105 

0 

TC 

F INDVAC 

REF 

14 

LAST 

223 

E4, 1604 

EB ANK= 

AGSBUFF 

RFF 

1 

43  9 2402 

02015 

1 

2C  ADR 

AGS  I NIT 

REF 

1 

43, 2403 

64064 

1 

REF 

7 

LAST 

286 

43, 2404 

0 

5155 

0 

TC 

ENDOFJOB 

REF 

4 

LAST 

122 

43, 2405 

3 

1304 

1 

CKMODCAD 

CA 

MODECADR 

43, 2406 

0 

0006 

1 

EXTEND 

REF 

3 

LAST 

23  3 

43 , 2407 

1 

6741 

1 

BZF 

T C Q 

REF 

16 

LAST 

287 

43, 2410 

0 

2120 

0 

TC 

ALM/END 

FOR  L0ADLV1  ANO  SHOWSUM  CADR'S. 


NO  OTHER  EXT VERB. 


SOMEBODY  IS  USING  MODECADR  SO  EXIT 
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NO.  1 A 


PAGE 
E 5 S4 


290 


P03  84 
R0385 

DfnPA 

ALINTIME  VERB  55 

REQUIRE  POO  OR  PQO-. 
1 (FT  FiT  VFRR  FIISPIAY 

rs  u joe 

R0387 

2. 

DISPLAY  FLASHING  V25, 

R0388 

3. 

REQUIRE  EXECUTION  OF 

R0389 

4 . 

ADD  -DELTA  TIME,  RECEI 

R0391 

5. 

RELEASE  EXT  VERB  DISP 

DESCRIPTION 
BUSY  FLAG*— 

N24  (LOAD  DELTA  TIME  FOR  AGC  CLOCK. 

VERB  23. 

VED  FROM  INPUT  REGISTER , TO  THE  COMPUTER  TIME. 
LAY  SYSTEM 


0 2 0 76 

1 

ALINTIME 

TC 

TEST  XAC.T 

03931 

REF 

9 

LAST 

289 

43,2412 

0 4635 

0 

TC 

POST  JUMP 

NO  ROOM  IN  43 

03932 

REF 

1 

43, 2413 

64002 

1 

CADR 

R 33 

03933 

42,2002 

BANK 

42 

03934 

REF 

2 

LAST 

6 1 

42, 2000 

SETLOC 

S BAN  D 

4?t  200? 

BANK 

03936 

REF 

1 

COUNT  * 

$ $/  R 33 

42,  2 0^2 

3 SO  2\ 

1 

R 3 3 

CAF 

PR  I C 7 

03  93  8 

REF 

1 

42, 2003 

0 5146 

1 

TC 

PRI OCHNG 

0394 

REF 

1 

42,2004 

3 2034 

1 

CAF 

VNLODDT 

03Q5 

R FF 

36 

l AST 

2 8 8 

42»  2005 

0 4616 

1 

TC 

BANKCALL 

0396 

REF 

4 

LAST 

288 

42, 2006 

20212 

1 

CADR 

GOXDSPF 

0397 

REF 

10 

LAST 

286 

42, 2007 

0 5472 

0 

TC 

ENDE  XT 

TERMINATE 

0398 

-REF 

1 1 

LAST 

29  0 

42,2010 

0 5472 

0 

TC 

EE1DEXT 

PROCEED 

0399 

REF 

1 

42,2011 

4 2033 

1 

CS 

DEC23 

DATA  IN  OR  RESEQUENCE! UNL I KEL Y ) 

0400 

REF 

36 

LAST 

278 

42, 2012 

6 0154 

1 

AD 

M P AC 

RECALL  LEFT  VERB  IN  MPAC 

0401 

42,2013 

0 0006 

1 

EXTEND 

0402 

REF 

1 

42,2014 

1 2016 

0 

BZF 

UPDA  TIME 

GO  AHEAD  WITH  UPDATE  ONLY  IF  RECALL 

0403 

REF 

12 

LAST 

290 

42, 2015 

0 5472 

0 

TC 

ENDEXT 

WITH  V23  (DATA  IN). 

04  04 

42,2016 

0 0004 

0 

UPDAT  IMF 

INHINT 

DELTA  TIME  IS  IN  DSPTEM1,  4-1. 

0405 

REF 

25 

LAST 

279 

42,2017 

3 4755 

1 

CAF 

ZERO 

0406 

- ref 

37 

LAST 

29  0 

42,  2020 

54  1 56 

1 

TS 

MPAC  +2 

NEEDED  FOR  TP  AGREE 

0407 

REF 

21 

LAST 

27  3 

42, 2021 

54  001 

1 

TS 

L 

ZERO  Tl  + 2 WHILE  ALIGNING. 

0408 

REF 

8 

LAST 

269 

42, 2022 

52  025 

1 

DXCH 

T I ME  2 

0409 

-REF— 

38 

T.  AST— 

290 

42,2023 

52  155 

1 

OXCH 

MPAC 

0410 

REF 

2 

LAST 

11  8 

42,2024 

53' 052 

0 

DXCH 

DSPTEM2  +1 

I NCREMENT 

0411 

REF 

39 

LAST 

290 

42,2025 

20  155 

1 

DAS 

MPAC 

0412 

REF 

1 

42,2026 

0 7256 

1 

TC 

TPAGPEE 

FORCE  SIGN  AGREEMENT. 

0413 

REF 

40 

LAST 

290 

42,2027 

52  155 

1 

DXCH 

MPAC 

NEW  CLOCK. 

0414 

—REF 

— 9— 

LAST 

29  0 

42, 2030 

20  025 

1 

OAS 

T IMEZ 

0415 

42, 2031 

0 0003 

1 

RELINT 

0416 

REF 

13 

LAST 

290 

42, 2032 

0 5472 

0 

UPDTMEND 

TC 

ENDEXT 

0417 

42,2033 

00027 

1 

DEC  2 3 

DEC 

23 

V 23 

0418 

42, 2034 

06230 

0 

VNLODOT 

VN 

2524 

V25N?4  for  LOAD  DELTA  TIME 
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P0419 

SET  I 

UP  FOR 

RADAR  SAMPLING. 

BANK 

42 

04191 

04192 

REF 

3 

LAST 

286 

43, 2000 

SETLDC 

EXTV  FRBS 

04193 

43,2414 

BANK 

0420 

REF 

1 

E4, 1604 

EBANK= 

RST  ACK 

COUNT* 

$$/p  0477 

0421  1 

REF 

4 

LAST 

234 

43,2414 

0 2652 

1 

R77 

TC 

RDRUSECK 

TRY  TO  AVOID  THE  1210. 

04? 1 1 1 

REF 

5 

LAST 

235 

43, 2415 

3 0077 

1 

CA 

FLAG  WRD3 

IS  R04  RUNNING? 

042112 

REF 

i 

43,2416 

7 4743 

1 

MASK 

R04F  LB I T 

0421 13 

REF 

70 

LAST 

236 

43,2417 

10  000 

0 

CCS 

A 

0421 14 

REF 

17 

LAST 

289 

43,2420 

0 2120 

0 

TC 

AIM/ FNO 

YES. 

04214 

REF 

6 

LAST 

286 

43,2421 

0 5504 

c 

TC 

UPFL AG 

0421  5 

REF 

1 

43,2422 

00117 

0 

ADRES 

R77F  LAG 

04  2 1 ft 

R F F 

1 

43, 2423 

1 2430 

0 

TC  F 

R04Z 

0422 

REF 

5 

LAST 

29  1 

43, 2424 

0 2652 

1 

R 04 

TC 

RDRUSECK 

TRY  TO  AVOID  THE  1210. 

042^ 

R F F 

6 

AST 

? 9 0 

43,  ?4?S 

0 2076 

1 

TC 

TFST  XACT 

0424 

REF 

7 

LAST 

29  1 

43,2426 

0 5504 

0 

TC 

UPFL AG 

0425 

REF 

3 

LAST 

244 

43,2427 

00063 

1 

ADRES 

RC4F  LAG 

SET  R04FLAG  FOR  ALARMS 

0426 

REF 

1 

43, 2430 

3 4741 

1 

R04Z 

CAF 

EBANK4 

0427 

REF 

6 

LAST 

237 

43,2431 

54  003 

0 

TS 

EBANK 

0428 

REF 

1 

43,2432 

3 2650 

0 

CAF 

1 SFC +1 

SAMPLE  ONCE  DER  SECOND 

0429 

REF 

1 

43, 2433 
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43,2711 

0 2076 

1 

TC 

TEST  XACT 

0547 

REF 

2 

LAST 

289 

43, 2712 

3 4740 

0 

CAF 

PRI04 

0548 

R EE — 

_5. 

LAST 

289 

43, 2713 

0 5105 

0 

TC 

F INDVAC 

0549 

REF 

3 

LAST 

134 

E4, 1604 

EB ANK= 

ALPH ASH 

0550 

REF 

1 

43,  2 714 

03602 

0 

2C  ADR 

S BAN  DANT 

0550 

REF- 

- 1- 

43,2715 

64104 

0 

0551 

REF 

9 

LAST 

292 

43,2716 

0 5155 

0 

TC 

FNDOFJFIB 

19:02  NOV.  25,1968  LFM0NAID.070  PAGE  295 
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IS  R 29  ON? 


YES 

IS  R 77  RUNNING? 


YES. 

IS  SERVICER  RUNNING  AND  HENCE  POSSIBLY 
R 1 2 USING  THE  LR? 

NO 

YFS , IS  Rl 2 ON? 


YES 

IS  THE  TRACK  FLAG  SET  AND  HENCE  POSSIBLY 
P 20  USING  THE  RR? 

NO,  CHECK  FOR  P22. 

YES,  BUT  IS  IT  P25? 


DEMAND  PROGRAM  00. 

IF  DISPLAY  SYS.  NOT  BUSY, MAKE  IT  BUSY. 


CALC. .DISPLAY  S-BAMD  ANTENNA  ANGLES 


GAP: 

L 

P0552 

R0553 

R0554 

R0555 

R0556 

R 0 5 5-7 

R0558 

0559- 

0560 

0561 

0562 

0563 

0564- 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582- 

0583 

0584 

0585 

0586 

0587 

0587 

0588 

0589 

0590 

0591 

0592 


* 
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I NUATTCK  VERB  43  DESCRIPTION 

LOAD  IMU  ATTITUDE  ERROR  METERS 

1.  REQUIRE  POO  OR  FRESH  START. 

2.  REQUIRE  COARSE  ALIGN  ENABLE  AND  ZERO  I CDU  BITS  OFF. 

3.  REQUIRE  THAT  NEEDLES  BE  OFF. 

4.  REQUEST  LOAD  OF  N22  (VAUES  TO  BE  DISPLAYED!.- 

5.  ON  PROCEED  OR  ENTER  RE-DISPLAY  V 43  AND  SEND  PULSES. 


-295 

195 

43, 2717 

43, 2720 
41 , p ip 1 

& -2-1-  2 3 

3 4763 
n nnr)6 

0 

1 

1 

I MUATTCK  TC 

CHRP  CC1H 

VB  76  - LOAD  IMU  ATT.  ERROR  METFRS 

REF 

3 

LAST 

CAF 

EXTFND 

B I TS4S5 

SEE  IF  COARSE  ALIGN  ENABLE  AND  ZERO  IMU 
CDUS  BITS  ARE  ON 

REF 

19 

LAST 

29  4 

43,2722 

02  012 

0 

RAND 

CHAN  12 

REF 

82 

LAST 

29  5 

43,2723 

10  000 

0 

CCS 

A 

P E F 

2 ^ 

-LAST- 

-29  5 

7 774 

1 2120 

1 

TC  F 

ALV  END 

NOT  ALLOWED  IF  IMU  COARSF  OR  IMU  ZERO  ON 

REF 

i 

43,  2725 

3 4355 

0 

CAF 

3 I T 1 3-14 

BOTH  BITS  13  AND  14  MUST  BE  1 

4^-,  7 776 

0 00  06 

1 

EXTEND 

INDICATING  THE  MODE  SELECTED  IS  OFF. 

REF 

i 

43,2727 

06  031 

0 

RXOR 

C HA  N 31 

REF 

2 

LAST 

296 

43,2730 

7 43  55 

1 

MASK 

BIT  13-1  4 

43 1 2 731 

0 0006 

1 

EXTEND 

43,  2732 

1 2734 

1 

BZF 

+ 2 

NEEDLES  IS  OFF. 

REF 

24 

LAST 

296 

43,  2733 

1 2120 

1 

TCF 

ALMZ  END 

EXIT.  NEEDLES  IS  ON. 

REF 

8 

LAST 

295 

43,2734 

0 2076 

1 

TC 

TESTXACT 

R E F 

2 

L T 

2 R 3 

4^t  2 7^ 

22  2^ 

o 

CAF 

V mi  nrrnu 

REF 

46 

LAST 

294 

43, 2736 

0 4616 

1 

TC 

BANKCALL 

REF 

5 

LAST 

290 

43, 2737 

20212 

1 

CADP 

GOXDSPF 

REF 

L5 

\ a<;t 

43t  7 740 

0 S47? 

o 

TC 

ENDF  XT 

V 3 4 

43, 2741 

0 2742 

1 

TC 

+ 1 

REF 

i 

43, 2 742 

3 2755 

1 

CAF 

V43K 

REDISPLAY  OUR  VERB. 

REF 

47 

LAST 

—29  6 

43,  2 743 

0 46  16 

1 

TC 

BANKCALL 

REF 

5 

LAST 

288 

43,2744 

20473 

0 

CADR 

EXDSPPET 

REF 

32 

LAST 

29  4 

43,2  745 

3 4746 

0 

CAF 

B I T 6 

43,2  746 

0 0006 

1 

EXTEND 

REF 

20 

LAST 

296 

43,2747 

05  012 

1 

WQR 

CHAN  12 

ENABLE  ERROR  COUNTERS. 

REF 

9 

LAST 

294 

43, 2750 

3 4752 

0 

CAF 

TWO 

REF 

9 

LAST 

292 

43, 2751 

0 5203 

0 

TC 

WAITLIST 

PUT  OUT  COMMANDS  IN  .32  SECONDS. 

REF 

4 

LAST 

115 

0321 

EBANK= 

THET  AD 

REF 

1 

43, 2752 

02035 

0 

2C  ADR 

ATTCK2 

REF 

]_ 

43,2753 

64100 

1 

REF 

16 

LAST 

296 

43,  2 754 

1 5472 

1 

TCF 

ENDEXT 

47*  2035 

BANK 

42 

REF 

1 

42,2000 

SETLOC 

P I NB  ALL 3 

SOMETHING  IN  B42. 

42, 2035 

BANK 

REF 

1 

COUNT  * 

$ $ / E XT  VB 

* 
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L 

EXTENDED 

VERBS 

USER'S  PAGE  MO.  21  E4  S4 

0593 

REF 

10 

LAST 

296 

42,  2035 

3 4752 

0 

ATTCK2 

CAF 

TWO 

PUT  OUT  COMMANDS. 

0594 

REF 

25 

LAST 

295 

42, 2036 

54  002 

1 

+ 1 

TS 

Q 

C DU  WILL  LIMIT  EXCESS  DATA. 

LAST 

2Q6 

4?t  2 0^7 

50  000 

1 

INDEX 

A 

0596 

REF 

5 

LAST 

296 

42, 2040 

3 0321 

1 

CA 

THET AD 

0597 

42, 2041 

0 0006 

1 

EXTEND 

0598 

REF 

l 

42, 2042 

7 2053 

1 

MP 

ATTSCALE 

0599 

REF 

26 

LAST 

297 

42, 2043 

50  002 

0 

INDEX 

Q 

0600 

REF 

2 

LAST 

189 

42, 2044 

56  050 

1 

XCH 

CDUXCMD 

DAO  1 

R FF 

27 

last 

29  7 

42,2045 

10  002 

1 

CCS 

Q 

0602 

REF 

2 

LAST 

296 

42, 2046 

1 2036 

1 

TCF 

ATTCK2  +1 

4-2  t 2 047 

3 7737 

0 

CAF 

13,14,15 

0604 

42i 2050 

6 0006 

1 

EXTEND 

0605 

REF 

6 

LAST 

235 

42, 2051 

05  014 

1 

WOR 

CHAN  14 

0 AO  A 

R FF 

4 

1 AST 

2 54 

42, 2052 

1 52  61 

0 

TCF 

TASK  OVER 

LEAVE  ERROR  COUNTERS  ENABLED. 

0606  1 

42,2053 

03146 

1 

ATTSCALF 

DEC 

0.1 

0607 

07,2667 

BANK 

7 

0608 

REF 

4 

LAST 

29  1 

43,2000 

SETLOC 

EXTVERBS 

OAOQ 

43, 2 755 

BANK 

0610 

REF 

4 

LAST 

29  5 TO 

296: 

37  305* 

COUNT* 

* $/E XTVB 

0611 

43,2755 

12600 

1 

V43K 

VN 

4300 

R0613  V 82  P ERE  VERB  82  DESCRIPTION 

R0614  REQUEST  ORBIT  PARAMETERS  DISPLAY  (R30) 

R0615  1.  IF  AVERAGE  G IS  OFF: 

R0616  FLASH  DISPLAY  V04N06.  R2  INDICATES  WHICH  SHIP'S  STA 

R0617  TO-BE  UPDATED.  INITIAL  CHOICE  IS  THIS  SHIP  (R2=l). 

R0618  CAN  CHANGE  TO  OTHER  SHIP  BY  V22EXE,  WHERE  X NOT  EO 

R0619  SELECTED  STATE  VECTOR  UPDATED  BY  THISPREC  IOTHPREC) 

R0620  CALLS  SR30.1  (WHICH  CALLS  TFFCONMU  + TFFRP/RA)  TO  C 

R0621  RPER  (PERIGEE  RADIUS),  RAPO  (APOGEE  RADIUS),  HPEP 

R0622  HEIGHT  ABOVE  LAUNCH  PAD  OR  LUNAR  LANDING  SITE),  HA 

R0623  HEIGHT  AS  A30V£),  TPER  (TIME  TO  PERIGEE ) » TF  F (TIM 

R0624  INTERSECT  300  K FT  ABOVE  PAD  OR  35KFT  ABOVE  LANDING 

R0625  FLASH  MONITOR  V16N44  (HAPO,  HPER,  TFFI.TFF  IS  -59M5 

R0626  NOT  COMPUTABLE,  OTHERWISE  IT  INCREMENTS  ONCE  PER  S 

R0627  ASTRONAUT  HAS  OPTION  TO  MONITOR  TPER  BY  KEYING  IN 

R0628  DISPLAY  IS  IN  H MS , IS  NEGATIVF  (AS  WAS  TEE),  AND  I 

R0629  CNCE  PER  SECOND  ONLY  IF  TFF  DISPLAY  WAS  -59M59S. 


TE  VECTOR  IS 
ASTRONAUT 

1. 

ALCULATE 
(PERIGEE 
PO  (APOGEE 
E TO 
SITE)  . 

9S  IF  IT  WAS 
ECONO. 

N 32  E. 
NCREMENTS 


R0630  2.  IF  AVERAGE  G IS  ON: 

R0631  CALLS  SR30.1  APPROX  EVERY  TWO  SECS.  STATE  VFCTOR  IS  ALWAYS 

R0632  FOR  THIS  VEHICLE.  V82  DOES  NOT  DISTURB  STATE  VECTOR.  RESULTS 

R0633  CF  SR30.1  ARE  RAPO,  RPFR , HAPO,  HPER,  TPER,  TFF. 

R0634  FLASH  MONITOR  V16N44  (HAPO,  HPER,  TFF). 

R0635  IF  MODE  IS  P 1 1 , THEN  CALL  DELRSPL  SO  ASTRONAUT  CAN  MONITOR 

R0636  RESULTS  BY  N50E.  SPLASH  COMPUTATION  DONE  ONCE  PER  TWO  SFCS. 
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0637 

REF 

9 

LAST 

296 

43,2756 

0 

2076 

1 

V82PERF 

TC 

TEST  XACT 



/t  ^ t 2 7 R 7 

3 

SO  ? 1 

1 

CAF 

P R 1 0 7 

LESS  THAN  LAMBERT.  R30,V82 

0639 

REF 

2 

L-  rX  O 1 

LAST 

290 

43^2760 

0 

5146 

1 

TC 

PRIOCHNG 

0640 

43,2761 

0 

0006 

1 

EXTEND 

? lh? 

3 

S165 

1 

OCA 

V 82 C ON.  _ 

0642 

REF 

1 

43, 2763 

0 

5165 

0 

TC 

SUPDXCHZ 

V 82  C ALL  IN  DIFF  SUPERBANK  FROM  V82PERF 

EBANK- 

HA  PO 

0644 

REF 

1 

43, 2764 

03242 

0 

V82CON 

2C  ADR 

V82C ALL 

0644 

REF 

1 

43,2765 

44104 

1 

R0645 

R0646 

R0647 

R0648 

R0649 

R0650 

R0651 

R0652 


V083PERF  VERB  83  DESCRIPTION 

REQUEST  RENDEZVOUS  PARAMETER  DISPLAY  (R31) 

1.  SET  EXT  VERB  DISPLAY  BUSY  FLAG. 

2.  SCHEDULE  R31CALL  WITH  PRIORITY  5. 

A.  DISPLAY 

R1  RANGE 
R2  RANGE  RATE 
R3  THETA 


0653 

REF 

10 

LAST 

298 

43, 2 766 

0 2076 

1 V83PERF 

TC 

TEST  XACT 

0654 

REF 

25 

LAST 

292 

43, 2767 

3 4752 

0 

CAF 

8 I T 2 

0655 

REF 

10 

LAST 

296 

43,2770 

0 5203 

0 

TC 

WAITLIST 

0^>  ^6 

REF 

3 

E 7t 1 A07 

FBANK- 

TST  R T 

0657 

REF 

i 

43,2771 

03113 

1 

2C  ADR 

R 31  CALL 

0657 

REF 

i 

43, 2772 

76067 

1 

0658 

REF 

10 

LAST 

295 

43,2773 

0 5155 

0 

TC 

ENDOFJOB 

R0659  VERB  89  DESCRIPTION  RENDEZVOUS  FINAL  ATTITUDE  ROUTINE  ( P 63 ) 


R0660  CALLED  BY  VERB  89  ENTER  DURING  POO.  PRIO  10  USED.  CALCULATES  AND 

R0661  DISPLAYS  FINAL  FOAI  BALL  ANGLES  TO  POINT  LM  +X  OR  +Z  AXIS  AT  CSM. 


R0662  1.  KEY  IN  V 89  E ONLY  IF  IN  PROG  00.  IF  NOT  IN  POO,  OPERATOR  ERROR  AND 

R0663  EXIT  R63,  OTHERWISE  CONTINUE. 


R 06  64  2.  IF  IN  PCO,  DO  IMU  STATUS  CHECK  ROUTINE  IR02BOTH).  IF  I MU  ON  AND  ITS 

R0665  ORIENTATION  KNOWN  TO  LGC , CONTINUE. 

R0666  3.  FLASH  DISPLAY  V 04  N 06.  R2  INDICATES  WHICH  SPACECRAFT  AXIS  IS  TO 

R0667  BE  POINTED  AT  CSM.  INITIAL  CHOICE  IS  PREFERRED  t +Z ) AXIS  <P2=1). 

R0668  ASTRONAUT  CAN  CHANGE  TO  <+X)  AXIS  (R2  NOT  = 1 ) BY  V 22  E 2 E.  CONTINUE^ 
R0669  AFTER  KEYING  IN  PROCEED. 

R067CF  4.  BOTH  VEHICLE  STATE  VECTORS  UPDATED  BY  CONIC  EQS. 

R0671  5.  HALF  MAGNITUDE  UNIT  LOS  VECTOR  (IN  STABLE  MEMBER  COORDINATES)  AND 
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R0672  HALF  MAGNITUDE  UNIT  SPACECRAFT  AXIS  VECTOR  (IN  BODY  COORDINATES) 

R 0673  PREPARED  FOR  VECPCINT. 


R0674  6.  GIMBAL  ANGLES  FROM  VECPOINT  TRANSFORMED  INTO  FDA  I BALL  ANGLES  BY 

R0675  BALLANGS.  FLASH  DISPLAY  V 06  N 18  AND  AKA  IT  RESPONSE. 


R0676 
R0677 
R 0^7  R 

7. 

RECYCLE  - 
TERMINATE 
pprrFFn  - 

RETURN  TO  STEP  4. 
-EXIT  R63 . 

RF9FT  ^ A X r 9 F 1 G AND 

CALL 

R60LEM  FOR 

ATTITUDE 

MAN  EUVEP 

DCP 

3 

LAST 

2 9 6 

2 774 

o 

212  3 

0 V89PERF 

TC 

CHK  POOH 

0680 

REF 

n 

LAST 

298 

43  j 2 775 

0 

2076 

1 

TC 

TESTXACT 

0681 

REF 

i 

43,2776 

3 

4737 

0 

CAF 

PRIO  10 

06  82 

REF 

6 

LAST 

29  5 

43,  2 777 

o 

5105 

0 

TC 

FINDVAC 

0683 

REF 

3 

LAST 

134 

E4, 1612 

FBANK= 

RONE 

0684 

REF 

1 

43,3000 

02000 

0 

2C  ADR 

V89C ALL 

Q6fi4 

REF 

1 

43,3001 

541  04 

0 

0685 

REF 

11 

LAST 

298 

43, 3002 

0 

51  55 

0 

TC 

E NDOF JOB 

R 06  86  V90PERF  VERB  90  DESCRIPTION 

R0687  REQUEST  RENDEZVOUS  OUT-OF-PLANE  DISPLAY  (R36) 

R0688  1.  SET  EXT  VERB  DISPLAY  BUSY  FLAG. 

R0689  2.  SCHEDULE  R36  CALL  WITH  PRIORITY  10 

R0690  A.  DISPLAY 

R0691  TIME  OF  EVENT  - HOURS  , MINUTES  , SECONDS 

R0692  Y OUT-OF-PLANE  POSITION  - NAUTICAL  MILES 

R0693  YDOT  OUT-OF-PLANE  VELOCITY  - FEET/SF CDND 

R0694  PSI  ANGLE  BTW  LINE  OF  SIGHT  AND  FORWARD 

R0695  DIRECTION  VECTOR  IN  HORIZONTAL  PLANE  - DFGPFES 


0696 

REF 

12 

LAST 

299 

43, 3003 

0 2076 

1 

V90PERF  TC 

TESTXACT 

0697 

REF 

3 

LAST 

2 98 

43, 3004 

3 5021 

1 

CAF 

P R I Q 7 

R 36 , V90 

0698 

REF 

7 

LAST 

299 

43, 3005 

0 5105 

0 

TC 

FINDVAC 

0699 

REF 

2 

LAST 

134 

E4, 1612 

EBANK= 

R PAS  S36 

0700 

REI^ 

1 

43, 3006 

02613 

_] 

2CADR 

R36 

0700 

REF 

1 

43, 3007 

10104 

0 

0701 

REF 

12 

LAST 

299 

43,3010 

1 5155 

1 

TC  F 

ENDOFJCB 

R 07  02 

MINIMP 

VERB  76 

DESCRIPTION 

R0703 

MINI  MUM 

I MPULSE 

MODE 

R0704 

1 

. SET 

MINIMUM  IMPULSE  RHC 

MODE  FLAG  TO  1. 

0705 

43,3011 

0 0004 

0 

MINIMP  INHINT 

0706 

REF 

4 

LAST 

234 

43,3012 

4 0111 

1 

CS 

DAPBCOLS 

0707 

REF 

1 

43,3013 

7 4735 

0 

MASK 

PUL  S ES 

PULSES  = 1 

INDICATES  MIN  IMP  MODE 

0708 

REF 

5 

LAST 

299 

43, 3014 

26  111 

1 

ADS 

DAPBCOLS 

0709 

REF 

15 

LAST 

294 

43,3015 

1 2121 

0 

TC  F 

GOPI  N 

RETURN  VIA 

PINBRNCH 

R 07 1 0 

NCMINIMP 

VERB  77 

DESCRIPTION 

R0711 

RATE  COMMAND  MODE 

299 
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R0712 

R0714 


1.  SET  MINIMUM  IMPULSE  RHC  MODE  FLAG  TO  0.  (ZERO  INDICATES  NOT  MINIMUM  IMPULSE  MODE.). 

2.  MOVE  CDUX  ,CDUY,  COUZ  INTO  C.DUXD,  CDUY  D,  C DUZ  D . 


E4  S4 


0718 

0719 

0720 

REF 

REE 

2 

6 

LAST 

LAST 

299 
29  9 

43.3016 

43. 3017 
43,3  020 

0721 

REF 

7 

LAST 

300 

43,3021 

0722 

REF 

11 

LAST 

260 

43, 3022 

0723 

REF 

43,3023 

0724 

REF 

16 

LAST 

299 

43,3024 

0 0004 
4 4735 
7 01 1 1 

0 

0 

L 

NOM I N IMP  INHINT 
CS 

MA-SK 

PULS  ES 
DAP  B OOLS 

54  111 

1 

TS 

D APBOOLS 

0 46  74 

0 

TC 

I BNKCALL 

40153 

CADR 

ZATTEROP 

0 2121 

1 

TC 

GOP  I N 

PULSES  = 0 NOT  IN  MINIMUM  UMPULSE  MODE 
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P0738 
R0739 
R0740 
R0741 
R0742 
R 0 7 4 3 


CREWMANU  VERB  49  DESCRIPTION 

START  AUTOMATIC  ATTITUDE  MANEUVER 
1-  REQUIRF  PROGRAM  00  ACTIVE. 

2.  SET  EXT  VERB  DISPLAY  BUSY  FLAG. 

3.  SCHEDULE  R62DISP  WITH  PRIORITY  10. 

4.  RELEASE  EXT  VERB  DISPLAY. 


R0744 

R0745 

R0746 

R0747 


R62DI  SP 

1.  DISPLAY  FLASHING  V06.N22. 
RE! 

A . 


: SPONSE  S 
TERMI NATE 


R0749 
R0750 
R 0752 

B. 

PROCEED 

1.  SET  3AXISFLG  TO 

2.  FXFCUTE  R60LFM 

INDICATE 

(ATTITUDE 

MANEUVER 

MANEUVER) 

IS  SPECIFIED 

BY  3 AXIS. 

R0753 

R0754 

C . 

ENTER 
1.  REPEAT 

FLASHING 

V06 ,N  22 . 

0755 

REF 

4 

LAST 

299 

43, 3025 

0 2123 

0 CREWMANU  TC 

CHKPDOH 

DEMAND  POO 

0766 

REF 

13 

L T 

2 Q Q 

4Rt 

0 2 0 76 

l 

TC 

test x act 

0757 

REF 

2 

LAST 

299 

43,3027 

3 4737 

0 

CAF 

PR  10  10 

07  6 ft 

R E F 

8 

LAST 

29  9 

43, 3030 

0 5105 

0 

TC 

F INDVAC 

0759 

REF 

2 

LAST 

150 

E6, 1674 

EBANK= 

PCDU 

0760 

REF 

1 

43,3031 

02065 

0 

2C  ADR 

R62D  ISP 

0760— 

REF 

1 

43, 3032 

461  06 

I 

0761 

REF 

13 

LAST 

299 

43,3033 

0 5155 

0 

TC 

ENDOFJOB 

301 
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P0762  TRMTRACK  VERB  56  DESCRIPTION 

R0763  TERMINATE  TRACKING  ( P20  AND  P25). 

R0764-  1.  KNOCK-DOWN  RENDEZVOUS,  TRACK,  AND  UPDATE  FLAGS. 

r0765  2.  REQUIRE  P20  OR  P25  NOT  RUNNING  ALONE  OR  GO  TO  GOTOPOOH  (REQUEST  PROGRAM  00). 

R0767  3.  SCHEDULE  V56T0VAC  WITH  PRIORITY  30. 


R 076  8 V56T0VAC 

R0769  1.  EXECUTE  INTSTALL  (IF  INTEGRATION  IS  RUNNING,  STALL  UNTIL  IT  IS  FINISHED.) . 

R0771  2.  ZERO  GROUP  2 TO  HALT  P20. 

R0772  3.  TRANSFER  CONTROL  TO  G0PR0G2  (SOFTWARE  RESTART). 
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KILL  GROUP  2 TO  HALT  P20 

ACTIVITY 

Q 

INHINT 
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P0848 
R0849 
o n atin 

SYSTFST  VERB  92  DESCRIPTION 

OPERATE  IMU  PERFORMANCE  TEST. 

i ppoiitrp  PRHDRAM  00  OR  TURN  ON  OPERATOR  ERROR. 

R0851 

0852 

REF 

2 

2 LAST 

. SET 
142 

EXT  VERB  BUSY  FLAG. 
E5, 1417 

EB ANK=  QPLACE 
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TS 
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TS 

S MOD  F 
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SELF ADRS 

0877 
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TS 
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VNCON 
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BANKCALL 
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SELF ADRS 

43 1 * 1^4 

SS • 3 7 1 

1 

TS — 

SKEE  PI 

RRF 

REF 

17 

LAST 

296 

43, 3135 
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GAP: 

L 

P0897 

R0898 

R0899 

R0900 

R 0901 

0902 

0903 

0904 

0905. 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0913 

0914 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 


ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  HJMINARY  BY  NASA  2021112-011  19:02  NOV.  25*1968  LFMONAID.070  PAGE  307 

EXTENCED  VERBS  USER'S  PAGE  NO.  31  E5  S4 

DAPDISP  VERB  48  DESCRIPTION 

LOAD  AUTO  PILOT  DATA 

1.  REQUIRE  EXT  VERB  DISPLAY  AVAILABLE  AND  SET  BUSY  FLAG. 

2.  EXECUTE  DAPDATA1,  DAPDATA2,  AND  DAPDATA3. 

3.  RELEASE  EXT  VERB  DISPLAY  SYSTEM. 
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0 

AD 

L 

0971 

REF 

10 

LAST 

308 

20,2063 

54  111 

1 

TS 

DAPBOOLS 

QQ72 

REF 

2 

1 AST 

30  ft 

20, 2064 

7 473  7 

1 

MASK 

CSMDOCKD 

0973 

REF 

87 

LAST 

308 

20,2065 

10  000 

0 

CCS 

A 

0974 

REF 

1 

20,2066 

31  1 332 

1 

CAE 

CSMMASS 

097F 

R FF 

7 

\ AST 

219 

20, 2 067 

6 1331 

1 

AD 

LEMM ASS 

0976 

REF 

3 

LAST 

121 

20,2070 

55' 244 

0 

TS 

MASS 

0977 

REF 

11 

LAST 

308 

20,2071 

30  111 

0 

CAE 

DAPBOOLS 

0978 

RFF 

1 

20, 2072 

7 4741 

0 

MASK 

ACC4CR2X 

0979 

20,2073 

0 0006 

1 

EXTEND 

0980 

20,2074 

1 2101 

1 

BZF 

+ 5 

0981 

REF 

19 

LAST 

232 

20,2075 

4 4735 

0 

CS 

B I T 1 5 

0982 

REF 

9 

LAST 

30  2 

20,2076 

7 0075 

1 

MASK 

FLAGWRD1 

0983 

REF 

10 

LAST 

308 

20,2077 

54  075 

1 

TS 

FLAG  WRD1 

0984 

20,2100 

1 2104 

1 

TC  F 

-1-4 

0985 

REF 

11 

LAST 

308 

20,2101 

4 0075 

1 

CS 

EL AGWRDl 

0986 

REF 

20 

LAST 

308 

20,2102 

7 4735 

0 

MASK 

BITL5 

0987 

REF 

12 

LAST 

30  8 

20,2103 

26  0 75 

1 

ADS 

FLAG  WP  D1 

0988 

REF 

12 

LAST 

308 

20, 2104 

3 0111 

0 

CA 

DAPBOOLS 

0989 

REF 

2 

LAST 

248 

20, 2105 

7 62  44 

1 

MASK 

THREE 

0990 

20, 2 106 

6 0000 

1 

nnuBL f 

0991 

REF 

2 

LAST 

22  7 

20,2107 

55' 325 

0 

TS 

PATEINDX 

0992 

REF 

13 

LAST 

307 

20,2110 

0 4635 

0 

TC 

POST  JUMP 

0993  REF  1 — 20 1 2 1 1 1 02203  1 CADR  S T I K LOAD 


0995 

0996 

20, 2 112 
20, 2113 

00256 

33113 

0 

JL 

V01N46 

DSPLYMSK 

VN 

OCT 

0 146 
33113 

0997 

20,2114 

13113 

0 

BOOLSMSK 

OCT 

1311  3 

0998 

01, 2203 

BANK 

01 

0999 

REF 

2- 

LAST 

5 8 

01,2000 

SETLOC 

L0APDAP1 

1000 

01,2203 

BANK 

LOO  1 

REF 

2 

LAST 

5 8 TO 

58: 

2 

2 * 

COUNT* 

S$/R03 

1002 

REF 

3 

LAST 

234 

01,2203 

3 5015 

0 

STI KLOAD 

CAF 

EBANK6 
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SET  BITS  OF  OAPBOOLS  ON  BASIS  OF  DISPLAY 
MASK  OUT  CSMDOCKD  (BIT  13)  UNLESS  BOTH 
13  AND  14  ARE  SET. 


LOAD  MASS  IN  ACCORDANCE  WITH  CSMDOCKD. 
MASS  IS  USUALLY  ALREADY  OKAY,  SO  DO 
NOT  TOUCH  ITS  LOW-ORDER  PART. 


2 OR  4 JET  X-TRANSLAT I ON 
(BIT  ACC40R2X  = 1 FOR  4 JETS) 


CLEAR  NJTSFLAG  TO  0 FOR  4 JETS 


SET  NJTSFLAG  TO  1 FOR  2 JETS 


SELECT  DESIRED  K ALCMANU  AUTOMATIC 
MANEUVER  RATE 

PATEINDX  HAS  TO  BE  0,2, 4,6  SINCE  RATES 
ARE  DP 


GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY 


L 

EXTENDED 

VERBS 

1003 

REF 

8 

LAST 

296 

01,2206 

56  003 

0 

1006 

REF 

2 

LAST 

22  7 

E6 , 1662 

REF 

i 

01, 2205 

3 6765 

0 

lUUJ 

1006 

REF 

13 

LAST 

308 

01,2206 

7 0111 

1 

1007 

REF 

88 

LAST 

308 

01,2207 

10  000 

0 

1008 

REF 

1 

01,  2 210 

3 2336 

1 

1009 

REF 

1 

0 1,  2211 

6 2335 

0 

1010 

REF 

3 

LAST 

309 

01,2212 

5 5 * 662 

0 

1011 

REF 

1 

01,2213 

3 2337 

1 

1012 

REF 

3 

LAST 

22  7 

01, 2216 

55'  676 

0 

1013 

REF 

3 

LAST 

308 

01,2215 

3 6737 

0 

1016 

REF 

16 

LAST 

309. 

01,  2216 

7 0111 

1 

1015 

0 1, 2217 

0 0006 

1 

1016 

01, 2220 

1 2227 

0 

1017 

R E F 

-6 

LAST 

3 05 

01, 2221 

3 1662 

1 

1018 

01,2222 

0 0006 

1 

1019 

REF 

1 

01,2223 

7 2336 

1 

1020 

REF 

5__ 

LAST- 

309 

01,2226 

5 5 ' 662 

0 

1021 

REF 

1 

01,2225 

3 2360 

1 

1022 

REF 

6 

LAST 

309 

01,2226 

55*676 

0 

1023  01,2227  0 0003  1 


1026 

REF 

1 

01,2230 

3 

2331 

1 

DAP  DAT  A2 

1025 

REF 

50 

LAST 

30  7 

01,2231 

0 

66  16 

1 

1026 

REF 

2 

LAST 

307 

01,2232 

20231 

0 

1027 

REF 

1 

01,2233 

1 

2261 

0 

1028 

REF 

1 

01,2236 

— L 

2265 

L 

1029 

REF 

1 

01,2235 

1 

2230 

0 

1030 

REF 

18 

LAST 

292 

01, 2236 

3 

6751 

0 

1031 

REF 

4- 

LAST 

3 0-7 

01, 2237 

0 

5666 

1 

1032 

REF 

16 

LAST 

307 

01,2260 

1 

5155 

1 

1033 

0 1, 2261 

0 

0006 

0 

ENDP.0  3 

1036 

— REF 

L6 

LAST 

303 

01,  2262 

0 

6676 

0 

1035 

REF 

2 

LAST 

303 

01, 2263 

60123 

0 

1036 

REF 

19 

LAST 

307 

01,  2266 

1 

5672 

1 

1037 

REF 

9 

LAST 

308 

01,2265 

6 

0106 

1 

DAP  DAT2 

1038 

REF 

5 

LAST 

308 

0 1, 2266 

7 

6737 

1 

1039 

REF 

89 

LAST 

30  S 

01, 2267 

10  000 

0 

1060 

REF 

1 

01,2250 

3 

2000 

0 

1061 

REF 

1 

01, 2251 

6 

2001 

1 

1062 

REF 

8 

L AST 

3 0-8 

01, 2252 

6 

1331 

1 

1063 

01,2253 

0 

0006 

1 

1066 

REF 

2 

LAST 

309 

01,2256 

6 

22  30 

1 

1065 

REF 

15 

LAST 

309 

01,2255 

30  111 

0 

1066 

REF 

6 

LAST 

309 

01,2256 

7 

6737 

1 

1067 

01,2257 

0 

0006 

l 

1068 

REF 

1 

01, 2260 

1 

2266 

0 

1069 

REF 

1 

01,  2261 

6 

6761 

0 

1050 

REF 

2 

LAST 

308 

01, 2262 

6 

1332 

1 

SA  2021112-011 
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TS 

EB ANK= 
CA 

EBANK 
STIK  SENS 
RHCSCALE 

SET  STICK  SENSITIVITY  TO  CORRESPOND  TO  A 

MASK 
CCS 
_CA 

D APB  COLS 
A 

NORMAL 

MAXIMUM  COMMANDED  RATE  (AT  62  COUNTS)  OF 
20  D/ S ( NOR  MAL ) OR  6 D/S(FINE),  SCALED 
AT  65  D/S. 

AD 

TS 

CA 

FINE 

STIKSFNS 
-O.t  D/S 

TS 

CA 

MASK 

-RAT  FDB 
CSMDOCKP 
DAPB  OOLS 

LM-ONLY  BREAKOUT  LEVEL  IS  .6  D/S. 

IF  CS M- DOCKED,  DIVIDE  STICK  SENSITIVITY 
BY  10.  NORMAL  SCALING  IS  THEN  2 D/S  AND 

EXTEND 

BZF 

CA 

+ 7 

STIK  SENS 

FINE  SCALING  IS  0.6  0/S 
BRANCH  IF  CS M IS  NOT  DOCKED. 

EXTEND 

MP 

TS 

1/10 

STIKSENS 

CA 

TS 

RELINT 

-0.3  D/S 
-RAT  EDB 

C SM-DOCKED  BRFAKOUT  LEVEL  IS  .3  D/S. 
PROCEED  TO  NOUN  67,  MASS  LOAD, 

CAF 

TC 

V066  7 
BANKCALL 

CADR 
TC  F 
TC  F 

G OXD SPFP 

ENDP03 

DAPDAT2 

V36E  TERMINATE.  FIRST  SET  OB,  DO  1/ACCS 
V 33E  PROCEED 

TC  F 
CAF 
TC 

DAPDATA2 
B I T 3 
BLANKET 

LOAD  NEW  DATA  AND  RECYCLE 
BLANKS  R3 

LM 

TCF 

INHINT 

TC 

ENDO  FJOB 
I BNKCALL 

CADR 

TCF 

BEST  CP DB 
ENDEXT 

DOES  RELINT 

CS 

MASK 

CCS 

FLSWRD10 
A PSF LB  I T 
A 

DETERMINE  STAGE  FROM  APSFLAG 

CA 

AD 

AD 

MINL  MC 

MINMINLM 

LEMMASS 

LEMMASS  MUST  BE  GREATER  THAN  EMPTY  LEM 

EXTEND 

BZMF 

CAE 

DAPDATA2 

DAPBOOLS 

ASK  FOR  NEW  MASSES 

MASK 

EXTEND 

BZF 

CSMDOCKD 
LEMA  LONF 

SKIP  TEST  ON  CSMMASS  IF  NOT  DOCKED. 

CS 

AD 

MI NC  SM 
CSMMASS 

TEST  CSM  MASS 

CSMMASS  MUST  BE  GRFATFR  THAN  FMPTY  CSM 

GAP: 
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L EXTENCED  VERBS 


1051 

01,2263 

0 0006 

1 

EXTEND 

1052 

REF 

3 

LAST 

309 

01,2264 

6 22  30 

1 

BZMF 

DAPD ATA2 

|)rr 

1 

1 T 

-3-0-9 

01( 2265 

3 1 ' 332 

-L- 

CAE 

CSMMASS 

1 053 

1054 

— Ktr 
REF 

3 — 

9 

L Aj  1 

LAST 

309 

01,2266 

6 1331 

1 

LFMALONE 

AD 

LEMMASS 

1055 

01,2267 

22  007 

0 

ZL 

one 

/. 

1 ACT 

-3-0-8 

01,2  27D 

53*245 

_4_ 

DXGH 

MASS 

105  6 
1057 

Ktr 

*1 — 

L A j i 

01,  2271 

0 0004 

0 

INHINT 

1058 

REF 

15 

LAST 

309 

01,  2272 

0 46  74 

0 

TC 

I BNK  CALL 

ID  59 

REF 

— 3- 

LAST 

-3-0-9— 

01,2273 

40123 

-0 

CADR 

REST  ORDB 

1060 

01,2274 

0 0003 

1 

RELINT 

l n a l 

DCC 

i n 

LAST 

30  9 

01,2275 

4 0106 

1 

DAP  DAT  A 3 

cs 

F LGWRD10 

i u o i 
1062 

r\  c r 
REF 

lv 

6 

LAST 

309 

01,2276 

7 47  37 

1 

MASK 

APSFLBIT 

1063 

01,2277 

0 0006 

1 

EXTEND 

1064 

REF 

20 

LAST 

30  9 

01,2  300 

L 5472 

-1- 

BZF 

END  EXT-  _ 

1065 

REF 

1 

01,2301 

3 2332 

1 

CAF 

V 06N48 

1066 

REF 

51 

LAST 

309 

01,2302 

0 4616 

1 

TC 

B ANKCALL 

1067 

REF 

3_ 

LAST 

3D  9 

01,2303 

20231 

_ 0- 

CADR 

GOXDSPFP 

1068 

REF 

21 

LAST 

310 

01, 2304 

0 5472 

0 

TC 

FNDEXT 

1069 

REF 

1 

01,2305 

1 2312 

1 

TC  F 

DPDAT3 

1070 

01 ,2  306 

1 2301 

0 

TC  F 

-5 

1071 

REF 

19 

LAST 

309 

01,2307 

3 4751 

0 

CAF 

B IT3 

1072 

REF 

5 

LAST 

309 

01, 2310 

0 5464 

1 

TC 

BLANKET 

1073 

REF 

17 

LAST 

-3  0 9 

— 0-1 , 2 31 1 

1 5155 

1 

TC  F 

ENDOFJOB 

1074 

REF 

19 

LAST 

26  1 

01,2312 

3 4753 

1 

DPDAT3 

CAF 

8 I T 1 

1075 

01,2313 

0 0004 

0 

INHINT 

1076 

REF 

1 1 

LAST 

2-9-8 

01,2314 

0 5203 

o 

TC 

WAITLIST 

1077 

REF 

1 

E6 , 1401 

EB ANK= 

ROLL  TI ME 

1078 

REF 

1 

01,2315 

031  06 

0 

2C  ADR 

TRIMGIMB 

1078 

REF 

1_ 

0 1,  2 316 

56066 

L 

1079 

REF 

18 

LAST 

31  C 

01, 2317 

1 5155 

1 

TCF 

ENDOFJOB 

1080 

REF 

1 

01, 2320 

3 2333 

0 

TP  I MDDNE 

CAF 

V50N48 

1081 

REF 

52 

LAST 

—3-1-0— 

01,2321 

0 46  16 

1 

TC 

BANKCALL 

1082 

REF 

1 

0 1, 2322 

20237 

0 

CADR 

GOMA  RK3R 

1083 

REF 

22 

LAST 

310 

01,2323 

0 5472 

0 

TC 

ENDE  XT 

1-084 

REF- 

23 

LAST 

— 3-LO 

Ql, 2324 

0 5472 

0- 

TC 

ENDEXT 

1085 

REF 

24 

LAST 

310 

0 1, 2325 

0 5472 

0 

TC 

ENDEXT 

1086 

REF 

4 

LAST 

28  2 

01,2326 

3 6007 

0 

CAF 

0CT24 

1087 

REF 

6 

LAST 

3 1 0 

01, 2 32  7 

0 5464 

1 

TC 

BLANKET 

1088 

REF 

19 

LAST 

310 

01,2330 

1 5155 

1 

TCF 

ENDOFJOB 

10885 

0 1, 2 331 

014  57 

o 

V0647 

VN 

0 64  7 

1089 

01,  2332 

01460 

1 

V06N48 

VN 

0648 

1090 

0 1,2  333 

14460 

o 

V50N48 

VN 

5 04  8 

1091 

01, 2334 

25101 

0 

NORMAL 

DEC 

.660214 

A 1092 

1093 

01 ,2335 

05220 

1 

FINE 

DEC 

. 165054 

1094 

01,2336 

03146 

1 

1/10 

DEC 

. 1 

1095 

01,2337 

77445 

1 

-0. 6D/S 

DEC 

-218 
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ASK  FOR  NEW  MASSES 

DOCKED:  MASS  = CSMMASS  + LEMMASS 

LEM  ALONE:  MASS  = LEMMASS 


SET  DEADBANK  AND  COMPUTE  MOMENTS  OF 
INERTIA. 

PROCEED  TO  NOUN  48  (OR  END). 


END  ROUTINE  IF  LEM  HAS  STAGED, 


DISPLAY  TRIM  ANGLES  AND  REQUEST  RESPONSE 


V 33  E GO  DO  TRIM  (WAITLIST  TO  TRIMGIMB) 
LOAD  NEW  DATA  AND  RECYCLE 

BLANK  R 3 


GO  TO  TRIMGIMB  VIA  WAITLIST  SO  IT 
CAN  USE  FIXDELAY  AND  VARDELAY 


DOES  A RELINT 

TRIM  IS  FINISHED;  PLEASE  TERM  IN AT  E R03 
V34E  TERMINATE 


B I T 5 TO  CHANGE  TO  PERFORM,  3 TO  BLANK  R3 


NORMAL  SCALING  IS  20  D/S 
FINE  STICK  SCALING  (4  D/S). 
FACTOR  FOR  CSM-DOCKED  SCALING 


GAP:-  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25,1968  LEMONAID.070 
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ASSEMBLE  REVISION  069  OF  AK  PROGRAM  LUMINARY  BY  NASA  2021  112-011 


GAP: 


L EXTENDED  VERBS 


P 1097 
R 1098 

VERB 

66. 

VEHICLES  ARE  ATTACHED.  MOVE  THIS 
OTHER  VEHICLE  STATE  VECTOR. 

VEHICLE  STATE  VECTOR 

R1099 

USE 

SUBROUTINE  GENTRAN. 

n 7 _ O 447 

BANK 

7 

1 1 00 
1101 
1102 

REF 

6 

U I » C OO  t 

LAST  303  43,2000 

43,3150 

SETLOC 

BANK 

EXTV  EP  BS 

1103 

REF 

6 

LAST  303  TO  307: 

61 

428* 

COUNT  * 

$ $/ E XTVB 

1104  REF  1 E3.1626  EBANK=  RRECTHIS 


1105 

REF 

3 

LAST 

30  1 

43,3150 

3 4737 

0 

ATTACHED  CAF 

PRI010 

1 1 05 

P p F 

LO 

| AST 

TO  5 

4 3 » 3 1 5 1 

0 5105 

0 

TC 

F INC  VAC 

1107 

REF 

2 

LAST 

312 

E 3,  162  6 

E8ANK= 

RRECTHIS 

0^1  ss 

0 

2C  ADR 

A TT A TH  T T 

1108 

REF 

1 

43,3153 

66103 

0 

1109 

REF 

20 

LAST 

310 

43, 3154 

0 5155 

0 

TC 

E NDO  F JOB 

1110 

REF 

7 

LAST 

30  2 

43,3155 

0 6036 

1 

ATTACHIT  TC 

INTPRET 

11  11 

43,3156 

77624 

1 

CALL 

\ 1 \7 

R FF 

-A 

1 AST 

TO  2 

43, 3 157 

274  1 2 

o 

I MTS  TALL 

1113 

43,3160 

43014 

0 

SET 

BON 

1114 

REF 

i 

43,3161 

04063 

0 

MOONOTH 

1115 

R EF 

1 

43, 3 162 

04304 

1 

MOOC  THIS 

1116 

43,3163 

67166 

1 

+ 3 

1117 

43, 3164 

77614 

1 

CLEAR 

1118 

REF 

2 

LAST 

31  2 

43, 3 165 

04263 

1 

MCQNCTH 

1119 

43, 3166 

77776 

1 

EX  IT 

1120 

REF 

1 

43,3167 

3 3212 

0 

CAF 

DCT5  1 

1121 

REF 

— 1— 

43,3170 

0 5544 

1 

TC 

GENT  RAN 

1122 

REF 

3 

LAST 

312 

43,3171 

01626 

1 

ADRES 

RRECTHIS 

1123 

REF 

1 

43,3172 

01554 

1 

ADRES 

RREC  TOTH 

1124 

43,3173 

0 0003 

1 

RELINT 

1125 

REF 

8 

LAST 

31  2 

43,3174 

0 6036 

1 

TC 

INTPRET 

1 126 

43t  3175 

77524 

l 

CAL  L 

1127 

REF 

1 

43,3176 

26760 

1 

PTOA  LEM 

1123 

43,3177 

451  54 

c 

LX  A , 2 

CALL 

1129 

REF 

— 2 — 

LAST 

130 

43, 3200 

02030 

0 

P BOD  V 

1130 

REF 

1 

43, 3201 

26  114 

1 

S VDWNl 

1131 

43, 3202 

77776 

1 

EXIT 

1132 

REF 

1 

43,3203 

3 3213 

1 

CAF 

TCP  I NAD 

1133 

REF 

8 

LAST 

267 

43,3204 

50  120 

1 

INDEX 

F IXLOC 

1134 

REF 

1 

43,3205 

54  052 

1 

TS 

0 P P F T 

1135 

REF 

14 

LAST 

308 

43,3206 

0 4635 

0 

TC 

POST  JUMP 

1136 

REF 

1 

43,3207 

27427 

0 

CADR 

I NTH AKE 
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OUR  STATE  VECTOR  INTO  OTHER  VIA  GENTRAN 


UPDATE  R-OTHER,  V-OTHEP 


FREE  INTEGRATION  AND  EXIT 


GAP 
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1137 

43,3210 

77634 

0 

TCP  IN 

RTB 

1138 

REF 

3 

LAST 

279 

43,3211 

20723 

0 

P INBRNCH 

1139 

43,3212 

00051 

0 

0CT51 

OCT 

51 

1140 

REF 

1 

43, 3213 

67210 

0 

TCP INAD 

CADR 

TCPI  N 

R 1 141 

VERB 

96 

SET 

QUITFLAG  TO  STOP 

I NTEGR  A T I ON . 

LJ  ITU  7CCH 

TH  CAUSE 

pnn . 

R 1 143 

STATEINT  WILL  CHECK 

QUITFLAG 

AND  SKIP  1ST  PASS 

y 

R1144 

THUS  ALLOWING 

A 10  MINUTE  PERIOD 

WITHOUT  INTEGRATION. 

1145 

REF 

10 

LAST 

304 

43,3214 

0 5504 

0 

V ER  89  6 

TC 

UPFL AG 

QUITFLAG  WILL  CAUSE  INTEGRATION 

TO  EXIT 

1146 

REF 

1 

43,3215 

00221 

0 

ACRES 

QUITFLAG 

AT  NEXT  TIMESTFP 

1147 

REF 

31 

LAST 

294 

43, 3216 

3 4755 

1 

CAF 

ZERO 

1148 

REF 

15 

LAST 

312 

43,3217 

0 4635 

0 

TC 

POST  JUMP 

1 1 49 

REF 

1 

43,3220 

10037 

1 

CADR 

V 37 

GO 

TO  POO 

R 1 1 50 

R 1 1 91 

VERB 

67  : 

: D 

I SP  L AY 

CF  W MATR 

IX 

1152 

REF 

17 

LAST 

307 

43, 3221 

0 2076 

1 

V 67 

TC 

TESTXACT 

[ 1 93 

REF 

2 

1 AST 

244 

43, 3222 

3 5017 

1 

CAF 

P R I 0 5 

1154 

REF 

ii 

LAST 

312 

43,3223 

0 5105 

0 

TC 

F INDVAC 

1155 

REF 

i 

F4* 1604 

EBANK= 

WWPOS 

1 1 96 

REF 

1 

43, 3224 

02011 

0 

2C  ADR 

V67C  ALL 

1156 

REF 

i 

43,3225 

62  064 

1 

1157 

REF 

21 

LAST 

312 

43, 3226 

0 5155 

0 

TC 

ENDOFJOB 

R 1 1 58 

VERB 

65 

DISABLE  U,V  JETS  DURING 

DPS  BURNS 

11  99 

R FF 

LI 

LAST 

313 

43,  3 22  7 

0 9904 

o 

SNUFF3UT 

TC 

u PF  L AG 

1160 

REF 

i 

43,3230 

00115 

i 

ADRFS 

SNUF FER 

1161 

REF 

23 

LAST 

305 

43,3231 

0 2121 

l 

TC 

GOPIN 

R 1 162 

VERB 

75 

ENABLE  U,V  JETS  DURING 

DPS  BURNS 

1163 

REF 

22 

LAST 

304 

43, 3 232 

0 5516 

0 

OUT  SNUFF 

TC 

DOWN  FLAG 

1164 

REF 

2 

LAST 

31  3 

43,3233 

00115 

1 

ADRES 

SNUF  FER 

1165 

REF 

24 

LAST 

31  3 

43, 3234 

0 2121 

1 

TC 

GOP  I N 

R1 166 

VERB 

85 

D IS  PI  AY  RR  LOS  AZIMUTH 

AND  FLEVATION. 

R 1 1 67 

AZIMUTH  IS 

THE  ANGLE 

BETWEEN 

THE  LOS  AND  THF  X 

-Z  NB  PLANE,  0 

- 90 

DEG  IN  THE  + Y HEMISPHERE, 

R 1 1 69 

360  - 

270 

CFG 

IN  THE  -Y  HEM  I SI 

3HERE . 

R1 170 

ELEVATION 

IS  THE  ANGLE  BETWEEN 

+ ZNB  AND 

THE  PROJECT  ION  OF  THE 

LOS 

INTO  THE  X-Z  PLANE,  0 - 360 

ABOUT  +Y . 

1172 


REF 


4 LAST  216  E7, 1750 


EBANK=  TANG  NB 
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1173 

REF 

18 

LAST 

313 

43,3235 

0 2076  1 VERB85 

TC 

TESTXACT 

1174 

REF 

16 

LAST 

31  3 

43, 3236 

0 4635  0 

TC 

POST  JUMP 

1175  REF  1 --  43,3237  600  00  1 CADR  DSPRRLCS 


1176 

REF 

1 

40, 2000 

SETLOC 

P I N B ALL  1 

9 ono 

BANK 

1178 

REF 

1 

COUNT  * 

$ $/ E XTVB 

1179 

REF 

3 

LAST 

313 

40,2000 

3 5017 

1 

DSPRRLOS 

CAE 

PR  105 

1180 

REF 

12 

LAST 

313 

40, 2001 

0 5105 

0 

TC 

F INC  VAC 

5 

LAST 

9 19 

F 7 t 1 7S0 

EBANKs- 

T ANGNB 

1182 

REF 

i 

40, 2002 

02017 

0 

2CADR 

RRLOSDSP 

1182 

REF 

i 

40, 2003 

60107 

1 

REF 

LAST 

29  5 

40t ? 004 

3 4740 

0 

CAE 

PR1  04 

1184 

REF 

5 

LAST 

307 

40,2005 

0 5146 

1 

TC 

PRI OCHNG 

1185 

REF 

1 

40,2006 

3 2076 

1 

CAF 

V16N56 

11 8* 

REF 

53 

LAST 

91  0 

40,  P 007 

0 46  16 

1 

TC 

BANKCALL 

1187 

REF 

3 

LAST 

292 

40,  2010 

20231 

0 

CADR 

GOMA  P.KFR 

1188 

REF 

1 

40, 2011 

0 5563 

1 

TC 

B50FF 

LI  89 

REF 

_ 2 

LAST 

3 14 

40, 2012 

0 5563 

1 

TC 

B50FF 

1190 

REF 

3 

LAST 

314 

40, 2013 

0 5563 

1 

TC 

B50FF 

REF 

2G 

LAST 

3 1 C 

40 T 2 014 

9 47  81 

0 

CAF 

R I T 9 

1192 

REF 

7 

LAST 

310 

40i 2015 

0 5464 

1 

TC 

BLANKET 

1193 

REF 

22 

LAST 

313 

40,2016 

0 5155 

0 

TC 

ENDO  FJOB 

1194 

40,2017 

0 0006 

1 

RRLOSDSP 

EXTEND 

1195 

REF 

2 

LAST 

202 

40,2020 

3 0036 

1 

DC  A 

CDUT 

1196 

— |VE  F 

6 — 

LAST 

31  4 

40,2021 

53' 751 

1 

DXCH 

T ANGNB 

1197 

REF 

9 

LAST 

3 1 2 

40,2022 

0 6036 

1 

TC 

l NT  P RET 

1198 

40, 2023 

77624 

1 

CALL 

1 1 99 

REF 

1 

40, 2024 

46041 

0 

RRNB 

1200 

40,2025 

00001 

0 

STORE 

OD 

1201 

40,2026 

14007 

0 

STOOL 

6 D 

1202 

REF 

1 

40,2  02  7 

06424 

0 

H 16  ZEROS 

1203 

40,2030 

24011 

1 

STOVL 

8 D 

1204 

40,2031 

00007 

0 

6 D 

1205 

40,2032 

77656 

1 

UN  T T 

1206 

40,2033 

00007 

0 

STORE 

6 D 

1207 

40,2034 

77641 

1 

DOT 

1208 

REF 

3 

LAST 

36 

40,2035 

064  16 

1 

UNI  T Z 

1209 

REF 

1 

40,2036 

240  21 

1 

STOVL 

GOSTH 

1210 

REF 

3 

LAST 

36 

40,2037 

064  22 

0 

UNI  TX 

1214 

40,2040 

77641 

1 

DPiT 

1212 

40,2041 

00007 

0 

60 

1213 

REF 

1 

40,2042 

34023 

1 

STCALL 

S INTH 

1214 

REF 

1 

40,2043 

47222 

0 

ARCTRIG 

1215 

40,2044 

43244 

1 

8PL 

DAD 

1216 

40,2045 

60047 

1 

+ 2 
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GET  RR  LOS  IN  BODY  AXES. 
UNIT  LOS 
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1 60 

180 
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1217 

REF 

1 

40,2046 

06432 

1 

DPPOSMAX 

1218 

REF 

1 

40, 2047 

26207 

0 

STOVL 

RP-F  LEV 

1 O 1 Q 

40,2050 

00001 

_Q— 

on 

ltl7 

1220 

40,2051 

77641 

1 

DOT 

1221 

REF 

2 

LAST 

36 

40,2052 

064  20 

1 

UNITY 

RE  F 

LAST 

3 1 A 

40,2053 

24023 

0 

STOVL 

SINTH 

1 c.  c.  c. 

1223 

40,2054 

00001 

0 

OD 

1224 

40,2055 

77641 

1 

DOT 

1225 

40,2056 

00007 

0 

6 D 

1226 

REF 

2 

LAST 

314 

40,2057 

34021 

0 

STCALL 

COSTH 

1227 

REF 

2 

LAST 

314 

40,2060 

47222 

0 

APCTRIG 

1228 

4^0  ,_2  061 

43244 

1 

BPL 

DAD 

1229 

40,2062 

60064 

0 

+ 2 

1230 

REF 

2 

LAST 

315 

40,2063 

06432 

1 

DPPCSMAX 

1231 

REF 

. 2 

LAST 

1 34 

40,2064 

02205 

1 

STORE 

RR-AZ 

1232 

40,2065 

77776 

l 

EXIT 

1233 

REF 

2 

LAST 

285 

40,2066 

3 4777 

1 

CA 

1SEC 

1234 

REF 

54 

LAST 

314 

40,2067 

0 46  1 6 

1 

TC 

B ANKCALL 

1235 

REF 

7 

LAST 

294 

40,2070 

01735 

1 

CADR 

DEL  AYJOB 

1236 

REF 

16 

LAST 

-26  9 

40 , 2 07 1 

3 4747 

1 

CA 

B I T 5 

1237 

REF 

6 

LAST 

278 

40, 2072 

7 1044 

1 

MASK 

EXTV  EACT 

1238 

REF 

90 

LAST 

309 

40,2073 

10  000 

0 

CCS 

A 

1239 

— R E IF 

2 

LAST 

31  4 

4 CL,  2074 

0 20  1 7 

0 

TC 

RRLOSDSP 

1240 

REF 

25 

LAST 

310 

40, 2075 

0 5472 

0 

TC 

ENDE XT 

1241 


40,2076 


04070  1 V16N56 


VN 


1656 
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INTRODUCES  AN  ERROR  OF  B-28  REVS. 


INSURE  DISPLAY  OF  0 - 360  DEG, 
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R 1001  COMPONENT  CODE  NUMBER  INTERPRETATION 


R 1002  00000 
R1003  OCCOl 
R 1004  00010 
R 1005  X1XXX 
R 1 006  1XXXX 

R 1 007  END  OF  COMPONENT  CODE  NUMBERS 


1 COMPONENT 

2 COMPONENT 

3 COMPONENT 

BIT4  = pi  DE-CIMAL  ONLY 
BIT5  = 1.  NO  LOAD 


R 1008  SF  ROUTINE  CODE  NUMBER  INTERPRETATION 


R 1 009 
R 10  1 0 
R1011 
R 1012 
RIO  13 
R 1014- 
R 10  1 5 
R 10  16 
RIO  17 
R 10  18 
R 10  1 9 
R 1020 
R1021 
R 1022 
R 1022  1 
R 1022  2 
R10223 
R 1022  4 
R1023 


OOCOO  OCTAL  ONLY 

OOCOl  STRAIGHT  FRACTIONAL 

OOC10 G-DU— D EG  REES  ( XXX  .XX  ) 

0CC11  ARITHMETIC  SF 

00100  ARITH  DPI  OUTIMULT  BY  2EXP14  AT  END)  IN(STRAIGHT) 

00101  ARITH  DP  2 OUT  I STR A I GHT I INISL  7 AT  END) 

00110  LANDING  RADAR  POSITION  (+0000X) 

00111  ARITH  DP  3 OUT  ( SL  7 AT  END)  IN  ( STRAIGHT) 

OIGOO  WHOLE  HOURS  IN  Rl,  WHOLE  MINUTES  IMOD  60)  IN  R2, 

SECONDS  (MOD  60)  OXX.XX  IN  R3.  ***  ALARMS  IF  USED  WITH  OCTAL 
01001  MINUTES  (MOD  60)  IN  D1D2,  D3  BLANK,  SECONDS  (MOD  60)  IN  D4D5 

LIMITS  TO  59B59  IF  MAG  EXCEFDS  THIS  VALUF. 

ALARMS  IF  USED  WITH  OCTAL  ********  IN  (ALARM) 
01010  ARITH  DP  4 OUT  (STRAIGHT)  IN  1 SL  3 AT  END) 

01C11  ARITH  1— 5E OUT! MULT  BY  2EXP14  AT  END)  LR(  S-TRA  1 G HT  ) 

011C0  2 INTEGERS  IN  D1D2,  D4D5,  D3  BLANK. 

ALARMS  IF  USED  WITH  OCTAL  ********  IN  (ALARM) 
011C1-  — 3-60-C  DU  DEGREES  (XXX. XX) 

ENC  OF  SF  ROUTINE  CODE  NUMBERS 


R 1024 

SF  CONSTANT  CODE  NUMBER 

INTERPRETATION 

R 1 

OCG-CO  

WHOLE 

USF 

/\p  i th 

R 1026 

occco 

DP  TIME  SEC  (XXX. XX 

SEC  ) 

USE 

ARITHDP1 

R 1026  5 

occoo 

LR  POSITION  ( +OOOOX ) 

USE  LP 

POSITION 

R 1 02  7 

OCCOl 

SPARE 

R 1028 

0CC10 

CDU  DEGREES 

USE  CDU 

DEGREES 

R1029 

00010 

360-CDU  DEGREES 

USE 

360-CDU 

DEGREES 

R 1030 

00011 

np  dforffs  fqm  yy.yyy  nFr,  llSF 

AR  I THDP3 

R 1031 

00100 

DP  OEGREES  (360)  XXX 

.XX 

DEG  USE 

ARITHDP4 

R 1032 

001C1 

DEGREES  (180)  XXX. XX 

DEG 

USE 

ARITH 

R 10  32  1 

0 0 1 Cl 

OPTIC  Al  TRACK  F R A 7 I Ml  IT  H 

ANGI  F( XXX . XXPFG) 

R 1032  2 

USE 

ARITHDP1 

R 1034 

00110 

WEIGHT2  (XXXXX.  LBS) 

USE 

AR ITH1 
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R 103  5 
R 1035  1 
R 1037 

0C111 
0 1 0 CO 

P0SITI0N5  (XXX. XX  NAUTICAL  MILES) 

USE  ARITHDP3 

POSIT  1 0N4  (XXXX.X  NAUTICAL  MILES) 

R 10  37  1 
R1038 

R 1 D8Q 

010C1 

01010 

USE  ARITHDP3 

VEL0CITY2  (XXXXX.  FT/SFC)  USE  ARITHDP4 

VEL0CITY3  (XXXX.X  FT/SEC)  USE  ARITHDP3 

R 1040 
R1041 

R ] 04? 

01011 

01100 

ELEVATION  DEGREES ( 89 . 999M A X ) USE  ARITH 
RENDEZVOUS  RADAR  RANGE  (XXX. XX  NAUT  MI) 

USE  ARITHDP1 

R 1043 
R 1044 

R I 0 4-4 

01101 
0 1 1 1 0 

RENDEZVOUS  RADAR  RANGE  R A T E ( XXXX X . FT/ S EC 

USE  ARITHDP1 

LANDING  RADAR  AL T I TUDE ( XX XX X .FEE T ) 

R 1046 
R 1047 
R 1048 

01111 

USE  ARITHDP1 

IMITI AL/FINAL  ALTITUDE ( XXXXX  .FEET) 

USE  ARITHDP1 

R 1049 
R 1050 
R 1051 

1 ocoo 
10001 

ALTITUDE  RATE(XXXXX. FT/SEC ) USE  ARITH 

FORWARD/ LATERAL  V EL OC I T Y ( XXX  XX . F E ET/ S FC ) 

USE  ARITH 

R1052 
R1053 
R 1054 

10010 

10C11 

ROTATIONAL  HAND  CONTROLLER  ANGLE  RATES 

XXXXX. DEG/SEC  USE  ARITH 

LANDING  RADAR  V EL X ( XXX XX . FE F T/ SFC ) 

R 1055 
R1056 
R1057 

10100 

USE  ARITHDP1 

LANDING  RADAR  V EL Y( XXX XX . F E E T/ SE C ) 

USE  ARITHDP1 

R 1 058 
R 1059 
R 1060 

10101 
1 Cl  10 

LANDING  RADAR  VELZ ( XXX XX. FE E T/SEC ) 

USE  ARITHDP1 

P0SITI0N7  (XXXX.X  NAUT  MI)  USE  ARITHDP4 

R 1060  1 
R 106  1 
R 106 1 01 

10111 

11000 

TRIM  DEGREES2  (XXX. XX  DEG)  USE  ARITH 
COMPUTED  ALTITUDE  (XXXXX.  FFET) 

USF  ARITH0P1 

R 106 102 
R 106 1 03 
R 106 1 04 

11C01 
1 1010 
1 10  1 1 

DP  DEGREES  (XXXX.X  DEG)  USE  ARITHDP3 
POSIT  1 0N9  (XXX. XX  NAUT  MI)  USE  ARITHDP4 
VFL0CITY4  (XXXX.X  FT/SEC)  USF  ARITHDP2 

R 1062 

END  OF 

SF  CONSTANT  CODE 

NUMBERS 

R 1063 
R 1064 
R 1 065 

FOP  GREATER 
NOUN  TABLES 
OCTAL  LOADS 

THAN 

PLACE 

SINGLF  PRECISION  SCALES,  PUT  ADDRESS  OF  MAJOR  PART  INTO 
+0  INTO  MAJOR  PART,  DATA  INTO  MINOR  PART. 

R 1066 
R 1 067 

OCTAL 
TO  GET 

DISPLAYS 
AT  BOTH 

SHOW 
MA  JOR 

MINOR  PART 
AND  MINOR 

ONLY. 

PAR TS ( IN  OCTAL),  USE  NOUN  01. 

R 1068 
R 1069 

A NOUN  MAY 
CODE  NUMBER 

BE  DECLARED  : DEC  I MAL  ONLY:  BY  MAKING  BIT4=1  OF  ITS  COMPONENT 
. IF  THIS  NOUN  IS  USED  WITH  ANY  OCTAL  DISPLAY  VERB.  OR  IF 

R 1070 

DATA  IS  LOADED 

IN 

OCTAL, 

IT  ALARMS. 

RIO  71 — 

IN-LOADING  AN 

: H 0 U R S 

, MINUTES, 
IS  MADE  TO 

SECONDS:  NOUN,  ALL  3 WORDS  MUST  BE 

R 1072 
R 1073 

LCAOED 

ALARM 

, OR  , 
IF  AN 

ALARM. 

ATTEMPT 

LOAD  : SPL  IT  M I NUT ES/ SEC OND S : (MMBSS). 

317 
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L 

P 1075 
R 10  76 
R 1077 


R 1078 
R1079 
R 1080 
R 108 1 
R1082 

1200 
12002 
12003 
12005 
1201 
1202 
12  03 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 
R 12  32 

1233 


PINBALL  NOLN  TABLES  USER'S  PAGE  NO.  4 EO  S4 

THE  FOLLOW  ING  ROUTINES  ARE  FOR  READING  THE  NOUN  TABLES  AND  THE  SF  TABLES 
(WHICH  ARE  IN  A SEPARATE  BANK  FROM  THE  REST  OF  PINBALL).  THESE  PFADING 
ROUTINES  ARE  IN  THE  SAME  BANK  AS  THE  TABLES.  THEY  ARE  CALLED  BY  DXCH  Z. 


LCDKNTAB  LOADS  NNADTEM  WITH  THE  NNADTAB  ENTRY,  NNTYPTEM  WITH  THE 
NNTYPTAB  ENTRY.  IF  THE  NOUN  IS  MIXED,  IDAD1TEM  IS  LOADED  WITH  THE  FIRST 
ICADDTAB  ENTRY,  I DAD2TEM  THE  SECOND  I DADDTAB  ENTRY,  IDAD3TEM  THE  THIRD 
ICADDTAB  ENTRY,  R UTMXTEM  WITH  THE  RUT  MXTAB  ENTRY.  MIXBR  IS  SET  FOR 
MIXED  OR  NORMAL  NOUN. 


06, 3263 

BANK 

_6 

REF 

2 

LAST 

296 

42,2000 

SETLOC 

P INBALL3 

42,2103 

BANK 

REF 

1 

COUNT* 

*1/ NOUNS 

REF 

1 

42,2103 

52  152 

0 

LODNNTAB 

DXCH 

IDAD2TFN 

SAVE  RETURN  INFO  IN  IDAD2TEM,  IDAD3TEM. 

REF 

3 

LAST 

282 

42,2  104 

5 1*0  02 

1 

I NDEX 

NOUN  REG 

REF- 

_1_ 

42, 2 105 

3 2154 

0 

CAF 

NNADTAB 

REF 

1 

42,2106 

54  146 

0 

TS 

NNADTFM 

REF 

4 

LAST 

319 

42,  2 107 

5 1 ' 0 02 

1 

I NDEX 

NOUNPEG 

REF 

1 

42, 211Q 

3 2320 

1 

CAF 

NNTYPTAB 

REF 

1 

42,2111 

54  147 

1 

TS 

NNTY  PTEN 

REF 

5 

LAST 

319 

42, 2112 

4 1002 

0 

CS 

NDUNRFG 

REF- 

1- 

42,2113 

6 4771 

3 

AD_ 

M IXCON 

42,2114 

0 0006 

1 

EXTEND 

REF 

1 

42,2115 

6 2121 

1 

BZMF 

LODN  IXNN 

NOUN  NUMBER  G/E  FIRST  MIXEO  NOUN 

REF 

14 

LAST 

42,2  116 

3 47  53 

J 

CAF 

ONE 

NOUN  NUMBER  L/  FIRST  MIXED  NOUN 

REF 

1 

42,2117 

54  140 

0 

TS 

MIXBP 

NORMAL.  +1  INTO  MIXBR. 

REF 

1 

42,2120 

0 2137 

0 

TC 

LODNl V 

RE^ 

11 

LAST 

Z9J 

42, 2 121 

3 47  52 

0 

LODMI  XNN_ 

CAF 

TWO 

MIXED.  +2  INTO  MIXBR. 

REF 

2 

LAST 

319 

42, 2 122 

54  140 

0 

TS 

M I X E R 

REF 

6 

LAST 

319 

42,  2123 

5 1 ' 0 02 

1 

INDEX 

NOUNREG 

REF 

— L 

42,2124 

3 3060 -L 

CAF 

R UT MXTAB  -40D 

FIRST  MIXED  NOUN  = 40. 

REF 

1 

42, 2125 

54  153 

1 

TS 

RUTMXTFM 

REF 

2 

LAST 

247 

42, 2126 

3 5012 

1 

CAF 

LOW  10 

REF 

2 

LAST 

3 1_9 

42,2127 

7 0146 

0 

MASK 

NNADTFM 

REF 

28 

LAST 

297 

42, 2 130 

54  002 

1 

TS 

0 

TFMP 

REF 

91 

LAST 

315 

42,2131 

50  000 

1 

INDEX 

A 

REF 

1 

42, 2132 

3 2644 

_0 

CAF 

I DADDTAB 

REF 

1 

42,2  133 

54  150 

1 

TS 

IDAD1TFN 

LOAD  IDA01TEM  WITH  FIRST  IDADDTAB  ENTRY 

42,2134 

0 0006 

1 

EXTEND 

REF 

29 

LAST 

319 

42,2135 

5 00  02 

0 

INDEX 

Q 

LOAD  I DAD2TEM  WITH  2ND  IDADDTAB  ENTRY 

REF 

2 

LAST 

319 

42, 2136 

3 2646 

1 

DC  A 

IDADDTAB  +1 

LOAD  I DAD3TEM  WITH  3RD  IDADDT  AB  FNTRY . 

REF 

2 

LAST 

319 

42,2137 

52  152 

0 

LODNLV 

DXCH 

I DAD2TEM 

PUT  RETURN  INFO  INTO  A,  L. 

REF 

..-4n? 

42,2 140 

52  006 

0 

DXCH 

Z 

REF 

i 

4771 

MIXCON 

0CT50 

(DEC  40) 

GTSFOUT 

LOADS 

SFT EMP 1 

, SFTEMP2 

WITH  THE 

DP  SFQUTAB  ENTRIES. 

REF 

l 

42,2 141 

52  124 

1 

GTSFOUT 

DXCH 

SFTFMP1 

2X ( SFCONUM ) ARRIVES  IN  SFTEMP1. 
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L 

PINBALL 

NOUN 

TABL  ES 

L234 

42,2142 

0 0006 

1 

EXTEND 

1235 

REF 

92 

LAST 

319 

42,2143 

5 0000 

1 

INDEX 

A 

4 ? t ? 1 4 4 

3 2555 

0 

— DC  A 

SFOUTAB 

1237 

REF 

2 

LAST 

3 1 9 

42,2145 

52  124 

1 SFCOM 

DXCH 

SFTEMPl 

1238 

REF 

2 

LAST 

319 

42, 2 146 

52  006 

0 

DXCH 

Z 

R 1 2 39 

GTSFIN 

LOADS  SFTFMP1,  SFTEMP2 

WITH  THE 

DP  SFINTAB  ENTRIES. 

1240 

1241 

REF 

3 

LAST  320  42,2147 

42, 2 150 

1 AC  t -x  ? n £-9^  51  Cl 

52  124 
0 0006 
s nn no 

1 

1 

1 

GTSFIN  DXCH 

EXTEND 

INDEX 

SFTE MP1 
A 

1243 

REF 

i 

42, 2 152 

3 2465 

1 

OCA 

SFINTAB 

1244 

REF 

i 

42,2153 

1 2145 

1 

TCF 

SFCOM 

A 1400 

42, 2154 

00000 

1 

NNADTAB  OCT 

00000 

rru  1 

1402 

42,2155 

40000 

0 

OCT 

40000 

1403 

42,2156 

40000 

0 

OCT 

40000 

1404 

42, 2157 

40000 

0 

OCT 

40000 

1405 

REF 

3 

LAST 

292 

42,2  160 

01045 

1 

ECADR 

0 SPT EMI 

1406 

REF 

4 

LAST 

320 

42,2161 

01045 

1 

ECADR 

DSPT EMI 

1407 

REF 

1_ 

42,-2  162 

01144 

1 

ECAOR 

OPT  1 ONI 

1408 

REF 

1 

42,2163 

01003 

0 

ECADR 

XREG 

A 1408  1 
A14082 


1409 

REF 

2 

LAST 

124 

42,2  164 

01363 

0 

ECADR 

ALMC ADR 

1410 

REF 

4 

LAST 

226 

42, 2 165 

00375 

0 

ECADR 

F A I L REG 

1411 

4?  r ? 1 66 

77776 

l 

QC  T 

77776 

1412 

REF 

3 

LAST 

21  3 

42,2167 

03631 

0 

ECADR 

TCS  I 

1413 
A 1 41  3 1 

REF 

7 

LAST 

292 

42,2170 

01051 

1 

ECADR 

OPT  I ONX 

1414 

REF 

3 

LAST 

21  3 

42,2171 

03373 

0 

ECADR 

TCDH 

1415 
A 141 5 1 

REF 

4 

LAST 

222 

42,2172 

01051 

1 

ECADR 

DSPTEMX 

1416 

42,2173 

77777 

0 

OCT 

77777 

1417 

REF 

5 

LAST 

320 

42,2174 

01051 

1 

ECADR 

DSPTFMX 

1418 

42,2175 

00000 

1 

OCT 

00000 

1419 

REF 

1 

42,2176 

02350 

0 

ECADR 

F D A I X 

1420 

42,2177 

00000 

1 

OCT 

00000 

1421 

REF 

6 

LAST 

269 

42,2200 

00032 

0 

ECADR 

C DUX 

1422 

REF 

1 

42,2201 

00037 

0 

ECADR 

PIPAX 

1423 

REF 

6 

LAST 

297 

42,2202 

00321 

1 

ECADR 

THET AD 

1424 

42,2203 

00000 

1 

OCT 

00000 

1425 

REF 

3 

LAST 

290 

42,2204 

01051 

1 

ECADR 

DSPTEM2 

1426 
A 1426  1 

REF 

5 

LAST 

320 

42,2205 

01045 

1 

ECADR 

DSPT  EMI 

1427 

REF 

6 

LAST 

320 

42,2206 

01045 

l 

ECADR 

DSPT EMI 

1428 

REF 

4 

LAST 

305 

42,2207 

01362 

1 

ECADR 

SMODE 
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2X ( SFCONUM ) ARRIVES  IN  SFTEMP1. 


NN  NORMAL  NOUNS 

00  MOT  IN  USE 

01  SPECIFY  MACHINE  AODRESS  (FRACTIONAL) 

02  SPECIFY  MACHINE  ADDRESS  (WHOLE) 

03  SPECIFY  MACHINE  AODRESS  (DEGREES) 

04  ANGULAR  ERROR/DI FFER ENCE 

05  ANGULAR  ERROR/ 01 F F ER ENCE 

06  OPTION  CODE 

07  ECAOR  OF  WORD  TO  BE  MODIFIED 
ONES  FOR  BITS  TO  BE  MODIFIED 

1 TO  SET  OR  0 TO  RESET  SELECTED  BITS 

08  ALARM  DATA 

09  ALARM  CODES 

10  CHANNEL  TO  BE  SPECIFIED 

11  TIG  OF  CSI  (HRS, MIN, SEC) 

12  OPTION  CODE 

(USED  BY  EXTENOED  VERBS  ONLY) 

13  TIG  OF  CDH  ( HR S , M I N , SEC ) 

14  CHECKLIST 

(USED  BY  EXTENDED  VERBS  ONLY) 

15  INCREMENT  MACHINF  ADDRESS 

16  TIME  OF  EVENT  ( HRS , M IN , SEC ) 

17  SPARE 

18  AUTO  MANEUVER  BALL  ANGLES 

19  SPARE 

20  I CDU  ANGLES 

21  PIPAS 

22  NEW  I CDU  ANGLES 

23  SPARE 

24  DELTA  TIME  FOR  AGC  CLOCK ( HRS , M I N , S EC ) 

25  CHECKLIST 

(USED  WITH  PLEASE  PERFORM  ONLY) 

26  PRIO/DELAY,  ADRES,  BBCON 

27  SELF  TEST  ON/OFF  SWITCH 


GAP: 

L 

ACCCkiC 

3 1 C 

D C W T c mi 

vi  riAO 

nc  a r_r  oonr.oAM  l 1 1 M I N Aft  V RV 

ma<;a  ?n?ii  n-nii 

19:  02 

NOV.  25,1968  LFMONAID.070  PAGE  321 

PINBALL 

r>cv  io  iuin 
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USER'S  PAGE  NO.  6 FO  S4 

1429 

42,2210 

00000 

1 

OCT 

00000 

28 

SPARE 

1430 

42,2211 

00000 

1 

OCT 

00000 

29 

SPARE 

1 A 0 1 

42,2212 

00000 

1 

oct 

0 

30 

SPARE 

LH  J L 

1432 

42, 2213 

00000 

1 

OCT 

0 

31 

SPARF 

1433 

REF 

1 

42,2214 

0214? 

1 

ECADR 

-TPE  R 

32 

TIME  TO  PEPIGEF  ( HR S , M I N , S EC ) 

1434 

REF 

7 

LAST 

2 5 8 

42, 2215 

03437 

J 

ECADR— 

TIC 

33 

TIME  OF  IGNITION  ( HR S, M INI  SEC ) 

1435 

REF 

7 

LAST 

320 

42, 2216 

01045 

1 

ECADR 

DSPTEM1 

34 

TIME  OF  EVFNT  ( HR S , M IN , SEC ) 

1436 

REF 

7 

LAST 

256 

42, 2217 

03451 

1 

ECADR 

TTCGC 

35 

TIME  TO  GO  TO  EVENT  ( HR S , M I N , SEC ) 

1437 

REF 

10 

LAST 

290 

42, 2220 

00024 

1 

ECADR 

TIME? 

36 

TIME  OF  AGC  CLOCK  ( HRS , Ml N , S EC ) 

1438 

REF 

3 

LAST 

213 

42,2221 

03633 

1 

ECADR 

TTP  I 

37 

TIG  OF  TP  I (HRS, MIN, SEC) 

1439 

REF 

2 

LAST 

126 

42,2222 

01516 

1 

ECADR 

TET 

38 

TIME  OF  STATE  BEING  INTEGRATED 

1440 

42,2223 

00000 

1 

OCT 

000  0 0 

39 

SPARF 

R 1440  1 

END 

OF 

NNACTAB 

FOR 

NORMAL  NOUNS 

A 14402 
1441 
A 1 4-41  1 

42,2224 

64  000 

0 

OCT 

64000 

NN 

40 

MIXED  NOUNS 

TIME  TO  IGNITION/CUTOFF 
VG 

A 1441 2 

DELTA  V ( ACCUMULATED ) 

1442 

42, 2225 

02003 

0 

OCT 

02003 

41 

TARGET  AZIMUTH 

A 1 44? 1 

ELEVAT ION 

1443 

42,2226 

240  06 

1 

OCT 

24006 

42 

APOGEE 

A 1443  1 

PERIGEE 

A 1443  2 

DELTA  V (REQUIRED) 

1444 

42, 2227 

24011 

1 

OCT 

2431  1 

43 

LATITUDE 

A 1444  1 

LONGITUDE 

A 14442 

ALTITUDE 

1445 

42,2230 

64014 

0 

OCT 

643  14 

44 

APOGEE 

A 1445 1 

PERIGEE 

A 1445  2 

TFF 

1446 

42, 2231 

64017 

0 

OCT 

64017 

45 

MARKS 

A14461 

TTI  OF  NEXT  BURN 

A 1446  2 

MGA 

1447 

42,2232 

00022 

1 

OCT 

00022 

46 

AUTOPILOT  CONFIGURATION 

144  8 

42, 2233 

22025 

0 

OCT 

2202  5 

47 

LEM  WEIGHT 

A 1448  1 

CSM  WFIGHT 

1449 

42,2234 

22030 

1 

OCT 

2203  0 

48 

GIMBAL  PITCH  TRIM 

A 14491 

GIMBAL  ROLL  TRIM 

1450 

42,2235 

22033 

1 

OCT 

22033 

49 

DELTA  R 

A 1450  1 

DELTA  V 

1451 

42,2236 

00000 

1 

OCT 

0 

50 

SPARE 

1452 

42,2237 

22041 

1 

OCT 

2204  1 

51 

S-BAND  ANTENNA  PITCH 

A 1452  1 

YAW 

1453 

42,2240 

00044 

1 

OCT 

00044 

52 

CENTRAL  ANGLE  OF  ACTIVE  VEHICLE 

1454 

42,2241 

00000 

1 

OCT 

00000 

53 

SPARE 

1455 

42,2242 

24052 

0 

OCT 

24052 

54 

RANGE 

A 1455  1 

RANGE  RATE 

A 14552 

THETA 

1458 

42,2243 

24055 

1 

OCT 

24055 

55 

NO.  OF  APSIDAL  CROSSINGS 

A 145  8 1 

ELEVATION  ANGLE 

ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


GAP: 

L PINBALL  NOUN  TABLES 


A 145  8 2 

1459 

42,2244 

02  060 

0 

OCT 

02060 

1460 

42,2245 

20063 

0 

OCT 

20063 

1461 

42,2246 

24066 

1 

OCT 

24066 

A 14612 

1462 

42,2247 

24071 

1 

OCT 

240  7 1 

42,  2 250 

24074 

1 

OCT 

? 4074 

A 1463  1 

A 1463  2 

42, 2251 

64  077 

0 

OCT 

64Q7  7 

A 14641 

A 1464  2 

1465  42,2252  64102  0 OCT  64102 


A 1465 1 
A 14652 


1466 

42,2253 

24105 

0 

OCT 

2410  5 

A 1466 1 
A 14662 

1467 

42, 2254 

64110 

0 

OCT 

64110 

A 1467  1 
A14672 

146  8 

42, 2 255 

2411  3 

1 

OCT 

24113 

A14681 

1470 
A 1 470 1 

42, 2256 

621  16 

0 

OCT 

62116 

1471 
A 1471 1 
A 14-7 1 2 

42,2257 

04121 

1 

OCT 

04121 

1472 
A 1472  1 
A 1472  2 

42,2260 

64124 

1 

OCT 

541  24 

1473 

42,2261 

00000 

1 

OCT 

00000 

1474 

42,2262 

04132 

0 

OCT 

04132 

1475 

42, 2263 

04135 

1 

OC  T 

041  3 5 

1476 
A 1476 1 

42,2264 

02140 

0 

OCT 

02140 

1477 

42, 2265 

02  1 43 

o 

nr  t 

0 214  3 

A 1477 1 

1478 
A 14  78  1 

42,2266 

64146 

0 

OCT 

64146 

A 1478  2 
1479 
A 1479  1 

42,2267 

64151 

0 

OCT 

6415  1 

A 14792 
1480 
A 1480  1 

42,2270 

22154 

1 

OCT 

22154 

1481 

42,2271 

621  57 

0 

OCT 

62157 

A 1481  1 
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CENTRAL  ANGLE 

56  RR  LOS  AZIMUTH 

ELEVATION 

57  DELTA  R 

53  PERIGEE  ALT 
DELTA  V TP  I 
DELTA  V TPF 

59  DELTA  VELOCITY  LOS 

60  HORIZONTAL  VELOCITY 
ALTITUDE  RATE 
COMPUTED  ALTITUDE 

61  TIME  TO  GO  IN  BRAKING  PHAS E 
TIME  TO  IGNITION 

CROSS  RANGE  DISTANCE 

62  ABSOLUTE  VALUE  OF  VELOCITY 
TIME  TO  IGNITION 

DELTA  V (ACCUMULATED) 

63  ABSOLUTE  VALUE  OF  VELOCITY 
ALTITUDE  RATE 

COMPUTED  ALTITUDE 

64  TIME  LEFT  FOR  REDESIGN A TION-LPD  ANGLE 
ALTITUDE  RATE 
COMPUTED  ALTITUDE 

65  SAMPLED  AGC  TIME  1 HRS, MIN, SEC ) 
(FETCHED  IN  INTERRUPT) 

66  LR  RANGE 

POSITION 

67  LRVX 
LRVY 
LRVZ 

68  SLANT  RANGE  TO  LANDING  SIGHT 
TIME  TO  GO  IN  BRAKING  PHASE 
LR  ALTITUDE  - COMPUTED  ALTITUDE 

69  SPARE 

70  AOT  DETENT  CODE/STAR  CODE 

71  AOT  DETENT  CODE/STAR  CODE 

72  RR  360  - TRUNNION  ANGLE 

SHAFT  ANGLE 

73  NEW  RR  360  - TRUNNION  ANGLE 

SHAFT  ANGLE 

74  TIME  TO  IGNITION 
YAWAFTER  VEH1CLF  RISE 
PITCH  AFTER  VEHICLE  RISE 

75  DELTA  ALTITUDE  CDH 
DELTA  TIME  (CDH-CSI  OR  TPI-CDH) 

DELTA  TIME  (TPI-CDH  OR  TPI-NOMTPI) 

76  CROSS-RANGE  DISTANCE 
APQCYNTHI ON  ALTITUDE 

77  TIMF  TO  ENGINE  CUTOFF 
VELOCITY  NORMAL  TO  C SM  PLANE 


GAP 
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1482 
A 1482  1 

1483 

42.2272 

42.2273 

02162 

24165 

0 

0 

OCT 

OCT 

02162 

24165 

78 

79 

RR  RANGE 

RANGE  R AT  F 
CURSOR  ANGLE 

A 1483  1 

SPIRAL  ANGLE 

A 1483  2 

POSITION  CODE 

1484 

42 ,2274 

02170 

0 

OCT 

02170 

80 

DATA  INDICATOR 

A 14  84  1 

OMEGA 

1485 

42,2275 

24173 

1 

OCT 

24173 

81 

DELTA  V (LV) 

1486 

42,2  276 

24176 

1 

OCT 

24176 

82 

DELTA  V (LV) 

1487 

42, 2277 

24201 

1 

OCT 

24201 

83 

DELTA  V ( BODY) 

1488 

42,2300 

24204 

1 

OCT 

2 4204 

84 

DELTA  V (OTHER  VEHICLE! 

1489 

42,2301 

24207 

l 

OCT 

24207 

85 

V G (BODY) 

1490 

4 2,2  302 

24212 

0 

OCT 

2421  2 

86 

V G (LV) 

1491 

42,2303 

02215 

0 

OCT 

0221  5 

87 

BACKUP  OPTICS  LOS  AZIMUTH 

A 149 1 1 

ELEVATION 

1492 

42,2304 

24220 

1 

OCT 

24220 

88 

HALF  UNIT  SUN  OR  PLANET  VECTOR 

1493 

42, 2305 

24223 

1 

OCT 

24223 

89 

LANDMARK  LATITUDE 

A 1493 1 

LONGITUDE/2 

A 1493  2 

ALTITUDE 

1494 

42,2306 

24226 

l 

OCT 

24226 

90 

Y 

A 1494 1 

Y DOT 

A 1494  2 

PSI 

1495 

42,2307 

00000 

1 

OCT 

00000 

91 

SPARE 

1496 

42,2310 

00000 

1 

OCT 

00000 

92 

SPARE 

1497 

42,2311 

04237 

0 

OCT 

0 4237 

93 

DELTA  GYRO  ANGLES 

1498 

42,2312 

00000 

1 

OCT 

00000 

94 

SPARE 

1499 

42,2313 

00000 

1 

OCT 

0 

95 

SPARE 

1500 

42,2314 

00000 

1 

OCT 

0 

96 

SPARE 

1501 

42,2315 

04253 

1 

OCT 

04253 

97 

SYSTEM  TEST  INPUTS 

1 502 

42,2316 

04256 

1 

OCT 

0425  6 

98 

SYSTFM  TEST  RESULTS 

1503 

42, 2317 

22261 

l 

OCT 

2226  1 

99 

RMS  IN  POSITION 

A 1503  1 

RMS  IN  VELOCITY 

R 1504  ENC  OF  NN ACT  AS  FOR  MIXEO  NOUNS 


A 1 800  NN  NORMAL  NOUNS 


1801 

42,  2 320 

00000 

1 

NNTYPTAB  DCT 

00000 

00 

NOT  IN 

USE 

1802 

42,2321 

04040 

1 

OCT 

04040 

01 

3C0MP 

FRACT IONAL 

1803 

42,2322 

04140 

0 

OCT 

041  4 0 

02 

3C0MP 

WHOLE 

1804 

42,  2323 

04102 

0 

oct 

04102 

03 

3CGMP 

CDU  DEGREES 

1805 

42, 2324 

00  5 04 

0 

OCT 

00504 

04 

1 COMP 

DP  DEG ( 3 60 ) 

1806 

42,2325 

00504 

0 

OCT 

00  504 

05 

1 COMP 

DPDFG (360) 

1807 

42, 2326 

040  00 

0 

OCT 

04000 

06 

3 COMP 

OCTAL  ONLY 

1808 

42,2327 

04000 

0 

OCT 

04000 

07 

3C0MP 

OCTAL  ONLY 

1809 

42, 2330 

04000 

0 

OCT 

04000 

08 

3 COMP 

OCTAL  ONLY 

1810 

42, 2331 

04000 

0 

OCT 

04000 

09 

3C0MP 

OCTAL  ONLY 

1811 

42,2332 

00000 

1 

OCT 

00000 

10 

1 COMP 

OCTAL  ONLY 

1812 

42,2333 

244  00 

0 

OCT 

24400 

11 

3C0MP 

HMS  (DFC  ONLY) 

1813 

42,2334 

02000 

0 

OCT 

020  C 0 

12 

2C0MP 

OCTAL  ONLY 

1814 

42,2335 

24400 

0 

OCT 

2 4400 

13 

3C0MP 

HMS  (DEC  ONLY) 

GAP 
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1815 

42,2336 

04140 

0 

oct 

04140 

1816 

42,2337 

00000 

1 

OCT 

00000 

42 1 ? 340 

744  00 

o 

OCT 

24400 

1818 

42,2341 

00000 

1 

OCT 

0 

1819 

42,2342 

04102 

0 

OCT 

04102 

A?  T ? 343 

00000 

1 

OCT 

00000 

1321 

42,2344 

04102 

0 

OCT 

04102 

1822 

42,2345 

04140 

0 

OCT 

04140 

182  3 

42, 2 346 

04102 

0 

OCT 

04102 

1824 

42,2347 

00000 

1 

OCT 

00000 

1825 

42,2350 

24400 

0 

OCT 

24400 

1826 

42,2351 

04140 

0 

OCT 

04140 

1827 

42,2352 

04000 

0 

OCT 

04000 

1828 

42,2353 

00140 

1 

OCT 

00140 

1829 

42,2354 

00000 

1 

OCT 

00000 

1830 

42,2355 

00000 

1 

OCT 

00000 

1831 

42,2356 

00000 

1 

OCT 

0 

18  3? 

42, 2357 

00000 

1 

OCT 

_o  _ 

1833 

42,2360 

24400 

0 

OCT 

24400 

1834 

42,2361 

24400 

0 

OCT 

24400 

18  35 

4?  T ? ft6? 

?44  00 

o 

OCT 

2 4400 

1836 

42,2363 

24400 

0 

OCT 

24400 

1837 

42, 2364 

244  00 

0 

OCT 

24400 

] ft  ft  ft 

42,2  365 

?44  00 

o 

OCT 

24400 

1839 

42,2366 

244  00 

0 

OCT 

24400 

1840 

42, 2367 

00000 

1 

OCT 

00000 

R 18 AO  1 END  OF  NNTYPTAB  FOR  NORMAL  NOUNS 


1841 

42,2370 

24500  1 

OCT 

2450  0 

A 1841 1 

1842 

42, 2 371 

00542  1 

nr  t 

0054  ? 

1843 
A 1 843  1 

42,2372 

24410  1 

OCT 

2 4410 

1844  42,2 373  20204  0 OCT  20204 

A 1844 1 


1845 
A 1845  1 

42,  2 374 

00410 

1 

oct 

0041  0 

1846 

42,2375 

10000 

0 

OCT 

10000 

A 1846  1 

1847 

42,2376 

00000 

1 

nr  t 

00000 

1848 

42,2377 

00306 

1 

OCT 

00306 

A 1848  1 

1849 

42, 7400 

01367 

1 

nr  t 

0 136  7 

A 1 849 1 
1850 

42,2401 

00510 

0 

OCT 

0051  0 

A 1850  1 — 

1851 

42,2402 

00000 

1 

OCT 

0 

1852 

42,2403 

00204 

1 

OCT 

0020  4 
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USER'S  PAGE  NO.  9 EO  S4 


14 

3C0MP 

WHOLE 

15 

1C0MP 

OCTAL  ONLY 

16 

3C0MP 

HMS 

( DFC 

ONLY  ) 

17 

SPARE 

18 

3C0MP 

CDU 

DEG 

19 

SPARE 

20 

3C0MP 

CDU 

DEGREES 

21 

3C0MP 

WHOLE 

22 

3 COMP 

CDU 

DEGREES 

23 

SPARE 

24 

3C0MP 

HMS 

( DEC 

ONL  Y ) 

25 

3C0MP 

WHOLE 

26 

3C0MP 

OCTAL  ONLY 

27 

1 COMP 

WHOLE 

28 

SPARE 

29 

SPARE 

30 

SPARE 

31 

SPARE 

32 

3C0MP 

HMS 

( DEC 

ONLY  ) 

33 

3C0MP 

HMS 

(DEC 

ONLY  ) 

34 

3C0MP 

HMS 

( DEC 

ONLY  ) 

35 

3C0MP 

HMS 

< DEC 

ONLY  ) 

36 

3C0MP 

HMS 

(DEC 

ONLY  ) 

37 

3C0MP 

HMS 

( DEC 

ONL  Y ) 

38 

3C0MP 

HMS 

( DEC 

ONL  Y ) 

39 

SPARE 

NN  MIXED  NOUNS 

40  3C0MP  MI N/ SEC , VEL  3 , VFL3 

(NO  LOAD,  DEC  ONLY) 

41  2C0MP  CDU  DEG,  ELEV  DEG 

42  3C0MP  P0S4,  P0S4,  VEL3 

(DEC  ONLY) 

43  3C0MP  DPDEG I 3 60 ) , DPD  EG ( 3 60),  P0S4 

(DEC  ONLY) 

44  3C0MP  P0S4 , P0S4,  MIN/SEC 

(NO  LOAD,  DEC  ONLY) 

45  3C0MP  WHOLE,  MIN/SEC,  DPDEG(360) 

(NO  LOAD,  DEC  ONLY) 

46  1C0MP  OCTAL  ONLY 

47  2C0MP  WEIGHT2  FOR  EACH 

(DEC  ONLY) 

48  2C0MP  TRIM  DEG2  FOR  EACH 

(DEC  ONLY) 

49  2C0MP  P0S4 , V EL 3 

(DEC  ONLY) 

50  SPARE 

51  2C0MP  DPD  EG  I 3 60 ) , DPDEG(360) 


GAP:  ASSEMBLE  REVISION  069 

OF  AGC  PROGRAM  LUMINARY 

BY  NASA 

2021112-011 
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L PINEALL  NOUN  TABLES 

US  EP 

• S PAGE  NO.  10  EO  S4 

A 18521 

(DEC  ONLY) 

1853 

42,2404 

00004  0 

OCT 

00004 

52 

1 COMP 

OPDEG ( 3 60 ) 

18  54 

42,2405 

00000  1 

OCT 

00000 

53 

SPARE 

1855 

42,2406 

10507  1 

OCT 

1 0507 

54 

3C0MP 

P0S5,  VEL3,  DPDEG( 360 ) 

A 18  55  1 

(DEC  ONLY) 

1858 

42, 2407 

10200  1 

OCT 

10200 

55 

3C0MP 

WHOLE,  DPOEG ( 360 ) , DPDEG(360) 

A 1858 1 

(DEC  ONLY) 

1859 

42,2410 

00204  1 

OCT 

00204 

56 

2C0MP 

DPOEG (360) , DPQEG( 3 60 ) 

1 860 

42,2411 

00010  0 

OCT 

00010 

57 

1C0MP 

P0S4 

A I860  1 

(DEC  ONLY) 

1861 

42,2412 

24510  0 

OCT 

2451  0 

58 

3C0MP 

P0S4 , V EL3 , V EL  3 

A 186 1 1 

(DEC  ONLY) 

1862 

42, 2413 

24512  1 

OCT 

2451  2 

59 

3C0MP 

VEL3  FOR  EACH 

A 1862 1 

(DEC  ONLY) 

1863 

42,2414 

60512  1 

OCT 

6051  2 

60 

3C0MP 

VEL3 , VFL3 , COMP  ALT 

A 1863  1 

(DEC  ONLY) 

1864 

42, 2415 

54000  0 

OCT 

54000 

61 

3C0MP 

MIN/SEC,  MIN/SEC,  POST 

A 1864  1 

(NO  LOAD,  DEC  ONLY) 

1865 

42, 2416 

24012  1 

OCT 

2401  2 

62 

3C0MP 

VEL3 , MIN/SEC,  VEL3 

A 1865  1 

(NO  LOAD,  DEC  ONLY) 

1866 

42,2417 

60512  1 

OCT 

60512 

63 

3C0MP 

VEL3,  V EL 3 , COMP  ALT 

A 1 866  1 

(DEC  ONLY) 

1867 

42,2420 

60500  1 

OCT 

60500 

64 

3C0MP 

2 1 N T , VEL3 , COMP  ALT 

A18671 

(NO  LOAD,  DEC  ONLY) 

1868 

42,2421 

00000  1 

OCT 

00000 

65 

3C0MP 

HMS  (DEC  ONLY) 

1869 

42,2422 

00016  0 

OCT 

00016 

66 

2C0MP 

LANDING  RADAR  ALT,  POSITION 

A 18691 

(NO  LOAD,  DEC  ONLY) 

1870 

42,2423 

53223  1 

OCT 

5322  3 

67 

3C0MP 

LANDING  RADAR  VELX,  Y,  Z 

1871 

42,2424 

60026  0 

OCT 

60026 

68 

3C0MP 

P0S7,  MIN/SEC,  COMP  ALT 

A 1871  1 

(NO  LOAD,  DEC  ONLY) 

1872 

42,2425 

00000  1 

OCT 

00000 

69 

SPARE 

1873 

42,2426 

00000  1 

OCT 

0 

70 

3C0MP 

OCTAL  ONLY  FOR  EACH 

1874 

42,2427 

00000  1 

OCT 

0 

71 

3C0MP 

OCTAL  ONLY  FOR  FACH 

1875 

42,2  43  0 

00102  1 

OCT 

00102 

72 

2C0MP 

360-CDIJ  DEG,  CDU  DEG 

1876 

42, 2431 

00102  1 

OC  T 

00102 

73 

2C0MP 

360-CDU  DEG,  CDU  DEG 

1877 

42, 2432 

10200  1 

OCT 

10200 

74 

3C0MP 

MIN/SFC,  DPDEGt 360) ,OPDEG( 360 ) 

A 1877 1 

(NO  LOAD,  DEC  ONLY) 

1876 

42,2433 

00010  0 

OCT 

0001  0 

75 

3C0MP 

P0S4,  MIN/SEC,  MIN/SEC 

A 1 8 78  1 

(NO  LOAD,  DEC  ONLY) 

1879 

42,2434 

00410  1 

OCT 

0041  0 

76 

2C0MP 

P0S4,  P0S4 

A 1 879 1 

(DEC  ONLY) 

1880 

42, 2435 

00500  1 

OCT 

00500 

77 

2C0MP 

MIN/SEC,  V FL  3 

A 18  80 1 

(NO  LOAD,  DEC  ONLY) 

1881 

42, 2436 

00654  0 

OCT 

00654 

78 

2 COMP 

RR  RANGE,  RR  RANGE  RATE 

1882 

42,2437 

00102  1 

OCT 

0010  2 

79 

3C0MP 

CDU  DEG,  CDU  DEG,  WHOLE 

A 1 8 82  1 

(DEC  ONLY) 

1883 

42,2440 

00200  0 

OCT 

00200 

80 

2C0MP 

WHOLE,  DPDE  G ( 360 ) 

1884 

42,2441 

24512  1 

OCT 

2451  2 

81 

3C0MP 

VFL3  FOR  FACH 

A 1884 1 

(DEC  ONLY) 

1885 

42, 2442 

24512  1 

OCT 

2451  2 

82 

3C0MP 

VEL3  FOR  FftCH 

GAP 
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1886 

42,2443 

24512 

1 

OCT 

2451  2 

1887 

42,2444 

24512 

1 

OCT 

2451  2 

A 1887  1 

1888 

42, 2445 

245  12 

1 

-OCT 

2451  2 

A 1 8 8 8 1 

1889 

42,2446 

24512 

1 

OCT 

2451  2 

1890 

42,2447 

00102 

1 

OCT 

00102 

1891 

42,2450 

00000 

1 

OCT 

0 

A 189 1 2 

1892 

42, 2451 

16143 

0 

OCT 

16143 

A 1892  1 

1893 

42,2  452 

10507 

1 

OCT 

10507 

A 1893  1 

1894 

42,2453 

00000 

1 

OCT 

OOOGO 

1895 

42,  2 454 

00000 

1 - 

OCT 

OOOOQ 

1896 

42, 2455 

06143 

1 

OCT 

06143 

1897 

42,2456 

00000 

1 

OCT 

00000 

1898 

42,2457 

00000 

1 

OCT 

0 

1899 

42,2460 

00000 

1 

OCT 

0 

1900 

42,2461 

00000 

1 

OCT 

00000 

1901 

42, 2462 

00000 

1 

OCT 

00000 

1902 

42,2463 

01572 

0 

OCT 

0 1572 

A 1902  1 

R 1903  END-OF  NNTYPTAB  FOR  -Ml  XE-0  NOUNS 


2200 

2201 

2202 

2203 

-42-,  2 464 

42. 2465 

42.2466 

42.2467 

00006 

03240 

00000 

00000 

1 

1 

1 

1 

SF I NT  AB  QCT 
OCT 
OCT 
OCT 

00006 — 
03240 
00000 
0000  0 

2204 

42, 2470 

00000 

1 

OCT 

00000 

2205 

42, 2471 

00000 

1 

OCT 

00000 

2206 

42, 2472 

10707 

o 

OCT 

1070  7 

2207 

42,2473 

03435 

0 

OCT 

0343  5 

2208 

42,2474 

13070 

1 

OCT 

13070 

2209 

42, 2475 

34345 

1 

OCT 

3434  5 

2210 

42,2476 

00005 

1 

OCT 

0000  5 

2211 

42,2477 

21616 

0 

OCT 

21616 

2212 

42,2  500 

261 13 

0 

OC  T 

?6  1 1 3 

2213 

42,2501 

31713 

0 

OCT 

3171  3 

2214 

42,2502 

00070 

0 

OCT 

00070 

2215 

42,2503 

20460 

1 

ncT 

20460 

2216 

42,2  504 

01065 

0 

OCT 

01065 

2217 

42,2505 

05740 

1 

OCT 

0574  0 

2218 

42,  2 506 

11414 

0 

OC  T 

114  14 

2219 

42,2507 

31463 

1 

OCT 

31463 

2220 

42, 2 510 

07475 

0 

OCT 

07475 
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USER'S  PAGE  NO.  11  EO  SI 

(DEC  ONLY) 

83  3C0MP  VEL3  FOR  EACH 

(DEC  ONLY) 

84  3C0MP  VEL 3 FOR  EACH 

(DEC  ONLY) 

P 5 3C0MP  VEL3  FOR  EACH 
(DEC  ONLY) 

86  3C0MP  VEL3  FOR  EACH 

(DEC  ONLY) 

87  2C0MP  CDU  DEG  FOR  EACH 

88  3 COMP  FRAC  FOR  EACH 

(DEC  ONLY) 

89  3C0MP  DP  DEG ( 90 ) , DPDEG190),  POSE 

(DEC  ONLY) 

90  3C0MP  P0S5 , VEL3,  DPDEG(360) 

(DEC  ONLY) 

91  SPARE 

5L2 SPARE 

93  3C0MP  DPDEGI 90 ) FOR  EACH 

94  SPARE 

33 SPARE 

96  SPARE 

97  3C0MP  WHOLE  FOR  EACH 

93  3C0MP  WH01E,  FRAC,  WHOLE 
99  3C0MP  P0S9 , V FL4 
(DEC  ONLY) 


WHOLE,  DP  TIME  (SEC) 

SPARE 

CDU  DEGREES,  360-CDU  DEGREES 
( SF CONS  IN  DEGINSF ) 

DP  DEGREES  (90) 

UPPED  BY  1 

DP  DEGREES  (360)(P0INT  BETWN  BITS  11-12) 
UPPED  BY  1 
DEGREES  (180) 

WEIGHT2 

P0SITI0N5 

POSIT I0N4 

VEL0CITY2  (POINT  BETWN  BITS  11-12) 


VELOC ITY3 


GAP  : 

L 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2228 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

22  38 

2238 

2240 

2240 

2242 

2242 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

22  52 

2253 

2253 

A2290 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 
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PINBALL  NOUN  TABLES 


USER'S  PAGE  NO.  12 


EO  S4 


42,2511 

16051 

1 

OCT 

1605  1 

42,2512 

00001 

0 

OCT 

0000  1 

ELEVATION  DEGREFS 

42*  2 513 

03434 

1 

nd 

03434 

42,2514 

00047 

l 

OCT 

0004  7 

RENDEZVOUS  RADAR  RANGE 

42,2515 

21135 

0 

OCT 

2113  5 

42*2516 

77766 

0 

-OCT 

77766 

RENDEZVOUS  RADAR  RANGE  RATE 

42,2  517 

50711 

0 

OCT 

5071  1 

42,2520 

00005 

l 

2 DEC* 

. 9267840599 

E5 

3-28  * LANDING  RADAR  ALTITUDE 

42,2521 

25006 

0 

42,2522 

00002 

0 

OCT 

00002 

INITIAL/FINAL  ALTITUDE 

42, 2523 

23224 

1 

OCT 

23224 

42,2524 

00014 

1 

OCT 

0001  4 

ALTITUDE  RATE 

42,2525 

06500 

1 

OCT 

06500 

42,2526 

00012 

1 

OCT 

0001  2 

FORWARD/LATERAL  VELOCITY 

42,  2527 

36455 

0 

OCT 

36455 

42,2530 

04256 

1 

OCT 

04256 

ROT  HAND  CONT  ANGLF  RATE 

42,  2 531 

07071 

0 

OCT 

0707  1 

42,  2 532 

77766 

0 

2D  EC* 

- 1.  552795030 

E 5 

B-?8  * LANDING  RADAR  VELX 

42,2533 

60557 

0 

42,  2 534 

00005 

1 

2DEC* 

.8250825087 

E5 

B-28  * LANDING  RADAR  VELY 

42,  2 535 

01114 

1 

42,2  536 

00007 

0 

2DEC* 

1 . 1 5366  8673 

E 5 

B-2 8 * LANDING  RADAR  VELZ 

42,  2537 

01247 

1 

42,2  540 

04324 

0 

OCT 

04324 

POSI T I0N7 

42,2541 

27600 

1 

OCT 

27600 

42, 2542 

00036 

1 

OCT 

00036 

TRIM  DEGREES2 

42,2543 

20440 

0 

OCT 

2044  0 

42,2544 

00035 

1 

OCT 

0003  5 

COMPUTED  ALTITUDE 

42,2545 

30400 

0 

OCT 

30400 

42, 2546_ 

23420 

0 

OCT 

23420 

DP  DEGREES 

42,2547 

00000 

1 

OCT 

00000 

42, 2550 

16102 

0 

2DEC 

1852  E3  B-22 

P0SITI0N9 

42,2551 

14000 

1 

42,2552 

07475 

0 

2DEC 

30.48  B-7 

VEL0CITY4 

42,2553 

16051 

1 

END  OF  SFINTAB 

42,  2554 

05174 

o 

SF0UTA8  OCT 

05174 

WHOLE,  DP  TIME  (SEC) 

42, 2555 

13261 

0 

OCT 

13261 

42,2556 

00000 

1 

OCT 

00000 

SPARE 

42,2557 

00000 

1 

OCT 

00000 

42,2  560 

00000 

1 

OCT 

00000 

C DU  DEGREES,  360-CDU  DEGREES 

42,2561 

00000 

1 

OCT 

00000 

(SFCONS  IN  DFGOUTSF,  360-CDUC) 

42,2562 

00714 

0 

OCT 

0071  4 

DP  DEGREFS  (90)  (POINT  BETWN  BITS  7-3) 

42, 2563 

31463 

1 

OCT 

31463 

42, 2564 

13412 

1 

OCT 

13412 

DP  DEGREFS  (360) 

42,2565 

07534 

l 

OCT 

07534 

42, 2566 

05605 

1 

OCT 

05605 

DEGREFS  < 180 ) 

42,2567 

03656 

1 

OCT 

0365  6 

;ap: 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2328 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2338 

2340 

2340 

2342 

2342 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2352 

2353 

2353 

2390 

2400 

2401 
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PINEALL  NOUN  TABLES 


USER'S  PAGE  NO.  13 


42,2570 

00001 

0 

OCT 

0000  1 

WEIGHT2 

42,2571 

161  70 

0 

OCT 

16170 

42, 2 ^7? 

00441 

0 

OCT 

0044  1 

POSI TI0N5 

42,2573 

343  06 

0 

OCT 

34306 

42,2574 

07176 

0 

OCT 

07176 

P0SITI0N4  (POINT 

BETWN 

4-2 1- 2 575 

21603 

1 

OCT 

21603 

42,2576 

15340 

1 

OCT 

1 534  0 

VELOC ITY2 

42,2577 

15340 

1 

OCT 

1 5340 

4-2,2  600 

010  31 

1 

OCT 

0103  1 

VEL0CITY3  (POINT 

8ETWN 

42,2601 

21032 

0 

OCT 

21032 

42,2602 

34631 

1 

OCT 

3463  1 

ELEVATION  DEGREES 

42, 2603 

231  46 

0 

OCT 

23146 

42,2604 

00636 

1 

OCT 

00636 

RENDEZVOUS  RADAR  RANGE 

42, 2605 

14552 

0 

OCT 

14552 

42,2606 

74552 

0 

OCT 

74552 

RENDEZVOUS  RADAR  RANGE 

RATE 

42,2  607 

70307 

1 

OCT 

70307 

42,2610 

05520 

0 

2DEC 

1 .079  E-5 

B14 

LANDING  RADAR  ALTITUDE 

42,2611 

15312 

0 

42,2612 

14226 

1 

OCT 

14226 

IMITI AL/F INAL  ALTITUDE 

42, 2613 

31  757 

0 

OCT 

31757 

42,2614 

02476 

0 

OCT 

02476 

ALT  I TUDF  RATE 

42, 2615 

05531 

0 

OCT 

05531 

42,  2616 

02727 

1 

OCT 

02727 

FORWARO/LATERAL  VELOCITY 

42,2617 

16415 

0 

OCT 

16415 

42, 2620 

00007 

0 

OCT 

00007 

ROT  HAND  CONT  ANGLE  RATE 

42,2621 

13734 

0 

OCT 

13734 

42, 2622 

74477 

0 

2DEC 

-.6440  E-5 

B 1 4 

LANDING  RADAR  VFLX 

42, 2623 

50643 

0 

42,  2624 

06265 

0 

2DEC 

1.212  E-5 

B14 

LANDING  RADAR  VELY 

42, 2625 

16004 

1 

42, 2626 

04426 

0 

20EC 

.8668  E-5 

B14 

LANDING  RADAR  VELZ 

42, 2627 

31433 

1 

42, 2630 

34772 

1 

OC  T 

34772 

POS I TI0N7 

42,2631 

07016 

1 

OCT 

0701  6 

42,2632 

01030 

0 

OCT 

01030 

TRIM  DEGREES2 

42, 2633 

33675 

0 

OCT 

33675 

42,2634 

01046 

1 

OCT 

01046 

COMPUTED  ALTITUDE 

42,2635 

15700 

1 

OCT 

15700 

42,2636 

00321 

1 

OCT 

0032  1 

DP  DEGREES 

42, 2637 

26706 

1 

OCT 

2 6706 

42,2640 

11036 

1 

2DEC 

.233092873 

P0SITI0N9 

42, 2641 

06144 

0 

42,2642 

01031 

1 

2DEC 

. 032  808399 

VELOC I TY4 

42,2643 

21032 

0 

END.  OF  SFOUTAB 


NN  SF  CONSTANT 
40  MIN/SEC 


EO  S4 


BITS  7-8) 


BITS  7-3) 


SF  ROUTINE 
M/S 


REF 


8 LAST  321 


42,2644 


03451  1 IDADDTAB  ECADR  T TOG  C 


GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY 


L 

PINBALL 

NOUN 

TABL  ES 

2402 

REF 

1 

42,2645 

03661 

0 

2403 

REF 

2 

LAST 

162 

42,2646 

03505 

1 

7404 

REF 

8 

LAST 

32  1 

42, 2647 

01045 

1 

240  5 

REF 

9 

LAST 

329 

42,2650 

01046 

1 

2406 

42,2651 

00000 

1 

7407 

REF 

3 

LAST 

29  8 

42, 2652 

02322 

0 

2408 

REF 

1 

42,2653 

02324 

0 

2409 

REF 

2 

LAST 

329 

42, 2654 

03661 

0 

741  0 

REF 

2 

LAST 

1 2 0 

42, 2655 

01120 

0 

2411 

REF 

2 

LAST 

120 

42,2656 

01122 

1 

2412 

REF 

2 

LAST 

120 

42,2657 

01124 

1 

741  3 

REF 

2 

LAST 

1 3 0 

42, 2 660 

02117 

l 

2414 

REF 

i 

42, 2661 

02121 

1 

2415 

REF 

2 

LAST 

13  1 

42, 2662 

02140 

0 

741  ft 

REF 

3 

LAST 

256 

42,2663 

03460 

0 

2417 

REF 

9 

LAST 

328 

42, 2664 

03451 

1 

2418 

REF 

1 

42,2665 

02256 

1 

2419 

REF 

10 

LAST 

308 

42, 2666 

01343 

1 

2420 

42,2667 

00000 

1 

2421 

42,2670 

00000 

1 

2422 

REF 

10 

LAST 

310 

42,2671 

01331 

1 
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FC  ADR 

DSPT  EMI 

97 

WHOLE 

2573 

REF 

11 

LAST 

332 

42, 3120 

01046 

1 

ECADR 

DSPT EMI 

+ 1 

97 

WHOLE 

2574 

REF 

12 

LAST 

332 

42, 3121 

01047 

0 

ECADR 

DSPT  EMI 

+ 2 

97 

WHOLE 

2575 

REF 

4 

LAST 

32  0 

42,3  122 

01050 

0 

ECADR 

DSPT  EM2 

98 

WHOLE 

2576 

REF 

5 

LAST 

332 

42,  3123 

01051 

1 

ECADR 

DSPT  EM2 

+ 1 

98 

FRAC 

2577 

REF 

6 

LAST 

332 

42,3124 

01052 

1 

ECADR 

DSPTFM2 

+2 

98 

WHOLE 

2S7R 

R FF 

2 

1 AST 

3 13 

42,3125 

02  3 04 

o 

FC  ADR 

WWPC  S 

99 

P0S9 

2579 

REF 

i 

42, 3126 

02206 

1 

ECADR 

WWVEL 

99 

VEL4 

2580 

42,3127 

00000 

1 

OCT 

0 

99 

SPARE  COMPONENT 

R2600  END  Of  IDACDTAB 


A2800 


NN  SF  ROUTINES 


2801 

42,3130 

16351 

1 

RUTMXTAB  OCT 

1635  1 

40 

M/S,  DP  3 , 

DP3 

2802 

42, 3131 

00142 

0 

QC  T 

00142 

41 

CDU , ARTH 

2803 

42,3132 

16347 

0 

OCT 

1634  7 

42 

DP  3 , DP  3 , 

DP3 

2804 

42, 3133 

16512 

0 

OCT 

16512 

43 

DP4,  DP  4 , 

DP3 

2805 

42, 3134 

22347 

1 

DC  T 

22  34  7 

44 

DP 3 , DP  3 , 

M/S 

2806 

42,3135 

24443 

1 

OCT 

24443 

45 

ARTH,  M/S, 

DP4 

2807 

42,3136 

00000 

1 

OCT 

ooooo 

46 

OCT 

2808 

42, 3137 

005  53 

1 

OC  T 

00553 

47 

ARITH1  . AR I T HI 

2809 

42,3 140 

00143 

1 

OCT 

00143 

48 

ARTH,  ARTH 

2810 

42, 3141 

00347 

1 

OCT 

00347 

49 

DP3 , DP  3 

2811 

42, 3 142 

00000 

1 

OCT 

0 

50 

SPARE 

2812 

42,3143 

00512 

1 

OCT 

0051  2 

51 

DP4,  DP  4 

2813 

42,3144 

00012 

1 

OCT 

0001  2 

52 

DP4 

2814 

42,3 145 

00000 

1 

OCT 

OOOOO 

53 

SPARE 

2815 

42, 3146 

24344 

1 

OCT 

24344 

54 

DPI,  DPT, 

DP4 

2816 

42, 3147 

24503 

1 

OCT 

24503 

55 

ARTH,  DP4 

, DP  4 

382 


DP3 

0P4 


DP3 

DP3 

DP3 


ARTH 

ARTH 

ARTH 

ARTH 

FRAC 

ARTH 

0P4 

DP2 


;AP: 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2352 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2870 

2871 
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PINeALL  NOUN  TABLES 


USER'S  PAGE  NO.  18  EO  S4 


42, 3150 

00512 

1 

OCT 

0051  2 

56 

0P4 , OP  4 

42,3151 

00007 

0 

OCT 

00007 

57 

OP  3 

42t  ^ 

1 6347 

0 

OCT 

16347 

58 

DP 3 , OP  3 , 

DP3 

42, 3153 

16347 

0 

OCT 

1 6347 

59 

DP3,  DP3, 

DP  3 

42, 3154 

10347 

0 

OCT 

10347 

60 

DP3,  DPT, 

DPI 

4? t 31 5 5 

24451 

1 

OCT 

2445  1 

61 

M/S,  M/S, 

DP4 

42,3  156 

16447 

1 

OCT 

16447 

62 

DP  3 , M/S, 

DP3 

42,3157 

10347 

0 

OCT 

10347 

63 

DP3,  DP3 , 

DPI 

42,3 160 

10354 

1 

OCT 

10354 

64 

2 I NT , DP3 

, DPI 

42,3161 

20410 

0 

OCT 

20410 

65 

HMS,  HMS, 

HMS 

42,3  162 

00304 

0 

OCT 

00304 

66 

DPI,  LRPOS 

42,3163 

10204 

0 

OCT 

10204 

67 

DPI,  DPI, 

DPI 

42, 3 164 

10452 

0 

OCT 

10452 

68 

DP4 , M/S, 

DPI 

42,3165 

00000 

1 

OCT 

00000 

69 

SPARE 

42, 3 166 

00000 

1 

OCT 

0 

70 

OCT,  OCT, 

OCT 

42,3167 

00000 

1 

OCT 

0 

71 

OCT,  OCT, 

OCT 

42,3170 

00115 

1 

OCT 

00115 

72 

360-CDU, 

CDU 

42,3171 

00115 

1 

OCT 

00115 

73 

360-CDU , 

COU 

42,3 172 

245  11 

1 

OCT 

2451  1 

74M/S,  DP4 , DP4 

42,3  173 

22447 

0 

OCT 

2244  7 

75 

DP3,  M/S, 

M/S 

42, 3174 

00347 

1 

OCT 

0034  7 

76 

003,  DPT 

42, 3175 

00351 

0 

OCT 

00351 

77 

M/S,  DP  3 

42,3176 

00204 

1 

OCT 

00204 

78 

DPI,  D° 1 

42,3177 

06  102 

1 

OC  T 

06102 

79 

CDU , CDU, 

ARTH 

42,3200 

00503 

1 

OCT 

00503 

80 

ARTH,  DP4 

42,3201 

16347 

0 

OCT 

1 6347 

81 

DP3,  DP  3 , 

DP3 

42, 3202 

16347 

0 

OCT 

1634  7 

82 

DP3,  DPT, 

DPT 

42, 3203 

16347 

0 

OCT 

16347 

83 

DP3,  DP3, 

DP  3 

42, 3204 

16347 

0 

OCT 

16347 

84 

DP  3 , DP  3 , 

DP3 

42,3205 

16347 

0 

OCT 

1 634  7 

85 

D P 3 , DP3 , 

DP3 

42, 3206 

16347 

0 

OCT 

16347 

86 

OPT,  DP  3 , 

DP3 

42, 3207 

00102 

1 

OCT 

00102 

87 

CDU,  CDU 

42,3210 

02041 

0 

OCT 

0204  1 

88 

FRAC  FOR 

EACH 

42,3211 

10347 

0 

OCT 

1 034  7 

89 

OP 3 , DP  3 , 

DPI 

42, 3212 

24344 

1 

OCT 

24344 

90 

DPI,  DP  3 , 

DP4 

42,3213 

00000 

1 

OCT 

00000 

9 1 

SDARE 

42,3214 

00000 

l 

OCT 

00000 

92 

SPARE 

42, 3215 

16347 

0 

OCT 

16347 

93 

DP3,  DPT, 

DP3 

42, 3216 

00000 

1 

OCT 

00000 

94 

SPARE 

42,3217 

00000 

1 

OCT 

0 

95 

SPARE 

42, 3220 

00000 

1 

OCT 

0 

96 

SPARE 

42,3221 

06143 

1 

OCT 

06143 

97 

ARTH,  ARTH,  ARTH 

42, 3222 

06043 

0 

OCT 

06043 

98 

ARTH,  FRAC,  ARTH 

42, 3223 

00252 

1 

OCT 

00252 

99 

DP4 , DP  2 

END  OF  RUTMXTAB 

REF  3 LAST  307  30,2000 


SBANK=  LOWSUPEP 
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L LEM  GEOMETRY 


USER'S  PAGE  NO.  1 EO  S? 


0001  23,2041 
000101  REF  1 13,2000 
000102  13,2070 


BANK  23 
SETLOC  LEMGEOM 
BANK 


00015  REF  4 LAST  333  30,2000  SB ANK=  LOWSUPER 

0002  REF  3 LAST-  138-  E5,  1642  E-BANK-  XSM 


R 05 00  THESE  TWO  ROUTINES  COMPUTE  THE  ACTUAL  STATE  VECTOR  FOR  LM,CSM  BY  ADDING 

R0501  THE  CONIC  R,V  AND  THE  DE V I AT  I ONSR, V . THE  STATE  VECTORS  ARE  CONVERTED  TO 

R0502  METERS  B-29  AND  METERS/CSEC  B-7  AND  STORED  APPROPRIATELY  IN  RN,VN  OP 
R0503  R-CTHER  , V- OTHER  FOR  DOWNLINK.  THE  ROUTINES  NAMES  ARE  SWITCHED  IN  THE 
R0504  OTHER  VEHICLES  COMPUTER. 

R 0505  INPUT 

R0506  STATE  VECTOR  IN  TEMPORARY  STORAGE  AREA 

R05061  IF  STATE  VECTOR  IS  SCALED  POS  B27  AND  VEL  B5 

R05C62  SET  X2  TO  +2 

R05063  IF  STATE  VECTOR  IS  SCALED  POS  B29  AND  VEL  B7 
R05064  SET  X2  TO  0 


R 0507  OUTPUT 


R0508 

R ( T ) IN 

RN,  VI  T) 

IN  VN,  T IN  PIPTIME 

R 05 1 0 

PIT)  IN 

R-OTHER  , 

V I T ) IN  V-OTHER  IT  IS  DEFINED  BY  T-OTHER) 

05106 

REF 

1 

COUNT* 

$ $/G  EOM 

0511 

13, 2070 

43414 

1 SVDWN2 

BOF 

RVQ 

SW=1=AVET0MI D DOING  W-MATRIX  INTEG. 

05]]? 

R FF 

1 

1 3,  ? 07 1 

047  56 

1 

AVER  IDSW 

05113 

13,2072 

26073 

l 

+ 1 

05114 

13,2073 

53775 

1 

VLOAD 

VSL* 

D5  1 ? 

R F F 

2 

1 AST 

\ ? 6 

IT,?  074 

01  5 ? 1 

o 

TOE  L TAV 

0513 

13,2075 

57605 

0 

0 -7,2 

0514 

13, 2076 

53655 

1 

VAD 

VSL* 

0515 

REF 

2 

LAST 

126 

13,2077 

01535 

0 

RCV 

0516 

13, 2100 

57576 

1 

0,2 

0517 

REF 

4 

LAST 

210 

13, 2 101 

25221 

1 

STOVL 

RN 

0518 

REF 

2 

LAST 

126 

13,  2 102 

01527 

0 

TNJV 

0519 

13,2103 

53257 

1 

VS  L * 

VAD 

0520 

13,2104 

57602 

1 

0 -4,2 

0521 

REF 

2 

LAST 

126 

1 3» 2 105 

01543 

1 

vcv 

0522 

13,2106 

77657 

0 

VSL* 

0523 

13,2107 

57576 

1 

0,2 

0524 

REF 

4 

LAST 

210 

13,  2 1 10 

15227 

1 

STOOL 

VN 

0525 

REF 

3 

LAST 

32  1 

13,2111 

01517 

0 

TET 

0526 

REF 

2 

LAST 

210 

13,2112 

01235 

1 

STORE 

P IPT IME 

0527 

13,2113 

77616 

0 

RVQ 
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0528 

0529 

REF 

3 

LAST 

334 

13.2114 

13.2115 

11.2116 

53775 

01521 

57605 

1 SVDWN1 
0 
0 

VLOAO 

VSL* 
TDELTAV 
0 -7,2 

0531 

13, 2117 

53655 

1 

VAD 

VSL* 

0532 

REF 

3 

LAST 

334 

13, 2120 

01535 

0 

RCV 

0^3^ 

13,2121 

57576 

1 

0,2 

0534 

REF 

5 

LAST 

209 

13, 2 122 

25720 

0 

STOVL 

R-OTHER 

0535 

REF 

3 

LAST 

334 

13, 2123 

01527 

0 

TNU  V 

0^36 

13,  2 124 

532  57 

1 

VSL* 

V AO 

0537 

13,2 125 

57602 

1 

0 -4,2 

0538 

REF 

3 

LAST 

334 

13,  2 126 

01543 

1 

vcv 

QS  “39 

13 , 2 127 

77657 

0 

VSL* 

0540 

13,2  130 

57576 

1 

0,2 

0541 

REF 

5 

LAST 

209 

13, 2 131 

01726 

0 

STORE 

V-OTHEP 

0542 

13,2132 

77616 

0 

RVO 
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19:02  NOV.  25,1968 
USER'S  PAGE 


LEMON A ID. 070 
NO.  3 


PAGE 
E5  S3 


336 


p0649  ThE  FOLLOWING  ROUTINE  TAKES  A HALF  UNIT  TARGFT  VECTOR  REFERRED  TO  NAV  BASE  COORDINATES  AND  FINDS  BOTH 

R0651  GIMBAL  ORIENTATIONS  AT  WHICH  THE  RR  MIGHT  SIGHT  THE  TARGET.  THE  GIMBAL  ANGLES  CORRESPONDING  TO  THE  PRESENT  YODE 

R0653  APE  LEFT  IN  MODE-A  AND  THOSE  WHICH  WOULO  BE  USED  AFTER . A -RE-MODE  IN  MODEB.  THIS  ROUTINE  ASSUMES  MODE  1 IS  TRUNNION 

R0655  ANGLE  LESS  THAN  90  DEGS  IN  ABS  VALUE  WITH  ARBITRARY  SHAFT,  WITH  A CORRESPONDING  DEFINITION  FOR  .MODE  2.  MODE 
R0657  SELECTION  AND  LIMIT  CHECKING  ARE  DONE  ELSEWHERE. 


R0658  THE  MODE  1 CONFIGURATION  IS  CALCULATED  FROM  THE  VECTOR  AND  THEN  MODE  2 IS  FOUND  USING  THE  RELATIONS 

R 0660  S ( 2 ) = 180  + S(l) 

R0661  T 12  ) = 180  — T ( 1 ) 

R066101  THE  VECTOR  ARRIVES  IN  MPAC  WHERE  TRG*SMN8  OR  *SMNB*— W4U--  HAVE  LEFT  IT. 


066  2 

13,  2133 
1 % ? 1 34 

00041 

57545 

1 

1 

RRANGLES  STORE 
DLOAD 

3 2 D 
OCOMP 

SINCE  WE  WILL  FIND  THE  MODE  1 SHAFT 

0663 

13, 2 135 

00043 

0 

34D 

ANGLE  LATER,  WE  CAN  FIND  THE  MODE  1 

0664 

13, 2136 

67401 

0 

SETPD 

AS  IN 

TRUNNION  BY  SIMPLY  TAKING  THE  APCSIN 

OF 

1 ? 1 ^ 7 

00001 

0 

0 _ 

THE  Y COMPONENT,  THE  A S IN  GIVING  AN 

0666 

13, 2 140 

44206 

0 

PUSH 

BDSU 

ANSWER  WHOSE  ABS  VAL  IS  LESS  THAN  90 

DEG 

0667  REF  1 

13,  2 141 

22273 

1 

LODP HALF 

0668  13,  2 142  1 4005  1 STOOL  A MODE  2 TRUNNION  TO  A. 


0669 

REF 

3 

LAST 

264 

13, 2 143 

22275 

1 

LD6Z  EROS 

-96  7 Q 

1 3t  ? 1 44 

P 4043 

o 

STOVL 

3 4D 

UNIT  THE  PROJECTION  OF. THE  VECTOR 

0671 

13,2  145 

00041 

I 

32D 

IN  THE  X-Z  PLANE 

0672 

13, 2 146 

410  56 

1 

UNIT 

BOVB 

IF  OVERFLOW, TARGET  VECTOR  IS  ALONG  Y 

0673 

REF 

1 

13,2 147 

52421 

1 

LUND  ESCH 

CALL  FOR  MANEUVER  UNLESS  ON  LUNAP  SURF 

06  74 

13,2150 

14041 

1 

STOOL 

32D 

PROJECTION  VECTOR. 

0675 

13,2151 

00041 

1 

32D 

0676 

13,2152 

44142 

o 

SRI 

STQ 

0677 

REF 

1 

13,2153 

00051 

0 

S 2 

0678 

RFF 

3 

LAST 

3 1 5 

13,2154 

14023 

0 

STODL 

SI  NTH 

USE  ARCTRIG  SINCE  SHAFT  COULD  BE  ARB. 

0679 

13,2155 

00045 

0 

36D 

0680 

13, 2 156 

77742 

0 

SRI 

0681 

REF 

3 

LAST 

3 15 

13,2157 

34021 

0 

STCALL 

COSTH 

0682 

REF 

-3- 

LAST 

-31  5 

13, 2 160 

47222 

J3 — 

ARCT  PIG 

GAP: 

L 

06  83 

0684 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 
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13, 2161 

43206 

1 

PUSH 

DAD 

MODE 

l SHAFT  TO  2. 

REF 

2 

LAST 

336 

13, 2 162 

22273 

1 

LODPHALF 

13, 2163 

24007 

0 

STOVL 

5 

13,2164 

00005 

1 

4 

13, 2165 

77634 

0 

RTB 

FIND 

MODE  2 CDU  ANGLES. 

REF 

1 

1 3,  7 1 66 

71541 

1 

2V1ST02S 

RFF 

2 

LAST 

1 1 9 

13, 2 167 

25112 

1 

STOVL 

MODE  B 

13, 2170 

00001 

0 

0 

13,7171 

77634 

0 

RTB 

MODE 

1 ANGLES  TO  MODE  A. 

REF 

2 

LAST 

337 

13,2  172 

21541 

1 

2V1ST02S 

REF 

1 

13,2173 

OHIO 

0 

STORE 

MODEA 

13,2174  77776  1 EXIT 


REF 

26 

LAST 

29  1 

13,2  175 

4 0110 

0 

cs 

RADMODES 

SWAP  MODEA  AND  MODEB  IF  RR  IN  MODE  2 

REF 

70 

L AST 

26  9 

13, 2 176 

7 4740 

1 

MASK 

BIT12 

REF 

94 

LAST 

320 

13,2177 

10  000 

0 

CCS 

A 

13,2200 

1 2204 

1 

TCF 

+4 

REF 

2 

LAST 

33  7 

13, 2201 

53' 1 10 

1 

DXCH 

MODE  A 

REF 

3 

LAST 

337 

13, 2202 

53* 112 

0 

DXCH 

MODE  B 

REF  _3_  LAST  337  13,2203  53' 110  1 DXCH  MODEA 


REF 

10 

LAST 

314 

13,2204 

0 6036 

1 

TC 

I NTPRET 

13, 2 205 

77650 

_1 

GOTO 

REF 

2 

LAST 

336 

13, 2206 

00051 

0 

S 2 

337 


ASSEMBLE  REVISION  069  QI^AGC  PROGRAM  LUMINARY  BY 

NA3A  709111?- nil  19:0? 

NflV_  ? S t 1 968 

LEMONA  ID. 070 

P AG F 33  8 

L 

LEM  GEOMETRY 

USER'S  PAGE 

NO.  5 

E 5 S3 

P0705 

R0706 

GIVEN  PR  TRUNNION  AND  SHAFT  (T,S)  IN  T ANGN8 , + 1 
LINE  CF  SIGHT  IN  NAV  BASE  AXES.  THE  HALF  UNIT 

.FIND  THE  ASSOCIATED 
VECTOR,  . 5 ( S I N ( S ) CO  S ( T ) , 

R0707  -SIN(T) ,COS< SICOSIT) > IS  LEFT  IN  MR  AC  AND  32D. 


07072 

07074 

REF 

1 

23,  2000 
23, 2041 

SETLOC 

BANK 

I NFL  IGHT 

07076 

REF 

1 

COUNT* 

t $/G  EOM 

0708 

23, 2041 

47135 

0 RRNB 

SLOAD 

RTB 

0709 

REF 

7 

LAST 

314 

23,2042 

03751 

1 

TANG  NB 

0709  1 

REF 

5 

\ a^T 

?8  5 

23,  2043 

21463 

0 

CDU  LOGIC 

0710 

23,  2044 

41401 

1 

SET  PD 

PUSH 

TRUNNION  ANGLE 

TO  0 

0711 

23,2045 

00001 

0 

0 

07  1 ? 

23, 2046 

57556 

0 

SIN 

DCOM  P 

0713 

23,2047 

14043 

0 

STODL 

34D 

Y COMPONENT 

q-74-4 — 

2 \r? oso 

41  S46 

o 

r,n  <; 

P4JS  H 

.3  rnsfT)  Tn  o 

0715 

23,2051 

47135 

0 

SLOAD 

RTB 

0716 

REF 

8 

LAST 

33  8 

23, 2052 

03752 

1 

TANGNB  +1 

0717 

REF 

6 

LAST 

33  8 

23, 2053 

21465 

0 

CDULOGIC 

0718 

23, 2054 

71406 

0 

PUSH 

COS 

SHAFT  ANGLE  TO 

2 

0719 

23,2055 

72405 

0 

DMP 

SLl 

0720 — 

23,2056 

00001 

0 

0 

0721 

23,2057 

14045 

0 

STODL 

36D 

Z COMPONENT 

072? 

? 3t  ? n^n 

41  8 36 

1 

SIN 

D MP 

0723 

23,2061 

77752 

1 

SLl 

0724 

23,2062 

24041 

1 

STOVL 

32D 

0725 

23,2063 

00041 

-1 — 

320 

0726  23,2064  77616  0 


RVQ 


GAP 
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[MU  C CMP  ENS AT  I ON  PACKAGE 


USER'S  PAGE  MO.  1 


EO  S3 


0001 

07,2667 

BANK 

7 

000101 

REF 

1 

06,2000 

SETLOC 

I MUC  CMP 

06, 3263 

BANK 

0002 

REF 

1 

E 3 , 1460 

EBANK= 

NBDX 

0100 

REF 

1 

COUNT  * 

t$/I COMP 

0112 

REF 

1 

06,3263 

3 3531 

0 

1/PIPA 

CAF 

LCCOMP 

SAVE  EBANK  OF  CALLING  PROGRAM 

011^ 

RFF 

9 

LAST 

30  9 

06, 3264 

56  003 

1 

XCH 

E BANK 

0114 

REF 

i 

06,3265 

54  163 

1 

TS 

MODE 

RFF 

06  t 3 266 

11*477 

o 

CCS 

GC3M  PSW 

BYPASS  IF  GCOMPSW  NEGATIVE 

0116 

06, 3267 

1 3272 

1 

TCF 

♦ 3 

0117 

06, 3270 

1 3272 

1 

TCF 

+ 2 

01  1 ft 

REF 

1 

06, 3271 

1 3353 

0 

TCF 

IRIG1 

RETURN 

0119 

REF 

4 

LAST 

270 

06,3272 

3 4751 

0 

1/PIPA1 

CAF 

FOUR 

PIPAZ,  PIPAY,  PIPAX 

0120 

R FF 

7 

1 AST 

13  7 

06, 3273 

54  1 32 

0 

TS 

BUF  +2 

0121 

REF 

8 

LAST 

339 

06, 3274 

50  132 

1 

INDEX 

BUF  +2 

0122 

REF 

1 

06,  3 275 

3 14  53 

1 

CA 

P IPASCF 

(P.P.M. ) X 2(-9) 

0123 

06,3276 

0 0006 

l 

EXTEND 

0124 

REF 

9 

LAST 

339 

06,3277 

5 0132 

1 

INDEX 

BUF  +2 

012  5 

REF 

1 

06 , 3300 

7 0324 

0 

MP 

OEl  V X 

(PP)  X 21+14)  NOW  (PIPA  PULSES)  X ?(+5) 

0126 

REF 

3C 

LAST 

319 

06,3301 

54  002 

1 

TS 

Q 

SAVE  MAJOR  PART 

012  7 

R elf 

26 

1 AST 

30  fi 

06, 3302 

3 0001 

o 

CA 

L 

MINOR  PART 

0128 

06,3303 

0 0006 

1 

EXTEND 

0129 

RFF 

33 

LAST 

296 

06,3304 

7 4746 

1 

MP 

BIT6 

SCALE  2 ( +9  ) SHIFT  RIGHT  9 

0130 

REF 

10 

LAST 

33  9 

06,3305 

50  132 

1 

INDEX 

BUF  +2 

0131 

REF 

2 

LAST 

339 

06, 3306 

54  325 

1 

TS 

DEL  V X +1 

FRACTIONAL  PIPA  PULSES  SCALED  2(+14) 

0132 

REF 

3 1 

LAST 

33  9 

06,3307 

3 0002 

0 

CA 

Q 

MAJOR  PART 

0133 

06,  3 310 

0 0006 

1 

EXTEND 

0134 

REF 

34 

LAST 

33  9 

06,331 1 

7 4746 

1 

MP 

BIT6 

SCALE  2 ( +9 ) SHIFT  RIGHT  9 

0135 

REF 

11 

LAST 

33  9 

06, 3312 

50  132 

1 

INDEX 

BUF  +2 

0136 

REF 

3 

LAST 

33  9 

06,3313 

20  325 

1 

DAS 

DEL  V X 

(PIPAI)  + (PIPAD(SFt) 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

L45 


REF 

RFF 

RFF 

REF 

REF 

REF 


12 

1 


LAST  33  S 


2 LAST  180 


19 

13 

4 


LAST 

LAST 

LAST 


[4  LAST 


269 
33  9 
33  9 

33  9 nl 
0 69  01 


06. 3314 

06. 3315 

06. 3316 

06. 3317 

06. 3320 

06.3321 

06.3322 

06. 3323 


RO' 


50  132  1 
4 1452  1 
0 0006  1 
7 1075  0 

9 4 

18  125  I 

LO 

4R 


pV^abias 


INDEX 

MPTFNP  1 / P I PADT 
EXTEND 


BY  NA 


JeEx  §HvJ2 

S^202lf^^^1  +l 


19 


2t  +3)  * 

5? 


(PIPA  PULSESI/ICS)  X 21-5) 

(CS)  X 21+8)  NOW  (PIPA  PULSES)  X , 

'CSLF  21.111  .rIVJKff!0^ 


t 


— 


— 


L 

0148 


IPU  COMPENSATION  PACKAGE 


USER'S  PAGE  NO.  2 E3  S3 


06, 3327  13  330  0 


NOOP 


LESS  THAN  ZERO  IMPOSSIBLE 


GAP 


ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L IMU  COMPENSATION  PACKAGE 


01481 

01482 

REF 

REF 

2 

15 

LAST 

LAST 

339 

339 

06.3330 

06.3331 

55 ' 4 77 
54  130 

0 

1 

IRIGCOMP  TS 
TS 

GCGMPSW 

BUF 

01483 

REF 

1 

06,3332 

0 3356 

1 

TC 

IRIGX 

D r:  c 

O 

1 A<s  T 

■2  -1  C 

06 , 3 333 

4 1 460 

0 

GS 

NBOX 

01 48  A 
01485 

K tr 
REF 

C. 

1 

L Mo  1 

J J 7 

06, 3334 

0 3454 

1 

TC 

DRIFTSUB 

01486  RFF  1 06,3335  0 3373  0 TC  IRIGY 


01487 

REF 

1 

06, 3336 

4 

1461 

1 

CS 

NBDY 

01488 

REF 

—2- 

4 AST 

341 

06, 3337 

-0- 

3454 

1 

TC 

DRI  F TSUB 

01489 

REF 

1 

06,3340 

0 

3410 

1 

TC 

IRIGZ 

0149 

REF 

1 

06, 3341 

3 

1462 

0 

CA 

NBDZ 

01491 

REF 

3 

LAST 

341 

06,3342 

0 

3454 

1 

TC 

DPIF  TSUB 

01492 

REF 

3 

LAST 

341 

06, 3343 

1 1 ' 4 7 7 

0 

CCS 

GCOMPSW 

01493 

06, 3344 

1 3346 

1 

TCF 

+ 2 

01494 

REF 

2 

LAST 

33  9 

06,3345 

1 3353 

0 

TC  F 

IPIG1 

0 149  5 

REF 

j._ 

06*  3 346 

3 5031 

o 

LA 

PR  I 02 1 

01496 

REF 

4 

LAST 

275 

V/V, 

06,3347 

0 5072 

1 

TC 

NOVAC 

01497 

REF 

3 

LAST 

341 

E 3 , 1460 

EBANK= 

NBDX 

01498 

REF 

1_ 

06,3350 

03507 

0 

2CADR 

1 /GYPO 

01498 

REF 

1 

06,3351 

14063 

1 

01499 

06, 3352 

0 0003 

RE  L I NT 

0150 

REF 

2 

LAST 

339 

06,3353 

3 0163 

0 I R I G 1 

CA 

MODE 

01501 

REF 

10 

LAST 

339 

06, 3354 

54  003 

0 

TS 

EBANK 

01502 

REF 

2 

LAST 

259 

06,3355 

1 46  31 

0 

TCF 

SL RE TURN 
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USER'S  PAGE  NO.  3 E3  S3 

INDICATE  COMMANDS  2 PULSES  OP  LESS. 

INDEX  COUNTER  . IRIGX,  IRIGY,  IRIGZ. 

COMPENSATE  ACCELERATION  TFRMS 

(GYRO  PULSES)Z(CS)  X 2 ( -5 ) 

-INBOX) (DELTAT)  (GYRO  PULSES)  X 21+14) 

COMPENSATE  ACCELERATION  TERMS 

(GYRO  PUL S FS ) / ( CS ) X 2 ( -5 ) 

-INBDY) (DELTAT)  (GYRO  PULSES)  X 2(+14) 

COMPENSATE  ACCELERATION  TERMS 

(GYRO  PUL  S ES ) / ( CS ) X 2 C —5 ) 

+(NBDZ) (DELTAT)  (GYRO  PULSES)  X 2(+14) 


ARF  GYRO  COMMANDS  GREATER  THAN  2 PULSFS 
YES  SEND  OUT  GYRO  TORQUING  COMMANDS. 

NO  RFTURN 

PR  1 0 GREATER  THAN  SERVICER 
SEND  OUT  GYRO  TORQUING  COMMANDS. 


RESTORE  CALLERS  EBANK 


GAP: 


ASS  EM BLE  -REV  IS  ION  0 69  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L I MU  COMPENSATION  PACKAGE 


0151 

06,3356 

0 

0006 

1 IRIGX 

EXTEND 

01511 

REF 

42 

LAST 

30  5 

06,3357 

22 

: 156 

0 

QXCH 

MPAC  +2 

06,  3 RAO 

o 

0006 

1 

EXTEND 

0152 

REF 

5 

LAST 

335 

06,3361 

4 

0325 

1 

DCS 

DELVX 

0153 

REF 

43 

LAST 

342 

06, 3362 

52 

155 

1 

DXCH 

MPAC 

0At  3 363 

3 

1 463 

1 

CA 

ADI  AX 

0155 

REF 

1 

06,3364 

0 

3425 

1 

TC 

GCDMPSUB 

FXTFNfV 

0157 

REF 

1 

06,3366 

4 

0327 

0 

DCS 

DEL  V Y 

0158 

REF 

44 

LAST 

342 

06, 3367 

52 

155 

1 

DXCH 

MPAC 

01  50 

REF 

1 

06,  3370 

4 

1466 

0 

CS 

ADSP  AX 

0160 

REF 

2 

LAST 

342 

06,3371 

0 

34  25 

1 

TC 

GCDMPSUB 

FX  T FNO 

A01604 

DCS 

DELVZ 

AO  1 60  5 

DXCH 

MPAC 

CA 

ADOAX 

A01607 

TC 

GCDMPSUB 

0161  REF  45  EAST 342 06, 3 372  0 0156  0 TC  MPAC  +2 


0163 

06,3373 

0 

0006 

1 

IRIGY 

EXTEND 

0 1 A 3 1 

REF 

46 

-LAST 

-342— 

06  , 3 374- 

2? 

1 56 

o 

QXCH 

MPAC  +2 

01632 

06,3375 

0 

0006 

1 

EXTEND 

0164 

REF 

2 

LAST 

342 

06, 3376 

4 

0327 

0 

DCS 

DEL  VY 

0165 

REF 

47 

LAST 

34  2 

06, 3377 

52 

1 55 

1 

DXCH 

MPAC 

0166 

REF 

i 

06,3400 

3 

1464 

0 

CA 

ADIAY 

0167 

REF 

3 

LAST 

342 

06,3401 

0 

3425 

1 

TC 

GCOMPSUB 

0168 

06, 3402 

0 

0006 

1 

EXTEND 

0169 

REF 

1 

06,  3403 

4 

0331 

1 

DCS 

DELVZ 

0170 

REF 

48 

LAST 

342 

06, 3404 

52 

155 

1 

DXCH 

MPAC 

0171 

REF 

i 

06,3405 

4 

1467 

1 

CS 

ADSR  AY 

0172 

REF 

4 

LAST 

342 

06, 3406 

0 

3425 

1 

TC 

GCDMPSUB 

AO  1 72  3 

FXTEND 

A 0 1 72  4 

DCS 

DELVX 

A01 72  5 

QXCH 

MPAC 

A01726 

CA 

ADDA  Y 

AO  1 72  7 

TC 

GCOMPSUB 

0173 

REF 

49 

LAST 

342 

06,3407 

0 

0156 

0 

TC 

MPAC  +2 

01  76 

06, 3410 

o 

00  06 

01751 

REF 

50 

LAST 

342 

06,3411 

22 

1 56 

0 

QXCH 

MPAC  +2 

01752 

06,3412 

0 

0006 

1 

EXTEND 

0176 

REF 

3 

LAST 

342 

06,3413 

4 

0327 

0 

DC  S 

DEL  V Y 

0177 

REF 

51 

LAST 

342 

06, 3414 

52 

155 

1 

DXCH 

MPAC 

0178 

REF 

1 

06,3415 

3 

1470 

0 

CA 

ADSR  AZ 
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USER'S  PAGE  NO.  4 E3  S3 


SAVE  0 

(PIPA  PULSES)  X 21+14) 

(GYRO  PULSES) /(PIPA  PULSE)  X 2(-6)  * 

-(ADI  AX) (PIPAX)  (GYRO  PULSES)  X 2 ( +14) 


(PIPA  PULSES)  X 21+14) 

(GYRO  PULSES) /(PIPA  PULSE)  X 2(-6>  * 

+ ( AOSRAX ) 1 PI  PAY  ) (GYRO  PULSES)  X 2 ( + 1 4 ) 


***  (PIPA  PULSES)  X 2 ( +1 4 ) 

***  (GYRO  PULSES ) / ( P I P A PULSEJ  X 2(-6_.)  * 

***  -(ADOAX) (PIPAZ)  (GYRO  PULSES)  X 2 ( +14) 


SAVE  Q 

(PIPA  PULSES)  X 2 ( +1 4 ) 

(GYRO  PUL  S FS ) / ( P I PA  PULSE)  X 2(-6)  * 

-( ADIAY) (PIPAY)  (GYRO  PULSES)  X 2 ( + 1 4 ) 


(PIPA  PULSES)  X 21+14} 

(GYRO  PULSES) /(PIPA  PULSE)  X 2 ( —6 ) 

+ ( AOSRAY ) ( PI PAZ)  (GYRO  PULSES)  X 2 ( +14) 


***  (PIPA  PULSES)  X 2 ( +14 ) 

***  (GYRO  PULSES )/( PI  PA  PULSE)  X 2(-6)  * 

***  - ( ADO AY ) (PIPAX)  (GYRO  PULSES)  X 2 ( +14) 


SAVE  Q 

(PIPA  PULSES)  X 2 ( + l 4 ) 


(GYRO  PULSES)/(PIPA  PULSE)  X 2 ( -6 ) 


GAP  : 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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I MU  COMPENSATION  PACKAGE  USER'S  PAGE  NO. 


0179 

REF 

5 

LAST 

342 

06,3416 
AA  _ 'XA  1 7 

0 

Q 

3425 

0006 

1 

1 

TC 

EXTEND 

GCGMPSUB 

-(ADSRAZ)  I PI  PAY ) (GYRO  PULSES)  X 

2( +14) 

0180 

0181 

REF 

2 

LAST 

342 

UU  f J*T  1 f 

06, 3420 

4 

0331 

1 

DCS 

D E L V Z 

(PIPA  PULSES)  X ? ( + 1 4 ) 

0182 

REF 

52 

LAST 

342 

06, 3421 

52 

155 

1 

DXCH 

MPAC 

n c C 

1 

06, 3422 

3 

1465 

1 

CA 

ADI  AZ 

(GYRO  PULSES) /(PIPA  PULSE)  X 2(-6) 

* 

0183 

0184 

Kt  r 
REF 

1 

6 

LAST 

343 

06,3423 

0 

3425 

1 

TC 

GCOM PSUB 

-(ADIAZ) (PIPAZ)  (GYRO  PULSES)  X 

2<  +14) 

EXTEND 

*** 

AO  1 84  3 
A01844 

DCS 

DELVX 

(PIPA  PULSE)  X 2(04) 

AO  1 84  5 

DXCH 

MPAC 

A 0 1 34  A 

CS 

ADOAZ 

(GYRO  PULSES )/( PIPA  PULSE)  X 2 ( -6 ) 

* 

HU  i.  0^0 

AO 1 84  7 

TC 

GCOM  PSUB 

*** 

+ (ADOAZ) ( P IPAX ) (GYRO  PULSES)  X 

2<  +14) 

0185  REF  55  LAST  343  06,3424  0 0156  0 


TC 


MPAC  +2 


GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021U2-C11 


L I MU  COMPENSATION  PACKAGE 


0199 

REF 

54 

LAST 

343 

06, 3425 

56  154 

1 

GCOMPSUB  XCH 

MP  AC 

0200 

06, 3426 

0 0006 

1 

EXTEND 

3 44 

n^f 3 427 

7 0154 

0 

MP 

MPA  C 

0202 

REF 

18 

LAST 

114 

06,3430 

52  123 

0 

DXCH 

VBUF 

3 01 

o 

— CA 

-MP-AG  + 1 

0203 

0204 

06  j 3 432 

0 0006 

1 

EXTEND 

0205 

REF 

57 

LAST 

344 

06,3433 

7 0154 

0 

MP 

MPAC 

2 7 

LAST 

3 3 q 

OA,,  3 43  4 

54  001 

1 

XS 

L 

0207 

REF 

32 

LAST 

313 

06,3435 

3 4755 

1 

CAF 

ZERO 

0208 

REF 

19 

LAST 

344 

06,3436 

20  123 

0 

DAS 

VBUF 

0209 

REF 

20 

LAST 

344 

06,3437 

3 0122 

0 

CA 

VBUF 

0210 

06,3440 

0 0006 

1 

EXTEND 

26  1 

0At  3 44  1 

7 4743 

1 

MP 

B IT9-  _ 

0212 

REF 

16 

LAST 

34  1 

06,3442 

50  130 

0 

INDEX 

BUF 

0213 

REF 

3 

LAST 

126 

06,3443 

2 1 ' 4 72 

0 

DAS 

GCOMP 

0214 

REF 

21 

LAST 

344 

06, 3444 

3 0123 

1 

CA 

VBUF  +1 

0215 

06, 3445 

0 0006 

1 

EXTEND 

19 

LAST 

34  4 

3 44f) 

7 4743 

1 

MP 

8 I T9 

0217 

REF 

28 

LAST 

344 

06, 3447 

54  001 

1 

TS 

L 

0218 

REF 

33 

LAST 

344 

06, 3450 

3 4755 

1 

CAF 

ZERO 

0219 

REF 

17 

LAST 

34  4 

06  9 3 451 

50  130 

0 

INDEX 

BUF 

0220 

REF 

4 

LAST 

344 

06, 3452 

2 1 ' 472 

0 

DAS 

GCOMP 

0221 


REF  22  LAST  339 


06,3453  0 0002  0 


TC 


0 
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ADI  A OR  ADSRA  COEFFICIENT  ARRIVFS  IN  A 
C(MPAC)  = (PIPA  PULSES)  X 21+14) 

(GYRO  PULSES)/! PI  PA  PULSE)  X 2 (-6)  * 

NOW  = (GYRO  PULSES)  X 2!+8!  * 


MINOR  PART  PIPA-PULSE-S 
AOI A OR  ADSRA 


NOW  = (GYRO  PULSES)  X 21+8) 


PARTIAL  RESULT  - MAJOR 

SCALE  2 ( +6  ) SHIFT  RIGHT  6 

RESULT  = (GYRO  PULSES)  X 21+14) 

HI ( ADI  A) ( P IPAI ) OR  HI (ADSRA)  (PIPAI  ) 


PARTIAL  RESULT  - MINOR 

SCALE  21+6)  SHIFT  RIGHT  6 


RESULT  = (GYRO  PULSES)  X 21+14) 

( AOI A) (PIPAI ) OR  { ADSRA  ) (PIPAI  ) 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 

L IMU  C CMPENSA  T I ON  PACKAGE 


0222 

0223 

REF 

18 

LAST 

344 

06.3454 

06.3455 

0 0006 
22  131 

1 

1 

DRIFTSUB  EXTEND 
QXCH 

BUF  +1 

0224 

06,3456 

0 0006 

1 

EXTEND 

0225 

REF 

3 

LAST 

33  9 

06,3457 

7 1075 

0 

MP 

1 /PI PADT 

R E F 

58 

LAST 

3 44 

06, 3 460 

22  155 

D 

LXCH 

MPAC  +1 

\J  £-£-  O 

0227 

06, 3461 

0 0006 

1 

EXTEND 

0228 

REF 

20 

LAST 

339 

06, 3462 

7 4750 

0 

MP 

B I T 4 

0229 

R EF 

19 

LAST 

34  5 

06, 3463 

50  1 30 

0 

INDEX 

BUF 

0230 

REF 

5 

LAST 

344 

06,3464 

2 1 ' 472 

0 

DAS 

GCOMP 

02  31 

REF 

59 

LAST 

345 

06,3465 

3 0155 

o 

CA 

MPAC  +1 

0232 

06,3466 

0 0006 

1 

EXTEND 

0233 

REF 

21 

LAST 

34  5 

06,3467 

7 4750 

0 

MP 

BIT4 

0234 

REF 

29 

LAST 

344 

06,3470 

54  001 

J 

TS 

L 

0235 

REF 

34 

LAST 

344 

06, 3471 

3 4755 

1 

CAF 

ZERO 

0236 

REF 

20 

LAST 

345 

06, 3472 

50  130 

0 

INDEX 

BUF 

0237  REF  6 LAST  345  06,3473  21'472  0 DAS  GCOMP 


0238 

REF 

12 

LAST 

319 

06, 3474 

3 4752 

0 

DRFTSUB2  CAF 

TWO 

0239 

REF 

2 1 

LAST 

345 

06, 3475 

6 0130 

0 

AD 

BUF 

0240 

REF 

22 

LAST 

345 

06, 3476 

56  130 

0 

XCH 

BUF 

0241 

REF 

95 

LAST 

337 

06,3477 

50  000 

1 

INDEX 

A 

0242 

REF 

7 

LAST 

34  5 

06,3500 

1 11  471 

0 

CCS 

GCOMP 

0243 

06, 3501 

1 3503 

0 

TCF 

+ ? 

0244 

REF 

23 

LAST 

345 

06,3502 

0 0131 

1 

TC 

BUF  +1 

0245 

REF 

1 

06, 3503 

7 3553 

0 

MASK 

COMPCHK 

0246 

REF 

96 

LAST 

34  5 

06,3  504 

10  000 

0 

CCS 

A 

0247 

REF 

4 — 

LAST 

34  1 

06,3505 

55*477 

0 

TS 

GCOMPSW 

0248 

REF 

24 

LAST 

345 

06, 3506 

0 0131 

1 

TC 

BUF  +1 
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CIA)  = NBD  (GYRO  PULSES1/1CS)  X 21-5) 

(CS)  X 21+8)  NOW  (GYRO  PULSES)  X 2 ( +3 ) 

SAVE  FOR  FRACTIONAL  COMPENSATION 

SCALE  2<+Tl)  SHIFT  RIGHT  11 

HI ( NBD) (DELTAT)  (GYRO  PULSES)  X 2<+14) 

NOW  MINOR  PART 

SCALE  2 ( +1  1 ) SHIFT  RIGHT  11 


ADD  IN  FRACTIONAL  COMPENSATION 

(NBD) (DELTAT ) (GYRO  PULSES)  X 2(+14) 

PIPAX,  PIPAY,  P1PAZ 


ARE  GYRO  COMMANDS  1 PULSE  OR  GREATER. 

YES 

NO 

DEC  -1 

ARE  GYRO  COMMANDS  GRFATER  THAN  2 PULSES 
YES  - SET  GCOMPSW  POSITIVE 
NO 
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3 4751 
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CAF 

FOUR 

0250 

REF 

25 

LAST 

345 

06, 3510 

54  130 
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TS 

BUF 

0251 

REF 

26 

LAST 

346 

06, 3511 

50  130 

0 

INDEX 

BUF 

0252 

REF 

8 
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345 

06, 3512 

3 1472 

1 

CA 

GCOMP  +1 

06t  3 51^ 

0 0006 
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EXTEND 

0254 

REF 

21 
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294 

06,3514 

7 4744 

0 

MP 

BIT8 

02  55 

REF 

27 

LAST 

346 

06,3515 

50  130 

0 

INDEX 

BUF 

0256  REP  9 LAST  346 06,3516 — 55*472  0 IS GCOMP  +1 


0257 

REF 

35 

LAST 

345 

06,3517 

3 4755 

1 

CAF 

ZERO 

28 

LAST 

0At  3 s?n 

50  1 30 

0 

I NDEX 

BUF 

0259 

REF 

10 

LAST 

346 

06, 3521 

57*471 

1 

XCH 

GCOMP 

0260 

06,3522 

0 0006 

1 

EXTEND 

0?6  ] 

R FF 

22 

1 AST 

346 

06, 3523 

7 4744 

0 

MP 

B I T 8 

0262 

REF 

29 

LAST 

346 

06, 3524 

50  130 

0 

INDEX 

BUF 

0263 

REF 

11 

LAST 

346 

06, 3525 

21*4  72 

0 

DAS 

GCOMP 

02  64 

REF 

30 

LAST 

346 

06, 3526 

10  130 

1 

CCS 

BUF 

0265 

REF 

2 

LAST 

338 

06, 3 527 

6 7746 

0 

AD 

N EG  1 

026^ 

REF 

2 

LAST 

34  1 

06,3530 

1 35  10 

1 

TC  F 

1 /GY  PC  + 1 

0267 

REF 

12 

LAST 

346 

06,3531 

01471 

1 

LGCOMP 

ECADR 

GCOMP 

r a F 

i r.rnwp 

0269 

REF 

55 

L HJ  1 

LAST 

315 

06,3533 

0 4616 

1 

TC 

BANKCALL 

0270 

REF 

2 

LAST 

238 

06,  3 534 

17276 

1 

C A DR 

IMUPULSF 

0 271 

-REF 

-56 

LAST 

346 

06,3535 

-0  46  16 

1 

T-C — 

BANK CALI 

0272 

REF 

6 

LAST 

288 

06, 3536 

17671 

1 

CADR 

IMUSTALL 

02  73 

REF 

23 

LAST 

314 

06, 3537 

1 5155 

1 

TC  F 

ENDOFJOB 

0274 

REF 

6 

LAST 

346 

06, 3540 

3 4751 

0 

GCOMP 1 

CAF 

FOUR 

0275 

REF 

31 

LAST 

346 

06, 3541 

54  130 

1 

TS 

BUF 

0276 

REF 

32 

LAST 

346 

06,  3 542 

50  130 

0 

INDEX 

BUF 

0277 

REF 

13 

LAST 

346 

06,3543 

3 1472 

1 

CA 

GCOMP  +1 

0278 

06,3544 

0 0006 

1 

EXTEND 

0279 

REF 

23 

LAST 

346 

06,3545 

7 4744 

0 

MP 

B I T 8 

0280 

REF 

33 

LAST 

346 

06, 3546 

50  130 

0 

INDEX 

BUF 

0281 

REF 

14 

LAST 

346 

0 6,3  547 

2 3 ' 4 72 

1 

1 XCH 

GCOMP  + 1 

0282 

REF 

34 

LAST 

346 

06,3550 

10  130 

1 

CCS 

BUF 

0283 

R-E-F 

3 

LAST 

346 

06,3551 

o 

A D 

MFC] 

02  84 

REF 

i 

06,3552 

1 3541 

0 

TC  F 

GCOMPl  +1 

0285 

06,3553 

77776 

1 

COMPCHK 

DEC 

-1 

0286 

REF 

24 

LAST 

346 

06,3554 

1 5155 

1 

TC  F 

ENDOFJOB 
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PIPAZ,  PIPAY,  PIPAX 

SCALE  GYRO  COMMANDS  FOR  IMUPULSE 
FRACTIONAL  PULSES 

SHIFT  RIGHT  7 

FRACTIONAL  PULSES  SCALED 

SET  GCOMP  = 0 FOR  DAS  INSTRUCTION 

GYRO  PULSES 

SHIFT  RIGHT  7 

ADD  THESE  TO  FRACTIONAL  PULSES  ABOVE 
PIPAZ,  PIPAY,  PIPAX 

LESS  THAN  ZERO  IMPOSSIBLE 

CALL  GYRO  TORQUING  ROUTINE 

WAIT  FOR  PULSES  TO  GET  OUT 
TEMPORARY 

PIPAZ,  PIPAY,  PIPAX 
RESCALE 

SHIFT  MINOR  PART  LEFT  7 - MAJOR  PART  = 0 
BITS  8-14  OF  MINOR  PART  WERE  = 0 
PIPAZ,  PIPAY,  PIPAX 


LESS  THAN  ZERO  IMPOSSIBLE 
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0287 

REF 

5 

LAST 

345 

06, 3555 

11'477 

0 

NBDONLY 

CCS 

SCOMPSW 

BYPASS  IF  GCOMPSW  NEGATIVE 

0288 

06,3556 

1 3561 

1 

TCF 

+ 3 

06,  3 SE7 

1 3561 

1 

TCF 

+ 2 

0290 

REF 

25 

LAST 

346 

06,3560 

1 5155 

1 

TCF 

ENDOFJOB 

0 Q004 

o 

INHINT 

02901 

REF 

6 

LAST 

244 

06,3562 

10  076 

1 

CCS 

FL  AGWRD2 

PREREAD  T3RUPT  MAY  COINCIDE 

02902 

REF 

26 

LAST 

347 

06, 3563 

1 5155 

1 

TCF 

ENDOFJOB 

02QQ3 

REF 

27 

J AST 

347 

06, 3 564 

1 5155 

1 

TCF 

ENDOFJOB 

02904 

06,3565 

1 3566 

0 

TC  F 

+ 1 

i a<:  t 

? 7 T 

HA  - 3 

3 0[04 

1 

CA 

FLAC  WRD8 

IF  SURFACE  FLAG  IS  SFT , SET  T EMI 

02906 

REF 

24 

LAST 

346 

06, 3567 

7 4744 

0 

MASK 

B I T 8 

POSITIVE  SO  THAT  THE  ACCELERATION  TERMS 

02907 

REF 

4 

LAST 
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06,3570 

54  141 

1 

TS 

TFM1 

WILL  BE  COMPENSATED. 

0?Q08 

06,  3 5 71 

0 0006 

1 

EXTEND 

0291 

06,3572 

1 3575 

1 

BZF 

+ 3 

ARE  WE  ON  THE  SURFACE 

02Q? 

REF 

L6 

LAST 

3 1 0 

06, 3573 

0 46  74 

o 

TC 

I 8NJCCAL1 

ON  THE. -SURFACE 

02925 

REF 

i 

06,3574 

77533 

1 

CADR 

P IPASR  +3 

READ  PIPAS,  BUT  DO  NOT  SCALE  THEM 

02°^ 

PEF 

2 

LAST 

1#  0 

06, 3675 

3 0 02  5 

0 

CA 

T I MF  1 

( CS)  X 21+14) 

0294 

REF 

4 

LAST 

345 

06, 3576 

5 7 ' 0 75 

1 

XCH 

1 /PI PADT 

PREVIOUS  TIME 

0295 

06,3577 

0 0003 

1 

REL  INT 

0296 

06,  3 600 

4 0000 

0 

COM 

0297 

REF 

5 

LAST 

347 

06, 3601 

6 1075 

1 

AD 

1 /PI PADT 

PRESENT  TIME  - PREVIOUS  TIME 

0298 

REF 

1 

06,3602 

6 4736 

1 

NB02 

AD 

HALF 

CORRECT  FOR  POSSIBLE  T I ME  1 TICK 

0299 

REF 

2 

LAST 

34  7 

- 06, 3 603 

6 4736 

1 

AD 

HALF 

0300 

REF 
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LAST 
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06,3604 

56  001 

0 

XCH 

L 
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LAST 
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06,3605 
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0 
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L 
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06,3606 
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1 
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MP 
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1 

CA 

ZERO 

03042 

REF 

-6 

LAST 

347 

06, 3612 

55*477 

0 

TS 
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03043 

REF 

35 

LAST 

346 

06,3613 
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TS 

BUF 

INDEX  X,  Y,  Z. 

03044 

REP 

5 

1 AST 

34  7 

06,3614 

10  141 

l 

r.r  s 

TF  M 1 

IF  SURFACE  FLAG  IS  SFT, 

03045 
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341 

06, 3615 

0 3356 

1 

TC 

IRIGX 

COMPENSATE  ACCELERATION  TERMS. 
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06, 3616 
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1 

EXTEND 

0306 
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i 
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l 
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1 
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l 

TC 
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LAST 

347 

06, 3623 

10  141 

l 

CCS 

TEM1 

IF  SURFACE  FLAG  IS  SET, 
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REF 

2 

LAST 

34  1 

06, 3624 

0 33  73 

0 

TC 

IRIGY 

COMPENSATE  ACCELERATION  TERMS. 

GAP 
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0313 

06, 3625 

0 0006 
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EXTEND 
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LAST 
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4 0125 

0 

DCS 

VBUF  +2 
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1 

DXCH-  - 

MPAC 

DELT AT  -SCALED  ICS)  X 21+19) 

0315 
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REF 
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2 
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LAST 

341 

06, 3630 
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0 

CA 

NBDY 

(GYRO  PULSESJ/ICS)  X 2 ( -5 ) 

0317 

REF 
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LAST 
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1 

TC 
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TE  Ml 

IF  SURFACE  FLAG  IS  SET, 
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REF 
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LAST 

341 

06, 3633 
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1 

TC 
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COMPENSATE  ACCELERATION  TERMS 

0318 

06,3634 

0 0006 

1 

EXTEND 

0319 

REF 

25 

LAST 

348 

06, 3635 
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0 

DCS 

VBUF  +2 

REF 

62 

1_  ART 

R 4 fi 

06 v 3 63  6 

52  155 

1 

DXCH 

MPAC 

DELTAT  SCALED  ( CS ) X 2(+19) 

0321 

REF 

2 

LAST 

341 

06,3637 

4 1462 

1 

cs 

NBDZ 

(GYRO  PULSES ) / ( CS ) X 2 ( -5 ) 

0322 

REF 

3 

LAST 

348 

06,3640 

0 3644 

1 

TC 

FBI ASSUB 

+ (NBDZ) (DELTAT)  (GYRO  PULSFS)  X 2(+14) 

0323 

REF 

7 

LAST 

347 

06,3641 

11 '477 

0 

CCS 

GCOM PSW 

ARE  GYRO  COMMANDS  GREATER  THAN  2 PULSES 

0324 

REF 

3 

LAST 

346 

06,3642 

1 3507 

1 

TC  F 

1 /GYRO 

YES 

0325 

REF 

28 

LAST- 

34-7 

06, 3643 

1 5155 

1 

TXF 

END GR JOB 

NO  - 
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REF 
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LAST 
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REF 

2 

LAST 
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MASK 
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REF 
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LAST 
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LAST 
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3602 
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TCF 
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0350 

REF 
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LAST 

346 

06,3701 
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0 

GCOMP ZER  CAF 

L GCOMP 

0351 

REF 
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LAST 

34  1 

06,3702 

56  003 

1 

XCH 

EBANK 

0352  REF  3 LAST  341  06,3703  54  163  1 TS  MODE 


0353 

REF 

38 

LAST 

349 

06, 3704 

3 4755 
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CAF 

ZERO 

0354 

REF 

9 

LAST 

34  9 

06,  3 70  5 

55' 477 

0 

TS 

GCOM PSW 

0355 

REF 

17 

LAST 

349 

06,3706 

5 5 ' 47 1 
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TS 

GCOMP 

0356 

REF 

18 

LAST 

349 

06, 3707 

55*472 
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TS 

GCOMP  +1 

0357 

-REF 
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LAST 

34  9 

06,3710 
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TS 

GCOMP  +2 

0358 

REF 
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LAST 
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TS 

GCOMP  +4 
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NBO  SCALED  (GYRO  PULSES»/(CS)  X 2 ( —5 ) 
DELTAT  SCALED  (CS)  X 21+19) 

HI ( NBD) (DELTAT ) (GYRO  PULSES)  X 2(+14) 
NOW  FRACTIONAL  PART 


( NBD) (DELTAT ) (GYRO  PULSES)  X 21+14) 

CHECK  MAGNITUDE  OF  COMPENSATION- 


IF  SURFACE  FLAG  IS  SET,  SCT  TEM1 
POSITIVE  SO  THAT  THE  ACCELERATION  TERMS 
WILL  8E  COMPENSATED. 

2 SECONDS  SCALED  ( CS ) X 2(+S) 


ROUTINE  TO  ZERO  GCOMP  BEFORE  FIRST 
CALL  TO  1/PIPA 
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SUBROUTINE  NAME:  V89CALL 

MOD  NO:  0 DATE:  9 JAN  1968 

MOO  BY:  DIGITAL  DEVEL  GROUP  LOG  SECTION:  R6 3 

FUNCTIONAL  DESCRIPTION: 

CALLED  BY  VERB  89  ENTER  DUPING  POO.  PRIO  10  USED.  CALCULATES  AND 
DISPLAYS  FINAL  FDAI  BALL  ANGLES  TO  POINT  LM  +X  OR  + Z AXIS  AT  CSM. 

1.  KEY  IN  V 89  E ONLY  IF  IN  PROG  00.  IF  NOT  IN  POO,  OPERATOR  FRROR  AND 
EXIT  R 63 , OTHERWISE  CONTINUE. 


2.  IF  IN  POO,  DO  IMU  STATUS  CHECK  ROUTINE  ( R02B0TH ) . IF  I MU  ON  AND  ITS 
ORIENTATION  KNOWN  TO  LGC , CONTINUE. 

3.  FLASH  DISPLAY  V 04  N 06.  R2  INDICATES  WHICH  SPACECRAFT  AXIS  IS  TO 
BE  POINTED  AT  CSM.  INITIAL  CHOICE  IS  PREFERRED  ( +Z  ) AXIS  ( R 2=1 ) . 
ASTRONAUT  CAN-  -CHA  NG£  TO  <+X)  AXIS  ( R2  NOT  = 1)  BY  V 22  E 2 E . CONTINUE 
AFTER  KEYING  IN  PROCEED. 

4.  BOTH  VEHICLE  STATE  VECTORS  UPDATED  BY  CONIC  EOS. 

5.  HALF  MAGNITUDE  UNIT  LOS  VECTOR  (IN  STABLE  MEMBER  COORDINATES)  AND 
HALF  MAGNITUDE  UN  IT  -SPACECRAFT  AXIS  VECTOR  (IN  BODY  COORDINATES) 
PREPARED  FOR  VECPOINT. 

6.  GIMBAL  ANGLES  FROM  VECPOINT  TRANSFORMED  INTO  FDAI  BALL  ANGLES  BY 
BALLANGS.  FLASH  DISPLAY  V 06  N 18  AND  AWAIT  RESPONSE. 


7.  -RECYCLE  - RETURN  TO  STEP  4. 

TERMINATE  - EX  IT  R63. 

PROCEED  - RESET  3AXISFLG  AND  CALL  R60LEM  FOR  ATTITUDE  MANEUVER. 


CALLING  SEQUENCE:  V 89  E. 

SUBROUTINES  CALLED:  CHKPOOH,  R02B0TH,  GOXDSPF,  CSMCONIC,  LEMCONIC, 

VECPOINT,  BALLANGS,  R60LEM. 

NORMAL  EXIT  MODES:  TC  ENDEXT 

ALARMS:  1.  OPERATOR  ERROR  IF  NOT  IN  POO. 

2.  PROGRAM  ALARM  IF  IMU  IS  OFF. 

3.  PROGRAM  ALARM  IF  IMU  ORIENTATION  IS  UNKNOWN. 

OUTPUT:  NONE 

ERASABLE  I N I T I AL I Z AT  I ON  R EQU I RE D : NONE 

DEBRIS:  OPTIONl,  +1,  TDEC1 , POINTVSM,  SCAXIS,  CPHI , CTHETA,  CPS1, 


R0042 
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EB ANK= 

RCNE 
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BANK 

32 
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BANK 
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1 
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t$/P  63 

0049 

REF 
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LAST 
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0 4616 

1 
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TC 
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REF 

1 
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11175 

1 

CADR 
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REF 

3 

LAST 

308 
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0 
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THPEF 

0052 

REF 

8 

LAST 

320 

26,2003 

55' 051 

0 

TS 

OPT  I ONX 

0053 

REF 

15 

LAST 

319 

26, 2004 

3 4753 

1 

CAF 

ONE 

0054 

REF 

9 

LAST 

352 

26,2005 

55' 052 

0 

TS 

OPT  I ONX  +1 

0055 

REF 

1 

26, 2006 

3 2075 

1 

CAF 

VB04N12 

00  56 

REF 

59 

LAST 

35  2- 

26,2  007 

0 4616 

1 

TC 

_B  ANKCALL 

0057 

REF 

2 

LAST 

240 

26, 2010 

20351 

1 

CADR 

GOFL  ASH 

0058 

REF 

26 

LAST 

315 

26,2011 

0 5472 

0 

TC 

ENDE  XT 

0059 

26, 2012 

0 2014 

0 

TC 

4-2 

0060 

26,2013 

0 2006 

0 

TC 

-5 

0061 

REF 

11 

LAST 

33  7 

26,2014 

0 6036 

1 

V89RECL 

TC 

INTPRET 

0062 

26,2015 

432  34 

o 

RIB 

DAD 

0063 

REF 

2 

LAST 

222 

26,2016 

21462 

1 

LOADTIME 

00635 

REF 

1 

26,2017 

14100 

0 

DPI M IN 

0064 

R FF 

1 

26,  2 020 

022  11 

1 

STDRF 

TST ART82 

0065 

REF 

4 

LAST 

251 

26,2021 

34041 

0 

STC ALL 

TDEC  1 

0066 

REF 

1 

26,2022 

27066 

1 

CSMCONIC 

0067 

2 6,  2 02  3 

77775 

1 

\i  j da  n 

0068 

REF 

1 

26, 2024 

00001 

0 

RATT 

0069 

REF 

5 

LAST 

352 

26,2025 

16213 

0 

STODL 

RONF 

0070 

REF 

— 2— 

LAST 

352 

26, 2 026 

02211 

1 

T ST A RT82 

0071 

REF 

5 

LAST 

352 

26,2027 

34041 

0 

STCALl 

TDEC  1 

0072 

REF 

1 

26,2030 

27100 

0 

LEMCONIC 

00  73 

26,2031 

52375 

1 

VI  GAD 

vsu 

0074 

REF 

6 

LAST 

352 

26,  2 032 

02213 

0 

RONE 

0075 

REF 

2 

LAST 

352 

26,  2033 

00001 

0 

RATT 

0076 

26,2034 

47121 

0 

MXV 

RTB 

0077 

REF 

6 

LAST 

224 

26,2035 

01734 

0 

REFSMMAT 

00771 

REF 

1 

26,2036 

21700 

0 

NOR  MUNI T 

0078 

REF 

— 2- 

LAST 

16  7 

26,2037 

03  7 67 

1 

STDRF 

POI N TVSM 

0079 

26,2040 

77776 

1 

EXIT 

0080 

REF 

10 

LAST 

352 

26, 2041 

4 1052 

0 

CS 

OPTIONX  +1 

0081 

REF 

16 

LAST 

35  2 

26,2  042 

6 4753 

1 

AD 

DNF 

0082 

26,2043 

0 0006 

1 

EXTEND 

0083 

REF 

1 

26, 2044 

1 2071 

1 

BZF 

AL I NEZ 

0084 

REF 

12 

LAST 

352 

26,2045 

0 6036 

1 

ALI NEX 

TC 

INTPRET 

0085 

26,2046 

77775 

1 

VLOAD 

00  86 

REF 

4 

LAST 

314 

26,2047 

06422 

0 

UNI  TX 
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IMU  STATUS  CHECK.  RETURNS  IF  ORIENTATION 
KNOWN.  ALARMS  IF  JOT. 

ALLOW  ASTRONAUT  TO  SELECT  DESIRED 
TRACKING  ATTITUDE  AXIS. 


V 04  N 12 


TERMINATE 

PROCEED 

DATA  IN.  OPT  I ON  1 + 1 = 1 FOR  Z AXIS 
= 2 FOR  X AXIS 


READ  PRESENT  TIME 

SAVE  TIME  FOR' LEMCONIC  CALL 
STORE  TIME  FOR  CSMCONIC  CALL 
CSM  STATE  VECTOR  UPDATE 
CSMCONIC  LEFT  R VECTOR  IN  RATT 

SAVE  FOR  LINE  OF  SIGHT  (LOS)  COMPUTATION 

STORE  TIME  FOR  LEMCONIC  CALL 
LEM  STATE  VECTOR  UPDATE 
CSM. POSITION  - LEM  POSITION  = LOS 
LOS  VECTOR  LEFT  IN  MPAC 

(REFSMMAT  X LOS).  TRANSFORMS  LOS  FROM 
R EFERFNCF  COORD  TO  STAB  ME  MB  COORD. 

STORE  LOS  FOR  VECPOINT  CALL 

1 FOR  Z AXIS.  2 FOR  X AXIS. 


X AXIS  ALIGNMENT 
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0087 

0088 
0089 

REF 
REF 
r E F- 

9 

1 

— 1— 

LAST 

266 

26.2050 

26.2051 

26.2052 

37761 

56016 

00322 

0 

0 

1 

V89CALL 1 STCALL  SCAXIS 

V F 0 P 01  NT 
STORE  C PH  I 

STORE  SELECTED  ALIGNMENT  AXIS 

PUTS  DESIRED  GIM  ANG  ( OG, IG.MG)  IN  TMPAC 

STORF  GIM8AL  ANGLES  FOR  BALLANGS  CALL. 

0090 

26, 2053 

77776 

1 

EXIT 

00905 

REF 

60 

LAST 

35  2 

26,2054 

0 4616 

1 

TC 

BANKCALL 

0091 

REF 

1 

26,2055 

542  44 

1 

CADR 

BALL ANGS 

PUTS  DESIRED  BALL  ANGLES  IN  FDAIX,Y,Z 

0092 

REF 

1 

26,2056 

3 2076 

1 

CAF 

V806N18 

V 06  N 18 

0093 

REF 

61 

LAST 

353 

26, 2057 

0 4616 

1 

TC 

BANKCALL 

NOUN  18  REFERS  TO  FDAIX,Y,Z 

0094 

REF 

3 

LAST 

352 

26,2060 

20351 

1 

CADR 

GOFL ASH 

0095 

REF 

27 

LAST 

352 

26,2061 

0 5472 

0 

TC 

ENDE  XT 

TERMINATE 

0096 

26, 2062 

0 2064 

1 

TC 

+ 2 

PROCEED 

0097 

REF 

1 

26, 2 063 

0 2014 

0 

TC 

V89R ECL 

RECYCLE 

0098 

REF 

23 

LAST 

313 

26, 2064 

0 5516 

0 

TC 

DOWNFLAG 

RESET  3 AXIS  FLAG 

0099 

REF 

2 

LAST 

244 

26, 2065 

00124 

0 

ADRES 

3 A X I SFLG 

RESET  BIT6  FLAG  WORD  5 

0100 

REF 

62 

LAST 

35  3 

26, 2066 

0 4616 

1 

TC 

BANKCALL 

PERFORMS  LEM  MANEUVER  TO  ALIGN  SELECTED 

0101 

REF 

1 

26, 2067 

54101 

0 

CADR 

R60LEM 

SPACECRAFT  AXIS  TO  CSM. 

0102 

REF 

28 

LAST 

353 

26,2070 

1 5472 

1 

TCF 

FNDE  XT 

TERMINATE  R63 

0103 

REF 

13 

LAST 

35  2 

26, 2071 

0 6036 

l ALTNEZ 

TC 

I NTPRFT 

Z AXIS  ALIGNMENT 

0104 

26,2072 

52175 

0 

VLOAD 

GOTO 

0105 

REF 

4 

LAST 

314 

26,2073 

06416 

1 

UNIT  Z 

READ  (0,  0,  .5) 

0106 

REF 

1 

2 6,2  074 

54050 

0 

V 89C  ALL1 

0107 

26,2075 

01014 

0 

VB04N12 

VN 

412 

0108 

26,2076 

01422 

-1_ 

VB06N18 

VN 

0618 
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26, 2100 
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ATTITUDE 

MANEUVER  ROUTINE 

USER ' S PAGE  NO. 

1 

EO  S3 

P0001 

BLCCK  2 

LGC  ATTITUDE  MANEUVER 

ROUT  I NE-KALCMANU 

R0002 
R 0003 

MCC  2 
PROGRAM 

DATE  5/1/67 
DESCRI PT l ON 

BY  DON  KEENE 

R0004  KALCMANU  IS  A ROUTINE  WHICH  GENERATES  COMMANDS  FOR  THE  LM  DAP  TO  CHANGE  THE  ATTITUDE  OF  THE  SPACECRAFT 

R0006  DURING  FREE  FALL.  IT  IS  DESIGNED  TO  MANEUVER  THE  SPACECRAFT  FROM  ITS  INITIAL  ORIENTATION  TO  SOME  DESIRED 

R0008  ORIENTATION  SPECIFIED  BY  THE  PROGRAM  WHICH  CALLS  KALCMANU,  AVOIDING  GIMBAL  LOCK  IN  THE  PROCESS.  IN  THE 

R0010  MCD  2 VERSION,  THIS  DESIRED  ATTITUDE  IS  SPECIFIED  BY  A SET  OF  THREE  COMMANDED  CDU  ANGLES  STORED  AS  2S  COMPLEMENT 
R0012  SINGLE  PRECISION  ANGLES  IN  THE  THREE  CONSECUTIVE  LOCATIONS,  CPHI , CTHETA , CPSI,  WHERE 

R0014  CPHI  = COMMANDED  OUTER  GIMBAL  ANGLE 

R 00 1 5 CTHETA  = COMMANDED  INNFR  GIMBAL  ANGLE 

R0016  CPSI  = COMMANDED  MIDDLE  GIMBAL  ANGLE 

R0017  WHEN  POINTING  A SPACECRAFT  AXIS  (E.I.  X,  Y,  Z,  THE  AOT,  THRUST  AXIS,  ETC)  THE  SUBROUTINE  VECPOINT  MAY  BE 

R 004-9  USED  TO  GENERATE  THIS  SET  OF  DESIRED  CDU  ANGLES  (SEE  DESCRIPTION  IN  R60) 

R 002 1 WITH  THIS  INFORMATION  KALCMANU  DETERMINES  THE  DIRECTION  OF  THE  SINGLE  EQUIVALENT  ROTATION  (COF  ALSO  U)  AND  THE 
R0023  MAGNITUDE  OF  THE  ROTATION  (AM)  TO  BRING  THE  S/C  FROM  ITS  INITIAL  ORIENTATION  TO  ITS  FINAL  ORIENTATION. 

R0025  THIS  DIRECTION  REMAINS  FIXED  BOTH  IN  INERTIAL  COORDINATES  AND  IN  COMMANDED  S/C  AXES  THROUGHOUT  THE 

R0027 

R0028  MANEUVER.  ONCE  COF  AND  AM  HAVE  BEEN  DETERMINED,  KALCMANU  THEN  EXAMINES  THE  MANEUVER  TO  SEE  IF  IT  WILL  BRING 
R 0030 

R0031  THE  S/C  THROUGH  GIMBAL  LOCK.  IF  SO,  COF  AND  AM  ARE  READJUSTED  SO  THAT  THE  S/C  WILL  JUST  SKIM  THE  GIMBAL 
R0033  LOCK  ZONE  AND  ALIGN  THE  X-AXIS.  IN  GENERAL  A FINAL  YAW  ABOUT  X WILL  BE  NECESSARY  TO  COMPLETE  THE  MANEUVER. 

R003-5  NEEDLESS  TC  SAY,-  NEITHER  TOE  INITIAL  NOR  THE  FINAL  ORIENTATION  CAN  BE  IN  GIMBAL  LOCK. 

R0037 

R0038  FOR  PROPER  ATTITUDE  CONTROL  THE  DIGITAL  AUTOPILOT  MUST  BE  GIVEN  AN  ATTITUDE  REFERENCE  WHICH  IT  CAN  TRACK. 

R0040  KALCMANU  DCFS  THIS  BY  GENERATING  A REFERENCE  OF  DESIRED  GIMBAL  ANGLES  (CDUXD,  CDUYD,  CDUZD)  WHICH  ARE  UPDATED 

R 0042  EVERY  ONE  SECOND  DURING  THE  MANEUVER.  TO  ACHIEVE  A SMOOTHER  SEQUENCE  OF  COMMANDS  BETWEEN  SUCCESSIVE  UPDATES, 

R 0044  THE  PROGRAM  ALSO  GENERATES  A SET  OF  INCREMENTAL  CDU  ANGLES  ( DELDCDU ) TO  BE  ADDED  TO  CDU  DESIRED  BY  THE  DIGITAL 

R0046  AUTOPILOT.  KALCMANU  ALSO  CALCULATES  THE  COMPONENT  MANEUVER  PATFS  ( OMEGAPD,  OMEGAQD,  OMEGARD),  WHICH  CAN 
R 0048 

R 0049  BE  DETERMINED  SIMPLY  BY  MULTIPLYING  COF  BY  SOME  SCALAR  (ARATE)  CORRESPONDING  TO  THE  DESIRED  ROTATIONAL  RATF. 
R0051 

R0052  AUTOMATIC  MANEUVERS  ARE  TIMED  WITH  THE  HELP  OF  WAITLIST  SO  THAT  AFTER  A SPECIFIED  INTERVAL  THE  Y AND  Z 

R0054  DESIRED  RATES  ARE  SET  TO  ZERO  AND  THE  DESIRED  CDU  ANGLES  (CDUYD,  CDUZD)  ARE  SET  EQUAL  TO  THE  FINAL  DESIRED  CDU 
R0056  ANGLES  (CTHETA,  CPSI).  IF  ANY  YAW  REMAINS  DUE  TO  GIMBAL  LOCK  AVOIDANCE,  THE  FINAL  YAW  MANEUVER  IS 
R0058  CALCULATED  AND  THE  DESIRED  YAW  PATE  SET  TO  SOME  FIXED  VALUE  (ROLLRATE  = + OR  - 2 DEGREES  PER  SEC). 

R0060  IN  THIS  CASE  ONLY  AN  INCREMENTAL  CDUX  ANGLE  (DELFROLL)  IS  SUPPLIED  TO  THF  DAP . AT  THE  END  OF  THE  YAW 

R0062  MANEUVER  OR  IN  THE  EV ENT  THAT  THERE  WAS  NO  FINAL  YAW,  CDUXD  IS  SET  EQUAL  TO  CPHI  AND  THE  X-AXIS  DESIRED 

R0064  RATE  SET  TC  ZERO.  THUS,  UPON  COMPLETION  OF  THE  MANEUVER  THE  S/C  WILL  FINISH  UP  IN  A LIMIT  CYCLE  ABOUT  THE 

R0066  DESIRED  FINAL  GIMBAL  ANGLES. 


R0067  PROGRAM  LOGIC  FLOW 

KALCMANU  IS  CALLED  AS  A HIGH  PRIORITY  JOB  WITH  ENTRY  POINTS  AT  KALCMAN3  AND  VECPOINT.  IT  FIRST  PICKS 
UP  THE  CURRENT  CDU  ANGLES  TO  BE  USED  AS  THE  BASIS  FOR  ALL  COMPUTATIONS  INVOLVING  THF  INITIAL  S/C  ORIENTATION. 


R0068 
R 0070 
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R0072 
R0074 
R0076 
R0078 
R0080 
R0081 
R 0082 

R0083 
R0085 
R0087 
ROD  8 8 
R 0090 
R0091 
R0093 
R0095 
R 0096 

R0097 

R0099 

R0101 

R0103 

R0105 

RO 106 
R0108 
RO  1 10 
R0112 

R01  13 
R0114 
RO  1 1 5 

R01 16 

R0117 

R0119 

R0120 

R0121 
R0123 
R0125 
RO  1 27 
RO  129 
RO  1 31 
R0133 
R0134 
R01  36 
R0138 
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IT  THEN  DETERMINES  THE  DIRECTION  COSINE  MATRICES  RELATING  BOTH  THE  INITIAL  AND  FINAL  S/C  ORIENTATION  TO  STABLE 
* * * 

MEMBE-R  AXES  (MIS , MFS).  IT  ALSO  COMPUTES  THE  MATRIX  RELATING  FINAL  SVC  AXES  TO  INITIAL  SVC  AXES  ! MF  I)  . THE 
ANGLE  OF  ROTATION  (AM)  IS  THEN  EXTRACTED  FROM  THIS  MATRIX,  AND  TESTS  ARE  MADE  TO  DETERMINE  IF 

A)  AM  LESS  THAN  .25  DEGREES  (MINANG) 

B)  AM  GREATER  THAN  170  DEGREES  (MAXANG) 

IF  AM  LESS  THAN  .25  DEGREES,  NO  COMPLICATED  AUTOMATIC  MANEUVERING  I S NECE SS AR Y.  THEREFORE  HE  CAN  SIMPLY 
SET  CDU  DESIRED  EQUAL  TO  THE  FINAL  CDU  DESIRED  ANGLES  AND  TERMINATE  THE  JOB. 

IF  AM  IS  GREATER  THAN  .25  DEGREES  BUT  LESS  THAN  170  DEGREES,  THE  AXES  OE  THE  SINGLE  EQUIVALENT  ROTATION 

* 

(CCF)  IS  EXTRACTED  FROM  THE  SKEW  SYMMETRIC  COMPONENTS  OF  MF I . * * 

IF  AM  GREATER  THAN  170  DEGREES  AN  ALTERNATE  METHOD  EMPLOYING  THE  SYMMETRIC  PART  OF  MF I (MFISYM)  IS  USED 

TO  DETERMINE  COF. 


THE  PROGRAM  THEN  CHECKS  TO  SEE  IF  THE  MANEUVER  AS  COMPUTED  WILL  BRING  THE  S/C  THROUGH  GIMBAL  LOCK.  IF 
SO,  A NEW  MANEUVER  IS  CALCULATED  WHICH  WILL  JUST  SKIM  THE  GIMBAL  LOCK  ZONE  AND  ALIGN  THE  S/C  X-AXIS.  THIS 
METHOD  ASSURES  THAT  THE  ADDITIONAL  MANEUVERING  TO  AVOID  GIMBAL  LOCK  WILL  BE  KEPT  TO  A MINIMUM.  SINCE  A FINAL 
P AXIS  YAW  WILL  BE  NECESSARY,  A SWITCH  IS  RESET  (STATE  SWITCH  31)  TO  ALLOW  FOR  THE  COMPUTATION  OF  THIS  FINAL 
YAW. 


AS  STATED  PREVIOUSLY  K ALCMANU  GENERATES  A SEQUENCE  OF  DESIRED  GIMBAL  ANGLES  WHICH  ARE  UPDATED  EVERY 

SECOND.  THIS  IS  ACCOMPLISHED  BY  A SMALL  ROTATION  OF  THE  DESIRED  S/C  FRAME  ABOUT  THE  VECTOR  COF.  THE  NEW 
DESIRED  REFERENCE  MATRIX  IS  THEN, 

* * # 

MIS  = MIS  DEL 

N + l N 


WHERE  DEL  IS  THE  MATRIX  CORRESPONDING  TO  THIS  SMALL  ROTATION.  THE  NEW  CDU  ANGLES  CAN  THEN  BE  E XT0  ACT  ED 

^ 

FPCM  MIS. 

AT  THE  BEGINNING  OF  THE  MANEUVER  THE  AUTOPILOT  C1ESIRED  RATES  (OMEGAPD,  OMEGAQD,  OMEGA  RO ) AND  THE 
MANEUVER  TIMINGS  ARE  ESTABLISHED.  ON  THE  FIRST  PASS  AND  OM  ALL  SUBSEQUENT  UPDATES  THE  CDU  DESIRED 
ANGLES  ARE  LOADED  WITH  THE  APPROPRIATE  VALUES  AND  THE  INCREMENTAL  CDU  ANGLES  ARE  COMPUTED.  THE  AGC  CLOCKS 
( T I ME  1 AND-TIME2)  ARE  THAN  CHECKED  TO  SEE  IE  THE  MANEUVER  WILL  TERMINATE  BEFORE  THE  NFXT  UPDATE.  IF 
NOT,  KALCMANU  CALLS  FOR  ANOTHER  UPDATE  (RUN  AS  A JOB  WITH  PRIORITY  TBD ) IN  ONE  SECOND.  ANY  DELAYS  IN  THIS 
CALLING  SEGUENCE  ARE  AUTOMATICALLY  COMPENSATED  IN  CALLING  FCR  THE  NEXT  UPDATE. 

IF  IT  IS  FOUND  THAT  THE  MANEUVER  IS  TO  TERMINATE  BEFORE  THE  NEXT  UPOATE  A ROUTINE  IS  CALLED  (AS  A WAIT- 
LIST TASK)  TO  STOP  THE  MANEUVER  AT  THE  APPROPRIATE  TIME  AS  EXPLAINED  ABOVE. 
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RO 142 
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R0147 
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R0157 
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R0159 

R0160 

R 0 1 61 
R0163 
R0165 

R0166 
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R0169 

R0171 
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CALLING  SEGUENCE 

IN  ORDER  TO  PERFORM  A KALCMANU  SUPERVISED  MANEUVER,  THE  COMMANDED  GIMBAL  ANGLES  MUST  BE  PRECOMPUTED  AND 
STORED  IN  LOCATIONS  CPHI,  CTHETA,  CPSI.  THE  USER:S  PROGRAM  MUST  THEN  CLEAR  STATE  SWITCH  NO  33  TO  ALLOW  THE 
ATTITUDE  MANEUVER  ROUTINE  TO  PERFORM  ANY  FINAL  P-AXIS  YAW  INCURRED  BY  AVOIDING  GIMBAL  LOCK.  THE  MANEUVER  IS 
THEN  INITIATED  BY  ESTABLISHING  THE  FOLLOWING  EXECUTIVE  JOB 


C A F 

* 

pri n xx 

INHINT 

TC 

E IMDVA.C 

2CA0R 
REL  INT 

K ALCMAN3 

THE  U SER : S PROGRAM  MAY  EITHER  CONTINUE 
WAIT,  HE  MAY  PUT  HIS  JOB  TO  SLEEP  WITH 

OR  WAIT  FOR  THE  TERMINATION  OF  THE  MANEUVER. 
THE  FOLLOWING  INSTRUCTIONS 

IF  THE  USER  WISHES  TO 

L 

TC 

BANKCALL 

L + l 

C ADR 

ATTSTALL 

L + 2 

I BAD 

_ RETURN) 

L + 3 

( GOOD 

RETURN) 

UPON  COMPLETION  OF  THE  MANEUVER,  THE  PROGRAM  WILL  BE  AWAKENED  AT  L + 3 IF  THE  MANEUVER  WAS  COMPLETED 
SUCCESSFULLY,  OR  AT  L+2  IF  THE  MANEUVER  WAS  ABORTED.  THIS  ABORT  WOULD  OCCUR  IF  THE  INITIAL  OR  FINAL  ATTITUDE 
WAS  IN  GIMBAL  LOCK. 

***NOTA  BENE***  IT  IS  ASSUMED  THAT  THE  DESIRED  MANEUVERING  RATE  10.5,  2,  5,  10,  DEG/SEC)  HAS  BEEN  SELECTED  BY 
KEYBOARD  ENTRY  PRIOR  TO  THE  EXECUTION  OF  KALCMANU. 

IT  IS  ALSO  ASSUMED  THAT  THE  AUTOPILOT  IS  IN  THE  AUTO  MODE.  IF  THE  MODE  SWITCH  IS  CHANGED  DURING  THE 
MANEUVER,  KALCMANU  WILL  TERMINATE  VIA  GOODEND  WITHIN  1 SECOND  SO  THAT  R60  MAY  REQUEST  A TRIM  OF  THE  S/C  ATTITUDF 
THIS  IS  THE  ONLY  MEANS  FOR  MANUALLY  TERMINATING  A KALCMANU  SUPERVISFD  MANEUVER. 

SUBROUTINES 

KALCMANU  USES  A NUMBER  OF  INTERPRETIVE  SUBROUTINES  WHICH  MAY  BE  OF  GENFRAL  INTEREST.  SINCE  THESE  ROUTINES 
WERE  PROGRAMMED  EXCLUSIVELY  FOR  KALCMANU,  THEY  ARE  NOT,  AS  YET,  GENERALLY  AVAILABLE  FOR  USE  BY  OTHER  PROGRAMJL^ 


MXM3 


THIS  SUBROUTINE  MULTIPLIES  TWO  3X3  MATRICES  AND  LEAVES  THE  RESULT  IN  THE  FIRST  18  LOCATIONS  OF  THE  PUSH 
DCWN  LIST,  I.E., 


( M 

M 

M ) 

( f) 

1 

2 ) 

( 

( M 

M 

) 

M ) 

( 3 

4 

5 ) 

( 

( M 

M 

) 

M ) 
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R 01 93 

( 6 7 8) 

R0194 

R0196 

R0198 

R0199 

R0201 

R0203 

R0205 

R0206 

R0207 

* 

INDEX  REGISTER  XI  MUST  BE  LOADED  WITH  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  Ml,  AND  X2  MUST  RE 

* 

LOACE-B  WITH  THE  COMPLEMENT  OF  -THE  ST  ART  ING  -ADDRESS  FOR  M2.  THE  ROUTINE  USES  THE  FIRST  20  LOCATIONS  OF  THE  PUSH 

DCWN  LIST.  THE  FIRST  ELEMENT  OF  THE  MATRIX  APPEARS  IN  PDO.  PUSH  UP  FOP  M . 

R 

TRANSPOS 

R0208 

R0210 

R0211 

R0212 

THIS  ROUTINE  TRANSPOSES  A 3X3  MATRIX  AND  LEAVES  THE  RESULT  IN  THE  PUSH  DOWN  LIST,  I.F., 

* * T 

M = Ml 

R 0 2 1 3 
R0215 
R0216 
R0218 
R0219 
R0220 

INDEX  REGISTER  XT — MUST  CONTAIN  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  Ml.  PUSH  UP  FOR  THE  FIRST  AND  SUB- 
$ 

SEQUENT  COMPONENTS  OF  M.  THIS  SUBROUTINE  ALSO  USES  THE  FIRST  20  LOCATIONS  OF  THE  PUSH  DOWN  LIST. 

CDU  TC  DCM 

R0221 
R0223 
R02  2 5 
R0226 
R0227 

THIS  SUBROUTINE  CONVERTS  THREE  CDU  ANGLES  IN  TIMPAC)  TO  A DIRECTION  COSINE  MATRIX  (SCALED  BY  2)  RFLATING 
THE  CORRESPONDING  S/C  ORIENTATIONS  TO  THE  STABLE  MEMBER  FRAME.  THE  FORMULAS  FOR  THIS  CONVERSION  ARE 

M = CCSY  COSZ 

0 

R0228 

R0229 

M = -COSY  SINZ  COSX  + SINY  SINX 

1 

R0230 

R0231 

M = CCSY  SINZ  SINX  + SINY  COSX 

2 

R0232 

R0233 

M = SINZ 

3 

R0234 

R0235 

M = COSZ  COSX 

4 

R0236 

R0237 

M = -COSZ  SINX 

5 

R0238 

R0239 

R 0240 
R 0241 

M = - SINY  COSZ 

6 

M = SINY  SINZ  COSX  + COSY  SINX 

7 

R 0240 
R 0241 


SINY  SINZ  COSX  + COSY  SINX 
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NO.  5 EO  S3 

R0242 
R 02  A3 

M = -SINY  SINZ  SINX  + COSY 

8 

cosx 

R0244 

R0245 

pn249 

WHERF  X = OUTER  GI MBAL  ANGLE 

Y = INNER  GIMBAL  ANGLE 

Z = MIDDLE- GIMBAL  ANGLE 

R02A7 

THE  INTERPRETATION  OF  THIS  MATRIX  IS  AS 

FOLLOWS 

R02A8 
R0250 
r n 2 9 ] 

IF  A , A , A REPRESENT  THE  COMPONENTS 
X Y Z 

STARI  F MFMPFR  AX  F S (R  . B , B ) ARE 

OF  A VECTOR 

IN  S/C  AXES  THFN  THE  COMPONENTS 

OF  THE  SAME  VECTOR 

IN 

R 02  52 

X Y Z 

( B ) ( A ) 

R025A 

R0255 

pn296 

( X ) ( X ) 

( ) ( ) 

( ) * ( ) 

R0257 
R0258 
R02  59 

{ B ) = M l A ) 

( Y)  ( Y) 

( ) ( ) 

R 0260 
R0261 

( B ) ( A ) 

( Z ) ( Z) 

R0262 

R026A 

R0266 

THE  SUBROUTINE  WILL  STORE  THIS  MATRIX  IN  SEQUENTIAL 
P R r OR  AM-  70  DO  THIS  THF  GAM  ING  PROGRAM  MUST  FIRST  1 OAD 

LOCATIONS  OF  ERASABLE  MEMORY  AS  SPECIFIED  BY  THE  CALLING 
X?  WITH  THF  COMPLEMENT  OF  THF  STARTING  ADORESS  FOR  M. 

R0268 
R 0269 
RD27  1 

INTERNALLY,  THE  ROUTINE  USES  THE  FIRST 
REGISTER  X2. 

16  LOCATIONS 

OF  THE  PUSH  DOWN  LIST,  ALSO  STEP  REGISTER  SI  AND 

INDEX 

R0?7? 

ixm  if-  .mij 

R0273 
R02  7A 
R 02  76 

❖ 

THIS  ROUTINE  EXTRACTS  THE  CDU  ANGLES  FROM  A DIRECTION  COSINE  MATRIX  (M  SCALED  BY  2) 

RELATING  S/C  AXIS 

TO 

R0278 

R0280 

R0282 

* 

STABLE  MEMBER  AXES.  XI  MUST  CONTAIN  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  M.  THE 
CORRESPONDING  GIMBAL  ANGLES  IN  V(MPAC)  AS  DOUBLE  PRECISION  1:S  COMPLEMENT  ANGLES  SCALED 

SUBROUTINE  LEAVES  THE 
BY  2PI . THE  FORMULAS 

R028A 

FOP  THIS  C CN  VERS  I CN  ARE 

R0285 

Z — - ARCS  IN  ( M ) 

R0286 

3 

R0287 

Y = ARCSIN  t-M  /COSZ) 

R0288 

6 

R 02  89 

IF-  M IS  NEGATIVE,  Y IS  REPLACED  BY  PI  SGN  Y 

- Y 

R0290 

0 
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R0291 

R0292 

X = ARCSIN 

I-M  /CCSZ) 
5 

R 02  93 
R0294 

I F 

M IS  NEGATIVE  X IS 
4 

REPLACED  BY  PI  SGN  X - 

X 

P 0295 
R0297 
R0299 

THIS  ROUTINE  DOES 
RETURNS  THE  POINTER  TO 
THE  PISH  DOWN  LIST. 

NOT  SET  THE  PUSH  DOWN 
ITS  OR  IGINAL  SETTING. 

POINTER,  BUT  USFS  THE 
THIS  PROCEDURE  ALLOWS 

NEXT 

THE 

8 LOCATIONS  OF  THE  PUSH  DOWN 
CALLER  TO  STORE  THE  MATRIX  AT 

LIST 

THE 

AND 

TOP  OF 

R0300  CELCOMP 

R0301  


R0302  * 

R 03  03  THIS  ROUTINE  COMPUTES  THE  DIRECTION  COSINE  MATRIX  (DEL)  RELATING  ON 

R0304 

R 0 306  IS  ROTATED  WITH  RESPECT  TO  THE  FIRST  BY  AN  ANGLE,  A,  ABOUT  A UNIT  VECTOR,  U. 

R 03  08 

R0309  * * — T * 

R 03 1 0 DEL  -= 1 COSA  - UU  ( L=CO S A ) * V S I N A 

R0311  X 


THE  FORMULA  FOR  THIS  MATRIX  IS 


R0312 

WHERE 

£ 

( l 

0 

0) 

R0313 

i 

- 

( 0 

1 

0) 

R0314 

( 0 

0 

1) 

R0315 
Rfl  1 ] A 

2 

(U 

u u 

U U ) 

R0317 

( X 

X Y 

X Z) 

R0318 

( 

) 

R03 1 9 

J { 

? 

) 

R 0320 

UU  = ( u u 

u 

U U ) 

R0321 

( Y X 

Y 

Y Z) 

R0322 

( 

) 

R0323 

( 

2 ) 

R0324 

(U  u 

u u 

U ) 

R0325 

( Z X 

1 Y 

7 1 

R0327 

R0328 

R0329 

* 

V 

l-W — 

( 

( 

( U 

-u 

Z 

0 

U ) 

Y ) 
) 

-U  ) 

R0330 

X 

( z 

X) 

R0331 

{ 

) 

R0332 

L=JJ- 

u 

0 ) 

R0333 

( Y 

X 

) 
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EO  S3 

R0334 

R0335 

U = UNIT  ROTATION 

A - R DT  ATIOM  A NGI  F 

VECTOR  RESOLVED  INTO  S/C  AXES 

R0337 

❖ 

R0339 

IF  A , A , A REPRESENT  THE  COMPONENT  OF  A VECTOR  IN  THF  ROTATED  FRAME,  THEN  THE  COMPONENTS 

Y V 7 

OF  THE  SAME 

R0342 

R0343 

VECTOR  IN  THE  ORIGINAL  S/C  AXES  (B 

X 

, B , B ) APE 
Y Z 

R0344 
R 0345 
R n'KUh 

(B  ) 

( X) 

( ) * 

(A  ) 
( X) 
( ) 

R0347 
R 034  8 
R0349 

(B  ) = DEL 

( Y) 

1 ) 

(A  ) 
( Y) 
( ) 

R0350 

R0351 

( B ) 
( Z) 

IA  ) 
I Z) 

R0352 

R0354 

R0356 

THE  ROUTINE  WILL  STORE  THIS  MATRIX  (SCALED  UNITY)  IN  SEQUENTIAL  LOCATIONS  OF  ERASABLE  MEMORY 
THF  LOCATION  CALLED  DFL.  IN  ORDER  TO  USE  THE  ROUTINE,  THE  CALLING  PROGRAM  MUST  FIRST  STORE  U (A 

BEGINNING  WITH 
HALF  UNIT 

R0358 

R0360 

DOUBLE  PRECISION  VECTOR)  IN  THE  SET 
MUST  THEN  BE  LOADED  INTO  DIMPAC). 

OF  FRASABLE  LOCATIONS  BEGINNING 

WITH  THE  ADDRESS  CALLED  COF. 

THE 

ANGLE,  A, 

R0361 

R0363 

INTERNALLY,  THE  PROGRAM  ALSO  USES  THE  FIRST  10  LOCATIONS  OF  THE 

PUSH  DOWN  LIST. 

R0364 
R 0365 

R EADCCUK 

R0366 
R 0368 

THIS  BASIC  LANGUAGE  SUBROUTINE 

LOADS  TIMPAC)  WITH  THE  THREE  CDU 

ANGLES. 

R0369 

SIGNMPAC 

R0370 

R0371  THIS  IS  A BASIC  LANGUAGE  SUBROUTINE  WHICH  LIMITS  THE  MAGNITUDE  OF  DIMPAC)  TO  + OR  - DPOSMAX  ON  OVERFLOW. 

R0373 


R0374  PROGRAM  STORAGE  ALLOCATION 

1059  WORDS 
9 B 
3 


P 0375  1)  FIXED  MEMORY 

R0376  2)  ERASABLE  MEMORY 

R 0377  3)  STATE  SWITCHES 
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R0378 

4) 

FLAGS 

1 

R0379 

JCB  PRIORITIES 

TBD 

R03  80 
R0381 

2 ) 

ONE  SECOND  UPDATE 

TBD 

R0382 

SUMMARY  OF 

STATE  SWITCHES  AND 

FLAGWORDS 

USED  BY  KALCMANU. 

R0383 

R0384 

STATE 

SWITCH  NO. 

FLAGWRD  2 
BIT  NO. 

SETT  ING 

MEAN  ING 

R0385 

R0386 

❖ 

31 

1 4 

0 

1 

MANEUVER  WENT  THROUGH  GIMBAL  LOCK 
MANEUVER. DID  N CT  GO  THROUGH  GIMBAL  LOCK 

R 03  90 
R0391 

$ 

32 

1 3 

0 

CONTINUE  UPDATE  PROCESS 

R0393 

1 

START  UPDATE  PROCESS 

12 

o 

PERFORM  FINAL  P-AX I S YAW  IF  REQUIRED 

R0396 

R0398 

R0399 

34 

1 l 

1 

0 

IGNORE  ANY  FINAL  P-AXIS  YAW 
SIGNAL  END  OF  KALCMANU 

R0400 

1 

KALCMANU  IN  PROCESS  USER  MUST  SET  SWITCH  BEFORE  INITIATING 

R0402  * INTERNAL  TO  KALCMANU 


R0403  SUGGESTIONS  FOR  PROGRAM  INTEGRATION 

R0404  THE  FOLLOWING  VARIABLES  SHOULD  3E  ASSIGNED  TO  UNSWITCH  ERASABLE 

R0405  C PH  I 


R0407 
R0408 
R 0409 

CPS  I 

POI NTVSM 
SC AX  IS 

+ 5 
+ 5 

R0410 

DELDCDU 

R 041 1 

DEL  DCDU 1 

R 041  2 

DELDCDU2 

R0413 

RATE INDX 

R0414  THE  FOLLOWING  SUBROUTINES  MAY  BE  PUT  IN  A DIFFERENT  BANK- 


R04L5 


MXM3 
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R0416  TRANSPOS 

R0417  S IGNMPAC 

R0418  P EADCDUK 

R0419  CDUTCDCM 
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0420 

0421 

REF 

1 

15,2050 
22,2000 
2?,?  nn4 

BANK 

SETLOC 

BANK 

15 

KALC  M0N1 

0423 

REF 

3 

LAST 

30  1 

E6, 1674 

EB ANK= 

BCDU 

R0424 

R0426 

THE  THREE  CESIRED  CDU  ANGLES 
LOCATIONS,  C PH  I , CTHETA,  CPSI 

MUST  BE 

STORED  AS  SINGLE  PRECISION  TWOS 

0427 

REF 

1 

COUNT  * 

J$/K  ALC 

0428 

REF 

14 

LAST 

353 

22, 2004 

0 6036 

1 

K ALCMAN3 

TC 

I NTPRET 

??f  ?005 

77634 

0 . 

RTB 

0430 

REF 

1 

22, 2006 

44403 

0 

READCDUK 

0431 

REF 

4 

LAST 

364 

22, 2007 

032  75 

1 

STORE 

BCDU 

0^37 

22, 2010 

51535 

0 

SLOAD 

ABS 

0438 

REF 

1 

22,2011 

00324 

1 

CPSI 

0439 

22,2012 

51025 

1 

DSU 

B PL 

0440 

R F F 

1 

22 9 2013 

04403 

1 

LOCKANGL 

0441 

REF 

1 

22,2014 

44724 

0 

TOOBADF 

0442 

22,2015 

72364 

0 

AXC  , 2 

TLOAD 

0447 

R F F 

3 

1 ART 

1 5 1 

22,2 016 

03244 

0 

MIS 

0444 

REF 

5 

LAST 

364 

22, 2017 

03275 

1 

BCDU 

0445 

22,2020 

77624 

1 

CALL 

0446 

REF 

l 

2 2,  2 0?  1 

44410 

1 

CDUT  ODCM 

0447 

22,2022 

72364 

0 

AXC, 2 

TLOAD 

0448 

REF 

4 

LAST 

132 

22,2023 

02234 

0 

MFS 

044Q 

R FF 

2 

1 ART 

3 5^ 

22,2024 

00  32? 

1 

C P 3 I 

0450 

22, 2025 

77624 

1 

CALL 

0451 

REF 

2 

LAST 

364 

22, 2026 

44410 

1 

CDUT ODCM 

045? 

22 9 2027 

45  1 60 

1 

SEC  AD 

AXC  , 1 

CALL 

0453 

REF 

4 

LAST 

364 

22,2030 

03244 

0 

MIS 

04  54 

REF 

1 

22,2031 

44326 

0 

TRANSPOS 

0455 

22, 2032 

455  75 

1 

VLOAD 

STADR 

0456 

REF 

12 

LAST 

150 

22,2033 

50461 

1 

STOVL 

TMIS  +1 2 D 

0457 

22, 2034 

77626 

0 

STADR 

0458 

REF 

13 

LAST 

364 

22,2035 

50467 

1 

STOVL 

TMIS  +6 

0459 

22, 2036 

77626 

0 

STADR 

0460 

REF 

14 

LAST 

364 

22, 2037 

74475 

1 

STORE 

TMIS 

0461 

22, 2040 

75160 

1 

AXC  , 1 

A XC  , 2 

0462 

REF 

15 

LAST 

364 

22, 2041 

03301 

0 

TMIS 

0463 

REF 

5 

LAST 

364 

22,2042 

02234 

0 

MFS 

0464 

22,2043 

77624 

1 

CALI 

0465 

REF 

1 

22,2044 

44312 

1 

MXM3 

0466 

22,2045 

45575 

1 

VLOAD 

STADR 

0467 

REF 

1 

22, 2046 

51526 

1 

STnvi 

N1FI  +12D 

0468 

22, 2047 

77626 

0 

STADR 

0469 

REF 

2 

LAST 

364 

22, 2050 

51534 

1 

STOVL 

MFI  +6 

04  70 

22,2051 

77626 

0 

STADR 

0471 

REF 

3 

LAST 

364 

22, 2052 

75542 

0 

STORE 

ME  I 

0472 

22, 2053 

45001 

1 

SETPD 

CALL 
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COMPLEMENT  ANGLES  IN  THE  THREE  SUCCESSIVE 


PICK  UP  THE  CURRENT  COU  ANGLES  AND 
COMPUTE  THE  MATRIX  FROM  INITIAL  S/C 
AXES  TO  FINAL  S/C  AXES 
STORE  INITIAL  S/C  ANGLES 
CHECK  THE  MA GNIT 1IDF  OF  THF  DESIRED 
MIDDLE  GIMBAL  ANGLE 

IF  GREATER  THAN  70  DEG  ABORT  MANEUVER 


COMPUTE  THE  TRANSFORMATION  FROM  INITIAL 
S/C  AXES  TO  STABLE  MEMBER  AXFS 

PREPARE  TO  CALCULATE  ARRAY  MFS 

MIS  AND  MFS  ARRAYS  CALCULATED  *2 


TMIS  = TRANS  POS  E ( M I S ) SCALED  BY  2 


MF1  = TMIS  MFS  (SCALED  BY  4) 
TRANSPOSE  ME  I IN  PD  LIST 


GAP: 

L 

0473 

04  74 

0475 

0476 

0477 

0478 

04  79 

0480 

R0481 

R0482 

R 0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

R0495 

R0496 

R 0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 
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22, 2054 

00023 

0 

l 8D 

REF 

1 

22,2055 

44335 

1 

TRNSPSPD 

22,2056 

45575 

1 

VLOAD 

STADR 

REF 

1 

22, 2057 

50461 

1 

STOVL 

TMFI  +120 

22,2060 

77626 

0 

STADR 

REP 

2 

LAST 

36  5 

22, 2061 

50467 

1 

STOVL 

T MT I +6 

22, 2062 

77626 

0 

STADR 

REF 

3 

LAST 

365 

22,2063 

74475 

1 

STORE 

TMF  I 

TMFI  = TRANSPOSE  (MFI) 

SCALED  BY  4 

CALCULATE  COFSKEW 

AND  MFISYM 

22, 2064 

45345 

1 

DLOAD 

DSU 

REF 

4 

LAST 

365 

22,2065 

03304 

0 

TMFI  +2 

REF 

4 

LAST 

364 

22,2066 

022  37 

0 

MFI  +2 

22, 2067 

45325 

1 

PDDI 

DSU 

CALCULATE  COF  SCALED  BY 

2/SIN ( A” ) 

REF 

5 

LAST 

365 

22,2070 

02241 

1 

MFI  +4 

REF 

5 

LAST 

365 

22,2071 

03306 

1 

TMFI  +4 

22, 2072 

45325 

J 

PDDL 

DSU 

REF 

6 

LAST 

365 

22,2073 

03314 

1 

TMFI  +10D 

REF 

6 

LAST 

365 

22,2074 

02247 

1 

MFI  +10D 

22, 2075 

77666 

1 

VDEF 

REF 

5 

LAST 

15  1 

22,2076 

03324 

1 

STORE 

COFSKEW 

EQUALS  MFISKFW 

CALCULATE  AM  AND  PROCEED  ACCORDING  TO  ITS  MAGNITUDE 


RE  F 

7 

L AST 

36  5 

22, 2077 
22, 2 100 

43345 

02235 

1 

1 

DLOAD 

DAD 

MFI 

REF 

8 

LAST 

365 

22, 2 101 

02255 

1 

MFI  +16D 

22,2102 

43225 

0 

DSU 

DAD 

REF 

2- 

LAST 

36 

22, 2 103 

064  14 

0 

DP1/4TH 

REF 

9 

LAST 

365 

22,2  104 

02245 

0 

MFI  +8D 

REF 

2 

LAST 

150 

22, 2 105 

03332 

0 

STORE 

CAM 

CAM  = (MFI0  + MFI4  + MFI8— 1 )/2  HALF  SCALE 

22, 2 106 

77726 

l 

ARCCOS 

REF 

1 

22, 2 107 

03334 

0 

STORE 

AM 

A M= ARC COS ( CAM)  (AM  SCALED  BY  2) 

22, 2110 

51025 

1 

DSU 

BPL 

REF 

1_ 

22,  2 111 

04363 

0 

MINANG 

REF 

1 

22,2112 

44117 

0 

CHECKMAX 

22, 2 113 

77751 

1 

TLOAD 

MANEUVER  LESS  THAN  .25  DEGREES 

RE£ 

3 

LAST 

364 

22,2114 

00322 

1 

C PHI 

GO  DIRECTLY  INTO  ATTITUDE  HOLD 

REF 

6 

LAST 

210 

22,  2 115 

37234 

0 

STCALL 

CDUXD 

ABOUT  COMMANDED  ANGLES 

REF 

1 

22, 2116 

44742 

0 

TODE  ADI 

STOP  R AT F AND  EXIT 

22,2117 

45345 

1 

CHECKMAX  DLOAD 

DSU 

REF 

2 

LAST 

365 

22, 2 120 

03334 

0 

AM 

REF 

I 

22, 2121 

04365 

0 

MAX A NG 

22,2  122 

77244 

0 

BPL 

VLOAD 

REF 

1 

22, 2123 

44131 

1 

ALTCALC 

UNI  T 

REF 

6 

LAST 

3 65 

22,2  124 

03324 

1 

COFSKEW 

COFSKEW 

22,2125 

77656 

1 

UNIT 

REF 

1 

22, 2 126 

03267 

1 

STORE 

CPF 

COF  IS  THE  MANEUVER  AXIS 

365 
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0522 

0523 

REE 

1 

22,2127 
22,2130 
? 2 , 2 1 3 1 

77650 

44744 

53375 

02235 

03302 

77762 

1 

0 

0 

1 

0 

1 

ALTCALC 

GOTO 

VLOAD 

LOG  SKIRT 
VAD 

0525 

0526 

REF 

REF 

10 

7 

LAST 

LAST 

365 

365 

22,2  132 

22.2133 

22.2134 

VSR  1 

MFI 
TMF  I 

0528 

REF 

1 

22,2  135 

27302 

0 

STOVL 

MFI  S YM 

0529 

REF 

11 

LAST 

366 

22,2136 

02243 

0 

MFI  +6 

QS30 

22, 2137 

74455 

0 

VAD 

VSR.1 

0531 

REF 

8 

LAST 

366 

22,2 140 

03310 

0 

TMFI  +6 

0532 

REF 

2 

LAST 

366 

22,2 141 

273  10 

0 

STOVL 

MFISYM  +6 

0533 

REF 

12 

LAST 

36  6 

22,2142 

02251 

0 

MFI  +12D 

0534 

22,2143 

74455 

0 

VAD 

V SR  l 

0535 

REF 

9 

LAST 

366 

22,2 144 

03316 

0 

TMFI  +12D 

0516 

REF 

3 

LAST 

36  6 

22,2145 

03316 

0 

STORE 

MFISYM  + 12D 

R0537 

R0538 

R051Q 

r a i r i u atf  rnp 

R0540 

0541 

22, 2146 

70545 

1 

DLOAD 

SRI 

054-7 

REF 

3 

| A<;  T 

36  5 

77  y 7 1 47 

03337 

o 

CAM 

0543 

22, 2150 

45325 

1 

PDDL 

DSU 

0544 

REF 

i 

22,  2 151 

06422 

0 

DPHALF 

-054-5 

REF — 

4 

LAST 

36  6 

2-2,2152 

03332 

0 

CAM 

0546 

22, 2153 

65204 

1 

BOVB 

PDDL 

0547 

REF 

1 

22, 2154 

21664 

0 

S IGNMPAC 

0548 

REF 

4 

L AST 

366 

22,2155 

03377 

1 

MFISYM  + 16  D 

0549 

22,2  156 

56225 

1 

DSU 

DDV 

0550 

22,2157 

00001 

0 

0 

0551 

22,2160 

00003 

1 

2 

0552 

22,2161 

65366 

1 

SORT 

PDDL 

0553 

REF 

5 

LAST 

366 

22,2  162 

03312 

1 

MFISYM  +80 

0554 

22, 2 163 

56225 

1 

DSU 

DDV 

0555 

22,2164 

00001 

0 

0 

0556 

22,2  165 

00003 

1 

2 

05  57 

22,  2 16  6 

653  66 

1 

SORT 

PDDL 

0558 

REF 

6 

LAST 

366 

22,2  167 

03302 

0 

MFISYM 

0559 

22, 2 170 

56225 

1 

DSU 

DDV 

0560 

72,2171 

00001 

o 

o 

0561 

22,2172 

00003 

1 

2 

0562 

22,2173 

55566 

1 

SORT 

VDEF 

0563 

22, 2174 

77656 

1 

UM[T 

0564 

REF 

2 

LAST 

365 

22,2175 

03267 

1 

STORE 

COF 

R0565 

R 0566 

DFTFRM  INF  IARGFST  CHE  AND  ADJUST  ArrnRDTWr.IV 

R0567 

0568 

22,2176 

45345 

1 

COFMAXGO 

DLOAD 

DSU 

0569 

REF 

— 3 — 

LAST 

366 

22, 2177 

03267 

J. 

COF 

0570 

REF 

4 

LAST 

366 

22, 2200 

032  71 

0 

COF  +2 

0571 

22,2201 

71240 

1 

8MN 

DLOAD 
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SEE  IF  MANEUVER  GOES  THRU  GIMBAL  LOCK 
IF  AM  GREATER.  THAN  170  DEGREES 


MFI SYM= (MFI+TMFI ) /2  SCALED  BY  4 


P DO  CAM  *4 

PD2  1 - CAM  $2 

COFZ  = SQRT(MFISYM8-CAM)/1-CAM) 

$ ROOT  2 

COFY  = SQRTI MFI SYM4-CAM  )/( 1-CAM)  $R00T2 
C OF  X = SQRT(MFISYM-CAM) /( 1-CAM)  SRODT  2 


COFY  G COFX 
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0572 

REF 

1 

22, 2202 

44211 

0 

C0MP12 

0573 

REF 

5 

LAST 

366 

22, 2203 

03267 

1 

COF 

??t  2 ?04 

50025 

0 

DSU 

BMN 

0575 

REF 

6 

LAST 

367 

22,2205 

03273 

1 

COF  +4 

0576 

REF 

1 

22,2206 

44266 

0 

METHCD3 

C OF  Z G COF  X OR  COFv 

22*  2 20 7 

77650 

1 

GOTO 

0578 

REF 

1 

22,2210 

44242 

0 

METH001 

COFX  G COFY  OR  COFZ 

0579 

22, 2211 

45345 

1 

COMP  1 2 

DLOAD 

DSU 

0 5 80 

REF 

7 

1 AST 

36  7 

22,2212 

03271 

0 

COF  +2 

0581 

REF 

8 

LAST 

367 

22,2213 

03273 

1 

COF  +4 

0582 

22, 2214 

77640 

0 

BMN 

05  83 

REF 

2 

LAST 

36  7 

22, 2215 

0 

METH0D3 

C OF  Z G COFY  OR  COFX 

0584 

22, 2216 

51145 

0 

METH0D2 

DLOAD 

BPL 

COFY  MAX 

R FF 

7 

LAST 

36  5 

22, 2217 

03326 

0 

COFSKFW  +2 

UY 

0586 

REF 

i 

22,2220 

44224 

0 

U2P0S 

0587 

22,2221 

57575 

1 

VLOAD 

VCOMP 

0588 

REF 

9 

LAST 

36  7 

22, 2222 

03267 

1 

COF 

0589 

REF 

10 

L AST 

367 

22,2223 

03267 

1 

STORE 

COF 

0590 

22, 2224 

51145 

0 

U2P0S 

DLOAD 

BPL 

0591 

REF 

7 

LAST 

36  6 

22,2225 

03304 

0 

MF  I SYM  +2 

UX  UY 

0592 

REF 

1 

22,2226 

44232 

l 

0KU2  1 

0593 

22,2227 

57545 

1 

DLOAD 

DCOM  P 

SIGN  OF  UX  OPPOSI TE 

TO 

UY 

0594 

REF 

11 

LAST 

36  7 

22,2230 

03267 

1 

COF 

0595 

REF 

12 

LAST 

367 

22, 2231 

03267 

1 

STORE 

COF 

0596 

22, 2232 

51145 

0 

0KU21 

DLOAD 

BPL 

0597 

RFF 

8 

L AST 

36  7 

22, 2233 

033  14 

1 

MFISYM  +10D 

UY  UZ 

0598 

REF 

2 

LAST 

366 

22, 2234 

44744 

0 

LOCSKIRT 

0599 

22, 2235 

57545 

1 

DLOAD 

DCOM  P 

SIGN  OF  UZ  OPPOSITE 

TO 

UY 

0600 

REF 

13 

LAST 

36  7 

22-,  2236 

0 32  73 

1 

COF  +4 

0601 

REF 

14 

LAST 

367 

22, 2237 

032  73 

1 

STORE 

COF  +4 

0602 

22,2240 

77650 

1 

GOTO 

0603 

REF 

3 

LAST 

36  7 

22,2241 

44744 

0 

LOC  SK  IRT 

0604 

22, 2242 

51145 

0 

METH0D1 

DLOAD 

BPL 

COFX  MAX 

0605 

REF 

8 

LAST 

36  7 

22, 2243 

03324 

1 

COFSKEW 

UX 

0606 

REF- 

1- 

22,2244 

442  50 

0 

U1PCS 

0607 

22, 2245 

57575 

1 

VLOAD 

VCOMP 

0608 

REF 

15 

LAST 

367 

22,2246 

03267 

1 

COF 

0609 

REF 

16 

LAST 

36  7 

22,2247 

03267 

1 

STORE 

COF 

0610 

22, 2250 

51145 

0 

U1P0S 

DLOAD 

BPL 

0611 

REF 

9 

LAST 

36  7 

22,2251 

03304 

0 

MFISYM  +2 

UX  UY 

0612 

REF  _ 

-1 — 

22,2252 

44256 

0 

0KU1  2 

0613 

22, 2253 

57545 

1 

DLOAD 

DCOM  P 

0614 

REF 

17 

LAST 

36  7 

22,2254 

032  71 

0 

COF  +2 

SIGN  OF  UY  OPPOSITE 

TO 

UX 

0615 

REF 

18 

LAST 

36  7 

22, 2255 

032  71 

0 

STORE 

COF  +2 

0616 

22, 2256 

51145 

0 

OKU  1 2 

DLOAD 

BPL 

0617 

REF 

10 

LAST 

36  7 

22,2257 

03306 

1 

MFISYM  +4 

UX  UZ 

0618 

REF 

4 

LAST 

367 

22, 2260 

44744 

0 

LOCSKIRT 

0619 

22,2261 

57545 

1 

DLOAD 

DCOM  P 

SIGN  OF  UZ  OPPOSITE 

TO 

UY 

0620 

REF 

19 

LAST 

367 

22,2262 

03273 

1 

COF  +4 

GAP  : 

L 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 
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RAGE 
E6  S3 


368 


REF 

20 

LAST 

367 

22,2263 

03273 

1 

STORE 

COF  +4 

22,2264 

77650 

1 

GOTO 

r»  i-  i- 

o 

LOCSKIRT 

22,2266 

51145 

0 

METHD03 

DLOAD 

BPL 

C OF  Z MAX 

REF 

9 

LAST 

367 

22,2267 

03330 

1 

COFSKEW  +4 

uz 

??f 7 770 

442  74 

0 

U3PCS  _ 

22,2271 

57575 

1 

VLOAD 

VCOMP 

REF 

21 

LAST 

368 

22, 2272 

03267 

1 

COF 

REF 

— 22— 

i 

22, 2273 

03267 

1 

STORE 

COF 

22,2274 

51145 

0 

U3P0S 

DLOAD 

BPL 

REF 

11 

LAST 

367 

22,2275 

03306 

1 

MFISYM  +4 

ux  uz 

22,2276 

44302 

0 

0KU3  1 

22, 2277 

57545 

1 

DLOAD 

DCOM  P 

REF 

23 

LAST 

368 

22,2300 

03267 

1 

COF 

SIGN  OF  UX 

OPPOSITE 

TO 

UZ 

REF 

24 

L AST 

368 

27 , 2 TO  1 

03267 

1 

STORE 

COF 

22,2302 

51145 

0 

0KU31 

DLOAD 

BPL 

REF 

12 

LAST 

368 

22, 2303 

03314 

1 

MFISYM  +10D 

C 

-< 

C 

r>j 

R Ef 

6 

LAST 

36-8 

77,7  304 

44744 

0 

LOCSKIRT 

22,  2305 

57545 

1 

OLOAD 

DCOM  P 

REF 

25 

LAST 

368 

22, 2306 

03271 

0 

COF  +2 

SIGN  OF  UY 

OPPOSI TE 

TO 

UZ 

-REF- 

-26 

1 AST 

36  8 

22 , 2 307 

03271 

0 

STORE 

CDF  +2 

22,2310 

77650 

1 

GOTO 

REF 

7 

LAST 

368 

22,2311 

44744 

0 

LOCSKIRT 
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R0644  MATRIX  OPERATIONS 


A/L/.  C 

13,2207 

BANK 

1 3 

0646 

REF 

I 

22,2 000 

SETLOC 

KALCM0N2 

0647 

22, 2312 

BANK 

0648 

REE 

6 LAST  364 

E6, 1674 

EBANK= 

BCDU 

A AAQ 

22, 2312 

76601 

1 MXM3 

SETPD 

V LOA  D* 

110  47 

06  5 0 

22,2313 

00001 

0 

0 

0651 

22,2314 

00001 

0 

0,1 

0652 

22, 2315 

62703 

1 

VXM* 

PDVL* 

0653 

22,2316 

77776 

1 

0,2 

0654 

22,2317 

00007 

0 

6,1 

0655 

22,  2320 

62703 

1 

VXM* 

PDVL* 

0656 

22,2321 

77776 

1 

0,2 

0657 

22, 2322 

00015 

0 

12D  , 1 

06  58 

22,  2 323 

41503 

1 

VXM* 

PUSH 

0659 

22,2324 

77776 

1 

0,2 

0660 

22, 2325 

77616 

0 

RVO 

R0661 

RETURN 

WITH  M1XM2  IN 

PD  LIST 

R 066  ? 

0663 

22,2326 

766  01 

1 

TRANSPOS 

SETPD 

VLOAD* 

0664 

22,2327 

00001 

0 

0 

0665 

22,2330 

00001 

0 

0 , 1 

0666 

22, 2331 

62713 

0 

PDVL* 

PDVL* 

0667 

22,2332 

00007 

0 

6,1 

0665 

22,2333 

00015 

0 

l 2D  , I 

0669 

22,2  334 

77606 

1 

PUSH 

0670 

22, 2335 

77776 

1 

TRNSPSPD 

EXIT 

0671 

REF 

9- 

LAST 

312 

22, 2336 

50 

120 

1 

INDEX 

F I X L CC 

0672 

22,  2 337 

52 

013 

1 

DXCH 

l 2 

0673 

REF 

10 

LAST 

369 

22,2340 

50 

120 

1 

INDEX 

F I X L OC 

06  74 

22,2341 

52 

017 

0 

DXCH 

1 6 

0675 

REF 

11 

LAST 

369 

22,2342 

50 

120 

1 

INDEX 

FIXLOC 

0676 

22,2343 

52 

013 

1 

DXCH 

12 

0677 

REE 

12 

LAST 

36  9 

22, 2344 

50 

120 

1 

INDEX 

FIXLOC 

0678 

22,2345 

52 

015 

1 

DXCH 

14 

0679 

REF 

13 

LAST 

369 

22,2346 

50 

120 

1 

INDEX 

FIXLOC 

0680 

22,2 347 

52 

005 

0 

DXCH 

4 

0681 

REF 

14 

LAST 

369 

22,  2350 

50 

120 

1 

INDEX 

FIXLCC 

06  82 

22,2351 

52 

015 

1 

DXCH 

14 

0683 

RFF 

15 

LAST 

369 

22, 2352 

50 

120 

1 

INDEX 

F I X L CC 

0684 

22,2353 

52 

003 

0 

DXCH 

2 

0685 

REF 

16 

LAST 

369 

22,  2354 

50 

120 

1 

INDEX 

F I X L OC 

0686 

22,2355 

52 

007 

1 

DXCH 

6 

0687 

REF 

17 

LAST 

369 

22,2356 

50 

120 

1 

INDEX 

FIXLOC 

06  8 8 

22,2357 

52 

003 

0 

DXCH 

2 
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MXM3  MULTIPLIES  2 3X3  MATRICES 
AND  LEAVES  RESULT  IN  PD  LIST 
AND  MP AC 


TRANSPOS  TRANSPOSES  A 3X3  MATRIX 
AND  LEAVES  RESULT  IN  PD  LIST 
MATRIX  ADDRESS  IN  XR1 


MATRIX  IN  PD 

ENTER  WITH  MATRIX  AT  0 IN  PD  LIST 
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0689 

REF  15 

LAST  364  22,2360  0 

6036 

1 

TC 

INTPRET 

0690 

22,2361 

77616 

0 

RVQ 

0691 

15,2050 

BANK 

15 

0692 

REF  2 

LAST  364  22,2000 

SETLOC 

KALCM0N1 

22*  2 36? 

BANK 

06  94 

REF  7 

LAST  369  E6, 1 674 

EBANK= 

BCDU 

0695 

22,2362 

00013 

0 

MINANG 

2DEC 

0.00069375 

0695 

22,2363 

13563 

0 

22  * 2 364 

17070 

0 

MAX ANG 

2DEC 

0 .47  222222? 

0696 

22,2365 

34343 

1 

R0697 

GIMBAL  LOCK  CONSTANTS 

R 0698 

D = MG  A 

CORRESPONDING  TO  GIMBAL 

LOCK 

= 

60  DEGREES 

R 06  99 

NGL  = BUFFER  ANGLE  (TO 

1 AVOID 

1 DIVISIONS 

BY  ZERO) 

= 2 DEGREES 

0700 

22, 2366 

15666 

0 

SO 

2DEC 

.433015 

= SIN(D) 

$2 

0700 

22,2367 

20443 

0 

07  0] 

22, 2370 

33555 

1 

K3S  1 

2DEC 

. 86603 

= S INI D) 

$1 

0701 

22,2371 

01106 

1 

0702 

22, 2372 

67777 

1 

K4 

2DEC 

-.25 

= -COS(D) 

$2 

? 2 t 3 7 3 

77777 

0 

0703 

22,2374 

04000 

0 

K4SQ 

20EC 

. 1 Z 5 

= COS  I D) COS ( D ) 

*2 

0703 

22, 2375 

00000 

1 

0704. 

22*  2 376 

002  16 

1 

SNGLCD 

2DEC 

. 008725 

= S I N I NGL ) COS  I D ) 

$2 

0704 

22,2377 

36323 

0 

0705 

22, 2400 

17773 

1 

CNGL 

2DEC 

. 499695 

COS (NGL) 

$2 

070S 

2 40 1 

0005  7 

n 

0706 

22,2402 

14344 

1 

LOCKANGL 

DEC 

. 388  889 

= 70  DEGREES 

R0707 

INTERPRETIVE  SUBROUTINE  TO  READ 

THE  C DU 

ANGLES 

0708 

REF 

5 

LAST 

269 

22,2403 

3 0034 

0 

READCDUK  CA 

C DU  Z 

LOAD  TIMPAC)  WITH  CDU  ANGLES 

0709 

REF 

65 

LAST 

349 

22,2404 

54  156 

1 

TS 

MPAC  +2 

0710 

22,2405 

0 0006 

1 

EXTEND 

0711 

REF 

7 

LAST 

320 

22,2406 

3 0033 

1 

DC  A 

C DUX 

AND  CHANGE  MODE  TO  TRIPLE  PRECISION 

0712 

REF 

1 

22,2407 

1 6475 

0 

TC  F 

TL3AD  +6 

0713 

22,2410 

66370 

0 

CDUTODCM 

AX  T , 1 

SSP 

0714 

22,2411 

00003 

1 

□ C T 

3 

0715 

REF 

1 22,2412 

00051 

0 

SI 

0716 

22,2413 

00001 

0 

OCT 

1 

SET  XR1,  SI,  AND  PD  FOR  LOOP 

0717 

22,2414 

00010 

0 

STORF 

7 

0718 

22,2415 

77601 

0 

SETPD 

0719 

22,2416 

00001 

0 

0 

0720 

22,2417 

47133 

0 

LOOPS  IN 

S L 0 A D 

R TB 

0721 

22, 2420 

00013 

0 

10D  , 1 

0722 

REF 

7 LAST  338  22,2421 

21465 

0 

CDULOGIC 

370 
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0723 

22,2422 

00013 

0 

STORF 

10D 

LOAD  PD  WITH  0 SIMIPHI ) 

0724 

22,2423 

65356 

1 

SIN 

PDDL 

2 COSIPHI  ) 

22  t 2 4?4 

00013 

0 

10D 

4 S I N ( THE  T A) 

0726 

22,2425 

41546 

0 

COS 

PUSH 

6 COS ( THET A) 

0727 

22,2426 

71300 

1 

T I X , 1 

DLOAD 

8 SINIPSI  ) 

0728 

REF  1 

22,2  427 

44417 

0 

LOOPSIN 

10  COS (PS  I ) 

0729 

22, 2430 

00007 

0 

6 

0730 

22, 2431 

72405 

0 

DM  P 

SL1 

0731 

22, 2432 

00013 

0 

10D 

0732 

22, 2433 

10001 

1 

STORE 

0,2 

CO=COS(THETA)COS(PSI ) 

0733 

22, 2434 

41345 

0 

DLOAD 

DMP 

07^4 

22, 2435 

00005 

1 

4 

0735 

22,2436 

00001 

0 

0 

0736 

22,2437 

41325 

0 

PDDL 

DMP 

( PD6  S I N ( THE T A ) ST  N( PH  I ) ) 

0737 

?? t ? 440 

00007 

0 

6 

0738 

22,2441 

00011 

1 

8 D 

0739 

22,2442 

72405 

0 

DMP 

SL1 

0740 

22 » 2443 

00003 

1 

2 

0741 

22, 2444 

72421 

0 

8DSU 

SL1 

0742 

22,2445 

00015 

0 

1 2D 

0743 

22, 2446 

10003 

0 

STORE 

2,2 

C1=-C0S (THETA) SIN (PS I ) COS  I PH I ) 

0744 

22,2447 

41345 

0 

DLOAD 

DMP 

0745 

22,2450 

00003 

1 

2 

0746 

22,2451 

00005 

1 

4 

0747 

22, 2452 

41325 

0 

°DDL 

DMP 

( PD7  COS ( PHI ) S I N ( THETA ) ) SCALED  4 

0748 

22,2453 

00007 

0 

6 

0749 

22,2454 

00011 

1 

8 D 

0750 

22,2455 

72405 

0 

DMP 

SL1 

0751 

22, 2456 

00001 

0 

0 

0752 

22,2457 

72415 

1 

DAD 

S LI 

0753 

22,2460 

00017 

1 

1 4D 

0754 

22, 2461 

10005 

0 

STORE 

4,2 

C2=C0S( THETA ) SINIPSI IS  INI  PHI) 

0755 

22,  2 462 

77745 

1 

DLOAD 

0756 

22,2463 

00011 

1 

8D 

0757 

22,2464 

10007 

1 

STORE 

6,2 

C3=SIN( PS  I I 

0758 

22,2465 

77745 

1 

DLOAD 

0759 

22,2466 

00013 

0 

10D 

0760 

22, 2467 

72405 

0 

DMP 

SL1 

0761 

22,2470 

00003 

1 

2 

0762 

22,2471 

10011 

0 

STORE 

8 D ♦ 2 

C4=C0S(PSI ICOSI PHI ) 

0763 

22, 2472 

41  345 

0 

DLOAD 

DMP 

0764 

22,2473 

00013 

0 

10D 

0765 

22, 2474 

00001 

0 

0 

0766 

22, 2475 

72476 

1 

DCOMP 

SL1 

0767 

22,2476 

10013 

1 

STORE 

10D,  2 

C5=— COS(PSI) SINfPHI ) 

0768 

22, 2477 

41345 

0 

DLOAD 

DMP 

0769 

22,2500 

00005 

1 

4 

0770 

22,2501 

00013 

0 

10D 

0771 

22,  2 502 

724  76 

1 

DCOMP 

SL1 

0772 

22, 2503 

10015 

1 

STORE 

1 2D , 2 

C6=-SIN(THET AICOS (PSI ) 

GAP: 
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0773 

22,2504 

77745 

1 

DLQAD 

0774 

22,2505 

72405 

0 

DMP 

S LI 

(PUSH  UP  7) 

non  l l 

1 

8D 

0775 

0776 

22,2  507 

41325 

0 

PDDL 

DMP 

(PD7  COS (PHI )SIN(THETA  ISINIPSI ) ) SCALF4 

0777 

22,  2510 

00007 

0 

6 

22^  2 511 

00001 

0 

0 

0779 

22, 2512 

72415 

1 

DAD 

SL1 

(PUSH  UP  7) 

0780 

22,2513 

77626 

0 

ST  ADR 

C7=C0S(PHI ) SI N( THETA) SIN( PSI) 

22 » 2 514 

67760 

1 

STORE 

14D,  2 

+ COSI THETA) S IN(PHI ) 

0782 

22,2515 

77745 

1 

DLOAD 

0783 

22,2516 

72405 

0 

DMP 

SL1 

(PUSH  UP  6) 

07  R4 

22  f 251 7 

00011 

1 

RD 

0785 

22, 2520 

41325 

0 

PDDL 

DMP 

(PD6  S I N ( THETA  IS  INI  PHI  IS  IN(PS I) ) SCALE4 

0786 

22,2521 

00007 

0 

6 

0787 

22 * 2 522 

00003 

1 

2 

0788 

22, 2523 

72425 

1 

DSU 

SL1 

(PUSH  UP  6) 

0789 

22,2524 

77626 

0 

STADR 

2 ?*  2 

67756 

1 

STORE 

1 6D , 2 

C8=-SIN (THETA ) S IN( PHI ) S IN (PSI  ) 

0791 

22,2526 

77616 

0 

RVQ 

+COS(THETA)COS(PHI ) 

R07  92  CALCULATION  OF  THE  MATRIX  DEL 

R0793  * * — T * 

R0794  DEL  = ( IDMAIR-l  X ) COST  A i +UU  ( 1-COS ( A ) > +UX  SINIA)  SCALED  1 

R 0795 

R0796  WHERE-  U IS  A UNIT  VECTOR  (DP  SCALED  2)  ALONG  THE  AXIS  OF  ROTATION. 

R0798  A IS  THE  ANGLE  OF  ROTATION  (DP  SCALED  2) 

R0799 

R 0800  UPON  ENT-RY-THE -START  ING  ADDRESS  OF  U IS  COF,  AND  A IS  . IN.  MPAC. 


0801 

22,2527 

41401 

1 

DELCOMP  SETPD 

PUSH 

MPAC 

CONTAINS  THE 

Oft  02 

22 T 2 530 

noon  i 

o 

o 

0803 

22, 2531 

65356 

1 

SIN 

PDDL 

PDO 

= SINIA) 

0804 

22,2532 

41546 

0 

COS 

PUSH 

PD2 

= COS (A) 

0805 

22 1 2 533 

65302 

o 

SR2 

PDDL 

PD2 

= COS ( A ) 

0806 

22, 2534 

41021 

I 

BDSU 

BOVB 

0807 

REF 

2 

LAST 

366 

22,2535 

06422 

0 

DPHAL  F 

0808 

RE-F 

— 2- 

LAST 

366 

22,  2 536 

21664 

0 

S IGNMPAC 

0809 

22,2537 

77725 

1 

PDDL 

PD4 

= 1-COS ( A ) 

R0810  COMPUTE  THE  DIAGONAL  COMPONENTS  OF  DEL 


0811 

REF 

27 

LAST 

36  8 

22,2540 

03267 

1 

COF 

0812 

22,2541 

41316 

0 

DSQ 

DMP 

0813 

22,2542 

00005 

1 

4 

0814 

22,2543 

52415 

0 

DAD 

SL3 

0815 

22,2544 

00003 

1 

2 

0816 

22,2545 

77604 

0 

BOVB 

0817 

REF 

3 

LAST 

37  2 

22, 2546 

21664 

0 

SIGN  MPAC 

GAP: 

L 

0818 

0819 

0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

R0835 

0836 

0837 

0338 

0839 

0840 

0841 

0842 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0850 

0851 

0852 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 

0861 

0862 

0863 

0864 

0865 
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REF 

1 

22, 2547 

16235 

1 

STOOL 

KEL 

UX 

UX ( 1-CO  S ( A ) ) +COSIA) 

$1 

REF 

28 

LAST 

37  2 

22,2550 

03271 

0 

COF  +2 

22 t 2 551 

41316 

0 

DSQ 

DMP 

22,2552 

00005 

1 

4 

22,2553 

52415 

0 

DAD 

SL3 

22  r 2 554 

00003 

1 

2 

22,2555 

77604 

0 

80VB 

REF 

4 

LAST 

372 

22,  2 556 

21664 

0 

S IGNMPAC 

LAST 

3 7 3 

22 i 2 557 

16245 

0 

STQDL 

KEL  +8D 

UY 

UY ( 1-CQS ( A ) ) +COSIA) 

tl 

REF 

29 

LAST 

373 

22,2560 

03273 

1 

COF  +4 

22,2561 

41316 

0 

DSQ 

DMP 

22  f ? 562 

00005 

1 

4 

22,2563 

52415 

0 

DAD 

SL3 

22,2  564 

00003 

1 

2 

22,  2 565 

776  04 

0 

BOVB 

REF 

5 

LAST 

373 

22,  2566 

21664 

0 

S IGNMPAC 

REF 

3 

LAST 

373 

22,2  567 

02255 

l 

STORE 

KEL  +160 

UZ 

UZ ( 1-COS ( A ) ) +COSIA) 

$1 

COMPUTE 

THE  OFF  DIAGONAL  TERMS 

OF  DEL 

22t  2 570 

41  345 

o 

DLOAD 

DMP 

REF 

30 

LAST 

373 

22,2571 

03267 

1 

COF 

REF 

31 

LAST 

373 

22,2572 

03271 

0 

COF  +2 

22, 2 573 

72405 

0 

DM  P 

SL  1 

22,2574 

00005 

1 

4 

22,2575 

41325 

0 

PDDL 

DMP 

D6 

UX  UY  (1-COS  A) 

$ 

4 

R £ F 

32 

| AST 

3 7 cj 

22 f 2 576 

03?  73 

1 

CCF  +4 

22,2577 

00001 

0 

0 

22,2600 

43206 

1 

PUSH 

DAD 

08 

UZ  SIN  A 

$ 

4 

22, 2601 

00007 

_o 

6 

22,2602 

41112 

0 

SL2 

BOVB 

REF 

6 

LAST 

373 

22, 2603 

21664 

0 

S IGNMPAC 

REF 

4 

LAST 

373 

22,2604 

16243 

0 

STODL 

KEL  +6 

22, 2605 

62421 

1 

BDSU 

SL2 

22,2606 

77604 

0 

BOVB 

REF 

7 

LAST 

373 

22,2607 

21664 

0 

S IGNMPAC 

REF 

5 

LAST 

373 

22,2610 

16237 

0 

STODL 

KEL  +2 

REF 

33 

LAST 

373 

22, 2611 

03267 

1 

COF 

22, 2612 

41205 

0 

DMP 

DMP 

REF 

34 

LAST 

373 

22,2613 

03273 

1 

COF  +4 

22,2614 

00005 

1 

4 

22,2615 

65352 

0 

SL  l 

PDDL 

D6 

UX  UZ  ( 1-COS  A ) 

$ 

4 

REF 

35 

LAST 

373 

22, 2616 

03271 

0 

COF  +2 

22,2 617 

41405 

0 

DMP 

PUSH 

D 8 

UY  SIN(A) 

22,2  620 

00001 

0 

0 

22, 2621 

62415 

0 

DAD 

SL2 

22,2622 

00007 

0 

6 

22,2623 

77604 

0 

BOVB 

REF 

8 

LAST 

37  3 

22, 2624 

21664 

0 

S IGNMPAC 

REF 

6 

LAST 

373 

22,2625 

16241 

1 

STODL 

KEL  +4 

UX 

UZ  I l-COSI A)  H-UY  SINIA) 

GAP: 
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0866 

22, 2626 

62421 

l 

8DSU 

SL2 

0867 

22,2627 

77604 

0 

B0V8 

22, 26^n 

21  664 

0 

S IGNMPAC 

0869 

REF 

7 

L t 

LAST 

373 

22,2631 

16251 

0 

STOOL 

KEL  +12D 

UX 

UZ  ( 1-COS ( A ) )-UY  SIM(A) 

0870 

REF 

36 

LAST 

373 

22, 2632 

03271 

0 

COF  +2 

22, 76^3 

41205 

0 

DMP 

DMP 

0872 

REF 

37 

LAST 

374 

22,2634 

03273 

1 

COF  +4 

0873 

22,2635 

00005 

1 

4 

2 2, 2 636 

65352 

0 

SL1 

PDDL 

D6 

UY  UZ  ( 1-COS ( A ) ) 

S 4 

0875 

REF 

38 

LAST 

374 

22, 2637 

03267 

1 

COF 

0876 

22,2640 

41405 

0 

DMP 

PUSH 

D8 

UX  SIN(A) 

22,2  641 

00001 

0 

0 

0878 

22,2642 

62415 

0 

DAD 

SL2 

0879 

22,2643 

00007 

0 

6 

22,2  644 

776  04 

o 

BO  VB 

0881 

REF 

10 

LAST 

374 

22,2645 

21664 

0 

S IGNMPAC 

0882 

REF 

8 

LAST 

374 

22,2646 

16253 

1 

STODL 

KEL  +14D 

U Y 

U Z ( 1-COS ( A ) ) +UX  SIN(A) 

22,7  647 

67471 

1 

BDSU 

SL2 

0884 

22,2650 

77604 

0 

BOVB 

0885 

REF 

11 

LAST 

374 

22, 2651 

21664 

0 

SIGNMPAC 

REF 

9 

LAST 

^74 

2 7,2652 

02247 

1 

STORE 

KEL  +10D 

UY 

U7  ( 1-COS ( A ) ) -UX  SINl A) 

0887 

22, 2653 

77616 

0 

RVQ 

R0888 

DIRECT  ION 

1 COSINE  MATRIX  TO  CDU 

ANGLE 

ROUTINE 

R0889  XI  CONTAINS  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  MATRIX  (SCALED  2) 

R 0890  LEAVES  COU  ANGLES  SCALED  2PI  IN  VIMPAC) 

R 0891  COS(MGA)  WILL  BE  LEFT  IN  SI  (SCALED  1) 

R0892  THE  -DIRECT-TON  COSINE  MATRIX  RELATING  S/C  AXES  TO  STABLE  MEMBER  AXES- CAN  BE  WRITTEN  AS*** 


R0894  C =COS(THETA)COS(PSI  ) 

R0895  — 0 — 

R0896  C =-COS ( THETA) S I N( PS  I )COS (PH  I ) +SI  ( THET A ) S I N ( PH  I ) 

R 0897  1 

R0898  C =COS(THETA)SIN(PSI )SIN(PHI ) + S NT  THETA) COS (PH  I ) 

R 0899  2 

R0900  C =SI N( P SI  ) 

R0901  3 

R0902  C =COS( PSI ) COS ( PHI  ) 

R0903  4 

R0904  C =-COS ( PSI )SIN ( PHI) 


R0905 
R0906 
R0907 
R 0908 
R 0909 
R0910 
R0911 


5 

C =— S IN ( THETA)COS(PSI) 

6 

C =SIN(THETA)SIN(PSI )COS<PHI  )+COS  THET A ) S IN ( PH  I ) 

7 

C =— SIN(THETA)SIN(PSI)SIN(PHI)+CO  ( THET A) COS ( PHI ) 

8 


GAP 
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R0912 

WHERE 

PHI  = 

OGA 

R0913 

THETA 

= IGA 

MG4 

0915 

22,2654 

67543 

1 

DCMTOCDU 

DLOAD* 

ARCS  IN 

22  f 2 656 

00007 

0 

6 , 1 

0917 

22,2656 

71406 

0 

PUSH 

COS 

0918 

22,2657 

41152 

1 

SL1 

8 OVB 

09 1 9 

REF 

12 

| AST 

374 

22 , 2 660 

21664 

0 

S IGNMPAC 

0920 

REF 

2 

LAST 

370 

22,2661 

00051 

0 

STDRF 

SI 

0921 

22,2662 

57543 

1 

DLOAD* 

DCOM  P 

092? 

22,2663 

00015 

0 

1 2D , 1 

0923 

22,2664 

67471 

1 

DDV 

ARCS  IN 

0924 

REF 

3 

LAST 

375 

22,2665 

00051 

0 

S 1 

092  5 

22, 2666 

51123 

0 

PDDL* 

BPL 

0926 

22,2667 

00001 

0 

0,1 

0927 

REF 

1 

22,2670 

44702 

1 

OKTHETA 

09?  fi 

22, 2671 

57545 

1 

DLOAD 

DC  ON  P 

0929 

22,2672 

43244 

1 

BPL 

DAD 

0930 

REF 

1 

22,2673 

446  7 7 

1 

SUHALFA 

09?  1 

R FF 

3 

1 AST 

37  ? 

22, 2674 

06422 

0 

DPHA LF 

0932 

22,2675 

77650 

1 

GOTO 

0933 

REF 

i 

22,2676 

44701 

1 

CALC  PHI 

0934 

??T  2 677 

77625 

o 

SUHALFA 

DSU 

0935 

REF 

4 

LAST 

375 

22,2700 

06422 

0 

DPHA  LF 

0936 

22,2701 

77606 

1 

CALCPHI 

PUSH 

0937 

22, 2 702 

57543 

1 

OKTHETA 

DLOAD* 

DCOM  P 

0938 

22, 2703 

00013 

0 

10D  , 1 

0939 

22,2  704 

67471 

1 

DDV 

ARCS  IN 

0940 

REF 

4 

LAST 

375 

22,2  705 

00051 

0 

SI 

0941 

22,2706 

51123 

0 

PDDL* 

BPL 

0942 

22,2707 

00011 

1 

8 D , 1 

0943 

REF 

1 

22, 2 710 

44722 

0 

OKPH  I 

0944 

22,2711 

57545 

1 

DLOAD 

DCOHP 

0945 

22, 2712 

43244 

1 

BPL 

DAD 

0946 

REF 

1 

22,  2713 

44717 

0 

SUHA  LFAP 

0947 

REF 

5 

LAST 

375 

22,2714 

06422 

0 

DPHALF 

0948 

22, 2715 

77650 

1 

GOTO 

0949 

REF 

1 

22,2  716 

44723 

1 

V ECC  FANG 

0950 

22,2717 

52025 

1 

SUHALFAP 

DSU 

GOTO 

0951 

REF 

6 

LAST 

37  5 

22,  2720 

06422 

0 

DPHALF 

0952 

REF 

2 

LAST 

3 7 5 

22,2721 

44723 

1 

VECOFANG 

0953 

22,2722 

77745 

1 

OKPHI 

DLOAD 

0954 

22,  2723 

43466 

1 

VECOFANG 

VDEF 

RVQ 
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PD  +0  PSI 


PD  +2  THETA 

MUST  CHECK  THE  SIGN  OF  COSI THETA) 
TO  DETERMINE  THE  PROPER  QUADRANT 


PUSH  DOWN  PHI 


PUSH  UP  PHI 


PUSH  UP  PHI 
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P0955 

ROUTINES 

FCR 

TERMINATING  THE 

AUTOMATIC 

MANEUVER 

AND  RETURNING  TO  USER 

77776 

1 

T008A0F 

EX  IT 

0956 

0957 

REF 

19 

LAST 

28  5 

22, 2725 

0 5567 

0 

TC 

ALARM 

0958 

22, 2726 

00401 

1 

OCT 

0040  1 

0959 

REF 

1 

22,2  727 

1 2732 

1 

TCF 

NOGO 

l 

TC 

RANKfAl  1 

0960 

0961 

REF 

REF 

2 

LAST 

300 

22,  2731 

40153 

l 

CADR 

ZATT  EROP 



Q 46  | 6 

1 

NOGO 

TC 

BANKCALL 

0963 

REF 

2 

LAST 

303 

22, 2733 

40165 

1 

CADR 

STOPRATE 

3 47  S2 

n 

CAF 

TWO 

0965 

22,2  735 

0 0004 

0 

INHINT 

0966 

REF 

12 

LAST 

310 

22, 2736 

0 5203 

0 

TC 

WAITLIST 

096  7 

REF 

8 

LAST 

37  0 

E6, 1674 

EB  ANK.= 

BCDU 

0968 

REF 

i 

22,2737 

03234 

1 

2CADP 

GOODMANU 

0968 

REF 

i 

22, 2740 

44066 

1 

0969  REF  — 30^ — LAST  -S49  22,2  741  1 5155  I TCF  ENDOFJOB 


0970 

22,2742 

77776  1 TOOBADI 

EX  IT 

0971 

REF 

2 LAST  376 

22,2  743 

1 27  32  1 

TCF 

NOGO 

DO  NOT  ZERO  ATTITUDE  ERRORS 


ZERO  ATTITUDE  ERRORS 


STOP  RATES 


ALL  RETURNS  ARE  NOW  MADE  VIA  GOODEND 


376 
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L GIMBAL  LOCK  AVOIDANCE 


0001 

15,2050 

BANK 

15 

REF 

.sft  i nr 

KALCM0N1 

0002 

0003 

22,2  744 

BANK 

R0005 

DETECTING  GIMBAL  LOCK 

0006 

REF 

1 

22,2744 

LOCSKIRT  EQUALS 

NOG  I MLOC 

0007 

22,2  744 

77614 

1 

NOGIMLOC  SET 

0008 

REF 

1 

22,2745 

01074 

0 

C ALCMAN3 

000^ 

22,2  746 

70740 

0 

WCALC  LXC , 1 

DLOAD* 

0010 

REF 

3 

LAST 

308 

22,2747 

01325 

1 

RATE INDX 

0011 

REF 

1 

22, 2750 

04772 

1 

ARATE, 1 

00  1 2 

22,2751 

45002 

1 

SR4 

CALL 

0013 

REF 

1 

22,2752 

445  2 7 

1 

DELCPMP 

A0014 

00  1 5 

22,2753 

74343 

0 

DLOAD* 

VX  SC 

0016 

REF 

2 

LAST 

377 

22, 2754 

04772 

1 

AP AT  E,1 

0017 

REF 

39 

LAST 

374 

22,2755 

03267 

1 

COF 

0018 

REF 

1 

22,2  756 

17324 

1 

STOOL 

BRAT  E 

0019 

REF 

3 

LAST 

365 

22,2757 

03334 

0 

AM 

0020 

22,2760 

55605 

1 

DMP 

DDV* 

0021 

REF 

1 

22,2761 

05002 

0 

ANGL  TIMF 

0022 

REF 

3 

LAST 

377 

22,  2762 

04772 

l 

ARATE, 1 

0023 

22,2763 

77661 

0 

SR 

0024 

22,2  764 

206  06 

0 

5 

0025 

REF 

1 

22,2765 

03332 

0 

STORE 

TM 

0026 

22,2766 

77614 

1 

SETGO 

002-7 — 

REE 

1 

22,2  767 

01035 

0 

CALC  MAN2 

0028 

REF 

1 

22,2770 

45010 

1 

NEWANGL  *1 

R0029 

THE  FOUR  SELECTABLE 

FREE  FALL 

MANEUVER  RATES  SELECTED  BY 

R0030  LOADING  RATE  I NDX  WITH  0,2, 4, 6,.  RESPECTIVELY 


0031 

22,2772 

242  55 

0 

0032 

22,2773 

00554 

0 

2DEC 

. 0222222222 

0032 

22,2  774 

02660 

0 

0033 

22, 2775 

02660 

0 

2 DEC 

. 088  8888888 

0033 

22, 2776 

13301 

1 

0034 

22,2777 

16161 

0 

2DEC 

. 4444444444 

0034 

22,3000 

30707 

1 

0035 

22,3001 

00003 

1 

ANGL  TIME  2DEC 

. 000  1907349 

003  5 

22,3002 

04000 

0 

A0036 
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CHOOSE  THE  DESIRED  MANEUVER  RATE 
FROM  A LIST  OF  FOUR 

COMPUTE  THE  INCREMENTAL  ROTATION  MATRIX 
DEL  CORRESPONDING  TO  A 1 SEC  ROTATION 
ABOUT  COE 


COMPONENT  MANEUVER  RATES  45  DEG/SEC 


MANEUVER  EXECUTION  TIME  SCALED  AS  T2 

0 (OFF ) = CONTINUE  MANEUVER 
1 (ON)  = START  MANEUVER 


= 0.2  DEG/SEC  $ 22.5  DEG/SEC 

= 0.5  DEG/SEC  $ 22.5  DEG/SEC 

= 2.0  DEG/SEC  $ 22.5  DFG/SEC 

= 10.0  DEG/SEC  $ 22.5  DEG/SEC 

= 100B-19  FUDGE  FACTOR  TO  CONVERT 


MANEUVER  ANGLE  TO  MANEUVER  TIME 


G4P : 

L 

R0001 

R0003 

0004 

0005 

0006 

000  7 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

00  31 

00  32 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
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GENERATION  OF  STEERING  COMMANDS  FOR  DIGITAL  AUTOPILOT  FREE  FALL  MANEUVERS 
NEW  COMMANDS  WILL  BE  GENERATED  EVERY  ONE  SECOND  DURING  THE  MANEUVER 


REF 

1 

E6, 1705 

EBANK= 

TTEMP 

REF 

65 

LAST 

376 

22, 3003 

0 4616 

1 

NEWDELHI 

TC 

B ANKCALL 

CHECK  FOR  AUTO  STABILIZATION 

REF 

1 

22, 3004 

54240 

0 

CADR 

I SIT  AUTO 

ONLY 

97 

LAST 

2 ? , ^ nos 

1 0 000 

0 

CCS 

A 

REF 

3 

LAST 

376 

22,3006 

1 2730 

0 

TC  F 

NOGO  -2 

REF 

16 

LAST 

370 

22, 3007 

0 6036 

1 

NEWANGL 

TC 

I NT  P PET 

22, 3010 

75160 

1 

AXC  , 1 

AXC  , 2 

REF 

5 

LAST 

364 

22,3011 

03244 

0 

MIS 

COMPUTE  THE  NEW  MATRIX  FROM  S/C  TO 

REF 

10 

LAST 

374 

22,3012 

02234 

0 

KEL 

STABLE  MEMBER  AXES 

22,3013 

77624 

L 

CALL 

REF 

2 

LAST 

364 

22,3014 

44312 

1 

MXM3 

22,3015 

45575 

1 

VLOAD 

STADR 

REF 

6 

[ AST 

^ 7 ft 

??*  30  3 6 

50516 

0 

STOVL 

MIS  +12D- 

CALCULATE  NEW  DESIRED  CDU  ANGLES 

22, 3017 

77626 

0 

STADR 

REF 

7 

LAST 

378 

22, 3020 

50524 

1 

STOVL 

MIS  +6D 

77676 

o 

STADR 

REF 

8 

LAST 

378 

22, 3022 

74532 

0 

STORE 

MIS 

22,3023 

45160 

1 

AXC,  1 

CALL 

R FF 

9 

1 AST 

37  8 

22t  3024 

03244 

0 

MIS 

REF 

i 

22,3025 

44654 

0 

DCMT OCDU 

PICK  UP  THE  NEW  CDU  ANGLES  FROM  MATRIX 

22,3026 

77634 

0 

RTB 

REF 

1 

22, 3027 

21524 

1 

VI  ST  C2S 

REF 

i 

22, 3030 

03302 

0 

STORE 

NCDU 

NEW  CDU  ANGLES 

22, 3031 

77414 

0 

BONCLR 

EXIT 

REF 

2 

LAST 

37  7 

22, 3032 

01215 

0 

CALC  MAN2 

REF 

i 

22,3033 

45122 

1 

MANUSTAT 

TO  START  MANEUVER 

REF 

14 

LAST 

376 

22, 3034 

3 4752 

0 

CAF 

TWD 

+0  OTHERWISE 

REF 

1 

22, 303  5 

55*272 

0 

I NCRDCDU 

TS 

SPNr  X 

REF 

2 

LAST 

37  8 

22,3036 

51*272 

1 

INDEX 

SPNDX 

REF 

9 

LAST 

376 

22, 3037 

3 1674 

0 

CA 

BCDU 

INITIAL  CDU  ANGLES 

22, 3040 

0 0006 

1 

EXTEND 

OR  PRFVIOUS  DESIRED  CDU  ANGLES 

REF 

3 

LAST 

378 

22,3041 

5 1272 

1 

INDEX 

SPNDX 

REF 

2 

LAST 

378 

22, 3042 

2 1 ' 701 

1 

MSU 

NCDU 

22, 3043 

0 0006 

1 

FX  T FND 

REF 

4 

LAST 

377 

22,2000 

SETLOC 

KALCM0N1 

22,3044 

BANK 

REF 

1 

22,3044 

7 3121 

1 

MP 

DT/T AU 

REF 

98 

LAST 

378 

22, 3045 

10  000 

0 

CCS 

A 

CONVERT  TO  2S  COMPLEMENT 

REF 

-47 

- LAST 

352 

22, 3046 

6 4753 

1 

AD 

ONE 

22,3047 

1 3051 

1 

TCF 

+ 2 

22, 3050 

4 0000 

0 

COM 

-RE-F 

4 

-LAST 

37  8- 

22,3051 

51 ' 272 

1 

INDEX 

SPNDX 

REF 

1 

22, 3052 

55' 63o 

1 

TS 

DELDCDU 

ANGLE  INCREMENTS  TO  BE  ADDED  TO 

REF 

5 

LAST 

37  8 

22, 3053 

5 1 ' 2 72 

1 

INDEX 

SPNDX 

CDUXD,  CDUYD,  CDUZD  EVERY  TENTH  SECOND 

GAP 
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0048 

REF 

3 

LAST 

378 

22, 3054 

3 1701 

0 

CA 

NCDU 

0049 

REF 

6 

LAST 

378 

22, 3055 

5 1 ' 2 72 

1 

INDEX 

S PND  X 

00  50 

REF 

10 

LAST 

3 7 8 

22, 3056 

5 7' 6 74 

0 

XCH 

BCDU 

0051 

REF 

7 

LAST 

379 

22, 3057 

5 1 ' 272 

i 

INDEX 

S PND  X 

0052 

REF 

7 

LAST 

365 

22, 3060 

5 5 ' 6 33 

l 

TS 

CDUXD 

DEC 

Q 

LAST 

37  9 

22, 306  1 

1 1*272 

0 

CCS 

SPNDX 

UU  D D 

0054 

r\  c r 

REF 

1 

22,3062 

1 30  35 

0 

TCF 

INCRDCDU 

0055  22,3063  0 0003  1 RELINT 


R0056 

COMPARE  PRESENT  T IME 

WITH  TIME 

TO  TERMINATE  MANEUVER 

0057 

REF 

1 

22, 3064 

0 3075 

0 

TMANUCHK 

TC 

TIME  CHK 

0058 

REF 

1 

22, 3065 

1 3170 

0 

TCF 

CONT  MANU 

0059 

REF 

18  LAST 

378 

22,3066 

3 47  53 

_1 

CAF 

ONE 

0060 

22, 3067 

0 0004 

0 

MANUSTAL 

INHINT 

0061 

REF 

13  LAST 

376 

22, 3070 

0 5203 

0 

TC 

WAITLIST 

0062 

REE 

2 LAST 

378 

E6, 1705 

EBANK= 

TTEMP 

0063 

REF 

1 

22, 3071 

03213 

1 

2CADR 

MANUSTOP 

0063 

REF 

1 

22, 3072 

44066 

1 

0064 

22, 3073 

0 0003 

REL  INT 

0065 

REF 

31  LAST 

376 

22, 3074 

1 5155 

1 

TCF 

ENDOFJOB 

0066 
0067 
006  8 

REF 
— REF 

11 

3 

LAST 

LAST 

32  1 
37  9 

22.3075 

22. 3076 

22. 3077 

0 0006 
4 0025 
53' 706 

1 

1 

0 

T IMECHK 

EXTEND 

DCS  T I ME  2 

DXCH  TTEMP 

0069 

22,3100 

0 0006 

1 

EXTEND 

0070 

REF 

2 

LAST 

377 

22,3 101 

3 1732 

0 

DC  A 

TM 

0071 

—REF 

Jt 

L AS  T 

3 7 g 

22, 3 102 

21 ' 706 

o 

DAS 

TTEMP 

0072 

REF 

5 

LAST 

379 

22,3 103 

11*705 

0 

CCS 

TTEMP 

0073 

REF 

36 

LAST 

34  9 

22, 3 104 

0 0002 

0 

TC 

Q 

0074 

22,3105 

1 3107 

0 

TCF 

+ 2 

0075 

REF 

1 

22, 3106 

1 3117 

1 

TCF 

2 NDR ETRN 

0076 

REF 

6 

LAST 

379 

22, 3 107 

1 1 ' 706 

0 

CCS 

TTEMP  +1 

0077 

- REF- 

37 

LAST 

379 

22, 3110 

0 0002 

0 

TC 

0 

0078 

REF 

1 

22, 3111 

1 3113 

0 

TCF 

MANUTFF 

0079 

22, 3112 

4 0000 

0 

COM 

0080 

REF 

1_ 

22,3113 

6 3166 

0 

MANUOFF 

AD 

ONE  S EK  +1 

0081 

22,3114 

0 0006 

1 

EXTEND 

0082 

REF 

2 

LAST 

379 

22,3115 

6 3117 

0 

BZMF 

2 NDR ETRN 

0083 

REF 

38 

LAST 

379 

22,3116 

24  002 

0 

I NCR 

0 

0084 

REF 

39 

LAST 

379 

22, 3117 

24  002 

0 

2NDRETRN 

INCR 

0 

0085 

REF 

40 

LAST 

379 

22,  3 120 

0 0002 

0 

TC 

Q 

0086 

22, 3121 

03146 

1 

DT/TAU 

DEC 

. 1 

0087 

22, 3122 

77776 

1 

MANUSTAT 

EX  I T 

0088 

22,  3123 

0 0006 

1 

EXTEND 

0089 

REF 

12 

LAST 

379 

22, 3124 

3 0025 

0 

DC  A 

T I ME2 
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LOOP  FOR  THREE  AXES 


END  MAJOR  PART  OF  MANEUVER  WITHIN  1 SEC 
UNDER  WAITLIST  CALL  TO  MANUSTOP 


INITIALIZATION  ROUTINE 
FOP  AUTOMATIC  MANEUVERS 


GAP: 

L 

0090 

0091 

0092 

0093 

0094 

00  95 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0120 

0121 

0122 

0123 

0124 

012  5 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0137 
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USER'S  PAGE  NO. 


E6  S3 


REF 

3 

LAST 

379 

22, 3125 

21*732 

1 

DAS 

TM 

TM+TO  MANEUVER  COMPLETION  TIME 

22, 3126 

0 0006 

1 

EXTEND 

r»  I-  «- 

22t  3l?7 

4 3166 

1 

DCS 

ONE SEK 

REF 

4 

LAST 

380 

22, 3130 

21 ' 732 

1 

DAS 

TM 

(TM+TOI-1 

22, 3131 

0 0004 

0 

INHINT 

L /\  s T 

^ 7 fl 

22, 3132 

3 4752 

0 

CAF 

TWO 

REF 

2 

LAST 

150 

22, 3133 

55*677 

1 

RATEBIAS 

TS 

KSPNDX 

22, 3 134 

6 0000 

1 

DOUBLE 

LAST 

1 5 n 

22,3135 

55 ' 7 00 

0 

TS 

KDPNDX 

REF 

99 

LAST 

37  8 

22,3136 

5 0 0 00 

1 

INDEX 

A 

REF 

2 

LAST 

377 

22,  3 137 

3 1723 

0 

CA 

SPAT  E 

"^8  0 

2 2,  3 1 40 

51 1 677 

0 

INDEX 

KSPNDX 

STORE  MANEUVER  RATE  IN 

REF 

4 

LAST 

2 1 0 

22, 3 141 

55 ' 64 1 

1 

TS 

□MEG APD 

OMEGAPD,  OMEGAQD,  OMEGARD 

22,3142 

0 0006 

1 

EXTEND 

22,3143 

3145 

1 

BZMF 

+ 2 

COMPUTE  ATTITUDE  ERROR 

22,3144 

4 0000 

0 

COM 

OFFSET  = ( WX ) ABS( WX) /2A JX 

22, 3 145 

0 0006 

1 

EXTEND 

WHERE  A JX  = 2- JET  ACCELERATION 

REF 

2 2,314/S 

7 3167 

0 

MP 

ei ascale 

= -1/16 

22,3147 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

380 

22,  3 150 

5 1700 

1 

INDEX 

KDPNDX 

REF 

3 

LAST 

22*3151 

7 1723 

1 

MP 

BP  AT  E 

22,3152 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

38  0 

22, 3153 

5 1677 

0 

INDEX 

KSPNDX 

R ELF 

5_ 

LAST 

14  8 

22,3-154 

1 1 * 530 

1 

DV 

1 JACC 

= A J X $ 90  DEG/SEC-SEC 

REF 

5 

LAST 

380 

22, 3155 

51  * 677 

0 

INDFX 

KSPNDX 

REF 

1 

22, 3 156 

55*277 

0 

TS 

DELPEPOP 

$ 180  DEG 

REF 

6 

LAST 

380 

22, 3157 

1 1 '677 

1 

CCS 

KSPNDX 

REF 

i 

22,3  160 

1 3133 

1 

TCF 

RATEBIAS 

C A 

T I ME- 1 

REF 

3 

LAST 

380 

22,3162 

6 3166 

0 

AD 

ONE S EK  +1 

REF 

1 

22, 3163 

57*704 

0 

XCH 

NEXT  IMF 

R F F 

2 

1 AS  T 

37  <5 

2 2,31  64 

1 3034 

l 

TCF 

I NCR  DC DU  -1 

22,3165 

00000 

1 

ONE  SEK 

DEC 

0 

22,3  166 

00144 

o 

OEC 

1 00 

22,3167 

75777 

1 

BIASCALE 

OCT 

75777 

= -1/16 

REF 

4 

LAST 

380 

22, 3 170 

4 0025 

1 

CONTMANU 

CS 

TIME  1 

RESET  FOR  NEXT  DCDU  UPDATE 

REF 

2 

LAST 

380 

22,3171 

6 1704 

0 

AD 

NEXT IME 

REF 

l-CO 

LAST 

38  0 

22,3  172 

1 0 000 

0 

CCS 

A 

REF 

19 

LAST 

379 

22, 3173 

6 4753 

1 

AD 

ONE 

REF 

1 

22, 3174 

1 3177 

1 

TCF 

MANUCALL 

REF 

1 

22, 3175 

6 4735 

1 

AD 

NEGMAX 

22,3176 

4 0000 

0 

COM 

22,3177 

0 0004 

0 

MANUCALL 

INHINT 

CALL  FOR  NEXT  UPDATE  VIA  WAITLIST 

REF 

14 — 

-LAST 

3 79 

22, 3200 

0 5203 

0 

TC 

WAITLIST 

REF 

7 

LAST 

379 

E6, 1705 

FBANK= 

TTEMP 

REF 

1 

22,3201 

03206 

0 

2C  ADR 

UPDT  CALL 

REF 

1 

22, 3202 

44066 

1 
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0138 

REF 

4 

LAST 

380 

22, 3203 

0139 

REF 

3 

LAST 

380 

22,3204 

0140 

REF 

3 2 

LAST 

3 79 

22, 3205 

3 3166 

0 

CAF 

ONES  FK  + 

27' 704 

1 

ADS 

NEXT  IMF 

1 5155 

1 

TCF 

ENDOFJOB 

Q Cf 

1 

22, 3206 

3 7713 

0 - 

UPDTCALL  CAF 

PR  1026 

0141 

KTr 

1 

0142 

REF 

13 

LAST 

314 

22,3207 

0 5105 

0 

TC 

FINDVAC 

0143 

REF 

8 

LAST 

380 

E6, 1705 

E8ANK= 

TTEMP 

0 1 44 

REF 

1 

22,3210 

03003 

_L_ 

2CADR 

NEWDELHI 

0144 

REF 

1 

22,  321  1 

44066 

1 

0145 

REF 

5 

LAST 

297 

22,3212 

0 5261 

1 

TC 

TASKOVER 

19:02  NOV.  25,1968  LEMONAID.070  PAGE  381 
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INCREMENT  TIME  FOR  NEXT  UPDATE 


SATELLITE  PROGRAM  TO  CALL  FOR  UPDATE 
OF  STEERING  COMMANDS 
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P0146  ROUTINE  FOR  TERMINATING  AUTOMATIC  MANEUVERS 


net 

1 ACT 

3-4  9 

22,  3213- 

3 4755 

-1— 

MANUSTQP 

CAF 

0 1 HI 

0148 

K tl — 
REF 

-5  7 

1 

L P O I 

22, 3214 

55 ' 640 

0 

TS 

0149 

REF 

1 

22,3215 

55*643 

0 

TS 

o cc 

1 

22, 3216 

5 5 ' 3 0 1 

-O- 

TS 

U 1 DU 

0151 

K tr 

REF 

±— 

1 

22,3217 

55*637 

0 

TS 

0152 

REF 

1 

22, 3220 

55 ' 642 

1 

TS 

01  53 

REF 

1 

22, 3221 

55*300 

-4— 

TS 

0154 

REF 

2 

LAST 

364 

22,3222 

3 0323 

0 

CA 

0155 

REF 

1 

22, 3223 

55' 635 

1 

TS 

0 1 56 

REF 

1 

22, 3224 

3 032? 

-1— 

CA 

0157 

REF 

1 

22, 3225 

55' 634 

0 

TS 

0158 

REF 

4 

LAST 

365 

22, 3226 

3 0321 

1 

ENDROLL 

CA 

0159 

RE^ 

D- 

LAST 

37  9 

22, 3227 

55 ' 633 

_L- 

JEi 

0160 

REF 

40 

LAST 

382 

22,3230 

3 4755 

1 

CAF 

0161 

REF 

5 

LAST 

380 

22, 3231 

55 ' 64 l 

1 

TS 

01 62 

REF 

2- 

L AST 

-37-8- 

22, 3232 

5 5 ' 6 36 

1 

TS 

0163 

REF 

2 

LAST 

380 

22, 3233 

55' 277 

0 

TS 

0164 

REF 

1 

22, 3234 

3 1311 

0 

GOODMANU 

CA 

0165 

— REF — 

— 2 

LAST 

-24-7 — 

22,3-235 

54  063 

0 

TS 

0166 

REF 

41 

LAST 

3 8 2 

22, 3236 

3 4755 

1 

CA 

0167  REF  —3  LAST  23  7 22,3237  53*310  OXCH 


0168 

REF 

2 

LAST  247 

22,3240 

0 

5116  1 

TC 

0169 

REF 

6 

LAST  381 

22,3241 

0 

5261  1 

TC 

ZERO 
DELDCDU2 
OMEGARO 
DELR  EROP 
DELDCDU1 
OMEGAQO 
OELQEROR 
CPSI 
CDUZD 
-C  THE  TA 
CDUYD 
C PH  I 
CDUXD 
ZERO 
OMEG APD 
DELDCDU 
OELP  EROR 
ATTPRIO 
NEWPRIO 

ZERO 

ATTCADR 

SPVAC 

T ASKOVFR 
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ZERO  MANEUVER  RATES 


SET  OESIREO  GIMBAL  ANGLES  TO 
DESIREO  FINAL  GIMBAL  ANGLES 


NO  FINAL  YAW 


I.E.  MANEUVER  010  NOT  GO  THRU 
GIMBAL  LOCK  ORIGINALLY 

RESTORE  USERS  PRIO 


ZERO  ATT  C A OR 


RETURN  TO  USER 
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L SYSTEM  TEST  STANDARD  LEAD  INS  USER'S  PAGF  NO.  1 EO  S3 


0001 

REF 

4 

LAST 

334  E 5, 1642 

EB ANK= 

XSM 

3 3,2  045 

BANK 

33 

0002 

0003 

REF 

1 

04,2000 

SETLOC 

E/PROG 

0004 

04,  2533 

BANK 

0005 

REF 

I 

COUNT* 

*s$/P07 

p nrm  a 

cocriAi  DDnr:PAiM<i  Tn  THF 

PANGR  (IF  FRARARI  F 

MFMPRY  PROGRAMS- 

r\  \j\jyj  o 

R0007 

E/6KC ALL 

FOR 

DOING  BANKCALLS  FROM  AND  RETURNING  TO  ERASABL  F. 

R0008  TEIS  ROUTINE  IS  CALLABLE  FROM  ERASABLE  OR  FIXED.  LIKE  BANKCALL,  HOWEVER,  SWITCHING  BETWEEN  S3  AND  S4 

R0010  IS  NOT  POSSIBLE. 


R0011 


TEE  CALLING  SEQUENCE  IS: 


A00I2 

A0013 

A0014 

A0015 

A0016 

A0017 


TC  BANKCALL 

CADR  E/BKCALL 

CADR  ROUTINE  WHERE  YOU  WANT  TO  GO  IN  FIXED. 

RETURN  HERE  FROM  DISPLAY  TERMINATE,  BAD  STALL  OR  TC  0, 
RETURN  HERE  FPPM  DISPLAY  PROCEED  OP  GOOD  RETURN  FROM  STALL. 


RETURN  HERF  FROM  DISPLAY  ENTFR  OR  RECYCLE. 


R 00 1 8 THIS  ROUTINE  REQUIRES  TWO  ERASABLES  ( EBUF2 , +1)  IN  UNSWITCHED  WHICH  ARE  UNSHARED  BY  INTERRUPTS  AND 

R0020  OTEER  EMEMC'RY  PROGRAMS. 


R0021 

A + L 

AR  E 

PRESERVED 

THROUGH 

BANKCALL  AND  E/BKCALL. 

0077 

— 3_ 

LAST 

26  0 

04,  7 513 

5 7 134 

o 

F/RKTAI  \ 

nxoH 

RIJF7 

SAVE  A * L AND  GET  DP  RETURN. 

0023 

REF 

i 

04, 2534 

53*170 

1 

DXCH 

EBUF2 

SAVE  DP  RETURN. 

0024 

REF 

2 

LAST 

383 

04,2535 

25' 167 

0 

INCR 

EBUF2 

RETURN  +1  BECAUSE  DOUBLE  CADR. 

0025 

REF 

1 0 

LAST 

16  9 

04*2536 

3 0006 

1 

CA 

B B A N K 

0026 

REF 

3 

LAST 

319 

04,2537 

7 5012 

0 

MASK 

L0W1  0 

GET  CURRENT  EBANK.  (SBANK  SOMEDAY) 

0027 

REF 

3 

LAST 

383 

04,2540 

27' 1 70 

1 

ADS 

EBJF2  +1 

FORM  BBCON . (WAS  FBANK  ) 

0028 

REF 

4 

LAST 

3 8-3 

04,2  541 

51' 167 

0 

NDX 

EBUF  2 

0029 

04,2  542 

2 ' 7777 

0 

CA 

0 -1 

GET  CADR  OF  POUTINE. 

0030 

REF 

2 

LAST 

232 

04,2543 

0 4622 

0 

TC 

SWCALL 

GO  TO  ROUTINE,  SETTING  Q TO  SWRETURN 

A0031 

AND  RESTORING  A + L. 

0032 

04,2544 

0 2550 

0 

TC 

+ 4 

TX  Q,  V 34 , OR  BAD  STALL  RETURN. 

0033 

04, 2545 

0 2547 

0 

TC 

+ 2 

PROCEED  OR  GOOD  STALL  RETURN. 

0034 

REF 

A 

LAST 

333 

04, 2546 

25' 1 67 

0 

INCR 

EBUF  2 

ENTER  OR  RECYCLE  RETURN. 

0035 

REF 

6 

LAST 

33  3 

04, 2547 

25'167 

0 

INCR 

EBUF2 

0036 

REF 

7 

LAST 

383 

04,2550 

53' 1 70 

1 

E/SWI TCH 

DXCH 

EBUF  2 

0037 

04,2551 

52  006 

0 

DTCB 
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SYSTEM 
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P0038 

E/CALL 

FOR 

CALLING  A 

FIXEO 

MEMORY  INTERPRETIVE 

SUBROUTINE 

FROM  ERASABLE  AND  RETURNING  TO  ERASABLE. 

R 0040 

THE 

A0041 

RTB 

A0042 

E/CALL 

CADR 

ROUT  INE  - - - 

THE  INTERPRETIVE  SUBROUTINE  YOU  WANT, 

AG043 

A0044 

RETURNS  HERE  IN  INTERPRETIVE. 

? 2 164 

1 F/CALl 

LXCH 

LOC 

AORFS  -1  OF  CADR. 

0045 

0046 

REF 

33 

LAST 

34  9 

04, 2 553 

50  001 

0 

INDEX 

L 

0047 

REF 

34 

LAST 

384 

04,2554 

3 0001 

0 

CA 

L 

CADR  IN  A. 

004R 

R f F 

3 5 

1 A<IT 

38  4 

04* 2 555 

24  001 

0 

I NCR 

L 

0049 

REF 

36 

LAST 

384 

04, 2556 

24  001 

0 

I NCR 

L 

RETURN  ADRES  IN  L. 

0050 

REF 

8 

LAST 

38  3 

04,2557 

53' 170 

1 

DXCH 

EBUF2 

STORE  CADR  AND  RETURN. 

R F F 

1 7 

{ AS  T 

3 7 8 

04,  2 560 

0 6Q36 

1 

TC 

I NT  P RET 

0052 

04, 2561 

77624 

1 

CALL 

0053 

REF 

9 

LAST 

384 

04, 2562 

01167 

0 

EBUF2 

INDIRECTLY  EXECUTE  ROUTINE.  IT  MUST 

04t  2 563 

77776 

1 

EX  IT 

LEAVE  VIA  RVQ  OR  EQUIVALENT. 

0055 

REF 

10 

LAST 

384 

04,2564 

23* 1 70 

0 

LXCH 

EBUF2  +1 

PICK  UP  RETURN. 

0056 

REF 

18 

LAST 

384 

04,2565 

1 6040 

1 

TCF 

INTPRET  +2 

SET  LOC  AND  RETURN  TO  CALLER. 
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POO  5 7 

E/JOBWAK  FOR  WAKING  UP 

ERASABLE 

MEMORY  JOBS. 

R0058 

R0060 

TUI  Q Q.nilTTMF  Ml  1 ^ T RF 

ril  1 FD  IN 

INTERRUPT  nR  WITH  INTFRRIJPT5 

INHIBITED. 

THE  CALLING  SEQUENCE 

IS: 

A0061 

A0062 

INHINT 

A0064 

A0065 

A006^ 

CA 

TC 

CADR 

WAKEADR 
I BNKC ALL 
E/JOBWAK 

ADDRESS 

OF 

SLEEPING  JOB 

A 0067 
A0068 

/\0riAQ 

• 

RETURNS 

HERE 

A0070 

RELINT 

IF  YOU 

DID 

AN  INHINT. 

0071 

33*  2045 

BANK 

33 

0072 

RFF 

2 

LAST 

383 

04,2000 

SFTLOC 

E/PRCG 

0073 

04,2566 

BANK 

00  74 

REF 

2 

LAST 

383  TO 

385  : 

27 

27  * 

COUNT  * 

$ $/ P 07 

0075 

T1EF 

j_ 

04*  2 566 

0 5137 

_l 

£/ JQB WAK  TC 

JOBW  AKE 

0076 

REF 

18 

LAST 

2 7 C 

04,2567 

4 4741 

0 

CS 

BIT1  1 

0077 

REF 

1 

04,  2570 

50  064 

0 

NDX 

LOCCTR 

0078 

HEF 

2 

LAST 

384 

04, 2571 

26  1 64 

_ Q— 

ADS 

LOG 

0079 

REF 

1 

04,2572 

0 0072 

1 

TC 

RUPT  REG3 

ARRIVE  I WTH  ADRES  IN  A. 

KNOCK  FIXED  MEMORY  3IT  OUT  OF  AD°ES. 
RETURN 


385 


GAP  : 
L 

ASSEMBLE  R EV IS  ION  069  OF  AGC  PROGRAM 
IMU  PERFORMANCE  TESTS  2 

LUMINARY  RY  NASA  ?0?1112-011 

19:02  NOV-  25,  1 968 

LEMON A I D • 070 

PAGF  886 

USER'S  PAGE 

NO.  1 

EO  S3 

ROOOl 

NAME-  IMU  PERFORMANCE  TESTS  2 

R0002 

R0003 

DATE”  MAtvLr  2iU»l  toi 

BY-  SYSTEM  TEST  GROUP  864-6900  EXT. 

1274 

R0004  MODNO.-  ZERO 

R0005  FUNCTIONAL- DESCRIPTION — 

R0006  POSITIONING  ROUTINES  FOR  THE  IMU  PERFORMANCE  TESTS  AS  WELL  AS  SOME  OF 
R0007  THE  TESTS  THEMSELVES.  -FOR  A DESCRIPTION  OF  THESE  SUBROUTINES  AND  THE 
R0008  OPERATING  PROCEDURES  (TYPICALLY)  SEE  STG  MEMO  685 . THEORET I C A L REF.E-1973 


BANK 

33 

0010 

REF 

2 

LAST 

59 

37, 2000 

SFTLOC 

I MU2 

0011 

37,2002 

BANK 

REF 

2 

1 AST 

14  2 

F 5 , 1 41  6 

EB ANK= 

POS 1 TON 

00121 

REF 

2 

LAST 

59  TO 

59: 

2 

2« 

COUNT  4 

4$ /P  07 

^ 7f  2 0^2 

0 R 8 1 [ 

]_ 

r Fnn 

TC 

NE  WM CDEX 

00124 

37, 2003 

00007 

0 

MM 

07 

P ef 

^ 7T  7 004 

0 28 2 5 

OPIT  I Ml  JT  T 

TC 

I MUZ  ERR 

0022 

REF 

42 

LAST 

38  2 

37,2005 

3 4755 

1 

IMUBACK 

CA 

ZERO 

0023 

REF 

2 

LAST 

142 

37, 2006 

55*414 

0 

TS 

NDXCTR 

0074 

REF 

1 

37,2007 

55*440 

1 

TS 

TORONDX 

0025 

REF 

2 

LAST 

386 

37,2010 

5 5 1 44 1 

0 

TS 

TORQNDX  +1 

0025  1 

REF 

1 

37,2011 

55' 576 

0 

TS 

OVFLOWCK 

no  76 

R FF 

87, 70 1 7 

8 48  6 1 

1 

NBPOSPL 

CA 

DEC  1 7 

0027 

REF 

1 

37,2013 

55*571 

1 

TS 

ZEPONDX 

0028 

REF 

1 

37, 2014 

3 2476 

0 

CA 

X MB A DR 

0029 

R EF 

1 

37, 2015 

0 2367 

1 

TC 

7 E R 0 I NG 

0030 

REF 

3 

LAST 

34  7 

37, 2016 

3 4736 

1 

CA 

HALF 

0031 

REF 

1 

37, 2017 

55*664 

0 

TS 

XNB 

0032 

RFF 

19 

L AST 

384 

37, 2020 

0 6036 

1 

GUESS 

TC 

I NT P PET 

0033 

37, 2021 

62545 

1 

LATAZCHK 

DLOAD 

SL2 

0034 

REF 

2 

LAST 

142 

37,2022 

02403 

1 

L AT  I TUDE 

0035 

REF 

13 

LAST 

332 

37, 2023 

15047 

0 

STOOL 

DSPTEM1  <-1 

0036 

REF 

2 

LAST 

142 

37,2024 

02401 

0 

AZI MUTH 

0037 

37, 2025 

77434 

1 

RTB 

EXIT 

0038 

REF 

1 

37,2026 

21520 

0 

1 ST02S 

0039 

REF 

66 

LAST 

370 

37,2027 

56  154 

1 

XCH 

MPAC 

0040 

REF 

14 

LAST 

386 

37,2030 

55' 045 

0 

TS 

DSPTEM1 

0041 

REF 

— 1 

37,2031 

3 2473 

0 

CAF 

VN0641 

0042 

REF 

66 

LAST 

378 

37, 2032 

0 4616 

1 

TC 

B ANKCALl 

0043 

REF 

4 

LAST 

353 

37,2033 

20351 

1 

CADR 

GOFL ASH 

0044 

REF 

— 1- 

37, 2034 

0 2270 

0 

TC 

F NOT EST 1 

0045 

37,2035 

0 2037 

1 

TC 

+ 2 

0046 

37,2036 

0 2031 

1 

TC 

-5 
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IMU 

PERFORMANCE  TESTS  2 
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0047 

REF 

20 

LAST 

386 

37, 2037 

0 6036 

1 

TC 

INTPRET 

0048 

37,2040 

47135 

0 

SLOAD 

RTB 

^ / /-x 

L /'S  T 

38  6 

^7 f 2^41 

01  046 

1 

DSPT  EMI 

0050 

REF 

8 

LAST 

370 

37, 2042 

21465 

0 

CDUL  OGIC 

0051 

REF 

3 

LAST 

386 

37,2043 

02401 

0 

STORF 

AZIMUTH 

87, 2 044 

60535 

SLQAD 

SP2 

0053 

REF 

16 

LAST 

387 

37, 2045 

01047 

0 

DSPT  EMI  +1 

0054 

REF 

3 

LAST 

386 

37,2046 

02403 

1 

STORE 

L ATI TUDE 

0055 

37, 2047 

57546 

1 

COS 

DCOMP 

0056 

37, 2050 

77752 

1 

SL  1 

0057 

REF 

1 

37,2051 

16437 

0 

STODL 

WANG  I 

0058 

REF 

A 

LAST 

38  7 

37,2052 

02403 

1 

LATITUDE 

0059 

37, 2053 

72556 

1 

SIN 

SL1 

0060 

REF 

i 

37,2054 

16435 

1 

STODL 

W ANGO 

0061 

REF 

4 

LAST 

38  7 

37, 2055 

02401 

0 

AZI MUTH 

0062 

37,2056 

73406 

1 

PUSH 

SIN 

0063 

REF 

1 

37,2057 

02675 

1 

STORE 

YNB  +2 

OOf>4 

REF 

1 

37,  2 060 

16  7 05 

1 

STODL 

ZNB  +4 

0065 

37,2061 

77746 

1 

COS 

0066 

REF 

2 

LAST 

387 

37, 2062 

02677 

0 

STORE 

YNB  +4 

0067 

37, 2063 

77676 

0 

DCOMP 

0068 

REF 

2 

LAST 

387 

37,2064 

36703 

0 

POSGMBL 

STC ALL 

ZNB  +2 

0069 

REF 

1 

37,  2065 

47255 

0 

C ALCGA 

0070 

37, 2066 

77776 

1 

EXIT 

0071 

REF 

67 

LAST 

386 

37,2067 

0 46  16 

1 

TC 

BANKCALL 

0072 

REF 

2 

LAST 

283 

37,  2070 

16753 

1 

CADR 

I MUCOARS 

0073 

REF 

35 

LAST 

303 

37, 2071 

3 4736 

1 

CAF 

B IT  1 4 

IF  BIT14  SET,  GIMBAL  LOCK 

0074 

REF 

9 

LAST 

295 

37,2072 

7 0077 

0 

MASK 

FLAGWRD3 

0075 

37, 2073 

0 0006 

1 

EXTEND 

0076 

37,2  074 

1 2076 

0 

BZF 

+ 2 

0077 

REF 

3 

LAST 

386 

37,2075 

25*414 

L 

I NCR 

NDXC TR 

+1  IF  IN  GIMBAL  LOCK, OTHERWISE  0 

0078 

REF 

24 

LAST 

353 

37,  2076 

0 5516 

0 

TC 

DOW NFL AG 

0079 

REF 

— 1- 

37,2077 

00056 

1 

ADRES 

GLDKFAIl 

RESET  GIMRAL  LOCK  FLAG 

0080 

REF 

1 

37,2 100 

0 2315 

1 

TC 

IMUSLLLG 

0081 

REF 

4 

LAST 

38  7 

37,2101 

11*414 

0 

CCS 

NDXC  TR 

IF  ONE  GO  AND  00  A PIPA  TEST  ONLY 

0082 

REF 

— 1_ 

37,  2 102 

0 2126 

0 

TC 

P IP ACHK 

ALIGN  AND  MFASUPF  VERTICAL  PIPA  RATE 

0084 

REF 

1 

37,  2 103 

0 2320 

1 

TC 

F INI MUDD 

0085 

37, 2104 

0 0006 

1 

EXTEND 

00851 

REF 

1 

37,2105 

3 1575 

1 

DC  A 

PERF  DLAY 

00852 

REF 

1 

37, 2 106 

0 5277 

0 

TC 

LONGCALL 

DELAY  WHILE  SUSPENSION  STABILIZES 

008525 

REF 

3 

LAST 

386 

E5, 1416 

EBANK= 

POSI TOM 

00053 

REF 

— L- 

37,2107 

02113 

0 

2CADP 

GOES  TIMS 

00853 

REF 

1 

37,2110 

76065 

0 

00854 

REF 

1 

37,2111 

3 2116 

0 

CA 

ESTI CADR 

00855 

REF 

1 

37,  2 112 

0 5133 

0 

TC 

JOBS l EEP 

00856 

REF 

2 

LAST 

387 

37,2113 

3 2116 

0 

GOE STIMS 

CA 

ESTI CADR 

0085  7 

REF 

2 

LAST 

385 

37,  2 114 

0 5137 

1 

TC 

JOBW AKE 

0085  8 

REF 

7 

LAST  _ 

382 

37,  2115 

0 5261 

1 

TC 

T A S K OVER 

00859 

REF 

1 

37, 2116 

76500 

0 

ESTICADR 

CADR 

ESTI MS 

0086 

REF 

43 

LAST 

386 

37,2117 

3 4755 

1 

TORQUE 

CA 

ZERO 

387 
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0087 

REF 

7 

LAST 

332 

37, 2 120 

55*050 

1 

TS 

DSPTEM2 

0088 

REF 

1 

37,2121 

3 1504 

1 

CA 

DRIFTI 

2 1 ?2 

55*051 

0 

TS 

DSPTEM2  +1 

0090 

REF 

4 

LAST 

387 

37,2123 

51*416 

0 

INDEX 

POSI TON 

0091 

REF 

2 

LAST 

142 

37,2124 

55*420 

1 

TS 

SOUTHDR  -1 

« « ^ ^ 

37t  2 1 2 5 

0 2457 

0 

TC 

SHO  U 

0093 

REF 

5 

LAST 

38  7 

37, 2126 

51*414 

1 

PIPACHK 

INDEX 

NDXC  TR 

37 , 2 1 ? 7 

0 2130 

1 

TC 

+ 1 

0095 

REF 

1 

37,2130 

0 2447 

1 

TC 

EAR  T HR* 

0096 

RFF 

2 

LAST 

386 

37,2131 

3 4361 

1 

CA 

DEC  1 7 

REF 

1 

37, 2 132 

55*  4 76 

1 

TS 

P AT  A PL  +4 

0098 

REF 

1 

37,2133 

3 2474 

1 

CA 

DEC5  8 

0099 

REF 

2 

LAST 

142 

37, 2 134 

5 5' 4 12 

0 

TS 

LENGTHOT 

n i on 

RFF 

2D 

1 AST 

3 8 0 

37, 2135 

3 4753 

1 

CA 

ONE 

0101 

REF 

i 

37,2136 

55*537 

0 

TS 

RESULTCT 

0102 

REF 

44 

LAST 

387 

37,2137 

3 4755 

1 

CA 

ZERO 

m 03 

RFF 

2 

1 AST 

1 4 2 

37, 2 140 

51*415 

0 

INDEX 

PIP  I NDEX 

0104 

REF 

2 

LAST 

320 

37,2141 

54  037 

1 

TS 

PIPAX 

0105 

REF 

2 

LAST 

388 

37,2142 

55*472 

0 

TS 

DAT  A PL 

010  6 

REF 

1 

37,2 143 

0 2332 

1 

TC 

CHEC  KG 

0107 

37, 2144 

0 0004 

0 

INHINT 

0108 

REF 

16 

LAST 

380 

37,2145 

3 47  52 

0 

CAF 

TWO 

moo 

REF 

1 

37,  2 1 46 

0 5173 

1 

TC 

TWIDDLE 

0110 

REF 

5 

LAST 

383 

E5 , 1642 

EBANK= 

XSM 

0111 

REF 

1 

37,2147 

02151 

0 

ADRES 

PIPATASK 

mi? 

REF 

33 

1 AST 

3ft  1 

37,2  150 

0 51  55 

o 

TC 

E NDOF JOE 

n 1 1 3 

3 7,2151 

0 0006 

D J P AT  ASK 

extend 

0114 

REF 

3 

LAST 

38  8 

37, 2 152 

27' 412 

0 

DIM 

LENGTHOT 

0115 

REF 

4 

LAST 

388 

37, 2153 

3 1412 

1 

CA 

LENGTHOT 

0116 

37,2154 

0 0006 

l 

EXTEND 

0117 

REF 

1 

37, 2 155 

6 2161 

0 

BZMF 

STARTPIP 

0118 

REF 

19 

LAST 

347 

37, 2156 

3 4742 

1 

CAF 

BIT10 

0119 

REF 

— 2— 

LAST 

38  8 

37,2  157 

0 5173 

1 

TC 

TWI DOLE 

0120 

REF 

6 

LAST 

388 

E5, 1642 

EBANK= 

X SM 

0121 

REF 

2 

LAST 

388 

37,2160 

02151 

0 

ADRES 

P IPA  TASK 

0122 

REF 

2 

LAST 

284 

37,2161 

3 4736 

1 

STARTP I P 

CAF 

PR IC20 

0123 

REF 

14 

LAST 

38  1 

37,2162 

0 5105 

0 

TC 

F INDVAC 

0124 

REF 

7 

LAST 

388 

E5, 1642 

EBANK= 

XSM 

012  5 

REF 

1 

37, 2163 

02166 

1 

2f  ADR 

P I P J CBB 

0125 

REF 

1 

37,2 164 

76065 

0 

0126 

REF 

8 

LAST 

38  7 

37,2  165 

0 5261 

1 

TC 

T ASKCVEP 

0127 

REF 

6 

LAST 

388 

37, 2166 

5 1 ' 4 1 4 

1 

PIP  JOBS 

INDEX 

NDXCTR 

0128 

37,2 167 

0 2170 

0 

TC 

-♦-1 

0129 

REF 

2 

LAST 

388 

37,2  170 

0 2447 

1 

TC 

EARTHR* 

0130 

REF 

5 

LAST 

388 

37,2171 

3 1412 

1 

CA 

LENGTHOT 
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PIPA  TEST 


ALLOW  PIP  COUNTER  TO  OVERFLOW  17  TIMES 
IN  THE  ALLOTFD  TIME  INTERVAL 
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E7 , 1400 

EB ANK= 

ATIGINC 

0196 

REF 

2 

1 AST 

4nn 

37,2775 

0 1400 

1 

TC 

ATIG  INC 

R0197 

CAUT  ION 

R0198 

THE 

ERASAELE 

PROGRAM  THAT  DOES  THE  i 

CALCULAT  IONS 

MUST  BE  LOADED 

R 01 99 

BEFORE 

ANY  ATTEMPT 

IS  MADE  TC 

1 RUN  THE 

IMU  PERFORMANCE 

TEST 

01995 

REF 

5 

LAST 

387 

E5 , 1400 

EB ANK= 

AZIMUTH 

0290 

REF 

8 

LAST 

397 

37,2776 

1 1 '4 12 

0 

CCS 

LENGTHOT 

029  1 

REF 

2- 

LAST 

39  6 

37, 2777 

0 3034 

o 

TC 

SLEE  PIE 

0292 

REF 

6 

LAST 

39  6 

37,3000 

1 1 ' 440 

1 

CCS 

TORONDX 

0293 

37, 3001 

1 3003 

0 

TC  F 

+ 2 

0294 

REF 

1 

37,  3002 

0 3005 

1 

TC 

SE  T U PEP] 

0295 

REF 

9 

LAST 

390 

37,3003 

3 0032 

0 

CA 

CDUX 

0296 

REF 

3 

LAST 

390 

37, 3004 

55  • 4 14 

0 

TS 

LOSVEC  +1 
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COSINES 


GOTO  ERASABLE  TO  CALCULATE  ONLY  TO  RFTN 


FOR  TROUBLESHOOTING  VD  POSNS  2S4 
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0297 

REF 

25 

LAST 

398 

37,  3005 

0 6036 

1 

SETUPER 1 TC 

I NT  P RET 

0298 

37,3006 

65345 

0 

DLOAD 

PDDL 

02  99 

REF 

37, 3007 

02473 

JO 

ANGZ 

0300 

REF 

1 

37, 3010 

02477 

1 

ANGY 

0301 

37, 3011 

55525 

0 

PDDL 

VOEF 

0302 

TLEF 

2 

LAST 

400 

37, 3012 

02501 

1 

ANGX 

0303 

37, 3013 

74276 

1 

VCOMP 

VXSC 

0304 

REF 

2 

LAST 

400 

B7, 3014 

371  10 

0 

GEORGEJ 

0305 

37, 3015 

74521 

JL 

MX  V 

VSR1 

0306 

REF 

15 

LAST 

398 

37,3016 

02643 

l 

XSM 

0307 

REF 

10 

LAST 

394 

37,3017 

02740 

0 

STORE 

OGC 

0308  37,3020  77776  1 EXIT 


0309  REF  1 37,3021  3 2475  0 CA  OGCPL 


0310 

c r 

REF 

1 

74 

LAST 

398 

37, 3022 

0 4616 

1 

TC 

BANKCALL 

0311 

REF 

3 

LAST 

346 

37,3023 

17276 

1 

CADR 

IMUPULSE 

0312 

REF 

3 

LAST 

39  3 

37,3  024^ 

0 2315 

L. 

TC 

IMUSLLLG 

0313 

REF 

7 

LAST 

400 

37,3025 

1 1 ' 440 

I 

GEOSTRT 4 CCS 

TCPQNDX 

0314 

REF 

1 

37,3026 

0 2263 

1 

TC 

VALM  IS 

0315 

REF 

26 

LAST 

401 

37, 3027 

0 60  36 

1 

TC 

IKTPPET 

03151 

37, 3030 

77624 

1 

CALL 

03152 

REF 

2 

LAST 

396 

37,3031 

76401 

0 

F RTHPVSE 

03153 

37,3032 

77776 

1 

EXIT 

0316 

REF 

1 

37,3033 

0 21  17 

1 

TC 

TCRCUE 

0317 

REF 

9 

LAST 

400 

37, 3034 

55 ' 4 1 2 

0 

SLEEPIF  TS 

LENGTHOT 

0318 

REF 

8 

LAST 

40  1 

37, 3035 

1 1 1 440 

1 

CCS 

TORONDX 

0319 

REF 

4 

LAST- 

389 

37, 3036 

0 2447 

1 

TC 

FART  HR  * 

0320 

REF 

35 

LAST 

389 

37, 3037 

0 5155 

0 

TC 

ENDOFJOB 

0321 
0321  1 
03212 

REF 

REF 

REF 

1 

13 

22 

LAST 

LAST 

400 
39  7 

37.3040 

37.3041 

37.3042 

3 5014 
54  003 
3 47  53 

1 

0 

I 

SOMEERRR 

CA 

TS 

CA 

EBANK5 

EBANK 

ONE 

03213 

REF 

3 

LAST 

39  7 

37, 3043 

55' 576 

0 

TS 

OVFLOWCK 

03214 

REF 

20 

LAST 

376 

37,3044 

0 5567 

0 

TC 

ALARM 

0322 

37,3045 

01600 

0 

OCT 

1600 

0323 

REF 

3 

LAST 

394 

37,3046 

0 22  70 

0 

TC 

ENDTFST1 

0324 

REF 

1 

37,3047 

3 3054 

0 

S0MERR2 

CAF 

OCT  1 60 1 

0325 

REF 

2 

LAST 

19  5 

37,3050 

0 5735 

0 

TC 

VAPALARM 

0330 

REF 

26 

LAST 

390 

37,3051 

0 5516 

0 

TC 

DOWN  FLAG 

0331 

REF 

4 

LAST 

390 

37, 3052 

00007 

0 

ADRES 

l MUSF 

0332 

REF 

36 

LAST 

401 

37,3053 

0 5155 

0 

TC 

ENDOFJOB 

0333  37,3054  0160L  1 0CT1601  OCT  01SC1 


0334 

37, 3055 

06200 

0 

DEC  585 

OCT 

06200 

0335 

37,3056 

00000 

1 

SCHZEROS 

2DEC 

. 00000000 

0335 

37,3057 

00000 

_1 
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ANGLES  FROM  DRIFT  TEST  ONLY 


ONLY  POSITIVE  IF  IN  VERTICAL  DRIFT  TEST 


TEST  NOT  OVER-DECREMENT  LENGTHOT 
ARE  WE  DOING  VERTDRIFT 


STOP  ALLOOP  FROM  CALLING  ITSELF 


3200  B+14  ORDER  IS  IMPORTANT 
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0336 

0336 

37.3060 

37.3061 
- 37,  3062 

00000 

00000 

00000 

1 

1 

1 

2DEC 
— OCT 

. 00000000 
000  0 0 

03  3 7 
0338 

37,3063 

00000 

1 ONEDPP 

OCT 

00000 

0339 

37, 3064 

00001 

0 

OCT 

0000  1 

0340 

37, 3065 
1 066 

00004 

00007 

0 

0 

INTVAL 

OCT 

OCT 

4 

2 

0342 

37, 3067 

00220 

1 

DEC 

144 

0343 

37,3070 

77776 

1 

DEC 

-1 

0344 

37,3071 

35730 

0 

SOUPLY 

2DEC 

.93505870 

0344 

37,3072 

00035 

1 

0345 

37, 3073 

10317 

0 

2DEC 

.26266423 

0345 

37,3074 

17550 

-1 

0346 

0347  REF 

0348 

0348 

0349 

0349 
03  50 

0350 

0351 
0351 


37.3075 

37.3076 

37.3077 
^7, a i nn 

00115 

01443 

04133 

-1— 

0 

1 

1 

77DECML 

ALXXXZ 

PIPASC 

DEC 

GENADR 

2DEC 

-77 — 

ALX1S  -1 
.13055869 

37,3101 

57223 

0 

VEL  SC 

2DEC 

-.52223476 

37, 3102 

664  5 1 

1 

3 7, 3 103 

05427 

o 

ALSK 

2DEC 

. 17329931 

37, 3104 

12577 

1 

37, 3105 

77567 

0 

2DEC 

-.00835370 

37, 3 106 

44202 

1 

0352 

37, 3 107 

0352 

37,3110 

0353 

37,3111 

0353 

37, 3112 

24276  1 GEORGEJ  2DEC  .63661977 
14066  1 

23073  1 GEORGEK 
11773  1 


2DEC 


59737013 
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ORDER  IS  IMPORTANT 


INITIAL  GAINS  FOR  PIP  OUTPUTS 
INITIAL  GAINS/4  FOR  ERECTION  ANGLES 


512/980.402 

S SWAY  VEL  GAIN  X 980.402/4096 


S SWAY  ACCEL  GAIN  X 980.402/4096 
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L 

R0001 

R0002 

R0003 

R0004 

R0009 

R0010 

R00I1 

R00I2 

R0013 

R0014 

R0015 

R0016 

R0017 

R00I8 

R0020 
R0021 
R0022 
R0023 
R0024 
R 002  5 


R0026 

R0027 
R 002  8 
R0029 
R0030 
R 003 1 

R0032 

R0033 

R0034 

R0035 

R0036 

R0037 

R0038 

R0039 

R0040 


R0045 

R0046 
R004605 
R 0046  I 


PINEALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  1 EO  S3 

PROGRAM  NAME  - KEYBOARD  AND  DISPLAY  PROGRAM 

MOC  NC  - 4 DATE  - 27  APRIL  1967  ASSEMBLY  - PINDANCE  REV  18 

MCD  3 Y - FILENE 

LOG  SECTION  - PINBALL  GAME  BUTTONS  AND  LIGHTS 
FUNCT IONAL  DESCR I PTION- 

THE  KEYBOARD  AND  DISPLAY  SYSTEM  PROGRAM  OPERATES  UNDER  EXECUTIVE 
CONTROL  ANC  PROCESSES  INFORMATION  EXCHANGED  BETWEEN  THE  AGC  AND  THE 
COMPUTER  OPERATOR.  THE  INPUTS  TO  THE  PROGRAM  ARE  FROM  THE  KEYBOARD, 

FROM  INTERNAL  PROGRAMS,  AND  FROM  THE  UPLINK. 

THE  LANGUAGE  OF  COMMUNICATION  WITH  THE  PROGRAM  IS  A PAIR  OF  WORDS 
KNOWN  AS  VERB  AND  NOUN.  EACH  OF  THESE  IS  REPRESENTED  BY  A 2 CHARACTER 
DECIMAL  NUMBER.  THE  VERB  CODE  INDICATES  WHAT  ACTION  IS  TO  BE  TAKEN,  THE 
NOUN  CODE  INDICATES  TO  WHAT  THIS  ACTION  IS  APPLIED.  NOUNS  USUALLY 
REFER  TO  A GROUP  OE  ERASABLE  REGISTERS. 

VFRBS  ARE  GROUPED  INTO  DISPLAYS,  LOADS,  MONITORS  (DISPLAYS  THAT  ARE 
UPDATED  ONCE  PER  SECOND),  SPECIAL  FUNCTIONS,  AND  EXTENDED  VERBS! THESE 
ARE  OUTSIDE  OF  THE  DOMAIN  OF  PINBALL  AND  CAN  BE  FOUND  UNDER  LOG  SECTION 
: EXTENDED  VFRBS:). 

A LIST  OF  VERBS  AND  NOUNS  IS  GIVEN  IN  LOG  SECTION  : ASS  EMBL Y AND 
OPERATION  INFORMATION:. 


CALLING  SECUENCES- 
KEYBOARD: 

EACH  DEPRESSION  OF  A KEYBOARD  BUTTON  ACTIVATES  INTERRUPT  KEYRUPT1 
AND  PLAGES  THE  5 BIT  KEY  CODE  INTO  CHANNEL  15.  KEYRUPT1  PLACES  THE  KEY 
CODE  INTO  MPAC,  ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE  KEYBOARD  AND  DISPLAY 
PROGRAM  (AT  : C HA R I N : ) , AND  EXECUTES  A RESUME. 


UPL  INK  : 

EACH  WORD  RECEIVED  BY  THE  UPLINK  ACTIVATES  INTERRUPT  UPRUPT  WHICH 
PLACES-THE  5 BIT  KEY  CODE  INTO  MPAC,  ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE 
KEYBOARD  AND  DISPLAY  PROGRAM  (AT:CHARIN: ) AND  EXECUTES  A RESUME. 

INTERNAL  PROGRAMS : 

INTERNAL  PROGRAMS  CALL  PINBALL  AT  :NVSUB:  WITH  THE  DESIRED  VERB/NOUN 
COCE  IN  A (LOW  7 BITS  FOR  NOUN,  NEXT  7 BITS  FOR  VERB).  DETAILS 
DESCRIBED  ON  REMARKS  CARDS  JUST  BEFORE  :NVSUB:  AND  :NVSBWAIT:  (SEE 
SYMBOL  TABLE  FOR  PAGE  NUMBERS). 


NORMAL  EXIT  MODES- 

IF  PINBALL  WAS  CALLED  BY  EXTERNAL  ACTION,  THERE  ARE  FOUR  EXITS: 

1)  ALL  BUT  (2),  (3),  AND  (4)  EXIT  DIRECTLY  TO  ENDQF  JOB . 

2)  EXTENDED  VERBS  GO  TO  THE  EXTENDED  VERB  FAN  AS  PART  OF  THE 
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R0046 15  PINBALL  EXECUTIVE  JOB  WITH  PRIORITY  30000.  IT  IS  THE 

R00462  RESPONSIBILITY  OF  THE  EXTENDED  VERB  CALLED  TO  EVENTUALLY 

R00463  CHANGE  PRIORITY  1IF  NECESSARY)  AND  DO  AN  ENDQFJOB._ 

R004635  ALSO  PINBALL  IS  A NOVAC  JOB.  EBANK  SET  FOR  COMMON. 

R 0046 A 3)  VERB  37.  CHANGE  OF  PROGRAM  (MAJOR  MODE)  CALLS  :V37:  IN  THF 

R00465  SERVICE  ROUTINES  AS  PART  OF  THE  PINBALL  EXEC  JOB  WITH  PRIO 

R00466  30000.  THE  NEW  PROGRAM  CODE  (MAJOR  MODE)  IS  LEFT  IN  A. 

R00467  4)  KEY  RELEASE  BUTTON  CALLS  : P I NBRNCH:  IN  THE  DISPLAY  INTERFACE 

R0046  8 ROUT  I NES  AS  PART  OF  THE  PINBALL  EXEC  JOB  WITH  PRIO  30000  IF 

R 0046 9 THE  KEY  RELEASE  LIGHT  IS  OFF  AND  : CADRSTOR : IS  NOT  +0. 

R0047  IF  PINBALL  WAS  CALLED  BY  INTERNAL  PROGRAMS.  EXIT  FROM.  PINBALL  IS  BACK 

R0048  TO  CALLING  ROUTINE.  DETAILS  DESCRIBED  IN  REMARKS  CARDS  JUST  BEFORE 
R 0049  : N V SUB  : AND  :NVSBWAIT:  (SEE  SYMBOL  TABLE  FOR  PAGE  NUMBERS). 


R0050  ALARM  OR  ABORT  EXIT  MODES- 


R0051  EXTERNAL  INITIATION: 

R0052  IF  SOME  IMPROPER  SEQUENCE  OF  KEY  CODES  IS  DETECTED,  THE  0 PFRATOR 

R0053  ERROR  LIGHT  IS  TURNED  ON  AND  EXIT  IS  TO  : ENDOF JOB : . 

R0054  INTERNAL  PROGRAM  INITIATION: 

ROO  5 5 IF  AN  ILLEGAL  V/N  COMBINATION  IS  ATTEMPTED,  AN  ABORT  IS  CAUSED 

R0056  (WITH  OCTAL  01501). 

R00561  IF  A SECOND  ATTEMPT  IS  MADE  TO  GO  TO  SLEEP  IN  PINBALL,  AN  ABORT  IS 

ROO 562  CAUSED  (WITH  OCTAL  01206).  THERE  ARE  TWO  WAYS  TO  GO  TO  SLEEP  IN  PINBALL: 
R00563  1 ) ENDIDLE  OR  DAT  AW A I T . 

ROO 564  2)  NVSBWAIT,  PRENVBSY,  OR  NVSUBUSY. 

R0057  CONDITIONS  LEADING  TO  THE  ABOVE  ARE  DESCRIBED  IN  FORTHCOMING  MIT/IL 
R0058  E-REPCRT  DESCRIBING  KEYBOARD  AND  DISPLAY  OPERATION  FOR  278. 


R0059  OLTPLT- 


R0060  INFORMATION  TO  BE  SENT  TO  THE  DISPLAY  PANEL  IS  LEFT  IN  THE  :D  SPTAB  : 

R0061  BUFFERS  REGISTERS  (UNDER  EXEC  CONTROL).  :DSPOUT:  (A  PART  OF  T4PUPT) 

R0062  HANDLES  THE  PLACING  OF  THE  :DSPTABi  INFORMATION  INTO  OUTPUT  CHANNEL  10 

R0063  IN  INTERRUPT. 


R0064  ERASABLE  INITIALIZATION- 

R 0065  FRESH  START  AND  RESTART  INITIALIZE  THE  NECESSARY  E REGISTERS  FOR 

R0066  PINBALL  IN  : STARTSUB:.  REGISTERS  ARE:  DSPTAB  BUFFER,  CADRSTOR, 

R0067  REQRET,  CLPASS,  DSPLOCK,  MONSAVE,  M0NSAVE1,  VERBREG,  NOUNPEG,  DSPLIST, 
R0068  DSPCOUNT,  NCUT. 

R0069  A COMPLETE  LIST  OF  ALL  THE  ERASABLES  (BOTH  RESERVED  AND  TFMPORARIES)  FOR 


4 04 
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R0070 

PINeALL  IS  GIVEN  BELOW. 

R0071 

TFE  FOLLOWING  ARE  OF  GENERAL  INTEREST- 

R0072 

R0073 

REMARKS  CAROS  PRECEDE  THE  REFERENCED  SYMBOL  DEFINITION.  SEE  SYMBOL 

TABLE  TO  FIND  APPROPRIATE  PAGE  NUMBERS. 

R0074 

R0075 

R0076 

R0077 

NV SUB  GALLING  POINT  FUR  INTERNAL  USE  OF  PINBALL. 

OF  RELATED  INTEREST  NVSBWAIT 

NVSUBUSY 

PRENVBSY 

R0083 

R0084 

ENC  IDLE  ROUTINE  FOR  INTERNAL  PROGRAMS  WISHING  TO  GO  TO  SLEEP  WHILF 

AWAITING  OPERATORS  RESPONSE. 

R00851 

R00852 

DSPMM  ROUTINE  BY  WHICH  AN  INTERNAL  PROGRAM  MAY  DISPLAY  A DECIMAL 

PROGRAM  CODE  (MAJOR  MODE)  IN  THE  PROGRAM  (MAJOR  MODE)  LIGHTS. 

R008525  ( DSPMM  DOES  NOT  DISPLAY  DIRECTLY  BUT  ENTERS  EXEC  REQUEST 

R008527  FOR  DSPMMJB  WITH  PRIO  30000  AND  RETURNS  TO  CALLER.) 


R00853 
ROO  854 

BLANKSUE  ROUTINE  BY  WHICH  AN  INTERNAL  PROGRAM  MAY  BLANK  AMY 

COMBINATION  OF  THE  DISPLAY  REGISTERS  Rl,  P2,  P3. 

R00855 

R00856 

JAMTERM  ROUTINES  BY  WHICH  AN  INTERNAL  PROGRAM  MAY  PERFORM  THE 

JAMPROC  TERMINATE  (V  34)  OR  PROCEED  (V  33)  FUNCTION. 

R0086 

MONITOR  VERBS  FOR  PERIODIC  ( 1 PER  SEC)  DISPLAY. 

R00861 
ROO  862 
R00863 
ROO 86 4 

PLEASE  -PERFORM , PLEASE  MARK  SITUATIONS 

REMARKS  DESCRIBING  HOW  AN  INTERNAL  ROUTINE  SHOULO  HANDLE 
THESE  SITUATIONS  CAN  BE  FOUND  JUST  BEFORE  :NVSUB:  (SEE 
SYMBOL  TABLE  FOR  PAGE  NUMBER). 

R0087 

TT0088 

THE  NOUN  TABLE  FORMAT  IS  DESCRIBED  ON  A PAGE  OF  REMARKS  CARDS  JUST 
BEFORE  iOSPABC:  { SEE  SYMBOL  TABLE  FOR  PAGE  NUMBER). 

R0089 

R00891 

THE  NOUN  TABLES  THEMSELVES  ARE  FOUND  IN  LOG  SECTION  : P INB  ALL  NOUN 
TABLES:. 

R 0090 
R0091 
R0092 

FOR  FURTHER  DETAl LS  ABOUT  OPERATION  OF  THE  KEYBOARD  AND  DISPLAY  SYSTFM 
PROGRAM,  SEE  THE  MISSION  PLAN  AND/OR  MIT/IL  E-21.29 
DESCRIBING  KEYBOARD  AND  DISPLAY  OPERATION  FOR  278. 

R0150  THE  FOLLOWING  QUOTATION  IS  PROVIDED  THROUGH  THE  COURTESY  OF  THE  AUTHORS. 

R0151  : : I T WILL  BE  PROVED  TO  THY  FACE  THAT  THOU  HAST  MEN  ABOUT  THFE  THAT 

R0152  USUALLY  TALK  OF  A NOUN  AND  A VERB,  AND  SUCH  ABOMINABLE  WORDS  AS  NO 
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R0153 

CHRISTIAN  EAR  CAN  ENDURE  TO  HEAR.:: 

A FT  ?*  SCENF  4 

R0154 

R0155 

THE  FOLLOW  IMG  ASS IGNMENTS -FOR 

PINBALL  ARE  MADE  ELSEWHERE 

80156- 

RESERVED 

FOR  P INBALL  EXECUTIVE 

K0157 

DSPCOUNT 

ERASE 

DISPLAY  POSITION  INDICATOR 

+DEC,  - DEC,  OCT  INDICATOR 

R0159 

VERBREG 

ERASE 

VERB  CODE 

R0160 

NCUNREG 

ERASE 

NOUN  CODE 

X p £ C, 

ERASE 

R I INPUT  BUFFER 

R0162 

YPEG 

ERASE 

R2  INPUT  BUFFER 

R0163 

ZREG 

ERASE 

R3  INPUT  BUFFER 

p 0164 

XREGLP 

ERASE 

LO  PART  OF  XREG  (FOR  DEC  CONV 

ONLY) 

R0165 

YREGLP 

ERASE 

LO  PART  OF  YREG  (FOR  DEC  CONV 

ONLY  ) 

R0166 

H I TEMCUT 

= YREGLP 

TEMP  FOR  DISPLAY  OF  HRS,  MIN, 

SEC 

RO]  A7 

MUST  = LOTEMOUT-1. 

R0168 

ZREC-LP 

ERASE 

LO  PART  OF  ZREG  (FOR  DFC  CONV 

ONLY) 

R0169 

LOTEMCUT 

= ZREGLP 

TEMP  FOR  DISPLAY  OF  HRS,  MIN, 

SEC 

POL  70 

MUST  = HIT  EMOUT+ 1 . 

R0171 

MODREG 

ERASE 

MODE  CODE 

R0172 

DSPLOCK 

ERASE 

KEYBOARD/SUBROUTINE  CALL  INTERLOCK 

R 01 7^ 

r ECRE  T 

ERASE 

RETURN  REGISTER  FOR  LOAD 

R0174 

LOADSTAT 

ERASE 

STATUS  INDICATOR  FOR  LOADTST 

RO  175 

CL  PAS  S 

ERASE 

PASS  INDICATOR  CLEAR 

R 0-1  76 

NJfllJ  T 

ERASE 

ACTIVITY  COUNTER  FOR  DSPTAB 

RO  177 

NCUNC ADR 

ERASE 

MACHINE  CADR  FOR  NOUN 

R0178 

MCNSAVE 

ERASE 

N/V  CODE  FOR  MONITOR.  (=  M0NSAVE1- 

1) 

R01  79 

MCN  SAVE1 

ERASE 

NOUNCADR  FOR  MON I TOR ( M ATBS ) =1 

MON  SAVE  +1 

R01795 

MCNSAVE2 

ERASE 

NVMONOPT  OPTIONS 

R0180 

DSP  TA  E 

ERASE  +13D 

0-10, DISPLAY  PANEL  BUFFER. 11- 

13, C 

RELAYS 

R 0 1 8 1 

CACRST-CR 

EPASE 

FNDID1  F STflRAGF 

R0182 

NVCTEM 

ERASE 

NV  SUB  STORAGE  FOR  CALLING  ADDRESS 

R0183 

MUST  = NVBNKTEM-1 

R01  84 

NVBNKTEM 

EPASE 

N V SI)  R STORAGE  FOR  FA)  1 TNG  BANK 

R0185 

MUST  = NVQTEM+1 

RO  1 86 

VEPeSAVE 

ERASE 

NEEDED  FOR  RECYCLE 

P 0187 

DSPL I ST 

ERASE 

WAITING  REG  FOR  DSP  SYST  INTERNAL 

USE 

R0188 

EXTV8 ACT 

REASE 

EXTENDED  VERB  ACTIVITY  INTERLOCK 

R 0 1 89 

DSPTEM1 

EPASE  +2 

BUFFER  STORAGE  AREA  1 (MOSTLY 

FOR 

TIME) 

R 01 90 

D SPTFM? 

FRA  SF  +? 

BUFFER  STORAGF  AREA  2 (MOSTLY 

FOR 

DEG ) 

R 0 19 1 

END  OF  ERASABLES  RESERVED  FOR 

PINBALL  EXECUTIVE  ACTION 
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L 

USER'S  PAGE 

NO.  5 

EO  S3 

R0193 

R0194 

DSEXIT  = I NT B 1 5+  RETURN  FOR  DSPIN 

EXITEM  = INTBI5+  RETURN  FOR  SCALE  FACTOR  ROUTINE 

SELECT 

R0195  BLANKRET  = INTB15+  RETURN  FOR  2 BLANK 


R0196 

WRCRET 

= 

I NTBIT15 

RETURN  FOR  5BLANK 

R Q 1 Q7 

wnR  FT 

— 

I NTS I T 15 

RETURN  FOR  DSPWD 

R 01 98 

DECRET 

= 

I NTBIT15 

RF TURN  FOR  PUTCOMIDEC  LOAD) 

R0199 

2 1 / 22  R EG 

= 

INTBIT15 

TEMP  FOR  CHARIN 

R 0200 

UPC ATRET 

- 

POLISH 

RETURN  FOR  IJPDATNN,  UPDATVB 

R0201 

CHAP 

= 

POLISH 

TEMP  FOR  CHARIN 

R 0?0? 

ERC  NT 

_ 

POL  ISH 

COUNTER  FOR  ERROR  LIGHT  RESET 

R0203 

DECOUNT 

= 

POLISH 

COUNTER  FOR  SCALING  AND  DISPLAY  (DEC) 

RQ204- 

SGfvCN 

V BUF 

TEMP  FOR  ON 

R 02  05 

NCLNTEM 

= 

V BUF 

COUNTER  FOR  MIXNOUN  FETCH 

R0206 

DISTEM 

- 

V BUF 

COUNTER  FOR  OCTAL  DISPLAY  VERBS 

R0207 

CECTEP 

— 

V BUF 

COUNTER  FOR  FETCH  (DEC  DISPLAY  VERBS) 

R0208 

SGNOFF 

= 

V BUF  +1 

TEMP  FOR  +,-  ON 

R0209 

NVTEMP 

— 

V BUF  + I 

TEMP  FOR  N V SUB 

R0210 

S FT  EM P 1 

= 

V BUF  +1 

STORAGE  FOR  SF  CONST  HI  PART  ( = SFTEMP2-1) 

R 02  1 1 

H ITEM  IN 

= 

V BUF  +1 

TEMP  FOR  LOAD  OF  HRS,  MIN,  SEC 

R02  12 

MUST  = LOTEMIN-1 . 

R0213 

CODE 

= 

V BUF  +2 

FOR  DSPIN 

R0214 

SFTEMP2 

= 

VBUF  +2 

STORAGE  FOR  SF  CONST  LO  P AR T ( = SF T EMP 1 + 1 ) 

R0215 

LCTEMIN 

= 

V BUF  +2 

TEMP  FOP  LOAD  OF  HRS,  MIN,  SEC 

R0216 

MUST  = HITEMIN+1. 

R 02 1 7 

MIXTEMP 

= 

VBUF  +3 

FOR  MIXNOUN  DATA 

R 02 18 

S1GNRFT 

VBUF  +3 

RFTIJRN  FDR  + • - ON 

R 02 1 9 

ALSO  MIXTEMP+1 

= VBUF  +4 , M I XT  EMP  + 2 = V8UF  + 5 . 

R0220 

ENTRET 

= 

DOT  INC 

EXIT  FROM  ENTER 

R0221 

WCCNT 

DOTRET 

CHAR  COUNTER  FOR  DSPWD 

R0222 

INREL 

= 

DOTRET 

INPUT  BUFFER  SELECTOR  ( X,Y,Z,  PEG  ) 

R 022  3 

DSPMMTEM 

_ 

M AT  I NC 

DSPCOUNT  SAVE  FDR  DSPNIM 

R0224 

MI  XBR 

= 

MATINC 

INDICATOR  FOR  MIXED  OR  NORMAL  NOUN 

R0225 

TEM  1 

ERASE 

F X EC  TEMP 

R0226 

DSPEL 

T EMI 

REL  ADDRESS  FOR  DSPIN 

R0227 

TEM2 

ERASE 

FX  EC  TFMP 

R0228 

DSMAG 

TEM2 

MAGNITUDE  STORE  FOR  DSPIN 

R0229 

I CADDTEM 

— 

T EM2 

MIXNOUN  INDIRECT  ADDRESS  STORAGE 

R0230 

T EM  3 

ERASE 

EXEC  TEMP 

R0231 

COUNT 

T EM3 

FOR  DSPIN 

GAP: 

L 

R0232 

R0233 

R0234 

R0235 

R0236 

R0237 

R0238 

R0239 

R0240 

R0241 

R0242 

R0243 

R0244 

R0245 

R0246 

R0247 

R0248 

R0249 

R0250 


R02501 

R02502 
R-02  50  3 
R02504 
R02506 
R02507 
R02509 


R0251 

R0252 

R0253 

A0254 

R0255 


R0256 

R 02  57 
R0258 
R0259 
R0260 
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TEM4  ERASE 

LSTPTR 

TEM4 

EXEC  TEMP 

LIST  POINTER  FOR  GRABUSY 
RETURN  FOR  RELDSP 

FREERET  = 
OSPWDRET  = 

T EM4 
T EM4 

RETURN  FOR  FREEDSP 
RETURN  FOR  DSPSIGN 
RETURN  FOR  SEPSEC 

ict-  ci 

SEPMNRET  = 

T EM4 

RETURN  FOR  SEPMIN 

TEM5-  ERASE 

— EXEC-TEMP — 

NOUNADD  = TEM5  TEMP  STORAGE  FOR  NOUN  ADDRESS 

NNADTEM  ERASE  TEMP  FOR  NOUN  ADDRESS  TABLE  ENTRY 

NNTYPTEM  ERASE  TEMP  FOP  NOUN  TYPE  TABLE  ENTRY 

I CADI T EM  ERASE  TEMP  FOR  INDIR  ADRESS  TABLF  ENTRY ( M IXNN ) 

MUST  = IDAD2TEM-1,  = IDAD3TEM-2. 

I CAD2TEM  ERASE  TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY  t M I XNN ) 

MUST  = IDADITEM+i,  = IDAD3TEM-1. 

ICAD3TEM  E RA S£ TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY U4IXNNJ 

MUST  = I DAD  IT  EM  + 2 » = IDAD2TEM+1. 

RUT  MX  TEM  ERASE  TEMP  FOR  SF  ROUT  TABLE  ENTRY ( MI XNN  ONLY) 

END  OF  TEMPORARIES  FOR  PINBALL  EXECUTIVE  ACTION 


ADDITIONAL  TEMPORARIES  FOR  PINBALL  EXECUTIVE  ACTION 

MPAC,  THRU  MPAC  +6 
BUF,  +1,  +2 
BUF2,  +1,  +2 
MPTEMP 
A-BBR-WB 

END  OF  ADDITIONAL  TEMPS  FOR  PINBALL  EXEC  ACTION 


RESERVED  FOR  PINBALL  INTERRUPT  ACTION 


DSPCNT  ERASE  COUNTER  FOR  DSPOUT 

UPLCCK  ERASE  B1T1  = UPLINK  INTERLOCK  (ACTIVATED  BY 

END  Of  ERASABLES  RESERVED  FOR  PINBALL  INTERRUPT  ACTION 


RECEPTION  OF  A BAD  MESSAGE  IN  UPLINK) 


TEMPORARIES  FOR  PINBALL  INTERRUPT  ACTION 

KEYTENP1  = W A I TEX  IT  TEMP  FOR  KEYRUPT,  UPRUPT 

DSRUPTEM  = WAITEXIT  TEMP  FOR  DSPQUT 

KEYTEMP2  = RUPTAGN  TEMP  FOR  KEYRUPT,  UPRUPT 

END  OF  TEMPORARIES  FOR  PINBALL  INTERRUPT  ACTION 
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P0261  TEE  INPUT  CODES  ASSUMED  FOR  THE  KEYBOARD  ARE, 


R0262  0 10000 

R0263  1 00001 

R0264  9 01001 

R0265  VERB  10001 

R0266  ERROR  RES10010 

R0267  KEY  RLSE  11001 

R0268  + 11010 

R0269  - 11011 

R0270  ENTER  11100 

R0271  CLEAR  11110 

R0272  N-CUN  11111 


2021112-011  19:02  NOV.  25,1963  LFMONAID.070  PAGE 

USER' S PAGE  NO.  7 EO  S3 


R0273  OUTPUT  FORMAT  FOR  DISPLAY  PANEL.  SET  OUTO  TO  A A AABCCCCCDDDDD. 

R 0274  A-S  SELECT  A RELAYWORD.  THIS  DETERMINES  WHICH  PAIR  OF  CHARACTERS  ARE 
R0275  ENERGIZED. 

R 02 76  B FOR  SPECIAL  RELAYS  SUCH  AS  SIGNS  ETC. 

R0277  C-S  5 BIT  RELAY  CODE  FOR  LEFT  CHAR  OF  PAIR  SELECTED  BY  RELAYWORD 

R0278  D-S  5 BIT  RELAY  CODE  FOR  RIGHTCHAR  OF  PAIR  SELECTED  BY  RELAYWORD. 

R0279  TEE  PANEL  APPEARS  AS  FOLLOWS, 

R0280  MCI  MD2  (MAJOR  MODE) 

R0281  V D 1 VD2  (VERB)  ND1  ND2  (NOUN) 

R0282  R 1 D 1 R 1D2  R1D3  R1D4  R1D5  (Rl) 

R0283  R2C 1 R2D2  R2D3  R2D4  R2D5  (R2) 

P02C4  R3C 1 R 3D  2 R3D3  R3D4  R3D5  (R3) 


R0285 

EACH 

OF 

THESE  IS 

GIVEN  A 

DS  PC  OUNT 

NUMBER  FOR  USE  WITHIN  COMPUTATION  ONLY 

R0286 

MD1 

25 

R 2D  1 

1 I 

ALL 

ARE  OCTAL 

R0267 

MD2 

24 

R 2D  2 

10 

R0288 

VD1 

23 

R 2D  3 

7 

R 02  89 

VD2 

22 

R2D4 

6 

R 0290 

ND1 

21 

R 2D  5 

5 

R0291 

ND2 

20 

R 3D  1 

4 

R 0292 

R ID  1 

16 

R 3D  2 

3 

R0293 

R ID  2 

15 

R 3D  3 

2 

R0294 

R 1 D 3 

14 

R3D4 

1 

R0295 

R 1D4 

13 

R 3D  5 

0 

R 02  96 

R 1 D 5 

12 

R0297 

THERE 

IS  AN  11 

REGISTFR  TABLE 

(DSPTAB)  FOR 

THE  DISPLAY  PANEL. 

R0298 

DSPTAB 

RELAYWD 

B I T 1 1 

BITS  10-6 

BITS 

5-1 

R0299 
P 03  00 

RELADC 

10 

101  1 

MD1  (25) 

MD2 

( 24) 

RO 301 — 

9 

101-0 

VD1  (23) 

VD  2 

( 22  ) 

R0302 

8 

100  1 

ND1  (21) 

ND  2 

( 20) 

R 0 30  3 

7 

1000 

R1D1 

( 16) 

409 
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R0304 

6 

0111 

+ R1 

R ID  2 (15) 

R103 

( 14) 

R0305 

5 

0110 

-R1 

R1D4  (13) 

R105 

! 12) 

010  1 

+R? 

R 2D  1 (11) 

R2D2 

(10) 

R0307 

3 

0100 

-R2 

R2D3  (7) 

R204 

I 6) 

R0308 

2 

0011 

R2D5  (5) 

R3D1 

(4) 

0010 

3 

R3D2  (3) 

- R3D3 

(2) 

R0310 

0 

0001 

-R3 

R3D4  ( 1 ) 

R3D5 

(0) 

R0311 

0000 

NO  RELAYWORD 

R0312  TEE  5 BIT  OUTPUT  RELAY  COOES  ARE: 


R0313  BLANK  00-0-00 

R 03 14  0 10101 

R0315  1 00011 

P 03 16  2 110-01- 

R0317  3 11011 

R0318  4 01111 

— R0319 5 LlllO 

R0320  6 11100 

R0321  7 10011 

— R0322 8 11101 

R0323  9 11111 


R03231  OUTPUT  BITS  USED  BY  PINBALL: 

R 03 23 2 KEY  RELEASE-LIGHT  - BIT  5 OF  CHANNEL  11 
R03233  VERB/NCUN  FLASH  - BIT  6 OF  CHANNEL  11 
R03234  OPERATOR  ERROR  LIGHT  - BIT  7 OF  CHANNEL  11 
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P0324  START  OF  EXECUTIVE  SECTION  OF  PINBALL 


0325 

40,2077 

BANK 

40 

032501  REF 

2 LAST  314 

40,  2000 

SFTLOC 

P I NB  ALL  1 

032502  40,2077  BANK 


0325  8 

REF 

1 

COUNT* 

$$/P  IN 

REF 

23 

L 

4 n i 

40* ? 077 

3 

4753 

1 

CHARIN 

CAF 

ONE 

BLOCK 

DISPLAY 

SYST 

0331 

REF 

2 

LAST 

237 

40,2100 

57 

"012 

0 

XCH 

DSPL  OCK 

MAKE 

DSP 

SYST 

BUSY 

, BUT  SAVE  OLD 

0332 

REF 

1 

40,2101 

54  115 

0 

TS 

21/22PFG 

C ( OS D LOCK ) FOR  ERROR  LIGHT  RESET. 

033?  1 

REF 

2 

LAST 

237 

40,  2102 

11 

■042 

1 

CCS 

CADPSTPR 

ALL  KEYS 

FXCCPT  ER 

TURN  ON  KR  LITE  IF 

03322 

40,2 103 

0 

2105 

1 

TC 

+ 2 

CADRSTOR 

IS  FULL. 

THIS  REMINDS  OPERATOR 

03323 

REF 

1 

40,2104 

0 

2112 

1 

TC 

CHAR IN2 

TO  RE 

-ESTABLISH  A 

FLASHING  DI SPLAY 

0332  4 

R FF 

1 

40,2  105 

4 

2156 

0 

CS 

ELFC0DE1 

WHICH 

HE 

HAS 

OBSCURED  WITH  DISPLAYS  OF 

03325 

REF 

72 

LAST 

400 

40,2  106 

6 

0154 

1 

AD 

MPAC 

HIS  OWN  (SEE 

REMARKS  PRECEDING  ROUTINE 

03326 

40,2  107 

0 

0006 

1 

EXTEND 

VBRELDSP) 

. 

03  32  7 

REF 

2 

| ART 

41  1 

40, 2110 

1 

21  12 

0 

BZ.F 

CHAP IN2 

03328 

REF 

i 

40,2111 

0 

4374 

0 

TC 

RELDSPON 

0333 

REF 

73 

LAST 

411 

40,2112 

56 

. 154 

1 

CHAR  I N2 

XCH 

MPAC 

03  34 

REF 

1 

40*  2 113 

54 

i 117 

1 

TS 

CHAP 

0335 

REF 

103 

LAST 

397 

40,2114 

5C 

) 000 

1 

INDEX 

A 

0336 

40,2115 

0 

2116 

0 

TC 

+ 1 

I NPUT 

CODE 

FUNCT ION 

0337 

R E F 

1 

40,2116 

0 

3432 

1 

TC 

CHAP  ALRM 

0 

0338 

REF 

1 

40,2117 

0 

21  75 

0 

TC 

NUM 

1 

0339 

REF 

2 

LAST 

41  1 

40, 2 120 

0 

2175 

0 

TC 

NUM 

2 

0340 

REF 

3 

LAST 

411 

40,2  121 

0 

2175 

0 

TC 

NUM 

3 

0341 

REF 

4 

LAST 

41  1 

40, 2 122 

0 

2175 

0 

TC 

NUM 

4 

0342 

REF 

5 

LAST 

^1  1 

40,2123 

0 

2175 

0 

TC 

NUM 

5 

0343 

REF 

6 

LAST 

411 

40,2124 

0 

2175 

0 

TC 

NUM 

6 

0344 

REF 

7 

LAST 

41  1 

40,2125 

0 

2175 

c 

TC 

NUM 

7 

0345 

REF 

1 

40, 2126 

0 

2161 

0 

TC 

89TE  ST 

10 

8 

0346 

REF 

2 

LAST 

411 

40,2127 

0 

2161 

0 

TC 

89TE ST 

1 1 

9 

0347 

REF 

2 

LAST 

41  1 

40, 2 130 

0 

3432 

1 

TC 

CHAR ALRM 

12 

0348 

REF 

3 

LAST 

41  1 

40, 2131 

0 

3432 

1 

TC 

CHAR ALRM 

13 

0349 

REF 

4 

LAST 

411 

40,2132 

0 

3432 

1 

TC 

CHAP  ALRM 

14 

0350 

REF 

5 

LAST 

41  1 

40, 2 133 

0 

3432 

1 

TC 

CHAP  ALRM 

15 

0351 

REF 

6 

LAST 

41  1 

40, 2134 

0 

3432 

1 

TC 

CHAR ALRM 

16 

0352 

REF 

7 

LAST 

41  1 

40,2 135 

0 

3432 

1 

TC 

CHAR  ALRM 

17 

0353 

REF 

8 

LAST 

41  1 

40, 2 136 

0 

2173 

0 

TC 

NUM  -2 

20 

0 

0354 

REF 

1 

40,2137 

0 

2354 

1 

TC 

VERB 

21 

VERB 

0355 

REF 

1 

40, 2140 

0 

3601 

0 

TC 

ERROR 

22 

ERROR  LIGHT  RESET 

0356 

REF 

8 

LAST 

41  1 

40,2  141 

0 

3432 

1 

TC 

CHAR Al RM 

23 

0357 

REF 

9 

LAST 

411 

40,2 142 

0 

3432 

1 

TC 

CHAR ALRM 

24 

0358 

REF 

10 

LAST 

41  1 

40, 2 143 

0 

3432 

1 

TC 

CHAR ALRM 

25 

0359 

REF 

11 

LAST 

4 1 1 

40, 2144 

0 

3432 

1 

TC 

CHAP  ALRM 

26 

0360 

REF 

12 

LAST 

41  1 

40,2 145 

0 

3432 

1 

TC 

CHAR ALRM 

27 

03  61  . 

REF 

_J.3 

LAST 

411 

40, 2 146 

0 

3432  1 

TC 

CHAR  ALRM 

30 

0362 

REF 

1 

40,2147 

0 

3457 

1 

TC 

VBRELDSP 

3 1 

KEY  RELEASE 

0363 

REF 

1 

40,2150 

0 

2407 

0 

TC 

POSGN 

32 

+ 
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0364 

REF  1 

40,2151 

0 

2374 

0 

TC 

NFSSGN 

33 

0365 

REF  I 

40,2152 

0 

2157 

0 

TC 

ENTERJMP 

34 

ENTER 

40t  2 1 5 3 

0 

3432 

I 

TC 

XHARALRM 

35 

03^)6 

0367 

REF  1 

40,2154 

0 

2467 

0 

TC 

CLEAR 

36 

CLEAR 

0368 

REF  1 

40,2155 

0 

2370 

1 

TC 

NOUN 

37 

NOUN 

03685 

40, 2156 
40,21^7 

00022 
0 4635 

1 

0 

ELRCODEl 

-ENTERJMP 

OCT 

TC 

22 

POST  JUMP 

0370 

REF 

1 

40^2160 

62002 

1 

CADR 

ENTER 

10  7 77 

l 

89TEST 

CCS 

D SPC  CUNT 

0372 

40, 2 162 

0 2166 

1 

TC 

+ 4 

+ 

0373 

40,2163 

0 2166 

1 

TC 

+3 

+ 0 

REF 

37 

LAST 

40  1 

40, 2 1 64 

0 5155 

0 

TC 

ENDO  F JOB 

— 

BLOCK  DATA 

IN  IF  DSPCOUNT 

0375 

REF 

38 

LAST 

412 

40,2165 

0 5155 

0 

TC 

ENDOFJOB 

-0 

0376 

REF 

4 

LAST 

352 

40,2  166 

3 6244 

0 

CAF 

THREE 

0T77 

rff 

1 

40, 2167 

7 1000 

1 

MASK 

DECBRNCH 

0378 

REF 

104 

LAST 

41  1 

40,2170 

10  000 

0 

CCS 

A 

0379 

RFF 

9 

LAST 

41  1 

40,2171 

0 2175 

0 

TC 

NUM 

I F 

DECBRNCH 

IS  +,  8 OR  9 OK 

03  80 

REF 

15 

LAST 

412 

40,2 172 

0 3432 

-X- 

TC 

CHAR ALPM 

I F 

DECBRNCH 

IS  +0,  REJECT  8 

R0381  NUM  ASSEMBLES  OCTAL  3 BITS  AT  A TIME.  FOR  DECIMAL  IT  CONVERTS  INCOMING 
R0382  WORD  AS  A FRACTION,  KEEPING  RESULTS  TO  DP. 

R0383  OCTAL  RESULTS  ARE  LEFT  IN  XREG,  YREG,  OR  ZREG.  HI  PART  OF  DEC  IN  XREG, 

R0384  YREG,  ZREG.  THE  LOW  PARTS  IN  XREGLP,  YREGLP,  OR  ZREGLP  ) 

R0385  DECBRNCH  IS  LEFT  AT  +0  FOR  OCT,  +1  FOR  + DEC,  +2  FOR  - DEC. 

R0386  IF  DSPCOUNT  WAS  LEFT  -,  NO  MORE  DATA  IS  ACCEPTED. 


0387 

REF 

54 

LAST 

397 

40, 2 173 

3 4755 

1 

CAF 

ZERO 

0388 

REF 

2 

LAST 

41  1 

40,2174 

54  117 

1 

TS 

CHAR 

03  RQ 

RFF 

4 

| AST 

4 1 ? 

40,2175 

10  7 77 

1 NUM 

CCS 

D SPC CUNT 

0390 

40,2 176 

0 2202 

0 

TC 

+ 4 

+ 

0391 

40,2177 

0 2202 

0 

TC 

+3 

+ 0 

0392 

40,2200 

0 2201 

0 

TC 

+ 1 

-BLOCK  DATA  IN 

IF 

DSPCOUNT 

IS 

0393 

REF 

39 

LAST 

412 

40,2201 

0 5155 

0 

TC 

ENDOFJOB 

-0 

0394 

REF 

1 

40,2202 

0 2324 

0 

TC 

GETINREL 

0395 

REF 

2 

L AST 

23  7 

40,2203 

1 l ' 015 

0 

CC  s 

CLPA  SS 

IF  CLPASS  IS  + 

OR 

+ 0,  MAKE 

IT 

0396 

REF 

55 

LAST 

412 

40,2204 

3 4755 

1 

CAF 

ZERO 

0397 

REF 

3 

LAST 

412 

40, 2205 

5 5 ' 01 5 

0 

TS 

CLPASS 

0398 

40,  2 206 

0 2207 

0 

TC 

+ 1 

0399 

REF 

3 

LAST 

412 

40, 2207 

50  117 

0 

INDEX 

CHAP 

0400 

REF 

2 

LAST 

172 

40,2210 

3 4066 

0 

CAF 

PELT AB 

0401 

REF 

40,2211 
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0587 

REF 

29 

LAST 

416 

40, 2470 

6 4753 

1 

AD 

ONE 

nPrifl 

40  t 2 471 

0 2473 

0 

TC 

+ 2 

0589 

REF 

30 

LAST 

417 

40,2472 

6 4753 

1 

AD 

ONE 
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REF 
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0591 

REF 
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LAST 
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40,  2 474 

3 23  30 
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INRELTAB 
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REF 
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0 

TS 
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REF 
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0 

TC 

CLPA  SHI 

+ 
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0597 

REF 

13 

LAST 

41  7 

40, 2502 

3 0137 

1 

CA 

INTEL 
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REF 
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REF 

2 
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417 

40,2507 

0 2527 

0 

TC 

LEGA  LTST 

0603 
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1 
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3 2577 

0 
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0604 

REF 
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LAST 

415 

40,2511 
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0 
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REORET 

0605 

REF 
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LAST 

417 

40, 2512 

3 0137 

1 

CA 

INREL 

0606 

RFF 

1 

40,2513 

54  125 

0 

TS 

MI  XT  EMP 

TEMP  STORAGE  FOP  INREL 

0607 

40, 2514 

0 0006 

1 

EXTEND 

0608 

REF 

7 

LAST 

41  5 

40,2515 

2 7 ' 0 0 l 

0 

DIM 

VERBPEG 

DECREMENT  VERB  AND  RE-DISPLAY 

06  09 

REF 

75 

L AST 

40  1 

40,2516 

0 4616 

1 

TC 

BANKCALL 

0610 

REF 

1 

40,2517 

62340 

1 

CADR 

UPDATVB 

0611 

REF 

2 

LAST 

417 

40,2520 

3 0125 

1 

CA 

MIXTFMP 

0612 

REF 

17 

LAST 

417 

40,2521 

54  137 

0 

TS 

INREL 

RESTORE  INREL 

0613 

REF 

1 

40,2522 

0 2525 

1 

CLEAR  1 

TC 

CLR5 

0614 

REF 

7 

LAST 

417 

40,2523 

25*015 

1 

I NCR 

CL  P A SS 

ONLY  IF  CLPASS  IS  + OR  +0, 

0615 

REF 

45 

LAST 

416 

40,2524 

0 5155 

0 

TC 

ENDOFJQR 

SET  FOR  HIGHFR  PASS. 

0616 

REF 

48 

LAST 

416 

40,2525 

22  002 

0 

CLR5 

LXCH 

0 

USFS  5BLANK  BUT  AVOIDS  ITS  TC  GETINREL 

0617 

REF 

1 

40,2526 

0 2540 

1 

TC 

5BLANK  +2 

06 18 

REF 
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LAST 
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40,2527 
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0 
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NEG2 

0619 

RFF 

1 10 

LAST 

417 

40, 2530 
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0 
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A 

0620 

REF 

49 

LAST 

417 

40,2531 

0 0002 

0 

TC 

Q 

LEGAL  INREL  G/  2 

0621 

REF 

3— 

LAST 
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40, 2532 
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1 
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CCSHOLE 

0622 

REF 

46 

LAST 

417 

40,2533 

0 5155 

0 

TC 
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ILLEGAL  I NREL=  0,1 

0623 

REF 

50 

LAST 

417 

40,2534 

0 0002 

0 

TC 

9 

LEGAL  INREL  = 2 

R 0624 

5BLANK  BLANKS 
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WORD  IN 

R 1 

, R 2 , OR 

R3.  IT 

ALSO  ZEROES  XRFG, 
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YREG 
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Z REG. 
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ANY  + DSPCOUNT  NUMBER  FOR  PERTINENT 
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DSPCOUNT 
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LAST 
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REF  111 

LAST 

41  7 
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0702 
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0 2023 

1 
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41, 2022 

0 2027 

0 

TC 

ACCE  PTWD 

OCTAL.  ANY  NUMBER  OF  CHAR  OK. 

0704 

REF 

19 

LAST 

41  8 

41, 2 02  3 

10  777 

1 

CCS 

DSPC  CUNT 

0705 

REF 

1 

41,2  024 

0 2351 

1 

TC 

GODSPALM 

LESS  THAN  5 CHAR  DECIDSPCOUNT  IS  4) 

0706 

REF 

2 

LAST 

419 

41,2025 

0 2351 

1 

TC 

GODS  PALM 

LESS  THAN  5 CHAR  DECIDSPCOUNT  IS  4) 

0707 

41, 2026 

0 2027 

0 

TC 

♦ 1 

5 CHAR  IN  (DSPCOUNT  IS  -) 

0708 

REF 
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LAST 
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41,2027 
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0 
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REF 

7 
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0 

TS 

REQR  ET 

SET  REQRET  4. 
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REF 
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41,2031 
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1 

TC 

FLASHOFF 

0711 

REF 
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LAST 

419 

41,2032 
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1 

TC 
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0712 

REF 

3 
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ENTEXIT 

= 

ENTRET 

0713 
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1 

41,2033 

03431 

1 
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ASSUMES  TC  REQMM  AT  MMCHANG. 
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0714 

41,2034 

00034 

0 

LOW  VERB 

DEC 

28 

LOWER  VERB  THAT  AVOIDS  NOUN  TEST. 



3 4755 

l 

ENTPASO 

— CAF 

ZERO 

NOUN  VERB  SUB  ENTERS  HERF 

0715 

0716 

REF 

REF 

11 

LAST 

419 

41, 2036 

55 ' 000 

1 

TS 

DECBRNCH 

0717 

REF 

3 

LAST 

415 

41,2037 

4 43  60 

1 

CS 

VD1 

BLOCK  FURTHER  NUM  CHAR,  SO  THAT  STRAY 

4 1 1 2 040 

54  777 

1 

TS 

DSPC  CUNT 

CHAR  DO  NOT  GET  INTO  VERB  OR  NOUN  LTS. 

0719 

REF 

9 

LAST 

417 

41, 2041 

4 1001 

0 

TESTVB 

CS 

VERBREG 

IF  VERB  IS  G/E  LOWVB,  SKIP  NOUN  TEST. 

0720 

REF 

1 

41,2042 

5 5 1 041 

l 

TS 

VERBSAVE 

SAVE  VERB  FOR  POSSIBLE  RECYCLE. 

0721 

REF 

1 

41, 2043 

6 2034 

1 

AD 

LOWVERB 

LOWVERB  - VB 

0722 

41,2044 

0 0006 

1 

EXTEND 

0723 

REF 

1 

41,2045 

6 2133 

1 

BZMF 

VERBFAN 

VERB  G/E  LOWVERB 

07  24 

41, 2046 

0 0006 

1 

TESTNN 

EXTEND 

VERB  L/  LOWVERB 

0725 

REF 

1 

41,2047 

3 2114 

1 

DC  A 

LODNNLOC 

SWITCH  BANKS  TO  NOUN  TABLE  READING 

0726 

REF 

3 

LAST 

320 

41,2050 

52  006 

0 

DXCH 

Z 

ROUTINE. 

n72  7 

RFF 

3 

1 AST 

319 

41 , 2 05  1 

50  140 

1 

INDEX 

MIXBR 

0728 

41,2052 

0 2052 

1 

TC 

+ 0 

0729 

41,2053 

0 2055 

0 

TC 

+ 2 

NORMAL 

0 7^0 

P EF 

1 

41,2  054 

0 22  21 

1 

TC 

MIXNCUN  _ 

MIXED 

0731 

REF 

3 

LAST 

319 

41,2055 

10  146 

0 

CCS 

NNADTEM 

NORMAL 

0732 

REF 

2 

LAST 

42  0 

41,2056 

0 2131 

0 

TC 

VERBFAN  -2 

NORMAL  IF  + 

07^ 

R EF 

3 

| AST 

4 19 

41,2057 

0 2 351 

1 

TC 

CCDS  PALM 

NOT  IN  USE  IF  +0 

0734 

REF 

i 

41,2060 

0 2064 

1 

TC 

REQADD 

SPECIFY  MACHINE  CADR  IF  - 

0735 

REF 

i 

41, 2061 

25 ' 017 

0 

I NCR 

NOUNCADR 

AUGMENT  MACHINE  CADR  IF  -0 

0736 

REF 

1 

41 , 2062 

0 4311 

0 

TC 

SETNADD 

ECADR  FROM  NOUNCADR.  SETS  FB,  NOUNADD. 

0737 

REF 

i 

41,2063 

0 2120 

0 

TC 

INTMCT8S  +2 

0738 

REF 

21 

LAST 

308 

41 ,2064 

3 4735 

1 

REQAQD 

CAF 

BIT1  5 

SET  CLPASS  FOR  PASSO  ONLY 

0739 

REF 

9 

1 AST 

419 

41,2  065 

55*015 

0 

TS 

CLPASS 

0740 

REF 

3 

LAST 

419 

41,2066 

4 42  17 

0 

CS 

E NO  I NST 

TEST  IF  REACHED  HERE  FROM  INTERNAL  OR 

0741 

REF 

1 

41,2067 

6 0136 

0 

AD 

ENTEXIT 

FROM  EXTERNAL 

0742 

41 , 2070 

0 0006 

1 

EXTEND 

0743 

41,2071 

1 2073 

0 

BZF 

+ 2 

EXTERNAL  MACH  CADR  TO  BE  SPECIFIED 

0744 

REF 

2 

LAST 

420 

41,2072 

0 2116 

0 

TC 

I NTMCTBS 

0745 

REF 

1 

41 , 2073 

0 2307 

1 

TC 

REQDATZ 

EXTERNAL  MACH  CADR  TO  BE  SPECIFIED 

0746 

REF 

12 

LAST 

420 

41,2074 

1 1*000 

1 

CCS 

DECBPNCH 

ALARM  AMD  RECYCLE  IF  DECIMAL  USED 

0747 

REF 

1 

41,2075 

0 4145 

0 

TC 

ALMC YCLE 

FOR  MCTBS . 

074  8 

REF 

4 

LAST 

420 

41,2076 

4 43  60 

1 

CS 

VC  1 

OCTAL  USED  OK 

0749 

REF 

21 

LAST 

420 

41, 2077 

54  777 

1 

TS 

DSPC  CUNT 

BLOCK  NUM  CHAP  IN 

0750 

REF 

3 

LAST 

41  1 

41, 2 10  0 

1 1 ' 042 

1 

CCS 

CADR  STOP 

0751 

41 , 2101 

0 2104 

0 

TC 

+ 3 

EXTERNAL  MCTBS  DISPLAY  WILL  LEAVE  FI  ASH 

0752 

REF 

1 

41,2  102 

0 2105 

1 

TC 

USEADD 

ON  IF  ENDIDLE  NOT  = +0. 

0753 

41 , 2 103 

0 2104 

0 

TC 

+ 1 

0754 

REF  - 

— 1— 

41 , 2 104 

0 4427 

1 

TC 

F L A S HOF' 

0755 

REF 

1 

41,2105 

57*005 

0 

USEADD 

XCH 

ZPEG 

0756 

REF 

1 

41,2  106 

0 4303 

0 

TC 

SETNCADR. 

ECADR  INTO  NOUNCADR.  SET  EB,  NOUNADD. 

0757 

41, 2107 

0 0006 

1 

EXTEND 

0758 

REF 

2 

LAST 

420 

41,2  110 

3 2114 

1 

DC  A 

LODNNLOC 

SWITCH  BANKS  TO  NOUN  TABLE  READING 

0759 

REF 

4 

LAST 

42  0 

41,2111 

52  006 

0 

DXCH 

Z 

ROUTINE. 

0760 

REF 

3 

LAST 

42  0- 

41, 2112 

0 2133 

1 

TC 

VERBFAN 

0761 
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1 
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LODNNTAB 

REF 
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0 

41,2115 
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0 

NEG5  OCT 

77772 

D PF 

p p 

LAST 

414 
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o 

I NTMCTBS  CA 

MPAC  +2 
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0 4303 
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REF 

10 
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41,2  121 

6 1001 

1 

AD 
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41,  2122 

0 0006 

1 

EXTEND 

REF 
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420 
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0 

BZF 
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DONT  DISPLAY  CAOR  IF  VB  = 05. 

REF 

2 

LAST 

416 

41,2 124 

3 4321 

0 

CAF 

P3D1 

VB  NOT  = 05.  DISPLAY  CAOR. 

REF 

23 

LAST 

420 

41,2 125 
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1 

TS 

DSPCOUNT 

REF 

2 

LAST 

420 

41,2  126 

3 1017 

0 

CA 

NOUNCADR 

REF 

1 

41, 2 127 
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L 

TC 

DSPCCTWD 

REF 

5 

LAST 

42  1 

41,2130 

0 2133 

1 

TC 

VERBFAN 

REF 

31 

L AST 

4 17 

41,2131 

6 47  53 

AD 

ONE 

REF 

3 

LAST 

42  1 

41,2132 

0 4303 

0 

TC 

SETNCADR 
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REF 

1 
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1 
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REF 
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LAST 
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41, 2134 

6 1001 

1 

AD 
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VERB-LST2C0N 

REF 
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LAST 

419 

41,2  135 

1 0 000 

0 

CCS 

A 

REF 
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1 

AD 
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41, 2 137 
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1 

TC 
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REF 
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41,2 140 

0 2146 

0 

TC 

VBFANDIR 
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REF 

84 

LAST 

42  1 

41,2141 
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0 

TS 

MPAC 

REF 

4 

LAST 
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41,2 142 
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0 

TC 

R ELD SP 

RELEASE  DISPLAY  SYST 

REF 

18 
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412 

41,2 143 
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0 

TC 

POST  JUMP 

GO  TO  GOEXTVB  WITH  VB-40  IN  MPAC. 
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1 

41, 2 144 

66000 

1 

CADR 

GOEXTVB 
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REF 
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41,2 146 

51*001 

1 
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VERBREG 
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4 1,2  147 
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0 
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REF 
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LAST 
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1 

TC 
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REF 
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REF 
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CADR 
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0 
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1 

CADR 
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V B06 
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D I SPLAY 

REF 
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0 

CADR 

DSPDPDEC 
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REF 
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CADR 

GODSPALM 

V BO  8 

SPARE 
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CADR 
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41,2171 
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0 

CADR 

MON  I TOR 
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0 
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CADR 
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CADR 
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CADR 
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1 

CADR 
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V B24 
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CADR 
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1 

CADR 
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V B26 
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1 

CADR 
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1 

CADR 

GODS  PALM 
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REF 

12 
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41,2206 
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1 

CADR 

GODS  PALM 

VB29 

SPARE 

REF 

1 

41, 2207 

63466 

0 

REQEXLOC  CADR 

VBROEXEC 

V 830 

REQUEST  EXECUTIVE 

P EF 

l 

41,2210 

63512 

1 

CADR 

VBRQWAIT 

VB3 1 

REQUEST  WAITLIST 

REF 

1 

41,2211 

61455 

1 

CADR 

VBRESEQ 

VB32 

RESEQUENCE 

REF 

1 

41,2212 

61440 

0 

CADR 

VBPROC 

VB33 

PROCEED  WITHOUT  DATA 

R FF 

1 

41,2213 

61446 

0 

CADR 

VETEPM 

V B34 

TERMINATE  CURRENT  TEST  OR  LOAD  REQ 

REF 

1 

41, 2214 

63613 

0 

CADR 

VBTSTLTS 

VB35 

TEST  LIGHTS 

REF 

1 

41,2215 
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0 

CADR 

SLAP  1 

VB36 

FRESH  START 

REF 
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LAST 
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0 

CADR 

MMCHANG 

V B37 

CHANGF  MAJOR  MODE 

REF 
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LAST 
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41,2217 
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1 

CADR 

GODSPALM 
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REF 
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LAST 
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1 
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GODSPALM 
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TEE  LIST2  VERBFAN  IS  LOCATED  IN  THE  EXTENDED  VERB  BANK. 
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P0835 

NNACTAB 

CONTAINS  A 

RELAT I VE 

ADDRESS, 

IDADDREL ( IN 

LOW  10 

BITS),  REFERRING 

R0836 

TO 

WHERE 

3 CONSECUTIVE  AODRESSES  ARE 

STORED  (IN 

IDADDTAB) . 

M T Y M nil  M 

rCTC 

DATA  . 

AND  STORES 

IM  MTXTFMP 

• + I r S F T S 

NOUNADD  FOR 

K VJ  O D i 

R0838 

n l A l\U  UiM 
MIXTEMP 

• 

-DPP 

/, 

1 AQT 

42  0 

41,  2 221 

10  1 46 

0 

MI XNOUN 

CCS 

NNAD  TEN! 

0840 

k t r 

T 

Lhj  i 

41 ,2222 

0 2226 

0 

TC 

+4 

+ IN  USE 

0841 

REF 

15 

LAST 

422 

41,  2223 

0 2351 

1 

TC 

GODSPALM 

+0  NOT  IN  USE 

0842 

41, 2224 

-0  2226 

_0 

IX 

+ 2 

- IN  USE 

0843 

41, 2225 

0 2226 

0 

TC 

+ 1 

-0  IN  USE 

0844 

REF 

10 

LAST 

294 

41, 2226 

4 6241 

1 

CS 

SIX 

0845 

REF 

Li 

LAST 

421 

41,2227 

6 1001 

_1 

AD 

VERB  PEG 

0846 

41,2230 

0 0006 

1 

EXTEND 

0847 

41,2231 

6 2233 

1 

BZMF 

+2 

VERB  L/E  6 

0848 

REF 

6 

LAST 

4-31 

41,2232 

0 2133 

-1 

TC 

VERB  FAN 

AVOID  M I XNOUN  SWAP  IF  VB  NOT  = DISPLAY 

0849 

REF 

19 

LAST 

418 

41, 2233 

3 4752 

0 

CAF 

TV  0 

0850 

REF 

1 

41, 2234 

54  117 

1 

MIXNN1 

TS 

DECCUNT 

0851 

REF 

41,2235 

6 22  60 

_L 

AD 

M I X A D 

0852 

REF 

1 

41,2236 

54  145 

0 

TS 

NOUNADD 

SET  NOUNADD  TC  MIXTEMP  + K 

0853 

REF 

2 

LAST 

423 

41,2237 

50  117 

0 

INDEX 

DECOUNT 

GET  IDADDTAB  ENTRY  F CR  COMPONENT  K 

0854 

FIEF 

2 

LAST 

31  9 

41, 2240 

3 01  50 

a 

CA 

I DAD  ITEM 

OF  NOUN. 

0855 

REF 

1 

41,  2241 

54  122 

l 

TS 

NOUNTEM 

A0856 

TEST  FOR  DPIFOR  OCT  DISPLAY).  IF  SO,  GET 

A0857 

MINOR  PART  ONLY. 

0858 

REF 

1 

41, 2242 

0 3034 

0 

TC 

SFRUTMIX 

GET  SF  ROUT  NUMBER  IN  A 

0859 

REF 

1 

41,2243 

0 2261 

0 

TC 

DPTEST 

0860 

REF 

1 

41,2244 

0 2246 

J0_ 

TC 

M I X N N2 

NO  DP 

0861 

REF 

2 

LAST 

42  3 

41, 2245 

24  122 

0 

I NCR 

NOUNTEM 

DP  GET  MINOR  PART 

0862 

REF 

3 

LAST 

423 

41, 2246 

3 0122 

0 

MIXNN2 

CA 

NOUNTEM 

0863 

REF 

3- 

LAST 

172 

41, 2247 

7 43  56 

1 

MASK 

L OW  1 l 

ESUBK  (NO  DP)  OR  IESUBK)+1  FOR  DP 

0864 

REF 

1 

41,2250 

0 4313 

1 

TC 

SETEBANK 

SET  E8ANK , LEAVE  EADRES  IN  A. 

0865 

REF 

1 13 

LAST 

42  1 

41,2251 

50  000 

1 

INDEX 

A 

PICK  UP  C ( ESUBK  ) NOT  DP 

0866 

41, 2252 

3 0000 

1 

CA 

0 

OR  C ( ( ESUBK ) +1 ) FOR  DP  MINOR  ° AR T 

0867 

REF 

2 

LAST 

423 

41, 2253 

50  145 

1 

INDEX 

NOUNADD 

0868 

41, 2254 

56  000 

1 

XCH 

0 

STORE  IN  MIXTEM  + K 

0869 

REF 

—3 

LAST 

4 23 

4J.,  2 25  5 

10  117 

1 

CCS 

DECOUNT 

0870 

REF 

1 

41,2256 

0 2234 

0 

TC 

M I X N N 1 

0871 

REF 

7 

LAST 

42  3 

41,2257 

0 2133 

1 

TC 

VERB  FAN 

0872 

REF 

3 

LAST 

41  7 

41, 2260 

0 0125 

1 

MI  X AD 

TC 

MIXTEMP 

R 08  73 
R0874 
R 0875 

DPTEST 

ENTER  WITH 
RETURNS  TO 
RETURNS  TO 

SF  ROUT  NUMBER  IN  A. 
L+l  IF  NO  DP. 

L+2  IF  DP. 

0876 

REF 

114 

LAST 

42  3 

41, 2261 

50  000 

1 DPTEST 

INDEX 

A 

0877 

41, 2262 

1 2263 

0 

TCF 

+ ) 

0878 

REF 

53 

LAST 

418 

41,2263 

0 0002 

0 

TC 

0 

OCTAL 

ONLY  NO  DP 

0879 

REF 

54 

LAST 

42  3 

41,2264 

0 0002 

0 

TC 

Q 

FRACT 

NO  DP 
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•S  PAGE  NO. 

22 

EO 

S4 

0880 

0881 

REF 

REF 

D FF 

55 

56 

LAST 

LAST 

423 
42  A 

41. 2265 

41.2266 
4 1 ,2  267 

0 

0 

1 

0002 

0002 

2301 

0 

0 

0 

TC 

TC 

TCF 

Q 

Q 

DPTEST1 

DEG  NO  DP 
ARITH  NO  DP 
DPI  OUT 

0882 

0883 

Ktr 

REF 

2 

LAST 

424 

41, 2270 

1 

2301 

0 

TCF 

DPTE ST 1 

DP20UT 

0884 

REF 

57 

LAST 

42  4 

41,2271 

0 

0002 

0 

TC 

0 

L RPOSOUT 

NO  DP  (DATA 

IN 

CHANNEL 

33) 

no  dc 

DCC 

a 

L AS  T 

/(  2 '\ 

41,  2 272 

1 

2301 

0 

TCF  - 

DPTEST1 

DP30UI  _ 

0886 

Ktr 

REF 

o 

58 

LAST 

424 

41,2273 

0 

0002 

0 

TC 

0 

H MS  NO 

DP 

0887 

REF 

59 

LAST 

424 

41,2274 

0 

0002 

0 

TC 

Q 

M/S  NO 

DP 

DQQD 

DPP 

1 A9  T 

42  4 

41, 2275 

— 1— 

2301 

0 

TCF 

DPTF ST1 

DP40UT 

U o o o 
08881 

Ktr 

REF 

60 

L AO  1 

LAST 

424 

41,2276 

0 

0002 

0 

TC 

Q 

ARITH1 

NO  OP 

08882 

REF 

61 

LAST 

424 

41,2277 

0 

0002 

0 

TC 

0 

2 INTOUT 

NO  DP  TO  GET 

HI 

PART  IN 

MPAC 

08  88  3 

REF 

*2 

L AS  T 

42  4 

41,2  300 

_ o 

0002 

0 

-TC 

Q 

360-CDU 

NO  DP 

0889 

REF 

63 

LAST 

424 

41,2301 

5C 

i 002 

0 DPTEST1 

INDEX 

0 

0890 

41,2302 

0 

0001 

0 

TC 

1 

RETURN  TO 

L + 2 

0891 

0892 

REF 
R EF 

3 

LAST 

418 

41.2303 

41.2304 

3 4317 
1-  2310 

0 

jO 

REQDATX 

CAF 

TCF 

R ID  1 

REQCOM  | 

0893 

REF 

2 

LAST 

416 

41,2305 

3 43  20 

1 

REQDATY 

CAF 

R2D1 

0894 

REF 

2 

LAST 

424 

41,2306 

1 2310 

0 

TCF 

REQCOM 

0895 

R EF 

3 

LAST 

4 2 1 

41,2307 

3 4321 

0 

REQDATZ 

CAF 

R3D1 

0896 

REF 

24 

LAST 

421 

41,  2 310 

54  777 

1 

REQCOM 

TS 

DSPC OUNT 

0897 

REF 

64 

LAST 

424 

41,2311 

4 0002 

1 

CS 

Q 

0898 

REF 

_ 9 

LAST 

4 19 

41, 2 31 2 

5 5 ' 013 

o 

TS 

REGRET 

0899 

REF 

76 

LAST 

417 

41, 2313 

0 4616 

1 

TC 

BANKCALL 

0900 

REF 

2 

LAST 

41  7 

41,2314 

60536 

1 

CAOR 

5BLANK 

090 1 

REF 

2 

LAST 

4-2  0 

41,2315 

0 4427 

4 

TC 

F LAS  HON 

0902 

REF 

2 

LAST 

420 

41,2316 

0 0136 

0 

ENDRQDAT 

TC 

ENTEXIT 

0903 

R EF 

-8 

LAST 

415 

4 1 , 2 31  7 

55 ' 002 

o 

TS 

NFIUNRFG 

0904 

REF 

65 

LAST 

424 

41, 2320 

56  002 

0 

UPDATNN 

XCH 

IY  UU  IV  I3L  u 

Q 

0905 

REF 

1 

41,2321 

54  117 

1 

TS 

UPDATRET 

0906 

41,  2 322 

0 0006 

-1 

EXTEND 

0907 

REF 

3 

LAST 

420 

41,  2323 

3 2114 

1 

DC  A 

LODN  NLDC 

SWITCH  BANKS  TO  NOUN  TABLE  READ  TNG 

0908 

REF 

5 

LAST 

42  0 

4 1, 2324 

52  006 

0 

DXCH 

Z 

ROUTINE. 

0909 

REF 

5 

LAST 

42  3 

41,2325 

10  146 

0 

CCS 

NNAD  TEM 

0910 

REF 

33 

LAST 

42  1 

41,2326 

6 4753 

1 

AD 

ONE 

NORMAL 

0911 

REF 

1 

41,2327 

1 2332 

0 

TCF 

PUTADD 

09-12— 

REF 

-2 

LAST 

424 

41,2330 

1 2333 

1 

TCF 

PUTADD  +1 

MCTBS  DONT  CHANGE  NOUNADO 

0913 

REF 

3 

LAST 

424 

41,2331 

1 2333 

1 

TCF 

RUTACD  +1 

MCTBI  DONT  CHANGE  NOUNADD 

0914 

REF 

4 

LAST 

42  1 

41,2332 

0 4303 

0 

PUT AOD 

TC 

SET  NCADR 

ECADR  INTO  NOUNCADR.  SETS  EB,  NOUNADD. 

0915- 

REF 

— 3- 

LAST 

415 

41,2333 

3 4361 

-1 

CAF 

JMDL_ 

0916 

REF 

25 

LAST 

424 

41,2  334 

54  777 

1 

TS 

DSPC  OUNT 

0917 

REF 

9 

LAST 

424 

41,2335 

3 1002 

1 

CA 

NOUNREG 

0918  REF  1 41,233*  1 2345  0 TCF  UPDAT1 


0919 

REF 

14 

LAST 

423 

41,2337 

55' 001 

0 

TS 

VERBREG 

0920— 

REF 

66 

LAST- 

4 2-4 

-41,-2  340 

56  002 

0 

UPD ATVB  XCH 

3 

0921 

REF 

2 

LAST 

424 

41,2341 

54  117 

1 

TS 

UPDA  TRFT 

0922 

REF 

5 

LAST 

420 

4 1,2  342 

3 43  60 

0 

CAF 

VD1 
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GAME 

BUTTONS 

, ANO  LIGHTS 

USER'S  PAGE  NO. 

23 

EO  S4 

0923 

REF 

26 

LAST 

424 

41,  2343 

54  777 

1 

TS 

DSPCOUNT 

0924 

REF 

15 

LAST 

424 

41, 2344 

3 1001 

1 

CA 

VERBPEG 

nq?c; 

REE 

19 

LAST 

42  1 

41,2  345 

0 4635 

0 

UPD ATI 

TC 

POST  JUMP 

CANT  USE  SWCALL  TO  GO 

TO  DSPDECVN, SINCE 

0926 

REF 

1 

41, 2346 

61317 

0 

CADR 

GOVNUPDT 

UPDATV8  CAN  ITSFLF  BE 

CALLFD 

BY  SWCALL. 

0927 

REF 

3 

LAST 

424 

41,2347 

0 0117 

0 

TC 

U PD A TRET 

0928 

REF 

2 

LAST 

420 

41, 2350 

0 4145 

0 

GOALMCYC 

TC 

ALMC YCLE 

NEEDED  BFCAUSE  BANK JUMP  CANT 

HANDLE  F/F. 

0929 

REF 

20 

LAST 

425 

41,2351 

0 4635 

0 

GODSPALM 

TC 

POST  JUMP 

0930 

REF 

2 

LAST 

42  1 

41, 2352 

61420 

0 

CADR 

DSPA LARM 
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P0931  NCUN  T ABLES 

R0932  NOLN  CODE  L/40,  NORMAL  NOUN  CASE.  NOUN  CODE  G/E  40,  MIXED  NOUN  CASE. 

R0933  FOR  NORMAL  EASE,  NNADTAB  CONTAINS  ONE  ECADR  FOR  -EACH  NOUN. 

R0934  +0  INCICATES  NOUN  NOT  USED.  - ENTRY  INDICATES  MACHINE  CADRIE  OR  F!  TO 

R0935  BE  SPECIFIED.  -1  INDICATES  CHANNEL  TO  BE  SPECIFIED.  -0  INDICATES  AUGMENT 

R 09 36  OF  LAST  MACHINE  C ADR  SUPPLIED^ — 

R0937  FOR  MIXED  CASE,  NNADTAB  CONTAINS  ONE  INDIRECT  ADORE SS ( IDADDR EL ) IN  LOW 
R0938  10  BITS,  AND  THE  -COMPONENT  CODE  NUMBER -IN- THF  HIGH  5 BITS- 

R0939  NNTYPTAB  IS  A PACKED  TABLE  OF  THE  FORM  MMMM MNNNNNP PP PP  . 


R0940  FOR  THE  NORMAL  CASE,  M-S  ARE  THE  COMPONENT  CODE  NUMBER. 
R0941  N-S  ARE  THE  SF  ROUTINE  CODE  NUMBER. 

R0942  P-S  APE  THE  SF  CONSTANT  CODE  NUMBER. 


R0943 

MIXED  CASE, M-S 

ARE 

THE 

SF 

CONST  ANT  3 

CODE 

NUMBER 

R0944 

N---S 

ARE 

O'HE- 

SF 

CONSTANT 2 

CODE 

NUMBER 

R0945 

P-S 

AR  E 

THE 

SF 

CONSTANT  1 

CODE 

NUMBER 

R0946 

N-S 

AR  E 

THE 

SF 

CONST  ANT  2 

CODE 

NUMBER 

R 0947 

P-— -S- 

AR  E 

the 

SF 

CONSTANT  1 

CODE 

NUMBER 

R0948 

P-S 

ARE 

THE 

SF 

CONST  ANT  1 

CODE 

NUMBER 

3 COMPONENT  CASE 


2 COMPONENT  CASE 
1 COMPONENT  CASE 


R0949 

R0950 

R0951 

R0952 

R0953 


THERE  IS  ALSO  AN  INDIRECT  ADDRESS  TABLE  1 IDADDTAB ) FOR  MIXED  CASE  ONLY. 
EACH  ENTRY  CONTAINS  ONE  ECADR.  IDADDREL  IS  THE  RELATIVE  ADDRESS  OF 
THE  FIRST  CF  THESE  ENTRIES. 

THERE  IS  ONE  ENTRY  IN  THIS  TABLE  FOR  EACH  COMPONENT  OF  A MIXED  NOUN 
THEY  ARE  LISTED  IN  OROER  OF  ASCENDING  K. 


R0954  THERE  IS  ALSO  A SCALE  FACTOR  ROUTINE  NUMBER  TABLE!  RUTMXTAB  ) FOR  MIXED 
R0955  CASE  ONLY.  THERE  IS  ONE  ENTRY  PER  MIXED  NOUN.  THE  FORM  IS, 

R0956  CQQQCRRRRRSSSSS 

R0957  Q-5  ARE  THE  SF  ROUTINE  3-  CODE  NUMBER  3 COMPONENT  CASE 

R 0958  R-S  ARE  THE  SF  ROUTINE  2 CODE  NUMBER 

R0959  S-S  ARE  THE  SF  ROUTINE  1 CODE  NUMBER 

R0960  R-S  ARE  THE  SF  ROUTINE- 2-  CODE  NUMBER  2 COMPONENT  CASE 

R0961  S-S  ARF  THE  SF  ROUTINE  1 CODE  NUMBER 


R0962  IN  OCTAL  DISPLAY  AND  LOAD  (OCT  OR  DEC)  VERBS,  EXCLUDE  USF  OF  VERBS  WHOSE 

R0963  COMPONENT  NUMBER  IS  GREATER  THAN  THE  NUMBER  OF  COMPONENTS  IN  NOUN. 

R0964  (ALL  MACHINE  ADDRESS  TO  BE--SPECIFIEO  NOUNS  ARE  3 COMPONENT.) 


R0967  IN  MULTI-COMPONENT  LOAD  VERBS,  NO  MIXING  OF  OCTAL  AND  DECIMAL  DATA 

R0968  COMPONENT  WORDS  IS  ALLOWED.  ALARM  IF  VIOLATION. 


R 0969  IN  DECIMAL  LOADS  OF  DATA,  5 NUMERICAL  CHARACTERS  MUST  -EE  KEYED  IN 
R0970  BEFORE  EACH  ENTER.  IF  NOT,  ALARM. 


426 


I AP : 

’0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

0983 

09  84 

0985 

0986 

0967 

0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1016 

1017 

1022 

1023 

1024 


SSEMBLE  REVISION  069 

OF  AGC  PROGRAM  LUMINARY  BY 

NASA  2021112-011 

19:02 

NOV.  25, 

1968 

LFMONA  ID. 070 

PAGE 

PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

USER 

• S 

PAGF 

NO.  25 

EO  S4 

DISPLAY  VERBS 

REF 

20 

LAST 

42  3 

41,2353 

4 4752 

1 

DSP ABC 

CS 

TWO 

REF 

1 

41,2354 

0 2424 

_1 

TC 

COMPTEST 

RFF 

3 

LAST 

42  3 

41, 2355 

50  145 

1 

INDEX 

NOUN  ADD 

41,  2356 

4 0002 

1 

CS 

2 

ope 

39 

OAS-T 

34-9 

41, 2 35  7 

56  132 

1 

XCH 

BUF  +2_. 

r\  C r 

REF 

34 

LAST 

424 

41,2360 

4 4753 

0 

DSP  AB 

CS 

ONE 

REF 

2 

LAST 

42  7 

41,2361 

0 2424 

l 

TC 

COMPTEST 

REF 

4. 

L AST 

4. 2 7 

41,2  362 

50  145 

_1 

INDEX 

NOUNADD 

41,2363 

4 0001 

1 

CS 

1 

REF 

40 

LAST 

427 

41, 2364 

56  131 

1 

XCH 

BUF  +1 

REF 

L 

41,2365 

0 2443 

-0 

DSP  A 

TC 

DECTEST 

REF 

1 

41,2366 

0 2466 

1 

TC 

TSTFORDP 

REF 

5 

LAST 

427 

41, 2367 

50  145 

1 

INDEX 

NOUNADD 

41,2370 

4 0000 

0 

CS 

0 

REF 

41 

LAST 

427 

41,2371 

56  130 

0 

DSPC0M1 

XCH 

BUF 

REF 

1 

41,2372 

0 2405 

1 

TC 

DSPC0M2 

REF 

35 

LAST 

427 

41,2373 

4 4753 

0 

DSP  B 

CS 

ONE 

REF 

1 

41, 2374 

0 2437 

0 

TC 

DCOMPTST 

REF 

6 

LAST 

427 

41,2375 

50  145 

1 

INDEX 

NOUNADD 

41, 2376 

4 0001 

_1 

CS 

1 

REF 

1 

41,2377 

0 2371 

0 

TC 

DSPCCM1 

REF 

21 

LAST 

427 

41, 2400 

4 4752 

1 

DSP  C 

CS 

TWO 

R EF 

2- 

LAST 

42  7 

41,2401 

0 2437 

0 

TC 

DCOMPTST 

REF 

7 

LAST 

427 

41,2402 

50  145 

l 

INDEX 

NOUN  ADD 

41, 2403 

4 0002 

1 

CS 

2 

REF 

2- 

LAST 

42  7 

41,  2404 

0 2371 

0 

TC 

DSPC0M1 

REF 

22 

LAST 

427 

41,  2405 

4 4752 

1 

DSPC0M2 

CS 

TWO 

A 

B 

C 

AB 

ABC 

REF 

16 

LAST 

425 

41,2406 

6 1001 

1 

AD 

VERB  PEG 

-1 

-0 

+ 1 

+ 2 

+ 3 

IN  A 

REF 

115 

LAST 

423 

41,2407 

10  000 

2) 

CCS 

A_ 

+0 

+ 0 

+0 

+ 1 

♦2 

IN  A AFTER 

CCS 

REF 

1 

41,2410 

0 2413 

0 

TC 

DSPC0M3 

REF 

3 

LAST 

424 

41,2411 

0 0136 

0 

TC 

ENTEXIT 

41,2412 

0 2413 

0 

TC 

+ 1 

REF 

1 

41,2413 

54  122 

1 

DSPC0M3 

TS 

DISTEM 

+0, 

+ 1 

, + 2 

INTO  DISTEM 

REF 

1 16 

LAST 

427 

41,2414 

50  000 

1 

INDEX 

A 

RFF 

— 4- 

LAST 

4i4_ 

41,2415 

3 4317 

0 

CAF 

R1D1 

REF 

27 

LAST 

425 

41,2416 

54  777 

1 

TS 

DSPCOUNT 

REF 

2 

LAST 

427 

41,2417 

50  122 

0 

INDEX 

DISTEM 

REF 

42 

LAST 

427 

41, 2420 

4 0130 

1 

CS 

BUF 

REF 

2 

LAST 

42  1 

41, 2421 

0 3363 

1 

TC 

DSPCCTWD 

REF 

3 

LAST 

427 

41,2422 

56  122 

0 

XCH 

DISTFM 

REF 

2 

LAST 

42  7 

41,2423 

0 2407 

0 

TC 

DSPC0M2  +2 

CCMPTEST  ALARMS  IF  COMPONENT  NUMBER  OF  VERBILOAD  OR  OCT  DISPLAY)  IS 
GREATER  THAN  THE  HIGHEST  COMPONENT  NUMBER  OF  NOUN. 


REF 

4 

LAST 

320 

41, 2424 

54  123 

0 

COMPTEST 

TS 

SFTEMP1 

REF 

67 

LAST 

424 

41,2425 

22  002 

0 

LXCH 

0 

REF 

_L_ 

41,2426 

0 2515 

1 

COM  PT  ST  1 

TC 

GFTC CMP 

REF 

1 

41,2427 

0 4331 

1 

TC 

LFFT5 

REF 

10 

LAST 

41  9 

41,2430 

7 6244 

1 

MASK 

THREE 

VERB  COMP 


427 


NOUN  COMP 
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1025 

REF 

5 

LAST 

427 

41,2431 

6 0123 

1 

AD 

SFTEMP1 

1026 

REF 

117 

LAST 

427 

41 ,2432 

10  000 

0 

CCS 

A 

41.2433 

41.2434 

0 0001 

0 

TC 

_i 

1028 

REF 

4 

— Lhj  -I-  - 

LAST 

417 

0 5677 

1 

TC 

CCSHOLE 

1029 

REF 

16 

LAST 

423 

41,2435 

0 2351 

1 

TC 

GODSPALM 

A 7 

LAST 

42  8 

4-1 . 2426 

0 0001 

0 

NDCMPTST 

JEC 

_L 

( R IT4  QF  fJTMP 

> CODE 

NUMBER)  = 

R 1032 

IF  i 

NOT, 

IT  PERFORMS 

REGULAR  COMPTEST 

1033 

REF 

6 

LAST 

42  8 

41,2437 

54  123 

0 

DCOMPTST 

TS 

SFTEMPl 

L AST 
LAST 

42  7 
427 

4 1 ,2 440 

2-2  002 

0 

LXCH 

0 

1035 

REF 

2 

41,2441 

0 2443 

0 

TC 

DECTEST 

1036 

REF 

1 

41,2442 

0 2426 

0 

TC 

C0MPTST1 

1037 

41, 2443 

0 00  06 

1 

DECTEST 

EXTEND 

1038 

REF 

85 

LAST 

42  1 

41,2  444 

22  156 

0 

QXCH 

MPAC 

R FF 

2 

L AST 

42  7 

4 ] , 2 445 

0 2515 

1 

TC 

-GET COMP 

1040 

REF 

36 

LAST 

387 

41,2446 

7 4736 

0 

MASK 

B I T 1 4 

1041 

REF 

118 

LAST 

42  8 

41, 2447 

10  000 

0 

CCS 

A 

1042 

1043 

-REE 

REF 

17 

86 

—LAST 

LAST 

42  8 
42  8 

41,-2  45  0- 
41, 2451 

0 2351 

1 

TC 

GODS  PALM 

0 0156 

0 

TC 

MPAC 

1044 

REF 

69 

LAST 

428 

41,2452 

22  002 

0 

DCTSTCYC 

LXCH 

0 

1045 

REF 

3 

LAST 

42  8 

41,2453 

0 2515 

1 

TC 

GETCOMP 

104^ 

R F F 

3 7 

| AST 

42  8 

4 1*2  454 

7 4736 

o 

MASK 

B IT  1 4 

1047 

REF 

1 19 

LAST 

428 

41,2455 

10  000 

0 

CCS 

A 

1048 

REF 

3 

LAST 

42  5 

41,2456 

0 4145 

0 

TC 

ALMC  YCLE 

P F F 

48 

L A^T 

42  8 

41-9467 

o nnm 

o 

Tf 

1 

N T E S T 

; t c 

wn- 1 n a n rft  i ritr 

QF 

: MIIMRFD1  - 1 

R 10  5 1 

IF  1 

NOT, 

I T RETURNS. 

1052 

REF 

70 

LAST 

42  8 

41,2460 

22  002 

0 

NOUNTEST 

LXCH 

Q 

10  53 

REF 

4 

L AST 

42  8 

41*2461 

0 2515 

1 

TC 

GETCOMP 

1054 

REF 

120 

LAST 

428 

41,2462 

10  000 

0 

CCS 

A 

1055 

REF 

49 

LAST 

428 

41,2463 

0 0001 

0 

TC 

L 

10  56 

REF 

50 

LAST 

42  8 

41,2464 

0 0001 

0 

TC 

L 

1057 

REF 

18 

LAST 

42  8 

41, 2465 

0 2351 

1 

TC 

GODSPALM 

1058 

REF 

71 

LAST 

428 

41,2466 

22  002 

0 

TSTEORDP 

LXCH 

Q 

1059 

REF 

6 

LAST 

424 

41, 2467 

3 0146 

1 

CA 

NNADTEM 

1060 

REF 

36 

t AST 

427 

41, 2470 

6 4753 

1 

AD 

ONE 

1061 

41,2471 

0 0006 

1 

EXTEND 

1062 

REF 

1 

41,2472 

1 2504 

0 

BZF 

CHAN  DSP 

1063 

REF 

4 

L AST 

42  0 

41,2473 

50  140 

1 

I NDEX 

M IXB  R 

1064 

41,2474 

0 2474 

1 

TC 

+ 0 

1065 

41,2475 

0 2477 

1 

TC 

+ 2 
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NOUN  COMP  - VERB  COMP 

NOUN  COMP  G/  VERB  COMP 

NOUN  COMP  L/  VERB  COMP 
NOUN  COMP  = VFRB  COMP 


- VERB  COMP 


ALARMS  IF  DEC  ONLY  BIT  = 1 (BIT4  OF  COMP 
CODE  NUMBER).  RETURNS  IF  NOT. 


ALARMS  AND  RECYCLES  IF  DEC  ONLY  BIT  = 1 
( BIT4  OF  COMP  CODE  NUMBER).  RETURNS 
IF  NOT.  USED  BY  LOAD  VERBS. 


TEST  FOR  DP.  IF  SO,  GET  MINOR  PART  ONLY. 
IF  NNADTEM  = -I,  CHANNEL  TO  BE  SPECIFIED 


NORMAL 
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1066 

REF 

51 

LAST 

42  8 

41,2476 

0 0001 

0 

TC 

L 

1067 

REF 

1 

41,2477 

0 3026 

0 

TC 

SFRUTNOR 

LAST 

42  3 

41 , 2 500 

0 2261 

0 

TC 

DPTE ST 

lUoo 

1069 

tvC  r 

REF 

4 

52 

LAST 

429 

41,2501 

0 0001 

0 

TC 

L 

1070 

REF 

8 

LAST 

427 

41, 2502 

24  145 

1 

I NCR 

NOUN  ADD 

1071  REF  53  LAST  429  41,2503  0 0001  0 TC  L 


1072  RET  3 LAST  ^21  41,2504  3 1017  0 CHANDSP  CA  NGUNCADR 

1073  REF  6 LAST  284  41,2505  7 5004  1 MASK  L0W9 

10731  41,2506  0 0006  1 EXTEND 

10732  REF  121  LAST  428  41,2507  5 0000  1 INDEX  A 

1074  41,2510  00  000  1 READ  0 

1075  REF  122  LAST  429  41,2511  4 0000  0 CS  A 

1076  RET  3 LAST  427  41,2512  1 2371  1 TCF  DSPC0M1 


1077 

1078 

RET 

REF 

2 

7 

LAST 

LAST 

319 

428 

41,  2513 
41,2514 

00147 

00146 

0 

1 

—COM  P I CK 

ADRES 

ADRES 

NNTYPTEM 

NNADTEM 

1079 

REF 

5 

LAS  T 

42  8 

41, 2515 

5 0 140 

_4 

GETCOMP 

INDEX 

M I XB  R 

1080 

REF 

1 

41,2  516 

3 2512 

0 

CAF 

CCMPICK  -l 

1081 

REF 

123 

LAST 

429 

41,2517 

50  000 

1 

INDEX 

A 

1082 

41, 2 520 

3 0000 

1 

CA 

0 

1083 

REF 

4 

LAST 

247 

41,2521 

7 4350 

1 

MASK 

H I 5 

1084 

REF 

72 

LAST 

42  8 

41,2522 

0 0002 

0 

TC 

Q 

1085 

REF 

5 

LAST 

428 

41,2523 

0 2515 

1 

DEC  DSP 

TC 

GETCOMP 

1086 

REF 

2 - 

LAST 

42  7 

41,2524 

0 4331 

1 

TC 

LEFT  5 

1087 

REF 

11 

LAST 

427 

41,2525 

7 6244 

l 

MASK 

T HP  F F 

1088 

REF 

4 

LAST 

423 

41, 2526 

54  117 

1 

TS 

DECOUNT 

1089 

RET 

— 1- 

41,2527 

54  122 

1 

DSPDCGET 

TS 

DECT  EM 

1090 

REF 

9 

LAST 

429 

41,2  530 

6 0145 

1 

AD 

NOUN  ADD 

1091 

REF 

124 

LAST 

429 

41,2531 

50  000 

1 

INDEX 

A 

1092 

41, 2532 

4 00  00 

0 

CS 

0 

1093 

REF 

2 

LAST 

429 

41,2533 

50  122 

0 

INDEX 

DECTEM 

1094 

REF 

2 

LAST 

320 

41,2534 

57' 003 

0 

XCH 

XPEG 

1095 

REF 

3 

LAST 

429 

41,2535 

10  122 

1 

CCS 

DECT  EM 

1096 

REF 

1 

41,2536 

0 2527 

0 

TC 

DSPDCGET 

1097 

REF 

65 

LAST 

420 

41,2537 

3 4755 

1 

DSPDCPUT 

CAF 

ZFPO 

1098 

REF 

87 

LAST 

42  8 

41,2540 

54  155 

I 

TS 

MPAC  +1 

1099 

REF 

88 

LAST 

429 

41,2541 

54  156 

1 

TS 

MPAC  +2 

1100 

RFF 

5 

LAST 

429 

41,2542 

50  117 

0 

INDEX 

DECOUNT 

1101 

REF 

-5 — 

LAST 

427 

41, 2543 

3 4317 

0 

CAF 

P 1D1 

1102 

REF 

28 

LAST 

427 

41,2  544 

54  777 

1 

TS 

DSPC  OUNT 

1103 

REF 

6 

LAST 

429 

41, 2545 

50  I 17 

0 

INDEX 

DECOUNT 

1104 

REF 

3 

LAST 

429 

41,2  546 

4 1003 

1 

CS 

XREG 

1105 

REF 

89 

LAST 

42  9 

41,2547 

5 4 154 

0 

TS 

MPAC 

1106 

REF 

1 

41, 2550 

0 3047 

1 

TC 

SFCONUM 
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USER'S  PAGE  NO.  27  EO  S4 

MIXED  CASE  ALREADY  HANDLED  IN  MIXNOUN 

NO  DP 

DP  E+l  INTO  NOUNADD  FOR  MINOR  PART. 


NORMAL  MIXED 

ADRES  NNTYPTEM  ADRES  NNADTEM 

C I NNTYPTEM ) CINNADTEM) 

GET  H I 5 OF  NNTYPTAB(NORM) OF  NNADT  AB ( M I X ) 


COMP  NUMBER  INTO  DECOUNT 
PICKS  UP  DATA 

DECTEM  1C0MP  +0,  2C0MP  +1,  3C0MP  +2 


CANT  USE  BUF  SINCE  DMP  USES  IT. 

MORE  TO  GET 
DISPLAYS  DATA 

DECOUNT  1C0MP  +0,  2C0MP  +1,  3C0MP  +2 


2 X ( SF  CON  NUMB  ) IN  A 


GAP: 


ASSEMBLE  REVISION— 069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112—011 


L 

PINBALL 

GAME 

BUTTONS 

, AND  LIGHTS 

1107 

REF 

7 

LAST 

42  8 

41,2551 

54 

123 

0 

TS 

SFTEMP1 

1108 

41, 2552 

0 

0006 

1 

EXTEND 

4 1 , 7 3 5 3 

3 

2565 

0 

DC  A 

GTSFOUTL 

1110 

REF 

6 

LAST 

424 

41,2554 

52 

0 06 

0 

DXCH 

Z 

1111 

REF 

6 

LAST 

429 

41,2555 

50 

140 

1 

INDEX 

MIXBR 

4 1 - 7 556 

o 

2556 

0 

-TX 

+ 0 

1113 

RFF 

1 

41,2557 

0 

2562 

1 

TC 

DSPSFNOR 

1114 

REF 

2 

LAST 

42  3 

41,2560 

0 

3034 

0 

TC 

SFRUTMI X 

41  t 7 561 

o 

2575 

1 

TX 

DFCDSP3 

1116 

REF 

2 

LAST 

429 

41,2562 

0 

3026 

0 

DSPSFNOR 

TC 

SFRUTNOR 

1117 

REF 

2 

LAST 

43  0 — 

41,2563 

0 

2575 

-1- 

TC 

DECDSP3 

1118 

REF 

29 

LAST 

429 

0777 

EB ANK= 

DSPCOUNT 

l 

41.7  564 

02141 

1 

GTSFOUT  L 

2CADR 

GTSFOUT 

1119 

REF 

1 

41, 2565 

64101 

0 

1120 

1121 

1122 

RFF 

REF 

REF 

77 

1 

7 

LAST 
l AS  T 

424 
42  9 

41,2566 
41,2  567 
41,2570 

0 4616 
61226 
10  117 

1 

0 

1 

DSPDCEND  TC 

C ADR 
CCS 

BANKCALL 

DSPDECWD 

DECOUNT 

1123 

41,2571 

0 2573 

1 

TC 

+ 2 

1124 

REF 

4 

LAST 

427 

41,2  572 

0 0136 

0 

TC 

ENTE  XIT 

1 125 

R p 

3 

LAST 

43  0 

41,2573 

54  117 

_1_ 

TS 

DECOUNT 

1126 

REF 

1 

41,2574 

0 2537 

1 

TC 

DSPDCPUT 

1127 

REF 

125 

LAST  429 

41,2575 

50  000 

1 

DECDSP3 

INDEX 

A 

1128 

REF 

1 

41,2576 

3 2600 

0 

CAF 

SFOUTABP 

l 1 2Q 

REF 

3 

| AST  421 

41  , 7 577 

0 4640 

1 

TC 

BANK JUMP 

1130 

REF 

i 

41,2600 

61416 

0 

SFOUT  ABR 

CADR 

PREDSPAL 

1131 

REF 

1 

41,2601 

62566 

o 

CADR 

DSPDCEND 

1132 

REF 

i 

41,2602 

60615 

0 

CADR 

DFGOLTSF 

1133 

REF 

i 

41, 2603 

60677 

1 

CADR 

ARTOUTSF 

1134 

REF 

1 

41, 2604 

607  10 

1 

CADR 

DPI  0 UTSF 

1135 

REF 

i 

41,2605 

607  15 

1 

CADR 

DP2PUTSF 

1136 

REF 

i 

41,2606 

60635 

1 

CADR 

LPPOSOUT 

1137 

REF 

i 

41,2607 

60717 

0 

CADR 

DP30UTSF 

1138 

REF 

i 

41, 2610 

65224 

0 

CADR 

HMSOUT 

1139 

REF 

i 

41,2611 

65277 

0 

CADP 

M/SCHlT 

1140 

REF 

2 

LAST  430 

4 1 » 2 612 

60715 

1 

CADR 

DP20UTSF 

11401 

REF 

i 

41,2613 

60704 

1 

CADR 

AP0UT1SF 

11402 

REF 

i 

41,2614 

60732 

1 

CADR 

2 INTOUT 

11403 

REF 

1 

41,2615 

60623 

0 

CADP 

360-CDU0 

1141 

41, 2616 

ENDRTOUT 

EQUALS 

R 1142 

THE  FOLLOWING 

. IS  ATYPICAL  SF 

ROUTINE  . IT  USES 

MPAC.  LEA\ 

R 1 143 

LTS 

IN  MP AC,  MPAC+1. 

ENDS  WITH 

TC  DSPDCEND 

19:02  NOV.  25,1968 


LEMONA  10.070  PAGE  430 


USER'S  PAGE  NO.  28 


EO  S4 


SWITCH  BANKS  TO  SF  CONSTANT  TABLE 
READING  ROUTINE. 

LOADS  SFTEMP1,  SFTEMP2 . 


ALL  SFOUT  ROUTINES  END  HERE 


MORE  TO  DISPLAY 


ALARM  IF  DEC  DISP  WITH  OCTAL  ONLY  NOUN 


RESU 


GAP 
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1144 

REF 

2 

LAST 

418 

40,2615 

SETLOC 

8LANKC0N 

+ 1 

rmiMT* 

U/PIN 

1 1 44  5 — 
R 1 1 45 

K LI  c.  lh:i  1 

DEGOUTSF  SCALES 

BY  .18  THE 

"LOW  14 

BITS  OF  ANGLE  * ADDING  .18 

FOR 

R 1 146 

NUMBERS 

IN  THE 

NEGATIVE  (AGC) 

RANGE. 

1147 

REF 

66 

LAST 

429 

40,2615 

3 4755 

1 

DEGOUTSF  CAF 

ZERO 

1148 

REF 

90 

LAST 

429 

40,2616 

54  156 

1 

TS 

MPAC 

+ 2 

SET 

INDEX 

FOR 

FULL 

SCALE 

1 149 

R FF 

1 

40, 2617 

0 2652 

1 

TC 

F IXRANGF 

1150 

40,2620 

0 2622 

0 

TC 

+ 2 

NO 

AUGMENT 

NEEDED 

( SFTEMP1 

AND  2 

ARE  0) 

1151 

REF 

1 

40,2621 

0 2645 

1 

TC 

SETAUG 

SET 

AUGMENTER 

ACCORDING  TO 

C(  MIPAC 

+2) 

11911 

RFF 

1 

40. 262? 

0 2 6 63 

0 

TC 

DEGCOM 

R 1 1 52 

36C- 

CCUO 

CCMPUTES 

360  - C DU  ANGLE  IN 

MPAC,  STORES  RESULT 

I N MPAC 

AND 

P 1 1 52  1 

GOE  S 

TO 

ncr.n  i it  . 

11522 

REF 

1 

40,2623 

0 2625 

1 

360-CDU0  TC 

360-CDU 

11-523  REF  2-  IASI  430  40,2624  0 2615  1 TC  DEGOUTSF 


11524 

REF 

91 

LAST 

43  1 

40, 2625 

3 0154 

1 

360-CDU  CA 

MPAC 

11575 

RFF 

7 

LAST 

39  4 

40,2626 

7 4733 

0 

MASK 

POSMAX 

IF  ANGLE  IS 

0 OR  180  DEGREES,  DO  NOTHING 

11526 

40,2627 

0 0006 

1 

EXTEND 

11527 

REF 

1 

40,2630 

1 2634 

0 

BZF 

360-CDUF 

1 1 52  8 

REF 

92 

LAST 

43  1 

40,2631 

4 0154 

0 

CS 

MPAC 

COMPUTE  360 

DFGREES  MINUS  ANGLE 

11529 

REF 

37 

LAST 

428 

40,2632 

6 4753 

1 

AD 

ONE 

115291 

REF 

93 

LAST 

43  1 

40,2633 

54  154 

0 

TS 

MPAC 

115292  RE-F  73  LAST  429  40,2634  0 0002  0 360-CDUE  TC  Q 


R 1 1 53 

LPPOSOUT 

DISPLAYS  +0 

,1,2, OR  3 

(WHOLE) 

FOR  CHANNEL  33, BITS  7-6  = 11,10, 

R 1 1 54 

m , 

nn  rfrp  pr  t i wp i y_ 

1155 

40,2635 

0 0006 

1 

LRPOSOUT  EXTEND 

1 1 56 

ref 

6 

last 

29  2 

40,  2 63F> 

00  OTT 

1 

READ  CHAN33 

1157 

40, 2637 

0 0006 

1 

EXTEND 

1158 

REF 

20 

LAST 

388 

40,2640 

7 4742 

0 

MP  BIT10  BITS  7-6  TO  BITS  2-1 

1159 

40,2641 

4 0000 

0 

COM 

1160 

REF 

12 

LAST 

429 

40, 2642 

7 6244 

1 

MASK  THREE 

1161 

REF 

94 

LAST 

43  1 

40,2643 

54  1 54 

0 

TS  MPAC 

1162  REF  2 LAST  430  40,2644  0 2677  0 TC  APTPUTSF  DISPLAY  AS  WHOLE 


1174 

1175 

REF 

95 

LAST 

43  1 

40.2645 

40.2646 

0 0006 
5 0156 

1 

0 

SETAUG 

EXTEND 

INDEX 

MPAC  +2 

LOADS  SFTEMPl  AND  SFTEMP2  WITH  THE 
DP  AUGMENTER  CONSTANT 

1176 

REF 

1 

40,2647 

3 2674 

0 

DC  A 

DEGTAB 

1177 

REF 

8 

LAST 

430 

40,2650 

52  124 

1 

DXCH 

SFTFMP1 

1178 

REF 

- 74_ 

LAST 

431 

40,2651 

0 0002 

0 

TC 

0 

1179 

REF 

96 

LAST 

43  1 

40,2652 

10  154 

0 

FIXRANGE 

CCS 

MPAC 

IF  MPAC  IS  + RETURN  TO  L+l 

1180 

REF- 

75 

LAST 

43-L 

40,2653 

0 0002 

0 

TC 

0 

IF  MPAC  IS  - RETURN  TO  L+ 2 AFTFR 

1181 

REF 

76 

LAST 

43  1 

40,2654 

0 0002 

0 

TC 

Q 

MASKING  OUT  THE  SIGN  BIT 

1182 

40,2655 

1 2656 

1 

TC  F 

+ 1 
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1183 

REF 

22 

LAST 

A20 

AO, 2656 

A A735 

0 

cs 

BIT15 

118A 

REF 

97 

LAST 

A3  1 

AO, 2657 

7 015A 

0 

MASK 

MPAC 

n r r 

4n . ? a a n 

84  1 54 

0 

T S 

MPAC 

1 1 05 
1186 

REF 

77 

L M 0 1 

LAST 

A3  1 

AO, 2661 

50  002 

0 

INDEX 

Q 

1187 

AO, 2662 

0 0001 

0 

TC 

1 

1188 

AO, 2663 

0 0006 

1 

DEGCOM 

EXTEND 

1189 

REF 

99 

LAST 

A3  2 

AO, 266A 

5 01  56 

0 

INDEX 

MPAC 

P F F 

2 

{ as  t 

43  1 

40,2  665 

3 267A 

0 

DC  A 

DEGTAB 

1191 

REF 

100 

LAST 

A 3 2 

AO, 2666 

52  155 

1 

DXCH 

MPAC 

1192 

REF 

2 

LAST 

A 1 3 

AO, 2667 

0 7306 

0 

TC 

SHOP  TMP 

REF 

9 

\ AST 

43  1 

40 , 2 670 

52  12A 

l 

DXCH 

SFTEMP1 

119A 

REF 

101 

LAST 

A3  2 

AO, 2671 

20  155 

1 

DAS 

MPAC 

1195 

REF 

1 

AO, 2672 

0 2702 

0 

TC 

SCC U TEND 

1196 

AO, 2673 

05605 

1 

DEGTAB 

OCT 

05605 

40t  ? A74 

03656 

1 

oct 

0365  6 

1198 

AO, 2675 

163  1 A 

0 

OCT 

1631  A 

1199 

AO, 2676 

31A63 

1 

OCT 

31A63 

1201 

REF 

10 

LAST 

A3  2 

AO, 2677 

52  1 2 A 

1 

ARTOUTSF 

DXCH 

SFTFMP1 

1202 

REF 

1C2 

LAST 

A3  2 

AO, 2700 

52  155 

1 

DXCH 

MPAC 

1 

R FF 

1 

4-0,2701 

0 4415 

o 

TC 

PRSHRTMP 

120A 

REF 

21 

LAST 

A25 

AO, 2702 

0 A635 

0 

SCOUTEND 

TC 

POST  JUMP 

1205 

REF 

2 

LAST 

A3  0 

AO, 2703 

62  5 66 

0 

CADR 

DSPDCEND 

1205  1 

REF 

11 

LAST 

A 3 2 

AO, 2 70A 

52  1 2 A 

1 

AR0UT1SF 

DXCH 

SFTEMP1 

12052 

REF 

1C3 

LAST 

A 3 2 

AO, 2705 

52  155 

1 

DXCH 

MPAC 

1205  3 

REF 

2 

LAST 

43  2 

40 , 2 706 

0 4415 

0 

TC 

PRSHRTMP 

1205  A 

RFF 

i 

AO,  2 707 

0 2711 

1 

TC 

L 1 A/ OUT 

1206 

REF 

i 

AO, 2710 

0 2723 

0 

DP10UTSF 

TC 

DPOUT 

1207 

REF 

1 0 A 

LAST 

A3  2 

AO, 2711 

56  156 

0 

LI A/OUT 

XCH 

MPAC 

1208 

REF 

1 05 

LAST 

432 

AO, 2712 

56  1 55 

0 

XCH 

HP  AC 

1209 

REF 

1 06 

LAST 

A3  2 

AO, 2713 

5 A 15A 

0 

TS 

MPAC 

1210 

REF 

2 

LAST 

A3  2 

AO, 2 71 A 

0 2702 

0 

TC 

SCOUTEND 

1211 

REF 

2 

LAST 

A3  2 

AO, 2715 

0 2723 

0 

DP20UTSF 

TC 

DPOUT 

1212 

REF 

3— 

LAST 

A3  2 

AO, 2 716 

0 270? 

0 

TC 

SC  DU  TEND 

1213 

REF 

3 

LAST 

43  2 

40, 2717 

0 7 77  3 

o 

0P3nMT  SF 

TC 

n poll  T 

121A 

REF 

n 

LAST 

A2  3 

AO, 2 720 

3 62A1 

0 

CAF 

SIX 

1215 

REF 

i 

AO, 2721 

0 3153 

0 

TC 

TPLE  FTN 

1216 

REF 

A 

LAST 

A3  2 

AO, 2 722 

0 2702 

0 

TC 

SCOUTEND 

+ 2 


19:02  NOV.  25,1968  LEMONAID.070  RAGE  A3? 
USER'S  PAGE  NO.  30  EO  SA 


LOADS  MULTIPLIER  , DOES  SHORTMP,  AND 
ADDS  AUGMENTER. 

ADJUSTED  ANGLE  IN  A 


HI  PART  OF  .18 

UM_£ARI_JQ£ . 1 8 

HI  PART  OF  .A 5 

LO  PART  OF  .A5 

ASSUMES  POINT  AT  LEFT  OF  no  SFCOM 

IF  CIA)  = -0,  SHORTMP  FAILS  TO  GIVF  -0. 


ASSUMES  POINT  BETWEEN  HI  AND  LO  PARTS  OF 
DP  SFCON.  SHIFTS  RESULTS  LEFT  1A,  BY 
TAKING  RESULTS  FROM  MPAC+1,  MPAC+2. 


SCALES  MP AC , MPAC  +1  BY  DP  SCALE  FACTOR 
IN  SFTEMP1,  SFTEMP2.  THEN  SCALE  RESULT 
BY  B 1 A. 


SCALES  MPAC  , MPAC  + 1 BY  DP  SCALE  FACTOR 


ASSUMES  POINT  BETWEEN  BITS  7-8  OF  HIGH 
LEFT  BY  7,  ROUNDS  MPAC+2  INTO  MPAC+1. 
SHIFT  LEFT  7. 


MASA  ? n ? 1119-011 

19:02  NOV.  25,1968  L EMON A ID .070  PAGE  433 

OHri  Aiitmouc  rcv  n iuiv  uo-7 

L 

PINEALL 

GAME 

BUT  TONS  AND  LIGHTS 

USER'S  PAGE  NO.  31  EO  S4 

12165 

REF 

107 

LAST 

432 

0162 

MPAC+6 

= 

MPAC  +6 

USE  MPAC  +6  INSTEAD  OF  OVFIND 

1 AQT 

43  2 

4<"W  2 7?3 

56  00? 

0 

DPOUT 

XCH 

Q 

1218 

REF 

1 

L M O ■ 

40,2724 

54  162 

0 

TS 

MPAC+6 

1219 

REF 

1 

40,2725 

0 2747 

1 

TC 

READLO 

GET  FRESH  DATA  FOR  BOTH  HI  AND  LO. 

LAST 

29  0 

40f  2 726 

0 72  56 

1 

TC 

T PAG  PEE 

MAKE  DP  DATA  AGREE 

1221 

REF 

2 

LAST 

41  3 

40,2727 

0 7102 

0 

TC 

DMP 

1222 

REF 

12 

LAST 

432 

40,2730 

00123 

1 

ADRES 

SFTEMP1 

12  23 

REF 

i a<;t 

4.^  ^ 

40-2731 

0 0162 

1 

TC 

MPAC  +6 

R 1223 1 

THE 

FOLLOWING 

ROUTINF  DISPLAYS  TWO  CONTIGUOUS  SP  POSITIVE  INTEGERS 

R 12232 

AS 

TWC  POSITIVE  DECIMAL  INTEGERS  IN 

RXD1-RXD2  AND  RXD4- 

RXD5  ( RXD3 

IS 

R ] 22  3 1 

R 1 

. 1HF 

TNTFGFR  IN  THF 

LOWc  R NUMBERED  ADDRESS  IS 

DI  SPl  AYED 

IN 

R 12  23  4 

RXD1-RXD2. 

1223  5 

REF 

3 

L T 

42  4 

40t 2732 

0 2536 

c 

2 INTOUT 

TC 

5BLANK 

TO  BLANK  RXD3 

122355 

REF 

2 

LAST 

415 

40,2  73  3 

0 2413 

0 

TC 

+0N 

TURN  ON  + SIGN 

12236 

REF 

108 

LAST 

433 

40,2734 

3 0154 

1 

CA 

MPAC 

1223  7 

REF 

1 

40, 2 735 

0 3306 

1 

TC 

DSPDECVN 

DISPLAY  1ST  INTEGER  (LIKE  VERB  AND  NOUN) 

122371 

REF 

13 

LAST 

43  1 

40,2736 

4 62  44 

1 

CS 

THREF 

122372 

REF 

9 

LAST 

430 

40,2737 

50  117 

0 

INDEX 

DECOUNT 

122373 

REF 

6 

LAST 

429 

40,2740 

6 4317 

0 

AD 

P ID  1 

R XD4 

122374 

REF 

30 

LAST 

430 

40,2741 

54  777 

1 

TS 

DSPCOUNT 

122375 

REF 

2 

LAST 

433 

40,2742 

0 2747 

1 

TC 

READLO 

GET  2ND  INTEGER 

122376 

REF 

1 C9 

LAST 

43  3 

40,2  743 

3 0155 

0 

CA 

MPAC  +1 

122377 

REF 

2 

LAST 

433 

40,2744 

0 33  06 

1 

TC 

DSPDECVN 

DISPLAY  2ND  INTEGER  (LIKE  VERB  AND  NOUN) 

122378 

REF 

22 

LAST 

432 

40,2745 

0 4635 

0 

TC 

POST  JUMP 

122379 

RFF 

1 AST 

4 3 ? 

4fl.  ? 744 

6?5  70 

1 

CA  DR 

nspnr.FNn 

+ 2 

R 1 ? 24 

r f a n i r prrKC  mp  frf<;h  nATA  fhr  rqtm  i 

A I 

amh  in  amh  i favfs  it  tm 

R1225 

MP AC  j MP AC  +1 . 

THIS 

IS  NEEDED 

FOR  TIME  DISPLAY. 

IT  ZEROES  MPAC+2, 

BUT 

R 122  6 

DCES  NOT 

FORCE 

TP  AGREE. 

1227 

REF 

79 

LAST 

433 

40,2747 

56  002 

0 

READLO 

XCH 

0 

1228 

REF 

8 

LAST 

1 1 4 

40,2750 

54  144 

1 

TS 

TFM4 

1229 

REF 

7 

LAST 

430 

40,2751 

50  140 

1 

INDEX 

MIXBR 

1230 

40,2752 

0 2752 

0 

TC 

+ 0 

1231 

REF 

1 

40,2753 

0 2767 

0 

TC 

RDLONOR 

1232 

REF 

10 

LAST 

433 

40, 2754 

50  117 

0 

INDEX 

DECOUNT 

1233 

REF 

3 

LAST 

42  3 

40,2755 

3 0150 

0 

CA 

IDAD  ITEM 

GET  IDADDTAB  ENTRY  FOR  COMP  K OF  NOUN. 

1234 

REF 

4 

LAST 

42  3 

40,  2 756 

7 43  56 

1 

MASK 

LOW  1 1 

E SUBK 

1235 

REF 

2— 

LAST 

42  3 

40,2757 

0 4313 

1 

TC 

SFTE  BANK 

SET  EB,  LEAVE  EADRES  IN  A. 

1236 

40,2760 

0 0006 

1 

READL01 

EXTEND 

MIXED  NORMAL 

1237 

REF 

126 

LAST 

430 

40, 2 761 

5 0000 

1 

INDEX 

A 

C(ESUBK)  C ( E ) 

1238 

40,2  762 

3 0001 

0 

DC  A 

0 

C ( ( E SUBK) +1 ) C( E+l) 

1239 

REF 

1 10 

LAST 

433 

40,2763 

52  155 

1 

DXCH 

MPAC 

1240 

REF 

67 

LAST 

43  l 

40,2764 

3 4755 

1 

CAF 

ZFRO 

1241 

REF 

111 

LAST 

43  3 

40,2765 

54  156 

1 

TS 

MPAC  +2 

1242 

REF 

9 

LAST 

43  3 

40,2766 

0 0144 

0 

TC 

TEM4 
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1243 

1244 

REF 

REF 

10 

1 

LAST 

429 

40,2  767 
40, 2770 

3 0145 
0 2760 

1 

1 

RDLONOR 

ENDRDLO 

CA 

TC 

NOUN  ADD 
READL01 

1245 

42,3224 

BANK 

42 

124501 

REF 

3 

LAST 

3 i_g  _ 

42, 2000 

SETLOC 

PINBALL3 

124502 

42, 3224 

BANK 

1245  5 

REF 

l 

COUNT* 

t $ / P IN 

1246 

REF 

78 

LAST 

430 

42,3224 

0 4616 

1 

HMSOUT 

TC 

8 ANK  CALL 

1247 

REF 

3 

LAST 

433 

42,3225 

60747 

0 

CADR 

R F AD  LO 

1248 

REF 

3__ 

LAST 

43  3 

42, 3226 

0 72  56 

1 _ 

TC 

T PAG  REE 

1249 

REF 

1 

42, 3227 

0 3413 

1 

TC 

SEPSECNR 

A 1 2 50 

1251 

REF- 

3— 

-LAST 

43-3 

42, 3230 

-0-7102 

-0 

TC 

-OMR 

1252 

REF 

1 

42,3231 

03265 

0 

ADRES 

SEC0N2 

1253 

REF 

4 

LAST 

42  4 

42, 3232 

3 4321 

0 

CAF 

R3D 1 

12  54 

REF 

31 

LAST 

43  3 

42, 3233 

54  777 

1_ 

IS 

DSPCOUNT 

1255 

REF 

79 

LAST 

434 

42,3234 

0 46  16 

1 

TC 

BANKCALL 

1256 

REF 

2 

LAST 

430 

42, 3235 

61226 

0 

CADR 

DSPDECWD 

12  57 

REF 

1 

42,3236 

0 3431 

m~ 

TC 

SEPMIN 

1258 

REF 

1 

42, 3237 

3 3267 

i 

CAF 

MI  NC  0N2 

1259 

REF 

1 12 

LAST 

433 

42, 3240 

56  154 

i 

XCH 

MP4C 

1260 

RFF 

0— 

42,3341 

55' 007 

0 

TS 

HITEMOUT 

1261 

REF 

2 

LAST 

434 

42,3242 

3 3270 

1 

CAF 

MINC0N2  +1 

1262 

RFF 

113 

LAST 

43  4 

42,3243 

56  155 

0 

XCH 

MPAC  +1 

1263 

REF 

3 

LAST 

43  2 

42,3244 

0 4415 

0 

TC 

PPSHRTMP 

A 1264 

1265 

REF 

3 

LAST 

424 

42, 3245 

3 43  20 

l 

CAF 

R2D1 

1266 

REF 

32 

LAST 

43  4 

42, 3246 

54  777 

1 

TS 

DSPC  OUNT 

1267 

REF 

80 

LAST 

434 

42,3247 

0 4616 

1 

TC 

BANKCALL 

1268 

REF 

3 

LAST 

434 

42,3250 

61226 

0 

CADR 

DSPDECWD 

1269 

42, 3251 

0 0006 

1 

EXTEND 

1270 

REF 

1 

42, 3252 

3 32  74 

0 

DC  A 

HRC0N1 

1271 

REF 

1 14 

LAST 

43  4 

42,3253 

52  155 

1 

DXCH 

MPAC 

1272 

REF 

— 2- 

LAST 

434 

42,3254 

3 1007 

1 

CA 

HITE MOUT 

1273 

REF 

4 

LAST 

434 

42, 3255 

0 4415 

0 

TC 

PRSHPTMP 

A 12  74 

12  75 

REF 

7— 

LAST 

-433 

42,3256 

3 4317- 

0 

CAE  _ 

R1D1 

1276 

REF 

33 

LAST 

43  4 

42, 3257 

54  777 

1 

TS 

DSPCOUNT 

1277 

REF 

81 

LAST 

43  4 

42, 3260 

0 4616 

1 

TC 

BANKCALL 

1278 

REF 

4 

LAST 

63  4 

42,3261 

61226 

0 

CADR 

DSPD  ECWP 

1279 

REF 

5 

LAST 

430 

42, 3262 

0 0136 

0 

TC 

ENTEXIT 

1280 

42,3  263 

25660 

o 

SECON 1 

2DEC  * 

1 666666666 

1280 

42, 3264 

31742 

1 

1281 

42, 3265 

01727 

1 

SEC0N2 

OCT 

01727 

1282 

42,3266 

012  17 

_1__ 

OCT 

0121  7 

1283 

42,3267 

00011 

1 

MINC0N2 

OCT 

0001  1 

1284 

42,3270 

32445 

0 

OCT 

32445 
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E 


READ  FRESH  DATA  FOR  HI  AND  LO  INTO  MPAC, 
MPAC+l. 

MAKE  DP  DATA  AGREE 

LEAVE  FRACT  SEC/60  IN  MPAC,  MPAC+l. LEAVE 
WHOLE  MIN  IN  BITI3  OF  LOTFMOUT  AND  ABOVE 
USE  ONLY  FRACT  SEC/60  MOD  60_ 

MULT  BY  .06 

GIVES  CENT I-SEC/10EXP5  MOD  60 

DISPLAY  SEC  MOD  60 

REMOVE  REST  OF  SECONDS 

LEAVE  FRACT  MIN/60  IN  MPAC+l.  LEAVE 
WHOLE  HOURS  IN  MPAC. 

SAVE  WHOLE  HOURS. 

USF  ONLY  FRACT  MIN/60  MOD  60 

IF  CIA)  = -0,  SHORTMP  FAILS  TO  GIVF  -0. 

MULT  BY  .0006 

GIVES  MIN/10EXP5  MOO  60 

DISPLAY  MIN  MOD  60 

M I NUTES SECONDS  HAVE  BEEN  REMOVED 


USE  WHOLE  HOURS 

IF  CIA)  = -0,  SHORTMP  FAILS  TO  GIVE  -0. 
MULT  BY  .16384 
GIVES  HOUR  S/ 1 OE  XP  5 

USE  REGULAR  DSPDECWD,  WITH  ROUND  OFF. 


E-4  B 12*  2EXP12/6000 

.06  FOR  SECONDS  DISPLAY 
.0006  FOR  MINUTES  DISLPAY 


GAP 
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1285 

1286 
1287 

1287 

1288 
1289 


1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 
1111 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 
A 1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 


PINBALL  GAME  BUTTONS  AND  LIGHTS 

42.3271  02104  0 MINC0N1  OCT  02104 

42.3272  10422  1 OCT  10422 

42.3273  05174  0 HRC0N1  2DEC  .16384 

42.3274  13261  0 

42.3275  00000  1 OCT  00000 

42.3276  00062  0 RNDCON  OCT  00062 


REF  82  LAST  434  42,3277  0 4616  1 M/SOUT  TC  BANKCALL 

REF  4 LAST  434  42,3300  60747  0 CADR  READLO 

REF  4 LAST  434  42,3301  0 7256  1 TC  T PAG  REE 

REF  115  LAST  434  42,3302  10  154  0 CCS  MPAC 

42.3303  0 3305  1 TC  +2 

42.3304  0 3336  1 TC  M/SNORM 

42.3305  6 3373  0 AD  M/SCCN1 

LAST  433  42,3306  10  000  0 CCS  A 

42,3307  0 3322  1 TC  M/SLIMIT 

LAST  435  42,3310  0 3336  1 TC  M/SNORM 

LAST  435  42,3311  0 3336  1 TC  M/SNORM 

LAST  435  42,3312  10  155  1 CCS  MPAC  +1 


42,3313 

0 3315 

0 

TC 

+ 2 

REF 

4 

LAST 

43  5 

42,3314 

0 3336 

1 

TC 

M/SNCPM 

REF 

1 

42, 3315 

6 3374 

1 

AD 

M/SC  0N2 

REF 

1 28 

4.  AST 

43  5 

42,3316 

10  000 

0 

CCS 

A 

REF 

2 

LAST 

435 

42,3317 

0 3322 

1 

TC 

M/SL IMIT 

REF 

5 

LAST 

43  5 

42,3320 

0 3336 

1 

TC 

M/SNCRM 

REF 

6 

LAST 

435 

42, 3321 

0 3336 

1 

TC 

M/SNORM 

REF 

1 17 

LAST 

435 

42,3322 

10  154 

0 

M/SLIMIT  CCS 

MPAC 

REF 

1 

42, 3323 

3 33  76 

0 

CAF 

M/SC  0N3 

REF 

1 

42, 3324 

0 3333 

1 

TC 

+ L I M I T 

REF 

2 

LAST 

435 

42, 3325 

4 3376 

1 

CS 

M/SC  0N3 

REF 

118 

LAST 

435 

42, 3326 

54  154 

0 

TS 

MPAC 

REF 

- 3- 

LAST 

43  5 

42, 3327 

4 33  77 

0 

CS 

M/SCCN3  +1 

REF 

119 

LAST 

43  5 

42, 3330 

54  155 

1 

LIMITCOM  TS 

MPAC  +1 

REF 

1 

42,  3331 

3 3375 

0 

CAF 

NORM  ADR 

REf^ 

— 2— 

EAST 

43  4 

42, 3332 

0 3414 

0 

TC 

SEPSECNR  +1 

REF 

120 

LAST 

43  5 

42, 3333 

54  154 

0 

+LIMIT  TS 

MPAC 

REF 

4 

LAST 

435 

42, 3334 

3 3377 

1 

CAF 

M/ SC  ON 3 +1 

REF 

42,3335 

0 3330 

J. 

TC 

L I M I TCOM 

REF 

1 

42, 3336 

0 3400 

0 

M/SNORM  TC 

SFPS  EC 

REF 

1 

42, 3337 

3 3371 

1 

CAF 

H ISECON 

REF 

3 

LAST 

432 

42,3340 

0 7306 

0 

TC 

SHORTMP 

REF 

14 

LAST 

433 

42,3341 

4 62  44 

1 

CS 

THREF 

REF 

34 

LAST 

43  4 

42, 3342 

26  777 

1 

ADS 

DSPC  CUNT 

REF 

83 

LAST 

43  5 

42, 3343 

0 46  16 

1 

TC 

BANKCALL 

REF 

1 

42,3344 

61266 

I 

CADR 

DSPDC2NP 

REF 

68 

LAST 

433 

42, 3345 

3 4755 

1 

CAF 

ZERO 

REF 

5 

LAST 

418 

42, 3346 

54  124 

1 

TS 

CODE 

REF 

23 

LAST 

427 

42, 3347 

4 4752 

1 

CS 

TWO 

REF  1 
REF  1 
REF  127 
REF  1 
REF  2- 
REF  3 
REF  116 
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.066. .66  UPPED  BY  2EXP-28 


.5  SEC 


READ  FRESH  DATA  FOR  HI  AND  LO  INTO  MPAC, 
MPAC+1. 

MAKE  DP  DATA  AGREE 

IF  MAG  OF  (MPAC,  MPAC+1)  G/  59  M 59  S , 
DISPLAY  59859,  WITH  PROPER  SIGN. 

MPAC  = +0.  L/  59M58.5S 

- HI  PART  OF  I59M58.5S)  +1  FOR  CCS 
MAG  OF  MPAC  - HI  PART  OF  (59M58.5S) 

G/  59M58.5S 

ORIGINAL  MPAC  = -0.  L/  59M58.5S 
L / 59M58. 5S 

MAG  OF  MPAC  = HI  PART  OF  59M58.5S 

MPAC+l  = +0.  L/  59M58.5S 

- LO  PART  OF  (59M58.5S)  +1  FOR  CCS 
MAG  OF  MPAC+1  - LO  PART  OF  (59M58.5S) 

G/  59M58.5S 

ORIGINAL  MPAC+1  = -0.  L/  59M58.5S 
L/  59M58.5S 
= 59M58.5S  LIMIT 

MPAC  CANNOT  BE  +/-  0 AT  THIS  POINT. 

FORCE  MPAC,  MPAC+1  TO  + /-  59M59.5S 

WILL  DISPLAY  59M59S  IN  DSPOECNR 


SET  RETURN  TO  M/SNORM+1. 


LEAVE  FRACT  SEC/60  IN  MPAC, MPAC+1.  LEAVE 

WHOLE  MIN  IN  BIT13  OF  LOTEMOUT  AND  ABOVE 

USE  ONLY  FRACT  SEC/60  MOD  60 

MULT  BY  .6  + 2EXP-14 

GIVES  SEC/100  MOD  60 

DSPCOUNT  ALREADY  SET  TO  RXD1 

DISPLAY  SEC  MOD  60  IN  D4D5. 


GAP: 

L 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

13  73 

1374 

1375 

1376 

1377 
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REF 

ii 

LAST 

433 

42,3350 

50  1 17 

0 

INDEX 

DECOUNT 

REF 

8 

LAST 

434 

42,3351 

6 4317 

0 

AD 

R 1D1 

RXD3 

LAST- 

4 1 R 

42t  3352 

54  143 

0 

_IS 

COUNT 

REF 

84 

LAST 

435 

42,3353 

0 4616 

1 

TC 

BANK  CALL 

BLANK  MIDDLE  CHAR 

REF 

3 

LAST 

418 

42, 3354 

61322 

0 

CADR 

DSP  I N 

LAST 

4 T 4 

4 2 1 3 3 5 5 

0 3431 

1 

IC 

SEPMIN 

REMOVE  REST  OF  SECONDS 

REF 

121 

LAST 

43  5 

42, 3356 

56  155 

0 

XCH 

M PA  C +1 

LEAVE  FRACT  MIN/60  IN  MPAC+l 

42,3357 

C 0006 

1 

EXTEND 

USE  ONLY  FRACT  MIN/60  MOD  60 

42  t 3 3A0 

7 3372 

0 

MP 

HI  MI NCON 

MULT  BY  .6  + 2FXP-7 

REF 

122 

LAST 

436 

42,3361 

52  155 

1 

DXCH 

M P AC 

GIVES  MIN/100  MOD  60 

REF 

12 

LAST 

436 

42, 3362 

50  117 

0 

INDEX 

DECOUNT 

LAST 

42r  33^3 

3 4317 

o 

CAF 

R1D1 

RXD1 

REF 

35 

LAST 

43  5 

42, 3364 

54  777 

1 

TS 

DSPC CUNT 

REF 

85 

LAST 

436 

42,3365 

0 46  16 

1 

TC 

BANKCALL 

DISPLAY  MIN  MOD  60  IN  D1D2. 

R FF 

2 

i AST 

43  5 

42, 3366 

61266 

1 

CADR 

DSPDC2NR 

REF 

23 

LAST 

433 

42, 3367 

0 4635 

0 

TC 

POST  JUMP 

REF 

4 

LAST 

43  3 

42,3370 

62570 

1 

CADR 

DSPDCEND  +2 

42,3371 

23147 

1 

HISECON 

OCT 

23147 

.6  + 2EXP-14 

42,3372 

23346 

1 

HIMINCON 

OCT 

23346 

.6  + 2EXP-7 

42, 3373 

77753 

0 

M/SC0N1 

OCT 

77753 

- HI  PART  OF  (59M58.5S)  +1 

42,3374 

41126 

1 

M/SC0N2 

OCT 

41126 

- LO  PART  OF  (59M58.5S)  +1 

P EF 

7 

LAST 

43  S 

42, 3375 

03337 

o 

NORM A OR 

ADRES 

M/SNCRM  +1 

42,3376 

00025 

0 

M/SC0N3 

OCT 

0002  5 

59M  59. 5S 

42,3377 

37016 

1 

OCT 

37016 

REF 

R-EF 

123 

j_ 

LAST 

436 

42,3400 

42,3-401 

10  155 
1 3410 

1 

0 

SEPSEC 

CCS 

TCF 

MPAC  +1 

POSEC 

IF  + , ROUND  BY  ADDING  .5  SEC 
IF  - , ROUND  BY  SUBTRACTING  .5  SEC 

REF 

2 

LAST 

436 

42,3402 

1 3410 

0 

TC  F 

POSEC 

FINOS  TIME  IN  MPAC,  MPAC+l 

42, 3403 

1 3404 

0 

TCF 

+ 1 

ROUNDS  OFF  BY  +/-  .5  SEC 

42 ,3404 

0 0006 

1 

FXTFND 

LEAVES  WHOLE  MIN  IN  8IT13  OF 

REF 

1 

42,3405 

4 32  76 

0 

DCS 

RNDCON  -1 

LOTEMOUT  AND  ABOVE. 

REF 

124 

LAST 

43  6 

42,3406 

20  155 

1 

SEPSEC1 

DAS 

MPAC 

LEAVES  FRACT  SEC/60  IN  MPAC,  MPAC+l. 

REF 

3_ 

LAST 

43  5 

42,3407 

1 3413 

0 

TCF 

SEPSECNR 

42, 3410 

0 0006 

1 

POSEC 

EXTEND 

REF 

2 

LAST 

436 

42,3411 

3 3276 

1 

DC  A 

RNDCON  -1 

REF 

— 1_ 

42,3412 

1 3406 

1 

TCF 

SEPSEC1 

REF 

80 

LAST 

433 

42,3413 

56  002 

0 

SEPSECNR 

XCH 

0 

THIS  ENTRY  AVOIDS  ROUNDING  BY  .5  SEC 

REF 

1 

42,3414 

5 4 1 44 

1 

TS 

SEPSCRET 

REF 

— 4- 

LAST 

434 

42, 3415 

0 7102 

0 

TC 

DMP 

MULT  BY  2EXP12/6000 

REF 

1 

42,3416 

03263 

0 

ADRES 

SEC  ONI 

GIVES  FRACT  SEC/60  IN  BIT12  OF  MPAC+l 

42,3417 

0 0006 

1 

EXTEND 

AND  BELOW. 

REF 

125 

LAST 

43  6 

42, 3420 

3 0155 

0 

DC  A 

MPAC 

SAVE  MINUTES  AND  HOURS 

REF 

3 

LAST 

434 

42,3421 

53*010 

0 

DXCH 

HITE  MOUT 

REF 

1 

42,3422 

0 4404 

0 

TC 

TPSL  1 

REF 

— 2— 

LAST 

436 

42, 3423 

0 4404 

JL 

TC 

TPSL1 

GIVES  FRACT  SEC/60  IN  MPAC+l,  MPAC+2. 

REF 

69 

LAST 

43  5 

42,3424 

3 4755 

1 

CAF 

ZERO 

REF 

126 

LAST 

43  6 

42, 3425 

56  1 56 

0 

XCH 

MPAC  <-2 

LEAVE  FRACT  SEC/60  IN  MPAC,  MPAC+l. 

t 
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1378 

REF 

127 

LAST 

436 

42,  3426 

56  155 

0 

XCH 

M PA  C +1 

1379 

REF 

128 

LAST 

437 

42, 3427 

56  154 

1 

XCH 

MP  AC 

1 TOA 

opc 

2 

LAST 

43  6 

42,3430 

0 0144 

0 

TC 

SEPSCRET 

IjoU 

1,01 

r\  c r 

n c c 

o , 

1 A9T 

43  6 

42, 3431 

56  002 

0 SFPMTN  XCH 

0 

FINDS  WHOLE  MINUTES  IN 

BIT13 

i 3 BA 
1382 

Ktr 

REF 

c i 
1 

42,3432 

54  144 

1 

TS 

SEPMNRET 

OF  LOTEMOUT  AMD  ABOVE. 

1383 

REF 

1 

42,  3433 

3 1010 

1 

CA 

LOTE  MOUT 

REMOVES  REST  OF  SECONDS. 

42,3434 

0 0006 

J 

EXTEND 

LEAVFS  FRACT  MIN/60  IN 

MPAC+1 . 

1 jot 

1385 

REF 

21 

LAST 

314 

42, 3435 

7 4751 

1 

MP 

B I T 3 

LEAVES  WHOLE  HOURS  IN 

MPAC. 

1386 

42,3436 

0 0006 

1 

EXTEND 

SR  12,  THROW  AWAY  LP. 

i 3 Q~y 

REF 

22 

LAST 

30  7 

42,3437 

7 4737 

1 

MP 

BIT1  3 

SR  2,  TAKE  FROM  LP.  = 

SL  12. 

L J O ( 

1388 

REF 

129 

LAST 

437 

42, 3440 

22  155 

0 

LXCH 

MPAC  +1 

THIS  FORCES  BITS  12-1 

TO  0 IF  + , 

A 13  89 

FORCES  BITS  12-1  TO  1 

IF  -. 

1390 

REF 

4 

LAST 

43  6 

42, 3441 

3 1007 

4. 

CA 

HITE MOUT 

1391 

REF 

130 

LAST 

437 

42, 3442 

54  154 

0 

TS 

MPAC 

1392 

REF 

5 

LAST 

436 

42,3443 

0 7102 

0 

TC 

DMP 

MULT  BY  1/15 

1393 

R E-F 

1 

42,3444 

03271 

0 

ADRES 

MINCCN1 

GIVES  FRACT  MIN/60  IN 

MPAC+1.  

1394 

REF 

2 

LAST 

43  7 

42,  3445 

0 0144 

0 ENDSPMIN  TC 

SEPMNRET 

GIVES  WHOLE  HOURS  IN  MPAC. 

R 1395 

THIS 

I S 

A SPECIAL  1 

3URP0S  E VERB  FOR  DISPLAYING 

A DOUBLE 

PRECISION  AGC 

R 1396 

WORD 

AS 

10  DECIMAL 

DIGITS  ON 

THE  AGC 

DISPLAY 

PANEL.  IT 

CAN  BE  USED  WITH 

R 1397 

ANY  2 

NOUN 

...  EXCEPT  MIXED  NOUNS. 

IT  DISPLAYS  THE 

CONTENTS 

R1398 

OF  THE  REGISTER  NOUNADD  IS  POINTING  TO  . IF 

USED  WITH 

NOUNS  WHICH  APE 

R1399 

INHERENTLY  NOT 

DP  : 

SUCH  AS  THE 

C DU  COUNTERS  THE  DISPLAY 

WILL  BE  GARBAGE. 

R 1400 

DISPLAY 

IS  IN 

R1  AND  R2  ONLY 

WITH  THE 

■ SIGN  IN 

R 1. 

1401 

REF 

l 

40t  ? 77 1 

SETLOC 

ENDPDLO  +1 

14015 

REF 

3 

LAST 

43  1 TO 

434: 

108  442* 

COUNT* 

$$/P  IN 

1 40? 

REF 

8 

LAST 

43  3 

40, 2771 

50  140 

1 

DSP  DP  DEC 

INDEX 

M I X B P 

1403 

40,2772 

0 2772 

1 

TC 

+ 0 

1404 

40,2773 

0 2775 

0 

TC 

+2  NORMAL  NOUN 

1405- 

RFF 

3 

LAST 

42  5 

40,  2 774 

0 3420 

1 

TC 

DSPA LARM 

1406 

40,2  775 

0 0006 

1 

EXTEND 

1407 

REF 

11 

LAST 

434 

40,2776 

5 0145 

1 

INDEX 

NOUNADD 

1408 

40,2777 

3 0001 

0 

DC  A 

0 

1409 

REF 

131 

LAST 

43  7 

40, 3000 

52  155 

1 

DXCH 

MPAC 

1410 

REF 

10 

LAST 

436 

4 0,  3 001 

3 4317 

0 

CAF 

R1D1 

1411 

REF 

36 

LAST 

436 

40, 3002 

54  777 

1 

TS 

DSPCOUNT 

1412 

REF 

70 

LAST 

436 

40,  3003 

3 4755 

1 

CAF 

ZERO 

1413 

REF 

132 

LAST 

43  7 

40,  3004 

54  156 

1 

TS 

MPAC  +2 

1414 

REF 

5 

LAST 

435 

4 0,  3 005 

0 7256 

1 

TC 

T P AG  REE 

1415 

REF 

1 

40, 3006 

0 3273 

1 

TC 

DSP2DEC 

1416 

REF 

6 

LAST 

434 

40,3007 

0 0136 

0 

ENDDPDEC 

TC 

ENTFXIT 
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P1417  LOAC  VERBS  IF  ALARM  CONDITION  IS  DETECTED  DURING  EXECUTE, 

R1418  CHECK  FAIL  LIGHT  IS  TURNED  ON  AND  ENDOFJOB.  IF  ALARM  CONDITION  IS 
R1419  DETECTED  DURING  ENTER  OF  DATA,  CHECK  FAIL  IS  TURNED  ON  AND  IT  RECYCLES 
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SWITCH  BANKS  TO  NOUN  TABLE  READING 
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SWITCH  BANKS  TO  NOUN  TABLE  RFADING 
ROUTINE. 
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SHIFTED  RIGHT  2 

DEC  COMP  BITS  IN  LOW  3 

SOME  ONES  IN  LOW  3 

ALL  ZEROS.  ALL  OCTAL.  OK 

DEC  COMP  = 7 FOP  3C0MP , =6  FOR  2C0MP 

(BUT  IT  HAS  BEEN  DECREMENTED  BY  CCS) 

MUST  MATCH  6 FOR  3C0MP , 5 FOR  2C0MP. 

ALARM  AND  RECYCLE. 

ALL  REQUIRED  ARE  DEC.  OK 


GETS  SF  ROUTINE  NUMBER  FOR  NORMAL  CASE 
CANT  USE  L FOR  RETURN.  TSTFORDP  USES  L. 


SF  ROUTINE  NUMB FR  IN  A 

GETS  SF  ROUTINE  NUMBER  FOR  MIXED  CASE 

PUT  TC  GOQ,  TC  PIGHT5,  OR  TC  LEFT5  IN  L 


LOW 5 , M 1 0 5 , OR  H15  IN  A 

GET  H 1 5 , MID5,  OR  L0W5  OF  RUTMXTAB  ENTRY 


SF  ROUTINE  NUMBER  IN  A 
GETS  2X1  SF  CONSTANT  NUMBER) 


NORMAL  NOUN 
MIXED  NOUN 

PUT  TC  GOQ,  TC  RIGHT5,  OR  TC  LFFT5  IN  L 


2 X ( SF  CONSTANT  NUMBER  ) IN  A 
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1579 

REF 

4 

LAST 

441 

41, 3071 

3 

4346 

1 

CONUMNOR  CAE 

L0W5 
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TS 
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56  002 
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XCH 

Q 

REF 

l 

41 , 3 077 

54  115 

0 

TS 

DECP  ET 

1586 

REF 

76 

LAST 

44  0 

41,3100 

3 4755 

1 

CAF 

ZERO 

1587 

REF 
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43  3 

41,3101 

54  162 

0 

TS 

MPAC+6 

1 s 88 

REF 

20 

1 AST 

44  2 

41,3  102 

50  117 

0 

INDEX 

DECOUNT 

1589 

REF 
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418 

41,3103 

57' 006 

0 

XCH 

XREGLP 

1590 

REF 

133 

LAST 

437 

41, 3104 

54  155 

1 

TS 

M PA  C +1 

1 SQ  1 

RFF 

P 1 

LAST 

442 

41 , 3105 

50  117 

0 

INDEX 

DECOUNT 

1592 

REF 

5 

LAST 

439 

41, 3106 

5 7 ' 003 

0 

XCH 

XPEG 

1593 

REF 

134 

LAST 

442 

41, 3107 

54  154 

0 

TS 

MPAC 

1 SQ4 

RFF 

1 o 

1 AST 

44  1 

41,3110 

50  140 

1 

INDEX 

MIXER 

1595 

41, 3111 

0 31  11 

0 

TC 

+ 0 

1596 

REF 

1 

41,3112 

0 3137 

1 

TC 

PUTNORM 

R 1 RQ7 

if  MryfvniiN-  pi  acf  Ann«F<;<;  fdr 

f.nMPnNFNT 

K I NTH  NOUN  ADD . 

SET  EBANK 

1598 

REF 

22 

LAST 

442 

41, 3113 

50  117 

0 

INDEX 

DECOUNT 

1599 

REF 

4 

LAST 

43  3 

41,3114 

3 0150 

0 

CA 

I DAD  ITEM 

1600 

REF 

5 

1 AST 

41  3 

41,3115 

7 43  56 

1 

MASK 

LOWl  1 

1601 

REF 

6 

LAST 

439 

41,3116 

0 4303 

0 

TC 

SETNCADR 

1602 

41,3117 

0 0006 

1 

EXTEND 

1^03 

REE 

23 

1 AST 

442 

41,  312  0 

60  117 

o 

SU 

DECOUNT 

16  04 

REF 

24 

LAST 

440 

41, 3121 

54  145 

0 

TS 

NOUNADO 

1605 

REF 

15 

LAST 

440 

41,3122 

ll'OOO 

1 

CCS 

DECERNCH 

1606 

REF 

1 

41, 3123 

0 31  74 

0 

TC 

PUT  D ECS  F 

1607 

REF 

1 

41,3124 

0 2452 

0 

TC 

DCTSTCYC 

1608 

REF 

3 

LAST 

430 

41,3125 

0 3034 

0 

TC 

SFRUTMIX 

1609 

REF 

3 

L AST 

42  9 

41,  3 126 

0 2261 

0 

TC 

DPTE  ST 

1610 

REF 

1 

41, 3 127 

0 3155 

0 

TC 

PUTC0M2 

A 161 1 

A1612 

A 1 61 3 

1614 

REF 

25 

LAST 

442 

41,3 130 

24  145 

l 

PUT  DPCOM 

I NCR 

NOUN  ADD 

1615 

REF 

26 

LAST 

442 

41 ,3131 

3 0145 

1 

CA 

NOUNADO 

1616 

REF 

24 

LAST 

44  2 

41,3132 

26  117 

1 

ADS 

DECOUNT 

1617 

REF 

77 

LAST 

442 

41,3133 

3 4755 

l 

CAF 

ZERO 

1618 

REF 

25 

L AST 

44  2 

41 , 3134 

50  117 

o 

T NDFX 

DECOUNT 

1619 

41,3135 

53' 777 

0 

TS 

0 

1620 

REF 

2 

LAST 

442 

41,3  136 

0 3155 

0 

TC 

PUTC0M2 

1621 

REF 

2 

LAST 

420 

41,3137 

0 4311 

0 

PUTNORM 

TC 

SETN ADD 

1622 

REF 

16 

LAST 

44  2 
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ll'OOO 

1 

CCS 

DECBRNCH 
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NORMAL  NOUN  ALWAYS  GETS  LOW  5 OF 
NNTYPTA8  FOR  SF  CONUM. 

2X(  SF  CONSTANT  NUMBER)  IN  A 


NORMAL  NOUN 
BITS. 

GET  IDADDTAB  ENTRY  FOR  COMPONENT  K 
OF  NOUN. 

1 ECADR ) SU BK  FOR  CURRENT  COMP  OF  NOUN 
ECADR  INTO  NOUNCADR.  SETS  EB,  NOUNADO. 
C (NOUNADD)  IN  A UPON  RETURN 
PLACE  (ESUBK)-K  INTO  NOUNADD 


± DEC  _ 

+0  OCTAL 

TEST  IF  DEC  ONLY  BIT  = 1.  IF  SO, 

ALARM  AND  RECYCLE.  IF  NOT,  CONTINUE. 

NO  DP 

TEST  FOR  DP  SCALE  FOR  OCT  LOAD.  IF  SO, 
+0  INTO  MAJOR  PART.  SET  NOUNADD  FOR 
LOADING  OCTAL  WORD  INTO  MINOR  PART. 

DP  ( ESUBK ) -K  + 1 OR  E+l 
NOUNADD  NOW  SET  FOR  MINOR  PART 
(ESUBKJ+l  OR  E+l  INTO  DFCOUNT 
NOUNADD  SET  FOR  MINOR  PART 

ZERO  MAJOR  PAPTtESUBK  OR  E) 


ECADR  FROM  NOUNCADR.  SETS  EB,  NOUNADD 
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USER' S PAGE 

NO.  41  EO  S4 

1623 

REF 

2 

LAST 

442 

41,3141 

0 3174 

0 

TC 

PUTDECSF 

+ DEC 

1624 

REF 

2 

LAST 

442 

41,3142 

0 2452 

0 

TC 

DCTSTCYC 

♦0  OCTAL 

DPP 

3 

LAST 

43  0 

41 ,3143 

0 3026 

0 

TC 

SFRUTNOR 

TFST  IF  DEC  ONLY 

BIT  = 1.  IF  SO, 

1626 

REF 

4 

LAST 

442 

41, 3144 

0 2261 

0 

TC 

DPTEST 

ALARM  AND  RECYCLE 

. IF  NOT,  CONTINUF. 

1627 

REF 

3 

LAST 

442 

41,3145 

0 3151 

1 

TC 

PUTC0M2  -4 

NO  OP 

1 

REF 

78 

LAST 

442 

41,3146 

3 4755 

1 

CAF 

ZERO 

DP 

1629 

REF 

26 

LAST 

442 

41,3147 

54  117 

1 

TS 

DECOUNT 

1630 

REF 

1 

41, 3150 

0 3130 

0 

TC 

PUTDPCOM 

1631 

REF 

8 

L AS  T 

429 

41,3151 

3 0146 

1 

CA 

NNADTEM 

1632 

REF 

43 

LAST 

440 

41, 3152 

6 4753 

1 

AD 

3NE 

I F NNADTEM  = -1 , 

CHANNEL  TO  BE  SPFCIFIED 

163^ 

41 r 3 153 

0 0006 

1 

EXTEND 

1634 

REF 

1 

41,3154 

l 3161 

0 

BZF 

CHANLOAD 

1635 

REF 

135 

LAST 

442 

41,3155 

56  154 

1 PUTC0M2 

XCH 

MPAC 

1636  REF 2~  LAST  442  41,3156  0 0115  1 TC  DECRET 


1637 

1638 

REF 

RTF 

38  LAST  440 
1 

0777 

41,3157 

02147  1 

EBANK= 

GTSFINLC  2C ADR 

DSPC OUNT 
GTSF1N 

1638 

REF 

1 

41,3160 

64101  0 

1639 

16391 

16392 

REF 

REF 

3 

4 

LAST 

LAST 

43  8 
429 

41. 3161 

41. 3162 

41.3163 

4 4757 
6 1017 
0 0006 

1 

0 

1 

CHANLOAD  CS 
AD 

EXTEND 

SEVEN 

NCUNCADR 

DONT  LOAD  CHAN  7.  (IT  = SUPER3ANK). 

16393 

REF 

8 

LAST 

440 

41, 3164 

1 2775 

1 

BZF 

LOAD  LV 

16394 

REF 

5 

LAST 

44  3 

41, 3165 

3 1017 

0 

CA 

NCUNCADR 

1640 

REF 

7 

LAST 

429 

41,3 166 

7 5004 

1 

MASK 

L0W9 

1641 

REF 

136 

LAST 

44  3 

41, 3167 

56  154 

1 

XCH 

MPAC 

1641  1 

41, 3170 

0 0006 

1 

EXTEND 

16412 

REF 

137 

LAS  T 

44  3 

41,3171 

5 0154 

_1— 

INDEX 

MPAC 

1642 

41, 3172 

01  000 

0 

WRITE 

0 

1643 

REF 

9 

LAST 

443 

41,3173 

0 2775 

0 

TC 

LOAD  LV 

R 1 644 

PUTDECSF 

FINDS 

MI  XBR 

AND  DECOUNT  STILL 

SET  FROM 

PUTCOM 

1645 

REF 
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429 

41,3174 

0 3047 

1 

PUTDECSF 

TC 

SFCONUM 

2X1SF  CON  NUMB)  IN  A 

1646 

REF 
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LAST 

43  3 

41,3175 

54  123 

0 

TS 

SFTEMP1 

1647 

41,3176 

0 0006 

1 

EXTEND 

SWITCH  BANKS  TO  SF  CONSTANT  TABLE 

1648 

REF 

1 

41 ,3177 
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0 

DC  A 

GTSF  INLC 

READING  ROUTINE. 
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REF 
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Z 
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REF 
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0 3202 
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REF 

1 

41,3203 

0 3206 
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1653 

REF 
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41,3204 
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TC 
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16  54 

REF 
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41,3205 

0 3207 
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TC 

PUTDCSF2 

1655 

REF 
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LAST 

44  3 

41,3206 

0 3026 

0 

PUT  SFNOR 

TC 

SFRUTNOR 

1656 

REF 
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LAST 
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41, 3207 

50  000 

l 

PUTDCSF2 

INDEX 

A 

1657 

REF 

1 

41, 3210 
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0 
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REF 
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1 

TC 

BANK  JUMP 

SWITCH  BANKS  FOR  EXPANSHION  ROOM 
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REF 
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41,3212 
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0 
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GOAL  MCYC 

ALARM  AND  RECYCLE  IF  DEC  LOAD 

WITH  OCTAL  ONLY  NOUN. 

1661 

REF 
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1 

CADR 

BINRCUMD 

1662 

REF 

1 

41,3214 

61010 

1 

CA  DP 
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1 

CADR 

ARTH  I NSF 
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REF 
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1 

CADR 
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1665 

REF 
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41,3217 

61141 
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CADR 

DPINSF2 

LAST 
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0 

CADR 

OSPALARM 
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REF 
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41,3221 

61114 

1 

CADR 

DPINSF 

SAME  AS  ARITHDP1 

1668 

REF 

1 

41,3222 

65446 

1 

CADR 
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RFF 
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1 AST 

444 

41, 3223 

61420 

0 

CADR 

DSPA LARM 
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REF 
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61146 

0 

CADR 

DPINSF4 

1671  1 

REF 

i 

41,3225 

61111 

1 

CADR 

APT  I N1SF 

16  712 

RFF 
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1 AST 

44  4 

41, 3226 

61420 

0 

CADR 

DSPA  LARM 

2INT0UT  CANT  BE  LOADED. 

16714 

REF 

2 

LAST 

44  A 

41, 3227 

61010 

1 

CADR 

DEG  I NSF 

TESTS  AT  END  FOR  360-CDU 

1672 

41,3230 

ENDRUTIN  EQUALS 

R 1673  SCALE  FACTORS  FOR  THOSE  ROUTINES  NEEDING  THEM  ARE  AVAILABLE  IN  SFTEMP1. 

P.1674  ALL  SFIN  ROUTINES  USE-MPAC  MPAC  + 1.  LEAVE  RESULT  IN  A.  END  WITH  TC  DECRET 


1675 

16755 

REF  1 

REF  4 

LAST 

43  7 TO 

40,3010 

438: 

15  457* 

SET LOC 
COUNT  * 

ENDDPDEC  +1 
S$/P  IN 

R 1676 

DEG  IN  SF 

a p pi  tfs  ^ nnn/i  an  =s  ' 

555551 10 ) 

— 

5. 43434 I 8 ) 

1677 

REF  6 

LAST 

43  7 

40,3010 

0 7102 

0 

DEG INSF 

TC 

DMP 

SF  ROUTINE  FOP  DEC  DEGREES 

1678 

REF  1 

40, 3011 

03074 

1 

ADRES 

DEGC  Oi  l 

MULT  BY  5.5  5(10)X2FXP-3 

1679 

REF  138 

LAST 

443 

40, 3012 

10  155 

1 

CCS 

MP AC  *1 

THIS  ROUNDS  OFF  MPAC+1  BEFORE  SHIFT 

1680 

REF  20 

LAST 

416 

40,3013 

3 4741 

1 

CAF 

B I T 1 1 

LEFT  3,  AND  CAUSES  360.00  TO  OF/UF 

1681 

40, 3014 

0 3016 

0 

TC 

4-  2 

WHEN  SHIFTED  l E FT  AND  ALARM. 

1682 

REF  21 

LAST 

444 

40, 3015 

4 4741 

0 

CS 

BIT1  1 

1683 

REF  139 

LAST 

444 

40,3016 

6 0155 

0 

AD 

MPAC  +1 

1684 

REF  1 

40,3017 

0 3165 

0 

TC 

2P0UND  +2 

1685 

REF  3 

LAST 

4 3 6 

40, 3020 

0 4404 

0 

TC 

TPSL  1 

LEFT  1 

16  86 

REF  4 

LAST 

444 

40, 3021 

0 4404 

0 

DEGINSF2 

TC 

TPSL  1 

LEFT  2 

1687 

RFF  1 

40, 3022 

0 31  74 

0 

TC 

TEST  OFUF 

1688 

REF  5 

LAST 

444 

40, 3023 

0 44  04 

0 

TC 

TPSL  1 

RETURNS  IF  NO  OF/UF  I L E FT  3 ) 

1689 

REF  140 

LAST 

444 

40, 3024 

10  154 

0 

CCS 

MPAC 

1690 

REF  1 

40,3025 

0 3031 

0 

TC 

SIGNFIX 

IF+,  GO  TO  SIGNFIX 

1691 

REF  2 

LAST 

444 

40,3026 

0 3031 

0 

TC 

SIGNFIX 

IF  +0,  GO  TO  SIGNFIX 

1692 

40,3027 

4 0000 

0 

COM 

IF  - , USE  -MAGNITUDE  +1 

1693 

REF  141 

LAST 

444 

40, 3030 

54  1 54 

0 

TS 

MPAC 

IF  -0,  US  F +0 

1694 

RFF  4 

LAST 

442 

40, 3031 

10  162 

0 

SIGNFIX 

CCS 

MPAC  +6 

1695 

REF  1 

40,3032 

0 3070 

0 

TC 

SGNT01 

IF  OVERFLOW 

1696- 

REF  1 

.40,3033 

0 3043 

0 

TC 

ENDSCALE 

NO  OVERFLOW/UNDERFLOW 

1697 

REF  142 

LAST 

444 

40, 3034 

10  154 

0 

CCS 

MPAC 

IF  UF  FORCE  SIGN  TO  0 EXCEPT  -180 

1698 

REF  5 

LAST 

42  8 

40, 3035 

0 5677 

1 

TC 

CCSHOLE 

444 
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1699 

REF 

1 

40, 3036 

0 3066 

1 

TC 

NEG1 80 

1700 

40,3037 

0 3040 

0 

TC 

+ 1 

1701 

REF 

1-43 

LAST 

444 

40,3040 

56  154 

_J 

XCH 

M P AC 

1702 

REF 

8 

LAST 

43  1 

40,3041 

7 4733 

0 

MASK 

POSMAX 

1703 

REF 

144 

LAST 

445 

40, 3042 

54  154 

0 

TS 

M P AC 

1704 

REF 

\2 

LAST 

44  3 

40, 3043 

50  140 

1 

ENDSCALE 

INDEX 

MIXBR 

IF  ROUTINE  NO.  IS  NOT  CDU  DEGREES, 

170405 

40,3044 

0 3044 

1 

TC 

+ 0 

THEN  THIS  IS  360  - CDU  DEGREES 

17041 

40,3045 

0 3050 

1 

TC 

+ 3 

AND  ANGLE  IN  MPAC  MUST  BE  REPLACED 

17042 

REF 

]_ 

40, 3046 

0 3060 

1 

TC  _ 

SFM I XCAL 

BY  360  DEGREES  MINUS  ITSELF. 

17043 

40,3047 

0 3051 

0 

M I X BACK 

TC 

+ 2 

17044 

REF 

1 

40,3050 

0 3063 

1 

TC 

SFNORCAL 

1705 

REF 

131 

LAST 

443 

40,3051 

4 0000 

0 

NORBACK 

CS 

A 

1705  1 

REF 

26 

LAST 

298 

40,3052 

6 4752 

0 

AD 

BIT2 

17052 

40, 3053 

0 0006 

I 

EXTEND 

1705  3 

40,3054 

1 3056 

0 

BZF 

+ 2 

17054 

REF 

2 

LAST 

43  1 

40,3055 

0 2625 

1 

TC 

360-CDU 

17055 

REF 

25 

LAST 

440 

40,3056 

0 4635 

0 

ENDSCAL 1 

TC 

POST  JUMP 

17056 

REF 

4_ 

LAST 

44  3 

40,3057 

63155 

0 

CADR 

PUTC0M2 

17057 

REF 

86 

LAST 

436 

40,3060 

0 4616 

1 

SFMIXCAL 

TC 

BANKCALL 

1705  8 

REF 

__  5_ 

LAST 

443 

40, 3061 

63034 

0 

CADR 

SFRUTMIX 

17059 

REF 

1 

40,3062 

0 3047 

1 

TC 

MTXB ACK 

170591 

REF 

87 

LAST 

44  5 

40, 3063 

0 46  16 

1 

SFNORCAL 

TC 

BANKCALL 

170592 

REF 

5 

LAST 

443 

40, 3064 

63026 

0 

CADR 

SFRUTNOR 

170593 

REF 

1 

40,3065 

0 3051 

0 

TC 

NORBACK 

1706 

REF 

9 

LAST 

445 

40, 3066 

4 4733 

0 

NEG  180 

CS 

POSMAX 

1707 

REF 

2 

LAST 

444 

40,3067 

0 3042 

1 

TC 

ENDSCALE  -1 

1708 

REF 

145 

LAST 

445 

40,3070 

4 0154 

0 

SGNT01 

CS 

MPAC 

IF  OF  FORCE  SIGN  TO  1 

1709 

REF 

10 

LAST 

44  5 

40, 3071 

7 4733 

0 

MASK 

POSMAX 

1710 

REF 

132 

LAST 

445 

40,  3072 

4 0000 

0 

CS 

A 

1711 

REF 

3 

LAST 

445 

40,3073 

0 3042 

1 

TC 

FNDSCALE  -1 

1712 

40, 3074 

26161 

o 

DEGC0N1 

20EC 

5.555555555  B-3 

1712 

40, 3075 

30707 

1 

1715 

REF 

— 7- 

LAST 

444 

40, 3076 

0 7102 

0 

ARTHINSF 

TC 

DMP 

SCALES  MPAC,  +1  BY  SFTEMP1,  SFTEMP2. 

1716 

REF 

14 

LAST 

443 

40,3077 

00123 

1 

ADRES 

SFTEMP1 

ASSUMES  POINT  BETWEEN  HI  AND  LO  PARTS 

1717 

REF 

146 

LAST 

44  5 

40, 3100 

56  156 

0 

XCH 

MPAC  +2 

OF  SFCON.  SHIFTS  RESULTS  LEFT  BY  14. 

1718 

REF 

147 

LAST 

44  5 

40, 3101 

56  155 

0 

XCH 

MPAC  +1 

(BY  TAKING  RESULTS  FROM  MPAC+1,  MPAC+2) 

1719 

REF 

148 

LAST 

44  5 

40,3102 

56  154 

1 

XCH 

MPAC 

1720 

40,3103 

0 0006 

1 

EXTEND 

1721 

REF 

2 

LAST 

444 

40,3 104 

1 3106 

1 

BZF 

R INROUND 

1722 

REF 

5 

LAST 

44  1 

40, 3 105 

0 4145 

0 

TC 

ALMCYCLE 

TOO  LARGE  A LOAD.  ALARM  AND  RECYCLE. 

1723 

RFF 

2 

LAST 

444 

40,  3106 

0 3163 

0 

BINROUND 

TC 

? ROU ND 

1724 

REF 

2 

LAST 

444 

40, 3107 

0 3174 

0 

TC 

TEST  OFUF 

1725  REF  1 40,3110  0 3056  1 TC  E NDSCAL1 


RETURNS  IF  NO  OF/UF 
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17251 

REF 

8 

LAST 

445 

40,3111 

0 7102 

0 

ARTIN1SF 

TC 

DMP 

17252 

REF 

15 

LAST 

445 

40,3112 

00123 

1 

ADRES 

SFTEMP1 

3 

last 

44  5 

40, 3113 

0 3106 

0 

TC- 

B IN ROUND 

0 7102 

n 

OP I NSF 

TC 

DMP 

1740 

REF 

16 

LAST 

44  6 

40,3 115 

00123 

i 

ADRES 

SFTEMPl 

1741 

REF 

149 

LAST 

445 

40, 3116 

56  156 

0 

XCH 

MPAC  +2 

1 742 

40,3117 

6 0000 

1 

DOUBLE 

1743 

REF 

150 

LAST 

446 

40,3120 

54  156 

1 

TS 

MPAC  +2 

1744 

REF 

79 

LAST 

443 

40,3121 

3 4755 

1 

CAF 

ZFRO 

1 74S 

RFF 

1 5 1 

1 AST 

40, 3 122 

6 0155 

0 

AD 

MPAC  +1 

1746 

REF 

3 

LAST 

445 

40, 3 123 

0 3165 

0 

TC 

2R0UND  +2 

1747 

REF 

3 

LAST 

445 

40, 3124 

0 3174 

0 

TC 

TFSTOFUF 

REF 

L3 

L AST 

44  5 

40, T 1 25 

5 0 140 

1 

INDEX 

MIXER 

1749 

40,3 126 

0 3126 

1 

TC 

+ 0 

1750 

REF 

i 

40, 3127 

0 3137 

1 

TC 

DPINORM 

1 7 S 1 

RFF 

2_7 

1 AST 

44  3 

40, 3130 

3 0117 

o 

CA 

DECOUNT 

1752 

REF 

27 

LAST 

442 

40, 3 131 

6 0145 

1 

DPINCOM 

AD 

NOUN  ADD 

1753 

REF 

88 

LAST 

442 

40,3132 

54  002 

1 

TS 

Q 

1 754 

REF 

152 

LAST 

446 

40, 3133 

56  1 55 

0 

XCH 

MPAC  +1 

1755 

REF 

89 

LAST 

446 

40, 3134 

50  002 

0 

INDEX 

0 

1756 

40,3135 

54  001 

1 

TS 

1 

1757 

REF 

2 

L AST 

44  5 

40, 3 136 

0 3056 

1 

TC 

E NOS  CAL  1 

1758 

REF 

80 

LAST 

44  6 

40, 3 137 

3 4755 

1 

DPINORM 

CAF 

ZERO 

1 759 

RFF 

1 

40, 3 140 

0 3131 

1 

TC 

DPINCOM 

1761 

REF 

17 

LAST 

446 

40^  3 142 

00123 

1 

ADRES 

SFTEMPl 

1762 

REF 

13 

LAST 

43  8 

40,3143 

3 6241 

0 

CAF 

SIX 

1 If,'* 

RFF 

2 

LAST 

4 3? 

40, 3 1 44 

n 3 1 S3 

o 

TC 

T PI  F FTN 

1764 

REF 

3 

LAST 

444 

40, 3 145 

0 3116 

1 

TC 

DP  I N SF  +2 

1765 

REF 

11 

LAST 

446 

40, 3 146 

0 7102 

0 

DPI NSF4 

TC 

DMP 

1766 

REF 

18 

LAST 

44  6 

40, 3147 

00123 

1 

ADRES 

SFTE MP1 

1767 

REF 

28 

LAST 

44  0 

40, 3 150 

3 4752 

0 

CAF 

TWO 

1768 

REF 

3 

LAST 

446 

40,3151 

0 3153 

0 

TC 

TPLF  FTN 

1769 

REF 

4 

LAST 

44  6 

40,3152 

0 3116 

1 

TC 

DPINSF  +2 

1770 

REF 

90 

LAST 

446 

40,3153 

56  002 

0 

TPL EFTN 

XCH 

Q 

1771 

REF 

1 

40, 3 154 

54  124 

1 

TS 

SFTE  MP2 

1772 

REF 

91 

LAST 

446 

40,3155 

56  002 

0 

XCH 

Q 

1773 

REF 

19 

LAST 

44  6 

40,3156 

54  123 

0 

LEFTNCOM 

TS 

SFTE  MP1 

1774 

REF 

— 6- 

LAST 

444 

40, 3 157 

0 4404 

0 

TC 

TPSL1 

1775 

REF 

20 

LAST 

44  6 

40,3160 

10  123 

0 

CCS 

SFTEMPl 

1776 

REF 

1 

40, 3161 

0 3156 

0 

TC 

LEFTNCOM 

19:02  NOV.  25,1968  LEMONAID.070  PAGE  446 


USER'S  PAGE  NO.  44  EO  S4 

SCALES  MPAC,  +1  BY  SFTEMP1,  SFTEMP?. 
ROUNDS  MPAC+1  INTO  MPAC. 


SCALES  MPAC,  MPAC  +i  BY  SFTEMP1 , 
SFTEMP2.  STORES  LOW  PART  OF  RESULT 
IN  (E  SUBK ) +1  OR  E + l 


RETURNS  IF  NO  OF/UF 


MIXEDNOUN 
MIXED 
E SUBK 


NORMAL 

E 


PLACE  LOW  PART  IN 
<£  SUBK)  +1  MIXED 

E <-1  NORMAL 


ASSUMES  POINT  BETWEEN  BITS  7-8  OF  HIGH 
PART  OF  SF  CONST.  DPINSF2  SHIFTS  RESULTS 
LEFT  BY  7,  ROUNDS  MPAC+2  INTO  MPAC+1 
SHIFT  LEFT  7. 


ASSUMES  POINT  BETWEEN  BITS  11-12  OF  HIGH 
PART  OF  SF  CONST.  DPINSF2  SHIFTS  RESULTS 
LEFT  BY  3,  ROUNDS  MPAC+2  INTO  MPAC+1. 
SHIFT  LEFT  3. 


SHIFTS  MPAC,  +1,  +2  LEFT  N.  SETS  OVFIND 
TO  +1  FOP  OF,  -1  FOR  tJF. 

CALL  WITH  N— 1 IN  A. 

LOOP  T IMF  .37  MSEC. 
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L 

PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

USER'S  PAGE  NO.  45 

EO  S4 

1777 

REF  2 

LAST 

446  40,3162  0 0124  0 

TC 

SFTEMP2 

1778 

REF 

153 

LAST 

446 

40, 3163 

56  155 

0 

2R0UND 

XCH 

M P AC 

+ 1 

1779 

40,3164 

6 0000 

1 

DOUBLE 

1780 

REF 

1 54 

LAST 

447 

40, 3165 

54  155 

1 

X£_ 

MPAC 

+ 1 

1781 

REF 

92 

LAST 

446 

40,3166 

0 0002 

0 

TC 

Q 

IF 

MPAC+1  DOFS  NOT  OF/UF 

1782 

REF 

155 

LAST 

447 

40,3167 

6 0154 

1 

AD 

MPAC 

1783 

REF 

156 

LAST 

44  7 

40,3170 

54  154 

0 

TS 

MPAC 

17  84 

REF 

93 

LAST 

447 

40,3171 

0 0002 

0 

TC 

Q 

IF 

MPAC  DOES  NOT  OF/UF 

17  85 

REF 

5 

LAST 

444 

40, 3172 

54  162 

0 

TS 

MPAC+6 

1786 

REF 

54 

LAST 

44  7 

40,3173 

0 0002 

0 

2RNDEN0 

TC 

0 

1787  REF  6 LAST  447  40,3174  10  162  0 TESTOFUF  CCS  MPAC+6  RETURNS  IF  NO  OF/UF 


1788 

REF 

6 

LAST 

445 

40,3175 

0 

4145 

0 

TC 

ALMC YCLE 

OF 

ALARM 

AND 

RECYCLE . 

17  89 

REF 

95 

LAST 

44  7 

40, 3176 

0 

0002 

0 

TC 

0 

1790 

REF 

— 7— 

LAST 

447 

40,3177 

0 

41  45 

0 

TC 

ALMC  YCLE 

UF 

ALARM 

AND 

RECYCLE . 

1791  REF  1 42,3446  SETLOC  ENOSPMIN  +1 


17915 

REF 

2 

LAST 

43  4 TO 

437: 

146  146* 

COUNT* 

$ t/P  IN 

179? 

REF 

1 

42, 3 446 

0 3567 

0 HMSIN 

TC 

ALL  3 DEC 

IF  ALL 

3 WORDS  WERE  NOT  LOADED,  ALARM. 

1793 

REF 

12 

LAST 

446 

42,3447 

0 7102 

0 

TC 

DMP 

XREG, 

XREGLP  I = HOURS ) 

WERE  ALREADY  PUT 

1794 

REF 

1 

42, 3450 

03530 

1 

ADRES 

WHOL  ECON 

INTO  MPAC,  MPAC+1. 

1 795 

REF 

1 

42, 3451 

0 3537 

0 

TC 

RND/TST 

ROUND 

OFF  TO  WHOLE  HRS 

IN  MPAC+1. 

1796 

REF 

81 

LAST 

44  6 

42,  3452 

3 4755 

1 

CAF 

ZERO 

ALARM 

IF  MPAC  NON  ZERO 

(G/  16383  ). 

1797 

REF 

157 

LAST 

44  7 

42,  3453 

54  156 

1 

TS 

MPAC  +2 

1798 

REF 

1 

42,3454 

3 3532 

0 

CAF 

HRCON 

1799 

REF 

158 

LAST 

447 

42, 3455 

54  154 

0 

TS 

MPAC 

1800 

REF 

2 

LAST 

44  7 

42,3456 

3 3533 

1 

CAF 

HRCON  +1 

1801 

REF 

1 59 

LAST 

447 

42,3457 

56  155 

0 

XCH 

MPAC  +1 

1802 

REF 

4 

LAST 

43  5 

42,3460 

0 7306 

0 

TC 

SHORTMP 

1803 

REF 

1 

42,3461 

0 3550 

1 

TC 

MPAC  TST 

ALARM 

IF  MPAC  NON  ZERO 

(G/  745) 

1804 

REF 

160 

LAST 

447 

42,3462 

52  156 

1 

DXCH 

MPAC  +1 

STOP  E 

HOURS  CONTRIBUTION 

1805 

REF 

1 

42,3463 

52  124 

1 

DXCH 

HITENIN 

1806 

REF 

3 

LAST 

439 

42,3464 

3 1004 

1 

CA 

YREG 

PUT  YREG,  YREGLP  INTO 

MPAC,  +1. 

1807 

REF 

2 

LAST 

1 17 

42, 3465 

23' 007 

1 

LXCH 

YREGLP 

1808 

REF 

161 

LAST 

44  7 

42, 3466 

52  155 

1 

DXCH 

MPAC 

1809 

REF 

13 

LAST 

447 

42,3467 

0 7102 

0 

TC 

DMP 

1810  - 

REF 

2 

LAST 

44  7 

42,3470 

03530 

1 

ADRES 

WHOL ECON 

1811 

REF 

2 

LAST 

44  7 

42, 3471 

0 3537 

0 

TC 

RND/TST 

ROUND 

OFF  TO  WHOLE  MIN 

IN  MPAC+1 

1812 

REF 

1 

42,3472 

4 3535 

0 

CS 

59M  I N 

ALARM 

IF  MPAC  NON  ZERO 

IG/16383) 

1813 

REF 

] 

42,3473 

0 3555 

l 

TC 

SIZETST 

ALARM 

IF  MPAC+1  G/  59MIN 

1814 

REF 

162 

LAST 

447 

42, 3474 

56  155 

0 

XCH 

MPAC  +1 

1815 

42,3475 

0 0006 

1 

EXTEND 

1816 

REF 

1 

42,3476 

7 3 5 34 

1 

MP 

M INC  ON 

LEAVES 

MINUTES  CONTRIBUTION  IN  A , L 

1817 

REF 

2 

LAST 

447 

42,3477 

20  124 

1 

DAS 

HITE  MIN 

ADD  IN 

MINUTES  CONTRIBUTION 

1818 

42,3500 

0 0006 

1 

EXTEND 

IF  THIS  DAS  OVERFLOWS , 

G/  745HR , 3 9MI N 

GAP:  ASSEMBLE  REVISION  069  BE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L 

PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

1819 

42,3501 

1 3503 

0 

BZF 

+ 2 

1820 

REF 

8 

LAST 

44  7 

42,3502 

0 4145 

0 

TC 

ALMCYCLE 

last 

4 T 9 

4?f 3 503 

3 1005 

0 

CA 

ZREG 

1822 

REF 

2 

LAST 

117 

42,3504 

2 3 ' 0 10 

1 

LXCH 

Z REG  L P 

1823 

REF 

163 

LAST 

447 

42,3505 

52  155 

1 

DXCH 

MPAC 

last 

44  7 

4?t  T SOft 

0 710? 

0 

TC 

DMP 

1825 

REF 

3 

LAST 

447 

42,3507 

03530 

1 

ADRES 

WHOLECON 

1826 

REF 

3 

LAST 

447 

42,3510 

0 3537 

0 

TC 

RND/TST 

42t  ? *5 1 1 

4 3536 

0 

CS 

59.99SEC 

1828 

RFF 

2 

LAST 

447 

42,3512 

0 3555 

1 

TC 

SIZETST 

1829 

REF 

3 

LAST 

447 

42,3513 

52  124 

1 

DXCH 

HITEMIM 

\ ft 

RFF 

1 ft4 

1 AST 

44  8 

42* 3 514 

20  155 

1 

DAS 

MPAC 

1831 

42,3515 

0 0006 

1 

EXTEND 

1832 

42,3516 

1 3520 

l 

BZF 

+2 

L 8^^ 

R f F 

9 

| AST 

44  8 

42t  3 517 

0 4145 

0 

TC 

A LMC YCLE 

1834 

REF 

82 

LAST 

447 

42,3520 

3 47  55 

1 

CAF 

ZERO 

1835 

REF 

165 

LAST 

448 

42, 3521 

54  156 

1 

TS 

MPAC  +2 

1 ft^ft 

R PF 

6 

1 AST 

43  7 

42  * 3 52? 

0 7256 

1 

TC 

T PAG  REE 

1837 

REF 

166 

LAST 

448 

42, 3523 

52  155 

1 

DXCH 

MPAC 

1838 

REF 

28 

LAST 

44  6 

42, 3524 

50  145 

1 

INDEX 

NOUN  ADD 

1839 

42, 3525 

52  001 

1 

DXCH 

0 

1840 

REF 

26 

LAST 

445 

42, 3526 

0 4635 

0 

TC 

POST  JUMP 

1841 

REF 

10 

LAST 

443 

42, 3527 

62775 

0 

CADR 

LOAD  LV 

1842 

42,3530 

00006 

1 

WHQLECON 

OCT 

00006 

1343 

42,3531 

03240 

1 

OCT 

03240 

1844 

4?t  3 53? 

000  25 

o 

HRCQN 

OCT 

0002  5 

1845 

42,3533 

37100 

1 

OCT 

37100 

1846 

42,3534 

13560 

0 

MINCON 

OCT 

13560 

1 R47 

4?t  3 535 

00073 

n 

59M  IN 

OCT 

00073 

1848 

42,3536 

13557 

i 

59. 99SEC 

OCT 

13557 

1849 

REF 

167 

LAST 

44  8 

42,  3537 

56  156 

0 

RND/TST 

XCH 

MPAC 

+2 

1850 

42,3540 

6 0000 

1 

DOUBLE 

1851 

REF 

16  8- 

LAST 

44-8- 

42, 3541 

54  156 

-1 

TS 

MPAC 

+2 

1852 

REF 

83 

LAST 

448 

42, 3542 

3 4755 

1 

CAF 

ZERO 

1853 

REF 

169 

LAST 

448 

42,3543 

6 0155 

0 

AD 

MPAC 

+ 1 

1854 

REF 

170 

LAST 

448 

42,3544 

54  155 

1 

TS 

MPAC 

+ 1 

1855 

REF 

84 

LAST 

448 

42,3545 

3 4755 

1 

CAF 

ZERO 

1856 

REF 

171 

LAST 

44  8 

42,3546 

6 0154 

1 

AD 

MPAC 

1857 

REF 

172 

LAST 

448 

42, 3 547 

56  154 

-1— 

XCH 

MPAC 

1858 

REF 

173 

LAST 

448 

42,3550 

10  154 

0 

MPACTST 

CCS 

MPAC 

1859 

REF 

10 

LAST 

448 

42,3551 

0 4145 

0 

TC 

ALMCYCLE 

1860 

REF 

96 

LAST 

447 

42,3552 

0 0002 

0 

TC 

0 

1861 

REF 

11 

LAST 

448 

42,3553 

0 4145 

0 

TC 

A LMC YCLE 

1862 

REF 

97 

LAST 

448 

42,3554 

0 0002 

0 

TC 

Q 

1863 

REF 

174 

LAST 

448 

42, 3555 

54  156 

1 

SIZETST 

TS 

MPAC 

+ 2 

1864 

REF 

175 

LAST 

44  8 

42,3556 

10  155 

1 

CCS 

MPAC 

+ 1 
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USER'S  °AGE  NO.  46  FO  S4 


PUT  ZREG,  ZREGLP  INTO  MPAC,  + 1 . 


POUND  OFF  TO  WHOLE  CENTI-SEC  IN  MPAC+1 
ALARM  IF  MPAC  NON  ZERO  (G/163.83  SFC) 
ALARM  IF  MPAC+1  G/59.99  SEC 
AOD  IN  SECONDS  CONTRIBUTION 
IF  THIS  DAS  OVERFLOWS, 

G/  745  HR,  39  MIN,  14.55  SEC. 

ALARM  AND  RECYCLE 


(10EXP5/2EXP1412EXP14 

1 HOUR  IN  CENTI-SEC 

1 MINUTE  IN  CENTI-SEC 
59  AS  WHOLE 
5999  CENTI-SEC 


ROUNDS  MPAC+2  INTO  MPAC+l . 
ALARMS  IF  MPAC  NOT  0 


CANT  OVFLOW 

ALARM  IF  MPAC  NON  ZERO 
ALARM  AND  RECYCLE. 

ALARM  AND  RECYCLE. 


CALLED  WITH  - CON  IN  A 
GET  MAG  OF  MPAC+1 
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L 

PINBALL 

GAME 

BUT  TONS 

i AND  LIGHTS 

USER'S  PAGE  NO. 

47 

EO  S4 

1865 

REF 

44 

LAST 

44  3 

42,3557 

6 

4753 

1 

AO 

ONE 

1866 

42,3560 

1 

3562 

1 

TCF 

+ 2 

1867 

REF 

45 

LAST 

44  9 

42, 3561 

6 

4753 

1 

AD 

ONE 

1868 

REF 

1 76 

LAST 

448 

42,  3562 

6 

01  56 

0 

AD 

MPAC  +2 

1869 

42,3563 

0 

0006 

1 

EXTEND 

MAG 

OF 

MPAC+1  - CON 

1870 

42,3564 

6 

35  66 

1 

BZMF 

+ 2 

1871 

REF 

12 

LAST 

448 

42, 3565 

0 

4145 

0 

TC 

ALMC YCLE 

MAG 

OF 

MPAC+1  G/  CON. 

ALARM 

AND  RECYCLE 

1872 

RFF 

98 

LAST 

44  8 

42,3566 

0 

0002 

0 

TC 

0 

MAG 

OF 

MPAC+1  L/=  CON 

R 1 873 

ALL  3D  EC 

TESTS 

THAT 

ALL  3 WORDS 

; ARE  LOADED  IN  OEC 

(FOR 

HMSIN ) . 

R 1 87  4 

A 1 A D M TP 

NCT  . 1 

TE  ST 

THAT  BITS 

3,4,5  i 

OF 

DECBRNCH 

ARE  ALL  = 1 ) 

1875 

REF 

1 

42, 3567 

4 3574 

0 

ALL3DEC 

CS 

0CT34BAR 

GET 

BITS  3,4,5  IN  A 

1876 

REF 

17 

LAST 

44  2 

42, 3570 

7 1000 

1 

MASK 

DECBRNCH 

GET 

BITS  3,4,5  OF  DECBRNCH  IN  A 

1877 

REF 

2 

LAST 

44  9 

42,3571 

6 3574 

1 

AD 

0CT34BAR 

BITS 

3,4,5  OF  DECBPNCH  MUST  ALL  = 1 

1878 

REF 

133 

LAST 

445 

42, 3572 

10  000 

0 

CCS 

A 

1879 

REF 

1 

42,3573 

0 3577 

1 

TC 

FORC  EV25 

1880 

42,3574 

77743 

1 

0CT34BAR 

OCT 

77743 

1881 

REF 

2 

LAST 

449 

42,3575 

0 3577 

1 

TC 

FORC  EV25 

18  82 

REF 

99 

LAST 

449 

42,3576 

0 0002 

0 

TC 

Q 

18825 

REF 

2 

LAST 

224 

42,3577 

4 

6010 

1 

FOR  CEV2  5 

CS  0CT31 

FORCE  VERB  25 

TO 

BE  EXECUTED 

BY  RECYCLE 

18826 

REF 

2 

LAST 

420 

42, 3600 

55 

•041 

1 

TS  VERBSAVE 

IN  CASE  OPERATOR 

EXECUTED  A 

LOWER  LOAD 

18827 

1883 

REF 

13 

LAST 

449 

42.3601 

42. 3602 

0 

4145 

0 

ENDHMSS 

TC  ALMCYCLE 

EQUALS 

VERB.  ALARM 

AND 

RECYCLE. 

4 
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L 

PINBALL  GAME  BUTTONS  AND  LIGHTS 

USER*  S PAGE 

NO. 

48 

EO  S4 

PI  884 
R 1 88  5 
RL886 
R18861 
R 1886  2 

MCNITCR  ALLOWS  OTHER  KEYBOARD  ACTIVITY.  IT  IS  ENDED  BY  VERB  TERMINATE 
VERB  PROCEED  WITHOUT  DATA,  VERB  RESEQUENCE, 

» 

THAT  THE  OPERATOR  HAS  SOMEHOW  ALLOWED  THE  ENDING  OF  A MONITOR  WHICH 
HE  HAS  INITIATED  THROUGH  THE  KEYBOARD). 

R 1 887 
R 1 888 

R I HRQ 

MONITOR  ACTION  IS  SUSPENDED,  BUT  NOT  ENDED,  BY  ANY  KEYBOARD  ACTION, 
EXCEPT  ERROR  LIGHT  RESET.  IT  BEGINS  AGAIN  WHEN  KEY  RELEASF  IS  PERFORMED. 
MTMTrR  thf  NOUN  AND  APPROPRIATE  DISPLAY  VERB  IN  MONSAVE.  IT  SAVES 

R1890 
R 1 89  1 
R 1891  l 

NCLNC ADR  IN  M0NSAVE1,  IF  NOUN  = MACHINE  CADR  TO  BE  SPECIFIED.  BIT  15 
MCNSAVE1  IS  THE  KILL  MONITOR  SIGNAL  (KILLER  BIT).  BIT  14  OF  M0NSAVE1 
INDICATES  THE  CURRENT  MONITOR  WAS  EXTERNALLY  INITIATED  (EXTERNAL 

OF 

R 1891 2 

MCNITCR  BIT).  IT  IS  TURNED  OFF  BY  REL DSP  AND  KILMONON. 

R 1892 
R 1893 
R 1 8 94- 

MCNSAVE  INDICATES  IF  MONITOR  IS  ON(+~0N,  +0=OFF) 

IF  MONSAVE  IS  +,  MONITOR  ENTERS  NO  REQUEST,  BUT  TURNS  KILLER  BIT  OFF. 
IF  MGNSAVE  IS  +0,  MONITOR  ENTERS  REQUEST  AND  TURNS  KILLER  BIT  OFF. 

R 1 895 
R 1896 

NVSUB  (IF  EXTERNAL  MONITOR  BIT  IS  OFF),  VB=PROCEED  WITHOUT  DATA, 
VB=RE  SEQUENCE , AND  V8  = TE  R MI NA  TE  TURN  KILL  MONITOR  BIT  ON. 

R 1 897  IF  KILLER  BIT  IS  CN,  MONREQ  ENTERS  NO  FURTHER  REQUESTS,  ZEROS  MONSAVE 

R 1 898  AND  MONSAVEL  (TURNING  OFF  KILLER  BIT  AND  EXTERNAL  MONITOR  BIT). 


R 1 899 

MONITOR 

DO  SENT 

TEST 

FOR  MATBS 

SINCE  1 

NVSUB  CAN  HANDLE  INTERNAL  MATBS 

NOW 

1900 

REF 

1 

41,3230 

SETLOC 

ENDRUTIN 

19005 

REF 

3 

LAST 

43  8 TO 

444: 

266  664* 

COUNT  * 

$ $ / P IN 

1901 

REF 

1 

41, 3230 

4 3237 

0 

MONITOR 

cs 

BIT15/14 

1902 

REF 

6 

LAST 

44  3 

41, 3231 

7 1017 

1 

MASK 

NOUNCADP 

1903 

REF 

L 77 

LAST 

449 

41,3232 

54  155 

1 

MON  IT  1 

TS 

MPAC  +1 

TEMP  STORAGE 

19031 

REF 

7 

LAST 

43  7 

41, 3233 

4 0136 

1 

cs 

EMTE  XIT 

19032 

REF 

4- 

LAST 

420 

41,3234 

6 4217 

1 

AD 

END  I NST 

19033 

REF 

134 

LAST 

449 

41,3235 

10  000 

0 

CCS 

A 

19034 

REF 

1 

41,3236 

0 3245 

1 

TC 

MONI T 2 

19035 

41 , 3237 

60000 

1 

B IT  15/ 1 4 

OCT 

6000  0 

19036 

REF 

2 

LAST 

450 

41,3240 

0 3245 

1 

TC 

MC1N I T2 

19037 

REF 

38 

LAST 

428 

41, 3241 

3 4736 

1 

CAF 

BIT14 

EXTERNALLY  INITIATED  MONITOR, 

19038- 

REF 

1 78 

LAST 

45  0 

41,3242 

26  1 55 

_1 

ADS 

MPAC  +1 

SET  BIT  14  FOR  MONSAVFl. 

190381 

REF 

85 

LAST 

44  e 

41,3243 

3 4755 

1 

CAF 

ZERO 

190382 

REF 

1 

41,3244 

5 5 ' 022 

1 

TS 

MONS AVE2 

ZERO  NVMONOPT  OPTIONS 

1904 

REF 

— 3- 

LAST- 

247 

41,3245 

3 6073 

_0_ 

MON  I T 2 

CAF 

L0W7 

1905 

REF 

17 

LAST 

427 

41,3246 

7 1001 

0 

MASK 

VERBREG 

1906 

REF 

4 

LAST 

442 

41,3247 

0 4331 

1 

TC 

LEFT5 

1907 

REF 

5 

LAST 

41  3 

41,3250 

54  022 

0 

TS 

C YL 

1908 

REF 

6 

LAST 

450 

41, 3251 

4 0022 

0 

CS 

CYL 

1909 

REF 

7 

LAST 

450 

41, 3252 

56  022 

1 

XCH 

CYL 

1910 

REF 

11 

LASJ— 

43  8 

41, 3253 

6 1002 

1 

AD 

NOUN PEG 

1911 

REF 

179 

LAST 

450 

41, 3254 

54  154 

0 

TS 

MPAC 

TEMP  STORAGE 

1912 

REF 

86 

LAST 

450 

41,3255 

3 4755 

l 

CAF 

ZERO 

GAP:  ASSEMBLE  REVISION  069  OF  A GC  PROGRAM  LUMINARY  BY 
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1913 

REF 

3 

LAST 

411 

41, 3256 

5 5 ' 0 1 2 

1 

1914 

REF 

4 

LAST 

420 

41, 3257 

11* 042 

1 

191 5 

41 , 3260 

0 3262 

1 

1916 

REF 

1 

41 ,3261 

0 4502 

1 

1917 

41,3262 

0 0004 

0 

1 Q 1 Q 

REF 

2 

LAST 

2 3 7 

41, 3263 

1 1 ' 020 

0 

1919 

41,3264 

0 3271 

0 

1920 

REF 

46 

LAST 

449 

41,3265 

3 4753 

l 

192  1 

REF 

15 

AST 

38  0 

41 , 3266 

0 5203 

0 

1922 

REF 

39 

LAST 

443 

0777 

1923 

REF 

1 

41, 3267 

032  75 

1 

1923 

REF 

L_ 

41, 3270 

62101 

0 

1924 

REF 

180 

LAST 

450 

41,3271 

52  155 

1 

1925 

REF 

3 

LAST 

45  1 

41,3272 

5 3' 02 1 

1 

1926 

41,3273 

0 0003 

1 

1927 

REF 

4 

LAST 

419 

41,3274 

0 0136 

0 

1928 

REF 

1 

41,3275 

0 4400 

1 

MONREQ 

1929 

REF 

2 

LAST 

237 

41 ,3276 

1 1'021 

1 

1930 

41,3277 

0 3303 

1 

1931 

41,3300 

0 3303 

1 

1932 

REF 

1 

41,3301 

0 3314 

1 

1933 

REF 

2 

LAST 

45  1 

41, 3302 

0 3314 

1 

1934 

REF 

1 

41,3303 

3 3320 

0 

1935 

REF 

16 

LAST 

45  1 

41,3304 

0 52  03 

0 

19  36 

REF 

40 

LAST 

45  1 

0777 

1937 

REF 

2 

LAST 

45  1 

41,3305 

032  75 

1 

1937 

41, 3306 

62101 

0 

1938 

REF 

2- 

LAST 

173 

41, 3307 

3 43  55 

0 

1939 

REF 

5 

LAST 

341 

4 1,3310 

0 5072 

1 

1940 

REF 

41 

LAST 

45  1 

0777 

1941 

REF 

1 

41,3311 

03321 

1 

1941 

REF 

1 

41,3312 

62101 

0 

1942 

REF 

11 

LAST 

397 

41,3313 

0 5261 

1 

1943 

REF 

87 

LAST 

450 

41, 3314 

3 4755 

1 

KILLMON 

1944 

REF 

4 

LAST 

45  1 

41,3315 

5 5 ' 0 20 

0 

1945 

REF 

3 

LAST 

45  1 

41,3316 

55 ' 021 

1 

1946 

REF 

12 

LAST 

45  1 

41,3317 

0 5261 

1 

1947 

41,3320 

00144 

0 

MONDEL 

1948 

REF 

4 

LAST 

45  1 

41,3321 

11 

'021 

1 MONDO 

1949 

4 1,  3322 

0 

3326 

0 

1950 

41,3323 

0 

3326 

0 

1951 

REF 

47 

LAST 

417 

41,3324 

0 

5155 

0 

1952 

REF 

48 

LAST 

451 

41,3325 

0 

51  55 

0 

1953 

REF 

4 

LAST 

451 

41, 3326 

1 1 

•0  12 

l 

1954 

REF 

1 

41,3327 

0 

3351 

0 

SA  2021112-011 
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TS 

DSPLOCK 

CCS 

CADR  STOP 

TC 

+ 2 

TC 

RFLDSP1 

INHINT 

CCS 

MONS  AVE 

TC 

+5 

CAF 

ONE 

TC 

WAITLIST 

EBANK= 

D S PC  OUNT 

2CADR 

MONREQ 

DXCH 

MPAC 

DXCH 

MONSAVE 

RELINT 

TC 

ENTRET 

TC 

LODSAMPT 

CCS 

M0NSAVF1 

TC 

+ 4 

TC 

+ 3 

TC 

KILLMON 

Tfr 

KILLMON 

CAF 

MONDEL 

TC 

WAITLIST 

EBANK= 

DSPC  OUNT 

2C  ADR 

MONREQ 

TC 

NOVAC 

E8ANK= 

DSPC  OUNT 

2C ADR  MONDC 


TC 

T ASKOVFR 

CAF 

ZERO 

TS 

MONSAVE 

TS 

MONS AVE1 

TC 

TASKOVER 

OCT 

144 

CCS 

MON  S AVE 1 

TC 

+ 4 

TC 

+ 3 

TC 

ENDOFJOB 

TC 

E NDOFJOB 

CCS 

DSPL OCK 

TC 

MONBUSY 

USER'S  PAGE  NO.  49  FO  S4 

+0  INTO  DSPLOCK  SO  MONITOR  CAN  RUN. 

TURN  OFF  KR  LITE  IF  CADRSTOR  AND  DSPLIST 
ARE  80TH  EMPTY.  (LITE  COMES  ON  IF  NEW 
MONITOR  IS  KEYED  IN  OVER  OLD  MONITOR.) 


IF  MONSAVE  WAS  + , NO  REQUEST 
IF  MONSAVE  WAS  0,  REQUEST  MONRFQ 


PLACE  MONITOR  VFRB  AND  NOUN  INTO  MONSAVE 
ZERO  THE  KILL  MONITOR  BIT 
SET  UP  EXTERNAL  MONITOR  BIT 


CALLED  BY  WAITLIST 

TIME  IS  SNATCHED  IN  RUPT  FOR  NOUN  65 
IF  KILLER  BIT  = 0,  ENTER  REQUESTS 

IF  KILLER  BIT  = 9,  ENTER  REQUESTS 

IF  KILLER  BIT  = 1 , NO  REQUESTS 

IF  KILLER  BIT  = l,  NO  REQUESTS 

ENTER  WAITLIST  REQUEST  FOR  MONRFQ 


ENTER  EXEC  REQUEST  FOR  MONDO 


ZERO  MONSAVE  AND  TURN  KILLER  BIT  OFF 

TURN  OFF  KILL  MONITOR  BIT. 

TURN  OFF  EXTERNAL  MONITOR  BIT. 

FOR  1 SEC  MONITOR  INTERVALS 


CALLED  BY  EXEC 

IF  KILLER  BIT  = 0,  CONTINUE 

IF  KILLER  BIT  = 0,  CONTINUE 

IN  CASE  TERMINATE  CAME  SINCE  LAST  MONREQ 

IN  CASE  TERMINATE  CAME  SINCE  LAST  MONRFQ 


NVSUB  IS  BUSY 


GAP: 
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L 

PINBALL 

GAME 

BUTTONS  AND  LIGHTS 

USER'S  PAGE  NO.  50  EO  S4 

1955 

REF 

4 

LAST 

450 

41, 3330 

3 6073 

0 

CAF 

L0W7 

1956 

REF 

5 

LAST 

45  1 

41, 3331 

7 1020 

0 

MASK 

MONSAVE 

4 1 , 3332 

0 2317 

0 

TC 

JPDATNN  -1 

PLACE  NOUN  INTO  NOUNREG  AND  DISPLAY  IT 

1960 

REF 

1 

41, 3333 

3 4144 

1 

CAF 

MID7 

1961 

REF 

6 

LAST 

452 

41,3334 

7 1020 

0 

MASK 

MONSAVE 

CHANGE  MONITOR  VERB  TO  DISPLAY  VERB 

R EF 

41 » 3335 

6 3347 

1 

AD 

MONREF 

-DEC l 0 , STARTING  IN  BITS 

1963 

REF 

1 

41,3336 

54  023 

1 

TS 

EDOP 

RIGHT  7 

1964 

REF 

2 

LAST 

452 

41,3337 

3 0023 

0 

CA 

EDOP 

1 

R FF 

L8 

I AST 

45  0 

41 f 3340 

55' 001 

0 

TS 

VERBPEG 

1966 

REF 

i 

41,3341 

3 3350 

1 

CAF 

M0N8 ACK 

SET  RETURN  TO  PASTEVB  AFTER  DATA  DISPLAY 

1967 

REF 

5 

LAST 

45  1 

41, 3342 

54  136 

1 

TS 

ENTRET 

\ QftR 

R FF 

2 

1 AST 

45  0 

4 If  3 343 

4 3237 

0 

CS 

BIT  15/14 

1969 

REF 

5 

LAST 

45  I 

41,3344 

7 1021 

1 

MASK 

MONS AVE1 

PUT  ECADR  INTO  MPAC  +2.  I NTMCTBS  WILL 

1970 

REF 

181 

LAST 

45  1 

41,3345 

54  156 

1 

TS 

MPAC  +2 

DISPLAY  IT  AND  SET  NOUNCADR,  NOUNADD, 

1971  REF  1 41,3346  0 2046  1 ENOMONDO  TC  TFSTMN  EBANK. 


1972 

4124 

BLOCK 

2 

197201 

REF 

1 

4000 

SETLOC 

FFTAG8 

197202 

4124 

BANK 

19725 

REF 

1 

COUNT* 

$$/P  IN 

1973 

REF 

2 

LAST 

452 

4124 

3 4144 

1 

PASTEVB 

CAF 

MID7 

19  74 

REF 

2 

LAST 

4 5 0 

412  5 

7 1022 

1 

MASK 

MONS AVE2 

NVMONOPT  PASTE  OPTION 

1975 

4126 

0 00  06 

1 

EXTEND 

1976 

4127 

1 4131 

1 

3ZF 

+ 2 

1977 

REF 

1 

4130 

0 4132 

0 

TC 

PASTEOPT 

PASTE  PLEASE  VERB  FOR  NVMONOPT 

1978 

REF 

7 

LAST 

452 

4131 

3 1020 

1 

CA 

MONS  AVE 

PASTE  MONITOR  VERB  - PASTE  OPTION  IS  0 

19782 

REF 

3 

LAST 

452 

4132 

54  023 

1 

PASTEOPT 

TS 

EDOP 

RIGHT  7 

19783 

REF 

— 4- 

LAST 

45  2 

4 133 

3 0023 

0 

CA 

EDOP 

PLACE  MONITOR  VERB  OR  PLEASE  VFRR  INTO 

197832 

REF 

88 

LAST 

445 

4134 

0 4616 

1 

TC 

3 ANKCALL 

VER8REG  AND  DISPLAY  IT. 

197833 

REF 

7 

LAST 

439 

4135 

62337 

1 

CADR 

UPDATV8  -1 

197835 

REF 

88 

LAST 

45  1 

4 136 

3 4755 

1 

CAF 

ZERO 

ZERO  REQRET  SO  THAT  PASTED  VERBS  CAN 

197838 

REF 

10 

LAST 

424 

4137 

5 5 ' 0 1 3 

0 

TS 

REORET 

BE  EXECUTED  BY  OPERATOR. 

19784 

REF 

3 

LAST 

452 

4140 

3 1022 

0 

CA 

MONS AVE2 

19785 

REF 

— 1- 

4141 

0 4255 

1 

TC 

RLANKSUB 

PROCESS  NVMONOPT  BLANK  OPTION  IF  ANY 

19786 

4142 

0 4143 

0 

TC 

+ 1 

19787 

REF 

49 

LAST 

45  1 

4143 

0 5155 

0 

ENDPASTE 

TC 

ENDOFJOB 

1979 

4144 

37600 

0 

M 107 

OCT 

37600 

1980 

REF 

1 

41, 3347 

SETLOC 

ENDMONDO  +1 

19805 

REF 

4 

LAST 

450  TO 

452  : 

79  743* 

COUNT* 

$ $ / P I N 

1981 

41,3347 

75377 

0 

MONREF 

OCT 

75377 

-DEC10,  STARTING  IN  8IT8 

1982 

REF 

1 

41, 3350 

04124 

1 

MONBACK 

ADRES 

P AST  EVB 

1983 

REF 

-2- 

LAST 

41  1 

41 1 335  1 

0 4374 

o 

MDNRUSY 

TC 

RELOSPON 

TURN  KEY  RELEASE  LIGHT 

1984 

REF 

50 

LAST 

452 

41,3352 

0 5155 

0 

TC 

ENDOFJOB 
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L PINBALL  GAME  BUTTONS  AND  LIGHTS  USER'S  PAGE  NO.  51  EO  S4 

R1985  DSPFMEM  IS  USED  TO  DISPLAY  <IN  OCTAL)  ANY  FIXED  REGISTER. 

R1986  IT  IS  USED  WITH  NOUN  = MACHINE  CADR  TO  BE  SPECIFIED.  THE  FCAOR  OF  THE 

r 1987  DESIRED  LOCATION  IS  THEN  PUNCHED  IN.  IT  HANDLES  F/F  ( FCACR  4000-7777) 


R 1 9 8 7 1 

FOR  BANKS  L/E 

27, 

THIS  IS  ENOUGH. 

R 19872 
R 19  87  3 

FOR  BANKS  G/E  30, 
ML  ST  BE  PRELOADED 

THE  THIRD  COMPONENT  OF  NOUN  26 
WITH  THE  DESIRED  SUPERBANK  BITS 

IPRIO  , 
(BITS 

ADRES,  BBCQN ) 
5,6,7). 

R 1987 4 V23N26  SHOULD  BE  USED. 


R 1987  5 

SUNM 

ARY 

R1987  fc 

FOR 

BANKS 

L/E 

27 , 

V27N01EI FCADR ) E 

R19877 

FOR 

BANKS 

C-/E 

30, 

V23N26E ( SUPERBI TS) E 

V27N01EI FCADR) F 

1988 

REF 

1 1 

LAST 

437 

41, 3353 

3 43  17 

O- 

DSPFMEM 

CAF 

R 1 D 1 

IF  F/F,  DATACALL  USES 

BANK  02  OR  03. 

1989 

REF 

42 

LAST 

45  1 

41,3354 

54  777 

1 

TS 

DSPCOUNT 

19891 

REF 

17 

LAST 

387 

41,3355 

3 1047 

0 

CA 

DSPTEMl  +2 

SUPERBANK  BITS  WERE  PRELOADEO  INTO 

1989  2 

RET: 

5 8 

LAST 

44,1 

41, 3356 

54  001 

1 

TS 

_L 

3RD  COMPONENT  OF  NOUN 

2 6. 

1990 

REF 

7 

LAST 

450 

41,3357 

3 1017 

0 

CA 

NOUNCADR 

ORIGINAL  FCADR  LOADED 

STILL  IN  NOUNCADR. 

1991 

REF 

1 

41,3360 

0 4651 

1 

TC 

SUPDACAL 

CALL  WITH  FCADR  IN  A, 

SUPERBITS  IN  L. 

1992 

REE 

3 

L AS  T 

42  7 

41,3  36>  1 

0 3363 

1 

TC 

DSPOCTWD 

1993 

REF 

51 

LAST 

452 

41,3362 

0 5155 

0 

ENDSPF 

TC 

ENDO  F JOB 
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P 1 9 94  WORD  CISPLAY  ROUTINES 


_ 

/■ 

1 AQT 

A /.  f. 

a n.  4 ?nn 

SETLOC 

TESTOFUF  +4 

1995 

19955 

R tr  r 

REF 

H 

5 

LAST 

44  4 TO 

T Uf  D 

44  7: 

120  577* 

COUNT* 

$$/P  IN 

1996 

REF 

100 

LAST 

44  9 

40,3200 

56  002 

0 

DSPS IGN 

XCH 

Q 

occ 

J 

40,3204 

40,3202 

54  14  it 

_1 

— I-S 

D5PWDRET 

L99  f 
1998 

Ktr 

REF 

i 

182 

LAST 

452 

10  154 

0 

CCS 

MPAC 

1999 

40, 3203 

0 3213 

1 

TC 

+ 8D 

40,  3 204 

0 3213 

_1 

T-C 

+ 7 

2001 

REF 

47 

LAST 

45  1 

40,3205 

6 4753 

1 

AD 

ONF 

2002 

REF 

183 

LAST 

454 

40, 3206 

54  1 54 

0 

TS 

MPAC 

2003 

REF 

2 

LAST- 

LAST 

415 

454 

40,  3207 
40,3210 

0 2433 

_1 

IC 

-ON 

2004 

REF 

184 

4 0155 

1 

CS 

MPAC  +1 

2005 

REF 

185 

LAST 

4 54 

40, 321 1 

54  155 

1 

TS 

MPAC  +1 

2006 

REF 

2 

LAST 

45 Jt 

40,3212 

0 0144 

_Q 

IC 

DSPWDRET 

2007 

REF 

3 

LAST 

433 

40,3213 

0 2413 

0 

TC 

+ 0N 

2008 

REF 

3 

LAST 

454 

40,3214 

0 0144 

0 

TC 

DSPWDRET 

2009 

40, 3215 

0 0006 

1 

DSPRND 

EXTEND 

2010 

REF 

1 

40,3216 

3 3261 

1 

DCA 

DECROUND  -1 

20 11 

REF 

1 86 

LAST 

4 5_4 

40, 3217 

20  155 

1 

DAS 

MPAC 

2012 

40,3220 

0 0006 

1 

EXTEND 

2013 

40,3221 

1 3225 

0 

3ZF 

+ 4 

20  14 

40, 3222 

0 00  06 

1 

EXTEND 

2015 

REF 

1 

40,3223 

3 4733 

1 

DCA 

DPOSMAX 

2016 

REF 

187 

LAST 

454 

40, 3224 

52  155 

1 

DXCH 

MPAC 

2017 

R2018 

REF  104 
DSPCECWD 

LAST  4-54 
CONVERTS  C( 

40,3225 
MPAC  , MP 

n nnn? 

n 

tc 

a 

' AC  +1 ) INTO 

A S IGN 

AND  5 CHAR  DECIMAL 

R2019  STARTING  IN  LOC  SPECIFIED  IN  OSPCOUNT.  IT  ROUNDS  BY  5 EXP-6. 


2020 

2021 

REF 

REF 

102 

1 

LAST 

454 

40. 3226 

40. 3227 

56  00? 
54  115 

0 

0 

DSPDECWD 

XCH 

TS 

0 

W-D  P E T 

2022 

REF 

1 

40, 3230 

0 3200 

0 

TC 

DSPS  IGN 

2023 

REF 

1 

40,3231 

0 3215 

1 

TC 

DSPRND 

2024 

REF 

7 

LAST 

346 

40,3232 

3 4751 

o 

C AIL 

FOUR 

2025 

REF 

1 

40,3233 

54  137 

0 

DSPDCWD1 

TS 

WDCNT 

2026 

REF 

1 

40,3234 

3 4363 

0 

CAF 

B INC  ON 

2027 

REF 

5- 

LAST 

44  7 

40, 3235 

0 73  06 

0 

TC 

SHOP  TMP 

2028 

REF 

188 

LAST 

454 

40, 3236 

50  154 

1 

TR  ACE l 

INDEX 

MPAC 

2029 

REF 

3 

LAST 

41  2 

40,3237 

3 4066 

0 

CAF 

RFLT AB 

2030 

REF 

5- 

LAST 

442 

40, 3240 

7 4346 

n 

MASK 

L0W5 

2031 

REF 

6 

LAST 

435 

40, 3241 

54  124 

1 

TS 

CODE 

2032 

REF 

89 

LAST 

452 

40,3242 

3 4755 

1 

CAF 

ZERO 

2033 

REF 

189 

LAST 

454 

40,3243 

56  156 

0 

XC  H 

MPAC  +2 

2034 

REF 

190 

LAST 

454 

40, 3244 

56  155 

0 

XCH 

MPAC  +1 

2035 

REF 

191 

LAST 

454 

40,3245 

54  154 

0 

TS 

MPAC 

2036 

REF 

-4-3- 

L AST- 

45  3 

40,3246 

56  777 

o 

XCH 

D SPC  OUNT 

2037 

REF 

4 

L AST 

436 

40, 3247 

54  143 

0 

TRACE1S 

TS 

COUNT 

2038 

REF 

135 

LAST 

450 

40,3250 

10  000 

0 

CCS 

A 
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GAP  : 

L 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 


R204-8 

R2049 


2050 

2051 

2052 

2053 


R 20  54 
R2055 

2056 

2057 

2058 

2059 

2060 


R 206 1 
R2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 


R2074 
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R2076 
R 2077 
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USER'S  PAGE 

LFMONA  10*070 

PAGE  455 

ASS  EM  E 
P I N ( 

NO.  53 

EO  S4 

REF 

44 

LAST 

454 

40, 3251 

54  777 

1 

TS 

D SPCOUNT 

REF 

4 

LAST 

436 

40,3252 

0 3322 

1 

TC 

DSPI  N 

pcc 

2 

LAST 

^ 5 A 

40, 3253 

10  137 

0- 

CCS 

WDCNT 

REF 

1 

40, 3254 

0 3233 

0 

TC 

0SPDCWD1 

REF 

7 

LAST 

440 

40, 3255 

4 43  60 

1 

cs 

VD1 

REF 

45 

LAST 

45  5 

40, 3256 

54  777 

J_ 

TS 

OSPCOUNT 

REF 

2 

LAST 

454 

40, 3257 

0 0115 

1 

TC 

WORE  T 

40. 3260 

00000 

1 

OCT 

00000 

“Uf  J cUU 

40, 3261 

02476 

0 

DECROUND  OCT 

02476 

ncoppr MQ 

r pm  w c 

: dt  c r i 

MDAT  .MDATiH  I MTD 

A SIC.N  ANn  5 

CHAR  nFC  IMAI 

Uorut  L INK 

START ING 

UGINVLIM  o t nrnu  T'" 

IN  LOC  SPECIFIED  IN 

OSPCOUNT 

• 

IT  DOES  NOT  ROUND 

DCC 

i rr* 

4 5 4 

40, 3262 

56  002 

o 

DSPDECNR  XCH 

3 

DC  T 

REF 

1 D 

3 

l_  F1  J i 

LAST 

455 

40, 3263 

54  115 

0 

TS 

WDRET 

REF 

2 

LAST 

454 

40, 3264 

0 3200 

0 

TC 

DSPS  IGN 

REP 

2 

1 ART 

45  5 

40.3265 

0 3232 

TC 

DSPDCW01  -1 

DSPDC2NR 

CONVERTS  C< 

MPAC , MPAC+ 1 ) INTO 

A SIGN  AND  2 

CHAR  DEC  IMAL 

<;tart  tmt. 

IN  1 nr.  SPECIFIED  IN 

OSPCOUNT . 

IT  DOES  NOT  ROUND 

REF 

104 

LAST 

45  5 

40, 3266 

56  002 

0 

DSPDC2NR  XCH 

Q 

REF 

4 

LAST 

455 

40, 3267 

54  115 

0. 

TS 

WDRFT 

REF 

3 

LAST 

455 

40, 3270 

0 3200 

0 

TC 

DSPS  IGN 

REF 

48 

LAST 

4 5 4 

40, 3271 

3 4753 

1 

CAF 

ONE 

RFF 

3 

1 AST 

45  5 

40. 3272 

0 32  33 

0 

TC 

DSPDCWD1 

0SP2DEG  1 

converts  r imp  ad  ANn 

Cl MPAC+1  1 

INTO  A S TRW  ANn  ID  CHAR  DFCIMA1 

STARTING 

IN  THE  LCC 

SPECIFIED 

IN  OSPCOUNT. 

REF 

1C5 

LAST 

45  5 

40, 3273 

56  002 

o 

DSP2DEC  XCH 

o 

REF 

5 

LAST 

455 

40,3274 

54  115 

0 

TS 

WORE  T 

REF 

90 

LAST 

454 

40, 3275 

3 4755 

1 

CAF 

ZERO 

REF 

7 

LAST 

4 5 4 

40,3276 

54  124 

1 

TS 

CODE 

REF 

1 5 

LAST 

435 

40, 3277 

3 62  44 

0 

CAF 

THREE 

REF 

3 

LAST 

41  6 

40,3300 

0 3404 

1 

TC 

11DSPIN  -R2  OFF 

REF 

8 

LAST 

4 5 4 

40, 3301 

3^4751 

0 

CAF 

FOUR 

REF 

4 

LAST 

455 

40, 3302 

0 3404 

1 

TC 

11DSPIN  +R2  OFF 

REF 

4 

LAST 

455 

40,  3303 

0 3200 

0 

TC 

DSPS  IGN 

REF 

4 

LAST 

434 

40,3304 

3 4320 

1 

CAF 

R 2D  1 

REF 

4 

LAST 

455 

40,  3305 

0 3233 

0 

END2DEC  TC 

DSPDCWD1 

DSPDECVN  DISPLAYS  CCA)  UPON  ENTRY  AS  A 2 CHAR  DECIMAL  BEGINNING  IN  THE 
DSP  LOC  SPECIFIED  IN  OSPCOUNT. 

CCA)  SHOULD  BE  IN  FORM  NX  2EXP-14.  THIS  IS  SCALED  TO  FORM  N/100  BEFORE 
DISPLAY  CONVERSION. 
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FO  S4 

2078 

2079 

REF 

1 

40. 3306 

40. 3307 

0 0006 
7 33  16 
2 2 154 

1 

1 

I 

DSP  DEC VN 

EXTEND 

MP  VNDSPCON 

1 Xf.H  M P AC 

MULT  BY  .01 
TAKE  RESULTS 

FROM  L.IMULT  BY 

2EXP14) . 

2 080 
2081 

REF 

91 

LAST 

45  5 

40, 3311 

3 4755 

1 

CAF 

ZFRC 

2082 

REF 

193 

LAST' 

456 

40,3312 

54  155 

1 

TS 

MPAC  +1 

40 » 1 3 1 3 

9ft  002 

0 

XCH 

-Q- 

2084 

REF 

6 

LAST 

455 

40, 3314 

54  115 

0 

TS 

WDRET 

2085 

REF 

3 

LAST 

436 

40,3315 

0 3271 

0 

TC 

DSPDC2NR  +3 

NO  SIGN,  NO 

ROUND,  2 CHAR 

2086 

40,3316 

00244 

0 

VNDSPCON 

OCT 

00244 

.01  ROUNDED 

UP 

2087 

2088 
20R9 

REF 

REF 

REF 

3 

27 

2 

LAST 
LAST 
L AST 

43  3 

44  8 
424 

40, 3317 
40, 3320 
40,  332  1 

0 3306 
0 4635 
62347 

1 

0 

0 

GO VNUPDT 

TC  DSPDECVN 

TC  POST  JUMP 

CADR  UPDAT1  <-2 

THIS  IS  NOT  FOR  GENERAL  USE.  REALLY  PART 
OF  UPDATVB. 

2090 

40,3322 

ENDEC VN 

EQUALS 

2091 

REF 

1 

41, 3363 

SETLOC 

ENDS  PF  +1 

J A CT 

Aft  o Tn 

A ft  A ? 

1 9 7 ft  ft  # 

rniiNT* 

it/PIM 

R2092 

OSPOCTWD 

DISPLAYS  CIA)  UPON 

ENTRY  AS 

A 

5 CHAR  OCT  STARTING  IN  THE  DSP 

R 2 0 9 3 

CHAR 

SPECIFIED 

IN  DSPCOUNT. 

IT  STOPS 

AFTER  5 CHAR  HAVE 

BEEN  DISPLAYED. 

2094 

REF 

8 

LAST 

450 

41,3363 

54  022 

0 

DSPOCTWD 

TS 

CYL 

2095 

REF 

1C7 

LAST 

456 

41,3364 

56  002 

0 

XCH 

Q 

209ft 

R FF 

7 

L AST 

45  6 

41 , 3365 

54  115 

o 

TS 

WDRET 

MUST  USE 

SAME  RETURN  AS  DSP2BIT. 

2097 

REF 

39 

LAST 

450 

41,3366 

3 4736 

1 

CAF 

B I T 1 4 

TO  BLANK 

SIGNS 

2098 

REF 

46 

LAST 

455 

41, 3367 

26  777 

1 

ADS 

DSPCOUNT 

2099 

REF 

9 

LAST 

4 5 5 

4 1 * 3370 

3 4751 

0 

CAF 

FOUR 

2100 

REF 

3 

LAST 

455 

41,3371 

54  137 

0 

WDAGA  IN 

TS 

WDCNT 

2101 

REF 

9 

LAST 

456 

41, 3372 

4 0022 

0 

CS 

CYL 

21 02 

REF 

10 

LAST 

456 

41,3373 

4 0022 

0 

CS 

CYL 

2103 

REF 

11 

LAST 

456 

41,3374 

4 0022 

0 

CS 

CYL 

2104 

REF 

136 

LAST 

4 5 4 

41, 3375 

4 0000 

0 

CS 

A 

2 1 05 

REF 

—1 

41, 3376 

7 4757 

1 

MASK 

D SPMSK 

2106 

REF 

137 

LAST 

4 5 6 

41,3377 

5 0 000 

1 

INDEX 

A 

2107 

REF 

4 

LAST 

454 

4)  , 3400 

3 4066 

0 

CAF 

RELT AB 

2108 

REF 

6 

LAST 

45  4 

41,3401 

7 4346 

0 

MA  SK 

LOW  5 

2109 

REF 

8 

LAST 

455 

41, 3402 

54  124 

1 

TS 

CODE 

2 1 10 

REF 

47 

LAST 

456 

41, 3403 

56  777 

0 

XCH 

OSPC  CUNT 

2111 

REF 

— 5- 

LAST 

454 

41,3404 

54  143 

0 

TS 

COUN  T 

2112 

REF 

138 

LAST 

456 

41, 3405 

10  000 

0 

CCS 

A 

DECREMENT 

DSPCOUNT  EXCEPT  AT  +0 

2113 

REF 

48 

LAST 

456 

41,3406 

54  777 

1 

TS 

DSPCOUNT 

2114 

REF 

28 

LAST 

45  6 

41,3407 

0 4635 

0 

TC 

POST  JUMP 

2115 

REF 

1 

41,3410 

61412 

1 

CADR 

DSPOCTIN 

2116 

REF 

4 

LAST 

456 

41,3411 

10  137 

0 

OCT  BACK 

CCS 

WDCNT 

2117 

REF 

— L 

41,3412 

0 3371 

1 

TC 

W DAG  A IN 

+ 

2118 

REF 

8 

LAST 

455 

41,3413 

4 4360 

1 

DSP  L V 

CS 

VD1 

TO  BLOCK 

NUMERICAL  CHARACTERS,  CLEARS, 

2119 

REF 

49 

LAST 

456 

41,3414 

54  777 

1 

TS 

DSPCOUNT 

AND  SIGNS 

AFTER  A COMPLETED  DISPLAY. 
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2120  REF  8 LAST  456  41,3415  0 0115  1 TC  WDRFT 

2121  REF  4 LAST  443  4757  DSPMSK  = SEVFN 


R2122 

DSP 

28  IT 

DI  SPL 

AYS  C ( A 

) UPON  EN 

TRY  AS 

A 2 CHA 

R OCT  BEGIN 

NING  IN 

THE  DSP 

R2123 

LOC 

SPECIFIED 

IN  OSPCOUNT  BY 

PRE  CYCLING  RIGHT  CIA)  AND  USING 

THE  LOGIC 

R2124 

OF 

THE  5 

CHAR 

OCT  AL 

DISPLAY 

2125 

REF 

3 

LAST 

247 

41,3416 

54  020 

1 DSP2BIT  TS 

CYR 

2126 

REF 

1C8 

LAST 

456 

41,3417 

56  002 

0 

XCH 

Q 

2127 

REF 

9 

LAST 

45  7 

41 , 3420 

54  115 

0 

TS 

WDRET 

2128 

REF 

49 

LAST 

45  5 

41, 3421 

3 4753 

1 

CAF 

ONE 

2129 

REF 

5 

LAST 

456 

41, 3422 

54  137 

0 

TS 

WDCNT 

2130 

REF 

4 

LAST 

457 

41,3423 

4 0020 

1 

CS 

CYR 

2131 

REF 

5 

LAST 

45  7 

41, 3424 

4 0020 

1 

CS 

CYR 

2132 

REF 

6 

LAST 

457 

41, 3425 

56  020 

0 

XCH 

CYR 

2133 

REF 

12 

LAST 

456 

41,3426 

54  022 

0 

TS 

C YL 

2134 

REF 

2 

LAST 

4 5 6 

41,3427 

0 3376 

0 

TC 

WDAGAIN  +5 

R21  35 

FOR 

□ SPIN  PLACE  0/25 

OCT  INTO 

COUNT, 

5 BIT 

RELAY  CODE 

INTO  CODE.  BOTH 

R2136 

ARE 

DESTROYED 

. IF  BIT14  OF  COUNT  I S 

1,  SIGN 

IS  BLANKED 

WITH  LFFT  CHAR. 

R2137 

FOR 

DSPIN1  PLACE  0.1 

INTO  BIT  11  OF  CODE,  2 

INTO  COUNT, 

REL  ADDRESS  OF 

R2138 

DSPTAB  ENTRY 

INTO  DSREL . 

2139  REF  1 40,3322  SETLOC  FNDECVN 


21395 

2140 

REF 

-REF 

6 

109 

LAST 

LAST 

454  TO 
45  7 

456: 
40, 3322 

82  659* 

56  002  0 DSP  I N 

COUNT* 

XCH 

$$/P  IN 

0 

CANT  USE  L FOR  RETURN, 

SINCE 

MANY  OF  THE 

2141 

REF 

1 

40,3323 

54  114 

1 

TS 

DSEX  IT 

ROUTINES  CALLING  DSPIN 

USE  L 

AS  RETURN. 

2142 

REF 

7 

LAST 

456 

40,3324 

3 43  46 

1 

CAF 

L0W5 

2143 

REF 

6_ 

LAST 

45  6 

40,3325 

7 0143 

0 

MASK 

COUNT 

2144 

REF 

6 

LAST 

44  1 

40, 3326 

54  021 

0 

TS 

SR 

2145 

REF 

7 

LAST 

457 

40,3327 

56  021 

1 

XCH 

SR 

2146 

_R.EE 

1- 

40, 3330 

54  141 

1 

TS 

DSREL 

2147 

REF 

20 

LAST 

310 

40,3331 

3 4753 

1 

CAF 

BIT1 

2148 

REF 

7 

LAST 

45  7 

40, 3332 

7 0143 

0 

MASK 

COUNT 

2149 

REF 

139 

LAST 

456 

40,3333 

10  000 

0 

CCS 

A 

2150 

40,3334 

0 3336 

1 

TC 

+ 2 

LEFT  IF  COUNT  IS  ODD 

2151 

REF 

1 

40,3335 

0 3346 

0 

TC 

0SPIN1  -1 

RIGHT  IF  COUNT  IS  EVEN 

2152 

REF 

9 

LAST 

456 

40, 3336 

56  124 

0 

XCH 

CODE 

2153 

REF 

1 

40,3337 

0 4340 

1 

TC 

SLEF  T5 

DOFS  NOT  USE  CYL 

2154 

REF 

10 

LAST 

457 

40, 3340 

54  124 

1 

TS 

CODE 

2155 

-REF 

40 

LAST 

456 

40, 3341 

3 4736 

1 

CAF 

BITI  4 

2156 

REF 

8 

LAST 

457 

40, 3342 

7 0143 

0 

MASK 

COUNT 

2157 

REF 

140 

LAST 

457 

40,3343 

10  000 

0 

CCS 

A 

2158 

-REF 

29 

LAST 

44  6 

40, 3344 

3 4752 

0 

CAF 

TWO 

BIT14  = 1,  BLANK  SIGN 

2159 

REF 

50 

LAST 

457 

40,3345 

6 4753 

l 

AD 

ONE 

BIT14  = 0,  LEAVE  SIGN 

ALONE 

2160 

REF 

9 

LAST 

457 

40, 3346 

54  143 

0 

TS 

COUNT 

+0  INTO  COUNT  FOR  RIGHT 
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40*  ^147 

0 0004 

0 

DSP  INI 

INHINT 

2164 

REF 

2 

LAST 

457 

40  j 3 350 

50  141 

0 

INDEX 

DSREL 

2165 

REF 

24 

LAST 

418 

40, 3351 

1 1*  023 

0 

CCS 

DSPT AB 

40 , 3352 

0 3354 

0 

TC 

+ 2 

2167 

REF 

6 

LAST 

444 

40,3353 

0 5677 

1 

TC 

CCSHOLE 

2168 

REF 

51 

LAST 

457 

40, 3354 

6 4753 

1 

AD 

ONE 

R F F 

1 

40 , 3355 

54  142 

1 

TS 

DSMAG 

2170 

REF 

10 

LAST 

457 

40,3356 

50  143 

1 

INDEX 

COUNT 

2171 

REF 

1 

40,3357 

7 3400 

1 

MASK 

DSMSK 

2172 

40, 3 360 

0 0006 

1 

EXTEND 

2173 

REF 

11 

LAST 

45  7 

40,3361 

60  124 

0 

SU 

CODE 

2174 

40,3362 

0 0006 

1 

EXTEND 

X 

40  T 3 3^  3 

1 33  76 

1 

BZF 

DSL  V 

21  76 

REF 

11 

LAST 

458 

40,3364 

50  143 

1 

DFRNT 

INDEX 

COUNT 

2177 

RFF 

2 

LAST 

45  8 

40,  3365 

4 3400 

l 

CS 

DSMSK 

2178 

REF 

2 

L AS  T 

45  ft 

4T)t  3 366 

7 0142 

1 

MASK 

DSMAG 

2179 

REF 

12 

LAST 

45  8 

40,3367 

6 0124 

0 

AD 

CODE 

2180 

REF 

141 

LAST 

457 

40, 3370 

4 0000 

0 

CS 

A 

2 1 R1 

REF 

3 

LAST 

45  8 

40, 3371 

5 0 141 

0 

INDEX 

DSREL 

2182 

REF 

25 

LAST 

45  8 

40, 3372 

57' 023 

1 

XCH 

DSPTAB 

21  83 

40,3373 

0 0006 

1 

EXTEND 

2184 

REF 

_ 2 

L AS  T 

45  8 

40,3374 

6 3376 

0 

3ZMF 

DSLV 

2185 

REF 

7 

LAST 

418 

40, 3375 

2 5 ' 0 1 6 

1 

I NCR 

NOUT 

2186 

40,3376 

0 0003 

1 

DSL  V 

RELINT 

2187  REF  2 LAST  -453-  40,3377  0 0114  0 TC  DSEX1T 


2188 

40, 3400 

00037  0 DSMSK 

OCT 

37 

2189 

40,  3 401 

01740  0 

OCT 

1740 

2190 

40,3402 

02000  0 

OCT 

2000 

2191 

40,3403 

03740  I 

OCT 

3740 

R 2 192 

FOR 

l 1DSPIN, 

PUT  REL 

ADDRESSS 

OF  DSPTAB 

ENTRY  INTO  A, 

1 IN  BIT11 

R2193 

6 I T 1 

1 OF 

CCDE 

2194 

REF 

4 

LAST 

45  8 

40, 3404 

54  141 

1 

1 ID SP  IN  TS 

DSRE  L 

2195 

REF 

30 

LAST 

457  - 

40,3405 

3 4752 

_0 

CAF 

TWO 

2196 

REF 

12 

LAST 

45  8 

40,  3406 

54  143 

0 

TS 

COUNT 

2197 

REF 

no 

LAST 

45  7 

40,3407 

56  002 

0 

XCH 

Q 

2198 

REF 

— 3 — 

LAST 

45  8 

40,3410 

54  1 14 

1 

TS 

DSEX  IT 

2199 

REF 

2 

LAST 

45  7 

40, 3411 

0 3347 

1 

TC 

DSP  I N1 

2200 

REF 

5 

LAST 

455 

40, 3412 

0 

3322 

1 

DSPOCTI N TC 

DSP  I N 

2201 

40, 3413 

3 

3415 

1 

CAF 

F2 

2202 

REF 

5- 

LAST 

444 

40, 3414 

0 

4640 

1 

TC 

BANK  JUMP 

2203 

REF 

1 

40, 3415 

6 3411 

0 

ENDSPOCT  CADR 

DCTB  ACK 
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+1  INTO  COUNT  FOR  LEFT! SIGN  LEFT  ALONE) 
+3  INTO  COUNT  FOR  LEFT ( TO  BLANK  SIGN) 


IF  + 

I F- 


SAME 

MASK  WITH  77740,76037,75777,  OR  74037 


DSPTAB  ENTRY  WAS  - 
OSPTAB  ENTRY  WAS  + 


OR  0 IN 


MUST  USE  SAME  RETURN  AS  OSPIN 


SO  DSPOCTWD  OOESNT  USE  SWCALL 
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R220A  DSPALARM  FINDS  TC  NVSUBEND  IN  ENTRET  FOR  NVSUB  INITIATED  ROUTINES. 
R2205  ABORT  WITH  01501. 

R2206  DSPALARM  FINDS  TC  ENOOFJOB  IN  ENTRET  FOR  KEYBOARD  INITIATED  ROUTINES. 
R2207  DC  TC  FNTRET. 


22075 

REF 

g_ 

LAST 

456 

40, 3416 

22076 

REF 

50 

LAST 

456 

40, 3417 

2208 

REF 

1 

40, 3420 

22  09 

REF 

8 

LAST 

45  0 

40,3421 

2210 

40, 3422 

2211 

REF 

16 

LAST 

41  2 

40,3423 

22111 

REF 

1 

40,3424 

22112 

REF 

9 

LAST 

459 

40,3425 

22113 

40,3426 

22114 

40,3427 

2211  5 

40, 3430 

22116 

REF 

1 

40, 3431 

2212 

REF 

4_ 

LAST 

2 7 9 

40, 3432 

2213 

REF 

52 

LAST 

45  3 

40, 3433 

2214 

REF 

2 

LAST 

259 

40,3434 

2217 

-40,  343  5 

22171 

REF 

2 

LAST 

452 

40, 3436 

2218 

REF 

1 

40, 3437 

4 43  60 
54  777 
4 3437 
6 0136 

-1— 

1 

0 

0 

PREDSPAL 

DSPALARM 

CS 

TS 

CS 

AD 

VD1 

DSPCOUNT 

NVSBENDL 

ENTEXIT 

0 

0006 

1 

EXTEND 

l 

3434 

0 

BZF 

CHAR ALRM 

4 

3436 

.1 

CS 

MONA  OP 

6 

0136 

0 

AD 

EMTE  XIT 

0 

0006 

1 

EXTEND 

1 

3431 

0 

BZF 

+ 2 

0 

3432 

1 

TC 

+ 2 

0 

42  04 

0 

TC 

K ILMONON 

0 

43  64 

-L 

CHAR ALRM 

TC 

F ALT  CN 

0 

5155 

0 

TC 

ENDOFJOB 

0 

5652 

0 

TC 

POOD  00 

01501 

1 

OCT 

0150  1 

04124 

1 

MONADR 

GENADR  PAST EVB 

0 

4202 

0 

NVSBENDL 

TC 

NVSUBEND 

R 22 1 9 ALMCYCLE  TURNS  ON  CHECK  FAIL  LIGHT,  REDISPLAYS  THE  ORIGINAL  VERB  THAT 

R2220  WAS  EXECUTED,  AND  RECYCLES  TO  EXECUTE  THE  ORIGINAL  VERB/NOUN  COMBINATION 

R2221  THAT  WAS  LAST  EXECUTED.  USED  FOR  BAD  DATA  DURING  LOAD  VERBS  AND  BY 
R2222  MCTBS.  ALSO  BY  MM  CHANG  IF  2 NUMERICAL  CHARACTERS  WERE  NOT  PUNCHED  IN 
R2223  FCR  MM  CODE. 


2224 

REF 

3 

LAST 

452 

4145 

SETLOC 

M I 07  +1 

22245 

REF 

2- 

LAST 

452  TO 

452  : 

1 7 

17* 

COUNT* 

$ T / P IN 

2225 

REF 

5 

LAST 

459 

4145 

0 4364 

1 

ALMCYCLE 

TC 

F ALTON 

2228 

REF 

3 

LAST 

449 

4146 

4 1041 

1 

CS 

VERBSAVE 

2229 

REF 

1 1 

LAST 

45  2 

4147 

55' 013 

0 

TS 

REQRET 

2230 

REF 

89 

LAST 

452 

4150 

0 4616 

1 

TC 

BANKCALL 

2231 

REF 

8 

LAST 

452 

4151 

623  3 7 

1 

CADR 

UPDATVB  -1 

2232 

REF 

29 

LAST 

456 

4152 

0 4635 

_o 

TC 

POST  JUMP 

2233 

REF 

2 

LAST 

412 

4153 

62002 

1 

ENDALM 

CADR 

ENTER 

R 22 34  MMCHANG  USES  NOUN  DISPLAY  UNTIL  ENTER.  THEN  IT  USES  MODE  DISP. 

R 22 3 5 IT  GOES  TO  MODROUT  WITH  THE  NEW  M M CODE  IN  A,  BUT  NOT  DISPLAYED  IN 

R2236  MM  LIGHTS. 

R223T  IT  DENANOS  2 NUMERICAL  CHARACTERS  BE  PUNCHED  IN  FOR  NEW  MM  CODE. 
R2238  IF  NOT,  IT  RECYCLES. 


02  NOV.  25,1968  LEM0NAID.070  PAGF  459 
USER'S  PAGE  NO.  57  EO  S4 


IF  THIS  IS  A MONITOR,  KILL  IT 


NOT  NVSUB  INITIATED.  TURN  ON  OPR  ERROR 


TURN  ON  CHECK  FAIL  LIGHT. 

GET  ORIGINAL  VERB  THAT  WAS  EXECUTED 
SET  FOR  ENTPASO 

PUTS  ORIGINAL  VERB  INTO  VERBREG  AND 
DISPLAYS  IT  IN  VERB  LIGHTS. 


2239 


REF 


1 


41, 3430 


SETLOC  DSP2BIT  +10D 
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22395 

2240 

REF 

REF 

6 

1 

LAST 

456  TO  457: 

41, 3430 

37  792* 

0 3452  1 MMCHANG 

COUNT*  $i/PIN 
TC  REQMM 

ENTPASHI  ASSUMES  THE  TC  REQMM  AT  MMCHANG 
IF  THIS  MOVES  AT  ALL,  MUST  CHANGE 

A2242 

MMADREF  AT  ENTPASHI. 

2243 

REF 

21 

LAST 

3 8 9 

41, 3431 

3 4747 

1 

CAF 

B I T 5 

OCT20  = ND2 . 

REF 

51- 

LAST 

45  9 

41 » 34^2 

6 0777 

o 

AD 

nspr.  nuNT 

DSPCOUNT  MUST  = -ND2. 

2245 

41,3433 

0 0006 

1 

EXTEND 

DEMAND  THAT  2 NUM  CHAR  WERE  PUNCHED  IN. 

2246 

41,3434 

1 3436 

1 

BZF 

*2 

41 f 

0 4145 

0 

TC 

ALHC YCLE 

DSPCOUNT  NOT=  -ND2.  ALARM  AND  RECYCLE. 

2248 

REF 

92 

LAST 

456 

41,3436 

3 4755 

1 

CAF 

ZERO 

DSPCOUNT  = -ND2 . 

2249 

REF 

12 

LAST 

450 

41, 3437 

57 ' 0 02 

1 

XCH 

NOUNPFG 

22 

REF 

1 <34 

1 AST 

45  6 

41 ♦ 3440 

54  1 54 

0 

TS 

MPAC 

2251 

REF 

4 

LAST 

424 

41, 3441 

3 4361 

1 

CAF 

ND1 

2252 

REF 

52 

LAST 

460 

41, 3442 

54  777 

1 

TS 

DSPCOUNT 

22 

REF 

90 

LAST 

45  9 

41, 3443 

0 4616 

1 

TC 

BANKCALL 

2254 

REF 

4 

LAST 

41  8 

41, 3444 

60601 

0 

CADR 

2BLANK 

2255 

REF 

10 

LAST 

45  9 

41,3445 

4 43  60 

1 

CS 

VD1 

BLOCK  NUM  CHAR  IN 

2256 

RFF 

53 

LAST 

46  0 

41,  3446 

54  777 

1 

TS 

DSPC  OUNT 

2257 

REF 

195 

LAST 

460 

41, 3447 

3 01  54 

1 

CA 

MPAC 

2258 

REF 

30 

LAST 

459 

41,3450 

0 4635 

0 

TC 

POST  JUMP 

2259  REF  1 41.3451  10037  1 CADR  MODROUTB  GO  THRU  STANDARD  LOC. 


2260 

2261 

REF 

REF 

2 

1 1 1 

LAST 

LAST 

313 
45  8 

04,2037 

41,3452 

4 0002 

1 

MODROUTB 

REQMM 

CS 

V37 

Q 

2262 

REF 

12 

LAST 

459 

41, 3453 

5 5 ' 0 13 

0 

TS 

REQRET 

2263 

REF 

§_ 

L AST 

46  0 

41, 3454 

3 4361 

1 

CAF 

ND1 

2264 

REF 

54 

LAST 

460 

41 , 3455 

54  777 

1 

TS 

DSPCOUNT 

2265 

REF 

93 

LAST 

460 

41, 3456 

3 4755 

1 

CAF 

ZERO 

2266 

REF 

13 

LAST 

46  0 

41, 3457 

55' 002 

o 

TS 

NOUNPEG 

2267 

REF 

91 

LAST 

460 

41,3460 

0 4616 

1 

TC 

BANKCALL 

2268 

REF 

5 

LAST 

460 

41, 3461 

60601 

0 

CADR 

2 BL A NK 

2269 

REF 

— 3 

L-AST 

42  4 

41, 3462 

0 4427 

1 

TC 

FLAS  HON 

2270 

REF 

52 

LAST 

45  8 

41, 3463 

3 47  53 

1 

CAF 

ONE 

2271 

REF 

18 

LAST 

449 

41, 3464 

5 5 ' 0 00 

1 

TS 

DEC  B PNC H 

SET  FOR  DEC 

2272  REF  10  LAST  459  41,3465  0 0136  0 TC  ENTEXIT 


R2273 

VBRQEXEC 

ENTERS  REQUEST  TO  FXFC  FDR 

ANY  ADDRESS  WITH  ANY  PRIORITY. 

R2274 

R2275 

R2276 

IT  DOES  ENDOF JOB  AFTER  ENTERING  REQUEST.  DISPLAY  SYST  IS  RELEASED. 

IT  ASSUMES  NOUN  26  HAS  BEEN  PRELOADED  WITH 

COMPONENT  1 PRIORITY (BITS  10-14)  B!T1=0  FOR  NO VAC . RTT1=1  FOR  FINDVAC. 

R2277 

R2278 

COMPONENT 

COMPONENT 

2 JOB  ADRES  (12  BIT  ) 

3 8BC0N 

2279 

2280 
2281 

REF  21 
REF  18 
REE  142 

LAST  457 
LAST  453 
LAST  458 

41 . 3466 

41 . 3467 
41,3470 

3 4753  1 
7 1045  0 
10  000  0 

VBRQEXEC  CAF  BIT1 

MASK  DSPTEM1 

r.F-S A 

2282 

2283 

REF  1 

REF  1 

41.3471 

41.3472 

0 3510  0 
3 4351  1 

TC  S FT  V AC 

CAF  TCNOVAC 

I F 
I F 

BIT1  = l,  FINDVAC 
BIT1  = 0,  NOVAC 

GAP 
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2284 

REF 

196 

LAST 

460 

41 ,3473 

54  154 

0 

REQEX1 

TS 

MPAC 

2285 

REF 

22 

LAST 

460 

41,3474 

4 4753 

0 

CS 

BIT1 

2 ? R A 

REF 

L AST 

460 

41 , 3475 

7 1045 

0 

MASK 

DSPTEM1 

2287 

REF 



197 

LAST 

46  1 

41,3476 

54  160 

1 

TS 

MPAC  +4 

2288 

REF 

6 

LAST 

440 

41, 3477 

0 44  57 

0 

REQUESTC 

TC 

RFLDSP 

2289 

REF 

5 

LAST 

450 

41, 3500 

3 4217 

1 

CA 

ENDI NST 

2290 

REF 

198 

LAST 

46  1 

41,3501 

54  157 

0 

TS 

MPAC  +3 

2291 

41,3502 

0 0006 

1 

EXTEND 

2292 

REF 

2Q 

LAST 

46  1 

41, 3503 

3 1047 

0 

DC  A 

DSPTEM1  +1 

2293 

REF 

199 

LAST 

46  1 

41,3504 

5 2 156 

1 

DXCH 

MPAC  +1 

2294 

REF 

200 

LAST 

46  1 

41, 3505 

3 0160 

0 

CA 

MPAC  +4 

2295 

41, 3506 

0 0004 

a 

INHINT 

2296 

REF 

201 

LAST 

461 

41,3507 

0 0154 

l 

TC 

MPAC 

2 2 97 

REF 

41, 3510 

3 43  54 

4 

SETVAC 

CAF 

TCF I NDVC 

2298 

REF 

1 

41,  3511 

0 3473 

1 

TC 

REQF  XI 

R2299 — 

VBRQWA IT 

ENTERS  REQUEST  TO  WAITLIST  FOR 

ANY  ADDRESS  WITH  ANY  DFLAY. 

R2300 

IT 

DOES  ENDOF JOB  AFTER  ENTERING  REQUEST 

•DISPLAY 

SYST  IS 

RELE  ASED. 

R2301 

IT 

ASSUMES  NOUN  26 

HAS  BEEN  PRELOADED 

WITH 

R2302 

COMPONEN  T 

L_i 

DF]  A Y 

1 1 OW  BITS) 

R2303 

CCMPCNENT 

2 

TASK  ADRES  (12  BIT) 

R 2304 

COMPONENT 

3 

B BC  0 N 

2305 

REF 

1 

41, 3512 

3 43  52 

l 

VBRQWAI T 

CAF 

TC W A IT 

2306 

REF 

202 

LAST 

46  1 

41,3513 

54  154 

0 

TS 

MPAC 

2307 

REF 

21 

LAST 

46  l 

41,3514 

3 1045 

1 

CA 

DSPT  EMI 

2308 

REF 

1 

41,3515 

0 34  76 

1 

ENDRQWT 

TC 

REQUESTC  -1 

R2309 

R2310 


REGUESTC  WILL  PUT  TASK  ADRES  INTO  MPAC+1,  88 CON  INTO  MPAC+2, 

TC  ENDOF JOB  INTO  MPAC+3.  IT  WILL  TAKE  TIME  DELAY  OUT  OF  MPAC+4  AND 


R2311 

LEAVE 

IT  IN  A 

, INHINT  AND  TC 

MPAC. 

2312 

REF 

2 

LAST 

459 

40, 3440 

SETLOC 

NVSBENDL 

2312  5 

RFF 

7 

LA  ST 

45  7 TO 

459  : 

78  737* 

COUNT  * 

% %/ p IN 

2313 

REF 

53 

LAST 

460 

40, 3440 

3 4753 

1 

VBPROC 

CAF 

ONE 

2314 

REF 

2 

LAST 

440 

40, 3441 

55*014 

1 

TS 

LOADSTAT 

2315 

RFF 

2 

LAST 

459 

40, 3442 

0 42  04 

0 

TC 

KI LMONON 

2316 

REF 

7 

LAST 

46  1 

40, 3443 

0 4457 

0 

TC 

RELDSP 

2317 

REF 

3 

LAST 

419 

40,3444 

0 4433 

1 

TC 

FLASHOFF 

23  L8 

REF 

2 

LAST 

440 

40, 3445 

0 3545 

0 

TC 

RECAITST 

2319 

REF 

54 

LAST 

46  1 

40f  3 446 

4 4753 

0 

VBTERM 

CS 

ONE 

2320 

REF 

2 

LAST 

422 

40, 3447 

0 3441 

0 

TC 

VBPPCC 

R2320  1 

PROCK  EY 

PERFORMS  THE 

SAME  FUNCTION  AS 

VBPROC. 

IT  MUST 

BE  CALLED 

R23202 

EXECUTIVE  CONTROL,  WITH  CHRPRIO. 

+ 1 


USER'S  PAGF  NO.  59  ED  S4 

TC  NOVAC  OR  TC  FINDVAC  INTO  MPAC 

PRIO  INTO  MPAC+4  AS  A TEMP 

TC  ENDOF JOB  INTO  MPAC+3 

JOB  ADRES  INTO  MPAC+1 
B3C0N  INTO  MPAC+2 
PRIO  IN  A 


TC  WAITLIST  INTO  MPAC 
TIME  DELAY 

PROCEED  WITHOUT  DATA 
TURN  ON  KILL  MONITOR  BIT 

SEE  IF  THERE  IS  ANY  RECALL  FROM  FNDIDLE 
TERM  VERB  SETS  LOADSTAT  NEG 
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23205 

REF 

94 

LAST 

460 

40,3450 

3 4755  1 PROCKEY 

CAF 

ZERO 

SET  REGRET  FOR 

ENTFR  PASS  0. 

23206 

REF 

13 

LAST 

460 

40,3451 

5 5 ' 0 13  0 

TS 

REQR FT 

4 4360  1 

cs 

V D 1 

BLOCK  NUMERICAL 

CHARACTERS,  SIGNS,  CLEAR 

2320  7 
23208 

REF 

REF 

55 

LAST 

460 

40, 3453 

54  777  1 

TS 

DSPCCUNT 

23209 

REF 

3 

LAST 

46  1 

40,3454 

0 3440  1 

TC 

V B PR  OC 

R2321  VBRESEQ  WAKES  ENDIDLE  AT  SAME  LINE  AS  FINAL  ENTER  OF  LOAD  1L+3). 

R 2322  (MAIN  USE  IS  INTENDED  AS  RESPONSE  TO  INTERNALLY  INITIATED  FLASHING 

R2323  DISPLAYS  IN  ENDIDLE.  SHOULD  NOT  BE  USED  WITH  LOAD  VERBS, PLEASE  PERFORM, 

R2324  OR  PLEASE  MARK  VERBS  BECAUSE  THEY  ALREADY  USE  L+3  IN  ANOTHER  CONTEXT.) 


2325 

REF  95  LAST  462 

40,3455  4 4755 

0 

VBRESEQ  CS 

ZFRO 

MAKE  IT  LOOK  LIKE  DATA  IN. 

2326 

REF  4 LAST  462 

40,3456  0 3441 

0 

TC 

VBPROC  +1 

R2327 

FLASH  IS  TURNED  OFF 

BY  PROCEED  WITHOUT 

DATA,  TERMINATE, 

RESEQUENCE, 

R2328 

END  Of  LOAD. 
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P2329  KEY  RELEASE  ROUTINE 

R 23 30  THIS  ROUTINE  ALWAYS  TURNS  OFF  THE  UPACT  LIGHT  AND  ALWAYS  CLEARS  DSPLOCK. 

R2331  THE  HIGHEST  PRIORITY  FUNCTION  OF  THE  KEY  RELEASE  BUTTON  IS  THE 
R2332  UNSUSEENO I NG  OF  A SUSPENDED  MONITOR  WHICH  WAS  EXTERNALLY  INITIATED. 

R2333  THIS  FUNCTION  IS  ACCOMPLISHED  BY  CLEARING  DSPLOCK  AND  TURNING  OFF 

R2334  THE  KEY  RELEASE  LIGHT  IF  BOTH  DSPLIST  AND  CADRSTOR  ARE  EMPTY. 

R2335  IF  NO  SUCH  MONITOR  EXISTS,  THEN  RELDSP  IS  EXECUTED  TO  CLEAR  DSPLOCK 

R2336  AND  THE  EXTERNAL  MONITOR  BIT  (FREEING  THE  DISPLAY  SYSTEM  FOR  INTERNAL 

R2337  USE),  TURN  OFF  THE  KEY  RELEASE  LIGHT,  AND  WAKE  UP  ANY  JOB  IN  DSPLIST. 

R2338  IN  ADC  IT  ION  IF  THERE  IS  A JOB  IN  ENDIDLE,  THEN  CONTROL  IS  TRANSFERRED 

R2339  TO  PINBRNCF  (IN  DISPLAY  INTERFACE  ROUTINE)  TO  RE-EXECUTE  THE  SERIFS  OF 
R23391  NVSUB  CALLS  ETC.  THAT  PRECEDED  THE  ENDIDLE  CALL  STILL  AWAITING  RESPONSE. 
R2340  THIS  FEATURE  IS  INTENDED  FOR  USE  WHEN  THE  OPERATOR  HAS  BEEN  REQUESTED  TO 

R 2341  RESPOND  TO  SOME  INTERNAL  ACTION  THAT  USED  ENDIDLE,  BUT  HE  HAS  WPITTFN 

R2342  OVER  THE  INFORMATION  ON  THE  DISPLAY  PANEL  BY  SOME  DISPLAYS  OF  HIS  OWN 

R 2343  INITIATION  WHICH  DO  NOT  SERVE  AS  RESPONSES.  HITTING  KEY  RLSE  WILL 

R2344  RE-ESTABLISH  THE  DISPLAYS  TO  THE  STATE  THEY  WERE  IN  BEFORE  HE  OBSCURED 

R 2345  THEM,  SO  THAT  HE  CAN  SEE  THE  WAITING  REQUEST.  THIS  WORKS  ONLY  FOR 

R2346  INTERNAL  PROGRAMS  THAT  USED  ENDIDLE  THROUGH  MARGARETS  DISPLAY 
R2347  SUBROUTINES. 


2348 

REF 

22 

LAST 

43  7 

40,3457 

4 4751 

1 

VBRELDSP 

CS 

BIT3 

23A9 

40  . 3 46  0 

0 0006 

1 

EXTEND 

2350 

REF 

11 

LAST 

234 

40, 3461 

03  Oil 

1 

WAND 

DSAL  MOUT 

TURN  OFF  UPACT  LITF 

2351 

REF 

2 

LAST 

41  1 

40,3462 

10  115 

0 

CCS 

21/22REG 

OLD  DSPLOCK 

2352 

REF 

41 

LAST 

4 5 7 

40, 3463 

3 4736 

1 

CAF 

B I T 1 4 

2353 

REF 

6 

LAST 

452 

40 f 3 464 

7 1021 

1 

MASK 

MONS  AVE 1 

EXTERNAL  MONITOR 

BIT  ( E MB  ) 

2354 

REF 

143 

LAST 

460 

40,3465 

10  000 

0 

CCS 

A 

2355 

REF 

1 

40,3466 

0 3475 

1 

TC 

UNSUSPEN 

OLD  DSPLOCK  AND 

EMB  BOTH  1,  UNSUSPFNO . 

2356 

REF 

8 

LAST 

46  1 

40, 3467 

0 4457 

0 

TSTLTS4 

TC 

RELDSP 

NOT  UNSUSPENDING 

EXTERNAL  MONITOR, 

2357 

REF 

5 

LAST 

45  1 

40, 3470 

1 1 ' 0 42 

1 

CCS 

CADRSTOR 

RELEASE  DISPLAY 

SYSTEM  AND 

2358 

40,3471 

0 3473 

1 

TC 

+2 

DO  RE-ESTABLISH 

IF  CAORSTnR  IS  FULL  . 

2359 

REF 

53 

LAST 

459 

40, 3472 

0 5155 

0 

TC 

ENDOFJOB 

2360 

REF 

31 

LAST 

460 

40,3473 

0 4635 

0 

TC 

POST  JUMP 

2361 

REF 

4 

LAST 

31  3 

40,3474 

20723 

0 

CADR 

P I NB  RNCH 

2362 

REF 

96 

LAST 

46  2 

40, 3475 

3 4755 

1 

UNSUSPEN 

CAF 

ZERO 

EXTERNAL  MONITOR 

IS  SUSPENDED, 

2363 

REF 

5 

LAST 

45  1 

40, 3476 

5 5 ’ 0 1 2 

1 

TS 

DSPLOCK 

JUST  UNSUSPEND 

IT  BY  CLEARING  DSPLOCK. 

23  64 

REF 

6 — 

LAST 

46  3 

40, 3477 

11*042 

1 

CCS 

CADR  STOP. 

TURN  KEY  RELEASE  LIGHT  OFF  IF  BOTH 

2365 

REF 

54 

LAST 

46  3 

40,3500 

0 5155 

0 

TC 

ENDOFJOB 

CADRSTOR  AND  DSPLIST  ARE  EMPTY. 

2366 

REF 

2 

LAST 

45  1 

40, 3501 

0 4502 

1 

TC 

RELDSP1 

23661 

REF 

55 

LAST 

46  3 

40,3502 

0 5155 

0 

TC 

ENDOFJOB 

2367  40,3503 


ENDRELDS  EQUALS 


GAP: 


L 

P2368 

R2369 

R2370 

R23701 

R23702 

R23703 

R23704 

R23705 


R2371 

R2372 


R2373 

R2374 

R2375 

R2376 

R2377 


R2378 

R2379 

R2380 

R2381 

R2382 

R2383 

R2384 

R2385 

R2386 

R2387 

R2388 

R2388 1 
R23882 


R2389 

R23891 


R 23  90 
P,  2 3 9 1 

R2391  1 
R2391  2 
R2391 3 
R23914 
R 2391  5 
R23916 
R2391 7 

R2391 8 
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NVSU8  IS  USED  FOR  SUB  ROUTINE  CALLS  FROM  WITHIN  COMPUTER.  IT  CAN  BE 
USED  TO  CALL  THE  COMBINATION  OF  ANY  DISPLAY,  LOAD,  OR  MONITOR  VERB 
TOGETHER  WITH  ANY  NOUN  AVAILABLE  TO  THE  KEYBOARD. 

PLACE  OVVVVVVVNNNNNNN  INTO  A. 

V-S  ARE  THE  7 BIT  VERB  CODE.  N-S  ARE  THE  7 BIT  NOUN  CODE. 


IE  N V SUB  IS  CALLEC  WITH  THE  FOLLOWING  NEGATIVE  NUMBERS  (RATHER  THAN  THE 
VERB-NOUN  CODE)  IN  A,  THEN  THE  DISPLAY  IS  BLANKED  AS  FOLLOWS- 
-4  FULL  BLANK,  -3  LEAVE  MODE,  -2  LEAVE  MODE  AND  VERB,_-1  BLANK  R-S  ONLY 

NVSUB  CAN  BE  USED  WITH  MACH  CADR  TO  BE  SPEC  BY  PLACING  THE  C ADR  INTO 
MPAC+2  BEFORE  THE  STANDARD  NVSUB  CALL. 

NVSUB  RETURNS  TO  2+  CALLING  LOC  AFTER  PERFORMING  TASK,  IF  DISPLAY 
SYSTEM  IS  AVAILABLE.  THE  NEW  NOUN  AND  VERB  COOES  ARE  DISPLAYED. 

IF  V : S =0,  THE  NEW  NOUN  CODE  IS  DISPLAYED  ONLYIRETURN  WITH  NC  FURTHER 
ACTION).  IF  N-S  =0,  THE  NEW  VERB  CODE  IS  DISPLAYED  ONLY ( RETURN  WITH  NO 
FURTHER  ACTIONS- 

IT  RETURNS  TO  1+  CALLING  LOC  WITHOUT  PERFORMING  TASK,  IF  DISPLAY 
SYSTEM  IS  BLOCKED  (NOTHING  IS  DISPLAYED  IN  THIS  CASE). 

IT  DOES  TC  ABORT  (WITH  OCT  01501)  IF  IT  ENCOUNTERS  A DISPLAY  PROGRAM 
ALARM  CONDITION  BEFORE  RETURN  TO  CALLER. 

TEE  DISPLAY  SYSTEM  IS  BLOCKED  BY  THE  DEPRESSION  OF  ANY 
KEY,  EXCEPT  ERROR  LIGHT  RESET 

IT  IS  RELEASED  BY  THE  KEY  -RELEASE  BUTTON,  ALL  EXTENDED  VERES, 

PROCEED  WITHOUT  DATA,  TERMINATE,  RESEQUENCE,  INITIALIZE  EXECUTIVE, 

RECALL  PART  OF  RECALTST  IF  ENDIDLE  WAS  USED, 

VR  = REQUEST  EXECUTIVE,  VB  = REQUEST  WAITLIST, 

MONITOR  SET  UP. 

TEE  DISPLAY  SYSTEM  IS  ALSO  BLOCKED  BY  THE  EXTERNAL  MONITOR  BIT,  WHICH 
INDICATES  AN  EXTERNALLY  INITIATED  MONITOR  IS  RUNNING  (SEE  MONITOR) 


A NVSUB  CALL  THAT  PASSES  DSPLOCK  AND  THE  EXTERNAL  MONITOR  BIT  ENDS  OLD 
MONITOR. 


DSPLOCK  IS  THE  INTERLOCK  FOR  USE  OF  KEYBOARD  AND  DISPLAY  SYSTEM  WHICH 
LOCKS  CUT  INTERNAL  USE  WHENEVER  THERE  IS  FXTERNAL  KEYBOARD  ACTION. 

NVSUB  SHOULD  BE  USED  TWICE  IN  SUCCESSION  FOR  :PLEASE  PERFORM:  SITUATIONS 
(SIMILARLY  FOR  PLEASE  MARK).  FIRST  PLACE  THE  COOED  NUMBER  FOR  WHAT 
ACTION  IS  DESIRED  OF  OPERATOR  INTO  THE  REGISTERS  REFFRPED  TO  BY  THE 
: CH  ECKL I ST : NOUN.  GO  TO  NVSU8  WITH  A DISPLAY  VERB  AND  THE  :CHECKLIST: 
NOUN.  GO  TC  NVSUB  AGAIN  WITH  THE  : PLEASE  PERFORM:  VERB  AND  ZEROS  IN  THE 
LOW  7 BITS.  THIS  :PASTES  UP:  THE  : PLEASE  PERFORM:  VERB  INTO  THE  VERB 
LIGHTS. 

NVMCNCPT  IS  AN  ENTRY  SIMILAR  TO  NVSUB,  BUT  REQUIRING  AN  ADDITIONAL 
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R239181  PARAMETER  IN  L.  IT  SHOULD  BE  USED  ONLY  WITH  A MONITOR  VERB-NOUN  CODE  IN 
R 2 39 1 82  A.  AFTER  EACH  MONITOR  DISPLAY  A *PLEASE*  VERB  WILL  BE  PASTED  IN  THE  VFRB 
R239183  LIGHTS  OR  DATA  WILL  BE  BLANKED  (OR  BOTH)  ACCORDING  TO  THE  OPTIONS 
R 239 1 84  SPECIFIED  IN  L.  IF  BITS  8-14  OF  L ARE  OTHER  THAN  ZERO,  THEN  THEY  WILL 
R239185  BE  INTERPRETED  AS  A VERB  CODE  AND  PASTED  IN  THE  VERB  LIGHTS.  (THIS  VERB 
R 2 39 1 86  CODE  SHOULD  DESIGNATE  ONE  OF  THE  *PLEASE*  VERBS.)  IF  BITS  1-3  OF  L ARE 
R239187  OTHER  THAN  ZERO,  THEN  THEY  WILL  BE  USED  TO  BLANK  DATA  BY  BEING  FED  TO 
R239188  BLANKSUB . IF  NVMONOPT  IS  USED  WITH  A VERB  OTHER  THAN  A MONITOR  VERB, 
R239189  THE  PARAMETER  IN  L HAS  NO  EFFECT. 

R2392  NVSUB  IN  FIXED-FIXED  PLACES  2 +C ALL ING  LOC  INTO  NVQTEM,  TC  N V SUBEND  INTO 
R2393  ENTRET.  (THIS  WILL  RESTORE  OLD  CALLING  BANK  BITS) 
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ONLY 


7,8,9,03  10  (A  HAD  0,1, 2, OR  3) 
BLANK  SPECIFIED  DSPTABS 


NVTEMP  HAS  -4  (NEVER  TOUCH  MODREG) 
-3 
-2 
-1 


PROTECT  AGAINST  INVISIBLE  FLASH 
ZEROS  REQRET 

IN  BANK 

SET  RETURN  TO  MVSUBEND 
WHAT  NOW 

NORMAL  NVSUB  CALL  (EXECUTE  VN  OR  PASTE) 
BLANK  DISPLAY  AS  SPECIFIED 


TEMP  FOR  NOUN  (CANT  USE  MPAC.  DSPDECVN 
USES  MPAC,  +1,  ±2 

RIGHT  7 

TEMP  FTIR  VERB  (CANT  USE  MPAC+1.  DSPDECVN 
USES  MPAC,  +1,  +2). 

TEST  NOUN 

IF  NOUN  NOT  +0,  GO  ON 

IF  NOUN  = +0,  DISPLAY  VERB  . THEN  RETURN 
ZERO  REQRET  SO  THAT  PASTED  VERBS  CAN 
BE  EXECUTED  BY  OPERATOR. 

TEST  VERB 

IF  VERB  NOT  <-0,  GO  ON 
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R2474 


END  I OLE  ABORTS  (WITH  CODE  01206)  IF  A SECOND  JOB  ATTEMPTS  TO  GO  TO  SLEEP 
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R 2475  IN  PINBALL.  IN  PARTICULAR,  IF  AN  ATTEMPT  IS  MADE  TO  GO  TO  ENDIDLE  WHEN 
R2476  1)  CACRSTOR  NOT=  *0.  THIS  IS  THE  CASE  WHERE  THE  CAPACITY  OF  END I DLF  IS 
R2477  EXCEEDED.  (■*— NZ  INDICATE  A JOB  IS  ALREADY  ASLEEP  DUE  TO  ENDIDLE.) 

R 247 8 2)  DSPLIST  NOT=  +0.  THIS  INDICATES  A JOB  IS  ALREADY  ASLEEP  DUE  TO 
R2479  NVSUBLSY. 
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13 

LAST 

466 

4236 

4 4360 

1 

cs 

VD1 

2503 

REF 

58 

LAST 

466 

4237 

54  777 

1 

TS 

DSPCOUNT 

2504 

REF- 

32 

LAST 

463  - 

4240 

0 4635 

o_ 

TC 

POST  JUMP 

2505 

REF 

2 

LAST 

422 

4 241 

61446 

0 

CADR 

V8TERM 

2506 

4242 

00042 

1 

34DEC 

DEC 

34 

R2507  JAMPR-GC  ALLOWS  PROGRAMS  TC  PERFORM  THE  PROCEED/PROCEED  WITHOUT -DATA 
R2508  FUNCTION.  IT  DOES  ENDOFJOB . 
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2509 

REF 

4 

LAST 

468 

4243 

3 4201 

0 

JAMPROC 

CAE 

P1NSUPBT 

2510 

4244 

0 0006 

1 

EXTEND 

2 5101 

REF 

7 

LAST 

46  8 

4 245 

01  007 

_L_ 

WRITE 

SUPERBNK 

25102 

REF 

1 

4246 

3 42  54 

0 

CAE 

33DEC 

25103 

REF 

17 

LAST 

46  8 

4247 

55' 013 

0 

TS 

REOP ET 

LEAVE  ENTER  SET  FOR  ENTPASSO. 

DC  11 

DCC 

1 A 

L A S3 

46  8 

4250 

4 43  60 

_1_ 

cs 

VD1 

2512 

Ktr 

REF 

I *T 

59 

LAST 

468 

4251 

54  777 

1 

TS 

DSP  C OUNT 

2513 

REF 

33 

LAST 

46  8 

4252 

0 4635 

0 

TC 

POST  JUMP 

25  14 

REE 

5 

LAST 

46  2 

4253 

61440 

0 

CADR 

VBPROC 

2515 

4254 

00041 

1 

33DEC 

DEC 

33 

R2532  BLANKSUB  BLANKS  ANY  COMBINATION  OF  Rl,  R2,  R3. 

R 2 5 33  CALL  WITH  ELANKING  CODE  IN  A. 

R2534  B I T 1= 1 BLANKS  Rl , BIT2  = 1 BLANKS  R2  , 3IT3=1  BLANKS  R3. 

R2535  ANY  COMBINATION  OF  THESE  BITS  IS  ACCEPTED. 


R2536 

2538 

DS PC OUNT 

ft  FF  A 

IS  RESTORED 

1 AAA 

TO 

STATE 

4255 

IT  WAS 
7 47  57 

IN 

_1 

BEFORE  BLANKSUB 

Rl  ANKS1IR  MASK 

WAS  EXECUTED. 
SEVEN 

25381 

REF 

6 

LAST 

466 

4256 

54  123 

0 

TS 

NVTE  MP 

STORE  BLANKING  CODE  IN  NVTEMP. 

2539 

REF 

43 

LAST 

465 

4257 

3 4736 

1 

CAF 

B I T 1 4 

2540 

REF 

g 

LAST 

46  7 

4260 

7 1021 

1 

MA  SK 

MCNS  AVE1 

EXTERNAL  MONITOR  BIT 

25401 

REF 

7 

LAST 

465 

4261 

6 1012 

0 

AD 

DSPLOCK 

25402 

REF 

146 

LAST 

4 6 6 

4262 

10  000 

0 

CCS 

A 

2540  3 

RFF 

11 

LAST 

46  8 

4263 

0 0002 

0 

TC 

0 

DSP  SYST  BLOCKED.  RET  TO  1+  CALLING 

LOC 

25404 

REF 

1 19 

LAST 

46  9 

4264 

24  002 

0 

INCR 

3 

DSP  SYST  AVAILABLE 

A2541 

SET  RETURN  FOR  2*  CALLING  LOG 

2541  1 

REF 

7— 

LAST 

463^ 

4265 

10  123 

0 

CCS 

NVTEMP 

25412 

4266 

1 42  70 

1 

TC  F 

+ 2 

25413 

REF 

120 

LAST 

469 

4267 

0 0002 

0 

TC 

Q 

NOTHING  TO  BLANK.  RET  TO  2+  CALLING 

LOC 

2542 

REF 

121 

LAST 

46  9 

4270 

22  002 

0 

LXCH 

Q 

S FT  RETURN  FOR  2 + CALLING  LOC 

2544 

REF 

1 

4271 

3 4302 

1 

CAF 

BLNKBBNK 

2545 

REF 

12 

LAST 

465 

4272 

56  006 

l 

XCH 

BBANK 

2545  1 

4273 

0 0006 

_1 

EXTEND 

25452 

REF 

8 

LAST 

469 

4274 

04  007 

1 

ROR 

SUPERBNK 

SAVE  OLD  SUPERBITS. 

2546 

REF 

43 

LAST 

42  7 

4275 

52  131 

0 

DXCH 

BUF 

2 5461 

REF 

5 

LASL 

469  _ 

4276 

3 4201 

0 

CAF 

PINSUPBT 

25462 

4277 

0 0006 

1 

EXTFND 

25463 

REE 

9 

LAST 

469 

4300 

01  007 

1 

WRITE 

SUPERBNK 

2547 

-REF- 

1 — 

4301 

0 3503 

J. 

TC 

BLNK  SUB 1 

2548 

REF 

60 

LAST 

469 

0 777 

E8ANK= 

DSPCOUNT 

2548  1 

REF 

2 

LAST 

469 

4302 

60101 

1 

BLNKBBNK 

BBCON 

BLNKSUB1 

2549 

4303 

ENDBLFF 

EQUALS 

25  50 

REF 

— I 

40. 

3 50  3 

SETLOC 

ENDRELDS 

25505 

REF 

8 LAST 

4o  1 TO 

46  5 : 

35  772* 

COUNT* 

t $ / P I N 

2551 

REF 

61 

LAST 

469 

40, 

3503 

3 0777 

0 

BLNKSUB1 

CA 

DSPCOUNT 

SAVE  OLD  DSPCOUNT  FOR  LATER  RESTORATION 
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2551  1 

REF 

44 

LAST 

469 

40, 3504 

54 

132 

0 

TS 

BUF  +2 

25512 

REF 

23 

LAST 

46  1 

40,3505 

3 

4753 

1 

CAF 

B I T 1 

TEST  BIT1 . SEF  IF  R1  TO  BE  BLANKED. 

4nf 1 506 

0 

3525 

0 

TC 

TEST  BIT 

2553 

REF 

12 

LAST 

453 

40, 3507 

3 

4317 

0 

CAF 

R ID  1 

2554 

REF 

4 

LAST 

433 

40, 3510 

0 

2535 

0 

TC 

5BLANK  -1 

REF 

27 

1 AST 

44  5 

40,  3 51 1 

3 

4752 

0 

CAF 

BIT2 

TEST  BIT  2.  SEE  IF  R2  TO  BE  BLANKED. 

2556 

REF 

2 

LAST 

470 

40,3512 

0 

3525 

0 

TC 

TESTBIT 

2557 

REF 

5 

LAST 

45  5 

40, 3513 

3 

4320 

1 

CAF 

R2D1 

26  6R 

REF 

5 

1 AST 

470 

40, 3 514 

0 

2535 

0 

TC 

5BLANK  -1 

2559 

REF 

23 

LAST 

46  3 

40,3515 

3 

4751 

0 

CAF 

BIT3 

TEST  BIT3.  SEE  IF  R3  TO  BE  8LANKED. 

2560 

REF 

3 

LAST 

470 

40,3516 

0 

3525 

0 

TC 

TESTBIT 

2C>^1 

REF 

5 

| AST 

4T  4 

40,3517 

3 

4321 

0 

CAF 

R3D1 

2562 

REF 

6 

LAST 

470 

40,3520 

0 

2535 

0 

TC 

5BLANK  -1 

2563 

REF 

45 

L AST 

470 

40, 3521 

3 

0132 

1 

CA 

BUF  +2 

RESTORE  DSPCOUNT  TO  STATE  IT  HAD 

2 6 64 

REF 

ft  2 

1 AST 

46  9 

40, 3522 

54 

777 

1 

TS 

DSPCDUNT 

BEFORE  BLANKSUB. 

2565 

REF 

46 

LAST 

470 

40,3523 

52 

131 

0 

DXCH 

BUF 

CALL  L+2  DIRECTLY. 

2566 

REF 

3 

LAST 

46  5 

40,3524 

0 

5166 

0 

TC 

SUPDXCHZ  +1 

OTCB  WITH  SUPFRBIT  SWITCHING 

2567 

REF 

8 

LAST 

469 

40,3525 

7 

0123 

0 

TESTBI T 

MASK 

NVTE MP 

NVTEMP  CONTAINS  BLANKING  CODE. 

2568 

REF 

147 

LAST 

469 

40,3526 

10 

000 

0 

CCS 

A 

2569 

REF 

122 

L AST 

469 

40, 3527 

0 

0002 

0 

TC 

Q 

IF  CURRENT  BIT  = 1,  RETURN  TO  L+l. 

2570 

REF 

123 

LAST 

470 

40,3530 

50 

002 

0 

INDEX 

Q 

IF  CURRENT  BIT  = 0,  RETURN  TO  L + 3. 

2571 

40,3531 

0 

0002 

0 

TC 

2 

2572 

40, 3532 

END8SUB 1 

EQUALS 

R257205  DSP  MM  DOES  NOT  DISPLAY  MODREG  DIRECTLY.  IT  PUTS  IN  EXEC  REQUEST  WITH 
R 2572  06  PRIO  30000  FOR  DSPMMJB  AND  RETURNS  TO  CALLER. 


R2572C7  IF  MODREG  CONTAINS  -0,  DSPMMJB  BLANKS  THE  MODE  LIGHTS. 


R257209  DSPMM  MUST  BE  IN  BANK  27-  OR  LOWER,  SO  IT  CAN  BE  CALLED  VIA  8 ANKC  ALL . 


2572  1 

07,2667 

BANK 

7 

2572 15 

REF 

04,2  000 

sfti nr 

P T NR  A1  1 4 

257217 

04,2573 

BANK 

7 S77  1 R 

R FF 

1 

25722 

REF 

1 24 

LAST 

47  0 

04,2573 

56  002 

0 

DSPMM 

XCH 

Q 

25723 

REF 

215 

LAST 

467 

04,2574 

54  154 

0 

TS 

MPAC 

25724 

04,-2  575 

0 0004 

o 

TNH I NT 

25725 

REF 

3 

LAST 

45  1 

04,2576 

3 43  55 

0 

CAF 

C HR  P RIO 

25726 

REF 

6 

LAST 

45  1 

04,2577 

0 5072 

1 

TC 

NOVAC 

25727 

REF 

63 

LAST 

470 

0777 

FRANK- 

0 SPC CUNT 

25728 

REF 

1 

04,2600 

03532 

0 

2CADR 

DSPMMJB 

25728 

REF 

1 

04,2601 

60101 

1 

257285 

04,2602 

0 0003 

1 

R FI  TNT 

25729 

REF 

216 

LAST 

470 

04,2603 

0 0154 

1 

END  SPMM 

TC 

MPAC 

A 70 
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R2573 

DSP  MM 

PLACE 

M AJ  0 R 

MODE  CODE 

INTO  MODREG 

n C C 

1 

40, 3 532 

SETLOC 

END  B SUB1 

25  73  5 

K br 

I 

25736 

REF 

9 

LAST 

469 

TO  470: 

23  795* 

COUNT* 

$ t / P I N 

y c;  7 a 

d crc 

1 

40, 3532 

3 4362 

1 DSPMMJB 

CAF 

M01 

GETS  HERE  THRU  DSPMM 

2575 

tvcr 

REF 

i 

64 

LAST 

470 

40, 3533 

56  777 

0 

XCH 

DSPCOUNT 

2576 

REF 

1 

40, 3534 

54  140 

0 

TS 

DSPMMTFM 

SAVE  DSPCOUNT 

2579 

REF 

$ 

LAST 

2 9 5 

40, 3 535 

1 l'O  11 

-1 

CCS 

MODE  EG 

2580 

REF 

56 

LAST 

465 

40, 3536 

6 4753 

1 

AD 

ONE 

25801 

REF 

4 

LAST 

4 5 6 

40,3537 

0 3306 

1 

TC 

DSPDECVN 

IF  MODREG  IS  + OR  +0,  DISPLAY  MODREG 

25802 

40,3540 

0 35  42 

1 

TC 

<-2 

IF  MODREG  IS  -NZ,  DO  NOTHING 

25803 

REF 

6 

LAST 

460 

40,3541 

0 2601 

1 

TC 

2BLANK 

IF  MODREG  IS  -0,  BLANK  MM 

2581 

REF 

2 

LAST 

47  1 

40,3542 

56  140 

1 

XCH 

D SPMMTEM 

RESTORE  DSPCOUNT 

25  82 

REF 

65 

LAST 

471 

40,3543 

54  777 

1 

TS 

DSPCOUNT 

2583 

REF 

57 

LAST 

468 

40,3544 

0 5155 

0 

TC 

ENDOF JOB 

R2584 

RECALTST 

IS  ENTERED 

DIRECTLY 

AFTER  DATA 

IS  LOADED  (OR  RESEQUENCE  VERB  IS 

R2585 

EXECUTED),  TERMINATE 

VERB  IS 

EXECUTED 

OR  PROCEED  WITHOUT  DATA  VE»B  IS 

R2586 

f x f rti  t f n 

. IT 

WAKFS  IIP  JOB  THAT  DID  TC 

ENDIDLE. 

R2587 

IF 

CACRSTOR  NO T=  +0 , 

IT  PUTS 

+0  INTO 

DSPLOCK,  AND  TURNS 

OFF  KEY  RLSE 

R2588 

1 ICHT  IF 

n SPI  I RT  IS 

EMPTY  (1  FAVFS  KEY 

R 1 SF  LIGHT 

ALONE 

IF  NOT  EMPTY). 

2589 

REF 

9 

LAST 

46  8 

40, 3545 

1 1 ' 042 

1 

RECALTST 

CCS 

CADRSTOP 

2590 

REF 

1 

40,  3 546 

0 3550 

1 

TC 

R ECA  LI 

2591 

REF 

58 

LAST 

47  1 

40, 3547 

0 5155 

0 

TC 

ENDOF JOB  NORMAL  EXIT  IF  KEYBOARD  INITIATED 

2592 

REF 

99 

LAST 

467 

40, 3550 

3 4755 

l 

RECAL 1 

CAF 

ZERO 

2593 

REF 

10 

LAST 

47  1 

40,3551 

57' 042 

0 

XCH 

C ADR  STOP 

2594 

40,3552 

0 0004 

0 

INHINT 

2595 

REF 

3 

LAST 

387 

40,3553 

0 5137 

1 

TC 

JOBWAKE 

2596 

REF 

4 

LAST 

46  7 

40 » 3 554 

11*014 

1 

CCS 

L 0 AO STAT 

2597 

REF 

1 

40, 3555 

0 3577 

1 

TC 

DOPROC  + PROCEED  WITHOUT  DATA 

2598 

RFF 

59 

LAST 

47  1 

40,3556 

0 5155 

0 

TC 

ENDOF JOB  PATHALOGICAL  CASE  EXIT 

2599 

REF 

1 

40, 3557 

0 3575 

0 

TC 

DOTE  PM  - TERMINATE 

2600 

REF 

31 

LAST 

458 

40, 3560 

3 4752 

0 

CAF 

TWO  -0  DATA  IN  OR  RESEQUENCE 

2601 

REF 

2 

LAST 

38  5 

40,3561 

50  064 

0 

RECAL2 

INDEX 

LOCC TP 

2602 

REF 

3 

LAST 

385 

40, 3562 

6 0164 

1 

AD 

LOC  LOC  IS  + F nR  BASIC  JOBS 

2603 

REF 

3 

LAST 

47  1 

40,3563 

50  064 

0 

INDEX 

LOCC  TR 

2604 

REF 

4 

LAST 

47  1 

40, 3564 

54  164 

0 

TS 

LOC 

26041 

REF 

15 

LAST 

46  6 

40,3565 

3 1002 

1 

CA 

NOJJNREG  SAVE  VERB  IN  MPAC  , NOUN  IN  MPAC  + 1 AT 

26042 

REF 

60 

LAST 

468 

40,3566 

54  001 

1 

TS 

L TIME  OF  RESPONSE  TO  EN D IDLE  FOR 

26043 

REF 

20 

LAST 

466 

40,3567 

3 1001 

1 

CA 

VERBREG  POSSIBLE  LATER  TESTING  BY  JOB  THAT  HAS 

26044 

REF 

4 

LAST 

47  1 

40,3570 

50  064 

0 

INDEX 

LOCCTR  BEEN  WAKED  UP. 

26045 

REF 

217 

LAST 

470 

40,3571 

52  155 

1 

DXCH 

MPAC 

2605 

40,3572 

0 0003 

1 

RELINT 

2606 

REF 

9 

LAST 

46  3 

40, 3573 

0 44  5 7 

0 

RECAL3 

TC 

RELDSP 

2607 

REF 

60 

LAST 

47  1 

40,3574 

0 5155 

0 

TC 

END OF JOB 
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REF  100  LAST  47  1 40,  3575  3 4755  1 DOTERM  CAF  ZERO 

REF  1 40,3576  0 3561  0 TC  RFCAL2 


2610 

2611 


REF  57  LAST  471 
REF  2 LAST  472 


40,3577  3 4753  1 DOPROC  CAF 
40,3600  0 3561  0 TC 


ONE 

RECAL2 
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P2612 

MISCELLANEOUS 

SER  VICE 

ROUTINES  IN  FIXED/FIXED 

2613 

REF 

1 

4303 

SETLOC 

ENDBLFF 

6 ^ 1 1 1 * 

COUNT* 

tf /P  IN 

R2614 

SETNC ADR 

L M O * 

E CADR 

ARRIVES 

IN  A.  IT  IS  STORED 

IN  NOUNCADR.  FBANK 

BITS 

P 26 1 5 

ARE  SET 

. E ADRES  IS  DERIVED  AND  PUT  INTO 

NOUN  ADD. 

2616 

REF 

8 

LAST 

453 

4303 

5 5 ' 0 1 7 1 SETNCADR 

TS 

NOUNCADR 

STORE 

ECADR 

2617 

REF 

14 

LAST 

40  1 

4304 

54  003  0 

TS 

EBANK 

SET 

EBANK  BITS 

261  8 

R£F 

2 

LAST 

20  6 

4 ^05 

7 4357  0 

MASK 

LOWS 

2619 

REF 

i 

4306 

6 5007  0 

AD 

OCT  1400 

2620 

REF 

29 

LAST 

44  8 

4307 

54  145  0 

TS 

NOUNADD 

PUT 

E 

ADRES  INTO  NOUNADO 

262 1 

REF 

125 

LAST 

470 

4310 

0 0002  0 

TC 

0 

R2622  SETNAGD  GETS— E CADR  FROM  NOUNCADR,  SETS  EBANK  BITS,  DERIVES 

R2623  E ADRES  AND  PUTS  IT  INTO  NOUNADD. 


2624 

2625 

REF  9 

REF  7 

LAST 

LAST 

473 — 
442 

4311  3 1017  0 

4312  1 4304  0 

SETNADD  CA 
TC  F 

NOUNCADR 
SETNCADR  +1 

R2626 

R2627 

SETE3ANK 

E CADR 
DERIVED 

ARRIVES  IN  A.  EBANK  BITS  ARE  SET. 
AND  LEFT  IN  A. 

E ADRES  IS 

2628 

2629 

2630 

REF  15 
REF  3 

RET 2 

REF  126 

LAST 

LAST 

LAST 

47  3 
473 
47  3 

4313  54  003  0 

4314  7 4357  0 

4315  6 5007  0 

SETEBANK  TS 

MASK 

AD 

EBANK 
LOWS 
0CT1 400 

SET  EBANK  BITS 
E ADR  FS  LEFT  IN  A 

2631 

LAST 

47  3 

4316  0 0002  0 

TC 

Q 

2632 

4317 

00016 

0 

R ID  1 

OCT 

16 

THESE 

3 CONSTANTS  FORM  A PACKED  TABLE. 

2633 

4320 

00011 

1 

R2D1 

OCT 

1 1 

DONT 

SEPARATE . 

2634 

4321 

00004 

0 

R3D1 

OCT 

4 

2635 

REF 

7 

LAST 

45  7 

4322 

54  020 

1 

R IGHT5 

TS 

CYR 

2636 

RET 

8 

LAST 

471 

4323 

4 0020 

1 

CS 

C YP 

2637 

REF 

9 

LAST 

473 

4 324 

4 0020 

1 

cs 

CYR 

2638 

REF 

10 

LAST 

473 

4325 

4 0020 

1 

CS 

CYR 

2639 

REF 

_ 1J 

LAST 

473 

4326 

4 0020 

1 

cs 

CYR 

2640 

REF 

12 

LAST 

473 

4327 

56  020 

0 

XCH 

CYR 

2641 

REF 

127 

LAST 

473 

4330 

0 0002 

0 

TC 

0 

2642 

REF 

13 

LAST 

4 4 7 

4331 

54  022 

0 

LEFT5 

TS 

CYL 

2643 

REF 

14 

LAST 

473 

4332 

4 0022 

0 

CS 

CYL 

2644 

REF 

15 

LAST 

473 

4333 

4 0022 

0 

CS 

CYL 

2645 

REF 

16 

LAST 

473 

4334 

4 0022 

0 

cs 

CYL 

2646 

REF 

17 

LAST 

473 

4335 

4 0022 

0 

cs 

CYL 
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2647 

REF 

18 

LAST 

473 

4336 

56  022 

1 

XCH  CYL 

2648 

REF 

128 

LAST 

473 

4337 

0 0002 

0 

TC  Q 

2649 

4340 

6 0000 

1 

SLEFT5 

DOUBLE 

2650 

4341 

6 0000 

1 

DOUBLE 

434? 

6 0000 

1 

DOUBL E 

2652 

4343 

6 0000 

1 

DOUBLE 

2653 

4 344 

6 0000 

1 

DOUBLE 

LAST 

4 7 4 

4345 

0 0002 

0 

TC  _ 0 

00037 

n 

i nw  5 

OCT  37 

THFSE  3 CONSTANTS  FORM  A PACKED  TABLE. 

2656 

4347 

01740 

6 

MID5 

OCT  1740 

DONT  SEPARATE. 

2657 

4350 

76000 

0 

H 15 

OCT  76000 

MUST  STAY  HERE 

2658 

REF 

7 

LAST 

470 

4351 

0 5072 

i 

TCNOVAC 

TC  NDVAC 

2659 

REF 

17 

LAST 

45  1 

4352 

0 5203 

0 

TCWAI T 

TC  WAITLIST 

R EF 

13 

J AST 

45  1 

4 35  3 

0 52  61 

1 

TCT SKOVR 

TC  TASKOVER 

2661 

REF 

16 

LAST 

397 

4354 

0 5105 

0 

TCF INDVC 

TC  FINDVAC 

2662 

4355 

30000 

1 

CHRPRIO 

OCT  30000 

EXEC  PRIORITY  OF  CHARIN 

2663 

4356 

03777 

0 

LOW  1 1 

OCT  3777 

2664 

REF 

6 

LAST 

442 

4356 

B12-1 

EQUALS  LOW  1 1 

7665 

4357 

00377 

1 

L OW  8 

OCT  377 

7^*7 

4 3 0 

000?  3 

o 

VPl 

nr  t ?3 

THESF  3 CONSTANTS  FORM  A PACKED  TABLE, 

2668 

4361 

00021 

1 

ND1 

OCT  21 

DONT  SEPARATE. 

2669 

4362 

00025 

0 

MD1 

OCT  25 

2670 
26  71 

P F F 

23 

LAST 

418 

4363 

00012 

1 

BINCON 

OEC  10 

CA  3 I T7 

TURN  ON  OPERATnp  p p p n p ]_  [ r,  h t 

2672 

4365 

0 0006 

1 

EXTEND 

2673 

REF 

12 

LAST 

463 

4366 

05  Oil 

1 

WOR  DSALMOUT 

BIT  7 OF  CHANNEL  11 

2674 

ref 

I 30 

L AST 

474 

4367 

0 0002 

o 

TC  0 

2675 

REF 

24 

LAST 

474 

4370 

4 4745 

1 

FALTOF 

CS  BIT7 

TURN  OFF  OPERATOR  ERROR  LIGHT 

2676 

4371 

0 0006 

1 

EXTEND 

2677 

REF 

13 

LAST 

474 

4372 

03  Oil 

1 

WAND  DSALMOUT 

BIT  7 OF  CHANNEL  11 

2678 

REF 

131 

LAST 

474 

4373 

0 0002 

0 

TC  Q 

2679 

REF 

22 

LAST 

46  C 

4374 

3 4747 

1 

RELDSPON 

CAF  PITS 

TURN  ON  KEY  RELEASE  LIGHT 

2680 

4375 

0 0006 

1 

EXTEND 

2681 

REE 

14 

LAST 

474 

4376 

05  Oil 

1 

WOR  DSALMOUT 

BIT  5 OF  CHANNEL  11 

2682 

REF 

132 

LAST 

474 

4377 

0 0002 

0 

TC  Q 

GAP: 

L 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

R2696 

R2697 

R2698 

R 2699 

R2700 

R2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 
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REF  13 
REF  5 

LAST 
L AST 

379 

330 

4400 

4401 

4402 

0 0006 
3 0025 
52  014 

1 

0 

J) 

LODSAMPT  EXTEND 
DC  A 
DXCH 

T I ME  2 
SAMPTIMF 

REF  133 

LAST 

474 

4403 

0 0002 

0 

TC 

0 

4404 

0 0006 

1 TPSL1 

EXTEND 

SHIFTS  MPAC,  +1,  +2  LEFT  1 

REF 

218 

LAST 

471 

4405 

3 0156 

0 

DC  A 

MPAC 

+ 1 

LEAVES  OVFIND  SET  TO  ♦/-  1 FOR  OF/UF 

DCC 

2 19 

L AST 

475 

4406 

20  1 56 

1 

DAS 

MPAC 

+ 1 

iMir 

REF 

220 

LAST 

475 

4 40  7 

6 0154 

1 

AD 

MPAC 

REF 

221 

LAST 

475 

4410 

26  154 

0 

ADS 

MPAC 

4411 

54  007 

1 

TS 

7 

TS  A DOFS  NOT  CHANGE  A ON  OF/UF, 

REF 

134 

LAST 

475 

4412 

0 0002 

0 

TC 

3 

NO  NET  OF/UF 

REF 

7 

LAST 

447 

4413 

54  162 

0 

TS 

MPAC+6 

MPAC  +6  SET  TO  +/-1  FOR  OF/UF 

REF 

135 

LAST 

475 

4414 

0 0002 

0 

TC 

0 

IF  MPAC,  +1  ARE  EACH  *NZ  OR  +0  AND  C(A)=-0,  SHORTMP  WRONGLY  GIVES  +0. 
IF  MPAC,  +1  ARE  EACH  -NZ  OR  -0  AND  C(A)=+0,  SHORTMP  WRONGLY  GIVES  +0. 
PPSHRTMP  FIXES  FIRST  CASE  ONLY,  BY  MERELY  TESTING  CIA)  AND  IF  IT  = -0, 
SETTING  RESULT  TO  -0. 

(DO  NOT  USE  PRSHRTMP  UNLESS  MPAC,  +1  APE  EACH  +NZ  OR  +0,  AS  THEY  ARE 
WHEN  THEY  CONTAIN  TH  E SF  CONSTANTS.) 


REF 

2 

LAST 

113 

4415 

54  135 

1 

PRSHRTMP  TS 

MPT  E MP 

REF 

148 

LAST 

470 

4416 

10  000 

0 

CCS 

A 

J1EE- 

3 

LAST 

4X5 

4417 

3 013  5 

o 

CA 

MPTE  MP 

CIA) 

+ , DO  RFG1JIAR  SHORTMP 

REF 

6 

LAST 

454 

4420 

1 7307 

0 

TCF 

SHOP  TMP 

+ 1 

CIA) 

+0,  DO  REGULAR  SHORTMP 

4421 

1 4417 

0 

TCF 

-2 

CIA) 

-,  DO  REGULAR  SHORTMP 

REF  - 

101 

LAST 

47  2 

4422 

4 4755 

0 

CS 

ZERO 

CIA) 

-0,  FORCE  RESULT  TO  -0  AND  RETURN. 

REF 

222 

LAST 

475 

4423 

54  154 

0 

TS 

MPAC 

REF 

223 

LAST 

475 

4424 

54  155 

1 

TS 

MPAC 

+ 1 

REL 

224 

LAST 

47  5 

44  25 

54  156 

1 

TS 

MPAC 

+7 

REF 

136 

LAST 

47  5 

4426 

0 0002 

0 

TC 

0 

REF 

35 

LAST 

33  9 

4427 

3 4746 

0 

FLASHON  CAF 

BIT6 

TURN  ON  V/N  FLASH 

4430 

0 0006 

1 

EXTEND 

BIT  6 OF  CHANNEL  11 

-RIF 

15 

LAST 

474 

4 431 

05  Oil 

1 

WOR 

DSAL  MOUT 

REF 

137 

LAST 

475 

4432 

0 0002 

0 

TC 

Q 

REF 

36 

LAST 

475 

4433 

4 47 46 

1 

FLASHOFF  CS 

B I T 6 

TURN  OFF 

V/N  FLASH 

4434 

0 0006 

1 

EXTEND 

REF 

16 

LAST 

475  - 

4435 

03  Oil 

1 

WAND 

DSAL  MOUT 

BIT  6 OF 

CHANNEL  11 

REF 

138 

LAST 

475 

4436 

0 0002 

0 

TC 

0 
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L 

P2720 

R2721 
R2722 
R 2723 
R2724 

R2725 
R2  726 
R2727 
R2728 
R2729 
R2730 
R2731 


R2732 
R 2 733 
R2734 
R2735 
R2736 


R2737 

R2738 

R2739 

R2740 

R2741 


R2742 

R2743 

R2744 


R2745 


R2  746 
R2747 
R2748 
R 2-7  49 


R275D 

R2751 

R2752 

R2753 

R2754 

R2755 


PINEALL  GAME  BUTTONS  AND  LIGHTS 

INTERNAL  USE  OF  KEYBOARD  AND  DISPLAY  PROGRAM 


USER  MUST  SCHEDULE  CALLS 
CONFUSION  TO  OPERATOR.  TH 
HAS  BEEN  REMOVED  AND  THE 


TO  NVSUB  SO  THAT  THERE  IS  NO  CONFLICT  CF  USE  OR 
I OLD  GRABLOCK  ( INT ERNAL/ I NTERNA L I NTEP LOCK ) 
TMTPRNAI  USER  NO  LONGER  HAS  THE  PROTECTION  THIS 


OFFERED. 


THERE  ARE  TWO  WAYS  A JOB  CAN  BE  PUT  TO  SLEEP  BY  THE  KEYBOARD  + DISPLAY 
PROGRAM.  1)  BY  ENDIDLE 

THE  BASIC  CONVENT  ION^S^THAT  ONEV  ONE  JOB  NILE  BE  REMITTED  ASLEEP  VTA 
rue  KEYBOARO  + DISPLAY  PROGRAM  AT  A TIME.  IF  A JOB  ATTEMPTS  TO  GO  TO 
SLEEP  BY  MEANS  OF  (!)  OR  (2)  AND  THERE  IS  ALREADY  A JOB  ASLEEP  THAT  WAS 
PUT  TO  SLEEP  BY  (1)  OR  (2).  THEN  AN  ABORT  IS  CAUSED. 


USER  * S PAGE  NO.  74 


EO  S4 


THE  CALLING  SEQUENCE  FOR  NVSUB  IS 
CAP V/N 

L TC  NVSUB 

L+1  RETURN  HERE  IF  OPERATOR  HAS  INTERVENED 

L+2  RETURN  HERE  AFTER  EXECUTION 


A ROUTINE  CALLED  NVSUBUSY  IS  PROVIDED  IUSE  IS  OPTIONAL)  TO  PUT 
YOUR  JOB  TC  SLEEP  UNTIL  THE  OPERATOR  RELEASES  THE  KEYBOARD  + DISPLAY 
SYSTEM.  NVSUBUSY  ALSO  TURNS  ON  THE  KEY  RELEASE  LIGHT. 

NVSUBUSY  CANNOT  BE  CALLED  FROM  ERASABLE  OR  F/F  MEMORY, 

SINCE  JOBSLEEP  AND  JOBWAKE  CAN  HANDLE  ONLY  FIXED  BANKS. 


THF  CALLING  SEQUENCE  IS 
CAP  WAKEFCADR 

— TC NVSUBUSY  — 


N-VSUBL-SY  IS  INTENDED  FOR  USE  WHEN  AN  INTERNAL  PROGRAM  FINDS  THF  OPERATOR 
IS  USING  THE  KEYBOARD  + DISPLAY  PROGRAM  (BY  HIS  OWN  INITIATION).  IT  IS 
NOT  INTENDED  FOR  USE  WHEN  ONE  INTERNAL  PROGRAM  FINDS  ANOTHER  INTERNAL 
PROGRAM  USING  THE  KEYBOARD  + DISPLAY  PROGRAM. 


NVSUBUSY  ABORTS  (WITH  CODE  01206)  IF  A SECOND  JOB  ATTEMPTS  TO  GO  TO 
SLEEP  IN  PINBALL.  IN  PARTICULAR,  IF  AN  ATTEMPT  IS  MADE  TO  GO  TO  NVSUBUSY 
WHEN 

1)  DSPLIST  NOT  = +0. -THIS  IS  THE  CASE  WHERE  THE  CAPACITY  OF  THE  PSPLIST 
IS  EXCEEDED. 

2)  CADRSTOR  NOT=  +0.  THIS  INDICATES  THAT  A JOB  IS  ALRFADY  USING 


GAP  : 

L 

R 2 756 

2757 

2758 

2759 

2760 

2761 

2762 


R27625 

R27626 

2763 
27635 

2764 

2769 

2770 

2771 

2772 

2773 

2774 


R2775 
R 2776 
R2777 
R 2778 
R2779 


2780 
27805 

2781 

2782 

2783 
2783  1 

2783  2 

27833 

27834 

2784 
A2785 

2786 

2787 


R2788 

R2789 

R2790 

2791 

2792 
27921 
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ENCIDLE.  t +-NZ  INDICATE  A JOB  IS  ALREADY  ASLEEP  DUE  TO  ENDIDLE.) 

4437  4 4444  0 PRENVBSY  CS  2K+3  SPECIAL  ENTRANCE  FOR  ROUTINES  IN  FIXED 

4440  6 0002  0 AD  0 BANKS  ONLY  DESIRING  THE  FCADR  OFILOC 

4441  6 0004  0 AD  F BAN  K FROM  WHICH  THE  TC  PRENVBSY  WAS  DONE)  -2 

4442  0 4635  0 NVSUBUSY  TC  POST  JUMP  TO  BE  ENTERED. 

4443  10604  1 CADR  NVSUBSY1 

4444  02003  0 2K+3  OCT  2003 

NVSU3SY1  MUST  BE  IN  BANK  27  OR  LOWER,  SC  IT  WILL  PUT  CALLER  TO  SLEEP 
WITH  HIS  PROPER  SUPERBITS. 


REF  1 

REF  139  LAST  475 
REF  2 LAST  46  8 
REF  34  LAST  469 
REF  1 


REF 

REF 

REF 

1 

2 

6 1 

LAST 

LAST 

470  TO 
471 

04,2604 
471  : 
04,2604 

9 

54  001 

9* 

1 

NVSUBSY 1 

SETLOC 
COUNT  * 
TS 

ENDS  PMM  +1 
$*/P  IN 
L 

REF 

2 

LAST 

468 

04, 2605 

0 4220 

0 

TC 

I SCADR+P 

ABORT 

IF 

CADRSTOR 

NOT=  +0. 

REF 

2 

LAST 

468 

04,2606 

0 42  24 

1 

TC 

I SL I ST+O 

ABORT 

IF 

DSPL 1ST 

NOT  = +0. 

REF 

3 

LAST 

45  2 

04,2607 

0 43  74 

0 

TC 

PELDSPCiF 

REF 

62 

LAST 

477 

04,2610 

3 0001 

0 

CA 

L 

REF 

3 

LAST 

46  8 

04, 2611 

55’ 043 

0 

TS 

DSPL  1ST 

REF 

3- 

LAST 

46  8 

04, 2612 

0 5133 

0 

ENDNVBSY 

TC 

JOBSLEEP 

NVSBWA  IT  IS  A SPECIAL  ENTRANCE  FOR  ROUTINES  IN  FIXED  BANKS  ONLY.  IF 
SYSTEM  IS  NOT  BUSY,  IT  EXECUTES  V/N  AND  RETURNS  TO  L+l  <L=  L OC  FROM 
WHICH  THE  TC  NVSBWAIT  WAS  DONE).  IF  SYSTEM  IS  BUSY,  IT  PUTS  CALLING  JOB 
TC  SLEEP  WITH  L- 1 GOING  INTO  LIST  FOR  EVENTUAL  WAKING  UP  WHEN  SYSTEM 
IS  NOT  BUSY. 


REF 

6 

LAST 

47  3 TO 

477: 

98  209* 

COUNT  * 

$ $ / P I N 

4445 

22  007 

0 

N VS BWAI T 

LXCH 

7 

ZERO  NVMONOPT  OPTIONS 

REF 

9 

LAST 

470 

4446 

54  123 

0 

TS 

NVTEMP 

REF 

44 

LAST 

469 

4447 

3 4736 

1 

CAF 

B I T 1 4 

REF 

10 

LAST 

469 

4450 

7 1021 

1 

MASK 

MONS  AVE1 

EXTERNAL  MONITOR  BIT 

REF 

8 

LAST 

469 

4451 

6 1012 

0 

AD 

DSPLOCK 

REF 

149 

LAST 

475 

4452 

10  000 

0 

CCS 

A 

REF 

1 

4453 

1 4455 

0 

TC  F 

NVSB  WT1 

BUSY 

REF 

1 

4454 

1 41  64 

1 

TC  F 

NVSBCOM 

FREE.  NVSUB  WILL  SAVE  1 

AFTER  EXECUTION. 

REF 

140 

LAST 

477 

4455 

24  002 

0 

NVSBWT1 

I NCR 

Q 

L+2.  PRENVBSY  WILL  PUT 

REF 

1_ 

4456 

1 4437 

JL 

TCF 

PRENVBSY 

GO  TO  SLEEP. 

ANO 


RELDSP  IS  USED  BY  VBPRCC,  VBTERM,  VBRQEXEC,  VBRQWAIT,  VBRELDSP,  EXTENDED 
VERB  DISPATCHER,  VBRESEQ,  RECALTST. 

RELDSP1  IS  USED  BY  MONITOR  SET  U°,  VBRELDSP. 


REF  141 

LAST  477 

4457 

56  002 

0 RELDSP 

XCH 

Q 

SET  DSPLOCK  TO  +0,  TURN  RELDSP  LIGHT 

REF  1 

4460 

5 4 1 44 

1 

TS 

RELR  ET 

OFF,  SEARCH  DSPLIST 

REF  45 

LAST  477 

4461 

4 4736 

0 

CS 

BTT14 

GAP: 
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L 
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27922 

4462 

0 0004 

0 

INHINT 

27923 

REF 

11 

LAST 

477 

4463 

7 1021 

1 

MASK 

MONS AVE1 

„ ^ , 

4 464 

55*021 

l 

TS 

M0NSAVE1 

TURN  OFF  EXTERNAL  MONITOR  BIT 

2793 

REF 

4 

L.  H O L 

LAST 

477 

4465 

1 1* 043 

0 

CCS 

DSPL  1ST 

2794 

4466 

0 44  70 

0 

TC 

+ 2 

n «-  f- 

_ 

D 4473 

o 

IC  - 

R ELDSP2 

LIST  EMPTY 

2796 

REF 

102 

LAST 

475 

4470 

3 4755 

1 

CAF 

ZERO 

2797 

REF 

5 

LAST 

47  8 

4471 

57’ 043 

1 

XCH 

DSPL  1ST 

4 7 1 

4472 

0 5137 

1 

TC 

JOBW  AKE 

2800 

4473 

0 0003 

1 

REL0SP2 

RELINT 

2801 

REF 

23 

LAST 

474 

4474 

4 4747 

0 

CS 

B I T 5 

TURN  OFF  KEY  RELEASE  LIGHT 

4475 

0 0006 

1 

EXTEND 

(BIT  5 OF  CHANNEL  11  ) 

2803 

REF 

17 

LAST 

475 

4476 

03  Oil 

1 

WAND 

D SAL MOUT 

2804 

REF 

103 

LAST 

478 

4477 

3 4755 

1 

CAF 

Z FRO 

2805 

R F F 

q 

1 A8  T 

47  7 

4500 

55' 0 12 

1 

TS 

DRPLCCK 

2807 

REF 

2 

LAST 

477 

4501 

0 0144 

0 

TC 

RELR  FT 

2808 

REF 

142 

LAST 

477 

4502 

56  002 

0 

RELDSP1 

XCH 

Q 

SET  DSPLOCK  TO  +0.  NO  DSPLIST  SEARCH. 

2809 

REF 

3 

LAST 

4 7 8 

4503 

1 

TS 

RELR  ET 

TURN  KEY  RLSE  LIGHT  OFF  IF  DSPLIST  IS 

A2810 

EMPTY.  LEAVE  KEY  RLSE  LIGHT  ALONE  IF 

A 28 1 1 

DSPLIST  IS  NOT  EMPTY. 

28  \ 2 

RFF 

6 

LAST 

47  8 

4504 

11*  043 

0 

CCS 

DSPL  1ST 

2813 

4505 

0 4507 

1 

TC 

+ 2 

+ NOT  EMPTY.  LEAVE  KEY  RLSE  LIGHT  ALONE 

2814 

REF 

2 

LAST 

47  8 

4506 

0 4473 

0 

TC 

RELDSP2 

+0  EMPTY.  TURN  OFF  KEY  RLSE  LIGHT 

28  1 5 

REF 

1 04 

1 AST 

47  8 

4507 

3 4755 

1 

CAF 

ZERO 

- NOT  EMPTY.  LEAVF  KEY  RLSE  LIGHT  ALONE 

2816 

REF 

10 

LAST 

478 

4510 

55*012 

1 

TS 

DSPL  OCK 

2817 

REF 

4 

LAST 

478 

4511 

0 0144 

0 

TC 

RELR FT 

2818 

4512 

ENDPINBF 

EQUALS 
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PINTEST  IS  NEEDED  FOR  AUTO  CHECK  OF  PINBALL. 


28182  REF 


2 LAST  277 


43,2002 


PINTEST  EQUALS  L ST  2 FAN 
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P2819 

R2820 

VBTSTLTS 
OFF  THE 

TURNS  ON  ALL  DISPLAY  PANEL 
CAUTION  AND  STATUS  LIGHTS. 

LIGHTS.  AFTER  5 SEC 

, IT  TURNS 

2821 

REF 

1 

41,3613 

SETLOC 

ENDNVSB1  +1 

A1  QA7* 

COUNT* 

$$/ P IN 

2822 

L A j 1 

41,3613 

0 0004 

0 

VBTSTLTS 

INHINT 

2823 

REF 

24 

LAST 

470 

41, 3614 

4 4753 

0 

CS 

BITl 

SET  BIT  1 OF  IM00ES33  SQ  IMUMON  WONT 

REF 

19 

last 

7 8 7 

41,8615 

7 1303 

1 

MASK 

I MDC  ES33 

TURN  OUT  ANY  LAMPS. 

2825 

REF 

25 

LAST 

480 

41,3616 

6 4753 

1 

AD 

BITl 

2826 

REF 

20 

LAST 

480 

41,3617 

5 5 ' 303 

1 

TS 

I MOD  ES33 

2827 

REF 

1 

41, 3620 

3 3656 

1 

CAF 

TSTC0N1 

TURN  ON  UPLINK  ACTIVITY,  TEMP,  KEY  RLSE, 

2828 

41,3621 

0 0006 

1 

EXTEND 

V/N  FLASH,  OPERATOR  ERROR. 

REF 

18 

LAST 

47  8 

41 1 3622 

05  Oil 

1 

WOR 

DSALMOUT 

2 830 

REF 

i 

41,3623 

3 3657 

0 

CAF 

TSTC 0N2 

TURN  ON  NO  ATT,  GIMBAL  LOCK,  TRACKER, 

2831 

REF 

27 

LAST 

466 

41,3624 

55' 036 

1 

TS 

DSPTAB  +11D 

PROG  ALM. 

28^2 

REF 

? 1 

| AST 

41  1 

41 , 3675 

3 4742 

1 

CAF 

8IT10 

TURN  ON  TEST  ALARM  OUTBIT 

2833 

41, 3626 

0 0006 

1 

EXTEND 

2834 

REF 

5 

LAST 

235 

41, 3627 

0 5 013 

0 

WOR 

CHAN  13 

?ft 

R F F 

5 

1 AST 

41  3 

41t  3630 

3 4363 

0 

CAF 

TEN 

2836 

REF 

i 

41,3631 

54  117 

1 

TSTLTS1 

TS 

ERCNT 

2837 

REF 

i 

41, 3632 

4 3654 

1 

CS 

FULL  DSP 

28^8 

REF 

2 

1 AST 

48  0 

41,3633 

50  1 17 

0 

INDFX 

ERCNT 

2839 

REF 

28 

LAST 

480 

41,3634 

55' 023 

0 

TS 

DSPTAB 

2840 

REF 

3 

LAST 

480 

41, 3635 

10  117 

1 

CCS 

EPCNT 

2841 

REF 

1 

41 , 3636 

0 3631 

0 

TC 

T STL TS1 

2842 

REF 

1 

41,3637 

4 3655 

0 

CS 

FULLDSPl 

2843 

REF 

29 

LAST 

480 

41, 3640 

55'024 

1 

TS 

DSPTAB  +1 

TURN  ON  3 PLUS  SIGNS 

2844 

REF 

30 

LAST 

480 

41,3641 

55 ' 027 

1 

TS 

DSPTAB  +4 

2845 

REF 

31 

LAST 

480 

41,3642 

55' 031 

0 

TS 

DSPTAB  +6 

2846 

REF 

1 

41, 3643 

3 4760 

1 

CAF 

ELEVEN 

2 847 

REF 

9 

L AST 

466 

55' 016 

0 

TS 

NOUT 

2848 

41,3645 

0 0003 

1 

RELINT 

2849 

REF 

i 

41, 3646 

3 3661 

0 

CAF 

SHOL  TS 

285C1 

41,3647 

0 0004 

0 

INHINT 

2851 

REF 

18 

LAST 

474 

41,3650 

0 5203 

0 

TC 

WAITLIST 

2852 

REF 

32 

LAST 

480 

1023 

EB ANK  = 

DSPT AB 

2853 

REF 

1 

4 1 ,365 1 

03662 

o 

?f  ADR 

T STL TS2 

2853 

REF 

1 

41, 3652 

62102 

0 

2854 

REF 

61 

LAST 

47  1 

41,3653 

0 5155 

0 

TC 

ENDOFJOP 

DSPLOCK  IS  LEFT  BUSY  (FROM  KF Y BOAR D 

A 2 8 5 5 - 

ACTION)  UNTIL  TSTLTS3  TO  INSURE  THAT 

A2856 

LIGHTS  TEST  WILL  BE  SEEN. 

2857 

41, 3654 

05675 

0 

FUL  L DSP 

OCT 

05675 

DISPLAY 

ALL  8 : S 

2858 

41 ,3655 

07675 

1 

FULLDSPl 

OCT 

07675 

DISPLAY 

ALL  8: S AND  + 

2859 

41. 3 65  6 

00175 

_1 

TSTC0N1 

OCT 

00175 

A2860 

A2861 


UPLINK  ACTIVITY,  TEMP,  KEY  RLSE 
V/N  FLASH,  OPERATOR  ERROR. 
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2862 

41,3657 

40674 

0 

TSTC0N2 

OCT 

40674 

DSPTAB+11D  BITS  3, 4, 5, 6, 8, 9.  LR  LITES, 

A2863 

9 Q A A 

41 ,3660 

00115 

1_ 

TSTC0N3 

OCT 

00115 

NO  ATT,  GIMBAL  LOCK,  TRACKER,  PROG  ALM. 
CHAN  11  BITS  1,  3,  4,  7. 

c.  O OH 

A2865 

2866 

41,3661 

00764 

1 

SHOLTS 

OCT 

764 

UPLINK  ACTIVITY,  TEMP,  OPERATOR  ERROR. 
5 SEC 

2867 

OQAQ 

REF 

DCC 

4 

g 

LAST 

LAST 

47  0 
4-74 

41.3662 

41. 3663 

3 4355 
0 5072 

0 

1 

TSTLTS2  CAF 
TC 

CHRPRIO 

NOVAC 

CALLED  BY  WAITLIST 

Z Boo 
2869 

r\  r r 

REF 

33 

LAST 

480 

1023 

EB ANK= 

DSPT AB 

2870 

REF 

1 

41,3664 

03667 

0 

2C  ADR 

T STL TS3 

2 870 

REF 

1 

41, 3665 

62102 

0 

2871 

REF 

14 

LAST 

474 

41,3  666 

0 5261 

1 

TC 

TASK  OVER 

2872 

REF 

1 

41,3667 

4 3660 

0 TSTLTS3 

cs 

TSTC0N3 

CALLED  BY  EXECUTIVE 

2873 

41, 3670 

0 0004 

0 

INHINT 

2874 

41,3671 

0 0006 

1 

EXTEND 

T U5  N OFF  UPLINK  ACTIVITY,  TEMP, 

2875 

REF 

19 

LAST 

400 

41,3672 

03  Oil 

1 

WAND 

D SAL  MOUT 

OPERATOR  ERROR. 

2876 

REF 

22 

LAST 

480 

41, 3673 

4 4742 

0 

CS 

BIT10 

TURN  OFF  TEST  ALARM  OUTBIT 

2877 

41,3674 

0 0006 

1 

EXTEND 

2878 

REF 

6 

LAST 

480 

41,3675 

03  013 

0 

WAND 

CHAN  1 3 

28781 

REF 

22 

LAST 

345 

41, 3676 

3 4750 

1 

CAF 

BIT4 

MAKE  NO  ATT  FOLLOW  BIT  4 OF  CHANNFL  12 

28782 

41 , 3677 

0 0006 

1 

EXTEND 

(NO  ATT  LIGHT  ON  IF  IN  COARSE  ALIGN) 

28783 

REF 

22 

LAST 

303 

41,3700 

02  012 

0 

RAND 

CHAN  12 

2879 

REF 

26 

LAST 

467 

41,3701 

6 4735 

1 

AD 

B I T 1 5 

TURN  OFF  AUTO,  HOLD,  FREE,  SPARE, 

2880 

REF 

34 

LAST 

48  1 

41 , 3702 

5 5 ' 0 36 

1 

TS 

DSPT  AB  +1  1 D 

GIMBAL  LOCK,  SPARE,  TRACKER,  PROG  ALM 

2881 

REF 

i 

41, 3703 

4 3726 

0 

CS 

13-1  1,1 

SET  BITS  TO  INDICATE  ALL  LAMPS  OUT.  TEST 

2882 

REF 

21 

LAST 

480 

41, 3704 

7 1303 

1 

MASK 

I MOD  ES33 

LIGHTS  COMPLETE. 

2883 

REF 

3 

LAST 

238 

41,3  705 

6 5026 

0 

AD 

PR  I 0 1 6 

2884 

REF 

22 

LAST 

48  1 

41, 3706 

55*303 

1 

TS 

I MOD  ES33 

28  RS 

R F F 

1 

4 1 t 3 707 

4 3730 

l 

CS 

nr  t f ‘sooo 

2886 

REF 

42 

LAST 

242 

41 ,3710 

7 1302 

0 

MASK 

IMDDES30 

2887 

REF 

4 

LAST 

275 

41,3711 

6 5025 

0 

AD 

PRI015 

15000. 

2888  REF  43  LAST  481  41,3712  55'302  0 TS  IMD0ES30 


2889 

REF 

1 

41,3713 

4 3727 

1 

CS 

REA  I LS2 

2890 

REF 

27 

LAST 

33  7 

41,3714 

7 0110 

0 

MASK 

R ADMCDES 

2891 

REF 

25 

LAST 

474 

41, 3715 

6 4745 

0 

AD 

B I T 7 

2892 

REF 

28 

LAST 

48  1 

41,3716 

54  110 

0 

TS 

RADMODFS 

2893 

41, 3717 

0 0003 

1 

RELINT 

2894 

REF 

92 

L AST 

46  0 

4 1 , 3720 

0 46  16 

1 

TC 

BANKCALL 

REDISPLAY  C(MODPEG) 

2895 

REF 

1 

41 , 3721 

10573 

1 

CADR 

DSPMM 

2896 

REF 

4 

LAST 

465 

41, 3722 

0 42  04 

0 

TC 

KILMONON 

TURN  ON  KI LL  MONITOR 

B I T. 

2897 

REF 

5 

LAST 

466 

41 ,3723 

0 4433 

1 

TC 

FLASHOFF 

TURN  OFF  V/N  FLASH. 

2898 

REF 

35 

LAST 

477 

41, 3724 

0 4635 

0 

TC 

POST  JUMP 

DOES  RELDSP  AND  GOES 

TO  PINBRNCH  IF 

2899 

REF 

1 

41,3725 

61467 

0 

CADR 

T STLTS4 

ENDIDLE  IS  AWAITING 

OPERATOR  RESPONSE. 
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2901 

2902 

2903 

2904 
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41.3726  16001  1 13-11,1  OCT  16001 

41.3727  00330  1 RFAILS2  OCT  330  RADAR  C DU  AND  DATA  FAIL  FLAGS. 

41,3730  55000  1 0CT55000  OCT  55000 

41,  3731  END  P I NS 2 EQUALS 
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P2905  ERROR  LIGHT  RESET  (RSET)  TURNS  OFF, 

R 2906  UPLINK  ACTIVITY,  AUTO,  HOLD,  FREE,  OPERATOR  ERROR, 


R2907 

PRO 

G ALM 

, TRAC 

KER  1 

-AIL. 

R2908 

LEAVES  GIMEAL 

LOCK 

AND  NO  ATT 

ALONE. 

R2909 

IT 

ALSO 

ZEROES 

THE 

:TE ST  ALARM:  OUT 

0 1 T 

, WHICH 

TURNS  OFF  STBY, RESTART. 

p 29  10 

l J 

ai  sn 

SETS  : 

raiiTinN  rfrft: 

TO  1. 

R2911 

I T 

ALSO 

FORCES 

BIT 

12  OF  ALL 

DSPTAB 

ENTRIES  TO 

1. 

Q Ef 

? 

LAST 

Z^T  1 

ZlA.  1 

SETLGC 

n OP ROC  +2 

2912  5 

REF 

10 

LAST 

471  TO  473: 

39  834* 

COUNT  * 

i$/P  IN 

2913 

REF 

3 

LAST 

463 

40,3601 

56  115 

1 

ERROR 

XCH 

21/22RFG 

RESTORE  ORIGINAL  C(DSPLOCK).  THUS  ERROR 

2914 

REF 

11 

LAST 

478 

40, 3602 

55'012 

1 

TS 

DSPL  OCK 

LIGHT  RESET  LFAVES  DSPLOCK  UNCHANGED. 

2915 

40,3603 

0 0004 

0 

INHINT 

2916 

REF 

23 

LAST 

48  1 

40,3604 

3 4742 

1 

CAF 

BIT10 

TURN  ON  : C AUT I ON  RESET:  OUTSIT 

2917 

40,3605 

0 0006 

1 

EXTEND 

2918 

REF 

20 

LAST 

48  1 

40,3606 

05  Oil 

1 

WOR 

DSALMOUT 

BIT10  CHAN  11 

2919 

REF 

1 

40, 3607 

3 3670 

0 

CAF 

GL+NOATT 

LEAVE  GIMBAL  LOCK  AND  NO  ATT  INTACT, 

-2920 

REF 

3 5 

LAST 

48  1 

40,3610 

7 1036 

1 

MASK 

DSPTAB  -HID 

TURNING  OFF  AUTO,  HOLD,  FREE, 

2921 

REF 

27 

LAST 

48  1 

40,3611 

6 4735 

1 

AD 

8 I T 1 5 

PROG  ALARM,  AND  TRACKER. 

2922 

REF 

36 

LAST 

48  3 

40,3612 

55*036 

1 

TS 

DSPTAB  +11D 

2923 

RE  F 

— 4— 

LAST 

48  1 

40,3613 

4 5026 

1 

cs 

PRIO 16 

RESET  FAIL  BITS  WHICH  GFNFRATE  PROG 

2924 

REF 

23 

LAST 

48  1 

40,3614 

7 1303 

1 

MASK 

IM3DES33 

ALARM  SO  THAT  IF  THE  FAILURE  STILL 

2925 

REF 

5 

LAST 

48  3 

40,3615 

6 5026 

0 

AD 

PRI016 

EXISTS,  THE  ALARM  WILL  COME  BACK. 

2926— 

REF 

— 24 

LAST 

4-3-3 

40,3616 

55*303 

1 

TS 

I MOD  ES33 

2927 

REF 

24 

LAST 

48  3 

40,3617 

4 4742 

0 

CS 

BIT1  0 

2928 

REF 

44 

LAST 

48  1 

40, 3620 

7 1302 

0 

MASK 

I MOD  ES30 

2929 

REF 

25 

LAST 

48  3 

40,3621 

6 4742 

1 

AD 

B I T 1 0 

2930 

REF 

45 

LAST 

483 

40, 3622 

55*302 

0 

TS 

I MOD  ES30 

2931 

-REF 

1— 

40, 3623 

4 36  67 

1 

cs 

R F A I 1 S 

2932 

REF 

29 

LAST 

48  1 

40, 3624 

7 0110 

0 

MASK 

R ADMODES 

2933 

REF 

26 

LAST 

48  1 

40,3625 

6 4745 

0 

AD 

B I T 7 

2934 

REF 

30 

—LAS  T 

4 83 

40,3626 

54  110 

0 

TS 

R ADMODES 

2935 

REF 

26 

LAST 

48  3 

40,3627 

4 4742 

0 

CS 

B I T 1 0 

TURN  OFF  : TE ST  ALARM:  OUTBIT. 

2936 

40, 3630 

0 00  06 

1 

EXTEND 

2937 

REF 

7 

LAST 

48  1 

40, 3631 

03  013 

0 

WAND 

CHAN  13 

2938 

REF 

1 

40, 3632 

4 36  66 

0 

CS 

ERCON 

TURN  OFF  UPLINK  ACTIVITY, 

-2939 

40, 3633 

0 0006 

1 

EXTEND 

OPERATOR  ERROR. 

2940 

REF 

21 

LAST 

48  3 

40,3634 

03  Oil 

1 

WAND 

D SAL KOUT 

2941 

REF 

2 

LAST 

454 

40,  3635 

3 43  63 

0 

TSTAB 

CAF 

B INC  ON 

(DEC  10) 

2942 

REF 

4 

LAST 

4 8 Q 

40,3636 

54  117 

1 

TS 

ERCNT 

ERCNT  = COUNT 

2943 

40,3637 

0 0004 

0 

INHINT 

2944 

REF 

5 

LAST 

483 

40, 3640 

50  117 

0 

INDEX 

FRONT 

2945 

REF 

37 

LAST 

483 

40, 3641 

11 ' 023 

0 

CCS 

DSPTAB 

2946 

REF 

58 

LAST 

472 

40, 3642 

6 4753 

1 

AO 

ONE 

2947 

REF 

1 

40,3643 

0 3650 

1 

TC 

ERPL  US 

2948 

REF 

59 

LAST- 

483 

40, 3644 

6 4753 

1 

AD 

ONF 

2949 

REF 

150 

LAST 

477 

40,3645 

4 0000 

0 

ERMINUS 

CS 

A 

2950 

REF 

1 

40,3646 

7 3671 

0 

MASK 

NOTB  IT12 
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2951 

2952 

REF 

REF 

1 

151 

LAST 

483 
4 ft  3 

40,3647 
40,3650 
B 65  1 

0 3653 
4 0000 
7 3671 

1 

0 

0 

ERPLUS 

TC 

cs 

MASK 

ERCOM 

A 

NOTB  I T12 

2954 

REF 

152 

LAST 

484 

40,3652 

4 0000 

0 

CS 

A 

2955 

REF 

6 

LAST 

43  3 

40,3653 

50  117 

0 

ERCOM 

INDEX 

ERCNT 

LAST 

__4fi  1 

40,  3 654 

55*023 

0 

—IS- 

DSPT AB 

2957 

40, 3655 

0 0003 

1 

RFLINT 

2958 

REF 

7 

LAST 

484 

40, 3656 

10  117 

1 

CCS 

ERCNT 

40  , 3 65  7 

0 36  36 

1 

TC 

T S T A B 

+ 1 

2960 

REF 

105 

LAST 

478 

40, 3660 

3 4755 

1 

CAF 

ZERO 

2961 

REF 

5 

LAST 

320 

40, 3661 

54  375 

1 

TS 

FA  I L REG 

R €F 

5 

LAST 

484 

40, 366? 

54  376 

1 

TS 

_ FAIL  REG 

+ 1 

29612 

REF 

7 

LAST 

484 

40, 3663 

54  377 

0 

TS 

F A I L PEG 

+2 

29  62 

REF 

2 

LAST 

124 

40,3664 

55' 357 

0 

TS 

SF  A I L 

2963  REF  62  LAST  ABO  AO,  3665  0 5155  0 IC  ENDCFJOB 


2964 

A2965 

40, 3666 

00104 

1 

ERCON 

OCT 

104 

2966 

40,3667 

00330 

1 

RFAILS 

OCT 

330 

29665 

40, 3670 

00050 

1 

GL+NOATT 

OCT 

00050 

2967 

40,3671 

73777 

_L 

N0TBIT12 

OCT 

73777 

2968 

40, 3672 

END  P I NS  1 

EQUALS 

2969 


REF 


5 LAST  334 


30,2000 


SBANK=  LOWSUPER 
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MIGHT  WANT  TO  RESET  CLPASS,  DECBRNCH , 
ETC. 


CHAN  11  BITS  3,7. 

UPLINK  ACTIVITY,  AND  0 PER ATOR  . ER ROP . 
RADAR  C DU  AND  DATA  FAIL  FLAGS. 

NO  ATT  AMD  GIMBAL  LOCK  LAMPS 
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R 6 C , R 6 2 USER'S  PAGE  NO.  1 EO  S? 

R0100 

MCD  NC:  0 OATE:  1 MAY  1968 

RO 101 

MOD  3 V : DIGITAL  OEVEL  GROUP  LOG  SECTION  R60,R62 

R0102 

FUNCTIONAL  DESCRIPTION: 

RO  1 03 
R0104 

CALLED  AS  A GENERAL  SUBROUTINE  TO  MANEUVER  THE  LM  TO  A SPECIFIED 
ATTITUDE. 

R0105 
R01  06 

1.  IF  THE  3-AXIS  FLAG  IS  NOT  SET  THE  FINAL  CDU  ANGLES  ARE 
CALCULATED  IVECPOINT). 

R0107 

2.  THE  F D A I BALL  ANGLFS  I NOUN  18)  ARE  CALCULATED  (BALLANGS). 

R0108 

3 . RE  QUEST  FLASHING  DISPLAY  V50  N18  PLEASE  PERFORM  AUTO  MANEUVER. 

R0109 
R 0 1 1 0 

4.  IF  PRIORITY  DISPLAY  FLAG  IS  SET  DO  A PHASECHANGE.  THEN  AWAIT 
ASTRONAUT  RESPONSE. 

R0111 

5.  DISPLAY  RESPONSE  RETURNS: 

RO  1 12 

A.  ENTER  - RESET  3-AXIS  FLAG  AND  RETURN  TO  CLIENT. 

RO  1 13 
R0114 
R0115 

-B.  TERMINATE  --IF  IN  POO  GO  TO  STEP  5A.  OTHERWISE  CHECK  IF  R61  IS 
THE  CALLING  PROGRAM.  IF  IN  R6 1 AN  EXIT  IS  MADE  TO  GDTPV56.  IF 
NOT  IN  R61  AN  EXIT  IS  DONE  VIA  GOTOPOOH. 

RO  1 16 

C.  PROCEED  - CONTINUE  WITH  PROGRAM  AT  STEP  6. 

R0117 
R01 18 

b.  IF  THE  3— AX  ISFL-AG  I S NOT  SET,  THE  FINAL  CDU  ANGLES  ARE  CALCULATED 
IVECPOINT ) . 

RO  1 19 

7.  THE  FDA  I BALL  ANGLES  (NOUN  18)  ARE  CALCULATED  (BALLANGS). 

R0120 

8.  IF  THE  G+N  SWITCH  IS  NOT  SET  GO  BACK  TO  STEP  3. 

RO  1 21 

9.  IF  THE  AUTO  SWITCH  IS  NOT  SET  GO  BACK  TO  STEP  3. 

R 01 22 

10.  NCNFLASHING  DISPLAY  V06N18  ( F DA  I ANGLES). 

R0123 

11.  DO  A PHASECHANGE. 

R 01 24 

12.  DO  A MANEUVER  CALCULATION  AND  ICDU  DRIVE  ROUTINE  TC  ACHIEVE  FINAL 

R0125 
R 0 1 26 

— GIMBAL  ANGLES  (GOMANUR). 

13.  AT  END  OF  MANEUVER  GO  TO  STEP  3. 

R0127 
RO  1 28 
R0129 

IF  SATISFACTORY  MANEUVER  STEP  5A  FXITS  R60. 

FOR  FURTHER  ADJUSTMENT  OF  THE  VEHICLE  ATTITUDE  ABOUT  THE 
DESIRED  VECTOR,  THE  ROUTINE  MAY  BE  “ERFORMED  AGAIN  STARTING  AT 

I 


t 
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R0130 

STEP  5C. 

R0131 

R0132 

CALLING  SECUENCE:  TC  BANKCALL 

CADR  R60LEM 

R0133 

R0134 

ERASABLE  INITIALIZATION  REQUIRED  : SCAXIS,  POINTVSM  (FOR 

3AXISFLG. 

VECPOINT) 

R0135 

R0136 

SUBROUTINES  CALLEC:  VECPOINT,  BALLANGS,  G0PERF2R,  LINUS, 
GOMANUR,  DOWNFLAG,  PHASCHNG,  UPFLAG 

GODSPER , 

R0137 

R0138 

NORMAL  EXIT  MODES:  CAE  TEMPR60  (CALLERS  RETURN  ADDRESS) 

TC  BA  NK JUMP 

R0139 

ALARMS:  NONE 

R0140 

OUTPUT:  NONE 

R 0 1 41 

DEBRIS: 

CP  F I , CTHETA,  CPSI,  3AXISFLG,  TBASE2 

0142 

34,2000 

BANK 

34 

REF  1 

26,2  000 

SETLOC 

MANU  VER 

0144 

26,2101 

BANK 

0145  REE  1 1164  EBANK=  TEMPP60 


0146 

0147 

REF 

RFF 

1 

2 

1 AST 

2 8 ft 

26,2  10  1 

0 4645 

1 

R60  LEM 

COUNT* 

TC 

$$/R06 

MAKECADP 

0148 

REF 

2 

LAST 

486 

26,2  102 

55' 164 

1 

TS 

TEMPR60 

REDOMANN 

8 Ay  T SR  T T 

0150 

REF 

11 

LAST 

305 

26,2104 

7 0101 

0 

MASK 

FLAG  WRD5 

IS  3-AXIS  FLAG  SET 

0151 

REF 

153 

LAST 

484 

26,2105 

1 0 000 

0 

CCS 

A 

0152 

REF 

1 

26,2106 

1 21  14 

o 

TCP 

TOBA  LL 

YES 

0153 

REF 

27 

LAST 

40  1 

26,2107 

0 6036 

1 

TC 

INTPRET 

0154 

26,2110 

77624 

1 

CALL 

0155 

RFF 

2 

LAST 

3 5 3 

26, 2 1 1 1 

560  1 ft 

o 

VECPOINT 

TO  COMPUTE  FINAL  ANGLES 

0156 

REF 

5 

LAST 

382 

26,2112 

00322 

1 

STORE 

CPHI 

STORE  FINAL  ANGLES  - C P HI , CTHETA , CPS I 

0157 

26, 2113 

77776 

1 

EX  IT 

0158 

REF 

93 

LAST 

48  1 

26,2114 

0 46  16 

1 

TOBALL 

TC 

BANKCALL 

01585 

REF 

2 

LAST 

353 

26,2115 

54244 

1 

CADR 

BALL  ANGS 

TO  CONVERT  ANGLES  TO  FD AT 

0150 

REF 

1 

26,  2 1 16 

3 22  3? 

o 

TOB ALLA 

CAF 

VQ6N 18 

0160 

REF 

94 

LAST 

486 

26,2117 

0 46  16 

1 

TC 

BANKCALL 

0161 

REF 

1 

26,2  120 

20563 

0 

CADR 

G0PEPF2R 

DISPLAY  PLEASE  PERFORM  AUTO  MANEUVER 

0162 

REF 

1 

26,2121 

0 2220 

0 

TC 

R61TEST 

0163 

REF 

1 

26,2122 

0 2126 

0 

TC 

REDO  MANC 

PROCEED 

0164 

REF 

1 

26,2  123 

0 2153 

1 

TC 

ENDMANU1 

ENTER  I.E.  FINISHED  WITH  R60 

I 
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0165 

REF 

1 

26,2 124 

0 2157 

0 

TC 

CHKL INUS 

TO  CHECK  FOR  PRIORITY  DISPLAYS 

0166 

REF 

63 

LAST 

484 

26,2125 

0 5155 

0 

TC 

ENQOF JOB 

0167 

REF 

2 

LAST 

486 

26, 2 126 

3 4746 

0 

REDOMANC 

CAF 

3 AX  I SB  I T 

0168 

REF 

12 

LAST 

486 

26,2127 

7 0101 

0 

MA  SK 

FLAG  WRD5 

IS  3-AXIS  FLAG  SET 

26*  21^0 

1 0 000 

o 

CCS 

A 

016  V 

0170 

REF 

1 

26,2131 

1 2137 

1 

TCF 

TOBALLC 

YES 

0171 

REF 

28 

LAST 

486 

26,2  132 

0 6036 

1 

TC 

I NTPPET 

0172 

26, ,2133 

77624 

1 

CALL 

0173 

REF 

3 

LAST 

486 

26,2134 

56016 

0 

V EC  P 0 1 NT 

TO  COMPUTE  FINAL  ANGLES 

0174 

REF 

6 

LAST 

486 

26,2135 

00322 

1 

STORE 

C PH  I 

STORE  ANGLES 

01  7S 

26,2 136 

77776 

l 

EXIT 

0176 

REF 

95 

LAST 

48  6 

26,2137 

0 4616 

1 

TOBALLC 

TC 

BANKCALL 

0176^ 

R FF 

3 

1 AST 

48  6 

26,2140 

54244 

1 

CADR 

BALL ANGS 

TO  CONVERT  ANGLES  TO  FDAI 

0177 

REF 

i 

26,2 141 

0 2233 

1 

TC 

G+N, AUTO 

CHECK  AUTO  MODE 

0178 

REF 

155 

l AST 

48  7 

26, 2 142 

10  000 

0 

CCS 

A 

0179 

REF 

1 

26,2143 

1 2116 

1 

TCF 

TOBALLA 

NOT  AUTO,  GO  RFPEOUEST  AUTO  M ANEUVFR 

0180 

REF 

2 

LAST 

486 

26, 2 144 

3 2232 

0 

AUTOMANV 

CAF 

V06N18 

STATIC  DISPLAY  DURING  AUTO  MANEUVER 

0 1 R 1 

REF 

96 

LAST 

48  7 

26,2 145 

0 4616 

1 

TC 

BANKCALL 

0182 

REF 

i 

26,2 146 

20327 

0 

CADR 

GODS  PR 

0183 

REF 

2 

LAST 

487 

26,2147 

0 2157 

0 

TC 

CHKL  INUS 

TO  CHECK  FOP  PRIORITY  DISPLAYS 

0184 

REF 

97 

LAST 

487 

26,2  150 

0 4616 

1 

STARTMNV 

TC 

BANKCALL 

PERFORM  MANEUVER  VIA  KALCMANU 

0185 

REF 

1 

26,2151 

17723 

1 

CADR 

GOMA  NUR 

0186 

REF 

2 

LAST 

487 

26, 2 152 

1 2116 

1 

ENDMANUV 

TCF 

TOBALLA 

F IN  I SHED  MANEUVER. 

0187 

REF 

27 

LAST 

40  1 

26,2153 

0 5516 

0 

ENDMANU 1 

TC 

DOWN  FLAG 

RESET  3-AXIS  FLAG 

0188 

REF 

3 

L AST 

3 5 3 

26, 2 154 

00124 

0 

ADRES 

BAX  I SFLC 

0189 

REF 

3 

LAST 

486 

26,2155 

31’ 164 

0 

CAE 

TEMPR60 

0190 

REF 

6 

LAST 

45  8 

26,2156 

0 4640 

1 

TC 

BANK  JUMP 

0191 

REF 

3 

LAST 

278 

26, 2157 

4 0100 

1 

CHKL INUS 

CS 

FLAGWPD4 

0192 

REF 

1 

26,2160 

7 4740 

1 

MASK 

PDSPFBIT 

IS  PRIORITY  DISPLAY  FLAG  SET? 

0193 

REF 

156 

LAST 

487 

26,2 161 

10  000 

0 

CCS 

A 

0194 

REF 

143 

LAST 

47  8 

26,  2 162 

0 0002 

0 

TC 

Q 

NO  - EXIT 

0195 

REF 

144 

LAST 

487 

26,2 163 

3 0002 

0 

CA 

Q 

0196 

REF 

225 

LAST 

475 

26, 2164 

54  156 

1 

TS 

MP AC  +2 

SAVE  RETURN 

0197 

REF 

16 

LAST 

455 

26,2 165 

4 62  44 

1 

CS 

THREE 

OBTAIN  LOCATION  FOR  RESTART 

0198 

REF 

4 

LAST 

38  3 

26,2166 

6 0133 

0 

AO 

BUF2 

HOLDS  0 OF  LAST  DISPLAY 

0199 

REF 

1 

26, 2 167 

55 ' 055 

1 

TS 

TPASE2 

0200 

REF 

3 

LAST 

302 

26,2170 

0 5353 

1 

TC 

PHASCHNG 

0201  26,2171  00132  1 OCT  00132 


0202 

0203 

REF  27 
REE 1 

LAST 

483 

26, 2 172 
26,2173 

3 

0 

4745 

5464 

0 

1 

CAF 

TC 

B I T 7 
1 INUS 

GO  SET  BITS  FOR  PRIORITY  DISPLAY 

0204 

REF  226 

LAST 

487 

26, 2174 

0 

0156 

0 

TC 

M P AC  +2 

487 
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0205 

0206 

REF 

REE 

2 

6 

LAST 

LAST 

38  1 
314 

26.2175 

26.2176 

3 7713 
0 5146 

0 

1 

RELINUS  CAF 
TC 

PR  1026 
PRIOCHNG 

RESTORE  ORIGINAL 

PRIORITY 

0207 

REF 

3 

LAST 

30  2 

26, 2177 

3 4747 

1 

CAF 

TPACKBIT 

DON'T  CONTINUE  R60  UNLESS 

TRACKFLAG  ON  - 

0208 

REF 

13 

LAST 

30  8 

26,2200 

7 0075 

1 

MASK 

F LAGWRD1 

9 EF 

1^7 

I ast 

497 

26,  220  1 

10  000 

0 

CCS 

A 

0210 

REF 

i 

26,2202 

1 2215 

1 

TC  F 

RER60 

26t  2 2T)^ 

^ 4745 

o 

-CAF 

RNDVZBIT 

IS  IT  P20? 

0212 

REF 

19 

LAST 

30  2 

26,2204 

7 0074 

0 

MASK 

F LAG  WRDO 

0213 

REF 

158 

LAST 

43  8 

26,2205 

10  000 

0 

CCS 

A 

76,  2 706 

0 2212 

1 

TC 

+ 4 

YES 

0215 

REF 

4 

LAST 

487 

26,2207 

0 5353 

1 

TC 

PHASCHNG 

NO,  MUST  BE  P25 , 

SET  2.11 

SPOT 

0216 

26,2210 

40112 

1 

OCT 

40112 

0217 

REF 

64 

LAST 

487 

26,2211 

0 5155 

0 

TC 

ENDO  F JOB 

0210 

REF 

5 

LAST 

4-R  ft 

7At  7 717 

n 5 "9  5 ^ 

1 

TC 

PHA  S CHNG 

SET  7.7  SPOT  FOR 

P20 

0219 

26, 2213 

40072 

0 

OCT 

40072 

0220  REE  65  LAST  40  8 26,2214  0-5155  0 TC  EAIDOFJOB 


0221 

0222 

REF 

REF 

12 

1 

LAST 

313 

26.2215 

26. 2216 

0 5504 
00077 

0 

1 

RER60 

TC 

ADRES 

JPFLAG 
PDSP  FLAG 

SET  PRIO  DISPLAY 

FLAG  AFTER 

RESTART 

0223 

REF 

2 

LAST 

487 

26,2217 

0 1055 

0 

TC 

TBASE2 

0224 

REF 

9 

LAST 

47  1 

26,2220 

3 1011 

0 

R61 TEST 

CA 

MODR EG 

IF  WE  ARE  IN  POO 

IT  MUST  BE 

V 49  OR  V89 

0225 

26,2221 

0 0006 

1 

EXTEND 

0224  REE  2 LAST  486  26,2222  1 2153  0 8ZF  ENDMANU1  THUS  WE  GO  TO  ENDEXT  VIA  USER 


0227 
02  28 

REF 

REF 

4 

2 

LAST 

LAST 

48  7 
48  7 

26,2223 
26, 2 224 

3 0100 
7 4740 

0 

7 

CA 

MASK 

FLAGWRD4 
PDSP  FBI T 

ARE  WE  IN  R61  (P20  OR  P25) 

0229 

26,2225 

0 0006 

1 

EXTEND 

0230 

REF 

6 

LAST 

276 

26,2226 

1 6001 

1 

BZF 

GOTO  POOH 

NO 

0231 

REF 

— 1- 

26,  2 227 

0 6022 

_L 

IC 

GOTO  V56 

YES 

0232 

26,2230 

20100 

1 

BIT  14  + 7 

OCT 

20100 

0233 

26,  2231 

00203 

0 

0CT203 

OCT 

203 

0234 

26,2232 

01422 

1 

V06N18 

VN 

0618 

R0236  S LBROUT I NE  TO  CHECK  FOR  G + N CCNTROL , AUTO  STABILIZATION 


R0237  RETURNS  WITH  CIA)  = + IF  NOT  SET  FOR  G+N,  AUTO 

R0238  RETURNS  WITH  CIA)  = +0  IF  SWITCHES  ARE  SET 


0239 

26, 2233 

0 0006 

1 

G+N, AUTO  EXTEND 

0240 

REF 

3 

LAST 

199 

26,2234 

00  030 

1 

READ 

CHAN30 

0241 

R4HF 

27 

LAST- 

483 

26, 2235 

7 4742 

_0 

MASK 

B I T 1 0 

0242 

REF 

159 

LAST 

43  8 

26, 2236 

10  000 

0 

CCS 

A 

0243 

REF 

145 

LAST 

487 

26,2237 

0 0002 

0 

TC 

0 

NOT  IN  G+N  CIA) 
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0244 

26,2240 

0 

0006 

1 

I S I T AUTO  EXTEND 

CHECK 

FOR  AUTO  MODE 

0245 

REF 

2 

LAST 

296 

26, 2241 

00 

031 

0 

READ 

CHAN31 

n CC 

A A 

LAST 

A 7 7 

26,2242 

7_ 

4736 

o 

MASK 

B I T 1 4 

0247 

K tr 

REF 

H O 

146 

LAST 

— T-f — f 

488 

26,2243 

0 

0002 

0 

TC 

Q 

( +)  = 

NOT  IN  AUTO, 

489 


GAP: 

L 

P0248 

R0249 


R0250 

R0251 


R0252 

R0253 


R 02  54 
R0255 

R0256 

R0257 
R0258 
R0259 
R 0 2 6 0 

R0261 

R0262 

R0263 

R0264 

R0265 

R0266 

R0267 

R0269 

R0270 
R02  7 1 

R0272 


R0273 

R0275 

R0276 


0278 

0279 

0280 
0281 
0282 
0283 
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PROGRAM  DESCRIPTION  BALLANGS 

MOD  NC.  LOG  SECTION  R60.R62 


WRITTEN  BY  RAMA  M.AIYAWAR 
FUNCTIONAL  DESCRIPTION 


COMPUTES  LM  FDAI  BALL  DISPLAY  ANGLES 
CALLING  SECUENCE 


TC  BALLANGS 

NORMAL  EXIT  MODE 


TC  BALLEXIT  (SAVED  0) 

ALARM  OR  EXIT  MODE  NIL 
SUBROUTINES  CALLEC 
CC*TR*G 
ARCTAN- 


INPUT 

CPHI,  CTH  ET  A » C P SI  ARE  THE  ANGLES  CORRESPONDING  TO  AOG.AIG.AMG.  THEY  ARE 
SP,2S  COMPLIMENT  SCALED  TO  HALF  REVOLUTION. 

OUTPUT 

FCA  IX,FDAIY, FDAI Z ARE  THE  REQUIRED  BALL  ANGLES  SCALED  TO  HALF  REVOLUTION 
S P i 2 S COMPLIMENT. 

THESE  ANGLES  WILL  BE  DISPLAYED  AS  DEGREES  AND  HUNDREDTHS,  IN  THE  ORDER  ROLL,  PITCH,  YAW,  USING  NOUNS  18  8 19. 

ERASABLE  INITIALIZATION  REQUIRED 

CPHI  .CTHETA, CPSI  EACH  A SP  REGISTER 
DEER  I S 


A ,L  ,Q,MP AC,S INCDU ,COSCOU, PUSHL I ST, BALL EX  I T 


NOMENCLATURE:  CPHI,  CTHETA,  8 CPSI  REPRESENT  THE  OUTER,  INNER,  8 MIDDLE  GIMBAL  ANGLES,  RESPECTIVELY:  OR 

EQUIVALENTLY,  CDUX,  CDUY,  8 CDUZ. 

NOTE:  ARCTAN  CHECKS  FOR  OVERFLOW  AND  SHOULD  BE  ABLE  TO  HANDLE  ANY  SINGULARITIES. 


REF  2 LAST  352  26,2000 

26,2244 


SETLOC  BAWLANC-S 
BANK 


REF 

REF 

REF 

REF 


1 

3 

1 

7 


LAST  486 


26.2244 

26.2245 

26. 2246 


0 4645  1 
55*342  l 
3 0321  1 


COUNT  * $ $/ B ALL 

BALLANGS  TC  MAKECAOP 

TS  BALLEXIT 

CA  CPHI 


LAST 


48  7 
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0284 

REF 

7 

LAST 

268 

26, 2247 

54  772 

1 

0285 

REF 

2 

LAST 

382 

26, 2250 

3 0322 

1 

02  86 

REF 

$ 

1 AS  T 

49  1 

26t  2 251 

54  766 

1 

0287 

REF 

3 

LAST 

382 

26, 2252 

3 0323 

0 

0288 

REF 

9 

LAST 

49  1 

26, 2253 

54  770 

0 

0289 

REF 

29 

LAST 

487 

26,2254 

0 6036 

1 

0290 

26, 2255 

45001 

1 

02^1 

26, 2256 

00001 

0 

0292 

REF 

1 

26, 2257 

47447 

0 

?A-  ? PAD 

4]  345 

0 

0294 

REF 

1 

26,2261 

00743 

1 

0295 

REF 

1 

26,2262 

00747 

0 

0296 

26,2263 

57552 

1 

0297 

26,2264 

65336 

1 

0298 

REF 

1 

26, 2265 

00741 

0 

0299 

REF 

4 

LAST 

336 

26,2266 

14023 

0 

0300 

REF 

2 

LAST 

49  1 

26,2267 

00747 

0 

0301 

26,2270 

72405 

0 

0302 

REF 

1 

26,2271 

00751 

1 

0303 

REF 

4 

LAST 

336 

26,2272 

34021 

0 

0304 

REF 

1 

26,2273 

26510 

1 

0305 

26,2274 

41325 

0 

0306 

REF 

2 

LAST 

49  1 

26, 2275 

00741 

0 

0307 

REF 

2 

LAST 

49  1 

26,2276 

00743 

1 

0308 

26,2277 

415  12 

1 

0309 

26,2300 

65205 

0 

0310 

R EE 

1 

26,2301 

00745 

1 

0311 

26,2302 

65205 

0 

0312 

REF 

1 

26, 2303 

00737 

1 

0313 

REF 

2 

LAST 

49  1 

2 304 

007  5 1 

1 

0314 

26,2305 

72405 

0 

0315 

REF 

2 

LAST 

49  1 

26, 2306 

00745 

1 

0316 

26, 2307 

45425 

0 

0317 

REF 

5 

LAST 

49  1 

26,2310 

63756 

0 

0318 

REF 

2 

LAST 

49  1 

26,231 1 

00737 

1 

0319 

26,2312 

72405 

0 

0320 

REF 

3 

LAST 

49  1 

26, 2313 

00751 

1 

0321 

26, 2314 

45415 

0 

0322 

REF 

5 

LAST 

49  1 

26, 2315 

43  7 54 

0 

0323 

REF 

2 

LAST 

49  1 

26,2316 

26510 

1 

0324 

26, 2317 

55525 

0 

0325 

26,2320 

77634 

0 

0326 

REF 

2 

LAST 

378 

26,  2 321 

21524 

1 

0327 

REF 

2 

LAST 

320 

26,2322 

02351 

1 

0328 

26,2323 

77776 

1 

0329 


REF 


2 LAST  49  0 


26,2324  3 1342  0 ENDBALL 
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TS 

CA 

TS 

C DUS  POT  +4 
C THE  TA 
C DU  S POT 

CA 

TS 

CPSI 

C DU  S POT  +2 

TC 

SETPD 

INTPRET 

CALL 

OD 

CD*TR*G 

DLOAD 

DMP 

S INC  DUX 
COSCDUZ 

SIN  (OGA) 
COS  ( MGA ) 

SLl 

ARCS  IN 

D COM  P 

PDDL 

SINCDUZ 

SCALE 

YAW  = ARCSIN(-SXCZ)  INTO  0 PD 

STODL 

DMP 

SINTH 

COSCDUZ 

SLl 

t SINTH  = 1BD  IN  PD) 
RESCALE 

STCALL 

cnsc  dux 

COSTH 
APCT  AN 

( CO S TH=  160  IN  PD) 

PDDL 

DMP 

S INC.DUZ 
S INC  DUX 

ROLL  = ARCTANISZ/CZCX)  INTO  2 PD 

SL2 

OMP 

P U S F 
PDDL 
COSC  DUY 

SXSZ  INTO  4 PD 
SXSZCY  INTO  4 PD 

OMP 

PDDL 
S INC  DUY 
COSC  DUX 

SXSZSY  INTO  6 PD 

DMP 

DSU 

SLl 

COSC DUY 
STAT  B 

CXCY 

PULL  UP  FROM  6 PO 

STODL 

DMP 

COSTH 
S INC  DUY 
SLl 

COSTH  = CXCY  - SXSZSY 

DAD 

STCALL 

COSC  DUX 

STADR 

SINTH 

CXSY 

PULL  UP  FROM  4 PD 
SINTH  = CXSY  + SXSZCY 

PDDL 

RTB 

ARCT  AN 
VDEF 

RETURNS  WITH  D(MPAC)  = PITCH 

RITCH  INTO  2 PO,  ROLL  INTO  MPAC  FROM  2PD 

VDEF  MAKES  V(MPAC)  = ROLL,  PITCH,  YAW 

STORE 

EX  I T 

V 1 ST02S 
FDA  I X 

MODE  IS  TP 

CA 

BALL  EXIT 
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L 

03295 


R6C.R62 

REF  7 LAST  487  26,2325  0 4640  1 TC  BANK  JUMP 
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L 

P0330 


R0331 
R0333 
R0335 
R0337 
R0339 
RG341 
R0343 
RO  345 
R0346 
R0348 
R0350 
R0352 
R 0 3 5 4 
R0356 
R03-58 
R0360 
R0362 
R0364 
R0366 

R0368 
R0369 
R0370 
R 03  71 

R0372 

R0373 

R0374 

R0375 


R0376 

R 03  77 
R0378 
R0379 
R0380 
RO  381 
R0382 
R0383 

R0384 


0385 

0386 
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PRC GR AM  DESCRIPTION  - VECPOINT 


THIS  INTERPRETIVE  SUBROUTINE  MAY  BE  USED  TO  POINT  A SPACECRAFT  AXIS  IN  A DESIRED  DIRECTION.  THE  AXIS 
TO  BE  POINTED  MUST  APPEAR  AS  A HALF  UNIT  DOUBLE  PRECISION  VECTOR  IN  SUCCESSIVE  LOCATIONS  OF  ERASABLE  MEMORY 
BEGINNING  WITH  THE  LOCATION  CALLED  SCAXIS.  THE  COMPONENTS  OF  THIS  VECTOR  ARE  GIVEN  IN  SPACECRAFT  COORDINATES. 
THE  DIRECTION  IN  WHICH  THIS  AXIS  IS  TO  RE  POINTED  MUST  APPFAR  AS  A HALF  UNIT  DOUBLE  PRECISION  VECTOR  IN 

SUCCESSIVE  LOCATIONS  OF  ERASABLE  MEMORY  BEGINNING  WITH  THE  ADDRESS  CALLED  POINTVSM.  THE  COMPONENTS  OF  THIS 

VECTOR  ARE  GIVEN  IN  STABLE  MEMBER  COORDINATES.  WITH  THIS  INFORMATION  VECPOINT  COMPUTES  A SET  OF  THREE  GIMBAL 
ANGLES  ( 2 S COMPLEMENT)  CORESPONDING  TO  THE  CROSS-PRODUCT  POTATION  BETWE  EN  SCAXIS  AND  POINTVSM  AND  STORES  THEM 
IN  T(MPAC)  BEFORE  RETURNING  TO  THF  CALLER. 

THIS-  ROTATION,  HOWEVER,  MAY  BRING  THE  S/C  INTO  GIMBAL  LOCK.  WHFN  POINTING  A VECTOR  IN  THE  Y-Z  PLANE, 

THE  TRANSPONDER  AXIS,  OR  THE  AOT  FOR  THE  LEM,  THE  PROGRAM  WILL  CORRECT  THIS  PROBLEM  BY  ROTATING  THE  CROSS- 

PRODUCT  ATTITUDE  ABOUT  POINTVSM  BY  A FIXED  AMOUNT  SUFFICIENT  TO  ROTATE  THE  DESIRED  S/C  ATTITUDE  OUT  OF  GIMBAL 
LOCK.  IF  THE  AXIS  TO  BE  POINTED  IS  MORE  THAN  40.6  DEGREES  BUT  LESS  THAN  60.5  DEG  FROM  THE  +X  (OR-X)  AXIS, 

THE  ADDITIONAL  ROTATION  TO  AVOID  GIMAL  LOCK  IS  35  DEGREES.  IF  THE  AXIS  IS  MORE  THAN  60.5  DEGEFS  FROM  +X  IOP  -X) 
THE  ADDITIONAL  ROTATION  IS  35  DEGREES.  THE  GIMBAL  ANGLES  CORRESPONDING  TO  THIS  ATTITUDE  ARE  THEN  COMPUTED  AND 
STORED  AS  2S  COMPLIMENT ^ANGLES  IN  T 1MPAC)  BEFORE  RETURNING  TO  THE  CALLER. 

WHEN  POINTING  THE  X-AXIS,  OR  THE  THRUST  VECTOR,  OR  ANY  VECTOR  WITHIN  40.6  DEG  OF  THE  X-AXIS,  VECPOINT 
CANNOT  CORRECT  FOR  A CROSS-PRODUCT  ROTATION  INTO  GIMBAL  LOCK.  IN  THIS  CASE  A PLATFORM  REALIGNMENT  WOULD  BE 
REQUIRED  TC  POINT  THE  VECTOR  IN  THE  DESIRED  DIRECTION.  AT  PRESENT  NO  INDICATION  IS  GIVEN  FOR  THIS  SITUATION 
EXCEPT  THAT  THE  FINAL  MIDDLE  GIMBAL  ANGLE  IN  MPAC  +2  IS  GREATER  THAN  59  DEGREES. 

CALLING  SEQUENCE  - 

1)  LOAD  SCAXIS,  POINTVSM 

2)  CALL 

V EC  P C I NT — 


RETURNS  WITH 

1)  DESIRED  OUTER  GIMBAL  ANGLE  IN  MPAC 

2)  DESIRED  INNER  GIMBAL  ANGLE  IN  MPAC  +1 

3)  DESIRED  MIDDLE  GIMBAL  ANGLE  IN  MPAC  +2 


ERASABI 

1) 

_-i-S-  USED  -- 
SCAXIS 

6 

2 ) 

POINTVSM- 

6 

3 ) 

M IS 

18 

4 ) 

DEL 

18 

5 ) 

CDF 

6 

6 ) 

V ECQTEMP 

1 

7) 

ALL  OF  VAC 

AREA  43 

TOTAL  99 


REF 


27,2000 

27,2016 


SFTLOC  VECPT 
BANK 
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0387 

REF 

1 

COUNT  * 

$ $/ V ECPT 

E B A N K=- 

bcdu 

0388 

REF 

1 1 

LAST 

— 3 7 9 

Q3ft9 

27,2016 

40020 

1 

VECPO I NT 

STQ 

BOV 

SAVE  RETURN  ADORESS 

? 7 f ? 0 1 7 

03323 

0 

V ECQ  TEMP 

0391 

REF 

1 

27, 2020 

56021 

1 

VECL  EAR 

AND  CLEAR  OVFIND 

039? 

27,2021 

47164 

1 

VECLFAR 

AXC  , 2 

RTB 

0393 

0394 

3 7 ft 

? 7 1 ? 07? 

03244 

0 

MIS 

READ  THE  PRESENT  CDU  ANGLFS  AND 

REF 

2 

LAST 

364 

27,2023 

44403 

0 

RE ADCDUK 

STORE  THEM  IN  PD25,  26,  27 

0395 

27,2024 

34032 

1 

STCALL 

2 50 

r,  1-  r- 

? 7f  ? 0?5 

444  10 

1 

CDUTODCM 

S/C  AXES  TO  STABLE  MEMBER  AXES  (MTS) 

0397 

— L.  M o 1- 

27,2026 

61375 

1 

VLOAD 

VXM 

0398 

REF 

3 

LAST 

352 

27,2027 

03767 

1 

POI NTVSM 

RESOLVE  THE  POINTING  DIRECTION  VF  INTO 

77  t 7 030 

032  45 

1 

MIS 

INITIAL  S/C  AXES  ( VF  = POTNTVSM) 

0400 

27,2031 

77656 

1 

UNIT 

0401 

27,2032 

00035 

1 

STORE 

28D 

PD  28  29  30  31  3?  33 

0403 

27,2033 

53435 

0 

VXV 

UNIT 

TAKE  THE  CROSS  PRODUCT  VF  X VI 

0404 

REF 

10 

LAST 

353 

27,2034 

03761 

1 

SC AX  IS 

WHERE  VI  = SCAXIS 

77,7035 

57400 

1 

Bnv 

VCOMP 

0406 

REF 

1 

27,2036 

56146 

1 

PICK  AXIS 

0407 

REF 

40 

LAST 

37  7 

27,2037 

17267 

1 

STOOL 

COF 

CHECK  MAGNITUDE 

77,  7 040 

00045 

0 

3 60 

OF  CROSS  PRODUCT 

0409 

27, 2041 

50025 

0 

OSU 

3 MN 

VECTOR,  IF  LESS 

0410 

REF 

1 

27, 2042 

14367 

0 

DPP-14 

THAN  B-14  ASSUME 

REF 

2 

1 ART 

49  4 

27,  2 043 

56146 

1 

PICKAXIS 

UNIT  OPERATION 

0412 

27,2044 

50375 

0 

VLOAD 

DOT 

INVALID. 

0413 

REF 

ii 

LAST 

494 

27, 2045 

03761 

1 

SCAX  IS 

?7f  7 Q46 

00035 

l 

2 8D 

0415 

27,2047 

65552 

0 

SL1 

ARCC OS 

0416 

27,2050 

77624 

1 

COM  PM AT  X 

CALL 

NOW  COMPUTE  THE  TRANSFORMATION  FROM 

LAST 

37  7 

?7  r 7 HE  1 

445  ? 7 

1 

DEL C OMP 

FINAL  S/C  AXES  TO  INITIAL  S/C  AXES  MF I 

0418 

27 i 2052 

75160 

1 

AXC  , 1 

AXC  , 2 

0419 

RFF 

12 

LAST 

494 

27, 2053 

03244 

0 

MIS 

COMPUTE  THE  TRANSFORMATION  FROM  FINAL 

04  20 

REF 

l 1 

1 ART 

3 7ft 

7 7,7  054 

07734 

o 

KEL 

S/C  AXES  TO  STABLE  MEMBER  AXES 

0421 

27,2055 

77624 

1 

CALL 

MF S = MTS  MF  I 

0422 

REF 

3 

LAST 

37  8 

27,2056 

44312 

1 

MXM3 

( IN  PD  LIST) 

0423 

27, 2057 

51545 

1 

OLOAD 

ABS 

0424 

27,2060 

00007 

0 

6 

MFS6  = S I N ( CPS  I ) $2 

0425 

27,2061 

50025 

0 

DSU 

8 MN 

0426 

REF 

1 

27,2062 

14354 

0 

SINC1MLC 

= S INI  59  OEGS  ) *2 

0427 

REF 

1 

27,2063 

56136 

0 

F INDGIMB 

/CPSI/  LESS  THAN  59  DEGS 

A 04?  ft 

I.F.  DESIRED  ATTITUDE  NOT  IN  GIMBAL  LOCK 

0429 

27,2064 

51545 

1 

DLOAD 

ABS 

CHECK  TO  SEE  IF  WE  ARE  POINTING 

043  0 

RFF 

1 ? 

J ART 

49  4 

27 ,2 065 

03761 

1 

SCAX  IS 

THE  THRUST  AXIS 

0431 

27,2066 

51025 

1 

DSU 

B PL 

0432 

REF 

1 

27,2067 

14356 

1 

SINVEC1 

SIN  49.4  DEGS  £2 
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L 

R60  , 

R62 

0433 

REF 

2 

LAST 

494 

27,2070 

56136 

0 

F INDGIMB 

0434 

27,  2071 

77775 

1 

VLOAD 

?lf ? 01? 

77626 

0 

STADR 

0436 

REF 

13 

LAST 

494 

27,2073 

50516 

0 

STOVL 

MIS  +120 

0437 

27, 2074 

77626 

0 

STADR 

14 

L AS  T 

49  S 

77,2075 

50524 

1 

STOVL 

MIS  +6 

0439 

27,2076 

77626 

0 

STADR 

0440 

REF 

15 

LAST 

49  5 

27, 2077 

50532 

0 

STOVL 

MIS 

0441 

REF 

16 

1 AST 

49  5 

27, 2100 

0 32  53 

0 

MIS  +6 

0442 

27,2101 

57444 

1 

BPL 

V COM  P 

0443 

REF 

i 

27,2 102 

56103 

0 

I GS A MEX 

0444 

27,2103 

50035 

1 

IGSAMEX  VXV 

BMN 

0445 

REF 

13 

LAST 

494 

27, 2 104 

03761 

1 

SCAX  IS 

0446 

RFF 

1 

27, 2105 

56112 

0 

U=SC AXIS 

A0447 

A0448 

0449 

27,2106 

57575 

1 

VLOAD 

V COM  P 

0450 

REF 

14 

LAST 

495 

27, 2107 

03761 

1 

SCAX  IS 

046  1 

RFF 

4 1 

LAST 

49  4 

77,7110 

37267 

0 

ST  CALL 

COE 

0452 

REF 

i 

27,2111 

56115 

1 

CHEKAXIS 

0453 

27, 2112 

77775 

1 

U=  SCAX I S VLOAD 

RFF 

L5 

LAST 

49  5 

27, 2113 

03761 

1 

SCAX  IS 

0455 

REE 

42 

LAST 

495 

27, 2114 

03267 

1 

STORE 

COE 

0456 

27, 2115 

51545 

1 

CHEKAXIS  DLOAD 

ABS 

0457 

REF 

16 

LAST 

49  5 

27,2116 

03761 

1 

SCAXIS 

0458 

27,2117 

51025 

1 

DSU 

BPL 

0459 

REF 

i 

27, 2 120 

14360 

1 

SINVEC2 

0460 

REF 

1 

27,2 121 

56125 

1 

P I CK  ANG I 

0461 

27, 2 122 

52145 

0 

DLOAD 

GOTO 

0462 

REF 

i 

27,2  123 

14364 

0 

VECANG2 

0463 

RFF 

i 

27,2 124 

56127 

0 

COMP  MFSN 

A 0464 

0465 

27, 2125 

77745 

1 

PICKANG1  DLOAD 

0466 

REF 

1 

27,2  126 

14362 

0 

VECANG1 

0467 

27, 2127 

77624 

1 

COMPMFSN  CALL 

0468 

REF 

3 

LAST 

494 

27, 2130 

44527 

1 

DELCOMP 

0469 

27, 2131 

75160 

1 

AXC  ,1 

A XC  , 2 

0470 

REF 

17 

LAST 

495 

27, 2 132 

03244 

0 

MIS 

0471 

REF 

12 

LAST 

494 

27,2 133 

02234 

0 

KEL 

0472 

27, 2134 

77624 

1 

CALL 

0473 

REF 

4 

LAST 

494 

27, 2135 

44312 

1 

MXM3 

A0474 

A 04  7 5 

04  76 

27, 2136 

45160 

1 

FINDGIMB  AXC , 1 

CALL 

0477 

27,2137 

00000 

1 

0 

0478 

REF 

2 

LAST 

378 

27,  2 140 

446  54 

0 

DCMTOCDU 

0479 

27,2 141 

402  34 

0 

RTB 

SETPD 

0480 

REF 

3 

LAST 

49  1 

27,2142 

21524 

1 

V1ST02S 
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IF  SO,  WE  4RE  TRYING  TO  POINT  IT  INTO 
GIMBAL  LOCK,  ABORT  COULD  GO  HERE 

STORE  MFS  (IN  PD  LIST)  IN  MIS 


INNER  GIMBAL  AXIS  IN  FINAL  S/C  AXES 
LOCATE  THE  IG  AXIS  DIRECTION  CLOSEST  TO 
FINAL  X S/C  AXIS 

FIND  THE  SHPRTFST  WAY  OF  ROTATING  THE 
S/C  OUT  OF  GIMBAL  LOCK  BY  A ROTATION 
ABOUT  + - SC AX  IS,  I.E.  IF  (IG  I SGN  MES  3 ) 
X SCAXIS  . XF)  LESS  THAN  0,  U = SCAXIS 
OTHERWISE  U = -SCAXIS 


ROTATE  ABOUT  -SCAXIS 


ROTATE  ABOUT  + SCAXIS 

SEE  IF  WE  ARE  POINTING  THE  APT 

SIN  29.5  DEGS  $2 

IF  SO,  ROTATE  50  DEGS  ABOUT  + - SCAXIS 
IF  NOT,  MUST  BE  POINTING  THE  T?ANSPONDER 
OR  SOME  VECTOR  IN  THE  Y,  OR  Z PLANE 
IN  THIS  CASE  ROTATE  35  DEGS  TO  GET  OUT 
OF  GIMBAL  LOCK  (VECANG2  $360) 

= 50  DEGS  $ 360 

COMPUTE  THE  ROTATION  ABOUT  SCAXIS  TO 
BRING  MFS  OUT  OF  GIMBAL  LOCK 


COMPUTE  THE  NEW  TRANSFORMATION  FROM 
DESIRED  S/C  AXES  TO  STABLE  MEMBER  AXES 
WHICH  WILL  ALIGN  VI  WITH  VF  AND  AVOID 
GIMBAL  LOCK 

EXTRACT  THE  COMMANDED  C DU  ANGLES  FROM 
THIS  MATRIX 


CONVERT  TO  2:S  COMPLEMENT 


GAP  : 
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R60 

, R62 

04  81 

27,2 143 

00001 

0 

0 

0482 

27,2144 

77650 

1 

GOTO 

R 0 F 

2 

| AST 

494 

27* 2145 

03323 

0 

V ECQ  TEMP 

0484 

27,2146 

50375 

0 

PICKAXIS 

VLOAD 

DOT 

onn  ts 

1 

280 

0486 

REF 

17 

LAST 

495 

27, 2150 

03761 

1 

SCAX  IS 

0487 

27,2151 

72240 

1 

BMN 

TLDAD 

?7j? 182 

54326 

1 

ROT  1 80 

0489 

27, 2 153 

00032 

0 

25D 

0490 

27,2154 

77650 

1 

GOTO 

r f p 

3 

| AST 

49  6 

27,2 155 

0332  3 

0 

V ECQ TEMP 

0492 

35,2000 

BANK 

35 

r f F 

4 

26  * 2 000 

SETLOC 

M ANU VER1 

0494 

26,2326 

BANK 

0495 

26, 2326 

47375 

0 

R0T1 80 

VLOAD 

vxv 

0496 

REF 

ia 

LAST 

49  5 

26 ,2327 

03253 

0 

MIS  +6 

0497 

REF 

i 

26, 2330 

06422 

0 

HIDPHALF 

0498 

26,2331 

472  56 

0 

UN  I T 

VXV 

04^9 

REF 

18 

L AS  T 

49  6 

26, 2332 

03761 

1 

SCAX  IS 

0500 

26, 2333 

40056 

0 

UNIT 

BOV 

0501 

REF 

i 

26,2334 

54350 

0 

PICKX 

osn? 

REF 

—43 

LAST 

495 

26, 2335 

172  67 

1 

STOOL 

CDF 

0503 

26, 2336 

00045 

0 

3 6D 

0504 

26,2337 

50025 

0 

DSU 

BMN 

080^ 

R F F 

2 

| AST 

49  4 

?6,  ? 340 

14367 

o 

DPP-  14 

0506 

REF 

2 

LAST 

496 

26,2341 

54350 

0 

PICKX 

0507 

26,2  342 

77775 

1 

VLOAO 

0508 

REF 

44 

1 AST 

496 

26, 2 343 

032  67 

1 

COF 

0509 

REF 

45 

LAST 

496 

26,2  344 

17267 

1 

XROT 

STOOL 

COF 

0510 

REF 

2 

LAST 

496 

26,2345 

06422 

0 

HIDPHALF 

0511 

26,2  346 

77650 

1 

GOTO 

0512 

REF 

1 

26,2  347 

56050 

1 

COMPMATX 

0513 

26,2350 

52175 

0 

PICKX 

VLOAD 

GOTO 

0514 

REF 

3 

LAST 

496 

26,2351 

06422 

0 

HIDPHALF 

0515 

REF 

1 

26,2352 

54344 

0 

XROT 

0516 

26,2353 

15555 

0 

SINGIMLC 

2DEC 

. 4285836003 

0516 

26,2354 

35172 

0 

0517 

26,2355 

14113 

1 

SINVECl 

2DEC 

. 3796356537 

05  17 

26, 2356 

36326 

0 

0518 

26,2357 

07701 

o 

S I N V F r.  ? 

?D  Ff 

. 2462117800 

0518 

26, 2360 

35703 

0 

0519 

26,2361 

04343 

1 

VEC ANG1 

2DEC 

. 13  88888889 

0519 

26, 2362 

21616 

0 

0520 

26, 2363 

03070 

0 

VECANG2 

2DEC 

. 0972222222 

0520 

26,2364 

34344 

0 

05  21 

26,2365 

00000 

1 

1BITDP 

OCT 

0522 

26,2366 

00001 

0 

DPB-14 

OCT 

0000  1 

0523 

26,2367 

00000 

1 

OCT 

00000 
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RETURN  TO  CALLER 

IF  VF  X VI  = 0,  FIND  VF  . VI 


IF  VF  = VI,  CDU  DESIRED  = PRESENT  CDU 
PRESENT  CDU  ANGLES 


IF  VF,  VI  ANTIPARALLEL,  108  DEG  ROTATION 
IS  REQUIRED.  Y STABLE  MEMBER  AXIS  IN 
INITIAL  S/C  AXES. 

FIND  YISM)  X XII) 

FIND  UNITtVI  X UNITIYISMI  X X(I))) 

I.E.  PICK  A VECTOR  IN  THE  PLANE  OF  XII), 
YISM)  PERPENDICULAR  TO  VI 


CHECK  MAGNITUDE 
OF  THIS  VECTOR. 

IF  LESS  THAN  B-14, 
PICK  X-AXIS. 


PICK  THE  XAXIS  IN  THIS  CASE 

= S I N < 59)  $2 

= SIN (49. 4)  $2 

jlSXN(?9.5)  12 

= 50  DEGREES 
= 35  DEGREES 


$360 

$360 


KEEP  THIS  BEFORE  DPBI-14) 


#**##**** 
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P0524 

ROUTINE 

FOR  INITIATING  AUTOMATIC 

MANEUVER  VIA  KEYBOARD  (V49) 

0525 

0526 

0527 

REF 

1 

34.2000 

23.2000 
23,2065 

BANK  34 

SETLOC  R62 
BANK 

0528 

REF 

12 

LAST  494  E6, 1 674 

EBANK=  B CD  U 

0529  REF  1 COUNT*  SF/R62 


0530 

REF 

1 

23,  2065 

R62DI SP 

EQUAL  S 

R 62  F LASH 

0531 

REF 

1 

23, 2065 

3 

5010 

0 

R62  FLASH 

CAF 

V06N22 

0532 

REF 

98 

LAST 

48  7 

23,2066 

0 

4616 

1 

TC 

RANKCALL 

0533 

0534 

REF 

REF 

6 

LAST 

LAST 

394 

390 

23, 2067 

20351 

1 

CADR 

GDFL ASH 

30 

23,2070 

1 

5472 

1 

TCF 

ENDE  XT 

0535 

REF 

1 

23,2071 

1 

2073 

0 

TC  F 

GOMOVE 

0536 
A 0537 

REF- 

2, 

LAST 

49  7 

23, 2072 

JL 

2065 

1 

TCF 

R62F  LASH 

A0538 

0539 

REF 

13 

LAST 

488 

23,2073 

0 

5504 

0 

GOMOVE 

TC 

UPFL  AG 

0540 

REF 

4 

LAST 

487 

23,2074 

00124 

0 

ADRES 

3 AX  I SFLG 

0541 

REF 

59 

LAST 

497 

23,2075 

0 

46  16 

1 

TC 

BANKCALL 

0542 

REF 

2 

LAST 

35  3 

23,2076 

54101 

0 

CADR 

R60L  EM 

0543- 

RFF 

- 31 

LAST 

49  7 — 

23,2077 

1 

5472 

_L_ 

TCF 

ENDEXT 
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FLASH  V06N22  AND 
I CDU  ANGLES 

TERMINATE 

PROCEED 

ENTER 

ASTRONAUT  MAY  LOAD  NEW  ICDUS  AT  THIS 
POINT 

SET  FOR  3-AXIS  MANEUVER 


END  R62 
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L S-EANO  ANTENNA  FOR  LM  USER'S  PAGE  NO.  1 EO  S3 

R2000  SU8R0LTINE  NAME:  R05  - S- BAND  ANTENNA  FOR  LM 

R200I  MOCO  BY  T.  JAMES 

R2002  MODI  BY  P.  SHAKIR 

R2003  FUNCTIONAL  DESCRIPTION 

R2004  THE  S-EAND  ANTENNA  ROUTINE,  R05,  COMPUTES  AND  DISPLAYS  THE  PITCH  AND 

R2005  YAW  ANTENNA  GIMBAL  ANGLES  REQUIRED  TO  POINT  THE  LM  STEERABLE  ANTENNA 
R2006  TOWARD  THE  CENTER  OF  THE  EARTH.  THIS  ROUTINE  IS  SELECTED  BY  THE  ASTRO- 
R2007  NALT  VIA  DSKY  ENTRY  DURING  COASTING  FLIGHT  OR  WHEN  THE  LM  IS  ON  THE  MOON 

R2008  SURFACE.  TEE  EARTH  OR-  MOON  REFERENCE  COORDINATE  SYSTEM_IS  USED  DEPENDING 

R2009  ON  WHETHER  THE  LM  IS  ABOUT  TO  ENTER  OR  HAS  ALREADY  ENTERED  THE  MOON 
R2010  SPHERE  OF  INFLUENCE,  RESPECTIVELY 


R2011  TO  CALL  SUBROUTINE,  ASTRONAUT  KEYS  IN  V 64  E 

K2012  SUBROUTINES  CALLEC- 

R20I3  R02BOTH 

R2014  INTPRET 

R 201 5 LCADTIME 

R2016  LEMCONIC 

R2017  LDNPOS 

R2018  COUTRIG 

R 201 9 *SMNB* 

R2020  BANKCALL 

R2021  B50FF 

R2022  END0FJ08 

R2023  BLANKET 


R2024  RETURNS  WITH 


R2025  PITCH  ANGLE  IN  PITCHANG  REV.  BO 

R2026  YAW  ANGLE  IN  YAWANG  REV.  80 


R2027  ERASAeLES  USED 

R2028  PITCHANG 

R2029  YAWANG 

R2030  RLM 

R2031  VAC  AR-EA- 


2032 

2033 

- REF 4 

LAST 

302 

41,3731 

42,2000 

BANK 

SETLOC 

41 

S BAN  D 

2034 

42,3602 

BANK 

20  35 

REF  -A- 

J- AS  T- 

16,4 

E7, 1467 

FRANK= 

WHOC ARES 

2036 

2037 

REF  2 

REF  100 

LAST 

LAST 

61  TO 
497 

63  : 

42, 3602 

C D H l«l\  — 

2 24  COUNT  * 

0 4616  1 SBANDANT  TC 

* $/P05 
BANKCALL 

498 


GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021H2-0LL 


19:02  NOV.  25,1968  LFMONAID.070  PAGE  <,99 


S-BANC  ANTENNA  FOR  LM  USER'S  “AGE  NO.  2 E7  S4 


2038 

REF 

2 

LAST 

352 

42,3603 

11175 

1 

CADR 

R02  BOTH 

CHECK  IF  IMU  IS  ON  AND  ALIGNED 

2039 

REF 

30 

LAST 

49  1 

42,3604 

0 6036 

1 

TC 

I NT P RET 

42,3605 

47001 

0 

SETPD 

RTB 

2041 

42,3606 

00001 

0 

OD 

2042 

REF 

5 

LAST 

39  3 

42,3607 

21462 

1 

LOADTIME 

PICK  UP  CURRENT  TIME 

REF 

4 

L AST 

3 S 7 

47f  361 0 

34041 

0 

STC ALL 

TDEC  1 

ADVANCE  INTEGRATION  TO  TIME  IN  TDEC 1 

2044 

REF 

2 

LAST 

35  2 

42,3611 

27100 

0 

LEMCONIC 

USING  CON  T C INTEGRATION 

2045 

42, 3612 

46135 

1 

SLOAD 

BHI  Z 

REF 

x 

47,361  3 

00050 

1 

X2 

X2  =0  EARTH  SPHERE,  X2  =2  MOON  SPHERE 

2047 

REF 

1 

42,3614 

65632 

0 

C0NV4 

2048 

42,3615 

77775 

1 

VLOAD 

2049 

R FF 

3 

LAST 

-3  5 2 - 

42,3616 

00001 

0 

R ATT 

2050 

REF 

i 

42, 3617 

162  11 

1 

STODL 

RLM 

2051 

REF 

3 

LAST 

22  3 

42, 3620 

00015 

0 

TAT 

2052 

42, 3621 

77624 

1 

C0NV3 

CALL 

2053 

REF 

1 

42, 3622 

33663 

1 

LUNPOS 

UNIT  POSITION  VECTOR  FROM  EARTH  to  MOON 

2054 

42,3623 

74375 

0 

VLOAD 

VXSC 

2055 

REF 

2 

LAST 

139 

42,  3624 

02723 

0 - 

V MOO  N 

2056 

REF 

1 

42,3625 

24001 

0 

REMD  1ST 

MEAN  DISTANCE  FROM  EARTH  TO  MOON 

2057 

42, 3626 

53372 

1 

VS  L 1 

VAD 

2058 

REF 

2 

LAST 

499 

42,  3627 

02211 

1 

RLM 

2059 

42, 3630 

77650 

1 

GOTO 

2060 

REF 

1 

42, 3631 

65634 

0 

C0NV5 

70-61 

4 2,  3 632 

77775 

1 

- CDNV4 

VLOAD 

2062 

REF 

4 

LAST 

499 

42, 3633 

00001 

0 

RATT 

UE  = —UN  I T ( R ATT  ) FARTH  SPHERE 

2063 

42, 3634 

53401 

1 

C0NV5 

SETPD 

UNIT 

UE  = -UNIT ( (REM) (UEM)  + RL)  MOON  SPHERE 

2064 

42, 3635 

00001 

0 

OD 

SET  PL  POINTER  TO  0 

2065 

42, 3636 

45076 

1 

VCOMP 

CALL 

2066 

REF 

1 

42,  3637 

47443 

1 

CDUTRIG 

COMPUTE  SINES  AND  COSINES  OF  CDU  ANGLES 

2067 

42,3640 

76521 

0 

MX  V 

VSL  1 

TRANSFORM  REF.  COORDINATE  SYSTEM  TO 

2068 

REF 

7 

LAST 

352 

42, 3641 

01734 

0 

REFS  MM AT 

STABLE  MEMBER  B- 1 X B- 1 X 8+1  = B-l 

2069 

42, 3642 

71206 

0 

PUSH 

DL3AD 

80 

2070 

REF 

2 

LAST 

314 

42,3643 

06424 

0 

H I 6 ZEROS 

2071 

REF 

2 

LAST 

134 

42, 3644 

02205 

1 

STORE 

PITCHANG 

2072 

REF 

1 

42, 3645 

26207 

0 

STOVL 

YAWANG 

ZERO  OUT  ANGLES 

2073 — 

42,3646 

77624 

1 

CALL 

2074 

REF 

1 

42, 3647 

47575 

0 

*SMNB* 

2075 

REF 

3 

LAST 

499 

42, 3650 

162  11 

1 

STOOL 

RLM 

PRE-MULTIPLY  RLM  BY  (NBSA)  MATRIX(BO) 

2076 

REF 

4 

LAST 

499 

42,3651 

02213 

0 

RLM  + 2 

2077 

42, 3652 

45206 

1 

PUSH 

DSU 

2078 

REF 

5 

LAST 

499 

42, 3653 

022  1 1 

1 

RLM 

2079 

42,3  654 

77605 

1 

DM  P 

2080 

REF 

1 

42, 3655 

25765 

1 

10VS0RT2 

2081 

REF 

6 

LAST 

499 

42, 3656 

162  13 

0 

STODL 

RLM  +2 

2082 

42,3657 

41215 

1 

DAD 

DMP 

2083 

REF 

7 

LAST 

49  9 

42,  3660 

022  1 1 

1 

RLM 

2084 

REF 

2 

LAST 

499 

42,3661 

25765 

1 

10VS0RT2 

2085 

-REF 

_8 

LAST 

499 

42, 3662 

262  1 1 

1 

STOVL 

RLM 

R B-l 

2086 

REF 

9 

LAST 

499 

42, 3663 

02211 

1 

RLM 

2087 

42,3664 

63256 

0 

UNIT 

PDVL 

GAP:  ASSEMBLE  REVISION  9-69  -OF— A-GC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02-N0V.  25,1968  LFMONAID.070  PAGE  500 


L 

S-BAND 
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LM 

USER'S  PAGE  NO.  3 E7  S4 

2088 

REF 

10 

LAST 

499 

42, 3665 

022  11 

1 

R LM 

2089 

42,3666 

72431 

1 

VPROJ 

VSL2 

PROJECTION  OF  R ONTO  LM  XZ  PLANE 

onoo 

REF 

j_ 

42, 3667 

06420- 

HI UNITY 

AO  /O 

2091 

42,3670 

40045 

1 

BVSU 

BOV 

CLEAR  OVERFLOW  INDICATOR  IF  ON 

2092 

REF 

11 

LAST 

500 

42,3671 

022  11 

1 

RLM 

2093 

REF 

l_ 

42, 367? 

656  73 

0 

COVCNV 

2094 

42,3673 

40056 

0 

COVCNV 

UNIT 

BOV 

EXIT  ON  OVERFLOW 

2095 

RFF 

1 

42,3674 

65741 

0 

SBANDEX 

2096 

42, 3675 

47206 

-0 

PUSH 

_yjcv 

URP  VECTOR  3-1 

2097 

REF 

1 

42,3676 

06416 

1 

H I UN  ITZ 

2098 

42,3677 

57572 

0 

VSL1 

VCOM  P 

UZ  X URP  = -(URP  X UZ) 

2099 

REF 

LAST 

50  0 

42^3700 

022  1 1 

_L_ 

STORE 

Rl  M 

X VEC  B-l 

2100 

42, 3701 

63241 

0 

DOT 

PDVL 

SGM(X.UY)  UNSCALED 

2101 

REF 

2 

LAST 

500 

42, 3702 

06420 

1 

H I UN  ITY 

2102 

REF 

1 3 

LAST 

500 

42-,  3 703 

-0  22  1 1 

-1— 

_RLM 

2103 

42,3704 

75246 

0 

ABVAL 

S IGN 

2104 

42,3705 

77736 

0 

ASIN 

ASINI (SGN(X.UY) )ABV(X) ) REV  BO 

210  5 

REF 

3. 

LAST 

49  9 

42t  3706 

26205 

1 

ST-OVL 

PITCHANG 

2106 

REF 

1 

42,3707 

00007 

0 

URP 

2107 

42, 3710 

51041 

0 

DOT 

B PL 

2108 

REF 

2- 

L AST 

500 

42, 3711 

06416 

1 

HIUNITZ 

2109 

REF 

1 

42,3712 

65717 

0 

NOADJUST 

YES,  -90  TO  +90 

2110 

42,3713 

45345 

1 

DLOAD 

DSU 

2 1 11 

REF 

4 

LAST  - 

49  6 

42, 3 714 

06422 

-0 

HIDPHALF 

2112 

REF 

4 

LAST 

500 

42, 3 715 

022  05 

1 

PITCHANG 

2113 

REF 

5 

LAST 

500 

42,  3716 

02205 

1 

STORE 

PITCHANG 

2114 

4 2 *23  7 1 7 

47375 

0 

NOADJUST 

VLOAD 

VXV 

21  15 

REF 

1 

42,3720 

00001 

0 

UR 

Z = (UR  X URR) 

2116 

REF 

2 

LAST 

500 

42, 3721 

00007 

0 

URP 

2117 

42,3722 

77772 

o 

VSL  1 

2118 

REF 

14 

LAST 

500 

42, 3723 

16211 

1 

STODL 

RLM 

Z VEC  B-l 

2119 

REF 

6 

LAST 

500 

42, 3724 

02205 

1 

P I TC  HANG 

2120 

42,3725 

74356 

-1 

S IN 

VXSC 

2121 

REF 

3 

LAST 

500 

42, 3726 

06416 

1 

HIUNITZ 

2122 

42, 3727 

71525 

0 

PDDL 

COS 

2123 

REF 

— 7- 

L AST 

50  0 

42,3730 

02205 

1 

P I T C HANG 

2124 

42,3731 

52361 

1 

VXSC 

VSU 

2125 

REF 

1 

42,3732 

06422 

0 

HIUN  ITX 

(UX  COS  ALPHA)  - (UZ.  SIN  ALPHA) 

2126 

42,3733 

63241 

o 

DOT 

PDVL 

Y AW.Z 

2127 

REF 

15 

LAST 

500 

42, 3734 

02211 

1 

RLM 

2128 

REF 

16 

LAST 

500 

42,3735 

02211 

1 

RLM 

2129 

42, 3736 

75246 

0 

ABVAL 

SIGN 

2130 

42, 3737 

77736 

0 

ASIN 

2131 

REF 

2 

LAST 

499 

42, 3740 

022  07 

0 

STORE 

Y AWANG 

2132 

42,3741 

77776 

1 

SBANDEX 

EXIT 

2133 

REF 

7 

LAST 

315 

42, 3742 

3 1044 

0 

CA 

E XTVBACT 

2134 

REF 

24 

LAST 

478 

42,3743 

7 4747 

0 

MASK 

B 1 T 5 

IS  BIT5  STILL  ON 

2135 

42,  3 744 

0 0006 

1 

EXTEND 

2136 

REF 

32 

LAST 

497 

42,3745 

1 5472 

1 

BZF 

ENDE  XT 

NO 

21362 

REF 

4 

LAST 

314 

42, 3746 

3 5017 

1 

CAF 

PRI05 

GAP  : 
L 

ASSEMBLE  1 
S—  B AMO  , 

REV  IS IOW  069 
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OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C11 
LM 
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21364 

REF 

7 

LAST 

488 

42, 3747 

0 5146 

1 

TC 

PPI OCHNG 

2137 

REF 

1 

42,3750 

3 3763 

0 

CAF 

V06N51 

DISPLAY  ANGLES 

O 1 Q O 

REF 

101 

LAST 

49  8 

42, 3751 

0 4616 

1 

TC 

BANKCALL 

C.  I DO 

2139 

REF 

4 

LAST 

314 

42,3752 

20231 

0 

CADR 

GPMAPKFP 

2140 

REF 

4 

LAST 

314 

42,3753 

0 5563 

1 

TC 

B50FF 

TERMINATE 

o 1 A! 

REF 

5 

tAST 

50  1 

42, 3754 

0 5563 

1_ 

TO 

B50FF 

PROCEED 

c. 

2142 

REF 

66 

LAST 

488 

42,3755 

0 5155 

0 

TC 

ENDOFJOB 

RECYCLE 

2143 

REF 

24 

LAST 

470 

42, 3756 

3 4751 

0 

CAF 

B IT3 

IMMEDIATE  RETURN 

2144 

RFF 

8 

L AST 

314- 

42, 3757 

0 5464 

_1 

TC 

BLANKET 

BLANK  R3 

2145 

REF 

4 

LAST 

314 

42, 3760 

3 4740 

0 

CAF 

PR1C4 

2146 

RFF 

8 

LAST 

50  1 

42, 3761 

0 5146 

1 

TC 

PR  I OCHNG 

2 1 48- 

REF 

2 

LAST 

29  5 

42,  3 762 

0 3604 

0 

TC 

S BANDANT  +2 

YES,  CONTINUE  DISPLAYING  ANGLES 

2150 

42,3763 

01463 

1 

V06N51 

VN 

0651 

2151 

42, 3764 

26501 

1 

10VSQRT2 

2DEC 

. 707  1067915 

1/SQRTI2) 

2151 

42, 3765 

07463 

1 

2152 

0000 

UP 

EQUALS 

OD 

21  53 

0006 

URP 

EQUALS 

60 

2154 

REF- 

— 6 

LAST 

48  4 - 

30,-2  000 

SBANK= 

LOWSUPER 

501 


***  END  OF  LE  MON  A I C. 070  * ** 


GAP: 


ASS frMflt E REVISION  07i9  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


194-0  2 NOV.  25,1968  iEMPaOS  .119  PAGE  502 


L 

RACAR 

LEAD  IN  ROUTINES 

USER' S 

PAGE  NO.  1 

EO  S? 

0001 

0002 

REF 

25,2003 

1 25,2000 

25, 2003 

BANK 

SETLOC 

BANK 

25 

RRLE ADIN 

0004 

REF 

9 LAST  331  E4,  1 604 

E8 ANK= 

RSTACK 

R0005 

RACAR 

SAMPLING  LOOP. 

COUNT  * 

* f / R IF  A 0 

0007 

0008 

REF 

7 LAST  294  25,2003 

25, 2004 

1 1 ' 7 61  1 

1 2006  1 

RADSAMP  CCS 
TCF 

RSAMPDT 
+ 2 

TIMES  NORMAL 

ONCE-PER-SECOND 

SAMPL  ING  . 

0009  REF  15  -LAST  48  1 25,2005  1-5261  0-  TCF  TASKOVER  +0  INSERTED  MANUALLY  TERMINATES  TEST. 


0010 

REF 

19 

LAST 

480 

25,  2006 

0 5203 

0 

TC 

WAITLIST 

on  1 1 

R FF 

LQ 

1 AST 

50  2 

E4* 1 604 

E8ANK= 

RSTACK 

0012 

REF 

2 

LAST 

292 

25,2007 

02003 

0 

2C  ADR 

RADSAMP 

0012 

25, 2010 

52064 

1 

0013 

REF 

1 

_2  5 *-2-0-1 1 

3 7712 

1 

CAF 

P R I 0 25 

0014 

REF 

9 

LAST 

48  1 

25,2012 

0 5072 

1 

TC 

NOVAC 

0015 

REF 

11 

LAST 

502 

E4, 1604 

EB ANK= 

RSTACK 

00  1 6 

RF  F 

1 

25*  2013 

02023 

1 

2CADP 

DORSAMP 

0016 

REF 

1 

25, 2014 

52064 

1 

0017 

REF 

47 

LAST 

489 

25,2015 

3 4736 

1 

CAF 

BIT14 

FOR  CYCLIC  SAMPLING,  RT  STDEX  = 

OQ  1 8 

25, 7016 

0 0006 

1 

EXTEND 

RTSTLOC/2  + RTSTBASE 

0019 

REF 

4 

LAST 

293 

25,2017 

7 1760 

0 

MP 

RTSTLOC 

0020 

REF 

3 

LAST 

294 

25, 2020 

6 1757 

0 

AD 

R T ST  BASE 

0 FOR  RR,  2 FOR  LR. 

0071 

RFF 

6 

1 AST 

79  3 

7 5 * 7 0 7 1 

55 i 755 

o 

TS 

R TS  T DEX 

0022 

REF 

16 

LAST 

50  2 

25, 2022 

1 5261 

0 

TCF 

TASKOVER 

R0O7R 

nn 

THE  i 

ACTUAL 

RADAR 

-SAMPL  F • 

0024 

REF 

i 

25,2023 

0 2047 

0 

DORSAMP 

TC 

V AFADAR 

SELECTS  VARIABLE  RADAR  CHANNEL. 

0025 

REF 

102 

LAST 

50  1 

25*  2024 

0 46  16 

1 

TC 

PANKCALL 

0026 

REF 

4 

LAST 

284 

25,2025 

17667 

0 

CADR 

R ADSTALL 

0027 

REF- 

2- 

\ AS  T 

7 9 1 

7 5 T 7 076 

7 9 * 762 

o 

R F A T 1 f NT 

ADVANCE  FAIL  COUNTER  rut  accfpt  rad  data 

0028 

25,  2027 

0 0004 

0 

DORS AMP2 

INHINT 

00281 

REF 

13 

LAST 

48  7 

25,2030 

3 0101 

1 

CA 

FLAGWRD5 

DON'T  UPDATE  RSTACK  IF  IN  R77. 

00282 

REF 

2 

LAST 

295 

25, 2031 

7 4741 

0 

MASK 

R77FLBIT 

00283 

REF 

160 

LAST 

488 

25, 2032 

10  000 

0 

CCS 

A 

00284  25,2033  1 2037  0 TCF  +4 


0029 

0030 

REF 

REF 

2 

— 5— 

LAST 

LAST 

1 19 

50  2 

25. 2034 

25. 2035 

53' 102 
5 1 ' 7 60 

1 

l 

DXCH 

INDEX 

SAMPLSUM 
RTST  LOC 

0031 

REF 

12 

LAST 

50  2 

25, 2036 

53' 605 

1 

DXCH 

RSTACK 

0038 

REF— 

— 6— 

50  2 

25, 2037 

4 1760 

o 

c s 

R T^  T 1 DC 

C YC 1 F R T S T 1 nr. 

0039 

REF 

2 

LAST 

29  2 

25,2040 

6 1756 

1 

AD 

R TS  T MAX 

0040 

25,2041 

0 0006 

1 

EXTEND 

GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202LL12-0I1 


19:02  NOV.  25,1963  LEMP20S  .114  PAGE  503 


RACAR  LEADIN  ROUTINES  USER'S  PAGE  NO.  2 EA  S3 


0041 

0042 

REE 

7 
3 2 

LAST 

L AST 

502 
47  \ 

25.2042 

25. 2043 
? 044 

1 2045 
3 1760 
6 4752 

0 

1 

0 

BZF 

CA 

AD 

+ 3 

RTSTLOC 

TWQ 

STORAGE  IS  DP 

0044 

REF 

8 

LAST 

503 

25,2045 

55' 760 

0 

TS 

RTSTLOC 

0045 

REF 

67 

LAST 

50  1 

25, 2046 

1 5155 

I 

TCF 

END OF JOB 

CONTINUOUS  SAMPLING  AND  2N  TRIES 

- GONE. 

R0056 

VARIABLE 

RAO  AR 

DATA 

CALLER  FOR  ONE  MEASUREMENT 

ONLY. 

2 r T 2 047 

3 47  S ^ 

1 

VARAOAR 

CAF 

ONE 

WILL  RE  SENT  TO  RADAR  ROUTINE  IN 

A BY 

0058 

REF 

5 

L.  M J i 

LAST 

487 

25, 2050 

54  133 

1 

TS 

BUF2 

SWCALL. 

0059 

REF 

7 

LAST 

50  2 

25,2051 

51*755 

1 

INDEX 

RTSTPEX 

OO/vQ 

RFF 

1 

25, 2052 

3 20  54 

1 

CAF 

R DR  L CCS 

0061 

REE 

3 

LAST 

38  3 

25,  2053 

1 4622 

1 

TCF 

SWCALL 

NOT  TOUCHING  0. 

2^t  2 0-54 

S 1 1 OS 

o 

RDRI  DCS 

CA  OR 

RRP ANGE 

= 0 

0063 

REF 

1 

25,2055 

53103 

0 

CADR 

RRR  DOT 

= 1 

0064 

REF 

1 

25, 2056 

53101 

1 

CADR 

LRVE  LX 

= 2 

00^5 

REF 

1 

25,2057 

53077 

1 

CADR 

LRVE  LY 

= 3 

0066 

REF 

1 

25,  2060 

53075 

0 

CADR 

LRVE  LZ 

=4 

0067 

REF 

1 

25, 2061 

53073 

0 

CADR 

LRALT 

= 5 
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P0001 

R0002 

R0003 

R0004 

R0005 

R0006 

R0007 

R0008 

R0009- 

R0010 

R0011 

R 0 0 1 2 

R 00 1 3 

ROO  14 

R0015- 

R0016 

R0017 

ROO  18 

R0019 

R0020 

R002 1 

R0022 

R002  3 

ROO  24- 

R0025 

R0026 

R0027 

R0028 

R0029 

R0030 

R0031 

R 0032 

ROO  33 

R0034 

R0035 

R0036- 


RENCEZVCUS  NAVIGATION  PROGRAM  20 

PROGRAM  DESCRIPTION 

MOD  NC  - 2 

8 Y P.  VOLANTE 

FUNCTIONAL  DESCRIPTION 

THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  CONTROL  THE  RENDEZVOUS  RADAR  FROM 
STARTUP  THROUGH  ACQUISITION  AND  LOCKON  TO  THE  CSM  AND  TO  UPDATE  EITHER 
THE  LM  OR  CSM  STATE  VECTOR  (AS  SPECIFIED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY) 
ON  THE  BASIS  OF  THE  RR  TRACKING  DATA. 

CALLING  SEQUENCE  - 


ASTRONAUT  f 
SUBROUTINE! 
R02B0TH  I 
GOFLASH  ( 

R 23  LEM  I 

L S 20  L I 

LS2C2  ( 
R61LEM  ( 

R 21 LEM  ■ ( 
R22LEM  I 
R31LEM  I 
PR I CL ARM 
NORMAL  EXIT 
P20  MAY  ( 
PRGGRAM  (P( 

ALARM  OR  AE 
RANGE  GRE 
OUTPUT 

TRKMKCNT 
ERASABLE  I 
FLAGS  SEJ 
SRCHOPT, 

DEBRIS 

CENTRAL  S-A,Q-»L 


' THROUGH  DSKY  V37E20E 
: D 

' ATUS  CHECK) FL AGUE — 

. L—  DISPLAY)  FLAGDOWN 

. ACQUISITION)  BANKCALL 

: T E R M I NAT  ION)  TASK  OVER- 

LIMIT TEST) 

tRED  TRACKING  ATTITUDE) 

, IGNATL-) — ENDOF JOB 

! EAD)  G0PERF1 

I VOUS  PARAMETER  DISPLAY) 
tITY  DISPLAY) 


1INATED  IN  TWO  WAYS- ASTRONAUT  SELECTION  OF  IDLING 
KEYI-NG- V37E00E  OR  BY  KEYING  IN  V56E 
! IT  MODES- 
HAN  400  NM  DISPLAY 


F RENDEZVOUS  TRACKING  MARKS  TAKEN  (COUNTER) 
ZATICN  REQUIRED 


= NO  0 

M T I AL  I 
+ RESET 

RNDVZFLG, ACMODFLG, V EHUPF LG , UPDA TF LG ,T R ACKFLG  , 


0037 
QOA  A 

REF 

7 

LAST 

50  1 

30,2000 
a,  2 

SBANK=  LDWSUPER 

FOR  LOW  2C ADR ' S . 

0039 

REF 

1 

24, 2000 

SETLOC  P20S 

0040 

24,2022 

BANK 

0041 

REF 

7 

LAST 

284 

E7 , 1454 

EB  ANK=  LOSE.  CUNT 

0042 

REF 

1 

COUNT*  $ $ / P 20 

0042  1 

REF 

2 

LAST 

24  9 

24,2022 

PR0G22 

PRGG20 

0043 

REF 

i 

24,2022 

0 5327 

I 

PR0G20 

TC  2PHSCHNG 

0044 

24,2023 

00004 

0 

OCT  4 

0045 

24,2024 

_ 05022 

1 

OCT  05022 

0046 

24,2025 

26000 

0 

OCT  26000 

PRIORITY  26 

0047 

REF 

i 

24,2026 

0 2714 

1 

TC  LUNSFCHK 

CHECK  IF  ON  LUNAR 

504 
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0048 

REF 

1 

24,2027 

0 2031 

1 

TC 

ORBCHGO 

YES 

0049 

REF 

1 

24, 2030 

0 2060 

0 

TC 

PR0G20A  -2 

NO  - CONTINUE  WITH  P20 

REF 

L4 

L £S  T 

49  7 

24, 2031 

0 5504 

0 

ORBCHGO 

TC 

JPFL AG 

SET  VEHUPFLG  - CSM  STATE 

0051 

REF 

3 

LAST 

304 

24,2032 

00026 

0 

AORES 

VEHUPFLG 

VECTOR  TO  BE  UPDATED 

0052 

REF 

61 

LAST 

50  3 

24,2033 

3 4753 

1 

CAF 

ONE 

SET  R 2 FOR  OPTION  CSM  WILL  NOT 

] 

24t  2034 

S5 » 145 

1 

TS 

OPT  I 0N2 

CHANGE  PRESENT  ORBIT 

0054 

REF 

1 

24,2035 

3 2342 

0 

CAF 

OCTO  001 2 

0055 

REF 

103 

LAST 

502 

24, 2036 

0 4616 

1 

TC 

BANKCALL 

DISPLAY  ASSUMED  CSM  ORBIT  OPTION 

0056 

REF 

1 

24, 2037 

20506 

0 

CADR 

GOPE  RF4 

0057 

REF 

7 

LAST 

438 

24,2040 

0 6001 

0 

TC 

GOTO  POOH 

TERMINATE 

0058 

REF 

1 

24,2041 

0 2043 

1 

TC 

0RBCHG1 

PROCEED  VALUE  OF  ASSUMED  OPTION  OK 

00  ^ Q 

24 f 2 042 

0 2035 

0 

TC 

-5 

P 2 LOADED  THRU  OSKY 

0060 

REF 

1 

24, 2043 

4 2343 

0 

0RBCHG1 

cs 

P220NE 

0061 

REF 

2 

LAST 

505 

24,2044 

6 1145 

0 

AD 

OPT  I 0N2 

0062 

24,2045 

0 0006 

1 

EXTEND 

0063 

REF 

2 

LAST 

505 

24,2046 

1 2062 

0 

BZF 

PROG  20 A 

0064 

REF 

1 

24,2047 

3 2346 

1 

CAF 

V06N33* 

0065 

RE-F 

1C4 

LAST 

50  5 

24,2050 

0 4616 

1 

TC 

BANKCALL 

FLASH  VERB-NOUN  TO  REQUEST  ESTIMATED 

0066 

REF 

7 

LAST 

497 

24,2051 

20351 

1 

CADR 

GOFL  ASH 

TIME  OF  LAUNCH 

0067 

REF 

8 

LAST 

505 

24,2052 

0 6001 

0 

TC 

GOTOPOOH 

TERMINATE 

0068 

REF 

1 

24, 2053 

0 2055 

0 

TC 

0P8CHG2 

PROCEED  VALUES  OK 

0069 

24,2054 

0 2047 

0 

TC 

-5 

TIME  LOADED  THRU  OSKY 

0070 

REF 

31 

LAST 

499 

24,2055 

0 6036 

1 

0RBCHG2 

TC 

I NT  P RET 

0071 

24t  2 056 

77650 

1 

GOTO 

0072 

REF 

1 

24,2057 

64227 

1 

0RBCHG3 

0073 

32,2227 

BANK 

32 

0074 

REF 

1 

32,2000 

SETLOC 

P20S4 

0075 

32,2227 

BANK 

0076 

REF 

1 

COUNT* 

S$/P  20 

0077 

32,2227 

77624 

1 

0RBCHG3 

CALL 

0078 

REF 

5 

LAST 

3 1 2 

32,2230 

27412 

0 

INTSTALL 

0079 

32, 2231 

77745 

1 

DLQAD 

0080 

REF 

8 

LAST 

32  1 

32, 2232 

03440 

1 

TIG 

00801 

REF 

2 

LAST 

163 

32,2233 

03657 

0 

STORE 

LNCHTM 

0081 

REF 

7 

LAST 

499 

32, 2234 

00041 

1 

STORE 

TDFC  1 

ESTIMATED  LAUNCH  TIME 

0082 

32,2235 

43014 

0 

CLEAR 

CLEAR 

0083 

REF 

4 

LAST 

252 

32,2236 

01674 

0 

V INTFLAG 

LM  INTEGRATION 

0084 

REF 

1 

32,2237 

01673 

1 

I NT Y PFLG 

PRECISION  - ENCKF 

0085 

32,2240 

43014 

0 

CLEAR 

CLEAR 

0086 

REF 

3 

LAST 

25  1 

32,2241 

01676 

l 

D l MO  FLAG 

NO  W-MATRIX 

0087 

-REE 

2 

LAST 

25  1 

32,2242 

01675 

1 

D60R  9FLG 

0088 

32, 2243 

77624 

1 

CALL 

0089 

REF 

3 

LAST 

25  1 

32,2244 

27134 

1 

I NTEGRV 

PLANETARY  INERTIAL  ORIENTATION 

0090 

32, 2245 

77624 

1 

CALL 

0091 

REF 

1 

32,2246 

11165 

0 

GPP2PC 

0092 

32,2247 

77775 

1 

VLOAD 

0093 

REF 

2 

LAST 

224 

32, 2250 

00017 

1 

RATT  1 

0094 

REF 

2 

LAST 

163 

32,2251 

17627 

1 

STODL 

R SUB  L 

SAVE  LM  POSITION 

0095 

REF 

4 

LAST 

499 

32, 2252 

00015 

0 

TAT 
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0096 

REF 

8 

LAST 

50  5 

32,2253 

34041 

0 

STCALL 

TDEC  1 

0097 

REF 

6 

LAST 

50  5 

32,2254 

27412 

0 

INTSTALL 

3 2 T 2 2 5 5 

43014 

0 

SET  - 

CLEAR 

0099 

REF 

5 

LAST 

50  5 

32,2256 

01474 

1 

VINT  FLAG 

CSM  INTEGRATION 

0100 

REF 

2 

LAST 

505 

32,2257 

01673 

1 

I NT Y PFLG 

3?  f ? 760 

43014 

0 

CLEAR 

BOFF 

0102 

REF 

4 

LAST 

50  5 

32,2261 

01676 

1 

DIMOFLAG 

0103 

REF 

3 

LAST 

25  1 

32,2262 

02756 

1 

R END  WFLG 

W MATRIX  VALID 

REF 

l 

32, 2263 

642  67 

0 

NOWMATX 

NO 

0105 

32,2264 

43014 

0 

SET 

SET 

YES  - SET  FOR  W MATRI X 

0106 

REF 

5 

LAST 

506 

32,2265 

01476 

0 

DIMOFLAG 

REF 

3 

^ AU 

50  5 

32, 2266 

01475 

0 

D60R 9FLG 

0108 

32, 2267 

77624 

1 NOWMATX 

CALL 

0109 

REF 

4 

LAST 

505 

32,2270 

27134 

1 

INTEGRV 

CSM  INTEGRATION 

37  t 7 771 

77624 

l 

CALL 

0111 

REF 

2 

LAST 

505 

32,2272 

11165 

0 

GRP2PC 

0112 

32,2273 

77775 

1 

VLOAD 

0113 

REF 

6 

LAST 

-22-4 — 

32,2274 

00025 

0 

VATT  1 

0114 

REF 

1 

32,2275 

25761 

0 

STOVL 

VSUBC 

SAVE  CSM  VELOCITY 

0115 

REF 

3 

LAST 

50  5 

32,2276 

00017 

1 

RATT  1 

0 1 1 A 

REF 

. 1 

32,2277 

01102 

0 

STORE 

RSUBC 

SAVE  CSM  POSITION 

0117 

32,2  300 

53435 

0 

VXV 

UNIT 

COMPUTE  NORMAL  TO  CSM  ORBITAL  PLANE 

0118 

REF 

2 

LAST 

506 

32,230  1 

01761 

0 

VSUBC 

NSUB1=UNIT (R (CM)  CROSS  V(CM) 

0119 

32,2302 

24025 

0 

STOVL 

20D 

SAVE  NSUB1 

0120 

REF 

3 

LAST 

505 

32, 2303 

03627 

1 

P SUB  L 

COMPUTE  ESTIMATED  ORBITAL 

0121 

32,2304 

53435 

0 

VXV 

UNIT 

PLANE  CHANGE 

0122 

32,2  305 

00025 

0 

2 OD 

UCSM  = UNIT(RILM)  CROSS  N SUB l ) 

0123 

REF 

2 

LAST 

16  3 

32,2306 

27635 

1 

STOVL 

UCSM 

0124 

REF 

2 

LAST 

506 

32,2307 

01102 

0 

RSUBC 

COMPUTE  ANGLE  BETWEEN  UCSM 

0125 

32,2310 

502  56 

0 

UNIT 

DOT 

AND  RSUBC 

0126 

REF 

3 

LAST 

506 

32,2311 

03635 

1 

UCSM 

COS  A = UCSM  DOT  UNIT  (R(CM)) 

0127 

32,2312 

77752 

1 

SLl 

0128 

REF 

2 

LAST 

140 

32,2313 

02732 

o 

STORE 

CSTH 

SAVE  DOE  TIME-THETA  SUBROUTINE 

0129 

32, 2314 

44316 

0 

DSO 

BDSU 

COMPUTE  SINE  A 

0130 

REF 

i 

32,2315 

10345 

1 

ONEB-2 

0131 

32, 2316 

77766 

0 

SQRT 

0132 

REF 

2 

LAST 

140 

32,2317 

26730 

1 

STOVL 

SNTH 

SAVE  FOR  TIME-THETA  SUBROUTINE 

0133 

REF 

3 

LAST 

506 

32, 2320 

01102 

0 

RSUBC 

POSITION  OF  CSM  AT  EST.  LAUNCH 

0134 

REF 

1 

32, 2321 

26655 

0 

STOVL 

R VEC 

TIME  FOR  TIME-THETA  B-27 

0135 

REF 

3 

LAST 

506 

32,2322 

01761 

0 

VSUBC 

VELOCITY  OF  CSM  AT  EST.  LAUNCH 

01351 

32,2323 

77676 

0 

VCOMP 

0136 

REF 

2 

LAST 

1 40  _ 

32,2324 

027  44 

1 

STOR  F 

V VEC 

TIME  FOR  TIME  THETA  B-5 

0137 

32,2325 

45014 

0 

CLEAR 

CALL 

0138 

REF 

1 

32,2326 

03666 

1 

RVSW 

0139 

REF 

1 

32, 2327 

24745 

1 

TI METHET 

0139  1 

32,2330 

77676 

0 

VCOMP 

0140 

REF 

2 

LAST 

16  3 

32,2331 

03643 

0 

STORE 

NFWV  EL 

TERMINAL  VELOCITY  OF  CSM 

01401 

32,2332 

77745 

1 

DLOAD 

01402 

REF 

1 

32,2333 

00037 

0 

T 

01403 

REF 

2 

LAST 

16  3 

32, 2334 

27661 

0 

STOVL 

TRAN  STM 

TRANSFER  TIME 
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01404 

REF 

3 

LAST 

506 

32, 2335 

03643 

0 

NEW V EL 

0141 

32, 2336 

77646 

0 

ABVAL 

3 2,  2 337 

24025 

0 

STOVL 

2 OD 

0142 

32,2340 

00001 

0 

on 

0143 

REF 

2 

LAST 

16  3 

32,2341 

03651 

0 

STORE 

NEWPOS 

TERMINAL  POSITION  OF  CSM 

32,2342 

53435 

0 

VXV 

UNIT 

COMPUTE  NORMAL  TO  CSM  ORBITAL  PLANE 

0145 

REF 

4 

LAST 

506 

32,2343 

03627 

1 

R SUB  L 

NSUB2  = UNITINEWPOS  CROSS  R ( L M ) ) 

0146 

32, 2344 

53435 

0 

VXV 

UNIT 

ROTATE  TERMINAL  VEL  INTO  OESIREO 

0147 

R FF 

3 

LAST 

50  7 

32, 2345 

036  51 

0 

NEWPOS 

ORBITAL  PLANE 

0148 

32, 2346 

76561 

1 

VXSC 

VSL  1 

VSUBC  = ABV AL ( NEW VEL ) $ UNIT!  NSUB2 

0149 

32, 2347 

00025 

0 

2 OD 

0150 

REF 

i 

32,2350 

37663 

0 

STCALL 

NCSMVEL 

NEW  CSM  VELOCITY 

0151 

REF 

3 

LAST 

506 

32,2351 

11165 

0 

GRP2PC 

0152 

32,2352 

77624 

1 

CALL 

01  53  - 

REF 

7 

LAST 

5 06  - 

32,2353 

27412 

0 

INTSTALL 

0154 

32, 2354 

44345 

0 

DLOAD 

BDSU 

0155 

REF 

3 

LAST 

506 

32, 2355 

03661 

0 

TRANSTM 

LAUNCH  TIME  - TRANSFER  TIME 

01551 

REF 

_ 3 

LAST 

505  _ 

32,2356 

03657 

0 

LNCFTM 

0156 

REF 

4 

LAST 

334 

32, 2357 

255  17 

0 

STOVL 

TET 

0157 

REF 

4 

LAST 

507 

32,2360 

03651 

0 

NEWPOS 

015ft 

R FF 

4 

\ AST 

33  5 

32,  2 361 

01535 

0 

STORE 

RCV 

0159 

REF 

2 

LAST 

126 

32, 2362 

25503 

0 

STOVL 

RRECT 

0160 

REF 

2 

LAST 

507 

32,2363 

03663 

1 

NCSMVEL 

0161 

REF 

2 

LAST 

126 

32, 2364 

35511 

1 

STCALL 

VRECT 

0162 

REF 

1 

32, 2365 

23361 

1 

MINI RECT 

01621 

32,2366 

45174 

1 

AX  T , 2 

CALL 

01622 

32,2367 

00002 

0 

2 

0163 

REF 

2 

LAST 

36 

32,  2 370 

26661 

1 

ATOPCSM 

0164 

32,2371 

77624 

1 

CALL 

0165 

REF 

1 

32,2372 

27425 

1 

I NTWAKEO 

0166 

32,2373 

77776 

1 

EXIT 

0167 

REF 

105 

LAST 

505 

32,2  374 

0 4616 

1 

TC 

BANKCALL 

0168 

REF 

3 

LAST 

-505 

32,  2375 

50062 

0 

CADR 

PR0G20A 

0169 

24,2060 

BANK 

24 

0170 

REF 

2 

LAST 

504 

24, 2000 

SETLOC 

P20S 

0171 

24,2060 

BANK 

0172 

REF 

2 

LAST 

504  TO 

505  : 

30  30* 

COUNT* 

$ $/  P 20 

0173 

REF 

28 

L AS  T 



24, 2 060 

0 5516 

o 

TC 

DOWN  FLAG 

RFSET  VEHUPFLG-  LM  STATE  VECTOR 

0174 

REF 

4 

LAST 

50  5 

24,2061 

00026 

0 

ADRES 

VEHUPFLG 

TO  BE  UPDATED 

0175 

REF 

106 

LAST 

507 

24,2062 

0 46  16 

l 

PR0G20A 

TC 

BANKCALL 

0176 

REF 

3 

LAST 

499 

24, 2063 

11175 

1 

CADR 

R02BOTH 

0177 

REF 

15 

LAST 

505 

24, 2064 

0 5504 

0 

TC 

UPFL  AG 

0178 

REF 

2 

LAST 

302 

24, 2065 

00027 

1 

ADRES 

UPDATFLG 

SET  UPDATE  FLAG 

0179- 

REF 

16 

LAST 

507 

24, 2066 

0 5504 

0 

TC 

UPFL  AG 

01  80 

REF 

2 

LAST 

30  2 

24,2067 

00031 

0 

ADRES 

TRACKFLG 

SET  TRACK  FLAG 

0181 

REF 

17 

LAST 

507 

24,2070 

0 5504 

0 

TC 

UPFL  AG 

0182 

REF 

2 

LAST 

302 

24,2071 

00010 

0 

ADRES 

RNDV7FLC 

SET  RENDEZVOUS  FLAG 

0183 

REF 

29 

LAST 

507 

24, 2072 

0 5516 

0 

TC 

DOWN  FLAG 

0184 

REF 

1 

24,2073 

00037 

0 

ADRES 

SPCHOPTN 

INSURE  SEARCH  OPTION  OFF 

507 
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0185 

REF 

30 

LAST 

507 

24, 2074 

0 5516 

0 

TC 

DOWN  FLAG 

0186 

REF 

1 

24,2075 

00040 

0 

ADRES 

ACMODFLG 

REF 

3-1 

4_  T 

SO  8 

2 4,  2 076 

0 5516 

0 

TC 

DOWNFLAC 

0188 

REF 

5 

LAST 

294 

24,2077 

00063 

1 

ADRES 

R04F  LAG 

0189 

RFF 

32 

LAST 

508 

24, 2100 

0 5516 

C 

TC 

DOWN  FLAG 

24f  7 i m 

001  26 

1 

ADRES 

NORRMON 

0191 

REF 

33 

LAST 

508 

24,2102 

0 5516 

0 

TC 

DOWN  FLAG 

0192 

REF 

1 

24,2  103 

00041 

1 

ADRES 

LOSC  MFLG 

LAST 

48  8 

74,7104 

0 5353 

1 

P20LFM1 

TC 

P HAS  CHNG 

0196 

24, 2 105 

04022 

0 

OCT 

0402  2 

0197 

REF 

LC6 

LAST 

484 

24, 2 106 

3 47  55 

1 

CAF 

Z FRO 

REF 

74, 7107 

55*460 

0 

TS 

MARK  CTR 

0199 

REF 

32 

LAST 

505 

24, 2110 

0 6036 

1 

TC 

INTPRET 

0200 

24, 2 1 11 

77634 

0 

RTB 

n?n  i 

RFF 

6 

i AST 

49  g 

24,  2 112 

21462 

1 

LCADTIME 

0202 

REF 

9 

LAST 

506 

24,2113 

34041 

0 

STCALL 

T DEC  1 

0203 

REF 

1 

24,2114 

51151 

0 

LPS20.1 

0704 

24, 2 11 5 

77624  L 

CALL 

0205 

REF 

1 

24,2116 

53565 

1 

LPS20.2 

0206 

24,2117 

77776 

1 

EXIT 

070  7 

RFF 

777 

1 AST 

48  7 

24, 2120 

50  154 

1 

INDEX 

MPAC 

0208 

24,2121 

0 2122 

1 

TC 

+ 1 

0209 

REF 

i 

24,2122 

0 2 L32 

0 

TC 

P20L  EMA 

REF 

1 

7 4-,  7 1 7 3 

3 7336 

o 

526AL ARM 

CAF 

ALPM  526 

0211 

REF 

107 

LAST 

507 

24, 2124 

0 4616 

1 

TC 

BANKCALL 

0212 

REF 

1 

24,2125 

21451 

1 

CADR 

PRIOLARM 

0?  1 3 

REF 

2 

1 AST 

48  8 

74, 7 1 76 

0 60  77 

1 

TC 

G0T0V56 

0214 

24,2  127 

0 2123 

0 

TC 

-4 

0215 

REF 

i 

24,2130 

0 2104 

0 

TC 

P20LEM1 

0 ? ]A 

R F F 

h A 

1 AST 

SO  2 

?4,  7 1 3 1 

0 S 1 ss 

n 

TC 

F NDO  F JDP 

0218 

24,2  133 

04022 

0 

-I  l 
OCT 

04022 

0219 

REF 

2 

LAST 

504 

24, 2 134 

0 27  14 

1 

TC 

LUNSFCHK 

0220 

REF 

1 

24, 2135 

0 7140 

o 

TC 

P 20 L EMR 

0221 

REF 

1C8 

LAST 

508 

24, 2 136 

0 4616 

1 

TC 

BANKCALL 

0222 

REF 

1 

24, 2 137 

46100 

1 

CADR 

P61L  EM 

0223 

REF 

8 

LAST 

50  8 

74, 2 140 

0 53  53 

1 

p 70 1 FMR 

Tf 

P HAS CHNG 

0224 

24,2141 

05022 

1 

OCT 

0532  2 

0225 

24,2142 

10000 

0 

OCT 

1 0000 

0226 

R-EF 

- 3-  - 

LAST 

4 3 8 

24,2 143 

3 7713 

-0 

CAF 

PRI.026 

0227 
02272 
02274 
02276 
02278 

0228 

0229 

0230 


REF 

REF 

REF 

REF 

REE 

REF 


9 

14 

4 

1 

28 


LAST 

LAST 

LAST 


50  1 
488 
4 8 8- 


LAST  470 


24. 2 144 

24.2145 

24.2146 

24.2147 
24,2150 

-24,  2 1 5 1 

24.2152 

24.2153 


0 
3 

7 4747 
0 0006 
1 2262 
3 4752 
0 0006 


5146  1 
0075  0 
0 
1 
1 
0 
1 

02  033  0 


TC 

CA 

MASK 

EXTEND 

BZF 

P20LEMB7  CAF 

EXTEND 

RAND 


PRI OCHNG 
F LAG  WR01 
TRACKBIT 
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BJLL2- 

C HAN  33 


7 LAST  431 
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ALSO  MANUAL  ACQUISITION  FLAG  RESET 

TURN  OFF  R04FLAG  TO  ENSURE.  GETTING 
ALARM  521  IF  CANT  READ  RADAR 
ENSURE  R25  GIMBAL  MONITOR  IS  FNABLFO 
(RESET  NORRMON  FLAG) 

RESET  LOS  BEING  COMPUTFD  FLAG 


ZERO  MARK  COUNTER 


LOS  DETERMINATION  ROUTINE 


TEST  RANGE  R/UTINE 


NORMAL  RETURN  WITHIN  400  N M 
ERROR  EXIT  - RANGE  > 400  N.  MI. 


TERMINATE  EXITS  P20  VIA  V56  CODING 
PROC  (ILLEGAL 
ENTER  RECYCLE 


CHECK  LUNAR  SURFACE  FLAG  ( P22  FLAG) 


PREFERRED  TRACKING  ATTITUDE  ROUTINE 

RESTART  AT  PRIORITY  10  TO  ALLOW  V37 
REQUESTED  PROGRAM  TO  RUN  FIRST 
RESTORE  PRIORITY- 2.6 

IS  THE  TRACK  FLAG  SET 


BRANCH  - NO  - WAIT  FOR  IT  TO  BE  SET 
IS  RR  AUTO  MODE  DISCRETE  PRESENT 


GAP 
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L P2C-P25 


USER • S PAGE  NO.  6 E7  S3 


0231 

0232 

REF 

1 

24, 2 154 
24,2 155 

0 

1 

0006 

22  1 1 

1 

0 

EXTEND 

BZF  P20LEMB3 

YES  - 

DO  AUTOMATIC 

ACQUISITION  ( R 2 1 ) 

0233 

REF 

5 

LAST 

3 10 

24,2156 

4 

6007 

1 

P20LEMB5  CS 

0CT24 

RADAR 

NOT  IN  AUTO 

CHECK  IF 

0234 

REF 

10 

LAST 

48  8 

24,2 157 

6 

1011 

0 

AD 

MODE  EG 

MAJOR 

MODE  IS  20 

0235 

24,2160 

0 

0006 

1 

EXTEND 

0236 

REF 

1 

24, 2161 

1 

2174 

0 

BZF 

P20LEMB6 

BRANCH 

- YES-OK  TO 

DO  PLEASE  PERFORM 

02363 

REF 

3 

LAST 

417 

24, 2 162 

6 

7745 

0 

AD 

NEG2 

ALSO  CHECK  FOR  P22 

023*S  A 

24,2 163 

0 

0006 

1 

EXTEND 

02369 

REF 

2 

LAST 

509 

24, 2 164 

1 

21  74 

0 

BZF 

P20LEMB6 

BRANCH  - YES  OK  TO  DO  PLEASE  PERFORM 

0241 

REF 

1 

24, 2 165 

3 

2340 

1 

CAF 

ALRM514 

TRACK  FLAG  SET-FLASH  PRIORITY  ALARM  514- 

0?4? 

R FF 

i c.v 

LAST 

5 0 8 

24,  2 166 

0 

46  16 

1 

TC 

BANKCALL 

RADAR  GOES  OUT  OF  AUTO  MODE  WHILE  IN  USE 

0243 

REF 

2 

LAST 

508 

24, 2167 

21451 

1 

CADR 

PRIOLARM 

02  44 

REF 

3 

LAST 

50  8 

24,2170 

0 

6022 

1 

TC 

30T0V56 

TERMINATE  EXITS  VIA  V56 

0245 

REF 

2 

LAST 

50  8 

24,2171 

0 

2140 

0 

TC 

P20LFMB 

PROCEED  AND  ENTER  BOTH  GO  BACK 

0246 

REF 

3 

LAST 

509 

24,2  L72 

0 

2140 

0 

TC 

P20LEMB 

TO  CHECK  AUTO  MODE  AGAIN 

0247 

REF 

69 

LAST 

508 

24,2173 

0 

5155 

0 

TC 

ENDO  F JOB 

0248 

REF 

1 

24, 2 174 

3 

2337 

1 

P20LFMB6  CAF 

0CT2  01 

REQUEST  R.P  AUTO  MODE  SELECTION 

0249 

REF 

110 

LAST 

509 

24,2175 

0 

4616 

1 

TC 

BANKCALL 

0250 

REF 

1 

24,2176 

20476 

0 

CADR 

G0PERF1 

0251 

REF 

4 

LAST 

50  9 

24,2177 

0 

6022 

1 

TC 

GOTP  V56 

TERMINATE  EXITS  P20  VIA  V56  CODING 

02  52 

REF 

4 

LAST 

509 

24, 2200 

0 

2140 

0 

TC 

P20L  EMB 

PROCEED  CHECKS  AUTO  MODE  DISCRETE  AGAIN 

0253 

REF 

3 

LAST 

508 

24, 2201 

0 

2714 

1 

TC 

LUNS  FCHK 

ENTFR  INDICATES  MANUAL  ACQUISITION  (R23) 

0254 

REF 

1 

24, 2202 

0 

2207 

0 

TC 

P20L  EMB2 

YFS  - R23  NOT  ALLOWED-TURN  ON  OPR  ERROR 

0255 

REF 

1 

24,2203 

0 

3027 

1 

TC 

R23L  EM 

NO  - DO  MANUAL  ACQUISITION 

0256 

REF 

18 

LAST 

507 

24,2204 

0 5504 

0 

P20LEMB 1 TC 

UPFL  AG 

RETURN  FROM  R23 

- LOCKON  ACHIEVED 

0257 

REF 

2 

LAST 

508 

24, 2205 

00040 

0 

ADRES 

ACMODFLG 

S FT  MANUAL  FLAG 

AND  GO  BACK  TO  CHECK 

0258 

-REF 

— 5- 

LAST 

509 

24,2206 

0 2140 

CL 

TC 

P20L EMB 

RR  AUTO  MODE 

0259  REF  6 LAST  459  24,2207  0 4364  L P20LEMB2  TC  — F ALTON  TURNS  ON  OPERATOR  ERROR  LIGHT  ON  DSKY 


0260 

REF 

6 

LAST 

509 

24,2210 

0 

2140 

0 

TC 

P20L  EMB 

AND  GOES  BACK  TO  CHECK  AUTO  MODE 

0261 

REF 

31 

LAST 

483 

24, 2211 

4 

01 10 

0 

P20LEMB3  CS 

RADMODES 

ARF  RR  CDUS  BEING  ZEROFO 

0262 

REF 

23 

LAST 

437 

24, 2212 

7 

4737 

l 

MASK 

BIT1  3 

(BIT  13  RADMODES  EQUAL  ONE) 

0263 

24,2213 

0 

0006 

1 

EXTEND 

0264 

REF 

1 

24, 2214 

1 

2226 

1 

3ZF 

P 2 0 L EM84 

BRANCH  - YES  - WAIT 

0265 

REF 

5 

LAST 

308 

24,2215 

3 

4355 

0 

CAF 

BIT13-14 

IS  SEARCH  OR  MANUAL  ACQUISITION  FLAG  SET 

0266 

REF 

7 

LAST 

34  7 

24,2216 

7 

0076 

1 

MASK 

FLAGWRD2 

0267 

24, 2217 

0 

0006 

1 

EXTEND 

0268 

REF 

1 

24, 2220 

1 

2232 

1 

8ZF 

P 20 L EMC 3 

ZERO  MFANS  AUTOMATIC  RR  ACQUISTION 

0269 

REF 

34 

LAST 

50  8 

24,2221 

0 

5516 

c 

TC 

DOWNFLAG 

RESET  TO  AUTO  MODE 

0270 

REF 

2 

LAST 

507 

24, 2222 

00037 

0 

ADRES 

SRCHOPTN 

0271 

REF 

35 

LAST 

509 

24,2223 

0 

5516 

0 

TC 

DOWNFLAG 
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L 

P20- 

P25 

0272 

REF 

3 

LAST 

509 

24, 2224 

00040 

0 

AORFS 

ACMODFLG 

0273 

REF 

2 

LAST 

508 

24,2225 

0 2262 

0 

TC 

P20L  EMWT 

0274 

REF 

1 

24, 2226 

3 2335 

0 

P20LEMB4  CAF 

253DEC 

t;nq 

24, ? ??1 

0 46  16 

1 

— XC 

BANKCALL 

0276 

REF 

8 

LAST 

3 l 5 

24,2230 

01735 

1 

CADR 

DEL  A Y JOB 

02  77 

REF 

2 

LAST 

509 

24,2231 

0 2211 

1 

TC 

P20L  EMB3 

027705 

REF 

33 

LAST 

508 

24,2232 

0 6036 

1 

P20LFMC3 

TC 

I NTPRFT 

02  771 

24,2233 

77624 

_1_ 

CALL- 

027715 

REF 

1 

24, 2234 

50347 

1 

UPPS  V 

02772 

24,2235 

77214 

0 

SOFF 

VLOAD 

027725 

REF 

4_ 

LAST 

263 

24, 2236 

04347 

-£L 

SURF  FLAG 

02773 

REF 

1 

24,2237 

50246 

1 

P20L EMC4 

027735 

REF 

1 

24,2240 

01661 

1 

RCVLEM 

02774 

24^2241 

77742 

-0— 

V-SR2 

02776 

REF 

2 

LAST 

13  5 

24,2242 

26356 

0 

STOVL 

LMPO  S 

02778 

REF 

1 

24,2243 

01667 

1 

VCVL  EM 

027783 

24, 2244 

77742 

o 

VSR2 

027785 

REF 

1 

24,2245 

02364 

1 

STORE 

LMVE  L 

02779 

24,2246 

77776 

1 

P20LEMC4 

EX  IT 

02  78— 

REF 

g_ 

LAST 

-50-8- 

24, 2247 

0 5353 

1 

P20LEMC 

TC 

PHAS  CHNG 

0279 

24, 2250 

04022 

0 

OCT 

04022 

0280 

REF 

20 

LAST 

488 

24,2251 

30  074 

l 

CAE 

FLAGWRDO 

0281 

REF 

6— 

LAST 

48  8 

24,2252 

7 4745 

1 

MASK 

RND V ZBIT 

0282 

24,2253 

0 0006 

1 

EXTEND 

0283 

RFF 

70 

LAST 

509 

24,2254 

1 5155 

1 

BZF 

ENDO  F JOB 

0284 

REF 

15 

LAST 

50-S 

24, 2255 

30  075 

0 

CAE 

F LAG  WRD1 

0285 

REF 

5 

LAST 

508 

24,2256 

7 4747 

0 

MASK 

TRACKBIT 

0286 

24,2257 

0 0006 

1 

EXTEND 

0287 

REF 

1_ 

24, 2260 

1 2315 

0 

BZF 

P20LEMD 

0288 

REF 

1 

24,2261 

0 2721 

1 

P20LEMF 

TC 

R21LEM 

0291 

REF 

2 

LAST 

510 

24,2262 

3 

2335 

0 

P20LEMWT 

CAF 

253  DEC 

0292 

24,2263 

0 

0004 

0 

INHINT 

0293 

RE-F 

5— 

-LAST 

3 9 7 

24,  2-264 

o 

5173 

1 

TC 

TWIDDLE 

0294 

REF 

2 

LAST 

255 

24,2265 

02275 

0 

ADRES 

P 20  L EMC1 

0295 

REF 

16 

LAST 

510 

24,2266 

30  075 

0 

CAE 

FL AGWPD1 

0296- 

REF 

6 

LAST- 

- 51-0-  - 

24,  2 267 

7 

4747 

o 

MASK 

TRACKBIT 

0297 

24,2270 

0 

0006 

l 

EXTEND 

0298 

REF 

71 

LAST 

510 

24,2271 

1 

5155 

1 

BZF 

ENDOFJOB 

0299 

REF- 

10 

LAST 

510 

24, 2272 

0 

5353 

1 

P20LMWT 1 

TC 

PHAS  CHNG 

0300 

24,2273 

40072 

0 

OCT 

40072 

0301 

REF 

72 

LAST 

510 

24,2274 

0 

5155 

0 

TC 

ENDOFJOB 

0302 


REF  21  LAST  510 


24,2275  30  074  1 P20LEMC1  CAE 


FL AGWRDO 
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USER'S  PAGE  NO.  7 E7  S3 

WAIT  2.5  SECONDS  THEN  GO  TO  RR  DATA  READ 

WAIT  2.5  SECONDS  WHILE  RR  CDUS  ARE  BEING 
ZEROED-THEN  GO  BACK  AND  CHECK  AGAIN 


DO  A PERMANENT  MEMORY  PRECISION 
INTEGRATION  TO  ESTABLISH  AN  UP-TO-DATE 
RASE  FOR  COMICS  (KEPLER)  IN  R21 


WHEN  ON  LUNAR  SURFACE 
SCALE  9-29 


IS  THE  RENDEZVOUS  FLAG  SET 
NO  - EXIT  P20 

IS  TRACK  FLAG  SET  (BIT  5 FLAGWORD  1) 
BRANCH-TRACK  FLAG  NOT  ON-WAIT  15  SFCONDS 


USE  INSTEAD  OF  WAITLIST  SINCE  SAME  BANK 
WAIT  2.5  SFCONDS 
IS  TRACK  FLAG  SET 


NO-EXIT  WITHOUT  DOING  2.7  PHASE  CHANGE 


IS  RENDEZVOUS  FLAG  SET 


GAP  : 


0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0313 

0314 


0315 

0316 

0317 

0318 

0319 

0320 

0321 


0322 

0323 

0324 
03-25^ 

0326 

0327 
0328- 


0329 

0330 
0 331 
0332 

0332 

0333 


0334 

0335 

0336 

0337 

0338 

0339 

0340 
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REF 

7 

LAST 

510 

24,2276 

7 4745 

1 

MASK 

R ND V ZB  IT 

24,2277 

0 0006 

1 

EXTEND 

RPF 

17  _ 

LAST 

50  2 

24, 2 300 

1 5261 

0 ~ 

BZF 

TASK  OVER 

L r 

REF 

17 

LAST 

510 

24,2301 

30  075 

0 

CAE 

FLAGWRD1 

REF 

7 

LAST 

510 

24, 2302 

7 4747 

0 

MASK 

TRACKBIT 

24, 2303 

0 0006 

EXTEND 

REF 

1 

24,2304 

1 2312 

1 

BZF 

P20LEMC2 

REF 

4 

LAST 

508 

24,2305 

3 7713 

0 

CAF 

PRI026 

R F F 

1-7 

L AST 

47  4- 

24, 2 306 

0 5105 

0 

TC 

FIND  VAC 

RFF 

8 

LAST 

504 

E7, 1454 

EBANK= 

LOSC  CUNT 

REF 

1 

24,2307 

02477 

1 

2C  ADR 

R22L  EM 

REF 

1 

24,2310 

50067 

0 

REF 

18 

LAST 

51  1 

24, 2311 

0 5261 

1 

TC 

TASK  CVFR 

REF 

1 

24, 2312 

0 5221 

0 

P20LEMC2 

TC 

F I XDELAY 

24,2313 

02734 

0 

DEC 

1500 

REF 

3 

LAST 

5 10 

24, 2314 

0 2275 

0 

TC 

P20L  FMC1 

REF 

| 

24, 2315 

3 2712 

_4 

P20LEMD 

CAF 

1 500DEC 

REF 

6 

LAST 

5 1 0 

24,2316 

0 5173 

1 

TC 

TWIDDLE 

REF 

1 

24,2317 

02321 

0 

ADRES 

P 20 L EMP 1 

REF 

73 

LAST 

5-1D- 

24,2  320 

0 5155 

n 

TC 

ENDOFJOB 

REF 

18 

LAST 

5 1 1 

24, 2321 

-30  075 

P20LEMD1 

CAE 

F L AGWRD1 

REF 

8 

LAST 

5 1 1 

24,2322 

7 4747 

0 

MASK 

TRACKBIT 

REF 

161 

LAST 

50  2 

24,2323 

10  000 

0 

CCS 

A 

REF- 

J_ 

24,  2 324^ 

1 2330 

1 

TCF 

P20L  EMD2 

REF 

2 

LAST 

51  1 

24,2325 

0 5221 

0 

TC 

F I XDELAY 

24,2326 

02734 

0 

DFC 

1500 

REF 

2- 

LAST 

511 

24,2327 

0 2321 

0 

TC 

P20L EMD1 

REF 

— 5— 

LAST 

5 14 

24, 2330 

3 7713 

o 

P20LEMD2 

CAF 

PR  1 0 26 

REF 

18 

LAST 

5 1 1 

24,2331 

0 5105 

0 

TC 

F INDVAC 

REF 

9 

LAST 

5 1 1 

E7 , 1454 

EBANK= 

LC  SC  OUNT 

REF 

2_ 

LAST 

503 

24, 2332 

02232 

0 

2CADR 

P20LEMC3 

24, 2333 

50067 

0 

REF 

19 

LAST 

51  1 

24, 2334 

0 5261 

1 

TC 

TASKOVER 

24,2335 

00372 

1 

250  DEC 

DEC 

250 

24, 2336 

00526 

0 

ALRM526 

OCT 

00526 

24,2337 

00201 

1 

OCT  20 1 

OCT 

00201 

24,2340 

00514 

1 

ALRM514 

OCT 

514 

24,2341 

00074 

1 

MAXTRIES 

DEC 

60 

24,2342 

00012 

1 

OCT  000 1 2 

OCT 

0001  2 

24,2343 

00001 

0 

P22  ONE 

OCT 

0000  1 
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NO  - EXIT  P20/R22 
IS  TRACK  FLAG  SET 


NO-DONT  SCHFDULE  R22  JOB 
YES-SCHEDULE  P22  JOB  (RR  DATA  READ) 


TRACK  FLAG  NOT  SET  ,WAIT  15  SECONDS 
AND  CHECK  AGAIN 


WAITLIST  FOR  15  SECONDS 


IS  TRACK  FLAG  SET 

YES-SCHEDULE  DESIGNATE  JOB 
NO-WAIT  15  SECONDS 

SCHEDULE  JOB  TO  DO  R21 


START  AT  PERM.  MEMORY  INTEGRATION 
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L 

P20- 

P 25 

USER*  S PAGE  NO.  9 E7  S3 

0341 

24, 2344 

10000 

0 

ONE  8- 2 

2DEC 

1.0  B-2 

0341 

24,2345 

00000 

1 

- 24^  7 346 

01441 

1 

V06N33* 

VN 

0633 

0342 

24,2347 

45020 

1 

UPPSV 

STQ 

CALL 

UPDATES  PERMANENT  STATE  VECTORS 

0343 

REF 

1 

24,2350 

01  757 

0 

L S 2 1 X 

TO  PRESENT  TIME 

3 

L ART 

5 0 7 

7 4-y  7 351 

27412 

0 - 

I NT  STALL 

0345 

24,2352 

776  24 

1 

CALL 

0346 

REF 

2 

LAST 

25  1 

24, 2353 

26644 

0 

SET  I FLGS 

24, 2354 

43014 

0 

BOF 

SET 

IF  W-MATRIX  INVALID, DONT  INTEGRATE  IT 

0348 

REF 

4 

LAST 

506 

24,2355 

02756 

1 

R ENDWFLG 

0349 

REF 

1 

24,2  356 

50367 

0 

UPPS VI 

REF 

6 

LAST 

506 

74*  7 357 

01476 

0 

D1M0  FLAG 

SET  DIMOFLAG  TO  INTEGRATE  W-MATRIX 

0351 

24,2360 

43014 

0 

BON 

SET 

0352 

REF 

5 

LAST 

5 10 

24,  2 361 

04307 

1 

SURFFLAG 

IF  ON  LUNAR  SURFACE  W IS  6X6 

74t  7 367 

503  64 

o 

UPPS V5 

0354 

REF 

4 

LAST 

506 

24,2363 

01475 

0 

D60R9FLG 

OTHERWISE  9X9 

0355 

24,2364 

776  14 

1 

UPPSV5 

BOF 

REF 

5 

| ART 

50  7 

7 4,  7 365 

00747 

o 

VEHU  PFLG 

0357 

REF 

i 

24,2366 

50411 

0 

UPPS V3 

0358 

24,2367 

47014 

1 

UPPSV1 

SET 

RTB 

C SM  STATE  BEING  CORRECTED 

m S9 

R FF 

6 

1 AST 

50  6 

24, 2370 

01474 

1 

VINT  FLAG 

0360 

REF 

7 

L AST 

508 

24,2371 

21462 

1 

LOADTIME 

0361 

REF 

10 

LAST 

508 

24,2372 

34041 

0 

STCALL 

TDEC1 

INTEGRATE  CSM  STATE  WITH  W-MATRIX 

0362 

REF 

5 

LAST 

50-6 

24,2373 

27134 

1 

I NT  E GR V 

0363 

24,2374 

77624 

1 

CALL 

GROUP  2 PHASE  CHANGE 

0364 

REF 

4 

LAST 

507 

24,2375 

11165 

0 

GPP2PC 

TO  PROTECT  INTEGRATION 

0365 

24, 2376 

77624 

1 

CALL 

0366 

REF 

9 

LAST 

5 12 

24,2377 

27412 

0 

I NT  S T ALL 

0367 

24, 2400 

43145 

0 

OLOAD 

CLEAR 

GET  TETCSM  TO  STORF  IN  TDEC  FOR  LM  INT. 

R E F 

4 

LAST 

? 5 1 

74, 7 40 l 

n i 57i 

o 

T^  TC SM 

0369 

REF 

7 

LAST 

512 

24, 2402 

016  74 

0 

VINTFLAG 

0370 

24,2403 

77624 

1 

UPPSV4 

CALL 

INTEGRATE  OTHER  VEHICLE 

0371 

REF 

3 

1 AS  T 

5 1 2 

24,  2 404 

2 6 644 

o 

SET  I FLGS 

WITHOUT  W-MATRIX 

0372 

REF 

1 1 

LAST 

512 

24,2405 

34041 

0 

STCALL 

TDEC  1 

0373 

REF 

6 

LAST 

512 

24,2406 

27134 

1 

I NTFGRV 

0374 

24, 2407 

77650 

1 

GOTO 

0375 

REF 

2 

LAST 

512 

24, 2410 

01757 

0 

LS21  X 

0376 

0377 

REF 

8 

LAST 

512 

24.241 1 

24. 2412 

47014 

01674 

1 UPPSV3 
0 

CLEAR 

RTB 

VINTFLAG 

0378 

REF 

- 8 

LAST 

512 

24,2413 

21462 

1 

LOADTIMF 

0379 

REF 

12 

LAST 

51  2 

24,2414 

34041 

0 

STCALL 

TDEC  1 

I NTFGRATE  LM  STATE  WITH  W-MATRIX 

0380 

REF 

7 

LAST 

512 

24,2415 

27134 

1 

INTEGRV 

0381 

24,2416 

77624 

1 

CALL 

0382 

REF 

5 

LAST 

51  2 

24,2417 

11165 

0 

GRP2 PC 

0383 

24,2420 

77624 

1 

CALL 

0384 

REF 

10 

LAST 

512 

24,2  421 

27412 

0 

I NTS  TALL 

0385 

24, 2422 

71214 

0 

SET 

DLOAD 

0386 

REF 

9 

LAST 

512 

24,  2423 

01474 

1 

VINTFLAG 
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L 

P2C-P25 

USER'S  PAGE  NO. 

10 

E 7 S3 

0387 

0388 

0389 

REF  2 LAST  127 

REF  1 

24. 2424 

24.2425 

24. 2426 

01643 

77650 

50403 

1 

1 

0 

GOTO 

TETL  FM 
UPPS V4 

GET  TETLEM  TO  STORE 

IN  TOEC 

FOR  CSM  INT. 

E7, 1454 


0390  REF  10  LAST  511 

0391  REF  1 


EBANK=  LOSCOUNT 
COUNT*  t $/ P 22 
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P0392 
R0393 
R0394 
R 0395 
R0396 
R0397 
R0398 
R0399 
R0400 
R0401 
R0402 
R0403 
R0404 
R0405 
R 0406 
R0407 
R0408 
R0409 
R0410 
R 04 1 1 
R0412 
R0413 
R04I4 
R0415 
R0416 
R 04 1 7 
R0418 
R0419 


PROGRAM  DESCRIPTION 

PREFERRED  TRACKING  ATTITUDE  PROGRAM  P25 
MOD  NC  - 3 
BY  P.  VOLANTE 
FUNCTIONAL  DESCRIPTION 


PURPOSE  OF  THIS  PROGRAM  IS  TO  COMPUTE  THE  PREFERRED  TRACKING 
UDE  OF  THE  LM  TO  CONTINUOUSLY  POINT  THE  LM  TRACKING  BEACON  AT 
ND  TO  PERFORM  THE  MANEUVER  TO  THE  PREFERRED  TRACKING  ATTITUDE 
NUOUSLY  MAINTAIN  THIS  ATTITUDE  WITHIN  PRESCRIBED  LIMITS 
NG  SEQUENCE  - 

RONAUT  REQUEST  -THROUGH  DSKY  V37E25E 
LTINES  CALLED  - 

FLAGUP 
ENDOF JOB 
WAITLIST 
FINDVAC 


THE 
ATT  IT 
CSM  A 
CONTI 
CALLI 
AST 
SUBRO 
E AN 
R 02 
R61 
TAS 
NORMA 
P25 
PROGR 
ALARM 
NON 
OLTPU 
ERASA 
FLAGS 

TRACKFLG  ,P25FL AG 
DEBRIS 


THE 

AND 


KCALL 

BOTH  ( I HU  STATUS  CHECK) 

LEM  (PREF  TRK  ATT  ROUT) 
KOVER 

L EXIT  MOOES  - 
MAY  BE  TERMINATED  IN  TWO 
AMIPOO)  BY  KEYING  V37E00E 
OR  ABORT-  EXIT  MODES  - 
E 
T 

BLE  INITI  AL  I ZATIQM  REQUIRED 
SET  + RESET 


WAYS-ASTRONAUT  SELECTION  OF  IDLING 
OR  BY  KEYING  IN  V56E 


NCNE 


0420 

REF 

11 

LAST 

513 

E7, 1454 

EBANK= 

LOSC  OUNT 

04?  1 

REF 

1 

COUNT* 

S S/P25 

0422 

REF 

2 

LAST 

504 

24,2427 

0 5327 

1 

PROG25 

TC 

2PHSCHNG 

0423 

24,2430 

00004 

0 

OCT 

4 

MAKE  GROUP  4 INACTIVE 

0424 

24*  2 43 1 

05022 

1 

OC  T 

04322 

0425 

24,2432 

26000 

0 

OCT 

26000 

PRIORITY  26 

04?4 

P EF 

11? 

i a<;t 

S 1 0 

T ?43^ 

n 4A  14 

1 

RAMKf&l  1 

0427 

REF 

4 

LAST 

507 

24, 2434 

11175 

1 

CADR 

R 02  B OTH 

IMU  STATUS  CHECK 

042  8 

REF 

19 

LAST 

509 

24, 2435 

0 5 5 04 

0 

TC 

UPFL  AG 

0429 

REF 

3 

LAST 

507 

24, 2436 

00031 

0 

ADRES 

TRACKFLG 

SET  TRACK  FLAG 

0430 

REF 

20 

LAST 

514 

24, 2437 

0 5504 

0 

TC 

JPFL  AG 

0431 

REF 

2 

LAST 

302 

24,2440 

00006 

1 

AORFS 

P25FLAG 

SET  P25FLAG 

0432 

REF 

— 14— 

LAST 

510 

24,-244  1 

0 5353 

l 

P?5I  F Ml 

TC 

PHAS  CHNG 

0433 

24,2442 

04022 

0 

OCT 

0402  2 

0434 

REF 

2 

LAST 

243 

24, 2443 

3 4743 

0 

CAF 

P25FLBIT 

0435 

REF 

31 

LAST 

25  4 

24,2  444 

7 0074 

o 

M A <sK 

STATE 

IS  P25FLAG  SET 

0436 

24,2445 

0 0006 

1 

EXTEND 

0437 

REF 

74 

LAST 

51  1 

24,2446 

1 5155 

1 

BZF 

ENDOFJOB 

04  3 8 

REF 

9 

LAST 

5 1 1 

24, 2447 

3 4747 

1 

CAF 

TRAC  KBIT 

IS  TRACKFLAG  SPT? 

0439 

REF 

32 

LAST 

514 

24, 2450 

7 0075 

1 

MASK 

STATF  +1 

0440 

24, 2451 

0 0006 

1 

EXTEND 

(VERB  37) 


514 
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L 

P20- 

P 2 5 

USER' S PAGE  NO.  12  E7  S3 

0441 

0442 
04^2  5 

REF 

REF 

REF 

1 

7 

1 

LAST 

469 

24.2452 

24. 2453 

24. 2454 

1 2462 
3 4757 
55' 743 

1 

0 

l 

BZF 

CAF 

TS 

P25L  MWT1 

SEVEN 

R6SCNTR 

NO-SKIP  PHASE  CHANGE  AND  WAIT  l MINUTE 
CALL  R65  - FINE  PREFERRED 

0443 

REF 

L 13 

LAST 

5 14 

24,2455 

0 4616 

1 

TC 

BANKCALL 

TRACKING  ATTITUDE  ROUTINE 

0444 

REF 

1 

24, 2456 

46105 

1 

C ADR 

P65LEM 

044  5 

REF 

2 

LAST 

24,2457 

0 2441 

_1_ 

TC 

P25LEM1 

THEN  GO  CHECK  FLAGS 

0446 

RFF 

12 

LAST 

514 

24, 2460 

0 5353 

1 

P25LEMWT 

TC 

PHASCHNG 

0447 

24, 2461 

00112 

0 

OCT 

00112 

0448 

REF 

1 

24,  2 462 

3 2474 

1 

P25LMWT 1 

CAF 

6 0 SC NDS 

0449 

24,2463 

0 0004 

0 

INHINT 

0450 

REF 

7 

LAST 

51  1 

24,2464 

0 5173 

1 

TC 

TWIDDLE 

WAIT  ONE  MINUTE  THEN  CHECK  AGAIN 

0451 

REF 

1 

24,  2465 

02467 

0- 

ADRES 

P25LEM2 

0452 

REF 

75 

LAST 

514 

24,2466 

0 5155 

0 

TC 

FNDO  F JOB 

0453 

REF 

1 

24, 2467 

3 5024 

1 

P25LEM2 

CAF 

PRI014 

0454 

REF 

19 

L AST 

5U 

24,2  470 

0 5105 

0 

TC 

F INC  VAC 

0455 

REF 

12 

LAST 

514 

E 7, 1454 

EB A NK  = 

LOSCOUNT 

0456 

REF 

3 

LAST 

515 

24, 2471 

02441 

1 

2C  ADR 

P25LEM1 

0456 

24, 2472 

50067 

0 

0457 

REF 

20 

LAST 

51  1 

24, 2473 

0 5261 

1 

TC 

TASK  OVER 

0458 

24, 2474 

13560 

0 

60SCN0S 

DEC 

6000 

^460 

24,2475 

77776 

1 

P250K 

EXIT 

0461 

REF 

1 

24,2476 

0 2460 

1 

TC 

P25L  FMWT 

GAP 
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P0462  DATA  READ  ROUTINE  22  (LEM) 

R0463  PROGRAM  DESCRIPTION 

R 0464  MCC  NC  - 2 

R0465  BY  P VOLANTE 

R0466  FUNCTIONAL  DESCRIPTION 

R0467 

R0468  TC  PROCESS  AUTOMATIC  RR  MARK  DATA  TC  UPDATE  THE  STATE  VECTOR  OF  EITHER 

R0469  LM  OR  CSM  AS  DEFINED  IN  THE  RENDEZVOUS  NAVIGATION  PROGRAM  (P20) 

R 047 0 CALLING  SECUENCE  - 

R0471  TC  BANKCALL 

R0472  CADR  R22LEM 

R0473  SUBROUTINES  CALLEC  - 

R0474  L SR 22.  1 GOELASH  WAITLIST 

R0475  LSR22.2  PRIOLARM  BANKCALL 

R 0476  LSR22.3  R61LEM 

R0477  NORMAL  EXIT  MODES- 

R0478  R 22  WILL  CONTINUE  TO  R E CYCL E , UPD AT  I NG  STATE  VECTORS  WITH  RADAR  DATA 

R 0479  UNTIL  P20  CEASES  TO  OPERATE  (RENDEZVOUS  FLAG  SET  TO  ZERO)  AT  WHICH  TIME 

R0480  R 22  WILL  TERMINATE  SELF. 

R048I  ALARM  OR  AEORT  EXIT  MODES- 
R0482  PRIORITY  ALARM 

R0483  PRIORITY  ALARM  525  LOS  NOT  WITHIN  3 DEGREE  LIMIT 
R0484  OUTPUT 

R0485  SEE  OUTPUT  FROM  LSR22^-3 

R0486  ERASABLE  INITIALIZATION  REQUIRED 
R0487  SEE  LS R2 2. 1 , LS R 2 2 . 2 , LS R 22 . 3 

R0488  FLAGS  SET  + RESET 
R0489  NOANGFLG 

R0490  DEBRIS 

R0491  — SEE  L SR2  2.  1 , LSR  22.-2 ,-L-SR22. 3 


0492 

REF 

2 

LAST 

16  1 

E7, 1 735 

EBANK=  LRS22.1X 

0493 

REF 

1 

COUNT*  $F/R  22 

0494 

ref 

13 

L AST 

51  5 

24, 2477 

0 53  53 

1_ 

R2?  LEM 

TC  PHASCHNG 

0495 

24, 2500 

04022 

0 

OCT  04022 

0496 

REF 

8 

LAST 

51  1 

24,2501 

3 4745 

0 

CAF  RNDVZBIT 

I S 

0497 

-REF 

33 

LAST 

514 

24, 2 502 

7 0074 

o 

MASK  STATE 

0498 

24,2503 

0 0006 

1 

EXTEND 

0499 

REF 

76 

LAST 

51  5 

24,2504 

I 5155 

1 

BZF  ENDO  F JOB 

NO- 

0500 

REF 

10 

LAST 

514 

24,  2 505 

3 4747 

1 

CAF  TRAC  KBiT_ 

TS 

0501 

REF 

34 

LAST 

516 

24,2506 

7 0075 

1 

MASK  STATE  +1 

0502 

24,2507 

0 0006 

1 

EXTEND 

0503 

REF 

— 1 

24,2510 

1 2664 

n 

BZF  R22WAIT 

NO 

0504 

REF 

48 

LAST 

502 

24,251  I 

3 4736 

1 

R22LEM12 

CAF  BIT14 

I S 

0505 

24, 2512 

0 0006 

1 

EXTEND 

ON 

0506 

REF 

23 

LAST 

48  1 

24,2513 

02  012 

0 

RAND  CHAN  12 

0507 

24,2514 

0 0006 

1 

EXTEND 

0508 

REF 

2 

LAST 

508 

24,2515 

1 2132 

1 

BZF  P20LEMA 

NO 

050-9- 

REF 

-2-9- 

LAST 

50  8 

24,2516 

3 4752 

0 

CAF  RIT2 

YES 

0510 

24,2517 

0 0006 

1 

EXTEND 

I S 

0511 

REF 

8 

LAST 

508 

24,2520 

02  033 

0 

RAND  C HAN  33 

USER'S  PAGE  NO.  13  E7  S3 


RENDESVOUS  FLAG  SET? 


EXIT  R 2 2 AND  P20 
TRACKFLAG  SET? 


WAIT 

RR  AUTO  TRACK  ENABLE  DISCRETE  STILL 
(A  MONITOR  REPOSITION  BY  R25  CLEARSIT 

- RETURN  TO  P20 

RR  AUTO  MODE  DISCRETE  PRESENT 


GAP 
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USER'S  PAGF  NO.  14  E7  S3 


0512 

24,2521 

0 0006 

1 

EXTEND 

0513 

24,2522 

1 2524 

1 

BZF 

+ 2 

YES  CONTINUE 

0 514 

REF 

1 

24,2  523 

0 2 156 

1 

TC 

P20L  EMB5 

NO  - SET  IT 

0515 

REF 

32 

LAST 

5 09 

24, 2524 

4 0110 

0 

CS 

RADMODES 

ARE  RR  CDUS  BEING  ZEROED 

0516 

REF 

24 

LAST 

509 

24,2525 

7 4737 

1 

MASK 

BIT  1 3 

(BIT  13  RADMODFS  EQUAL  ONE) 

0517 

24,  2 526 

0 0006 

1 

EXTEND 

0518 

REF 

1 

24,2527 

1 2655 

1 

BZF 

R22LFM42 

CDUS  BEING  ZEROED 

05183 

REF 

14 

LAST 

516 

24,2530 

0 5353 

1 

TC 

PHASCHNG 

IF  A RESTART  OCCURS, AN  EXTRA  RADAR 

qr i 

24, 2 531 

00  152 

1 

OCT 

00152 

READING  IS  TAKEN, SO  BAD  DATA  ISN'T  USED 

0519 

REF 

1 14 

LAST 

51  5 

24,2532 

0 4616 

1 

TC 

BANKCALL 

YFS  READ  DATA  + CALCULATE  LOS 

0520 

REF 

1 

24, 2533 

643  76 

1 

CADR 

LPS22.1 

DATA  READ  SUBROUTINE 

0571 

REF 

2 28 

LAST 

5 0 8 

24,2  534 

50  154 

1 

INDEX 

MPAC 

0522 

24, 2535 

0 2536 

0 

TC 

+ 1 

0523 

REF 

i 

24,2536 

0 2557 

1 

TC 

R22L  EM2 

NORMAL  RETURN  (GOOD  DATA) 

0524 

REF 

1 

24,2  537 

0 2247 

1 

TC 

P20LEMC 

COULD  NOT  READ  RADAR-TRY  TO  REDES  IGNATF 

0525 

REF 

i 

24,2540 

3 2707 

0 

CAF 

ALRM525 

RR  LOS  NOT  WITHIN  3 DEGREES  (ALARM) 

0526 

REF 

115 

LAST 

517 

24,2541 

0 4616 

l 

TC 

BANKCALL 

0527 

REF 

3 

LAST 

5 09 

24,2542 

21451 

1 

CADR 

PRICLARM 

0528 

REF 

5 

LAST 

509 

24,2543 

0 6022 

1 

TC 

G OT  0 V56 

TERMINATE  EXITS  ° 20  VIA  V56  CODING 

0529 

REF 

1 

24,2544 

0 2547 

0 

TC 

R22LEM1 

PROC  (DISPLAY  DELTA  THETA) 

0530 

24,2  545 

0 2540 

1 

TC 

-5 

ENTER ( ILLEGAL  OPTION) 

0531 

REF 

77 

LAST 

5 1 6 

24,2546 

0 5155 

0 

TC 

ENDDFJOB 

0532 

REF 

15 

LAST 

517 

24, 2547 

0 5353 

1 

R22LEM1 

TC 

PHASCHNG 

0533 

24,2550 

04022 

0 

OCT 

04022 

0534 

REF 

I 

24,2  55 1 

3 2710 

a 

CAF 

V06N05 

DISPLAY  DELTA  THETA 

0535 

REF 

1 16 

LAST 

517 

24,2552 

0 4616 

l 

TC 

BANKCALL 

0536 

REF 

1 

24, 2553 

20362 

l 

CADR 

PR  10  DSP 

0537 

REF 

6- 

LAST 

517 

24, 2 554 

0 6022 

i 

TC 

GOT C V56 

TERMINATE  EXITS  P20  VIA  V56  CODING 

0538 

REF 

2 

LAST 

517 

24,2555 

0 2557 

l 

TC 

P22LEM2 

PROC  (OK  CONTINUE) 

0539 

REF 

2 

LAST 

51  7 

24, 2556 

0 2247 

l 

TC 

P20LFMC 

ENTER (RECYCLE  ) 

0540 

REF 

16 

LAST 

5 1 7 

24,2557 

0 5353 

i 

R22LEM2 

TC 

PHASCHNG 

0541 

24,2560 

04022 

0 

OCT 

04022 

0542 

REF 

4 

LAST 

509 

24,2561 

0 2714 

l 

TC 

LUNS FCHK 

CHECK  IF  ON  LUNAR  SURFACE  ( P22FLAG  SET) 

0543 

REF 

1 

24,2  562 

0 2577 

0 

TC 

R22L  EM3 

YES-BYPASS  FLAG  CHECKS  AND  LRS22.2 

0544 

REF 

19 

LAST 

51  1 

24,2563 

3 0075 

0 

CA 

FLAGWPD1 

IS  TRACK  FLAG  SET 

0545 

REF 

11 

LAST 

516 

24,2  564 

7 4747 

0 

MASK 

TRACKBIT 

0546 

24,2565 

0 0006 

1 

EXTEND 

0547 

REF 

2 

LAST 

516 

24,2566 

1 2664 

0 

BZF 

P 22  WAIT 

NO  - WAIT 

0548 

REF 

117 

LAST 

517 

24, 2 567 

0 4616 

1 

TC 

BANK  CALI 

YES 

0549 

RFF 

— 1_ 

24,2570 

51230 

1 

CADR 

LPS22.2 

CHECKS  RR  BORESIGHT  WITHIN  30  DEG  OF  +Z 

0550 

REF 

229 

LAST 

5 l 7 

24, 2 571 

50  154 

1 

INDEX 

MPAC 

0551 

24,2572 

0 2573 

1 

TC 

+ 1 

0552 

REF 

2 

LAST 

517 

24,  2 573 

0 2577 

0 

TC 

R 22L  EM3 

NORMAL  RETURNtLOS  WITHIN  30  OF  Z-AXTS) 

0553 

REF 

1 18 

LAST 

517 

24, 2 574 

0 4616 

1 

TC 

BANKCALL 

0554 

REF 

2 

LAST 

50  8 

24,2575 

46100 

1 

CADR 

P.61  L EM 

0555 

REF 

3_  - 

LAST 

_5_L  7 

24, 2576 

0 26  64 

1 

TC 

R22WAIT 

MOT  WITHIN  30  DFG  OF  Z-AXIS 

0556 

REF 

20 

LAST 

517 

24, 2577 

4 0075 

1 

R22LEM3 

CS 

FLAGWPD1 

SHOULD  WE  BYPASS  STATE  VECTOR  UPDATE 

0557 

REF 

1 

24, 2600 

7 4746 

1 

MASK 

NOUPFBIT 

( IS  NOUPDATE  FLAG  SET? ) 
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0558 

24, 2601 

0 0006 

1 

EXTENO 

0559 

REF 

2 

LAST 

5 1 7 

24,2602 

1 2655 

1 

BZF 

R22L  EM42 

L jfls  T 

i 7 

?4,  7 6 03 

3 0075 

0 

CA 

FLAGWRD1 

0561 

REF 

1 

24,2604 

7 4745 

1 

MASK 

J PD A TB  IT 

0562 

24,2605 

0 0006 

1 

EXTEND 

REF 

3 

| AST 

5 1 8 

24, 2606 

1 -2655 

1 

BZF 

_R22L EM42 

0564 

REF 

6 

LAST 

51  1 

24, 2607 

3 7713 

0 

CAF 

PRI026 

0565 

REF 

2 

LAST 

244 

24,2610 

5 5 ' 056 

1 

TS 

PHSPRDT2 

0566 

REF 

34 

LAST 

510 

24, 261 1 

0 6036 

l 

TC 

I NT  P RET 

0567 

24,  2612 

77650 

1 

GOTO 

24t  ? 6]  3 

54370 

1 

LSR22.3 

0569 

24, 2614 

77776 

1 

R22LEM93  EXIT 

05693 

REF 

17 

LAST 

517 

24,2615 

0 5353 

1 

TC 

PHASCHNG 

?4r  2M  6 

0407? 

o 

OCT 

04022 

0570 

REF 

1 

24, 2617 

1 2650 

1 

TC  F 

P22LEM44 

0571 

24,2620 

77776 

1 

R22LEM96  EXIT 

LAST 

5Q8 

24, 26 2 1 

3 4755 

1 

CAF 

ZFRO 

0573 

REF 

2 

LAST 

167 

24, 2622 

55' 744 

0 

TS 

N49F LAG 

0574 

REF 

18 

LAST 

518 

24,2623 

0 5353 

1 

TC 

PHASCHNG 

05  75 

24, 2624 

04022 

0 

OCT 

04022 

0576 

REF 

2 

LAST 

207 

24,2625 

3 7714 

1 

CAF 

PPI027 

0577 

REF 

10 

LAST 

502 

24,2626 

0 5072 

1 

TC 

N OV  A C. 

0578 

REF 

2— 

LAST 

518 

E7, 1 744 

EBANK= 

N4  9F  LAG 

0579 

REF 

i 

24, 2627 

02670 

1 

2CADP 

N49DSP 

0579 

REF 

i 

24,2630 

50067 

0 

05  80 

REF 

35 

LAST 

5 18 

24, 2631 

0 6036 

1 

TC 

I NT  P PET 

0581 

24,2632 

77735 

0 

SLOAD 

0582 

REF 

4 

LAST 

5 18 

24, 2633 

03745 

1 

N49F  LAG 

05  8 0 

74, 2 634 

50054 

o 

8ZE 

B MN 

0584 

24, 2635 

50632 

0 

-3 

0585 

REF 

1 

24, 2636 

50644 

l 

R22L  EM7 

05  flf, 

7 4,  7 63  7 

77  776 

] 

EXIT 

05  87 

REF 

5 

LAST 

517 

24,2640 

0 2714 

1 

TC 

LUNSFCHK 

0588 

REF 

4 

LAST 

517 

24,2641 

0 2664 

1 

TC 

R22WAIT 

0589 

REF 

108 

LAST 

518 

24,  2 642 

3 4755 

1 

CA 

ZERO 

0590 

REF 

1 

24,2643 

0 2660 

0 

TC 

R22LFM45 

059  1 

24, 2644 

77624 

1 

R22LFM7  CALL 

0592 

REE- 

— 6- 

-LAST 

51-2 

24,2645 

11165 

0 

GP  P2 PC 

0593 

24, 2 646 

77650 

1 

GOTO 

0594 

REF 

1 

24,  2647 

55374 

1 

A STD  K 

059-5 

RE-F- 

-2 — 

LAST 

508 

24,2650 

25 ' 4 6 0 

1 

R22LEM44  INCR 

M AP  KCTP 

0596 

REF 

6 

LAST 

518 

24,2651 

0 2714 

1 

TC 

LUNS  FCHK 

0597 

REF 

1 

24, 2652 

0 2 6 66 

0 

TC 

R22LEM46 

0598 

REF 

10— 

LAST 

43  9 

24,2653 

3 4756 

1 

CA 

F I VE 

0599 

REF 

2 

LAST 

5 1 8 

24, 2654 

0 2660 

0 

TC 

R22LEM45 

0600 

REF 

7 

LAST 

518 

24, 2655 

0 2714 

1 

R22LEM42  TC 

LUNSFCHK 

0601 

REF 

— 2_ 

LAST 

518 

24,2656 

0 26  66 

0 

TC 

7771  FM46 

0602 

REF 

33 

LAST 

503 

24,2657 

3 4752 

0 

CA 

TWO 

0603 

REF 

2 

LAST 

5 1 5 

24, 2660 

55*743 

1 

R22LEM45  TS 

R65C NTP 
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BRANCH-YES 
IS  UPDATE  FLAG  SET 


UPDATE  FLAG  NOT  SET 
INSURE  HIGH  PRIO  IN  RESTART 


NORMAL  EXIT  FROM  LSR22.3 
PHASE  CHANGE  TO  PROTECT  AGAINST 
CONFLICT  WITH  GRP2PC  ERASEABLE 


SET  N49FLAG-^ZER0_T0  INDICATE 
V06  N49  DISPLAY  HASNT  BEEN  ANSWERED 

TO  PROTFCT  D ISP LAY 
PROTECT  DISPLAY 


LOOP  TO  CHECK  IF  FLAG 
SETTING  CHANGED-BRANCH  - NO 
PROCEED 

DISPLAY  ANSWERED  BY  RECYCLE 

ARE  WE  ON  LUNAR  SURFACE 

YES  - 15  SECOND  DELAY 

NO  - SET  R65C0UNTFP  = 0,  DO  FINE 

TRACKING  TAKE  ANOTHER  RADAR  READING 

PROCEED 

° H A S _E  CHANGE  AND 

GO  TO  INCORPORATE  DATA. 

INCREMENT  COUNT  OF  MARKS  INCORPORATED. 
ARE  WE  ON  LUNAR  SURFACE 
YES  - WAIT  2 SECONDS 
MOT  ON  LUNAR  SURE  AC F 
R 65C0UNT  ER  = 5 

CHECK  IF  ON  LUNAR  SURFACE  (P22FLAG  SET) 
YES  - WAIT  2 SECONDS 
NO-SET  R65C0UNT  ER  = 2 


GAP:  ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2021112-011 

L P20-c>25 


0604 

REF 

119 

LAST 

517 

24,2661 

0 4616 

1 

TC 

BANKCALL 

0605 

REF 

2 

LAST 

5 L 5 

24,2662 

46105 

1 

CADR 

R65L  EM 

|_  AS  T 

Ml 

24t  7663 

0 2477 

1 

TC 

R22L  EM 

0607 

RFF 

2 

LAST 

51  1 

24, 2664 

3 2712 

1 

R22WAIT 

CAF 

1 5 00  DEC 

0608 

REF 

3 

LAST 

510 

24, 2665 

0 2263 

1 

TC 

P20L  EMWT 

06  08  3 

REF 

2 

LAST 

293 

24, 2666 

3 5000 

1 

R22LEM46 

CAF 

2 SEC  S 

OAOft  A 

RFF 

4 

1 AST 

519 

24 f 2 667 

0 2263 

1 

TC 

P 20LEMWT 

24t  2 670 

3 27  1] 

l 

N49DSP 

CAF 

V06N49N8 

0610 

REF 

120 

LAST 

5 1 9 

24, 2671 

0 46  16 

1 

TC 

BANKCALL 

0611 

REF 

2 

LAST 

517 

24,2672 

20362 

1 

CADR 

PRIODSP 

0612 

REF 

7 

LAST 

517 

24,2673 

0 6022 

1 

TC 

GOTO V56 

06  13 

REF 

62 

LAST 

505 

24, 2674 

4 4753 

0 

CS 

ONE 

0614 

REF 

5 

LAST 

518 

24,  2675 

551744 

0 

TS 

N4  9F  LAG 

0615 

REF 

78 

LAST 

517 

24, 2676 

0 51  55 

0 

TC 

E NDOF JOB 

0616 

REF 

19 

LAST 

518 

24, 2677 

0 5353 

1 

R22RSTRT 

TC 

PHASCHNG 

0617 

24, 2700 

00152 

1 

OCT 

00152 

06  1 fi 

REF 

121 

L AST 

519 

24, 2701 

0 4616 

1 

TC 

BANKCALL 

0619 

REF 

2 

LAST 

503 

24,2702 

53103 

0 

CADR 

RPRDOT 

0620 

REF 

122 

LAST 

519 

24,2703 

0 46  16 

1 

TC 

BANKCALL 

06  21 

REF 

~ 5 

LAST 

502 

24, 2704 

1 7667 

0 

CADR 

R ADS  TALL 

0622 

REF 

3 

LAST 

517 

24,2705 

0 2247 

1 

TC 

P20LEMC 

0623 

REF 

3 

LAST 

519 

24,2  706 

0 2477 

1 

TC 

R22L  EM 

0624 

24,2707 

00525 

0 

ALRM525 

OCT 

0052  5 

062  5 

24,  2 710 

01405 

1 

V06N05 

VN 

0060  5 

0626 

24,2711 

01461 

0 

V06N49NB 

VN 

00649 

0627 

24, 2712 

02734 

0 

1500DEC 

DEC 

1500 

0629 

24. 271 3 

10624 

0 

4 5S  Ff.NDS 

DEC 

'e  50  0 

R0631 

LUNSFCHK 

-CLOSED  SUBROUTINE  TO 

CHECK  1 

[F  ON  LUNAR  ' 

SURFACE 

( P22  FLAG 

R06  32 

RETURNS  TO 

CALLER  +1 

IF  P22FLAG 

SET 

R06  33 

- TO- 

CALLER  +2 

I F P22FI  AG 

NOT  SET 

0634 

REF 

2 

LAST 

51  3 TO 

514: 

0 

0* 

r niiMT  * 

$ %/  p 22 

0635 

REF 

4 

LAST 

349 

24, 2714 

4 0104 

0 

LUNSFCHK 

CS 

FLAG  WRD8 

0636 

REF 

3 

LAST 

349 

24,2715 

7 4744 

0 

MASK 

SURF  FBIT 

0637 

REF 

162 

LAST 

5 1 1 

24, 2716 

10  000 

0 

CCS 

A 

0638 

REF 

147 

LAST 

489 

24,2717 

24  002 

0 

INCR 

a 

0639 

REF 

148 

LAST 

5 1 9 

24,2  720 

0 0002 

0 

TC 

0 
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FINE  PREFERRED  TRACKING  ATTITUDE 


+ 1 


+ 1 


EXCESSIVE  STATE  VECTOR  UPDATE  - FLASH 
VERB  06  NOUN  49  Ri  = DELT  A R,  R 2 = DELTA  V 
TERMINATE  - EXIT  R22  AND  P20 
PROCEED  - N49FLAG  = -1 
RECYCLE  - N49FLAG  = + VALUE 

IF  A RESTART  OCCURS  WHILE  READING  RADAR 
COME  HERE  TO  TAKE  A RANGE-RATE  READING 
WHICH  I SNT  USED  TO  PREVENT  TAKING  A BAD 
READING  AND  TRYING  TO  INCORPORATE  THE 
BAD  DATA 

W AIT  FOR  READ  COMPLETE 

COULD  NOT  READ  RADAR-TRY  TO  REDESIGNATE 
READ  SUCCESSFUL-CONTINUE  AT  R22 


CHECK  IF  ON  LUNAR  SURFACE 
IS  SURFFLAG  SET? 

BRANCH  - P22FLAG  SET 

NOT  SET 

RETURN 


GAP: 
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L 

P20-P25 

USER'S  PAGE  NO.  17 

F7  S3 

P0640 
R 0641 

RR  DESIGNATE  ROUTINE  (R21LEM) 
PROGRAM  DESCRIPTION 

R 0643 
R0644 

BY  P VOLANTE 
FUNCTIONAL  DESCRIPTION 

R0646 

R0647 

TO  POINT  THE  RENDEZVOUS  RADAR  AT  THE  CSM  UNTIL 
OF  THE  CSM  IS  ACCOMPLISHED  BY  THE  RADAR.  ROUTINE 

AUTOMATIC 
IS  CALLED 

ACQUISITION 
BY  P20. 

R0649 
R0650 
R 06  5 1 

TC  BANKCALL 

CADR  R21LEM 

SUBROUTINES  CALLED  - 

R0652 

R0653 

R0654 

R0655 

R0656 

R 06  57 

R0658 

R0659 

R0660 

R0661 

R0662 

R0663- 

R0664 

R0665 

R0666 

R0667 

R0668 

R0669 

R 06  70 


F INC VAC 
NOVAC 
WAITLIST 
TASKOVER 
NORMAL  EXIT 


FLAGUP 

INTPRET 

J08SLEEP 

BANKCALL 


PRIOLARM 

PHASCHNG 

FLAGDOWN 

RROESSM 


ENDOF JOB 
LPS20. 1 
JOBWAKE 
RADSTALL 

MODES 

WHEN  LOCK- ON  IS  ACHI EVED, BRANCH  WILL  BE  TO  P20  WHERE  R22  (DATA  READ 
WILL  BE  SELECTED  OR  A NEED  FOR  A MANEUVER (BRANCH  TO  P20LEMA  ) 

ALARM  OR  ABORT  EXIT  MODES- 

PRICRI  TY-  ALARM  -503  WHEN  LOCK-ON  HASN : T BEEN  ACHIEVED  AFTER  30SECS  - 
THIS  REQUIRES  ASTRONAUT  INTERFACE-  SELECTION  OF  SEARCH  OPTION  OF 
ACQUISITION 
OUTPUT 

SEE  LPS20. 1, RROESSM 
ERASABLE  INITIALIZATION  REQUIRED 

RRTARGET.RAOMQDES- ARE  USED  BY  LPS20.1  AND  RROESSM 
FLAGS  SET  + RESET 

LOSCMFLG  LOKONSW 

DEBRIS 

SEE  LPS20.1, RROESSM 


0671 

0672 

REF 

RFF 

13 

1 

LAST 

515 

E7, 1454 

EBANK= 

COUNT* 

LDSC CUNT 
$$/R  21 

0673 

REF 

i 

24,2721 

3 2341 

0 

R21LEM 

CAF 

MAX  TRIES 

ALLOW  60  PASSES  (APPROX  45  SECS.)  TO 

0674 

REF 

i 

24,2722 

55' 1 14 

0 

TS 

DE  SC  HUNT 

DESIGNATE  AND  LOCKON 

067405 

REF 

— 8— 

LAST 

518 

24,2  723 

0 2714 

1 

TC 

LUNS  FCHK 

0674  1 

REF 

1 

24, 2 724 

0 2731 

0 

TC 

R21LEM5 

067415 

REF 

109 

LAST 

518 

24,2725 

3 4755 

1 

CAF 

ZERO 

COMMAND  ANTENNA  TO  MODE  CENTER 

06742 

REF 

4 

LAST 

330 

24,2  726 

55* 107 

1 

TS 

TANG 

IF  NOT  ON  SURFACE-MODE  1-(T=0,S=0) 

067425 

REF 

5 

LAST 

520 

24,2727 

55' 110 

1 

TS 

TANG  +1 

06743 

REF 

1 

24,2730 

0 2735 

1 

TC 

R21 L FM6 

067435 

REF 

28 

LAST 

48  3 

24, 2 73 1 

3 4735 

1 

R2 1 L 

r af 

R I T 1 5 

IF  ON  LUNAR  SURFACE-MODE  ?-( T= 1 80, S=-90 ) 

06744 

REF 

6 

LAST 

520 

24,2732 

55' 107 

1 

TS 

TANG 

067445 

REF 

4 

LAST 

38  6 

24,2733 

4 4736 

0 

cs 

HALF 

06745 

REF 

-7- 

LAST 

5 2 0 

24, 2734 

55’ 1 10 

1 

TS 

TANG  +1 

067455 

REF 

36 

LAST 

509 

24,  2 735 

0 5516 

0 

R21LEM6 

TC 

DOWNFLAG 

06746 

REF 

3 

LAST 

286 

24,2736 

00012 

1 

ADRFS 

LOKONSW 

067465 

RE-F 

123 

LAST 

519 

24,  2 737 

1 

TC 

BANKCALL 

06747 

REF 

2 

LAST 

284 

24,  2740 

52475 

0 

CADR 

RRDESNB 

067475 

24,2  74  1 

0 2742 

1 

TC 

+ 1 
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P 20- 
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06748 

REF 

124 

LAST 

520 

24,2742 

0 4616 

1 

TC 

BANKCALL 

067485 

REF 

6 

LAST 

519 

24,2743 

17667 

0 

CADR 

R ADSTALL 

REF 

1 

24,  2 744 

0 2777 

1 

TC 

R21- 503 

BAD  RETURN  FROM  DESIGNATE  -ISSUE  ALARM 

067493 

REF 

21 

LAST 

514 

24,  2745 

0 5504 

0 

TC 

UPFL  AG 

INDICATES  LOS  TO  BE  COMPUTED 

067496 

REF 

2 

LAST 

508 

24,  2746 

00041 

1 

ACRES 

LOSC  MFLG 

EVERY  FOURTH  PASS  THRU  DOOES 

0675 

REF 

49 

LAST 

516 

24,  2 747 

4 4736 

0 

CS 

BIT1  4 

REMOVE  RR  SELF  TRACK  ENABLE 

0676 

24,2750 

0 0006 

1 

EXTEND 

0677 

REF 

24 

LAST 

516 

24, 2 751 

03  012 

1 

WAND 

CHAN  12 

0678 

REF 

17 

L AST 

48  7 

24, 2752 

3 62  44 

0 

R2LLEM2 

CAF 

THREE 

0679 

REF 

14 

LAST 

520 

24,2753 

55,454 

1 

TS 

LOS COUNT 

0703 

REF 

36 

LAST 

5 1 8 

24, 2 754 

0 6036 

1 

R21LEM1 

TC 

I NTPPFT 

07  04 

24,  2 755 

43234 

0 

RTB 

DAD 

0705 

REF 

9 

LAST 

5 1 2 

24,2  756 

21462 

1 

LOADTIME 

07055 

REF 

1 

24, 2 757 

11026 

0 

HALF  SEC 

EXTRAPOLATE  TO  PRESENT  TIME  + .5  SEC. 

0 706 

REF 

13 

LAST 

512 

74,2  760 

34041 

0 

ST  CALL 

TCEC  1 

LOS  DETERMINATION  ROUTINE 

0707 

REF 

2 

LAST 

508 

24,2761 

51151 

0 

L PS  2 0 . 1 

0708 

24,  2 762 

77776 

1 

EXIT 

0709 

REF 

72 

LAST 

52  1 

24,2  763 

0 5504 

0 

R21LEM3 

TC 

UPFL  AG 

SET  LOKONSW  TO  RADAR-ON  DESIRED 

0710 

REF 

4 

LAST 

520 

24,2764 

00012 

1 

ADRES 

LOK  0 NSW 

0711 

REF 

37 

LAST 

52  1 

24,2765 

0 6036 

1 

TC 

I NTPPET 

0712 

24, 2 766 

77624 

1 

CALL 

INPUT  (RRTAPGET  UPDATED  BY  LPS20.1) 

0713 

REF 

1 

24,2767 

52373 

1 

RR36  SSM 

DESIGNATE  ROUT  INE 

0714 

24, 2770 

77776 

1 

EXIT 

0715  - 

REF 

1 

24  ,-2  771 

0 3016 

0 

TC 

R21LEM4 

LOS  NOT  IN  MODE  2 COVERAGE 

A0716 

ON  LUNAR  SURFACE 

0717 

REF 

3 

LAST 

516 

24,2772 

0 2132 

0 

TC 

P20LEMA 

VEHICLE  MANEUVER  REQUIRED. 

0718 

REF 

125 

LAST 

52  1 

24,2773 

0 46  16 

JL 

TC 

BANKCALL 

NO  VEHICLE  MANEUVER  REQUIRED 

0719 

REF 

7 

LAST 

52  1 

24,2  774 

17667 

0 

CADR 

R ADSTALL 

WAIT  FOR  DESIGNATE  COMPLETE  - LOCKON  OR 

0720 

24,2775 

0 2777 

1 

TC 

+ 2 

BADEND-LOCKON  NOT  ACHIEVED  IN  60  TRIES 

0721 

REF 

1 

24,  2 776 

0 30  06 

1 

TC 

R21 END 

FXIT  ROUTINE  RETURN  TO  »20  (LOCK-ON) 

0722 

REF 

1 

24,2777 

3 3014 

1 

R21-503 

CAF 

ALRM503 

ISSUE  ALARM  503 

0723 

REF 

126 

LAST 

52  1 

24,3000 

0 46  16 

1 

TC 

BANKCALL 

0724 

REF 

4 

L AST 

5 17 

24, 300 1 

21451 

1 

CADR 

PRIG  LAR  M 

0725 

REF 

8 

LAST 

519 

24,3002 

0 6022 

l 

TC 

GOTO  V56 

TERMINATE  EXITS  P20  VIA  V56  CODING 

0726 

REF 

1 

24,3003 

0 3011 

1 

TC 

R21SPCH 

PROC 

0727 

REF 

3 

LAST 

51  1 

24, 3 004 

0 2232 

0 

TC 

P20L  EMC3 

0728 

REF 

79 

LAST 

519 

24,3005 

0 5155 

0 

TC 

E NDOFJOB 

0729 

REF 

37 

LAST 

520 

24,3006 

0 5516 

0 

R2 1 END 

TC 

DOWN  FLAG 

0730 

REF 

3 

LAST 

52  1 

24,3007 

00041 

I 

ADR  F S 

LOSC  MFLG 

RESET  LOSCMFLG 

0731 

REF 

5 

LAST 

51  9 

24, 3010 

0 2262 

0 

TC 

P20LEMWT 

EXIT  R21  TO  PERFORM  DATA  RF AD 

0732 

REF 

20 

LAST 

519 

24,3011 

0 5353 

1 

R21SRCH 

TC 

PHASCHNG 

0733 

-24, 3012 

04022 

0 

OCT 

0402  2 

0734 

REF 

1 

24,3013 

0 3100 

0 

TC 

P24LEM 

SEARCH  ROUTINE 

0735 

24,3014 

00503 

1 

ALRM503 

OCT 

00503 

0736 

24,3015 

00527 

1 

ALRM527 

OCT 

527 

0737 

— R-Ef 1 

24,3016 

3 3015 

-0 

-R21LEM4  CAF 

ALRM527 

ALARM  527-LOS  NOT  IN  MODE  2 COVERAGE 

0738 

REF  127 

LAST 

52  1 

24, 3017 

0 4616 

1 

TC 

B ANKCALL 

ON  LUNAR  SURFACE 

0739 

REF  5 

LAST 

52  1 

24,3020 

21451 

1 

CADR 

PR  I OL ARM 
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0740 

0741 

REF 

REF 

9 

4 

LAST 

LAST 

52  1 
521 

24. 3021 

24. 3022 

0 6022  1 
0 2232  0 
0 3016  0 

TC 

TC 

TC 

GOT  0V56 
P20L  EMC3 

TERMINATE  EXITS  P 20  VIA  V56  CODING 
ENTER 

0743 

07435 

07435 

REF 

80 

LAST 

52  1 

24.3024 

24. 3025 

24.3026 

0 5155  0 

00000  1 HALFSEC 
00062  0 

TC 

20EC 

ENDOFJOB 

50 

> 


I 


* 

> 
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P20-P25 


USER'S  PAGE  NO.  20 


E7  S3 


P0744 

R0745 

R0746 

R0747 

R0748 

R0749 

R0750 

R0751 

R0752 

R0753 

R0754 


R0762 

R0763 

R0764 

R0765 


MANUAL  ACQUISITION  ROUTINE  R23LEM 
PROGRAM  DESCRIPTION 
WOO  NC  - 2 
BY  P VOL  ANTE 
FUNCTIONAL  DESCRIPTION 


TO  ACQUIRE  THE  CSM  BY  MANUAL  OPERATION  OF  THE  RENDEZVOUS  RADAR 
CALLING  SEQUENCE  - 

— TO ft  2-3  LEM 

SUBROUTINES  CALLED 

BANKCALL  R61LEM 


RO  756 
R0757 
R0758 

NORMAL  EXIT  MODES  - 

IN  RESPONSE  TO  THE  G0PERF1 

.SELECTION 

.SELECTION 

OF 

OF 

ENTER 

PROC 

WILL 

WILL 

RECYCLE  R23 
CONTINUE  P 23 

R0759 
R 0 760 
R0761 

ALARM  OR  ABORT  EXIT  MODES  - 
SEE— NORMAL  EXIT  MODES  ABOVE 

.SELECTION 

OF 

TERM 

WILL 

TERMINATE  R23  +P20 

OUTPUT 

N • A . 

ERASAELE  INITIALIZATION  REQUIRED- 

ACMODFLG  MUST  BE  SET  TO  1 (MANUAL  MODE) 


0766 

0767 

REF 

REF 

1 

1 

1 143 

EBANK=  GENRET 
COUNT*  SS/R23 

0768 

REF 

23 

LAST 

52  1 

24,3027 

0 5504 

0 

R23LEM 

TC  UPFLAG 

SET  NO  ANGLE  MONITOR  FLAG 

0769 

REF 

4 

LAST 

50  8 

24, 3030 

00126 

1 

ADRES  NORPMON 

0770 

24, 3031 

0 0004 

0 

INHINT 

0771 

REF 

17 

LAST 

347 

24, 3032 

0 4674 

0 

TC  IBNKCALL 

SELECT  MINIMUM  DEADBAND 

0772 

REF 

1 

24,3033 

40140 

0 

CADR  SETMINDB 

0773 

24,-3-034 

0 0003 

1 

RELINT 

0774 

REF 

50 

LAST 

52  1 

24, 3035 

3 4736 

1 

R23LEM1 

CAF  BIT14 

ENABLE  TRACKER 

0775 

24,3036 

0 0006 

1 

EXTEND 

0776 

REF 

25 

LAST 

52  1 

24, 3037 

05  012 

1 

WOR  C HAN  12 

0777 

REF 

1 

24,3040 

3 3077 

1 

CAF  DCT205 

0778 

REF 

128 

LAST 

52  1 

24, 3041 

0 46  16 

1 

TC  BANKCALL 

0779 

REF 

2 

EAST 

_ 50  9 

24, 3042 

20476 

0 

CADR  GOPERFl 

0780 

REF 

1 

24, 3043 

0 3070 

0 

TC  R23LEM2 

TERMINATE 

0781 

REF 

1 

24,3044 

0 3046 

0 

TC  R23LFM11 

PROCEDE 

0782 

REF 

1 

24, 3045 

0 3073 

0 

TC  R23LFM3 

ENTER-  DO  ANOTHER  MANUVER 

0783 

24, 3046 

0 0004 

0 

R23LEMLI 

INHINT 

0786 

REF 

2 

LAST 

202 

24, 3047 

0 4523 

1 

TC  RRLIMCHK 

YES  - CHECK  IF  ANTENNA  IS  WITHIN  LIMITS 

0787 

REF 

4— 

-LAST 

330 

2 4,3050 

000  35 

1 

ADRES  CDUT 

0788 

REF 

1 

24,3051 

0 3060 

1 

TC  OUTOFLIM 

NOT  WITHIN  LIMITS 

07883 

REF 

18 

LAST 

523 

24, 3052 

0 46  74 

0 

TC  IBNKCALL 

RESTORE  DEADBAND  TO 

07886 

REF 

4 

LAST 

310 

24, 3053 

40123 

0 

CADR  RE  ST  OR DB 

ASTRONAUT  SELECTED  VALUE 

0789 

24,3054 

0 0003 

1 

RELINT 

0790 

REF 

38 

LAS  T 

52  1 

24,3055 

0 5516 

0 

TC  DOWNFLAG 

CLEAR  NO  ANGLE  MONITOR  FLAG 

0791 

—REE— 

5_ 

LAST 

523 

—24,3056 

00126 

1 

ADRES  NORRMON 

0792 

REF 

1 

24,3057 

0 2204 

0 

TC  P20LEMB1 

RADAR  IS  LOCKED  ON  CONTINUE  IN  P20 

0793 

24,3060 

0 0003 

1 

OUTOFLIM 

RE  LI  NT 
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P20- 

025 

0794 

REF 

1 

24,3061 

3 

3076 

0 

CAF 

0CT501PV 

0795 

REF 

129 

LAST 

523 

24, 3062 

0 

46  16 

1 

TC 

BANKCALL 

7 1 

74, 3063 

21451 

-4— 

CADR 

PRI CLARM 

0796 

0797 

REF 

2 

LAST 

523 

24, 3064 

0 

3070 

0 

TC 

R23L  EM2 

0798 

REF 

2 

LAST 

523 

24,3065 

0 

3061 

0 

TC 

OUTOFLIM 

S?  3 

24, 3066 

0 

3073 

0 

TX 

_ R23LEM3 

0800 

REF 

81 

LAST 

522 

24,3067 

0 

5155 

0 

TC 

ENDOE JOB 

0801 

REF 

39 

LAST 

523 

24, 3070 

0 

5516 

0 

R23LEM2 

TC 

DOWNFL AG 

R 7 3 

24,3071 

00126 

1 

ADRES 

NORRMON 

0803 

REF 

10 

LAST 

522 

24, 3C72 

0 

6022 

1 

TC 

G0T0V56 

0804 

REF 

130 

LAST 

524 

24,  3073 

0 

4616 

1 

R23LEM3 

TC 

BANKCALL 

517 

74, 3074 

46  1 00 

1 

CADR 

R6H  FM 

0806 

REF 

1 

24, 3075 

0 

3035 

1 

TC 

R23LEM1 

0807 

0808 


24. 3076 

24. 3077 


00501  0 OCT 50 IP V OCT 
00205  0 OCT 205  OCT 


501 

205 
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ISSUE  ALARM  - RR  ANTENNA  NOT  WITHIN 
1 EMITS 

TERMINATE  - EXIT  R23  TO  ROO  I GO  TO  POOH) 
+1  PROCEEO  ILLEGAL 

RECYCLE-  00  ANOTHER  MANUVER 

CLEAR  NO  ANGLE  MONITOR  FLAG 


AND  EX  IT  VIA  V56 
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P0809  SEARCH  ROUTINE  R24LEM 
ROB  1 0 PROGRAM  DESCRIPTION 
R0811  MCD  NO  - 2 

R 08 1 2 BY  P.  VOLANTE 

R0813  FUNCTIONAL  DESCRIPTION 
R0814 

R0815  TO  ACQUIRE  THE  CSM  BY  A SEARCH  PATTERN  WHEN  THE  RENDEZVOUS  RADAR  HAS 

R0816  FAILED  TO  ACQUIRE  THE  CSM  IN  THE  AUTOMATIC  TRACKING  MODE  AND  TO  ALLOW 

R0817  THE  ASTRONAUT  TO  CONFIRM  THAT  REACQUISITION  HAS  NOT  BEEN  BY  SIDEL09E. 

R 08 1 8 CALLING  SFQUENCE 

R0819  CAF  PRIONN 

R0820  TC  F INDVAC 

R0821  F EANK=  DATAGOOD 

R0822  2CADR  R24LEM 

R0823  SUBROUTINES  CALLED 

R0824  FLAGUP  FLAGDOWN  BANKCALL 

R0825  R61LEM  GOFLASHR  FINDVAC 

R0826  E NDCFJUB  — -—MU-VAC  LSR24. 1 

R0827  NORMAL  EXIT  MODES- 

R0828  ASTRONAUT  RESPONSE  TO  DISPLAY  OF  OMEGA  AND  DATAGOOD. HE  CAN  EITHER 

R0829  REJECT  BY  TERMINATING  (SEARCH  OPTION  AND  RESELECTING  P20)  OR  ACCEPT  BY 
R0830  PROCEEDING  (EXIT  ROUTINE  ANO  RETURN  TO  AUTO  MODE  IN  P20) 

R0831  ALARM  OR  ABORT  EXIT  MODES- 

R0832  SEE  NORMAL  EXIT  MODES  ABOVE 

R0833  OUTPUT  - 

R0834  SEE  OUTPUT  FROM  LSR24.1  + R61LEM 

R0835  ERASABLE  INITIALIZATION  REQUIRED 
R0836  SEE  INPUT  FOR  LSR24.1 

R0837  FLAGS  SET  + RESET 


R0838  SRCHOPT , ACMODFLG 


0839 

REF 

3 

LAST 

33  1 

E7, 1731 

EB ANK= 

DATAGOOD 

0840 

REF 

1 

COUNT  * 

$$/R  24 

0841 

REF 

24 

LAST 

52  3 

24, 3 100 

0 5504 

0 

R24LEM 

TC 

UPFLAG 

0342 

REF 

3 

LAST 

509 

24,3101 

00037 

0 

ADRES 

SRCHOPTN 

SET  SRCHOPT  FLAG 

08423 

REF 

40 

LAST 

524 

24,3 102 

0 5516 

0 

TC 

DOWNFLAG 

RESET  LOS  BEING  COMPUTED  FLAG  TO  MAKE 

08426 

REF 

4 

LAST 

5 2 1 

24, 3103 

00041 

1 

ADRES 

LOSCMFLG 

SURE  DODES  DOFSN'T  GO  TO  R21 

0843 

REF 

1 10 

LAST 

520 

24, 3 104 

3 4755 

1 

R24LEM1 

CAF 

ZERO 

0844 

RFF 

4 

LAST 

525 

24, 3105 

55*731 

1 

TS 

DATAGOOD 

ZERO  OUT  DATA  INDICATOR 

0845 

REF 

2 

LAST-- 

33  1 

24, 3106 

55' 732 

1 

TS 

OMFG AD 

7 FRO  OMEGA  DISPLAY  REGS 

0846 

REF 

3 

LAST 

52  5 

24, 3107 

55*733 

0 

TS 

OMEGAD  +1 

ZERO  OMEGA  DISPLAY  REGS 

0047 

REF 

21 

LAST 

521 

24,3110 

0 5353 

1 

R24LEM2 

TC 

PFASCHNG 

0848 

24,  3111 

04022 

0 

OCT 

04022 

0849 

REF 

1 

24, 3 112 

3 3150 

0 

CAF 

V 16N80 

0850 

REF 

131 

LAST 

524 

24, 3113 

0 4616 

1 

TC 

BANKCALL 

0851 

REF 

1 

24,3114 

20357 

1 

CAOR 

PRIODSPR 

0852 

REF 

11 

LAST 

524 

24, 3115 

0 6022 

1 

TC 

G0T0V56 

0853 

REF 

1 

24, 3116 

0 3122 

0 

TC 

R 24  END 

PROCEED  EXIT  P24  TO  P20LEM1 

0854 

REF 

1 

24, 3117 

0 3127 

0 

TC 

R24LEM3 

RECYCLE  - CALL  R6 1 TO  MANEUVER  S/C 

525 
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0855 

REF  132 

LAST 

525 

2 A, 3 120 

0 A616 

1 

TC 

BANKCALL 

0856 

REF  1 

2 A, 3 121 

55A05 

0 

CADR 

LRS2 A.l 

?4,  2 12? 

0 0004 

0 

R2AEND-  INHINT 

0858 

REF  1 

2A, 3123 

0 6027 

1 

TC 

KILL  TASK 

0859 

REF  1 

2A, 3 12A 

55605 

1 

CADR 

CALL  DGCH 

24, ^12^ 

0 60  11 

1 

TC 

CLR ADMOD 

CLEAR  BITS  10 

& L 5 OF  RAOMODES. 

0861 

REF  2 

L W J i 

LAST 

508 

2A, 3 126 

1 2 1 OA 

1 

TC  F 

P20LFM1 

AND  GO  TO  AOO 

MI.  RANGE  CHECK  IN 

P20  • 

BLOCK 

0861  2 
0861  A 

RFF  1 

6000 

SETLOC 

FFT  AG6 

08616 

6011 

BANK 

08618-  REF-  1 COUNTS  tl/R 24 


0862 

REF 

1 

6011 

6012 

4 6021 
0 0004 

0 

0 

CLR  ADMOD  CS 

INHINT 

BIT10+15 

0 8 6A 

REF 

33 

LAST 

517 

6013 

7 0110 

0 

MASK 

R ADMCDES 

0865 

REF 

3 A 

LAST 

52  6 

6 0 1 A 

5 A 1 10 

0 

TS 

R ADMODES 

OR  (->h 

REF 

30 

L AST 

5 L6 

6015 

A A752 

1 

CS 

B I T 2 

DISABLE  RR  ERROR  COUNTERS 

0867 

6016 

0 0006 

1 

EXTEND 

0868 

REF 

26 

LAST 

523 

6017 

03  012 

1 

WAND 

CHAN  12 

USER  WILL  RELINT 

0869 

REF 

1 A 9 

LAST 

519 

6020 

0 0002 

0 

TC 

Q 

08692 

6021 

A1000 

1 

BIT10+15 

OCT 

A 1 00  0 

0869  A 

2A, 3127 

BANK 

2 A 

REF 

3 

l a<;  t 

60  7 

?4t  2 non 

SFTLOC 

P20S 

08698 

2 A, 3127 

BANK 

08699 

REF 

2 

LAST 

52  5 TO 

526  : 

23 

23* 

COUNT  * 

$ $/ P 2A 

0870 

REF 

22 

LAST 

525 

2A, 3127 

0 5353 

1 

R2ALEM3 

TC 

PHASCHNG 

0871 

2A, 3130 

0A022 

0 

OCT 

0 A 3 2 2 

0872 

24, 3131 

0 00  04 

o 

INHINT 

0873 

REF 

2 

LAST 

526 

2 A, 3132 

0 6027 

1 

TC 

KILL  TASK 

087A 

REF 

2 

LAST 

526 

2A, 3133 

55605 

1 

CADR 

CALL  DGCH 

KILL  WAITLIST  FOR  NEXT  POINT  IN 

PATTERN 

0876 

REF 

6 

LAST 

-52  6 

2 A , 3 13 A 

0 601 1 I 

TC 

CLR  ADMOD 

CLEAR  BITS  10  + 15  OF  RADMODES  TO  KILL 

0877 

2 A, 3 135 

0 0003 

1 

RE L INT 

HALF  SECOND  DESIGNATE  LOOP 

0878 

REF 

i 

2A, 3136 

3 A77A 

1 

CAF 

. 5SEC 

0879 

REF 

1 33 

LAST 

526 

24, 3137 

0 46  16 

1 

TC 

BANKCALL 

WAIT  FOR 

DES  IGNATE  LOOP  TO  ni F 

0880 

REF 

9 

LAST 

510 

2A, 3 1 AO 

01735 

1 

CADR 

DELAYJOB 

0881 

REF 

9 

LAST 

520 

2 A, 3 1A  1 

0 27  1 A 

1 

TC 

LUNSFCHK 

CHECK  IF 

ON  LUNAR  SURFACE 

0882 

RE  F- 

It- 

2 A,  3 142 

0 3110 

1 

TC 

R2ALEM2 

YES-DQNT 

DO  ATTITUDE  MANEUVER 

0885 

REF 

13A 

LAST 

526 

2 A,  3 1 A 3 

0 A616 

1 

TC 

BANKCALL 

CALL  R61 

TO  DO  PREFERRED  TRACKING 

0386 

REF 

A 

LAST 

5 2 A 

2 A, 3 1 AA 

A6100 

1 

CADR 

RfclLEM 

ATTITUDE 

MANEUVER 

0887 

R£F- 

1 11 

LAST 

5 2 5- 

2A, 3 1 A 5 

3 4755 

1 

CAF 

ZERO 

ZERO  OUT 

RADCADR  (WHICH  WAS  SET 

RY 

0888 

REF 

2 

LAST 

237 

2 A,  3 1A6 

5 5 ' 3 06 

1 

TS 

R ADC  ADR 

FNDRADAR 

WHEN  DESIGNATE  STOPPED) 

SO  THAT 

A08885 

RRDESSM 

WILL  RETURN  TO  CALLER 

0889 

RFF 

— 2- 

LAST 

526  _ 

24,  3 1A7 

0 3110 

_J 

TC 

R2ALEM2  . 

AND  GO  BACK  TO  PUT  UP  V 16  N80  DISPLAY 
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0891 


24,3 150 


04120  0 V16N80 


VN 


01580 
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GAP:— 

L 

USER’S  PAGE 

NO.  25 

E7  S3 

P0892 

R0893 

PREFERRED  TRACKING  ATTITUDE 
PROGRAM  DESCRIPTION 

ROUTINE  R6ILEM 

DAT F : 4-11-67 

R0894 
R 0895 

MOD  BY  : P VOLANTE  SDC 

R 0896 
R0897 
R0898 
R0899 
R0900 

FUNCTIONAL  DESCRIPTION- 
TO  COMPUTE  THE  PREFERRED 

TRACKING  ATTITUDE  OF 
PERFORM  THE  MANEUVER 

THE 

TO 

LM  TO  ENABLE  RR 
THE  PREFERPED 

ATTITUDE. 

CALLING  SECUENCE- 

TC  BANKCALL 

R0902 

R0903 

R0904 

CADR  R 61  LEM 

SUBROUTINES  CALLED 

L PS20.-1 VECPOINT 

R0905  KALCMAN3 


R0906  NORMAL  EXIT  MODES- 

R0907  NORMAL  RETURN  IS  TO  CALLER  + 1 

R 0908  ALARM  OR  ABORT  EXIT  MODES* — 

R 0909  TERMINATE  P20  + R61  BY  BRANCHING  TO  P20END  IF  BOTH  TRACKFLAG  + 

R0910  RENDEZVOUS  FLAG  ARE  NOT  SET. 

R0911  OUTPUT  - 

R0912  SEE  OUTPUT  F CR  LPS20.L  + ATTITUDE  MANEUVER  ROUTINE  t R60  ) 

R 09 1 3 ERASAELE  I NI T I AL I ZAT ION  REQU I RED 

R0914  GENRET  U SE-D  TO  SAVE  0 -FOR  RETURN 

R0915  FLAGS  SET  + RESET 

R0916  3AXISFLG 

R09L7  DEBRIS 

R0918  SEE  SUBROUTINES 


0919 

REF 

1 

23, 2000 

SETLOC 

R61 

0920 

23,2100 

BANK 

0921 

REF 

15 

LAST 

521 

E7, 1454 

EBANK= 

LOSC  CUNT 

0922 

REF 

1 

COUNT  * 

t $ /P  6 1 

09  23 

R-FF 

V 

LAST 

49  0 

2 3 » 2 100 

0 464  5 

1 

R61 LEM 

TC 

M AKECADP 

0924 

REF 

2 

LAST 

52  3 

23,2101 

55' 143 

1 

TS 

GENR ET 

0925 

REF 

25 

LAST 

52  5 

23,2102 

0 5504 

0 

TC 

UPFL AG 

SET  R61  FLAG 

0926 

RFF 

— i_ 

23t 2 103 

00024 

1 

ADRES 

R61F  LAG 

0927 

REF 

i 

23,2  104 

0 2111 

1 

TC 

R61C  +L01 

0928 

REF 

5 

LAST 

52  8 

23,2  105 

0 4645 

1 

R65LEM 

TC 

MAKECADR 

0929 

REF 

— 3 — 

LAST 

528 

23,2106 

55*143 

1 

TS 

GENRET 

0930 

REF 

41 

LAST 

52  5 

23,2107 

0 5516 

0 

TC 

DOWNFLAG 

RESET  R61  FLAG 

0931 

REF 

2 

LAST 

528 

23,2110 

00024 

1 

ADRES 

R 6 1 F LAG 

0932 

REF 

12 

LAST 

51  7 

23, 2111 

3 4747 

1 

R61C+L01 

CAF 

TRAC  KBIT 

TRACKFLAG 

0933 

REF 

35 

LAST 

516 

23,2112 

7 0075 

1 

MASK 

STATE  +1 

0934 

23,2113 

0 0006 

1 

EXTEND 

09  3 5 - 

REF 

1 

23,2114 

1 2262 

1 

3ZF 

R61C  +L1 

NOT  SET 

0936 

REF 

38 

LAST 

52  1 

23,2115 

0 6036 

1 

R61C+L03 

TC 

INTPRET 

SET 

0937 

23,2116 

77775 

1 

VLOAD 

GAP 
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0938 

0939 
nQ^n 

REF 

REF 

4 

19 

LAST 

LAST 

500 

496 

23,2117 

23.2120 

23.2121 

06416 

03761 

77634 

1 

1 

0 

STORE 

RTB 

HIUNITZ 
SCAX  IS 

TRACK  AXIS  UNIT  VECTOR 

0941 

REF 

10 

LAST 

52  1 

23,2  122 

21462 

1 

LOADTIME 

PRESENT  TIME 

09411 

23, 2 123 

77615 

0 

OAD 

FXTRAPULATE  FORWARD  FORWARD  TO  CFNTEP  OF 

REF 

l 

23,2  124 

15654 

1 

3 SEC  ONDS 

SIX  SECOND  PERIOD. 

0942 

REF 

14 

LAST 

52  1 

23,2125 

34041 

0 

STC ALL 

TDEC  1 

0943 

REF 

3 

LAST 

52  1 

23,2 126 

51151 

0 

LPS20.1 

LOS  DETERMINATION  + VFH  ATTITUDE 

23, 2127 

77775 

1 

VLOAD 

0945 

REF 

2 

LAST 

119 

23,2130 

01102 

0 

RETARGET 

0946 

REF 

4 

LAST 

494 

23, 2131 

03767 

l 

STORE 

POINTVSM 

DIRECTION  IN  WHICH  TRACK  AXIS  IS  TO  BE 

0947 

23,2132 

77624 

1 

CALL 

0948 

REF 

4 

LAST 

487 

23, 2 133 

56016 

0 

V EC  P 01  NT 

TO  COMPUTE  FINAL  ANGLES 

0949 

REF 

8 

LAST 

490 

23,  2 134 

00322 

1 

STORE 

CP  H I 

STORE  FINAL  ANGLES  - C P HI , CTH E T A , CPS  I 

0950 

23, 2 135 

77776 

1 

EXIT 

0951 

REF 

23 

LAST 

526 

23,  2136 

0 5353 

1 

TC 

PHASCHNG 

0952 

23, 2 137 

04022 

0 

OCT 

04022 

09522 

REF 

13 

LAST 

. J28 

23,2140 

3 4747 

1 

CAF 

TRACKBIT 

IS  TRACK  FLAG  SET 

09524 

REF 

22 

LAST 

518 

23,2141 

7 0075 

1 

MASK 

F LAGWRD1 

09526 

23, 2 142 

0 0006 

1 

EXTEND 

0952  8 

REF 

2 

LAST 

528 

23,2143 

1 2262 

1 

BZF 

R61C  +L1 

BRANCH  - NO  SKIP  THIS  CYCLE  OF  P61/65 

0953 

23, 2 144 

0 0006 

1 

EXTEND 

0954 

REF 

4 

LAST 

488 

23,2  145 

00  030 

1 

READ 

CHAN  30 

CHECK  AUTO  MODE 

0955 

REF 

28 

LAST 

4 8 8- 

23,2146 

7 4742 

0 

MASK 

B I T 1 0 

0956 

REF 

163 

LAST 

5 1 9 

23,  2 147 

10  000 

0 

CCS 

A 

0957 

REF 

1 

23,2  150 

0 2255 

1 

TC 

R61C  +L04 

NOT  IN  G+N  CIA)  = + 

0958 

2 3,2151 

0 0006 

1 

EXTEND 

0959 

REF 

3 

LAST 

489 

23, 2 152 

00  031 

0 

READ 

CHAN31 

0960 

REF 

51 

LAST 

523 

23,2  153 

7 4736 

0 

MASK 

BIT1  4 

(+)  = NOT  IN  AUTO,  (t-O)  = AOK 

0961 

REF 

164 

LAST 

52  9 

23,2154 

1 0 000 

0 

CCS 

A 

0962 

REF 

2 

LAST 

529 

23,2  155 

0 2255 

1 

TC 

R61C+L04 

NOT  IN  AUTO  MODE 

0963 

REF 

39 

LAST 

52  8 

23,2156 

0 6036 

1 

TC 

I NT P RET 

0964 

23,  2 157 

45175 

0 

VLOAD 

CALL 

0965 

RFF 

3 

LAST 

529 

23, 2160 

01102 

0 

RRTARGFT 

0966 

REF 

1 

23,2161 

47552 

0 

C DU* SMNB 

0967 

23,  2 162 

65545 

0 

DLOAD 

ACOS 

0968 

RFF 

230 

LAST 

517 

23,2163 

00162 

1 

MPAC  +5 

0969 

REF 

1 

23,2 164 

14025 

0 

STOOL 

PHI 

0970 

REF 

1 

23,2165 

06271 

0 

TENDEG 

0976 

23,2166 

51021 

0 

BDSU 

B PL 

0977 

REF 

2 

LAST 

529 

23,2167 

00025 

0 

PHI 

0978 

REF 

— 1 — 

23, 2170 

46206 

1 

R61C+L05 

PHI  GRE  100EG 

0979 

REF 

9 

LAST 

382 

E6, 1633 

EBANK= 

C DUX  D 

0980 

23,2  171 

77776 

1 

EXIT 

0981 

REF 

1 

23,2172 

3 2273 

0 

CAF 

C DUB  ANK 

0982 

REF 

13 

LAST 

469 

23,2173 

54  006 

0 

TS 

BBANK 

0983 

23, 2174 

0 0004 

0 

INHINT 

0984 

-23,2175 

0 0006 

1 

EXTEND 

0985 

REF 

9 

LAST 

529 

23,2176 

3 0322 

1 

OCA 

C PH  I 

0986 

REF 

10 

LAST 

529 

23,2 177 

5 3' 634 

0 

DXCH 

CDUXD 
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0987 

REF 

4 

LAST 

49  1 

23,2200 

3 0323 

0 

CA 

CPSI 

0988 

REF 

2 

LAST 

382 

23,2201 

55 ' 6 35 

1 

TS 

CDUZD 

?3t  ? ?0? 

0 0003 

-1— 

RELINT 

0990 

REF 

16 

LAST 

52  8 

E7, 1454 

EBANK= 

LC  SC  OUNT 

0991 

REF 

1 

23,2203 

3 2274 

1 

CAF 

R61  BANK 

-LAST 

ft  ? q 

?3,  ? ?04 

54  006 

0 

TS 

BBANK 

0993 

REF 

1 

23,2205 

0 2231 

0 

TC 

R61C+L06 

0994 

23,2206 

77  7 76 

1 

R61C+L05 

EXIT 

23, 2207 

0 0004 

0 

INHINT 

09942 

REF 

19 

LAST 

523 

23,2210 

0 46  74 

0 

TC 

I BNKCALL 

09943 

REF 

3 

LAST 

376 

23,  221 1 

40153 

1 

FC  ADR 

ZATT  EROP 

L /±$  T 

ft  3 0 

?3t  ? ? 1 ? 

0 4674 

0 

TC 

I BNKCALL 

0994  5 

REF 

2 

LAST 

52  3 

23,2213 

40140 

0 

FC  ADR 

SETM  INDB 

0995 

REF 

42 

LAST 

528 

23, 2214 

0 5516 

0 

TC 

DOWNFLAG 

L T 

49  7 

?3 , ? ? i s 

001  24 

0 

ADRES 

3 AX  1 S FLG 

0997 

REF 

26 

LAST 

52  8 

23, 2216 

0 5 5 04 

0 

TC 

UPFL AG 

0998 

REF 

2 

LAST 

488 

23,2217 

00077 

1 

ADRES 

PDSPFLAC. 

ft  ef 

1 ? s 

| AST 

5 ? 6 

?3t  ? ??0 

0 4616 

1 

TC 

8ANKCALI 

1000 

REF 

3 

LAST 

497 

23,2221 

54101 

0 

CADR 

R60LFM 

10001 

23,2222 

0 0004 

0 

INHINT 

i non  ? 

R FF 

? 1 

last 

5 3 0 

23t  2223 

0 4674 

0 

TC 

I BNKCALL 

1000  3 

REF 

5 

LAST 

523 

23,2224 

40123 

0 

FC  ADR 

RESTCRDB 

1001 

REF 

24 

LAST 

52  9 

23,2225 

0 5353 

1 

TC 

PHASCHNG 

1 00? 

23,2226 

04022 

0 

OCT 

04322 

1003 

REF 

43 

LAST 

530 

23,2227 

0 5516 

c 

TC 

DOWNFLAG 

1004 

REF 

3 

LAST 

530 

23,2230 

00077 

1 

ADRES 

PDSPFLAG 

ions 

R FF 

1 

23,  2 23  1 

3 4742 

1 

R6 1 C+L06 

CAF 

R61 F LBIT 

1006 

REF 

36 

LAST 

52  8 

23, 2232 

7 0075 

1 

MASK 

STATF  +1 

1007 

23,2233 

0 0006 

1 

EXTEND 

100ft 

? 3, ? ?34 

1 ??  36 

o 

3 7 F 

+ 2 

1009 

REF 

1 

23, 2235 

0 22  60 

1 

TC 

R 6 1 C +L4 

1010 

REF 

3 

LAST 

51  8 

23,2236 

3 1743 

0 

CA 

R65CNTR 

10  11 

REF 

1 6 5 

LAST 

52  9 

? 3 * ? ? 3 7 

1 0 000 

o 

CCS 

A 

1012 

23,2240 

0 2242 

1 

TC 

+■ 2 

1013 

REF 

2 

LAST 

530 

23,2241 

0 2260 

1 

TC 

R 6 1 C +L4 

10  14 

REF 

4 

-LAST— 

530 

23, 224? 

55*  743 

1 

TS 

R65C  NTP 

1015 

REF 

i 

23,2243 

3 2272 

1 

CAF 

06SEC 

1016 

23, 2244 

0 0004 

0 

INHINT 

1017 

RFF 

8 

LAST 

515 

23, 2245 

0 5173 

1 

TC 

TWIDDLE 

1018 

REF 

i 

23, 2246 

022  50 

1 

ADRES 

R61C  +L2 

1019 

REF 

82 

LAST 

524 

23,2247 

0 5155 

0 

TC 

ENDOFJOB 

102-0 

RFF 

7 

LAST 

5 18 

23,2250 

3 7713 

0 

R61C+L2 

CAF 

PR  1026 

1021 

REF 

20 

LAST 

515 

23,2251 

0 5105 

0 

TC 

F INDVAC 

1022 

RFF 

17 

LAST 

530 

F 7 , 1454 

EB ANK= 

LCSCCUNT 

1023 

REF 

2 

LAST 

528 

23,2252 

021  L 1 

1 

2C  ADR 

P61C+L01 

1023 

23,2253 

46  067 

1 

1024 

REF 

21 

LAST 

5 1 5 

23,2254 

0 5261 

1 

TC 

TASKOVER 

1025 

REF 

1 36 

LAST 

53  0 

23, 2255 

0 4616 

1 

R 6 1 f + 1 04 

TC 

PANKCALL 

1026 

REF 

4 

LAST 

487 

23,2256 

542  44 

1 

CADR 

BALL  ANGS 

1027 

REF 

2 

LAST 

530 

23,2257 

0 2231 

0 

TC 

R61C+L06 

» 
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REDUCE  ATTITUDE  ERROR 


SET  PRIORITY  DISPLAY  FLAG 


RESET  PRIORITY  DISPLAY  FLAG 


R65CNTR  = 0 - EXIT  ROUTINE 


TO  CONVERT  ANGLES  TO  FDAI 


530 


( 


GAP: 

L 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1037 

1037 

1038 

1039 

1040 

1041 

1042- 

1043 

1044 

1045 

1046 

1047 

1048 
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REF 

4 

LAST 

528 

23,2260 

31' 143 

0 

R61C+L4 

CAE  GENRET 

REF 

8 

LAST 

492 

23,2261 

l 4640 

0 

TCF  BANK  JUMP 

? 3t  ? 28? 

3 72  87 

o 

R6LC+L 1 

CAF  BIT7+9PV 

REF 

37 

LAST 

530 

23,2263 

7 0074 

0 

MASK  STATE 

23,2264 

0 0006 

1 

EXTEND 

ref 

&3 

1 AST 

S3  n 

? 3, 2 285 

1 51  55 

I- 

BZF  END QF JOB 

REF 

3 

LAST 

530 

23,2266 

0 2231 

0 

TC  R61C+L06 

23, 2267 

00500 

1 

BIT7+9PV 

OCT  00500 

23,2270 

00707 

1 

TENDEG 

2DEC  .02777777 

23,2271 

03432 

1 

23,2272 

01130 

1 

06SEC 

DEC  600 

0 024 

PHI 

EQUALS  2 OD 

REF 

11 

LAST 

529 

E 6, 1633 

E8ANK=  CDUXO 

REF 

2 

LAST 

529 

23,2273 

46066 

0 

CDUBANK 

BBCON  R61C+L05 

REF 

18 

LAST 

53  0 

E7, 1454 

EB  ANK=  LOSC  CUNT 

REF 

3 

LAST 

53  1 

23,2274 

46067 

1 

R 61  BANK 

BBCON  R61C+L05 

4512 

BLOCK  02 

REF 

1 

4 000 

SETLOC  RADARFF 

4512 

BANK 

R FF 

1 g 

LAST 

5 3 1 

F7r 1 484 

FRANK-  1 nsr  HUNT 

REF 

i 

COUNT 4 $$/RPSUB 

USER’S  PAGE  NO.  28  E7  S3 


EXIT  R61 

IS  RENDEZVOUS  OR  P25FLAG  SET 


NO-EXIT  ROUTINE  AND  PROGRAM. 
YES  EX  IT  ROUTINE 

SCALED  UNITS  OF  REVOLUTION  BO 


531 
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P1049 
R 10  5 1 


1053 

1054 
10  55 

1056 

1057 

1058 

1059 

1060 
1061 


P20-P25 


USER'S  PAGE  NO.  29  E?  S3 


THE  FOLLOWING  SUBROUTINE  RETURNS  TO  CALLER  + 2 IF  THE  ABSOLUTE  VALUE  OF  VALUE  OF  C ( A ) IS  GREATER  THAN  THE 
NEGATIVE  OF  THE  NUMBER  AT  CALLER  +1.  OTHERWISE  IT  RETURNS  TO  CALLER  +3.  MAY  BE  CALLED  IN  RUPT  OR  UNDER  EXEC. 


4512 

4513 

0 0006 
6 4515 
1 45  16 

1 MAGSUB 
1 
0 

EXTEND 

BZMF 

TCF 

4515 

4 0000 

0 

COM 

^0  002 

o 

I N n F X 

4517 
4520 
4 52  1 

6 0000 
0 0006 
6 6740 

1 

1 

1 

AD 

EXTEND 

R7MF 

REF 

3 

LAST 

283 

4522 

1 6736 

1 

TCF 

ABS(A)  <=  CONST  GO  TO  L+3 
ABSIA)  > CONST  GO  TO  L+2 


GAP: 
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P 1062 

R 1 0 64 
R 106  5 
R 1066 
R 1067 

PROGRAM  NAME_  RRLIMCHK 

ARE  IN  THE  LIMITS  OF  THE  CURRENT  MODE. 

RRLIMCHK  CHECKS  RR  DESIRED  GIMBAL  ANGLES  TO  SEE  IF  THEY  ARE  WITHIN 
THE  LIMITS  OF  THE  CURRENT  MODE.  INITIALLY  THE  DESIRED  TRUNNION  AND 
9HAFT  AN  Gl  F R A RF  RTDR  FD  IN  TTFMP1  AND  ITEMP2.  THE  CURRENT  PR 

R 1068 
R 1 069 
R 1 070 

ANTENNAE  MODE  (RADMODES  BIT  12)  IS  CHECKED  WHICH  IS  = 0 FOR 
MODE  1 AND  =1  FOR  MODE  2. 

MCDE  1 - THE  TRUNNION  ANGLE  IS  CHECKED  AT  MAGSUB  TO  . SEE  IF  IT 

IS 

R 1071 
R 1072 
R 1 073 

BETWEEN  -55  AND  +55  DEGREES.  IF  NOT,  RETURN  TO  L +2.  IF  WITHIN 
THE  SHAFT  ANGLE  IS  CHECKED  TO  SEE  IF  IT  IS  BETWEEN  -70  AND  +59 
IF  -NOT.  R F TURN  TO  1 +2  I F IN  .LIMITS.  RETURN  TO  L +3.. 

LIMITS, 

DEGREES. 

R 1074 
R 10  75 
R 1076 

MODE  2 - THE  SHAFT  ANGLE  IS  CHECKED  AT  MAGSUB  TO  SEE  IF  IT  IS 
BETWEEN  -139  AND  -25  DEGREES.  IF  NOT,  RETURN  TO  L +2.  IF  WITHIN 
1 IMTTR.  THF  TRUNNION  ANGI  F IR  CHFCKFD  TO  RFF  IF  IT  IS  RFTWEFN  +125 

R 10  77 
R1078 

AND  -125  (+235)  DEGREES.  IF  NOT,  RETURN  TO  L +2.  IF  IN  LIMITS, 
TO  L +3. 

RETURN 

R1079 
R1080 
RIO  8 1 

R1082 
RIO  83 

CALLING  SEQUENCE: 

L TC  RRLIMCHK  (WITH  INTERRUPT  INHIBITED) 

L +1  ADRES  T,S  (DESIRED  TRUNNION  ANGLE  ADDRESS) 

ERASABLE  INITIALIZATION  REQUIRED: 

RADMOnFR.  MOD  FA.  MODER  I OR  DESIRED.  TRUNNION  AND  SHAFT 

R 1084 
R 1 08  5 

ANGLES  ELSEWHERE  IN  CONSECUTIVE  LOCATIONS  - UNSWITCHED  ERASABLE  OR 
CURRENT  EBANK) . 

R 1086 

SUBROUTINES  CALL  E D_  MAGSUB 

R 1 0 ft  7 

,IPR<;  T A SK  <;  IN  T T T AT  FD  MflNF  

R1088 

ALARMS.  NCNE 

R 1 0 8 9 EX  I T_  L + 2 (EITHER  OR  BOTH  ANGLES  NOT  WITHIN  LIMITS  OF  CURRENT  MODE) 

R 1 090  L + 3 (BOTE  ANGLES  WITHIN  LIMITS  OF  CURRENT  MODE) 


1091 

1092 

1093 

REF 

151 

LAST 

532 

4523 

4524 

4525 

0 0006 
5 0002 
5 0000 

1 

0 

1 

RRLIMCHK  EXTEND 
INDEX 
INDEX 

Q 

0 

1094 

4526 

3 0001 

0 

DC  A 

0 

1095 

REF 

152 

LAST 

533 

4527 

24  002 

0 

I NCR 

Q 

1096. 

REE 

. 6 _ 

LAST 

273. 

4530 

52  062 

1 

DXCH 

I TEMPI 

1097 

REF 

153 

LAST 

533 

4 531 

22  002 

0 

LXCH 

Q 

1099 

REF 

35 

LAST 

526 

4533 

7 0110 

0 

MASK 

RADMODES 

1100 

REF  166 

LAST 

530 

4534 

10  000 

0 

CCS 

A 

- 1101- 

R-E-F 

1 

4 53  5 

1 4550 

1 

TCF 

MODE  2CHK 

1102 

REF 

7 

LAST 

533 

4536 

3 0061 

0 

CA 

ITEMPI 

L ( CALLER  +2)  TO  L. 

SEE  WHICH  MODE  RR  IS  IN. 


MODE  1 IS  DEFINED  AS 


GAP:  ASSEMBL E REV  IS  ION  069  QF-  AGC  PROGRAM  LUMINARY  BY  NASA  20  21  1 1 2-01 1 

L P20-P25 


1103 

REF 

1 

4537 

0 4512 

0 

TC 

MA3SUB 

1104 

4 540 

66  161 

l 

DEC 

TP 

-.30  555 

llBsffiSsP 

U04  4 540  66 16  L 1 

1105  REF  63  LAST  477 4 541 0 0001  0 


1106 

REF 

1 

4 542 

3 4562 

1 

CAF 

5.5DEGS 

4 64^ 

6 006? 

0 

-AO — 

ITEM.P2 

110  7 
1108 

REF 

2 

L Aji 

LAST 

534 

4544 

0 4512 

0 

TC 

MAG  SUB 

1109 

4545 

64420 

0 

DEC 

-.35833 

4 646 

0 0001 

0 

TC- 

L 

1111 

REF 

1 

I_  H O 1 

4 54  7 

0 4560 

0 

TC 

RRLIMOK 

4660 

1 4S6  3 

o 

MOD  E2CHK 

CAE 

8 2-DE  GS 

1113 

REF 

4 

LAST 

534 

4551 

6 0062 

0 

AD 

I TFMP2 

1114 

REF 

3 

LAST 

534 

4552 

0 4512 

0 

TC 

MA3SUB 

4553 

65673 

Q_ 

DEC 

-.31667 

11  16 

REF 

65 

LAST 

534 

4554 

0 0001 

0 

TC 

L 

3 006 1 

o 

CA 

I TEMPI 

1118 

REF 

4 

L HO  1 

LAST 

534 

4556 

0 4512 

0 

TC 

MA3SUB 

1119 

4557 

51615 

1 

DEC 

-.69444 

1120 

REF 

66 

LAST 

534 

4560 

50  001 

0 

RRLIMOK 

INDEX 

L 

1121 

REF 

67 

LAST 

534 

4561 

0 0001 

0 

TC 

L 

1122 

4562 

00765 

0 

5.5DEGS 

DEC 

.03056 

1123 

4563 

16450 

1 

82DEGS 

DEC 

.45556 
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1.  ABS(T)  L 55  DEGS. 

2.  ABS ( S + 5.5  DEGS)  L 64.5  DEGS 

(SHAFT  LIMITS  AT  +59,  -70  DEGS) 


5 

64.5  DEGS 


IN  LIMITS . 


MODE-2  IS  DEFINED  AS 

1.  ABS I T ) G 125  DEGS. 

2.  ABS ( S + 82  DEGS)  L 57  DEGS 

(SHAFT  LIMITS  AT  -25,  -139  DEGS) 


125  OEGS 


( = TC  1) 
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USER • S PAGE  NO.  32  E7  S3 


P 1 124  PROGRAM  NAME.  SETTRKF 


IE  EITHER: 


R 1 1 26  FUNCTIONAL  DESCRIPTION_ 

R 1 1 27  SETTRKF  UPDATES  THE  TRACKER  FAIL  LAMP  ON  THE  DSKY. 

R1129  INITIALLY  THE  LAMP  TEST  FLAG  (IM00ES33  BIT  1)  IS  CHECKED. 

R 1 1 30  IF  A LAMP  TEST  IS  IN  PROGRESS,  THE  PROGRAM  EXITS  TO  L +1. 

R 1 1 31  IF  NO  LAMP  TEST  THE  FOLLOWING  IS  CHECKED  SEQUENTIALLY. 

R 1 1 32  1)  RR  CDU:S  BEING  ZEROED,  RR  CDU  OK,  AND  RR  NOT  IN 

R 1 1 33  AUTC  MODE  (RAOMOOES  BITS  13,  7,  2). 

R 1 1 34  2)  LR  VEL  DATA  FAIL  AND  NO  LR  POS  DATA  (RADMODES  BITS 

R 11 3 5 8,5) 

R 1 1 36  3)  NO  PR  DATA  (RADMODES  BIT  4) 

R 1 1 3 7 THE  ABSENCE  OF  ALL  THREE  SIMULTANEOUSLY  IN  (1),  THE  PRESENCE  OF  BOTH 

R 1 1 38  IN  (2),  AND  THE  PRESENCE  OF  (3)  RESULTS  IN  EITHER  THE  TRACKER  FAIL 

R 1 1 39  LAMP  (DSPTAB  +11D  BIT  8)  BEING  TURNED  ON  OR  LEFT  ON.  OTHERWISE, 

R 1 1 40  THE  TRACKER  FAIL  LAMP  IS  TURNED  OFF  OR  IS  LEFT  OFF.  THEREFORE,  THE 

R1141  TRACKER  FAIL  LAMP  IS  TURNED  ON  I F_ 

R 11 42  A ) RR  CDU  FAILED  WITH  _RR  IN  AUTO  MODE  AND  RR  CDU:S  NOT  BEING.  ZEROED. 

R 1143  B)  N SAMPLES  OF  LR  DATA  COULD  NOT  BE  TAKEN  IN  2N  TRIES  WITH 

R 1 1 44  EITHER  THE  ALT  OR  VEL  INFORMATION 

R 1145  C)  N SAMPLES  OF  RR  DATA  COULD- -NOT  BE  OBTAINED  FROM  2N  TRIES 

R 1 1 46  WITH  EITHER  THE  AL 


HER  THE  ALT  OR  VEL  INFORMATION. 


R 1 1 47  CALLING  SEQUENCE: 

R 1 1 48  L TC  SETTRKF 

R 1 1 49  ERASABLE  I NI  T I AL  I Z AT  I ON  R EQU  I RE  D:  IMODES33,  RADMODES,  DSPTAB  +11D 

R 1 1 50  SUBROUTINES  CALLED.  NONE 


R 1 1 51 — 

JOBS  CR 

TASKS  INITIATED  NONE 

R 1 1 52 

ALARMS. 

TRACKER  FAIL  LAMP 

R 1 1 53  EXIT.  L +1  (ALWAYS)  ED. 


1155  REF  26  LAST  480-  4564  3 4753  1-  SETTRKF  CAF  BIT1  NO  ACTION  IF  DURING  LAMP  TEST. 


1156 

1157 

1158 

REF 

REF 

REF 

25 

167 

154 

LAST 

LAST 

LAST 

483 
53  3 
53  3 

4565 

4566 

4567 

7 1303 
10  000 
0 0002 

1 

0 

_0 

MASK 

CCS 

TC 

I M0DES33 
A 

Q 

1159 

REF 

25 

LAST 

34  7 

4570 

3 4744 

1 

RRTRKF 

CA 

B I T 8 

1160 

REF 

68 

LAST 

53  4 

45-71 

54  001 

1 

TS 

L 

1161 

REF 

1 

4572 

3 4615 

1 

CAF 

13,7,2 

SEE  IF  CDU 

FAILED. 

116  2 

REF 

36 

LAST 

5 3 3 

4 573  - 

7 0110 

0 

MASK 

R ADMODFS 

1163 

4 574 

0 0006 

1 

EXTEND 

1164 

REF 

1 

4575 

1 4601 

0 

3ZF 

TRKFLON 

CONDITION 

3 ABOVE. 

1165 

REF 

23 

LAST 

48  1 

4576 

3 4750 

1 

RRCHECK 

CAF 

BIT4 

SEE  IF  RR 

DATA  FAILED. 

1166 

REF 

37 

LAST 

535 

4577 

7 0110 

0 

MASK 

RADMODES 
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1167 

REF 

168 

LAST 

535 

4600 

10  000 

0 

CCS 

A 

1168 

RFF 

69 

LAST 

53  5 

4601 

3 0001 

0 

TRKFLON 

CA 

L 

LAST 

ly  ft  ^ 

460? 

6 1 036 

0 

AD 

DSPTAB 

MID 

1170 

REF 

70 

LAST 

536 

4603 

7 0001 

1 

MASK 

L 

1171 

4604 

0 0006 

1 

EXTEND 

p E F 

Zy 

l a<;  t 

? ft  g 

4605 

1 6741 

1 

BZF 

TCQ 

1173 

REF 

40 

LAST 

536 

4606 

3 1036 

0 

FLI  P 

CA 

DSPTAB 

+ 1 ID 

4607 

0 0006 

1 

EXTEND 

1175 

REF 

10 

LAST 

274 

4610 

06  001 

0 

RXOR 

LCHAN 

1176 

REF 

11 

LAST 

445 

461  1 

7 4733 

0 

MASK 

POSM  AX 

LAST 

s ? n 

4612 

6 4735 

1 

AD 

BIT15 

1178 

REF 

41 

LAST 

536 

4613 

55' 036 

1 

TS 

DSPTAB 

+ 11D 

1179 

REF 

155 

LAST 

53  5 

4614 

0 0002 

0 

TC 

Q 

USER'S  PAGE  NO.  33  E7  S3 

HALF  ADD  DESIPED  AND  PRESENT  STATES. 

NO  CHANGE. 

CANT  USE  LXCH  DSP  T AB  MID  ( RF  START  PROB) 


10102  0 


13,7,2  OCT 
ENDRMOD F EQUALS 


1180 

1181 


4615 

4616 


10102 
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P 1 1 8 2 PRC  GRAM  NAME.  RRTURNON 
R1183  FUNCTIONAL  DESCR I PT ION_ 

R1184  RRTURNON  IS  THE  TURN-ON  SEQUENCE  WHICH,  ALONG  WITH 
R 1 1 8 5 RRZERGSB,  ZEROS  THE  COU: S AND  DETERMINES  THE  -RR-  MODE. 

R 1 1 86  INITIALLY,  CONTROL  IS  TRANSFERRED  TO  RRZEROSB  FOR  THE 
R 1 1 87  ACTUAL  TURN-ON  SEQUENCE.  UPON  RETURN  THE  PROGRAM 
R 1 1 88  WAITS  1 SECOND  BEFORE  REMOV  I NG- -THE  -TURN-ON  FLAG 
R1189  (RADMCCES  BIT1)  SO  THE  REPOSITION  ROUTINE  WON:T 
R 1 1 90  INITIATE  PROGRAM  ALARM  00501  . A CHECK  IS  THEN  MADE 

R 1 l 91  TO  SEE  IF  A PROGRAM  IS  USING  THE  RR  (STATE  BIT  71.  IF 

R 1 192  SO,  THE  PROGRAM  EXITS  TO  ENDRAOAR  SO  THAT  THE  RR  CDU 

R 11 93  FAIL  FLAG  IRADMODES  BIT  7)  CAN  BE  CHECKED  BEFORE 

R 1 1 94  RETURNING  TO  THE  WAITING  PROGRAM.  I E_  NOT * THE  PROGRAM  EXITS 

R 1 1 9 5 TO  TASKOVER. 

R 1 1 96  CALLING  S E CU ENCE  3-  W A I TL I S T TASK  FROM-  RRAUTCHK  IF  THE  RP  POWER  ON  AUTO 

R 1 1 97  BIT  (CHAN  33  BIT  2)  CHANGES  TO  0 AND  NO  PROGRAM  WAS  USING 

R 1 198  THE  RR  (STATE  BIT  7). 

R 1 1 99  ERASABLE  I NI T I AL I Z AT  I ON  R EQU I RE D: 

R1200  R ACMODES , STATE 


R 1 2 0 1 SUBROUTINES  C ALL  E D_  RRZEROSB,  FIXDELAY,  TASKOVER,  ENOPADAR 

R 1202  JOBS  OR  TASKS  INITIATED. 


R1203 
R 1204- 
R 12  05 

NCNE 

ALARMS. 

EXIT. 

NONE  (SEE  RRZFROSB)  

TASKOVER,  ENDRAOAR  (WAITING  PROGRAM) 

1206 

24,3151 

BANK  24 

1207 

REF 

1 

25,2000 

SETLOC  P20S1 

120a 

25,2062 

BANK 

1209 

1210 

REF 

REF 

20 
— 1 

LAST 

53  1 

E7 , 1454 

EBANK= 

COUNT* 

LOSCOUNT 
$ $/R SUB 

1211 

REF 

1 

25,2062 

0 2071 

0 

RRTURNON  TC 

RRZEROSB 

1212 

REF 

3 

LAST 

5 1 1 

25, 2063 

0 5221 

0 

TC 

F I XD  ELAY 

WAIT  1 SEC  BEFORE  REMOVING  TURN  ON  FLAG 

1213 

25,2064 

00144 

0 . 

DFC 

1 00 

SO  A MONITOR  REPOSITION  WONT  ALARM. 

1214 

REF 

27 

LAST 

535 

25, 2065 

4 4753 

0 

CS 

BIT1 

1215 

REF 

38 

LAST 

535 

25,2066 

7 0110 

0 

MASK 

RADMODES 

1216 

REF 

39 

LAST 

537 

25,2067 

54  110  0 

TS 

RADMODES 

1217 

REF 

22 

LAST 

530 

25,2070 

1 5261 

0 

TC  F 

TASKOVER 

< 
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P 12 1 8 PROGRAM  NAME_  RRZEROSB 
R 1 2 1 9 FUNCT  ION  AL  D ES CR  I PT  I8ft~ 

R 1220  RRZEROSB  IS  A CLOSEO  SUBROUTINE  TO  ZERO  THE  RR  CDU:S, 

R 1 221  DETERMINE  THE  RR  MODE,  AND  TURNS  ON  THE  TRACKER  FAIL 

R 1222  TAMP  IF  REQUIRED-.  INITIALLY  THE  RR  CDU  ZERO  BIT  (CHAN  12 
R 1223  BIT  1)  IS  SET.  FOLLOWING  A 20  MILLISECOND  WAIT,  THE  LGC 
R 12 24  RR  CDU  COUNTERS  (OPTY,  OPTX)  ARE  SET  = 0 AFTER 
R1225  WHICH  THE  RR  CDU  ZERO-DI  SGRETE-  (CHAN  12  BIX  l)  IS 
R 1226  REMOVED.  A 4 SECOND  WAIT  IS  SET  TO  ALL  THE  RR  CDU:S 
R 1227  TC  REPEAT  THE  ACTUAL  TRUNNION  AND  SHAFT  ANGLES.  THE 
R 1228  RR  CDU  ZERO  FLAG  (R ADMOOE S- B I T 13)  IS  REMOVED.  THE- 

R 1229  CONTENTS  OF  OPTY  IS  THEN  CHECKED  TO  SEE  IF  THE  TRUNNION 

R 12 30  ANGLE  IS  LESS  THAN  90  DEGREES.  IF  NOT,  BIT  12  OF 

R 1231  RACMOOES  IS  SET  = 1 Xd— INDICATE-  RR  ANTENNA  MODE -2.-  - 

R 12 32  IF  LESS  THAN  90  DEGREES,  BIT  12  OF  RADMODES  IS  SET  = 0 TO 

R1233  INCICATE  RR  ANTENNA  MODE  1.  SETTRKF  IS  THEN  CALLED  TO 

R1234  SEE  IF  THE  TRACKER  FAIL  LAMP  SHOULD  BE  TURNED  ON. 

R 1235  CALLING  SEQUENCE:  L TC  RRZEROSB  (FROM  RRTURNON  AND  RRZERO) 
R 1236  ERASABLE  INI  T I AL X ZAT I-ON  REQUIRED: 

R 1237  RADMODES  ( e I T 13  SET),  DSPTAB  HID 


R1238  SUBROUTINES  CALLED.  FIXDI LAY,  MAGSUB,  SETTRKF 


R 12  39 
r i 740 

JOBS 
Air  n p 

OR 

TASKS 

INI  T I AT  ED. 

R 1241 

ALARMS. 

TRACKER  FAIL 

R 1242 
1243 

EXIT. 

. L 

+1  (ALWAYS) 

2 *3  j 2n71 

n nnnA 

\ 

RR7FRHSR  FXTFNO 

1244 

REF 

2 

LAST 

122 

25,2072 

23 ' 3 1 5 

1 

QXCH  RRRET 

1245 

REF 

28 

LAST 

53  7 

25,2073 

3 4753 

1 

CAF  BIT1 

BIT  13  OF  RADMODES  MUST  BE  SET  BEFORE 

1246 

2 5,2074 

0 0006 

1 

EXTEND 

COMING  HERE. 

1247 

REF 

27 

LAST 

526 

25,2075 

05  012 

1 

WOR  CHAN  12 

TURN  ON  ZERO  RR  CDU 

1248 

REF 

4 

LAST 

53  7 

25,2076 

0 5221 

0 

TC  F I X D EL  AY 

1249  25,2077  00002  0 DEC  2 


1250 
1 2 51 

REF 

REF 

1 12 

5_ 

LAST 

LAST 

526 

52X 

25,2  100 
25, 2 10 1 

3 4755 
54  035 

1 

0 

CAF 

TS 

ZERO 

COUT 

1252 

REF 

4 

LAST 

330 

25,2102 

54  036 

0 

TS 

C DUS 

1253 

REF 

63 

LAST 

51  9 

25,2  103 

4 4753 

0 

CS 

ONE 

REMOVE 

ZEROING  BIT. 

12  54 

-2  5,2  104 

0 0006 

1 

EXTEND 

1255 

REF 

28 

LAST 

53  8 

25,2105 

03  012 

1 

WAND 

C HAN  12 

1256 

REF 

5 

LAST 

53  8 

25,2106 

0 5221 

0 

TC 

F I XD  EL  AY 

1257 

25,2107 

01750 

1 

DEC 

1 000 

RESET 

FAIL  INHIBIT  IN  10  SECS  - D.281 

1258 

REF 

25 

LAST 

517 

25,2110 

4 4737 

1 

CS 

B I T 1 3 

REMOVE 

ZEROING  IN  PROCESS  BIT. 
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1259 

1260 

REF 

REF 

40 

41 

LAST 

LAST 

53  7 
539 

25.2111 

25.2112 

7 01  10 
54  110 

0 

0 

MASK 

TS 

R ADM  ODES 
RADMODFS 

1261 

REF 

6 

LAST 

538 

25,2113 

3 0035 

1 

CA 

CDUT 

1262 

REF 

5 

LAST 

534 

25, 2 114 

0 4512 

0 

TC 

MAGSUB 

25*2  115 

57777 

1 

OEC 

-.5 

1264 

25,2116 

1 2121 

0 

TC  F 

+ 3 

IF  MODE  2. 

LAST 

538 

25r ? 117 

^ 47  55 

1 

CAF 

ZFRO 

1266 

25,2120 

1 2122 

0 

TC  F 

♦ 2 

1267 

REF 

23 

LAST 

53  3 

25,2121 

3 4740 

0 

CAF 

Bill  2 

1 2 

R F F 

42 

LAST 

-53-9- 

25 ,2  122 

56  110 

1 

XCH 

RADMODES 

1269 

REF 

i 

25,2123 

7 7740 

1 

MASK 

-8IT  12 

1270 

REF 

43 

LAST 

539 

25,2124 

26  1 10 

0 

ADS 

RADMODES 

L271 

REF 

2 

LAST 

200 

25,2125 

0 4564 

1 

TC 

SETTRKF 

TRACKER  LAMP  MIGHT  GO  ON  NOW. 

REF 

L T 

P 

25,717^ 

n 1^15 

1 

rr 

P.RRFT 

DONE. 

1273 

REF 

1 

7 740 

-BI T12 

EQUALS  -1/8 

IN  SPROOT 
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P 1274  PROGRAM  N A M E_  OORREPOS 

R 1 2 75  FUNCTIONAL  DESCRIPT10N_ 

R1276  OORREPOS  IS  A SEQUENCE  OF  TASKS  TO  ORIVE  THE  RENDEZVOUS  RADAR 
R1277  TO  A SAFE  POSITION.  INITIALLY  SETRRECR  IS  CALLED  WHERE  THE  RR 
R1278  ERROR  COUNTERS  (CHAN  12  BIT  2)  ARE  ENABLED  AND  LASTYCMD 
R 1279  AND  L AST XCMD  S-ET  = 0 TO  I NDICATf  THE  DIFFERENCE  BETWEEN  THE 
R 12  80  DESIRED  STATE  AND  PRESENT  STATE  OF  THE  COMMANDS.  THE  RR 
R1281  TURN-ON  FLAG  (RADMODES  BIT  1)  IS  CHECKED  AND  IF  NOT  PRESENT, 

R 1282  PROGRAM  ALARM  -00501  IS  REQUESTED  BEFORE  CONTINUING.  IN  EITHER 

R 1 2 83  CASE,  FOLLOWING  A 20  MILLISECOND  WAIT  THE  PROGRAM  CHECKS  THE  CURRENT 

R 1 2 84  RR  ANTENNA  MODE  (RADMODES  BIT  12).  RRTONLY  IS  THEN  CALLED 

R 128 5 TO  DRIVE— THE  TRUNNION  ANGLE  TO  0 DEGREES  IF  IN  MODE-  1 AND  TO  180 

R 1 2 8 6 DEGREES  IF  IN  MODE  2.  UPON  RETURN,  THE  CURRENT  RR  ANTENNA 

R1287  MOCE  ( RADMCDES  BIT  12)  IS  AGAIN  CHECKED.  RRSONLY  IS  THEN 

R 1288  CALLED  TO  DR  I VE- T HE -SHAFT-ANGLE  TO  0.  DEGREES  IF  IN  MODE  1 AND  TO 

R 1289  -90  OEGREES  IF  IN  MODE  2.  IF  DURING  RRTONLY  OR  RRSONLY  A 

R 1 2 90  REMODE  HAS  BEEN  REQUESTED  (RADMODES  BIT  14),  AND  ALWAYS 

R 1 2 9 1 FOLLOWING  COMPLETION  OF-  RRSONLY,  CONTROL  IS  TRANSFERRE-D  TO 

R 12 92  REPOSRPT.  HERE  THE  REPOSITION  FLAG  (RADMODES  BIT  11)  IS 

R 1293  REMOVED.  A CHECK  IS  THEN  MADE  ON  THE  DESIGNATE  FLAG  (RADMODES 

R 1294  BIT  10).  IF  PROS E-NT,  CONTROL  IS  TRANSFERRED  TO  BEGDES.  IF  NOT  PRESENT 

R 129 5 INDICATING  NO  FURTHER  ANTENNA  CONTROL  REQUIRED,  THE  RR  ERROR 

R 1296  COUNTER  BIT  (CHAN  12  BIT  2)  IS  REMOVED  AND  THE  ROUTINE  EXITS  TO 

R 1297  TASKOVER. 

R 1298  CALLING  SEQUENCE: 

R 1299  WAITLIST  CALL  -FROM  RRGIMON  IF  TRUNNION  AND  SHAFT  CDU  ANGLES 
R 1300  NOT  WITHIN  LIMITS  OF  CURRENT  MODE. 

R1301  ERASABLE  INITIALIZATION  RFQU  I RED: 

R 1 30  2 RADMODES 


R 1303  SUBROUTINES  CALLED. 

R 1304  RRTCNLY,  RRSONLY,  BEGDES  (EXIT) 


R 1305  JOBS  CR  TASKS  INITIATED 
R 1 3 06  NCNE 


R1307  ALARMS-  NONE 


R 13  08  EXIT.  TASKOVER,  BEGDES 


1309 
R 13  1 0 

REF 

ALARM 

1 

30  1 

PFI  FTFR  IN 

25,2  127 
DANCE  279 

0 2156  1 
PER  PC R 

OORREPOS 
97  • 

TC 

SETRRECR 

SET  UP  RR  CDU  ERROR  COUNTERS. 

1311 

1312 

REF 

6 

LAST 

53  8 

25.2130 

25.2131 

0 5221  0 
00002  0 

TC 

DEC 

F I XC  EL AY 
2 

1313 

REF 

24 

LAST 

539 

25,2132 

3 4740  0 

CAF 

B I T 1 2 

MANEUVER  TRUNNION  ANGLE  TO  NOMINAL  POS. 

GAP: 
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1314 

REF 

44 

LAST 

539 

25,2133 

7 0110 

0 

MASK 

R ADMODES 

1315 

REF 

169 

LAST 

536 

25,2134 

10  000 

0 

CCS 

A 

R FF 

30 

LAST 

536 

2 5 , 2135 

3 4735 

1 

CAF 

BIT  L5 

1317 

REF 

i 

25,2136 

0 2241 

1 

TC 

RRTONLY 

4740 

o 

r af 

R T T 1 7 

1319 

REF 

45 

LAST 

54  l 

25,2140 

7 0110 

0 

MASK 

R ADMCDES 

1320 

REF 

170 

LAST 

54  1 

25,2141 

10  000 

0 

CCS 

A 

\ 1 

REF 

5 

1 AST 

5 2 0 

2 5,2 142 

4 4736 

0 

cs 

HALF 

1322 

REF 

i 

25,2143 

0 2244 

1 

TC 

RRSONLY 

1323 

-REF 

22  - 

-LAST 

444- 

25,2144 

4 4741 

0 

REPOSRPT 

-CS — 

B I T 1 1 

A1324 

1325 

REF 

46 

LAST 

54  1 

25,2 145 

7 01  10 

0 

MASK 

R ADM  ODE  S 

1326 

RFF 

47 

LAST 

54  1 

25,2146 

54  110 

0 

TS 

RADMODES 

1327 

REF 

29 

LAST 

529 

25,2 147 

7 4742 

0 

MASK 

81  T1  0 

1328 

REF 

171 

LAST 

541 

25,2150 

10  000 

0 

CCS 

A 

1329 

REF 

1 

25,-2151 

1 2573 

0 

TC  F 

REGDES 

1330 

REF 

31 

LAST 

526 

25,2152 

4 4752 

1 

CS 

8 I T 2 

1331 

25,2153 

0 0006 

1 

EXTEND 

1332 

REF 

29 

LAST 

538 

25,2154 

03  012 

_L 

WAND 

C HAN  12 

1333 

REF 

23 

LAST 

537 

25,2155 

1 5261 

0 

TC  F 

TASKOVER 

1 3 34 

RFF 

32 

1 AST 

54  1 

7 5,  7 1 5f* 

3 47  5 7 

n 

S FT  RR FfR 

CAF 

p T T7 

1335 

25,2157 

0 0006 

i 

EXTEND 

1336 

REF 

30 

LAST 

54  1 

25,  2 160 

02  012 

0 

RAND 

CHAN12 

1337 

REF 

1 72 

LAST 

54  l 

75,2161 

10  000 

o 

CCS 

A 

1338 

REF 

156 

LAST 

536 

25,2162 

0 0002 

0 

TC 

Q 

133Q 

RFF 

— 7— 

LAST 

217 

2 5,  2 163 

54  1 12 

1 

TS 

I AST  Yf MD 

1340 

REF 

i 

25,2164 

54  113 

0 

TS 

LAST  XCMD 

1341 

RFF 

33 

LAST 

54  1 

25, 2165 

3 4752 

0 

CAF 

BIT2 

1342 

25,2166 

0 0006 

1 

EXTEND 

1343 

REF 

31 

LAST 

54  1 

25,2 167 

05  012 

1 

WOR 

CHAN  12 

1344 

REF 

157 

LAST 

54  1 

25, 2 170 

0 0002 

0 

TC 

Q 
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0 FOR  MODE  1 AND  180  FOR  MODE  2. 

NOW  PUT  SHAFT  IN  RIGHT  POSITION. 

-90  FOR  MODE  2. 

RETURNS  HERE  FROM  RR1AXIS  IF  REMODEL 
REQUESTED  DUPING  REPOSITION. 

REMOVE  REPOSITION  BIT. 

SEE  IF  SOMEONE  IS  WAITING  TO  DESIGNATE. 


IF  NO  FURTHER  ANTENNA  CONTROL  REQUIRED, 
REMOVE  ERROR  COUNTER  ENABLE. 


SET  UP  RR  ERROR  COUNTERS. 

DO  NOT  CLEAR  LAST  COMMAND  IF 
ERROR  COUNTERS  ARE  ENABLED. 


ENABLE  RR  CDU  ERROR  COUNTFRS 


GAP: 
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L 

P 1 345 

R 1347 
R 1349 
R 1 3 50 
R 1 3 5 1 
R 1 352 
R 1 353 
R 1 3 54 
R1355 
R 1 356 
R 1357 
R 1 3 58 
R 1359 
R 1360 
R 1 36 1 
R13  62 
R1363 
R l 364 
R1365 
R 1 366 
R 1 36  7 

R 1 36  8 
R 1 3 69 
RL370 
R I 371 
R 1 372 

R1373 

R1374 


R 1 3 75 
R 1 3 76 


R 1 3 77 
R1378 


R 1 3 79 
R 1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 


P20-P25 


PROGRAM  NAME_  R E MODE 


FUNCTIONAL  QESCRI 
REMODE  IS  THE  GEN 
TRUNNION  ANGLE  TO 
18C  DEGREES  FOR  M 
DEGREES,  AND  FINA 
TO  PLACE  TEE  RR  I 
INITIATING  2-AXIS 
AXIS  ROTATIONS  (R 
(RADMCDES  BIT  12) 
RRTCNLY  TO  DRIVE 
OR  180  DEGREES  IF 
THE  SHAFT  ANGLE  T 
(RADMCDES  BIT  12-1 
TRANSFERRED  TO  RR 
DEGREES  TO  PLACE 
-5G  DEGREE-S  IF  IN 
IS  THEN  CALLED  TO 
RR  ANTENNA  MODE 
IS  RFMCVFD  TO  IND 
THEN  EXITS  TO  STD 


PT ION.  — 

ERAL  REMODING  SUBROUTINE.  IT  DRIVES  THE 
0 DEGREES  IF  THE  CURRENT  MODE  IS  MODE  1, 

ODE  2,  THEN  DRIVES  THE  SHAFT  ANGLE  TO  -45 
LLY  DRIVES  THE  TRUNNION  ANGLE  TO  -130  DEGREES, 
N MODE  2,  -50  DEGREES  FOR  MODE  1,  BEFORE 
CONTROL-  ALL  REMODING  IS  DONE  WITH  SINGLE 
R1AXIS).  INITIALLY  THE  RR  ANTENNA  MODE  FLAG 
IS  CHECKED.  CONTROL  IS  THEN  TRANSFERRED  TO 
THR  TRUNNION  ANGLE  TO  0 DEGREES  IF  IN  MODE  1 
IN  MODE  2.  RR  SON  LY  IS  THEN  CALLED  TO  DRIVE 
0 -45  DEGREES.  THE  RR  ANTENNA  MODE  FLAG 
IS  CHECKED  AGAIN. -CONTROL  IS  AGAIN 
TONLY  TO  DRIVE  THE  TRUNNION  ANGLE  TO  -130 
THE  RR  IN  MODE  2 IF  CURRENTLY  IN  MODE  1 OR 
MODE  2-  T-0  PLACE  THE  RR  IN  MODE  1.  RMOD1NV 
SET  RADMODES  BIT  12  TO  INOICATE  THE  NEW 
THE  REMODE  FLAG  (RADMODES  BIT  14) 

ICATE  THAT  REMODING  IS  COMPLETE.  THE  PROGRAM 
ESIG  TO  BEGIN  2-AXIS  CONTROL. 


TO 


CALLING  SEQUENCE: 

FROM  EEGDES  WHEN  REMODE  FLAG  (RADMODES  BIT  14)  IS  SET. 

THIS  FLAG  MAY  BE  SET  IN  RRDESSM  AND  RRDESNB  IF  RRLIMCHK 
DETERMINES  THAT  THE  DESIRED  ANGLES  ARE  WITHIN  THE  LIMITS  OF  THE 
OTHER  MODE. 


ERASABLE  INITIAL  I ZAT I ON  REQUIRED: 
RACMOCES 


SUBROUTINES  CALLED. 

RRTCNLY,  RPS  ONLY , RMODINV  (ACTUALLY  PART  OF) 


JOBS  OR  TASKS  INITIATED^ 
NCNE 


ALARMS.  NCNE 


EXIT.  STDESIG 


REF 

26 

LAST 

54  1 

25,2171 

3 

4740 

0 REMODE 

CAF 

8 I T 1 2 

REF 

48 

LAST 

54  1 

25,2172 

7 

0110 

0 

MASK 

RADMODES 

REF 

173 

LAST 

54  1 

2 5,  2 173 

1C 

1 000 

0 

CCS 

A 

REF 

31 

LAST 

541 

25,2  174 

3 

4735 

1 

CAF 

BITl  5 

RFF 

2 

LAST 

54  1 

25,2175 

0 

2241 

1 

TC 

RPTONLY 

REF 

1 

25,2176 

3 

7737 

0 

CAF 

-45D  EGSR 

REF 

2 

LAST 

541 

25,2177 

0 

2244 

1 

TC 

RRSONLY 
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IVES  SHAFT  TO  -45,  AND  FINALLY  DRIVFS 
S DONE  WITH  SINGLE  AXIS  ROTATIONS  (SEE 


DRIVE  TRUNNION  TO  0 (180). 
(ERROR  COUNTER  ALREADY  ENABLED) 
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1388 

REF 

49 

LAST 

542 

25, 2200 

4 0110 

0 

cs 

R ADMCDES 

1389 

REF 

27 

LAST 

542 

25,2201 

7 4740 

1 

MASK 

B I T 1 2 

i n 

REF 

174 

LAST 

542 

25,2202 

10  000 

0 

CCS 

A 

A 

1391 

REF 

1 

25,2203 

3 2232 

0 

CAF 

-80DEGSR 

1392 

REF 

1 

25,2204 

6 2231 

0 

AD 

-50DEGSP 

1393  REF  3 LAST  542  25,2205  0,  2241  1 TC  RRTONLY 


13931 

REF 

50 

LAST 

543 

25,2206 

4 01  10 

0 

CS 

RADMODES 

13932 

REF 

28 

LAST 

54  3 

25,2207 

7 4740 

1 

_ MASK 

BIT  12 

13933 

REF 

175 

LAST 

543 

25,2210 

10  000 

0 

CCS 

A 

13934 

REF 

32 

LAST 

54  2 

25,2211 

3 4735 

1 

CAF 

B IT  1 5 

1393  5 

REF 

„4- 

LAST 

543 

25,2217 

0 2241 

J 

TC 

RRTONLY 

13936 

REF 

51 

LAST 

543 

25, 2213 

4 0110 

0 

CS 

R ADM  DDES 

13937 

REF 

29 

LAST 

54  3 

25,2214 

7 4740- 

1 

MASK 

B I T 1 2 

13938 

REF 

1 76 

LAST 

543 

25,2215 

10  000 

0 

CCS 

A 

13939 

REF 

6 

LAST 

54  1 

25,2216 

4 4736 

0 

CS 

HALF 

139395  REF  3 LAST  542  25,2217 0 2244  1 TC RPSONLY 


1394 

REF 

1 

25,2220 

0 

2233 

1 

TC 

RMOD INV 

1395 

REF 

52 

LAST 

52  5 

25,2221 

4 

4736 

0 

CS 

8 I T 1 4 

1396 

REF 

52 

LAST 

543 

25, 2222 

7 

0110 

0 

MASK 

RADMODES 

1397  REF  53  LAST  543-  25,2223  54  110  0 TS  RAD  MODES 


1398 

REF 

30 

LAST 

54  1 

25,2224 

3 

4742 

1 

CAF 

BITIO 

1399 

RFF 

54 

L AST 

54  3 

25,2225 

7 

0110 

0 

MASK 

RADMODES 

1400 

25,2226 

0 

0006 

1 

EXTEND 

1401 

REF 

1 

25, 2227 

1 

3555 

0 

BZF 

RGOODEND 

1402 

REF 

1 

25,2230 

0 

2602 

1 

TC 

STDE  SIG 

1403 

REF 

2 

LAST 

297 

7737 

-45DEGSR  = 

13,14,15 

1404 

25,2231 

67070 

1 

-50DEGSR  DEC 

-.27778 

1405  25^  2232  61615  l..  -8QDEGSR  DEC -.44444 


1406 

1407 

REF 

REF 

55 

30 

LAST 

LAST 

543 
54  3- 

25,2233 
25, 2234— 

22  110 
3 4740 

1 RMODINV 

_Q 

LXCH 
r.  af 

RADMODES 
R T T 1 ? 

1408 

25,2235 

0 0006 

1 

EXTEND 

1409 

REF 

11 

LAST 

536 

25,2236 

06  001 

0 

RXOR 

LCHAN 

1410 

R EF 

56 

LAST 

54  3 

25,2237 

54  1 10 

0 

TS-  _ 

R ADMODES 

1411 

REF 

158 

LAST 

54  1 

25,2240 

0 0002 

0 

TC 

Q 
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GO  TO  T = -l 30  (-50) . 

GO  TO  T = -180  (»-0)  . 

GO  TO  S = -90  ( +0 ) . 


END  OF  REMODE. 


WAS  REMODE  CALLED  DURING  DESIGNATE 
( BITIO  RADMODES  = 1 ) 

NO-RETURN  TO  CALLER  WAITING  IN  RADSTALL 
YES  - RETURN  TO  DESIGNATE 


INVERT  THE  MODE  STATUS 
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P1412  PROGRAM  NAMES_  R RT ONLY , RRSONLY 
R 141  3 FUNCTIONAL  DE-SCRIPT  IGNb — 

R1414  RRTCNLY  AND  RRSONLY  ARE  SUBROUTINES  FOR  DOING  SINGLE  AXIS 
R1415  RR  MANFUVERS  FOR  REMODE  AND  REPOSITION.  IT  DRIVES  TO 

R1416  WITHIN  1 DEG  RLE.  I-N  I T-I  ALL  Y,  AT  RR1AX2,  THE  REMODE  AND  REPOS  I TION 

R 141 7 FLAGS  (RADMODES  BITS  14,  11)  ARE  CHECKED.  IF  BOTH  EXIST, 

R 1 4 1 8 THE  PROGRAM  EXITS  TO  REPOSRPT  (SEE  DORREPOS).  THIS  INDICATES 

R1419  THAT  SOMEONE  POSSIBLY  REQUESTED  A DESIGNATE  (RADMODES  BIT  101 

R 1 420  WHICH  REQUIRES  A REMODE  (RADMODES  BIT  14)  AND  THAT  A 

R 142 1 REPOSITION  IS  IN  PROGRESS  (RADMODES  BIT  11).  IF  NONE 

R 1422  OR  ONLY  ONE  OF  THE  FLAGS  EXIST,  REMODE  OR  REPOSITION,-  MAG-SUB 

R 1423  IS  CALLED  TO  SEE  IF  THE  APPROPRIATE  ANGLE  IS  WITHIN  1 DEGREE.  IF  YES, 

R 1 424  CCNTRCL  RETURNS  TO  THE  CALLING  ROUTINE.  IF  NOT,  CONTROL  IS 

R 1425  TRANSFERRED  TO  R R OUT  FOR  SINGLE  AXIS  MANEUVERS  WITH  THE  OTHE-P 

R1426  ANGLE  SET  = 0.  FOLLOWING  A .5  SECOND  WAIT,  THE  ABOVE  PROCEDURE  IS 

R 1427  REPEATED. 


R 142  8 
R 1 429 
R 1 430 

CALLING  SEQUENCE:  L-l  CAF  * ANGLE* 
L TC  RRTONLY  (TRUNNION  ONLY) 
RRSCNLY  (SFAFT  ONLY) 

(DESIRED  ANGLE  SCALED  PI) 

R 1 43  1 
R 1 432 

RRTCNLY  IS  CALLED  BY  PREP0S29 ; 
RRTCNLY  AND  RRSONLY  ARE  CALLED  BY 

DORREPOS  AND  REMODE 

R 1433 
R1434 

ERASABLE  INITIALIZATION  REQUIRED: 
CIA)  = DESIRED  ANGLE,  RADMODES 

R 1435 
R 1436 

SUBROUTINES  CALLED. 

FIXDELAY,  REPOSRPT,  MAGSUB,  RROUT 

R 1 437 
R 1 43  8 

JOBS  CR  TASKS  INITIATED. 
NONE 

R 1439  ALARMS.  NONE 


R 1 440  EXIT.  REPOSRPT  (REMODE  AND  REPOSITION  FLAGS  PRESENT  - RADMODES 
R 144 1 BITS  14,  11) 

R 1442  L + l (ANGLE  WITHIN  ONE  DEGREE  OR  RR  OUT  OF  AUTO  MODE) 


1443 

1444 

1445 

REF 

REF 

REF- 

2 

1 14 
1 - 

LAST 

LAST 

12  2 
5 3 S 

25.2241 

25. 2242 

25.2243 

55*316 
3 4755 
1 2246 

0 

1 

1 

RRTONLY 

TS 

CAF 

tce 

RDES 

ZERO 

RR1AXIS 

DESIRED  TRUNION 

ANGLE. 

1446 

REF 

3 

LAST 

544 

25,2244 

55' 316 

0 

RRSONLY 

TS 

RDES 

SHAFT  COMMANDS 

ARE  UNRESOLVED  SINCE  THIS 

1447  REF  -64  LAST  538  25,2245  3 4753  1 CAF  OFiE  ROUT  I NE_  ENTER  ED  ONLY  WHEN  T = 0 OR  180. 


1448 

1449 

REF 

1 

25.2246 

25.2247 

55*317 
0 0006 

1 

1 

RR 1 AX  I S TS 

EX  TEND 

RPINOEX 

1450 

REF 

4 LAST  539 

25,2250 

23' 315 

1 

QXCH 

RRTFT 

1451 

REF 

1 

25,2251 

l 2254 

1 

TCF 

RR1AX2 
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1452 

1453 

REF 

7 

LAST 

540 

25. 2252 

25.2253 

0 5221 
00062 

0 

0 

NXTRR 1 AX 

TC 

DEC 

E I XD  ELAY 
50 

1454 

REF 

57 

LAST 

543 

25, 2254 

4 0110 

0 

RR 1 AX2 

CS 

R ADM  ODES 

1455 

REF 

2 

LAST 

305 

25, 2255 

7 77  07 

1 

MASK 

PRI022 

1456 

- 25  ,-225-6 

0 0006 

_] 

EXTEND- 

1457 

REF 

1 

25,2257 

1 2144 

0 

BZF 

REPO  SRPT 

U CO 

D PC 

A 

LAST 

544 

25,  2 260 

3 1316 

1 

GA 

RDES 

1H30 

ALT 

*T 

1459 

25,2261 

0 0006 

1 

EXTEND 

1460 

REF 

2 

LAST 

544 

25, 2262 

5 1317 

0 

INDEX 

RRINDEX 

1461 

RFF 

7 

LAST 

53  9 

2 5*2  26  3 

20  035 

0-- 

MS  U 

C PU  T _ 

1462 

REF 

9 

LAST 

534 

25, 2264 

54  061 

1 

TS 

ITEMP1 

1463 

25,2265 

0 0006 

1 

EXTEND 

1 464 

REF 

1 

25,2266 

7 2 305 

_L- 

-MP 

RRSPGAIN 

1465 

RFF 

71 

LAST 

536 

25,2267 

54  001 

1 

TS 

L 

1466 

REF 

58 

LAST 

545 

25,2270 

3 0110 

1 

CA 

RADMCDES 

1467- 

REF 

34 

LAST 

54  1 

25,2271 

7 6752 

_] 

-MASK 

B I T 2 . _ 

1468 

REE 

10 

LAST 

545 

25, 2272 

56  061 

0 

XCH 

I TFMP1 

1469 

REF 

6 

LAST 

539 

25, 2273 

0 4512 

0 

TC 

MAGSUB 

1470  25,2274 77644  -J DEC  -.00555 


1471 

REF 

11 

LAST 

545 

25,2275 

10  061 

1 

CCS 

I TEMPI 

1472 

REF 

5 

LAST 

544 

25,2276 

0 1315 

1 

TC 

RRRE  T 

1473 

RFF 

3 

LAST 

54  5 

25,2277 

11*317 

l 

CCS 

RRINDEX 

1 474 

25,2300 

1 2302 

0 

TC  F 

+ 2 

1475 

REF 

72 

LAST 

54  5 

25,2301 

56  001 

0 

XCH 

L 

1476 

REF 

8 

LAST 

520 

25,2302 

53' 110 

1 

DXCH 

TANG 

1477 

REF 

1 

25,2303 

0 2306 

0 

TC 

RROUT 

1478 

REF 

1 

25,  2 304 

1 2252 

l — 

-T-CF— 

NXTRR1 AX 

1479 


25,2305 


22715  1 RRSPGAIN  DEC 


59062 
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2 SAMPLES  PER  SECOND. 

IF  SOMEONE  REOUESTES  AS  DESIGNATE  WHICH 
REQUIRES  A REMODE  AND  A REPOSITION  IS  IN 
PROGRESS,  INTERRUPT  IT  AND  START  THE 
REMODE  IMMEDIATELY. 


SAVE  ERROR  SIGNAL. 

TRIES  TO  NULL  .7  OF  ERROR  OVER  NEXT  ,5 


STORE  RR— OUT— OF— AUTO— MODE  BIT. 

SEE  IF  WITHIN  ONE  DEGREE. 

SCALED  IN  HALF-REVS. 

NO.  IF  RR  OUT  OF  AUTO  MODE,  EXIT. 
RETURN  TO  CALLER. 


COMMAND  FOR  OTHER  AXIS  IS  ZERO. 
SETTING  A TO  0. 


COME  BACK  IN  .5  SECONDS. 
NULL  .7  ERROR  IN  .5  SEC. 


< 
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p 1480  PROGRAM  NAME.  RR  OUT  RROR  COUNTER  SCALING.  RROUT  LIMITS  THEM 

R1482  FUNCTIONAL  DESCRIPTION. 

R 1 483  RRCLT  RECEIVES  RR  GYRO  COMMANDS  IN  TANG,  TANG  +1  IN  RR 

R 1484  ERRCR  COUNTER  SCALING.  RROUT  THEN  LIMITS  THEM  AND 

R 148  5 GENERATES  COMMANDS  TO  THE  C DU  TO  ADJUST  THE-  ERROR  COUNTE-RS 
R 14 86  TO  THE  CESIRED  VALUES.  INITIALLY  MAGSUB  CHECKS  THE  MAGNITUDE  OF 
R 14 87  THE  COMMAND  (SHAFT  ON  1ST  PASS)  TO  SEE  IF  IT  IS  GREATER  THAN 

R 1 4 88  384  PULSES.  IF  NOT,  CONTROL  IS  TRANSFERRED  -TO  RROUTLIM_XO — 

R 1 4 89  LIMIT  THE  COMMAND  TO  +384  OR  -384  PULSES.  THE  DIFFERENCE  IS 

R 1490  THEN  CALCULATED  BETWEEN  THE  DESIRED  STATE  AND  THE  PRESFNT  STATE  OF 

R 149 1 THE  ERROR  COUNTER  AS  RECORDED  IN  LAST  YCMD-  AMD _LASXX-CMD_. 

R 1492  THE  RESULT  IS  STORED  IN  nPTXCMD  (1ST  PASS)  AND  OPTYCMD  (2ND 

R1493  PASS).  FOLLOWING  THE  SECOND  PASS,  FOR  THE  TRUNNION  COMMAND,  THE 

R 1494  OCCUT  AND  CCDUS  FRROR  COUNTER  DRIVE  BITS..  (CHAM  14  BITS  12,  AD 

R 1495  ARE  SET.  THIS  PROGRAM  THEN  EXITS  TO  THE  CALLING  PROGRAM. 

R 1496  CALLING  SECUENCE: 

R 1 497  L TC  RROUT  (WITH  RUPT  INHIBITED)  RROUT  IS  CALLED  BY 
R 14 98  RRTCNLY,  RRSONLY,  AND  DODES 


R 1499 
R 1500 
R 1501 

ERASABLE  INITIALIZATION  REQUIRED: 

TANG,  TANG  +1  (DESIRED  COMMANDS),  LASTYCMD, 
(1ST  PASS  = 01,-RR  ERROR  COUNTER  ENABLE  SET 

LASTXCMD 

(CHAN  12  BIT  -2  ) . 

R1502 
R 1 50  3 

SUBROUTINES  CALLED. 
MAGSUB 

R 1504 
R 1505 

JOBS  OR  TASKS  INITIATED 
NONE 

R 15  06 

ALARMS.  NONE 

R 1507  EXIT.  L + l (ALWAYS)  SIRED  VALUES.  RUPT  MUST  BE  INHIBITED. 


1509 

REF 

1 59 

LAST 

543 

2 5,2  306 

22  002 

o 

RROUT 

LXCH 

SAVE  P.FTURN. 

1510 

REF 

65 

LAST 

544 

25,2307 

3 4753 

1 

CAF 

ONE 

LOOP  TWICE. 

1511 

REF 

5 

LAST 

534 

25,2310 

54  062 

1 

RR0UT2 

TS 

ITEMP2 

1512 

REF 

177 

LAST 

543 

25,  2 31 1 

50  000 

1 

INDEX 

A 

1513 

REF 

9 

LAST 

545 

25, 2312 

3 1107 

0 

CA 

TANG 

1514 

REF 

12 

LAST 

545 

25,2313 

54  061 

1 

TS 

ITEMP1 

SAVE  SIGN  OF  COMMAND  FOR  LIMITING. 

1515 

REF 

7 

LAST 

545 

25,2314 

0 4512 

0 

TC 

MASSUB 

SEE  IF  WITHIN  LMITS. 

1516 

25,2315 

77177 

0 

-RR  L I M I T 

DEC 

-384 

1517 

REE 

1— 

2 5,2316 

1 2335 

1 

TC  F 

R_R  QLI T L I N 

LIMIT  COMMAND  TO  MAG  OF  384. 

1518 

REF 

13 

LAST 

546 

25, 2317 

3 0061 

0 

SETRRCTR 

CA 

ITEMP1 

COUNT  OUT  DIFFERENCE  BETWEEN  DESIRED 

1549 

REF 

— 6_ 

-LAST 

54-6 

25,2320 

50  06 2 

0 

INDEX 

TTFMP? 

STATE  AND  PRESENT  STATE  AS  RECOPDF D IN 

1520 

REF 

8 

LAST 

54  1 

25,2321 

56  112 

0 

XCH 

LASTYCMD 

LASTYCMD  AND  LASTXCMD 

1521 

25,2322 

4 0000 

0 

COM 

GAP:  ASSEMBLE  REV -I-S40N  069  OF -AGO  PROGRAM  LUMINAT3Y  BY  -NASA  20  21112-01-1  —19:02  NOV.  25,1968  LEMP20S  .11A  PAGE  547 


L 

P20- 
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1522 

1523 

REF 

REF 

14 

9 

LAST 

LAST 

LAST 

546 

245 

Ri  A 

25.2323 

25.2324 

78.2325 

6 0061 
6 4754 
50  062 

0 

0 

0 

AD 

AD 

INDEX 

I TEMPI 

NEGO 

ITEMP2 

PREVENT  +0  IN  OUTCOUNTER 

1525 

REF 

1 

25,2326 

54  053 

0 

TS 

CDUTCMD 

l n n a 2 

1 

CCS 

I TEMP2 

PROCESS  BOTH  INPUTS. 

1527 

REF 

1 

25,2330 

1 2310 

0 

TC  F 

RR0UT2 

f £ 33  ] 

^ SO  20 

o 

CAF 

PRI06 

ENABLE  COUNTERS. 

1529 

25, 2332 

0 0006 

1 

EXTEND 

1530 

REF 

7 

LAST 

297 

25,2  333 

05  014 

1 

WOR 

CHAN  14 

PUT  ON  CDU  DRIVES  S AND  T 

1 S3] 

R FF 

73 

last 

54  5 

2 5,  2 334 

0 0001 

0 

TC 

L 

RETURN. 

1532 

REF 

15 

LAST 

547 

25,2335 

10  061 

1 

RROUTLIM  CCS 

I TEMPI 

LIMIT  COMMAND  TO  ABS  VAL  OF  384. 

1 S2"} 

R FF 

1 

25, 2336 

4 2315 

0 

CS 

-RPL IMIT 

1534 

25,2337 

1 2341 

1 

TCP 

+ 2 

1535 

REE 

2 

LAST 

547 

25,2340 

3 2315 

1 

CA 

-RPL  IMIT 

1536 

REF 

16 

_L  AST 

54  7 

25,2341 

54  061 

TS 

ITEMP1 

1537 

REF 

i 

25, 2342 

l 2320 

0 

TCF 

SETRRCTR  +1 
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P 1 538 

ROUTINE  TO 

ZERO  THE 

RR  CDUS 

ANC 

1 DETERMINE  THE 

ANTENNA  MODE. 

Q 

PR  7 FRO 

CAF 

R T T 1 1+1 

SEF  IF  MONITOR  REPOSITION  OR  NOT  IN  AUTO 

1539 

1540 

•R-E-F- 

REF 

1 

59 

LAST 

545 

25,2344 

7 0110 

0 

MASK 

RADMODES 

IF  SO,  DONT  RE-ZERO  CDUS. 

1541 

REF 

178 

LAST 

546 

25,2345 

10  000 

0 

CCS 

A 

?6,  2 346 

1 3530 

0 

TCF 

-RAD  NOOP 

(IMMEDIATE  TASK  TO  RGOODENO). 

1543 

25,2347 

0 0004 

0 

INHINT 

?6t  2 360 

4 4737 

1 

CS 

B I T 1 3 

SET  FLAG  TO  SHOW  ZEROING  IN  PROGRFSS. 

1545 

REF 

60 

LAST 

548 

25,2351 

7 0110 

0 

MASK 

RADMODFS 

1546 

REF 

27 

LAST 

548 

25,2352 

6 4737 

0 

AD 

B 1 T 1 3 

LAST 

6 4 fl 

2 6,  ? 353 

54110 

0 

TS 

RAO  MODES 

1548 

REF 

66 

LAST 

546 

25,  2 354 

3 4753 

1 

CAF 

ONE 

P FF 

2-0 

LAST 

SO  2 

2 6t  2 365 

0 5203 

0 

TC 

WAITLIST 

1550 

REF 

21 

LAST 

537 

E7 , 1454 

E8ANK= 

LOSC  OUNT 

1551 

REF 

1 

25,2356 

02370 

1 

2C  ADR 

RRZ2 

]_  S 61 

REF 

1 

25, 2 357 

52067 

1 

1552 

REF 

62 

LAST 

548 

25, 2360 

4 01  10 

0 

CS 

RADMODES 

SEE  IF  IN  AUTO  MODE. 

| 6 6 3 

R fF 

35 

1 AS  T 

54  5 

26, 2 361 

7 4752 

1 

MASK 

BIT? 

15  54 

REF 

179 

LAST 

548 

25,2362 

10  000 

0 

CCS 

A 

1555 

REF 

1 

25,2363 

1 2366 

1 

TCF 

ROADBACK 

1556 

REF 

21 

-LAST 

40  1 

25,-2  364 

0 5567 

0 

TC 

ALARM 

AUTO  DISCRETF  NOT  PRES F NT  - TRYING 

1557 

25,2365 

00510 

0 

OCT 

510 

1558 

25,2366 

0 0003 

1 

ROADBACK 

RELINT 

1559  RE-F  3 LAST  341  45,2  367  1 4631  0 TCP  SWRE  TURN 


1560 

REF 

2 LAST  537 

25,2370 
2-6 1 2 37 1 

0 2071 

1 3 646 

0 

l 

RRZ2 

TC 
Tf  F 

RRZE PCSB 
F MHR  AO AP 

COMMON  TO  TURNON  AND  RR  ZERO. 

1562 

25,2  372 

02001 

i 

BIT11+1 

OCT 

02001 

GAP  : 

ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2Q21112-01-1  19:02  NOV.  25,1963  LEMP20S  .114  PAGE  549 

L 

P20-P25  USER'S  PAGE  NO.  46  E7  S3 

P1563 

PROGRAM  NAME  RROESSM  R (HALF-UNIT)  IN  RRTARGET.  REMODES  IF 

R 1 565 
R 1566 
R 1567 
R 1 568 
R1569 
R 1 5 70 
R 1 571 
R 1 572 
R 1 5 73 
R 1 5 74 
R 1575 
R 1 5 76 
R 1577 
R1578 
R 1 579 
R 1580 
R 1 581 
R1582 
R 1583 
R 1584 
R 1 5 85 
R 1 586 
R 1 5 87 

FUNCTIONAL  DESCRIPTION_ 

THIS  INTERPRETIVE  ROUTINE  WILL  DESIGNATE,  IF  DESIRED  ANGLES  ARE 
WITHIN  THE  LIMITS  OF  EITHER  MODE,  TO  A LINE-OF  SIGHT  (LOS)  VECTOR 
(HALE-UNIT)  KNOWN  WITH  RESPECT  TO  THE  STABLE  MEMBER  PRESENT 
ORIENTATION.  INITIALLY  THE  IMU  CDU:S  ARE  READ  AND  CONTROL 
TRANSFERRED  TO  S M NS  TO  TRANSFORM  THE  LOS  VECTOR  FROM  STABLE 
MEMBER  TO  NAV  I GAT  ION- BAS  E COORDINATES  (SEE  ST  G MEMO  ->699) 

RRANGLES  IS  THEN  CALLED  TO  CALCULATE  THE  RR  GIMBAL  ANGLES, 

TRUNNION  AND  SHAFT,  FOR  BOTH  THE  PRESENT  AND  ALTERNATE  MODE. 

RRLIMCHK  IS  CALLED  TO  SEE  IT  THE  ANGLES  CALCULATED  FOR  THE 
PRESENT  MOCE  ARE  WITHIN  LIMITS.  IF  WITHIN  LIMITS,  THE  RETURN 
LOCATION  IS  INCREMENTED,  INASMUCH  AS  NO  VEHICLE  MANEUVER  IS 
RECUIRED,  BEFORE  EXITING  Id-  STARTDES.  IF  NOT  WITHIN  LIMITS  OF  THE 
CURRENT  MOCE,  TRYSWS  IS  CALLED.  FOLLOWING  INVERTING  OF  THE  RR 
ANTENNA  MODE  FLAG  (RADMODES  BIT  12),  RRLIMCHK  IS  CALLED 
TO  SEE-  IF  THE  ANGLES  CALCULATED  FOR  THE  ALTERNATE.  MODE  ARE  WITHIN 
LIMITS.  IF  YES,  THE  RR  ANTENNA  MODE  FLAG  IS  AGAIN  INVERTED, 

TEE  REMODE  FLAG  (RADMODES  BIT  14)  SET,  AND  THE  RETURN  LOCATION 

INCREMENTED1--TO  I NDICATE -NO- VEHICLE  MANEUVER  IS  REQUIRED,  BEFORE 

EXITING  TO  STARTDES.  IF  THESE  ANGLES  ARE  NOT  WITHIN  LIMITS 

OF  THE  ALTERNATE  MODE,  THE  PR  ANTENNA  MODE  FLAG  (RADMODES 

BIT  12)  IS  INVERTED  BEFORE-RETURNING  DIRECTLY  TO  THE  CALLING  PROGRAM 

TO  INDICATE  THAT  A VEHICLE  MANEUVER  IS  REQUIRED. 

R 1 5 8 8 
R 1 5 89 
R 15  90 
R 159 1 
R 1 592 

CALLING  SEQUENCE: 

L ST  CALL  RRTARGET  (LOS  HALF-UNIT  VECTOR  IN  SM  COORDINATES) 
L + l RROESSM 

L + 2 BASIC ( V-EHI  CLE--MANEUV-ER- REQUIRED) 

L+3  BASIC  (NO  VEHICLE  MANEUVER  REQUIRED) 

R 1 593 
R 1594 

ERASABLE  INITIALIZATION  REQUIRED: — 
RRTARGET,  RADMODES 

R 1 595 
R1596 
R 1 597 

SUBROUTINES  CALL  EU= — 

READCCUS,  SMNB , RRANGLES,  RRLIMCHK,  TRYSWS  (ACTUALLY 
PART  CF) , RMODINV 

R1  598 
R 1 599 

JOBS  CR  TASKS  INITIATED. 
NONE 

R 1600 

ALARMS.  NONE 

R 160 1 
R 1602 
R 1603 

EXIT  L+2  (NEITHER  SET  OF-ANGLES  ARE  WITHIN  LIMITS  Of  RELATED  MODE) 

STARTDES  (DESIGNATE  POSSIBLE  AT  PRESENT  VEHICLE  ATT  I TUDE- P E T URNS 

TG  L+3  FROM  STARTDES)  CAN  BE  DONE  IN  PRESENT  VEH  ATTITUDE. 

1605 

1606 

25,2373  43020  1 RROESSM  STQ  CLEAR 

REF  4 LAST  286  25,2374  01113  0 DESRET 

AP:  - 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

16  32 

1633 

1634 

1635 
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REF 

1 

25,2375 

00271 

0 

RRNBSW 

25,2376 

77624 

1 

CALI 

COMPUTES  SINES  AND  COSINES,  ORDER  Y Z X 

DPP 

O 

LAST 

4 g g 

25,2377 

47443 

1 

- C-DJJT  RIG 

-K  t r 

REF 

e 

4 

LAST 

529 

25.2400 

25. 2401 

45175 

01102 

0 

0 

VLOAO 

CALL 

RRTARGET 

LOAD  VECTOR  AND  CALL  TRANSFORMATION 

-REF  -2  LAST  499 — 25,2402  475-75  0 £_SMNB* 


25,2403 

77624 

1 

CALL 

GET  RR  GIM8AL  ANGLES  IN  PRESENT  AND 

n r-r- 

2S  t 2 404 

26133 

1 

R P ANGLES 

ALTERNATE  MODE. 

25,2405 

77776 

1 

EXIT 

n nno4 

o 

INHINT 

REF 

3 

LAST 

52  3 

25,2407 

0 4523 

1 

TC 

RRL I MCHK 

REF 

4 

LAST 

337 

25,2410 

01107 

0 

ADRES 

MODE  A 

CONFIGURATION  FOR  CURRENT 

MODE. 

25,2411 

0 2414 

_L_ 

TC 

+ 3 

NOT  IN  CURRENT  MODE 

REF 

5 

LAST 

549 

25,2412 

25' 1 13 

0 

OKDESSM  I NCR 

DESRET 

INCREMENT  SAYS  NO  VEHICLE 

MANEUVER  RED. 

REF 

1 

25,2413 

0 2432 

0 

TC 

STAR  TDES 

SHOW  DESIGNATE  REQUIRED 

R F F 

5 

1 AST 

5 19 

25, 2414 

4 0104 

0 

CS 

FLAG  WED 8 

REF 

4 

LAST 

51  9 

25,2415 

7 4744 

0 

MASK 

SURFFBIT 

CHECK  IF  ON  LUNAR  SURFACE 

( SURFFL AG=P22F 

25,2416 

0 00  06 

1 

EXTEND 

REF 

1 

25,2417 

1 2456 

0 

BZF 

NORDSTAL 

BRANCH-YES-CANNOT  DESIGNATE  IN  MODE  2 

REF 

1 

25,2420 

0 2461 

0 

TC 

TRY  S WS 

REF 

REF 

6 

5 

LAST 

LAST 

550 

550 

25,  2421 
25, 2422 
2 5,2423 

4 0104 
7 4744 
0 0006 

0 

0 

L 

LUNDESCH  CS 

MASK 

EXTFND 

F LAGWPD8 
SURFFBIT 

OVERFLOW  RETURN  FROM  RR ANGLES 
CHECK  IF  ON  LUNAR  SURFACE 

REF 

2 

LAST 

550 

25,2424 

1 2456 

0 

BZF 

NORDSTAL 

8RANCH-YES-PETURN  TO 

CALLER  - 

ALARM  527 

REF 

38 

LAST 

53  1 

25,2425 

3 0074 

1 

CA 

STATE 

REF 

9 

—LAST 

_§4_6 

25 ,2  426 

7 4745 

_4 

MASK 

- RND  V Z-B I T 

REF 

180 

LAST 

548 

25, 2427 

10  000 

0 

CCS 

A 

TEST  RNDVZFLG. 

REF 

1 

25,2430 

0 2471 

1 

TC 

MODE  SSM 

NOT  ON  MOON-CALL  FOR 

ATTITUDE 

MANEUVER 

RFF 

84 

LAST 

-5  31 

25, 2431 

1 5155 

_L- 

TC  F 

END  OF JOB 

...BUT  NOT  IN  R29. 
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P 16 36  PROGRAM  NAME_  ST  ART DES 

R1638  FUNCTIONAL  DESCRIPTION_ 

R 1640  STARTCES  IS  ENTERED  WHEN  WE  ARE  READY  TO  BEGIN  DESIGNATION. 

R 1642  BIT  14  OF  RADMODES  IS  ALREADY  SET  IF  A REMODE  IS  REQUIRED. 

R 1 644  AT  THIS  TIME,  THE  RR  ANTENNA  MAY-  BE  IN  A REPOS IXIQN_ 

R 1646  OPERATION.  IN  THIS  CASE,  IF  A REMOOE  IS  REQUIRED  IT  MAY  HAVE 

R 1647  ALREACY  BEGUN  BUT  IN  ANY  CASE  THE  REPOSITION  WILL  BE  INTERRUPTED 

R 1648  OTHERWISE,  THE  REPOSITION  WILL  BE  COMPLETED  BEFORE  2-AXIS 
R 1 649  DESIGNATION  BEGINS.  INITIALLY  DESCOUNT  IS  SET  = 60  TO  INDICATE 
R 1650  THAT  30  SECONDS  WILL  BE  ALLOWED  FOR  THE  RR  DATA  GOOD  INBIT 
R1651  (CHAN  33  BIT  4)  IF  LOCK-^-ON  IS  DESIRED  (STATE  BIT  5). -BIT  10 
R 16  52  OF  RACMODE  S IS  SET  TO  SHOW  THAT  A DESIGNATE  IS  REQUIRED. 

R 1653  THE  REPOSITION  FLAG  (RADMODES  BIT  11)  IS  CHECKED.  IF  SET, 

R 16 54  THE  PROGRAM  EXITS  TO  L+3  OF  THE  CALLING  PROGRAM  (SEE  RRDESSM 
R 1 6 55  ANC  RRDESNB)  . THE  PROGRAM  WILL  BEGIN  DESIGNATING  TO  THE  DESIRED 

R 1 6 56  ANGLES  FOLLOWING  THE  REPOSITION  OR  REMODE  IF  ONE  WAS 

R 1657  REQUESTED.  IF  THE  REPOSIT  ION  FLAG- IS  NOT— SET-,  SEIRRECR  IS  CALLED 
R1658  WHICH  SETS  THE  RR  ERROR  COUNTER  ENABLE  BIT  (CHAN  12  BIT  2) 

R 16  59  AND  SETS  L ASTYCMD  AND  LAS  TXCMD  = 0 TO  INDICATE  THE 

R 1 660  DIFFERENCE  BETWEEN  THE  -PRESENT  AND  DESIRED  STATE  OF  THE  ERROR 
R 16  6 1 COUNTERS  . A 20  MILLISECOND  WAITLIST  CALL  IS  SET  FOR  BEGDES 

R 1 662  AFTER  WHICH  THE  PROGRAM  EXITS  TO  L + 3 OF  THE  CALLING  PROGRAM. 


R 1 663  CALLING  SEQUENCE: 

R 1 664  FPCM  RRDESSM  AND  RRDESNB  WHEN  ANGLES  WITHIN  LIMITS. 


R 1 665  ERASAELE  INITIALIZATION  REQUIRED: 

R 1666  RADMODES,  (SEE  DODES) 


R 1 66  7 SUBROUTINES  CALLED. 

R 1 66  8 SETRRECR,  WAITLIST 


R1669  JOBS  OR  TASKS  INITIATED. 
R 1670  BEGDES 


R 16  7 1 

A L A P M S_ 

NONE 

R 1 672 

EXI  T_ 

L + 3 OF 

CALLING  PR&GRAM 

(SEE  RRDESSM) 

R 1673 

L + 2 

OF 

CALLING 

PROGRAM  (SEE  RRDESNB) 

16  74 

fUEF 

6 

L AST 

5 50 

? 5t  2 4T? 

? S 1 1 M 

D STARTDF  S 

T Nf  R 

D F S P FT 

1675 

REF 

63 

LAST 

548 

25,2433 

4 0110 

0 

CS 

RADMODES 

1676 

REF 

31 

LAST 

543 

25,2434 

7 4742 

0 

MASK 

BIT10 

1677 

-REF 

64 

LAST 

55  1 

25, 2435 

26  1 10 

0 

ADS 

RADMODES 

1678 

REF 

23 

LAST 

54  1 

25,2436 

7 4741 

0 

MASK 

BIT11 

1679 

REF 

181 

LAST 

550 

25,  2437 

10  000 

0 

CCS 

A 

1680 

REF 

— 1- 

25,2440 

1 2446 

1 

TCF 

DESRETPN 

1681 

REF 

2 

LAST 

540 

25,2441 

0 2156 

1 

TC 

SETRRECR 
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STORED  AS  A HAL p— UNI T VECTOR  IN  PRTARGET 

CKON  IS  DESIRED.  3IT14  OF  RADMODES  IS 
OR  REPOSITION  OPERATION.  IN  THIS 
THE  REPOSITION  WILL  BE  INTERRUPTED. 

GINS. 


SEE  IF  REPOSITION  IN  PROGRESS. 
ECTR  ALREADY  SET  UP. 


SET  UP  ERROR  COUNTERS 
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1682 

REF 

34 

LAST 

5 1 8 

25,2442 

3 4752 

0 

CAF 

TWO 

1683 

REF 

21 

LAST 

548 

25,2443 

0 5203 

0 

TC 

WAITLIST 

EBANK- 

1 OS COUNT 

16  84 
1685 

REF 

2 

L Wi  1 

LAST 

54  1 

25,2444 

02573 

1 

2C  ADR 

BEGDES 

1685 

25,2445 

52067 

1 

16  86 

REF 

3 

LAST 

526 

25,2446 

3 1306 

0 

DESRFTRN 

CA 

RADCADR 

1687 

25,2447 

0 0006 

1 

EXTEND 

2 5*  2 450 

1 2452 

1 

RZF 

DESRTRN.  _ 

1689 

REF 

85 

LAST 

550 

25, 2451 

0 5155 

0 

TC 

END OF JOB 

1690 

25,2452 

0 0003 

1 

DESRTRN 

RELINT 

16^1 

R FF 

7 

1 AST 

55  1 

25, 2453 

25' 1 13 

0 

I NCR 

DESR  ET 

1692 

REF 

8 

LAST 

552 

25,2454 

3 1113 

0 

CA 

OESR  ET 

1693 

REF 

9 

LAST 

53  1 

25,2455 

1 4640 

0 

TCF 

BANK  JUMP 

1694 

REF 

115 

LAST 

54  4 

25, 2456 

3 4755 

1 

NORDSTAL 

CAF 

ZERO 

LAST 

5 5 2 

? 5t  2 457 

55*306 

1 

TS 

RADCADR 

1696 

REF 

2 

LAST 

552 

25,2460 

1 2452 

1 

TCF 

DESRTRN 
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FIRST 

PASS  THRU  DESIGNATE 

YFS 

NO 

SET  EXIT 

ZERO  RADCAOR  TO  WIPE  OUT  ANYONE 
WAITING  IN  RADSTALL  SINCE  WE  ARE  NOW 
RETURNING  TO  P20  AND  MAY  00  NEW  RADSTALL 


GAP  : 

L 

P 1697 

1698 

1699 

1700 

1701 

1702 

1703 

1706 

1705 

1706 

1707 

1708 

1709 
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SEE  IF  RRDESSM  CAN  BE  ACCOMPLISHED  AFTER  A REMODE. 


„ 

_ 

2 s j 2 4M 

0 2 2 3 3 

1 TRYSWS 

TC 

R MOO  INV 

I NOT  F RUPT  INHIBIT) 

RFF 

4 

LAST 

550 

25,2662 

0 6523 

i 

TC 

RRL I MCHK 

TRY  DIFFERENT  MODE. 

REF 

6 

LAST 

337 

25, 2663 

01111 

i 

ADRES 

MODEB 

r s n 

2 5,2  464 

1 2471 

0 

TC  F 

. NODE  SSM 

VEHICLE  MANEUVER  REQUIRED. 

REF 

3 

LAST 

553 

25,2665 

0 2233 

i 

TC 

RMOT INV 

RESET  SIT12 

466 

3 4736 

1 

CAF 

BIT16 

SET  FLAG  FOR  REMODE. 

REF 

65 

LAST 

55  1 

25, 2667 

26  1 10 

0 

ADS 

RADMODES 

REF  1 25,2670 1 2612  0 TC F OKDESSM 


REF 

RFF 

4 

C) 

LAST 
| AST 

553 
6 5 2 

25 » 2 471 
25,2  472 

0 2233 
25'  1 13 

1 

0 

NODE  S SM 

TC 

INCR 

R MOD  INV 
DE SR  ET 

RE-INVERT 
TO  CALLER 

MODE  AND  RETURN 

*2 

REF 

3 

LAST 

550 

25,2673 

1 2656 

0 

TC  F 

NORDSTAL 

25,2676 

00076 

1 

MAXTRYS 

DEC- 

60 
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P1710  DESIGNATE  TO  SPECIFIC  RR  GIMBAL  ANGLES  (INDEPENDENT  OF  VEHICLE  MOTION).  ENTER  WITH  DESIRED  ANGLES  IN 

R 1712  TANG  AND  TANG  +1. 


1713 

REF 

6 

LAST 

528 

25,2475 

0 4645 

1 

RRDESNB 

TC 

MAKECADR 

1714 

REF 

10 

LAST 

553 

25, 2476 

55' 113 

1 

TS 

DE  SR ET 

17143 

REF 

44 

LAST 

530 

25,2477 

0 5516 

0 

TC 

D0WNFLAG 

RESET  FLAG  TO  PREVENT  DODES  FROM  GOING 

17146 

REF 

5 

LAST 

525 

25,2500 

00041 

1 

ADRES 

LC’SC  MFLG 

BACK  TO  R21 

1715 

REF 

— 4- 

2-5,2501 

3 2474 

_L_ 

CA- 

MAXTP-YS  . 

SFT  TIME-LIMIT  COUNTER 

1716 

REF 

2 

LAST 

520 

25, 2502 

55' 1 14 

0 

TS 

DESCOUNT 

FOR  DESIGNATE 

1717 

25,2503 

0 0004 

0 

INHINT 

SEE  IF  CURRENT  MODE  OK. 

1 7 1-8 

REF 

1 

25t  2504 

0 2540 

1 

TC 

RRL 1 MNB 

D n SP EC T A 1 V41  LIMIT  CHFCK 

1719 

REF 

10 

LAST 

546 

25,2505 

01107 

0 

ADRES 

TANG 

1720 

REF 

1 

25,2506 

1 2523 

0 

TCF 

TRYSWN 

SEE  IF  IN  OTHER  MODE. 

1721 

25,2507 

0 0003 

1 

OKDESNB 

RELINT 

1722 

25,2510 

0 0006 

1 

EXTEND 

1723 

RE-F 

— 1-1 

LAST 

-664— 

26-,  261 1 

-3-1110 

-0- 

-OCA 

JANG-  - 

1724 

REF 

9 

LAST 

338 

25,2512 

53' 751 

1 

OXCH 

TANGNB 

1725 

REF 

40 

LAST 

52  9 

25,2513 

0 6036 

1 

TC 

I NTPRET 

1726 

25,2514 

77624 

1 

CALL 

GET  LOS  IN  NB  COORDS. 

1727 

REF 

2 

LAST 

314 

25,2515 

46041 

0 

RRNB 

1728 

R-EF 

— 5- 

-LAST 

— 65  0 — 

25, 2 5 16 

01102 

0 

STORE 

-RETARGET 

1729 

25,2517 

77414 

0 

SET 

EXIT 

1730 

REF- 

2 

LAST 

550 

25,  2 520 

000  71 

1 

RRN.fi  SW 

1731 

25, 2 521 

0 0004 

0 

INHINT 

1732 

R-EF 

2 

—LAST1- 

-55-0— 

26,2522 

1 2433 

0 

TCF 

STARTDES  +1 

1733 

REF 

5 

LAST 

553 

25,2523 

0 2233 

1 

TRYSWN 

TC 

RMODINV 

SEE  IF  OTHFR  MODE  WILL  DO. 

1734 

REF 

2 

LAST 

554 

25,2524 

0 2540 

1 

TC 

RRLI MNB 

DO  SPECIAL  V 4 1 LIMIT  CHECK 

1735 

REF 

12 

LAST 

654 

25, 2525 

01107 

0 

ADR  FS 

TANG 

1736 

REF 

1 

25,2526 

1 2533 

1 

TCF 

NODE  SNB 

NOT  POSSIBLE. 

1737 

REF 

6- 

LAST 

664- 

25,2 527 

0 2233 

L 

TC 

-R-MPD  T MV 

1738 

REF 

54 

LAST 

553 

25,2530 

3 4736 

1 

CAF 

BIT14 

CALL  FOR  REMODE. 

1739 

REF 

66 

LAST 

55  3 

25,2531 

26  110 

0 

ADS 

P ADMODES 

1740 

-RE-F- 

1— 

25,2  532 

1 2507 

0 

TCF 

OKDESNB 

1741 

REF 

7 

LAST 

554 

25,2533 

0 2233 

l 

NODESNB 

TC 

R MOD  I NV 

REINVERT  MODE  BIT. 

1742 

-R-EF- 

22 

LAST 

-64-8 

25,2  534 

0 5567 

0 

TC 

AL  AP  M 

BAD  INPUT  ANGLFS. 

1743 

25,2535 

00502 

0 

OCT 

502 

1744 

REF 

7 

LAST 

526 

25,2536 

0 6011 

1 

TC 

CLPADMOD 

17442 

-REU 

-86— 

LAST 

-562 

25,2537 

0-5155 

0 

TC 

EN30F JOB 

AVOID  503  ALARM. 

1745 

REF 

160 

LAST 

54  6 

25,2540 

50  002 

0 

RRL I MNB 

INDEX 

0 

THIS  ROUTINE  IS  IDENTICAL  TO  RRLIMCHK 

1746 

25,2541 

3 0000 

1 

CAF 

o 

FXCEPT  THAT  THF  MDDF  I SHAFT  LOWER 

1747 

REF 

161 

LAST 

554 

25,2542 

24  002 

0 

I NCR 

0 

LIMIT  IS  -85  INSTEAD  OF  -70  DEGREES 

1748 

25,2543 

0 0006 

1 

EXTEND 
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1749 

REF 

182 

LAST 

55  1 

25,2544 

5 0000 

1 

INDEX 

A 

1750 

25,2545 

3 0001 

0 

DC  A 

0 

?5t  2 546 

52  062 

1 

DXCH 

I TEMPI 

1752 

RFF 

162 

LAST 

554 

25,2547 

22  002 

0 

LXCH 

Q 

26t  2 560 

^ 4740 

0 

CAF 

B I T 1 2 

1754 

REF 

67 

L 1 

LAST 

554 

25, 2551 

7 0110 

0 

MASK 

R ADM  DDES 

1755 

REF 

183 

LAST 

55  5 

25,2552 

10  000 

0 

CCS 

A 

1766 

RFF 

2 

1 AST 

53  3 

25,2  553 

1 4550 

1 

TCF 

M0DE2CHK 

1757 

REF 

18 

LAST 

555 

25, 2554 

3 0061 

0 

CA 

I TEMPI 

1758 

REF 

8 

LAST 

546 

25,2555 

0 4512 

0 

TC 

MASSUB 

1759 

25,  2556 

66161 

1 

DEC 

-.30555 

1760 

REF 

74 

LAST 

547 

25,2557 

0 0001 

0 

TC 

L 

17^1 

REF 

9 

LAST 

54  7 

? sf  2 560 

3 0062 

o 

CA 

ITEMP2 

1762 

25, 2561 

0 0006 

1 

EXTEND 

1763 

REF 

i 

25,2562 

6 2570 

1 

BZMF 

NEGSHAFT 

1 7 64 

RE_F 

2 

L AST 

53  4 

25 , 2 563 

6 45  62 

_1 

AD 

5.5DEGS 

1765 

REF 

9 

LAST 

555 

25,2564 

0 4512 

0 

SHAFTLIM  TC 

MACSUB 

1766 

25,2565 

64420 

0 

DEC 

-.35833 

1767 

REF 

75 

LAST 

55  5 

25 , 2 566 

0 0001 

0 

TC 

L 

1768 

REF 

2 

LAST 

534 

25,2567 

0 4560 

0 

TC 

RRL I MOK 

1769 

REF 

1 

25,2570 

6 2572 

0 

NEGSHAFT  AO 

2 0.5  DEGS 

1770 

REF 

— 1 — 

25,-2571 

1-2  5 64 

-0- 

ICE 

SHAF  TLIM 

1771 


25^2  572 


03512  1 20.5DEGS  DEC 


11389 
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USER  ' S PAGE  NO.  52 
READ  GIMBAL  ANGLES  INTO  I TEMP 

LICALLER  +2)  TO  L 
5 EE  WHICH  MODE  RR  IS  IN 

MODE  2 CAN  USF  RRLIMCHK  CODING 

MODE  1 IS  DEFINED  AS 
1.  ABS1T ) L 55  PEGS 
2 SHAFT  LIMITS  AT  +59,  -85  PEGS 

LOAD  SHAFT  ANGLE 

IF  NEGATIVE  SHAFT  ANGLE,  ADD  20.5  DEGS 

66. 5 DEGREES 
NOT  IN  LIMITS 
IN  LIMITS 

MAKE  NEGATIVE  SHAFT  LIMIT  -85  DEGREES 


PAGE  555 
E7  S3 
STORAGE 


GAP: 
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L 

P1772 

R l 778 
R 1774 
R l 775 
R 1 7 76 
R 1777 
R 1778 
R 1 779 
R 1 7 80 
R 1781 
R 1782 
R 1 7 83 
R l 7 84 
R 17  85 
R 1 7 86 
R 1 7 87 
R 1 7 88 
R 1789 
R 1 790 
R 1 7 91 
R 1792 
R 1 79  3 
R 1794 
R1795 
R 1 796 
R 1 797 
R l 798 

R 1 799 
R 1800 
R1801 
R 1 802 

R 1803 
R 1 8 04 


R 1 805 
R 1 806 

R 1 80  7 

R 1808 
R1809 

R1810 
R 1 81 1 
R 18  1 2 

1813 


USER'S  PAGE  NO.  53  E7  S3 


PRC GR  AM  NAME_  BEGDES 
FUNCTIONAL  DESCRIPTION_ 

BEGOES  CHECKS  VARIOUS  DESIGNATE  REQUESTS  AND  REQUESTS  THE 
ACTUAL  RR  DESIGNATION.  INITIALLY  A CHECK  IS  MADE  TO  SEE  IF  A 
REMGOE  (RADMODES  BIT  14)  IS  REQUESTED  OR  IN  PJLOGRFSS.  If  - SC, 

CONTROL  IS  TRANSFERRED  TO  STDES  IG  AFTER  ROUTINE  RFMODE  IS 

EXECUTED.  IF  NO  REMODE,  STDESIG  IS  IMMEDIATELY  CALLED  WHERE 

FIRST  THE  REPOSITION  FLAG  (RADMODES  BIT  11)  IS  CHECKED.  IF 

PRESENT,  TEE  DESIGNATE  FLAG  (RADMODES  BIT  10)  IS  REMOVED 

AFTER  WHICH  THE  PROGRAM  EXITS  TO  RDBADEND.  IF  THE  RFPOSITION 

FLAG  IS  NOT  PRESENT,  THE-  CONTINUOUS  DESIGNATE  FLAG  (RADMODES 

BIT  15)  IS  CHECKED.  IF  PRESENT,  ON  EXECUTIVE  CALL  IS  IMMEDIATELY 

MACE  FOR  DODES  AFTER  WHICH  A .5  SECOND  WAIT  IS  INITIATED  BEFORE 

REPEATING  AT  STDESIG.  IF  THE  RR  SEARCH  ROUTINE  (LRS24.1)  IS  DESIGNATING 

TO  A NEW  PCINT  ( N EWPTFLG  SET)  THE  CURRENT  DESIGNATE  TASK  IS  TERMINATED. 

IF  CONTINUOUS  DESIGNATE  IS  NOT  WANTED,  THE  DESIGNATE  FLAG  (RADMODES 

BIT  10)  IS  CHECKED.  IF  NOT  PRESENT,  THE— PROGRAM  EXITS  TO  ENDPADAR_TO 

CHECK  RR  CCU  FAIL  BEFORE  RETURNING  TO  THE  CALLING  PROGRAM.  IF  DESIGNATE 

IS  STILL  REQUIRED,  DESCOUNT  IS  CHECKED  TO  SEE  IF  THE  30  SECONDS  HAS 

EXPIRED  BEFORE  RECEIVING-  THE  RR  DATA  GOOD  (CHAN  33  BIT  4) 

SIGNAL.  IF  OUT  OF  TIME,  PROGRAM  ALARM  00503  IS  REQUESTED,  THE 
RR  AUTO  TRACKER  ENABLE  AND  RR  ERROR  COUNTER  ENABLE 
(CHAN  12  BITS  14,2)  BITS  REMOVED,  AND  THE  DESIGNATE  FLAG 
(RADMCDES  BIT  10)  REMOVED  BEFORE  EXITING  TO  RDBADEND.  IF 
TIME  FAS  NOT  EXPIRED,  DESCOUNT  IS  DECREMENTED,  THE 
EXECUTIVE- CALL  MADE  FOR -DODES,  AND  A .5  SECOND  WAIT  INITIATED 
BEFORE  REPEATING  THIS  PROCEDURF  AT  STDESIG. 

CALLING  SFCUENCE: 

WAITLIST  CALL  FROM  STARTDES 

TCF  3FGDES  FROM  DORREPOS 

TC  STCESIG  RETURNING,  FROM  REMODE 

ERASABLE  INITIALIZATION  REQUIRED: 

DESCOUNT,  RADMODES 


SUBROUTINES  CALL  E C_ 

ENCRACAR,  FINDVAC 

JOBS  OR  TASKS  INITIATED.  DODES 

ALARMS.  PROGRAM  ALARM  00503  (30  SECONDS  HAVE  EXPIRED)  WITH  NO  RR  DATA 
GOO C (CHAN  33  BIT  4)  RECEIVED  WHEN  LOCK-ON  (STATE  BIT  5)  WAS  REQUESTED. 

EXIT.  TASKOVER  (SEARCH  PATTERN  DESIGNATING  TO  NEW  POINT) 

ENCRACAR  (NO  DESIGNATE  - RADMODES  BIT  10) 

R CE  AD  END  (RCPOSITION  OR  30  SECONDS  -EXPIRED) 

REF  68  LAST  555  25,2573  4 OHO  0 BEGDES  CS  RADMODES 


GAP: 

L 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821- 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1857 

1858 

1 859 
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-P  25 
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REF 

55 

LAST 

554 

25,2574 

7 4736 

0 

MASK 

B I T 1 4 

REF 

184 

LAST 

555 

25,2575 

10  000 

0 

CCS 

A 

RF  F 

2 

1 AST 

54  3 

2 5, 2 576 

0 2602 

1 

TC 

STDESIG  _ 

REF 

i 

25,2577 

0 2171 

1 

TC 

REMODE 

REF 

8 

LAST 

545 

25,2600 

0 5221 

0 

DESLOOP 

TC 

F I XD  EL  AY 

2 SAMPLES  PER  SECOND. 

25,2601 

00062 

0- 

. DEC 

.50 

REF 

24 

LAST 

55  1 

25,2602 

3 4741 

1 

STDESIG 

CAF 

BIT1  1 

REF 

69 

LAST 

55  6 

25,2603 

7 0110 

0 

MASK 

P ADMCDES. 

SEE  IF  GIMBAL  LIMIT  MONITOR  HAS  FOUND  US 

REF 

185 

LAST 

557 

25,2604 

10  000 

0 

CCS 

A 

OUT  OF  BOUNOS.  IF  SO,  THIS  BIT  SHOWS  A 

REF 

1 

25,2605 

1 2623 

0 

TC  F 

BADD  ES 

REPOSITION  TO  BE  IN  PROGRESS. 

REF 

70 

LAST 

55  7 

25,2606 

10  110 

0 

CCS 

R ADMCDES 

SEE  IF  CONTINUOUS  DESIGNATE  WANTED. 

25,2607 

1 2612 

1 

TC  F 

+ 3 

IF  SO,  DON T CHECK  BIT  10  TO  SEE  IF  IN 

25,2610 

1 26  12 

1 

TC  F 

+ 2 

LIMITS  BUT  GO  RIGHT  TO  FINDVAC  ENTRY. 

REF 

1 

25,2611 

1 2630 

1 

TC  F 

MOREDES  +1 

REF 

— 74 

—EAST 

55  7 

25 ,2612 

4 0110 

o 

cs 

R ADM.  ODES- 

IF  NON-CQNT I NUQUS  , SEE  IF  FND  OF 

REF 

32 

LAST 

55  1 

25,2613 

7 4742 

0 

MASK 

BIT10 

PROBLEM  (DATA  GOOD  IF  LOCK-ON  WANTFD  OR 

REF 

186 

LAST 

557 

25,2614 

10  000 

0 

CCS 

A 

WITHIN  LIMITS  IF  NOT).  IF  SO,  EXIT  AFTER 

REF  2 LAST  548  25,2615  1 3546  1 ICE ENOPADAP  CHECKING  RR  CDU  FAIL  . 


REF 

3 

LAST 

554 

25,2616 

1 1'  l 14 

0 

STDESIG1 

CCS 

DESCOUNT 

SEE  IF 

THE  TINE  LIMIT  HAS  EXPIRED 

RE  F - 

— 2- 

LAST 

55  7 

25, 2617 

1 2627 

1 - 

TC  F 

MOREDES 

REF 

1 

25,2620 

4 2635 

1 

CS 

B 14+B2 

IF  OUT 

OF  TIME,  REMOVE  ECR  ENABLE  + TRKR 

25,2621 

0 00  06 

1 

EXTEND 

REF 

32 

LAST 

54  1 

25,2622 

03  012 

1 

WAND 

CHAN12 

REF 

33 

LAST 

557 

25,2623 

4 4742 

0 

BADDES 

CS 

BIT10 

REMOVE 

DESIGNATE  FLAG. 

REF 

72- 

EAST 

55  7 

— 25,  2624 

7 0110 

0 - 

MASK 

R ADMCDES 

REF 

73 

LAST 

557 

25, 2625 

54  110 

0 

TS 

RAD MODES 

REF 

1 

25,2626 

1 3562 

1 

TC  F 

RDBADEND 

RFF 

4 

LAST 

557 

25, 2627 

55*114 

0 

MOREDES 

TS 

DESCOUNT 

REF 

8 

LAST 

530 

25,2630 

3 7713 

0 

CAF 

PR  I 0 26 

UPDATE 

GYRO  TORQUE  COMMANDS. 

RFF 

21 

LAST 

530 

25,-2  631 

0 5105 

0 

TC 

FINDVAC 

REF 

23 

LAST 

552 

E7, 1454 

EB ANK= 

LOSC  CUNT 

REF 

1 

25,2632 

02636 

0 

2CADP 

DODES 

REF 

— 1 — 

25,2633 

52067 

1 

REF 

1 

25, 2634 

1 2600 

1 

TC  F 

DESLOOP 

25,2635 


20002  1 B14+B2  OCT 


20002 


GAP: 

L 

P 1860 

R 1 8 6 1 
R1862 
R1863 
R 1 869 
R 18  65 
R1  866 
R 1867 
R 1 86  8 
R 1 869 
R1870 
R 18  71 
R1872 
R1873 
R1879 
R 1 8 75 
R1876 
R 1 877 
R 1878 
R 1 879 
R 1 8 80 
R 18  8 1 
R 1 8 8 2 
R 1883 
R 1 8 84 
R 1 8 8 5 
R 1 886 
R1887 
R 1 8 8 8 
R 1 889 
R 1890 
R 1891  - 
R1892 
R 18  93 
R 1899 
R 1 895 
R 1 896 
R1897 
R 1898 

R l 899 
R 1900 

R 1901 
R 1902 
R 1 9 03 


R 1904 
P 1 9 05 
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PROGRAM  NAME_  DOOES 
FUNCTIONAL  DESCRIPTION_ 

OC'DES  CALCULATES  AND  REQUESTS  ISSUANCE  OF  RR  GYRO  TORQUE 
COMMANDS.  INITIALLY  THE  CURRENT  RR  C DU  ANCLES  ARE  STORED  AND 
THE  LG-S  HALF-UNIT  VECTOR  TRANSFORMED  FROM  STABLE  MEMBER— X-C 
NAVIGATION  BASE  C CORDI NAT  ES  VIA  SMNB  IF  NECESSARY.  THE 
SHAFT  ANO  TRUNNION  COMMANDS  ARE  THEN  CALCULATED  AS  FOLLOWS_ 

+ SHAFT  = LOS-  — (COSTS),  -0,  -SIN  (SI)  (DOT  PRODUCT) 

-TRUNNION  = LOS  . (SIN  (T)  SIN  (S),  COS  (T),  SIM  (T)  COS  (S)  ) 

THE  SIGN  OF  THE  SHAFT  COMMAND  IS  THEN  REVERSED  IF  IN  MODE  2 

(RADMOCES  BIT  12  ) BECAUSE-  A RELAY  IN  THE  -RR-  REV  ERSE  S THE 

POLARITY  OF  THE  COMMAND.  AT  RRSCALUP  EACH  COMMAND  IS 

SCALED  AND  IF  EITHER,  OR  BOTH,  OF  THE  COMMANDS  IS  GREATER  THAN 

.5  DEGREES,  MPAC  +1  IS  SE-T  POSITIVE.  IF  A CONTINUOUS  DESIGNATE 

(RADMOCES  BIT  15)  IS  DESIRED  AND  THE  SEARCH  ROUTINE  IS  NOT  OPERATING, 

THE  RR  AUTO  TRACKER  ENABLE  BIT  (CHAN  12  BIT  19)  IS  CLEARED  AND  P. ROUT 
CALLED  TO  PUT  OUT  THE— COMMANDS  PROVIDEC  NO  RE-POSITION  (RADMCDES  BIT  11) 
IS  IN  PROGRESS.  IF  A CONTINUOUS  DESIGNATE  AND  THE  SEARCH  ROUTINE  IS 
OPERATING  (SRCH3PT  FLAG  SET)  THE  TRACK  ENABLE  IS  NOT  CLEARED.  IF  NO 
CONTINUOUS-DESIGNATE  AND  BOTH  COMMANDS  ARE  NOT  LESS  THAN  .5  DEGREES  AS 
INDICATED  EY  MPAC  +1,  THE  RR  AUTO  TRACKER  ENABLE  BIT  (CHAM  12  BIT  19)  IS 
CLEARED  AND  RROUT  CALLED  TO  PUT  OUT  THE  COMMANDS  PROVIDED  NO  REPOSITION 
(RADMCDES  BIT  -11)  IS  IN  PROGRESS.  IF  BOTH  COMMANDS  ARE  LESS  THAN  .5 
DEGREES  AS  INDICATED  BY  MPAC+1,  THE  RR  AUTO  TRACKER  ENABLE  BIT 
(CHAN  12  BIT  19)  IS  CLEARED  AND  RROUT  CALLED  TO  PUT  OUT  THE 
COMMANDS  PRO  V I DF  D NO  - REPO-S I T I ON  (RADMODES  BIT  11)  IS  IN 
PROGRESS.  IF  BOTH  COMMANDS  ARE  LESS  THAN  .5  DEGREES,  THF 
LOCK-CN  FLAG  (STATE  BIT  5)  IS  CHECKED.  IF  NOT  PRESENT,  THE 
DESIGNATE  FLAG  ( R ADMODES— 8 1 T 10)  IS  CLEARED-,  THE-  RR  ERROR-  _ 

COUNTER  ENABLE  BIT  (CHAN  12  BIT  2)  IS  CLEARED,  AND  ENDOFJDB 
CALLED.  IF  LOCK-ON  IS  DESIRED,  THE  RR  AUTO  TRACKER  (CHAN  12 
BIT  19)  I S-ENABL  ED  FOLLOWED-BY  A CHECK  OF  THE  RECEIPT  OF  -THE 
RR  DATA  GOOD  (CHAN  33  BIT  9)  SIGNAL.  IF  RR  DATA  GOOD 
PRESENT,  THE  DESIGNATE  FLAG  (RADMODES  BIT  10)  IS  CLEARED, 

THE  RR  ERROR  COUNTER  ENABLE  BIT  (CHAN  12  BIT  2)  IS  CLEARED, 

AND  ENDOF JOB  CALLED.  IF  RR  DATA  GOOD  IS  NOT  PRESENT,  RROUT 
IS  CALLED  TO  PUT  OUT  THE  COMMANDS  PROVIDED  NO  REPOSITION 
(RADMCDES  BIT  11)  IS  IN  RROGRESS  AFTER  WHICH  THE  JOB  I S I ERM  IN AT  ED 
VIA  ENDOF JOB  . 

CALLING  SEQUENCE: 

EXECUTIVE  CALL  EVERY  .5  SECONDS  FROM  BEGDES. 


ERASABLE  INITIALIZATION  REQUIRED: 

RRTARCET  (HALF-UNIT  LOS  VECTOR  IN  EITHER  SM  OR  NB  COORDINATES), 
LOKCNSW  (STATE  BIT  5),  RRNBSW  (STATE  BIT  6),  RADMODES 


SUBROUTINES  C ALL  E C_ 

READCDUS,  SMNB,  CCULOGIC,  MAGSUB,  RROUT 


GAP  : 


ASSEMBLE  REVISION  0-6*?— OF  AT3C  PROGRAM  LUMINARY  BY  NASA  2-0-24-112-011 


L 

R 1906 
R 1907 

R 1 9 08 

R 1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 


P 20— P 2 5 

JCBS  OR  TASKS  IN  I T I AT  ED_ 
NONE 

A L A RM  S_  NONE 

EX  I T_  ENDCF JOB  (ALWAYS) 


25,2636 

0 0006 

1 DODFS 

EXTEND 

^4  q 

3 0036 

1 

DCA 

C OUT 

REF 

13 

LAST 

554 

25,2640 

53'  110 

1 

DXCH 

TANG 

554 

n A03fS 

1 

TC 

I NTP  RET 

25,2642 

77201 

1 

SETPD 

VLOAD 

25,2643 

nnnoi  o 

0 

REF 

6 

LAST 

554 

25,2644 

01102 

0 

RRTARGET 

25,2645 

742  14 

0 

BON 

VX  SC 

REF 

3 

LAST 

554 

25,2646 

00311 

1 

RRNBSW 

REF 

i 

25,2647 

52661 

1 

DONBRD 

REF 

i 

25,2650 

01767 

0 

ML3S  V 

25,2651 

633  72 

1 

VSL1 

PD  V L 

REF 

2 

LAST 

128 

25, 2652 

01761 

0 

LCSVEL 

25,2653 

53361 

0 

VX  SC 

VAD 

RFF 

1 

25,2654 

13  0 72 

0 

MCTOMS 

25,2655 

45056 

0 

UNIT 

CALL 

REF 

3 

LAST 

550 

25,2656 

47443 

1 

CDUTR IG 

25*2657 

776  24 

1 

CALL 

REF 

3 

LAST 

550 

25,2660 

47575 

0 

*SMNB* 

? St  2 4/  1 

1 40  41 

l nnNRRn 

STOOL 

320 

REF 

14 

LAST 

55  9 

25, 2662 

0 1 1 1 1 

1 

TANG  +1 

25,2663 

41434 

1 

RTB 

PUSH 

REF 

q 

LAST 

38  7 

25,2664 

21465 

0 

C DUL  CGIC 

25,2665 

65356 

1 

SIN 

P DDL 

25, 2666 

41546 

0 

COS 

PUSH 

25, 2667 

65205 

0 

DM  P 

POOL 

25,2670 

00041 

1 

32D 

25,2671 

00045 

0 

36D 

25, 2672 

44205 

0 

DM  P 

8DSU 

25,2673 

00001 

0 

0 

25,2674 

77626 

0 

STADR 

REF  15  LAST  55-9  75,7675  76666  0 STORE  TANG  +1 


REFL 

16 

LAST 

55  9 

25,2676 
-2-5,2  677 

47135 

OHIO 

0 

0 

SLOAD 

RTB 

TANG 

REF 

10 

LAST 

559 

25, 2700 

21465 

0 

CDULCGIC 

25,2  701 

71406 

0 

PUSH 

COS 

25,2702 

73525 

J 

POOL 

S IN 

25,2703 

41206 

0 

PUSH 

DMP 

25,2704 

00003 

1 

2 
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TARGET  IN  NAV-9ASE  COORDINATES 
MULTIPLY  UNIT  LOS  BY  MAGNITUDE 


ADD  ONE  SECOND  RELATIVE  VFLOCITY  TO  LOS 


SHAFT  COMMAND  = V ( 32 D ) . ( COS  I S ) , 0, 
I-SIN (S ) ) . 

SIN(S)  TO  0 AND  COS(S)  TO  2. 


SHAFT  COMMAND 


GAP: 
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1949 

25,2705 

65352 

0 

SL1 

POOL 

DEFINE  VECTOR  U = 

(SIN(T)SINIS) ) 

1950 

25,2706 

00005 

1 

4 

(COS  t T)  ) 

2 5 1 2 707 

41325 

-0 — 

POOL- 

DMP 

(SIN! T ) COS(S ) ) 

1952 

25)2710 

00007 

0 

6 

1953 

25,2711 

00001 

0 

0 

2S, ? 71 ? 

55552 

0 

Si.  1 

V-D.E-F 

1955 

25,2713 

77441 

0 

DOT 

EXIT 

DOT  U WITH  LOS  TO 

GET  TRUNNION  COMMAND. 

1956 

25,2714 

00041 

1 

32D 

GAP:  ASSEMBLE  REVISION  069  OF  A GG  -PROGRAM  LUMINARY  BY  NASA  20211  12-011 

L P20-P25 

p 1957  AT  THIS  POINT  WE  HAVE  A ROTATION  VECTOR  IN  DISH  AXES  LYING 

R 19 59  COMMANDED  RATE  AND  ENABLE  THE  TRACKER  IF  WE  ARE  WITHIN  .5  DEGREES  OF 


1961 

REF 

231 

LAST 

529 

25,2715 

4 0154 

0 

cs 

MPAC 

1962 

25,  2 716 

0 0006 

1 

EXTEND 

1963 

RE  F 

25,  2 717 

7 3066 

-0 

MP 

ROES  GAIN 

1964 

REF 

17 

LAST 

559 

25,2720 

55*107 

1 

TS 

TANG 

1965 

REF 

74 

LAST 

55  7 

25,2721 

4 0110 

0 

CS 

RADMODES 

1966 

REF 

32 

LAST 

5 5 5 

25, 2 722 

7-4740 

_J 

MASK 

8 I T 1 2 

1967 

25,2723 

0 0006 

1 

EXTEND 

1968 

25,2724 

1 2727 

0 

BZF 

+ 3 

1969 

REF 

18 

CAST 

- 56  1 

25,2725 

-3-1110 

J3 

CA 

TANG  +1 

1970 

25,2726 

1 2730 

0 

TC  F 

+ 2 

1971 

REF 

19 

LAST 

56  1 

25, 2727 

4 1110 

1 

+ 3 CS 

TANG  +1 

1972 

25,273  0 

- 0 00  06 

3 

EXTEND 

1973 

REF 

2 

LAST 

56  1 

25, 2731 

7 3 066 

0 

MP 

R DES  GAIN 

1974 

REF 

20 

LAST 

56  1 

25, 2732 

55' 1 10 

1 

TS 

TANG  +1 

1975  REF  62  1 AST  56  9 25,2  733  0 6036 . 1 TC  I NT  PPET 


1976 

25, 2734 

41345 

0 

DLOAD 

DMP 

1977 

2 5*  2 735 

00003 

1 

2 

1978 

25,2736 

00005 

1 

4 

1979 

25,2737 

65352 

0 

SL1 

PDDL 

1980 

25*2740 

65?  76 

1 

DCOMP 

PDDL 

1981 

25,2  741 

00001 

0 

0 

1982 

25, 2742 

72405 

0 

DMP 

S LI 

1983 

2 5,2  743 

00005 

1 

4 

1984 

25, 2744 

43066 

0 

VDEF 

BON 

1985 

REF  4 

LAST 

55  9 

25,2745 

00311 

1 

RRNBSW 

1986 

- 2 5,2  746 

52751 

0 

+ 3 

1987 

25,2747 

77624 

1 

CALL 

1988 

REF  1 

25,2750 

47577 

1 

* NB  S M* 

1989 

25,2751 

77441 

0 

DOT 

EXIT 

1990 

REF  7 

LAST 

55  9 

25,  2 752 

01102 

0 

RRTARGET 

1991 

25*2753 

0 0006 

1 

FX  TFND 

1992 

REF  1 

25,2754 

4 3070 

1 

DCS 

C0S1  /2DG 

1993 

REF  232 

LAST 

56  1 

25,2755 

20  155 

1 

DAS 

MP4C 

1994 

REF  233 

LAST 

-56  1 

2 5,2756 

10  154 

0 

CCS 

MPAC 

1995 

REF  116 

LAST 

552 

25,2757 

3 4755 

1 

CA 

ZFRO 

1996 

25,  2760 

l 2762 

1 

TC  F 

+ 2 

1997 

-REF  6-7 

LAST  - 

548 

25,2761 

3 4753 

1 

CA 

ONE 

1998 

REF  234 

LAST 

56  1 

25,2762 

54  155 

1 

TS 

MPAC  +1 
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N THE  TS  PLANE.  CONVERT  THIS  TO  A 
THE  TARGET. 

DOT  WAS  NEGATIVF  OF  DESIRED  ANGLE. 

SCALING  DN  INPUT  ANGLE  WAS-  4 RADIANS. 
TRUNNION  COMMAND. 

A RELAY  IN  THF  RR  REVFRSES  POLARITY  OF 
THE  SHAFT  COMMANDS  IN  MODE  2 SO  THAT  A 
POSITIVE  TORQUE  APPLIED  TO  THF  SHAFT 
GYP.O  CAUSES  A POSITIVE  CHANGE  IN  THF 
SHAFT  ANGLE.  COMPENSATE  FOR  THIS  SWITCH 
BY  CHANGING  THE  POLARITY  OF  OUR  COMMAND. 


SCALING  ON  INPUT  ANGLE  WAS  4 RADIANS. 
SHAFT  COMMAND. 


COS(S) . 

COSIT). 

7 COMPONENT  OF  URR. 

Y COMPONENT  = -SIN(T). 

SINIS). 

cnsiT). 

FORM  URR  IN  NB  AXES. 

BYPASS  NBSM  CONVERSION  IN  VFRB  41. 


GET  URR  IN  SM  AXES. 

GET  COSINE  OF  ANGLE  BETWEEN  RR  AND  LOS. 


DIFFERENCE  OF  COSINES,  SCALED  B-2. 

IF  COS  ERROR  BIGGER,  ERROR  IS  SMALLER. 

ZERO  IF  RR  IS  POINTED  OK,  ONE  IF  NOT. 


GAP 
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L P20-P25 

P1999  SEE  IF  TRACKER  SHOULD  BE  ENABLED  OR  DISABLED. 


2000 

REF  - 75 

LAST 

56  1 

25, 2763 

10  1 10 

0 

CCS 

RADMODFS 

2001 

REF  1 

2 5,  2 764 

1 2767 

1 

TCF 

SIGNLCHK 

2002 

REF  2 

LAST 

562 

25,2765 

1 2767 

1 

TCF 

SIGNLCHK 

200  3 



25,2766 

1 301 7 

-0 

TCF 

-DORR-OUT— 

2004 

REF  235 

LAST 

56  1 

25,2767 

10  155 

1 

SIGNLCHK  CCS 

MP AC  +1 

2005 

REF  1 

25,2770 

1 3000 

0 

TCF 

DGOODCHK 

2006 

Rff  39 

- LAST 

5 5 0 

25, 2771 

4 00  74 

_0_ 

CS 

STATE 

2007 

RFF  1 

25, 2772 

7 4747 

0 

MASK 

LOKONBIT 

2008 

REF  187 

LAST 

557 

25, 2773 

10  000 

0 

CCS 

A 

2009  REF  1 25,2774  1 3005  0 TCF  RRDESDUN 


2010 
201 1 

REF 

56 

LAST 

557 

25.2775 

25.2776 

3 4736 
0 0006 

1 

-l— 

CAF 

EXTEND 

8IT14 

2012 

REF 

33 

LAST 

557 

25,2777 

05  012 

1 

WOR 

CHAN  12 

2013 

REF 

24 

—LAST 

535 

2 5,  3000 

3 4750 

_1_ 

DGOODCHK 

CAF- 

-B-I -T-4  - 

2014 

25,3001 

0 0006 

1 

EXTEND 

2015 

REF 

9 

LAST 

516 

25, 3002 

02  033 

0 

RAND 

CHAN  33 

2016 

REF 

ies 

-LAST 

56  2 

25, 3003 

10  000 

0 

CCS 

A 

2017 

REF 

2 

LAST 

562 

25, 3004 

1 3017 

0 

TCF 

DOR  POUT 

2018 

REF 

- 34 

LAST 

5 5 7 

2 5 ,-3005 

4 4742 

-0 

RRDESDUW 

r c 

B I T 1 0 

2019 

REF 

76 

LAST 

562 

25,3006 

7 01  10 

0 

MASK 

RADMODES 

2020 

25, 3007 

0 0004 

0 

INHINT 

2021  REF  77  LAST  56  2 - 25,3  010  54  110  0 TS-  RADMODES 


2022 

REF 

45 

LAST 

554 

25,3011 

0 5516 

0 

TC 

DOWNFLAG 

2023 

REF 

6- 

LAST 

554 

2 5,3  012 

00041 

ADRES 

LOSC  NFLG 

2024 

REF 

36 

LAST 

54  8 

25,3013 

4 4752 

1 

CS 

B IT2 

2025 

25, 3014 

0 0006 

1 

EXTEND 

2026 

-REF- 

34 

LAST 

56  2 

25, 3015 

03  012 

1 

WAND 

CHAN  12 

2027 

REF 

87 

LAST 

554 

25,3016 

1 5155 

1 

TCF 

END OF JOB 

2028 

REF 

22 

L AST 

—510 

25,3017 

4 0074 

o 

nno  d ni  it 

pi  Ar Iajr nn 

20282 

REF 

10 

LAST 

550 

25,3020 

7 4745 

1 

■UUtxMJU  1 

MASK 

1 L P L?  Vv  rVU  VJ 

RNDVZBIT 

2029 

REF 

189 

LAST 

562 

25,3021 

10  000 

0 

CCS 

A 

2030 

REF 

1 

25,30 22 

0 3041 

1 

TC 

NOTP  20 

2031 

REF 

43 

LAST 

56  1 

25,3023 

0 6036 

1 

TC 

I NTPRET 

2032 

25,3024 

74375 

0 

VLOAD 

VXSC 

2033 

REF 

—8 

LAST 

554 

25, 3025 

01 1 02 

o 

RP  T A RGE  T 

2034 

RFF 

2 

LAST 

559 

25,3026 

01767 

0 

MLOS  V 

2035 

25, 3027 

41572 

1 

VSL 1 

PUSH 

2036 

25, 3030 

743  75 

o 

VLOAD 

vxsc 

2037 

REF 

3 

LAST 

555 

25, 3031 

01761 

0 

L OS  V F L 

2038 

REF 

2 

LAST 

559 

25, 3032 

13072 

0 

MC  TO  MS 

2039 

25,3033 

53362 

0 

VSR1 

VAD_ 

2040 

25, 3034 

77656 

1 

UNIT 

2041 

REF 

9 

LAST 

56  2 

25, 3035 

15102 

0 

STOOL 

RPTARGET 
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IF  CONTINUOUS  DESIGNATE  WANTED,  PUT  OUT 
COMMANDS  WITHOUT  CHECKING  MAGNITUDE  OF 
ERROR  SIGNALS 

SEE  IF  BOTH  AXES  WERE  WITHIN  .5  DEGS. 

TF  WITHIN  I IMTTS  AND  NO  LOCK-ON  WANTED, 
PROBLEM  IS  FINISHED. 

ENABLE  THE  TRACKER. 

SEE  IF  DATA  GOOD  RECEIVED  YET 


WHEN  PROBLEM  DONE,  REMOVE  BIT  10  SO  NEXT 
WAITLIST  TASK  WE  WILL  GO  TO  RGOOPEND . 


RESET  LOSCMFLG  TO  PREVENT  A 
RECOMPUTATION  OF  LOS  AFTER  DATA  GOOD 
TURN  OFF  ENABLE  RR  ERROR  COUNTER 


WITH  ECTR  DISABLED. 

IF  NOT  IN  P20/P22  BUT  V41, DON'T  DO 
VFLOCITY  CORRECTION. 


MULTIPLY  UNIT  LOS  BY  MAGNITUDE 


ADD  .5  SEC.  OF  VELOCITY 
TO  LOS  VECTOR 


STORE  VELOCITY-CORRECTED  LOS  (UNIT) 
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P20-P25 


USER'S  PAGE  NO.  60 


E7  S3 


2042 

25,3036 

00045 

0 

36D 

2043 

REF 

3 

LAST 

562 

25,3037 

01767 

0 

STORE 

ML  OS  V 

AND  STORE  MAGNITUDE 

25, 3040 

77776 

1 

EXIT 

2045 

25, 3041 

0 0004 

0 

NOTP20 

INHINT 

2046 

REF 

78 

L AST 

562 

25, 3042 

4 0110 

0 

CS 

R AOMODES 

PUT  OUT  COMMAND  UNLESS  MONITOR 

7047 

R FF 

25 

LAST 

55  7 

25,3043 

7 4741 

0 

MASK 

BIT1  1 

REPOSITION  HAS  TAKEN  OVER. 

2048 

REF 

190 

L AST 

562 

25,3044 

10  000 

0 

CCS 

A 

2049 

REF 

2 

LAST 

545 

25,3045 

0 2306 

0 

TC 

RROUT 

2050 

REF 

8 

LAST 

509 

25,3046 

3 0076 

0 

CA 

FLAGWRD2 

2050C5 

REF 

1 

25, 3047 

7 4740 

1 

MASK 

LOSCMRIT 

IF  LOSCMFL  G NOT  SET,  DON'T  TEST 

7 n so  i 

2 5,  3 05  0- 

0 0006 

1 

EXTEND 

LOS  COUNTER 

205015 

REF 

88 

LAST 

562 

25, 3051 

1 5155 

1 

BZF 

ENDOFJOB 

20502 

REF 

24 

LAST 

55  7 

25, 3052 

11'454 

1 

CCS 

LOSC CUNT 

TEST  LOS  COUNTER  TO  SEE  IF  TIME  TO  GET 

so  ?s 

R FF 

1 

25, 3053 

0 30  64 

0 

TC 

DQDE  SEND 

A NEW  LOS 

20503 

25,3054 

0 0004 

0 

INHINT 

205035 

REF 

3 

LAST 

526 

25, 3055 

0 6027 

1 

TC 

KILLTASK 

YES  - KILL  TASK  WHICH  SCHEDULES  DODES 

70504 

REF 

2 

LAST 

5-5  7 

25,3  056 

52602 

1 

CADR 

DESLOOP  +2 

205045 

25,3057 

0 0003 

1 

RELINT 

205047 

REF 

3 

LAST 

39  1 

25,3060 

10  067 

1 

CCS 

NEW J OB 

205049 

REF 

2 

LAST 

39  1 

25, 3 061 

0 5122 

0 

TC 

CHANG1 

20505 

REF 

137 

LAST 

530 

25, 3062 

0 46  16 

1 

TC 

B ANKCALL 

205053 

REF 

1 

25, 3063 

50752 

1 

CADR 

R21LEM2 

205055 

REF 

25 

LAST 

563 

25, 3064 

55.454 

1 

DOOESEND 

TS 

LOSC  OUNT 

20506 

REF 

89 

LAST 

56  3 

25 , 3 065 

0 5155 

0 

TC 

ENDOFJOB 

20  9 1 

2 sT  3 DAS 

21122 

n 

RDF  I M 

DFf 

- 53  6 24 

TRIES  TO  NULL  .5  ERROR  IN  .5  SEC. 

20  52 

25, 3067 

07777 

1 

COS  1/2DG 

2DEC 

.999961923  B-2 

COSINE  OF  0.5  DEGREES. 

2052 

25,3070 

33005 

1 

7053 

25,3071 

00310 

0 

MCTOMS 

20EC 

100  B-13 

2053 

25,  3072 

00000 

1 
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P2054 


R2055 


2056 

2057 


2 05  B 
2059 


2060 

2061 


2062 

2063 


20  64 
2065 


20  66 
2067 

R2068 

R2069 

2070 

2071 

2072 

2073 


P20-P25  USER'S  PAGE  NO.  61  E7  S3 

RACAR  READ  INITIALIZATION 

RACAR  DATA  AR-E  READ  BY-A  BANKCALL  FOR  THE  APPROPRIATE  LEAD--!  N BEE0W  - 


r-  r- 

LR  ALT 

TC 

T N I T RF AH  - 1 

ONE  SAMPLE  PFR  READING.  

25, 3074 

00017 

1 

ALLREAD 

OCT 

17 

T-C 

T A'  I T P F A H 

L HO  1 

25,3076 

00016 

0 

OCT 

16 

LAST 

25 T to  77 

0 T 1 1 A 

n 

\ RVFJ  Y 

TC 

T NI  T RF  An 

25,3100 

00015 

0 

OCT 

15 

LAST 

^ A 

?5 t T 1 0 1 

n ti  1 4 

n 

1 RVF1  X 

TC 

I NI T RE  AD 

25,3  102 

00014 

i 

OCT 

14 

^6-A 

2 s T t L n T 

0 T i 1 T 

1 

RRR  nn  T 

TC 

T N T T RF An  - 1 

25,3  104 

00012 

i 

OCT 

12 

LAST 

2 S T T lOS 

0 T1  1 T 

i 

RRR  AN  OF 

TC 

T M f T RF  An  - 1 

25,3106 

00011 

i 

OCT 

i i 

1 RUFI 

K 

T HF  1 

F NT  R Y 

TD  THE  1 R 

v/  p i nr  i ty  i 

3 F An  R HI  IT  T M F WHF  M. 

5 S A MPl  F S ARF 

WANTED. 

ENTER 

WITH 

C ( A ) = 0,2, 

,4  FOR  LRVELZ  .LRVELY 

, LR V EL  X 

RESP  . 

REF 

l 

2S  T T 1 D7 

s s • i ns 

n 

\ RVFL 

TS 

T |MF  HPJ  0 

STORF  VBEAM  INOFX  HFR  E MOM  EMT  AR 11  Y 

REF 

li 

LAST 

51  8 

25,3110 

3 4756 

i 

CAF 

F IVF 

SPECIFY  FIVE  SAMPLES 

REF 

2 

LAST 

5 6 A 

25,3111 

51 ' 105 

i 

INDEX 

T I MF  HOLD 

-REF 

-2 

-LAST 

5 0 3- 

25, 3112 

1 30  75 

i 

TC  F 

LRVE  LZ 
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L - 

P20- 

-P25 

2074 

REF 

68 

LAST 

56  1 

25,3113 

3 4753 

1 

-1  CAF 

ONE 

2075 

25, 3114 

0 0004 

0 

INI  TREAD  INHINT 

2076 

REF 

3 

LAST 

564 

25,3115 

55' 105 

0 

TS 

T IMEHOLD 

2077 

25,3116 

0 0006 

1 

EXTEND 

L AST 

so  i 

25t  3 117 

7 4751 

1 

MP 

B LT3 

2079 

REF 

4 

LAST 

565 

25,3120 

53' 106 

0 

DXCH 

TIMEHOLD 

2 ^ ] ? l 

i n non 

o 

CCS 

A 

2081 

REF 

1 

25, 3 122 

55' 1 11 

0 

TS 

NSAMP 

2082 

REF 

69 

LAST 

565 

25,3123 

6 4753 

l 

AD 

ONE 

R 20 

TNSFRT  FDII  OWING  INSTRUCTION  TO 

GET  ?N  TRIES  FOR  N SAMP 

A2084 

DOUBL E 

2085 

REF 

2 

LAST 

237 

25, 3124 

55*100 

0 

TS 

SAMP  LIM 

2086 

REF 

1 

25,3125 

3 3147 

0 

CAF 

OGB I TS 

2087 

25,  3126 

0 0006 

1 

EXTEND 

2 088 

REF 

10 

LAST 

562  - 

25, 3127 

02  033 

0 

RAND 

C HAN  33 

2089 

REF 

1 

25,  3 130 

55' 113 

1 

TS 

DLDATAGD 

2QQ0 

REF 

1 

75*3131 

4 30  74 

o 

cs 

ALL  R EAD 

2091 

25,3  132 

0 0006 

1 

EXTEND 

2092 

REF 

8 

LAST 

483 

25, 3 133 

03  013 

0 

WAND 

CHAN  13 

2093 

REF 

163 

LAST 

555 

25,3134 

50  002 

0 

INDEX 

0 

2094 

25,3135 

3 0000 

1 

CAF 

0 

20QS 

2 5t  3 136 

0 0006 

1 

FXTFND 

2096 

REF 

9 

LAST 

565 

25,3137 

05  013 

0 

WOR 

C HAN  13 

20^7 

2 S y 3 1 A 0 

0 000/S 

l 

EXTEND 

2098 

REF 

14 

LAST 

475 

25,3 141 

3 0025 

0 

DC  A 

T IMF  2 

2099 

REF 

5 

LAST 

565 

25,3142 

21’ 106 

0 

DAS 

T IMEHOLD 

2100 

REF 

1 17 

LAST 

56  1 

25,3143 

3 4755 

1 

CAF 

ZERO 

2101 

REF 

76 

LAST 

555 

25,3 144 

54  001 

1 

TS 

L 

2102 

REF 

3 

LAST 

502 

25, 3145 

53' 102 

1 

DXCH 

SAMPLSUM 

2103 

REF 

2 

LAST 

548 

25,3146 

1 2366 

1 

TCF 

ROADBACK 

2104 


25,3147 


00230  0 DG8 ITS 


OCT 


2 30 
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ENTRY  TO  TAKE  ONLY  l SAMPLE. 


GET  DT  OF  MIDPOINT  OF  NOMINAL  SAMPLING 
INTERVAL  (ASSUMES  NO  BAD  SAMPLES  WILL  BE 
ENCOUNTERED) . 


READ  CURRENT  VALUE  OF  DATA  GOOD  BITS. 


REMOVE  ALL  RADAR  BITS 


SET  NEW  RADAR  BITS 


TIME  OF  NOMINAL  MIDPOINT 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L P20-P25 


P2105 

R ACAR 

RUPT  REAOER 

DHI  IT  I NiC  CTADTC 

PI?  DM  A RAnARlIPT- 

IT  READS  THE  DATA  $ LOT  S MORE* 

R2106 

2107 

THIS 

REF 

KUU  1 I l\t  o 1 A K 1 o 

2 LAST  56 

rKun  fA  P.H  UMIMJr  1 • 

25,2000 

SETLOC  RADARUPT 

2108  25,3150  BANK 


2109 

REF 

2 

LAST 

5 6 TO 

56: 

1 

3* 

COUNT  * 

* $/R  RUPT 

2 5 , 3 1 50 

o 

0006 

1 

RADAR  EAD 

EXTEND- 

2111 

REF 

10 

LAST 

469 

25,3151 

04 

■ 007 

1 

ROR 

SUPERBNK 

2112 

REF 

3 

LAST 

269 

25,  3152 

54  0 16 

1 

TS 

BANKRUPT 

7115 

25,3  153 

0 

0006 

1 _ 

EXTEND 

2114 

REF 

3 

LAST 

269 

25,3154 

22 

' 012 

1 

QXCH 

QRUPT 

LAST 

3 

47  67 

o 

CAF 

S F V F N 

2116 

25, 3156 

0 

0006 

1 

EXTEND 

2117 

REF 

10 

LAST 

565 

25,3157 

02 

: 013 

1 

RAND 

CHAN  13 

P lift 

RFF 

2 

1 AST 

12  3 

25t  3 160 

5 5 

• •335 

1 

TS 

DNI NDEX 

21181 

25,3161 

0 

0006 

1 

EXTEND 

21182 

REF 

i 

25,3162 

1 

3166 

1 

BZF 

TRYCOUNT 

2119 

REF 

1 

25, 3 163 

3 

0046 

0 

CA 

RNR  AD 

2120 

REF 

3 

LAST 

566 

25, 3 164 

51 

'335 

0 

INDEX 

DNI NDEX 

2121 

REF 

5 

LAST 

214 

25, 3165 

55 

•332 

0 

TS 

DNRPANGE  -1 

2122 

REF 

3 

LAST 

56  5 

25,3  166 

1 1 

* 100 

0 

TR YCOUNT 

CCS 

SAMP  1 IM 

2123 

REF 

i 

25,3167 

1 

3211 

1 

TCF 

PLENTY 

2124 

REF 

i 

25,3170 

1 

3174 

1 

TCF 

NOMOPE 

2125 

REF 

23 

LAST 

55  4 

25,3171 

0 

6567 

c 

TC 

ALARM 

2126 

25,3172 

00520 

0 

OCT 

520 

2127 

RFF 

16 

LAST 

275 

25,3173 

0 

52  70 

1 

TC 

RESUME 

2128 

*REF 

3 

LAST 

295 

25,3174 

3 

0107 

1 

NOMORE 

CA 

FLGWRD11 

21282 

REF 

3 

LAST 

295 

25, 3175 

7 

4735 

0 

MASK 

LRBYBIT 

21 

79,3176 

o 

0006 

1 

EXTEND 

21286 

*REF 

1 

25,3177 

1 

3206 

1 

BZF 

BADRAD 

?1  PR  ft 

RFF 

1 o 

1 AST 

3 a 7 

76  t 3 700 

A 

0 077 

0 

cs 

F L AG WRD3 

2129 

REF 

4 

LAST 

292 

25, 3201 

7 

4743 

i 

MASK 

R04FLBIT 

2130 

25,3202 

0 

0006 

l 

EXTEND 

2131  REF  2 -LAST  5-6-6  25,3203  1 3206  1 B2F  -BADRAD 


2132 

2133 

REF 

24 

LAST 

5 6 6 

25. 3204 

25.3205 

0 5567 
00521 

0 

1 

TC 

OCT 

ALARM 

521 

2134 

RFF 

70 

L AST 

565 

25, 3206 

4 4753 

0 

BADRAD 

CS 

ONE 

2135 

REF 

4 

LAST 

566 

25, 3207 

55*100 

0 

TS 

SAMPLIM 

2136 

REF 

2 

LAST 

55  7 

25, 3210 

0-3560 

1 1 

TC 

RDBADEND  -2 

2137 

REF 

5 

LAST 

5 6 6 

25,3211 

55*100 

0 

PLENTY 

TS 

SAMP  LIM 

2138 

REF 

26 

LAST 

565 

25, 3212 

3 4751 

0 

CAF 

BIT3 

2139 

25,3213 

0 0006 

1 

FXTFND 

2140 

REF 

11 

LAST 

566 

25,3214 

02  013 

1 

RAND 

C HAN  13 

2141 

25,3215 

0 0006 

1 

EXTEND 
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MUST  SAVE  SBANK  BECAUSE  OF  RUPT  FX  ITS 
VIA  TASKOVER  (BAOEND  OR  GOODEND. 


IF  RAOAR  SELECT  BITS  ZERO, 00  NOT  STORE 
DATA  FOR  DOW  NL I ST  (ERASABLE  PROBLEMS) 


IS  LRBYPASS  SET? 


NO.  R12  IS  ON  — BYPASS  521  ALARM. 
CHECK  R04FLAG. 

IF  1 , R04  IS  RUNNING.  DO  NOT  ALARM- 


P 20  WANTS  THE  ALARM. 


TO  FIND  OUT  WHICH  RADAR 


GAP 
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L 

P2C- 

■P  2 5 

2142 

REF 

1 

25,3216 

1 32  76 

0 

BZF 

RENDRAD 

?5  f 3 2 1 7 

0 3364 

o 

TC 

R77CHECK 

2143 

REF 

79 

LAST 

563 

25,3220 

3 0110 

1 

LRPOSCHK 

CA 

R ADMCDES 

2144 

25,  3221 

0 0006 

1 

EXTEND 

L ART 

5 6 5 

25,  3222 

06  033 

1 

RXOR 

CHAN33 

2146 

REF 

37 

LAST 

475 

25, 3223 

7 4746 

1 

MASK 

B IT6 

2147 

25, 3224 

0 00  06 

1 

EXTEND 

? 1 4ft 

RFF 

1 

25,3225 

1 3231 

0 

BZF 

VELCHK 

2149 

RFF 

25 

LAST 

566 

25, 3226 

0 5567 

0 

TC 

ALARM 

2150 

25,3227 

00522 

1 

OCT 

522 

2151 

REF 

3 

LAST 

566 

25,3230 

0 3206 

0 

TC 

BADP  AD 

21^2 

p F F 

l 

?5f  3231 

3 6244 

o 

VELCHK 

CAF 

BIN3 

2153 

25,3232 

0 0006 

1 

EXTEND 

2154 

REF 

12 

LAST 

566 

25,3233 

06  013 

0 

RXOR 

CHAN  13 

2 1 FF 

RFF 

2 

1 ART 

56  7 

25, 3234 

7 6244 

1 

MASK 

BXN3 

2156 

25, 3235 

0 0006 

1 

EXTEND 

2157 

REF 

i 

25,3236 

1 3272 

1 

BZF 

L P HE  I GHT 

2158 

REF 

12 

LAST 

536 

25, 3237 

3 4733 

1 

CAF 

POSMAX 

2159 

REF 

2 

LAST 

566 

25,3240 

7 0046 

1 

MASK 

RNPAD 

2 1 60 

REF 

1 

25, 3241 

6 2000 

o 

AD 

L VEL  BIAS 

2161 

REF 

77 

LAST 

565 

25, 3242 

54  001 

1 

TS 

L 

2162 

REF 

3 

LAST 

567 

25,3243 

30  046 

0 

CAE 

RNR  AD 

2 1 63 

25, 3244 

6 0000 

1 

D0UB1 F 

2164 

REF 

29 

LAST 

538 

25, 3245 

7 4753 

0 

MASK 

BIT1 

2165 

REF 

7 

LAST 

273 

25,3246 

52  064 

1 

DXCH 

I TEMP3 

2166 

REF 

26 

LAST 

53  5 

25,3247 

3 4744 

1 

CAF 

BITS 

2167 

REF 

1 

25,3250 

0 3442 

0 

TC 

DGCHECK 

A 21 68 


2169 

2170 

REF 

REF 

2 

1 

LAST 

565 

25. 3251 

25.3252 

11' 111 

0 32  62 

0 

1 

CCS 

TC 

NSAMP 
NDFND 

2171 

REF 

71 

LAST 

566 

25, 3253 

4 4753 

0 

GOODRAD 

cs 

ONE 

2172 

REF 

6 

LAST 

566 

25,3254 

55' 100 

0 

TS 

S AMP  LIM 

2173 

REF 

19 

LAST 

55  5 

25,3255 

4 0061 

I 

CS 

ITEMP1 

21  74 

REF 

80 

LAST 

567 

25, 3256 

7 01  10 

0 

MASK 

R ADMODES 

2175 

REF 

81 

LAST 

567 

25, 3257 

54  1 10 

0 

TS 

R ADMODES 

2176 

JtEF 

L_ 

25,3260 

0 3616 

_Q_ 

TC 

RADL  I TFS 

2177 

REF 

2 

LAST 

543 

25, 3261 

0 3553 

1 

TC 

RGGODEND 

2178 

RFF 

— 3_ 

-LAST 

5fr7 

25, 3262 

55*111 

o 

NOEND 

T 5 

-NS AM  P 

2179 

REF 

7 

LAST 

567 

25 , 3263 

11' 100 

0 

RESAMPLE 

CCS 

SAMP  LIM 

2180 

25,3264 

1 3266 

1 

TCF 

+ 2 

2181 

RFF 

1 

25,3265 

_1  3461 

0. 

TCF 

JATA  FA  IL 

2182 

REF 

25 

LAST 

562 

25, 3266 

3 4750 

1 

CAF 

B I T 4 

2183 

25,3267 

0 0006 

1 

EXTEND 
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R77  QUITS  HERE. 

SEE  IF  LP  IN  DESIRED  POSITION. 


= 00003  OCT 
RESET  ACTIVITY  BIT 


TAKE  A LR  RANGE  READING 


DATA  GOOD  ISNT  CHECKED  UNTIL  AFTER  READ- 
ING DATA  SO  SOME  RADAR  TESTS  WILL  WORK 
INDEPENDENT  OF  DATA  GOOD. 


WHEN  ENOUGH  GOOD  DATA  HAS  BEEN  GATHERED, 
RESET  DATA  FAIL  FLAGS  FOR  SETTRKF. 

LAMPS  MAY  GO  OFF  IF  DATA  JUST  GOOD. 


SEE  IF  ANY  MORF  TRIES  SHOULD  BE  MADE. 

N SAMPLES  NOT  AVAILABLF. 

PESET  ACTIVITY  BIT. 
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L P20-P25 


2184 

2185 

REF 

REF 

13 

17 

LAST 

LAST 

567 

566 

25.3270 

25. 3271 

05  013 
0 5270 

0 

1 

WOR 

TC 

CHAN  13 
RESUME 

2186 

REF 

25 

LAST 

500 

25,3272 

3 4747 

1 

LRHEIGHT  CAF 

B I T 5 

2187  REF  20  LAST  567  25,  3273  54  061  1 TS  -I  TEMPI 


2188 

REF 

20 

LAST 

344 

25, 3274 

3 4743 

0 

CAF 

B I T 9 

2At T 2 7^ 

0 TT20 

o 

TC 

SCAL  ECHK 

2190 

REF 

26 

LAST 

563 

25, 3276 

3 4741 

1 

RENDRAD 

CAF 

BITl  1 

L /\  S T 

^67 

25t  R 277 

7 0110 

0 

MASK 

R ADMCDFS 

2192 

REF 

192 

LAST 

565 

25,3300 

10  000 

0 

CCS 

A 

2193 

REF 

4 

LAST 

567 

25, 3301 

1 3206 

l 

TC  F 

BADR  AD 

2194 

REF 

83 

LAST 

568 

25,3302 

4 0110 

0 

CS 

R ADMCDFS 

2195 

REF 

28 

LAST 

48  7 

25,3303 

7 4745 

1 

MASK 

BIT7 

7 1 

R FF 

1 Q 5 

L AST 

56  8 

25, 3 304 

10  000 

0 

CCS 

A 

2197 

RFF 

5 

LAST 

56  8 

25,  3305 

1 32  06 

1 

TC  F 

B A3R  AD 

? 1 Q fl  - 

R FF 

?6 

\ a<;t 

S A 7 

75r  T TOA 

5 4750 

CAF 

R I T 4 

2199 

REF 

21 

LAST 

568 

25, 3307 

54  061 

1 

TS 

I TEMPI 

l 

CAF 

BITl 

2201 

25, 3311 

0 0006 

1 

EXTEND 

2202 

REF 

14 

LAST 

568 

25,3312 

02  013 

1 

RAND 

CHAN  13 

ppn^ 

RFF 

1 A4 

| ART 

5 A 5 

75t  5 3 1 3 

54  002 

1 

TS 

o 

2204 

REF 

194 

LAST 

568 

25, 3314 

10  000 

0 

CCS 

A 

2205 

25,3315 

1 3317 

0 

TCF 

+? 

2206 

REF 

1 

25,3316 

1 3331 

1 

TC  F 

RADI  N 

2207 

REF 

27 

LAST 

566 

25, 3317 

3 4751 

0 

CAF 

B1T3 

2208 

REF 

78 

LAST 

567 

25,3320 

54  001 

1 

TS 

L 

2209 

25, 3321 

0 0006 

1 

SCALECHK 

EXTEND 

2210 

REF 

12 

LAST 

567 

25, 3322 

02  033 

0 

RAND 

CHAN33 

2211 

REF- 

79 

LAST 

56  8 

25, 3323 

56  001 

0 

XC  H 

L 

2212 

REF 

84 

LAST 

568 

25,3324 

7 01  10 

0 

MASK 

R ADM CDES 

2213 

25,  3325 

0 0006 

1 

EXTEND 

2214 

REF 

12 

LAST 

543 

25, 3326 

06  001 

0 

RX  OR 

lchan 

2215 

REF 

195 

LAST 

568 

25, 3327 

10  000 

0 

CCS 

A 

2216 

REF 

1 

25, 3330 

0 33  50 

1 

TC 

SCALCHNG 

2217 

RFF 

13 

LAST 

567 

25,3331 

3 4733 

1 

RAD  IN 

CAF 

POSMAX 

2218 

REF 

4 

LAST 

567 

25, 3332 

7 0046 

1 

MASK 

RNRAD 

2219  REF  -5  -LAST  273  25, 3333  54  064  l TS  ITEMP4 


2220 

2221 

REF 

5 

LAST 

568 

25. 3334 

25.3335 

30  046 
6 0000 

0 

1 

CAE  RNRAD 

nmiRi  f 

2222 

REF 

31 

LAST 

56  8 

25,3336 

7 4753 

0 

MASK 

BITl 

2223 

REF 

8 

LAST 

567 

25,3337 

54  063 

0 

TS 

I TEMP3 
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RESET  ACTIVITY  BIT 


(POSITION  OF  DATA  GOOD  BIT  IN  CHAM  33) 


MAKE  SURE  ANTENNA  HAS  NOT  GONE  OUT  OF 
LIMITS. 


BE  SURE  RR  COU  HASNT  FAILED. 


SEE  IF-  DATA  HAS  3EEN  GOOO. 

(POSITION  OF  DATA  GOOD  BIT  IN  CHAN  33) 


SEE  IF  RR  RDOT . 


FOR  LATER  TESTING. 


NO  SCALE  CHECK  FOR  RR  ROOT. 


SCALE  STATUS  NOW 
SCALE  STATUS  BEFORE 
SEE  IF  THEY  DIFFER 


THFY  DIFFER 
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L P20-P25 


2224 

2225 

REF 

REF 

165  LAST 
1 

568 

25.3340 

25.3341 

10  002 
1 3402 

1 

0 

CCS 

TCF 

Q 

SCAL ADJ 

2226 

2227 

2228 

REF 

REF 

1 

9 L AST 

56  8 

25.3342 

25.3343 

25.3344 

0 0006 
4 2002 
20  064 

1 

0 

DASAMPL 

EXTEND 

DCS 

DAS 

ROOT  BIAS 
ITEMP3 

2229 

REF 

22  LAST 

568 

25,3345 

3 0061 

0 

DGCHECK? 

CA 

ITEMP1 

2230 

REF 

2 LAST 

5 6 7 

25,3346 

0 3443 

1 

TC 

DGCHECK  +1 

2231  REF  1 25,3347  0 32  53  0 T£_  GOOD  RAO 


2232 

REF 

85 

LAST 

568 

25, 3350 

22  1 10 

1 

SCALCHNG  LXCH 

R ADMODES 

2233 

REF 

32 

LAST 

56  8 

25,3351 

6 4753 

1 

An 

B I T 1 

2234 

25, 3352 

0 0006 

1 

EXTEND 

2235 

REF 

13 

LAST 

568 

25, 3353 

06  001 

0 

RXOR 

LCHAN 

2236 

REF 

86 

LAST 

56  9 

25, 3354 

54  1 10 

-0 

TS 

-RADMCDES 

2237 

REF 

2 

LAST 

565 

25, 3355 

3 3147 

0 

CAF 

DGB I TS 

2238 

25,3356 

0 0006 

1 

EXTEND 

2239 

REF- 

1_3 

LAST 

568 

25, 3357 

02  033 

o _ 

RAND 

CHAN  33 

2240 

REF 

2 

LAST 

565 

25,3360 

55' 113 

1 

TS 

OLDATAGD 

2241 

REF 

27 

LAST 

530 

25,3361 

0 5504 

0 

TC 

UPFL AG 

2242 

REF 

1 

2 5,3  362 

001  20 

1 

ADRES 

REGS  CFLG 

2243 

REF 

6 

LAST 

568 

25, 3363 

1 3206 

1 

TCF 

BADE  AD 

R 2243 1 R 7 7 MUST  IGNORE  DATA  FAILS  SO  AS  NOT  TO-DISTURB  THE  ASTRONAUT. 


22432 

REF 

14 

LAST 

502 

25,3364 

4 0101 

0 

R77CHECK 

cs 

FLAGKRD5 

22433 

REF 

3 

LAST 

50  2 

25, 3365 

7 4741 

0 

MASK 

R 77E  LB  I T 

22434 

REF 

196 

LAST 

568 

25, 3366 

10  000 

0 

CCS 

A 

22435 

REF 

166 

LAST 

569 

25,3367 

0 0002 

0 

TC 

0 

22436 

REF 

1 

25,3370 

4 3401 

0 

CS 

BI TS  5, 8 

22437 

REF 

87 

LAST 

569 

25, 3371 

7 01  10 

0 

MASK 

R ADMODES 

2243  8 

REF 

80 

LAST 

568 

25,3372 

54  001 

1 

TS 

L 

22439 

REF 

2 

LAST 

56  9 

25, 3373 

3 3401 

I 

CA 

B I TS  5, 8 

224391 

25,3374 

0 0006 

1 

EXTEND 

224392 

REF 

14 

LAST 

569 

25, 3375 

02  033 

0 

RAND 

C HAN  33 

224393 

REF 

81 

L AST 

569 

25,3376 

6 0001 

0 

AD 

L 

224394 

REF 

88 

LAST 

569 

25,3377 

54  1 10 

0 

TS 

RADMCDES 

224395 

REF 

3 

LAST 

567 

25,3400 

0 3553 

1 

TC 

RGDODFND  - 

224397 

25,3401 

00220 

1 

BITS5, 8 

OCT 

220 
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SEE  IF  RR  ROOT. 

NO,  BUT  SCALE  CHANGING  MAY  BE  NEEDED. 
IF  RR  RANGE  RATE,  THROW  OUT  BIAS. 

SEE  THAT  DATA  HAS  BEEN  GOOD  BEFORE  AND 
AFTER  TAKING  SAMPLE. 


UPDATE  LAST  VALUE  OF  DATA  GOOD  BITS. 


SET  RNGSCFLG 
FOR  LRS24.1 


NOT  R77 

UPDATE  LR  DATA  GOOD  BITS  IN  RADMOOES 


GAP  : 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20^1112—011 


L P20-P25 


P2244 


THE  FOLLOWING  ROUTINE  INCORPORATES  RR  RANGE  AND  LI  ALT 


2246 

—REF 

82- 

— L AST 

569 

25, 3402 

10  001 

_1__ 

SCALADJ  CCS 

L 

2247 

25, 3403 

1 3405 

1 

TCF 

+ 2 

2248 

REF 

1 

25,3404 

1 3345 

1 

TCF 

DGCHECK2 

2249 

REF 

4 

LAST 

566 

25,3405 

3 1335 

0 

CA 

DN INDEX 

2250 

REF 

28 

LAST 

568 

25, 3406 

7 4751 

1 

MASK 

B IT3 

LAST 

S A 9 

?S,  3 407 

10  000 

0 

CCS 

A 

2252 

REF 

1 

25, 3410 

1 34  17 

1 

TCF 

LPSC  K 

s ? 0 A4 

1 

DXCH 

I T E M P 3 

2254 

25, 3412 

20  001 

1 

DDOUBL 

2255 

25, 3413 

20  001 

1 

DDOUBL 

22  fa 

25,3414 

20  001 

1 

DDOUBL 

2257 

REF 

11 

LAST 

570 

25, 3415 

52  064 

1 

DXCH 

I TEMP3 

2258  REF  2 LAST  570  25, 3416 — 1 3345  1 TGF  OGCHFCK? 


2259 

REF 

12 

LAST 

570 

25,3417 

10  063 

0 LRSCK 

CCS 

ITEMP3 

?5t  3420 

1 3431 

o 

TCF 

+ 1 1 

2261 

REF 

6 

LAST 

568 

25, 3421 

4 00  64 

1 

CS 

I TEMP4 

2262 

REF 

1 

25, 3422 

6 3441 

0 

AD 

HISCALIM 

22  A^ 

2 5t  3 42  3 

0 0006 

] 

EX  TEND 

2264 

25,3424 

6 3431 

1 

BZMF 

+ 5 

c s 

fi  oiv  Pm  i 

2266 

REF 

1 

25, 3426 

7 4751 

1 

MASK 

SCABBIT 

2267 

REF 

5 

LAST 

570 

25,  3427 

2 6 107 

0 

ADS 

FLGWRD11 

226 h 25,3430  1 3434  0 TCF  tit 


2269 

REF 

2 

LAST 

570 

25, 3431 

4 4751 

1 

CS 

SCABPIT 

22  70 

REF 

6— 

LAST 

5-7-0 

25, 3432 

7 0107 

0 

- MASK  - 

FLGWRD11 

2271 

REF 

7 

LAST 

570 

25,3433 

54  107 

0 

TS 

FLGWPD11 

- — 55-7? 

O g -■  'X/i'XA. 

n onoA 

, 

cy  T CM n 

c.t 1 « c. 

2273 

REF 

13 

LAST 

570 

C.  J , JTJT 

25,3435 

\J  \J\J  u o 

3 0064 

1 

0 

t A 1 CNW 

DC  A 

ITEMP3 

2274 

25, 3436 

20  001 

1 

DDOUBL 

2275 

25,3437 

2 0 001 

1 

DDOUB  L 

2276 

REF 

1 

25,3440 

1 3344 

0 

TCF 

PASAMPL 

2277 


25, 3441 


00714  0 HISCALIM  DEC 


460 
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ALF  INFORMATION  AND  LEAVES  DATA  AT  10  SCALF. 

L HAS  SCALE  IN8IT  FOR  THIS  RADAR. 

ON  HIGH  SCALE. 


2481*7  FT  *£#❖*❖*#*#*❖*:{>:#:#:**  ft*#*#:?:**### 


GAP  : 

L 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 
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REF 

23 

LAST 

569 

25, 3442 

54  061 

1 

DGCHECK  TS 

ITFMP1 

UPDATE  DATA  GOOD  BIT  IN  OLDATAGD  AND 

25,3443 

0 0006 

1 

EXTEND 

MAKE  SURE  IT  WAS  ON  BEFORE  AND  AFTER  THE 

R FF 

15 

L AST 

56  9 

25, 3444 

02  033 

0. 

RAND 

CHAN33 

SAMPLE  WAS  TAKEN  BEFORE  RETURNING.  IF 

REF 

83 

LAST 

570 

25, 3445 

54  001 

1 

TS 

L 

NOT,  GOES  TO  RESAMPLE  TO  TRY  AGAIN.  IF 

REF 

24 

LAST 

57  1 

25,3446 

4 0061 

1 

CS 

ITEM  PI 

MAX  NUMBER  OF  TRIES  HAS  BFEN  REACHED, 

R FF 

3 

1 AST 

56  9 

25, 3447 

7 1113 

1 

MASK 

OLDATAGD 

THE  BIT  CORRESPONDING  TC  THE  DATA  GOOD 

REF 

84 

LAST 

57  1 

25, 3450 

6 0001 

0 

AO 

L 

WHICH  FAILED  TO  APPEAR  IS  IN  ITFMP1  AND 

REF 

4 

LAST 

57  1 

25,3451 

57*113 

0 

XCH 

OLDATAGD 

CAN  BE  USED  TO  SET  RADMODES  WHICH  VIA 

R FF 

25 

1 AST 

57  1 

25,345? 

7 0061 

L 

MASK 

ITEMP1 

SETTRKF  SETS  THE  TRACKER  FAIL  LAMP. 

REF 

85 

LAST 

57  1 

25, 3453 

6 0001 

0 

AD 

L 

REF 

198 

LAST 

570 

25, 3454 

LO  000 

0 

CCS 

A 

SHOULD  BOTH  BE  ZERO. 

R F F 

1 

25,3455 

0 3263 

0 

TC 

R ES AMPLE 

REF 

14 

LAST 

570 

25, 3456 

52  064 

1 

DXCH 

! TEMP3 

IF  DATA  GOOD  BEFORE  AND  AFTER,  ADD  TO 

REF 

4 

LAST 

565 

25,3457 

21'  102 

1 

DAS 

S AMPLSUM 

ACCUMULATION. 

REF  167  LAST  56  S 25,3  460 0 0002_0 TC  0 


REF 

26 

LAST 

57  1 

25, 3461 

4 0061 

1 

DATAFAIL  CS 

I TFMP1 

IN  THE  ABOVE 

CASE,  SET  RADMODES  BIT 

REF 

89 

LAST 

56  9 

25,3462 

7 01  10 

0 

MASK 

R ADMODES 

SHOWING  SOME 

RADAR  DATA  FAILED. 

REF 

27 

LAST 

57  1 

25, 3463 

6 0061 

0 

AD 

ITEMP1 

REF 

90 

LAST 

57  1 

25,3464 

54  1 10 

0 

TS 

RADMODES 

REF 

15 

LAST 

57  1 

25, 3465 

52  064 

1 

DXCH 

ITEMP3 

IF  WE  HAVE  BEEN  UNABLE  TO  GATHER  N 

REF 

5 

LAST 

57  1 

25, 3466 

53' 102 

1 

DXCH 

SAMPLSUM 

SAMPLES,  USE 

LAST  ONF  ONLY. 

REF 

REF 


2 LAST  567 
2 LAST  566 


25,3467  0 3616  0 

25,3470  1 3174  1 


TC 

TCP 


R ADL  I TFS 
NOMOPE 
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L P20-P25 


P 2304 

THIS 

ROUTINE  CHANGES 

THE  LR 

POSITION 

, AND  CHECKS 

THAT  IT  GOT  THFR 

sfti  nr  p?o  s 1 

2306 

25,3471 

BANK 

AAA* 

COUNT*  fct/PSUR 

2308 

25, 3471 

0 0004 

0 LRP0S2 

INHINT 

last 

5 7 1 

, 347? 

4 0110 

o 

GS  R A DM ODE P 

2310 

REF 

38 

LAST 

567 

25, 3473 

7 4746 

1 

MASK  BIT6 

2311 

REF 

92 

LAST 

572 

25,3474 

26  110 

0 

ADS  RADMODES 

2312 

REF 

29 

LAST 

568 

25,3475 

3 4745 

0 

CAF  B I T 7 

2313 

25,3476 

0 0006 

1 

EXTEND 

?3  1 4 

REF 

L6 

LAST 

5 7 1 

25,  3477 

02  033 

0 

RAND  CHAN  33 

2315 

25, 3500 

0 0006 

1 

EXTEND 

2316 

REF 

2 

LAST 

548 

25, 3501 

1 3530 

0 

BZF  RADNOOP 

2317 

REF 

28 

LAST 

548 

25, 3502 

3 4737 

0 

CAF  BIT13 

2318 

25, 3503 

0 00  06 

1 

EXTEND 

23  19 

RFF 

35 

LAST 

56  2 

25,  3 504 

05  012 

1 

WOR  CHAN 12 

2320 

REF 

i 

25, 3505 

3 3545 

0 

CAF  6 SEC  S 

2321 

REF 

22 

LAST 

552 

25,3506 

0 5203 

0 

TC  WAITLIST 

2322 

REF 

26 

LAST 

563  - 

E7, 1 454 

EBANK=  LOSC CUNT 

2323 

REF 

i 

25,3507 

03543 

0 

2C  ADR  L R PO  SC AN 

2323 

REF 

i 

25,3510 

52067 

1 

2324  REF  3 L AST  56  5 25,  3 51!  0 23  66  0 IC-  ROAD  BACK 


2325 

REF 

8 

LAST 

567 

25,3512 

55' 1 00 

0 

LRPOSNXT 

TS 

SAMP  LIM 

2326 

REF— 

9— 

LAS  T 

55  7 

25-*  3 513 

0 5221 

0 

TC 

F I XDELAV 

2327 

25,3514 

00144 

0 

DEC 

100 

23  2 R 

REF 

30 

{ AST 

R 7 2 

2 S T 3-R  1 R 

3 4745 

R I T 7 

2329 

25,3516 

0 0006 

1 

EXTEND 

2330 

REF 

17 

LAST 

572 

25,3517 

02  033 

0 

RAND 

CHAN  33 

2331 

2 5,  3 520 

0 0006 

1 

FX  T FNn 

2332 

REF 

1 

25,3521 

1 3535 

0 

BZF 

LAST  LRDT 

2333 

REF 

_9 

LAST 

57  2 

2 5, 3 522 

11*100 

0 

SAMP  LI m 

2334 

REF 

i 

25, 3523 

1 3512 

0 

TC  F 

LRPOSNXT 

2335 

REF 

29 

L AS  T 

57  2 

25,  3 524 

4 4737 

l 

2336 

25,3525 

0 0006 

l 

EX  TEND 

2337 

RFF 

36 

LAST 

572 

25, 3526 

03  012 

1 

WAND 

C HAN  12 

2338 

REF 

3 

LAST 

566 

25,3527 

1 3562 

1 

TC  F 

R DEADEND 

2339 

REF 

72 

LAST 

567 

25,3530 

3 4753 

1 

RADNOOP 

CAF 

ONE 

2340 

REF 

23 

LAST 

57  2 

25,  3 53  1 

0 52  03 

0 

TC 

WATT!  TST 

2341 

REF 

27 

LAST 

572 

E7, 1454 

EB ANK= 

LOSC  CUNT 

2342 

REF 

4 

LAST 

569 

25, 3532 

03555 

1 

2CADR 

R GOO  DEND 

2342 

25,  3 533 

52067 

1 
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SET  BIT6  TO  SHOW  DESIRED  LR  POS  IS  2 


SEE  IF  ALREADY  THERE. 


COMMAND  TO  POSITION  2 

START  SCANNING  FOR  INBIT  AFTER  7 SECS. 


SCAN  ONCE  PER  SECOND  15  TIMES  MAX  APT  ER 
INITIAL  DELAY  OF  7 SECONDS. 

SEE  IF  LR  P0S2  IS  ON 

IF  THERE,  WAIT  FINAL  SECOND  FOR  BOUNCE. 
SFE  IF  MAX  TIME  UP. 

IF  TIME  UP,  DISABLE  COMMAND  AND  ALARM. 
NO  FURTHER  ACTION  REQUESTED. 


+ 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA -2 02444, 2---G1 1 
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2343 

REF 

4 

LAST 

572 

25,3534 

0 2366 

0 

TC 

ROAD  BACK 

1 ASTI  R n T 

r a 

7SFCS 

WAIT  TWO  SFCONDS  AFTFR  RECEIPT  OF  INBIT 

2345 

REF 

3 

LAST 

180 

25,3536 

0 5224 

0 

TC 

VARPELAY 

TO  WAIT  FOR  ANTENNA  BOUNCE  TO  DIE  OUT. 

LAST 

s 7 2 

2 rt 3 

4 4737 

l 

r s. 

B I T1  3 

REMOVE  COMMAND 

2347 

25, 3540 

0 0006 

1 

EXTENT 

2348 

REF 

37 

LAST 

572 

25,3541 

03  012 

1 

WANO 

CHAM  12 

7 3 49 

REF 

5 

L AST 

57  2 

25, 3 542 

1 3555 

0 

TCF 

RGOCDEND 

2350 

REF 

i 

25,3543 

3 43  1 7 

0 

LRPOSCAN 

CAF 

FOURTEEN 

SET  UP  FOR  15  SAMPLES. 

2351 

REF 

2 

LAST 

57  2 

25,3544 

1 3512 

0 

TCF 

LRPOSNXT 

2352 

25,3545 

01130 

1 

6SECS 

DEC 

600 

GAP: 
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L P20-P25 


P2353  SEQUENCES  TO  TERMINATE  RR  OPERATIONS. 


« r-p- 

3 474S 

0 

FNDRADAR 

CAF 

fTI  T7 

2355 

REF 

93 

LAST 

572 

25,3547 

7 0110 

6 

MASK 

P ADMODES 

2356 

REF 

159 

LAST 

57  1 

25,3550 

10  000 

0 

CCS 

A 

2 5T  3 55  1 

1 35  55 

0 

TCF 

RGOCLDEND 

2358 

REF 

4 

LAST 

572 

25,3552 

1 3562 

1 

TCF 

RDBADEND 

2359 

REF 

1 18 

LAST 

56  5 

25,3553 

4 4755 

0 

-2 

cs 

ZERO 

25T  3 554 

54  734 

0 

TS 

RUPT AGN 

2361 

REF 

35 

LAST 

552 

25, 3555 

3 4752 

0 

RGOODEND 

CAF 

TWO 

LAST 

4&  1 

?St  3 556 

0 4635 

0 

-TC 

POST  JUMP 

2363 

REF 

2 

LAST 

260 

25, 3557 

17640 

0 

CADR 

GOOD  END 

0 

2 

CS 

7FRD 

L M J 1 

2365 

REF 

3 

LAST 

574 

25,3561 

54  734 

0 

TS 

RUPT AGN 

2366 

REF 

36 

LAST 

574 

25, 3562 

3 4752 

0 

RDBADEND 

CAF 

TWO 

REF 

3 7 

5 7 4 

25»  3 563 

0 46  3 5 

0 

TC 

POST  JUMP 

2368 

REF 

i 

25, 3564 

17635 

1 

CADR 

BADEND 

2369 


REF  18  LAST  521 


6 244 


B I N 3 


EQUALS  THREE 
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PROLOG  TO  CHECK  RR  CDU- FA IL -BEFORE  FNO. 


RGOOOENO  WHEN  NOT  UNDER  WAITLIST  CONTROL 


ROBADENO  WHEN  NOT  UNDER  WAITLIST 


GAP: 
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P2370 

R2371 

PROGRAM  NAME  LPS20.1  VECTOR  EXTRAPOLATION  AND  LOS  COMPUTATION 
MOD.  NO.  2 BY  J.D.  COYNE  SOC  DATE  12-7-66 

R2372 

FUNCTIONAL  DESCRIPTION_ 

R2373 
R 23  75 
R2377 

1)  EXTRAPOLATE  THE  LEM  AND  CSM  VECTORS  IN  ACCORDANCE  WITH  THE  TIME  REFERED  TO  IN  CALLER  + 1. 

2)  COMPUTES  THE  LOS  VECTOR  TO  THE  CSM,  CONVERTS  IT  TO  STABLE  MEMBER  COORDINATES  AND  STORES  IT  IN  RRTARGET. 

3)  COMPUTES  THE  MAGNITUDE  OF  THE  LOS  VECTOR  AND  STORES  IT  IN  MLOSV 

R237  8 
P 23  79 

CALLING  SECUENCE  CALL 

LPS20. 1 

R 2 3 80 

SUBROUTINES  CALLED. 

R2381 

L E M PR  EC  , C SMPIRE-G — 

R2382 

NORMAL  EXIT  RETURN  TO  CALLER  +— 2 - 

R2383 

ERROR  EXITS  NONE 

R2384 

ALARMS  NONE 

R2385 

OUTPUT. 

R2386 

R2387 

R2388 

LOS  VECTOR  (HALF  UNIT)  IN  SM  COORDINATES  STORED  IN  RRTARGET 
MAGNITUDE  OF  THE  -LOS  VECTOR  ( ME  TF-R-S  SCALED  - S-29J  STQRED_JLN_  M SLOW 
RRNBSW  CLEARED 

R2389 

INITIALIZED  ERASEABLE 

R2390 

R2391 

TDEC1  MUST  CONTA  I N THE  T IME  FOR  EXTRAPOLATION 
SEE  ORBITAL  INTEGRATION  ROUTINE 

R2392 

DEBRIS. 

R2393 

M P AC  DESTROYED  BY  THIS  ROUTINE  - 

2394 

2395 

2396 


REF 


4 LAST  526 


23,2275 

24,2000 

24,3151 


BANK.  _23 
SETLOC  P20S 
BANK 


GAP 
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L 

P20- 

P25 

2397 

REF 

1 

COUNT* 

$ 1/ L PS20 

j_P9  20- 1 

STQ 

RDF  F- 

2398 

23985 

REF 

3 

LAST 

512 

24, 3152 

01757 

0 

LS21  X 

2399 

REF 

7 

LAST 

562 

24,3153 

01343 

1 

LCSC  MFLG 

2 4T  3 1 64 

61  160 

1 

LMINT 

2399  4 

24,3155 

77614 

1 

BON 

23995 

REF 

6 

LAST 

5 1 2 

24, 3 156 

04307 

1 

SURFFLAG 

P E F 

24.3157 

511  70 

0 

_£  SM  I NT 

23997 

24,3160 

776  24 

1 

LMINT 

CALL 

2400 

REF 

3 

LAST 

499 

24, 3 161 

27100 

0 

LFMCCNIC 

24, 3 162 

77775 

1 

VLOAD 

2402 

REF 

5 

LAST 

499 

24,3163 

00001 

0 

RATT 

2403 

REF 

3 

LAST 

510 

24, 3164 

26356 

0 

STOVL 

LMPOS 

2404 

REF 

1 

24, 3 165 

00007  0 

VATT 

2405 

REF 

2 

LAST 

510 

24,3166 

16364 

1 

STODL 

LMVEL 

2406 

REF 

5 

LAST 

50  5 

24, 3 167 

00015 

0 

TAT 

L5 

LAST 

8 2 q 

24, 3170 

3404 1 

0 

CSM  INT 

ST  CALL 

TDEC  1 

2408 

REF 

2 

LAST 

352 

24, 3171 

27066 

1 

C SMC ONI C 

2409 

24, 3172 

52375 

1 

VLOAD 

VSU 

PEE 

2 

LAST 

6 7 6 

24,3173 

00007 

o 

VATT 

2411 

REF 

3 

LAST 

576 

24, 3174 

02364 

1 

LMVEL 

2412 

24, 3175 

76521 

0 

MX  V 

VSL  1 

241  3 

R EE 

8 

LAST 

49  9 

24, 3176 

01734 

0 

REFSMMAT 

24132 

24,3177 

77776 

1 

EXIT 

24134 

24,3200 

0 0004 

0 

INHINT 

241  36 

REF 

4 

LAST 

56  3 

24, 3201 

0 6027 

1 

TC 

K ILL  TASK 

24138 

REF 

3 

LAST 

563 

24,3202 

52602 

1 

CADR 

DESLCOP  +2 

24139 

REF 

44 

LAST 

562 

24, 3203 

0 6036 

1 

TC 

I NT  P PET 

2414 

REF 

4 

L AST 

562 

24, 3204 

25761 

c 

STOVL 

LCSV  EL 

2415 

REF 

6 

LAST 

576 

24, 3205 

00001 

0 

RATT 

2416 

24,3206 

43051 

1 

vsu 

BOFF 

2417 

RFF 

4 

LAST 

576 

24, 3207 

02356 

o 

LMPOS 

24173 

REF 

3 

LAST 

507 

24, 3210 

003  50 

1 

RNDVZFLG 

24176 

REF 

1 

24, 3211 

51217 

1 

NOTSHIFT 

24177 

24, 3212 

77604 

o 

RDVR 

24178 

REF 

1 

24, 3213 

57725 

0 

TCDANZ IG 

2418 

24,3214 

41061 

0 

VSL 

BOVB 

24183 

24, 3215 

202  1 2 

1 

90 

24186 

REF 

1 

24,3216 

50123 

1 

526ALARM 

24189 

24,3217 

77656 

1 

NOT  SHI  FT 

UNIT 

2419 

24, 3220 

76  5 7 1 

0 

MX  V 

\/  C 1 1 

2420 

REF 

9 

LAST 

576 

24,3221 

01734 

0 

REF  SMMAT 

2421 

REF 

10 

LAST 

56  2 

24,3222 

15102 

0 

STODL 

RRT  ARGFT 

2422 

24, 3223 

00045 

0 

360 

2425 

REF 

4 

LAST 

563 

24, 3224 

01767 

0 

STORF 

MLOS  V 

2426 

24,3225 

77614 

1 

CLRGO 

2427 

REF 

5 

LAST 

56  1 

24,3226 

002  31 

1 

RPNB  SW 

2428 

REF 

4 

LAST 

576 

24, 3227 

01757 

0 

LS21  X 
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LOSCMFLG  = 0 MEANS  NOT  CALLED  BY  R21 

SO  CALL  LEMCONIC  TO  GET  LM  STATE 

IF  IN  R21  AND  ON  LUNAR  SURFACE 
DON'T  CALL  LEMCONIC 


FXTRAPOLATE  LEM 


SAVE  LM  POSITION  3-29 


SAVE  LM  VELOCITY  3-7 


EXTRAPOLATE  CSM 

COMPUTE  R EL  AT  I VF  VELOCITY  V(CSM)  - V(LM) 


KILL  THE  TASK  WHICH  CALLS  DODES  SINCF 
STORING  INTO  ERAS  EABLFS  DODES  USES 


CONVERT  TO  STABLE  MEMBER 


SAVE  MAGNITUDE  OF  LOS  VECTOR  C0P 
VELOCITY  CORRECTION  IN  DESIGNATE 


GAP : 

L 

P2429 
R 2430 


R2431 
P 24  32 


R2433 
R 2434 


R2435 


R 2436 


R 24  37 


R 243  8 


R 2439 


R 2440 

R2441 
R 2442 

R 2443 


2444 

2445 
24452 


2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 
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PROGRAM  NAME_  LPS20.2  400  NM  RANGE  CHECK 

MOD.  NO . 2 BY  J.D.  COYNE  SDC  DATE  12-7-66 


FUNCTIONAL  DESCRIPTION. 

COMPARES  TFE  MAGNITUDE  OF  THE  LCS  VECTOR  TO  400  NM 
CALLING  SEQUENCE  CALL 

L PS  20 . 2 


SUBROUTINES  CALLEC.  NONE 

NORMAL  EXIT  _ RETURN  TO  CALLER  +1,  MPAC  EQ  0 (RANGE  400NM  OR  LESS.) 
ERROR  EXITS  _ RETURN  TO  CALLER  +1,  MPAC  EO  l (RANGE  GREATER  THAN  400NM ) 
ALARMS.  NONE 
OUTPUT.  NONE 


INITIALIZED  ERASE  ABLE. 


PDL  36D  MUST  CONTAIN  THE  MAGNITUDE  OF  THE  VECTOR 
DEBRIS 


MPAC  DESTROYED  BY  THIS  ROUTINE 


REF  3 LAST  572 
REF  1 


REF 

REF 

REF 

REF 


5 — L ASX  576 
1 

1 

1 


25,2000 

SETLOC 

P20S  1 

25, 3565 

BANK 
COUNT  * 

i$/L  PS20 

25, 3565 

45345 

1 

LPS20.2 

DLOAD 

OSU 

25,  3 566 .... 

01767 

0 

ML  OS  V 

25,  3567 

13600 

0 

FHNM 

25,3  570 

77644 

1 

BPL 

25,3571 

53574 

1 

TCFAR 

25,3572 

43535 

0 

SLOAD 

R VO 

25, 3573 

06424 

0 

ZERO/SP 

25,3574 

43535 

0 

TQFAR 

SLOAD 

R VQ. 

25, 3575 

13577 

0 

ONE/SP 

25, 3576 

00001 

0 

ONE/SP 

DEC 

1 

MAGNITUDE  OF  LOS 
OVER  400NM 


577 


REF 


1 


GAP: 
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L 

2456 

2456 


P20-°  25 


USER • S PAGE  NO.  75  F7  S3 


25,3577  26467  0 FHNM  2DEC  740800  B-20  400  NAUTICAL  MILES  IN  METERS  B-20 

25,3600  00000  1 


GAP  : 
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P2457 
P 2 4 5 8 

PRCGRAM  NAME:  LRS22.1  (DATA  READ  SUBROUTINE  1) 

MOD.  NO.:  I BY:  P.  VOLANTE  SDC  DATE:  11-15-66 

R2459 

FUNCTIONAL  DESCRIPTION 

R2460 
R 2462 
R 2464 

R2465 

1)  READS  RENDEZVOUS  RADAR  RANGE  AND  R ANGE-R AT E , TRUN I ON  AND  SHAFT  ANGLES, THREE  CDU  VALUES  AND  TIME. 
DATA  AND  LEAVES  IT  FOR  THE  MEASUREMENT  INCORPORATION  ROUTINE  (LSR22.3).  CHECKS  FOR  THE  RR  DATA  GOOD 
RR  RFPnSTTinN  AND  RR  (1DL1  FA  Tl 

CONVERTS  THIS 
D I SCRETE ,FOR 

2)  COMPARES  RADAR  LOS  WITH  LOS  COMPUTED  FROM  STATE  VECTORS  TO  SEE 

IF  THEY  ARE  WITHIN 

THREE 

DEGREES 

R2467 

CALLING  SEQUENCE:  BANKC4LL  FOR  LRS22.1 

R2468 

SUBROUTINES  CALLED: 

R2469 

R2470 

R2471 

RRRDOT  LPS20.1 

RRRANGE  BANKCALL 
RADSTALL  CCULOGIC 

R 24  72 
R2473 

RRNB  SMNB 

NORMAL  EXIT:  RETURN  TO  CALLER+1  WITH  MPAC  SET  TO  +0 

R2474 

ERROR  EXITS:  RETURN  TO  CALLER+1  WITH  ERROR  CODE  STORED  IN  MPAC  AS 

FOLLOWS: 

R 247  6 
R 2478 

0000 1— ERROR  EXIT  1-RR  DATA  NO  GOOD  (NO  RR  DATA  GOOD  DISCRETF  OR  RR  CDU 
00002-ERROR  EXIT  2-RR  LOS  NOT  WITHIN  THREE  DEGREES  OF  LOS  COMPUTED  FROM 

FAIL  OP 
STATE 

, RR  REPOSITION) 
VECTORS 

R2480 

R2482 

ALARMS:  521-COULD  NOT  READ  RADAR  DATA  (RR  DATA  GOOD  DISCRETE  NOT  PRESENT  BEFORE  AND 

(THIS  Al  ARM  IS  ISSUED  BY  THE  RADARFAD  SUBROUTINE  WHICH  IS  ENTERED  FROM  A RADARUPT) 

AFTER 

RFADING 

THE  RADAR) 

R 2484 

— OUTPUT  : RRLOSVEC-  THE  RR  L I N E-OF-S I GHT  VECTOR (USED  BY  LRS22.2)-A 

HALF-UNIT  VECTOR 

R2486 

RM-  THE  RR  RANGE  READINGITO  THE  CSM)  DP,  IN  METERS  SCALED 

B-2 9 ( U S EO  BY  LRS22 

.2  AND 

LRS22. 31 

R2488 

AM  DF  THE  FOM-DUI T NIC,  OUTPUTS  ARE  ORFH  RY  IRTI77.R: 

R2489 

R2491 

RDOTM-  THE  RR  RANGE-RATE  READING, DP,  IN  METERS  PER  C ENTI SECOND,  SCALED  B-7 
RR  TR1JN-RR  TRUNMN_AN(LLE  .DP  .IN  RF  VOI  IJT  I ON  S . S C Al  FD  RO 

R2492 

R2493 

R2494 

RRSHAFT-RR  SHAFT  ANGLE, DP, IN  RE VOLUT I ONS , SC AL E D BO 

AIG.AMG, AOG-THE  CDU  ANGLES, THREF  SP  WORDS 

MK.TI  ME-THE  T1WE  OF  THE  RR  RE  AD  I NG,  DP  , I N CFNTISECONDS 

R2495  ERASABLE  INITIALIZATION  R-EGUIJLED: 


R2496 


R NR AO , T HE  RADAR  READ  COUNTER  FROM  WHICH  IS  OBTAINED: 
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R2497  1 ) RR  range  SCALED  9.38  FT.  PER  BIT  ON  THE  LOW  SCALE  AND  75.04  FT.  PER  BIT  ON  THE  HIGH  SCALE 

R2499  2 ) RR  RANGE  RATE, SCALED  .6278  FT. /SEC.  PER  BIT 


R2500  THE  COU  ANGLES  FROM  C DUX , CDUY, C DUZ  AND  TIME1  AND  TIME2 


R2501 

DEBRIS: 

LRS22 

.IX  , A, 

L,Q, PUSHLIST 

25012 

32, 2376 

BANK 

32 

25014 

REF 

2 

LAST 

56 

32,2000 

SETLOC 

LPS2? 

2 so  i a 

32  f 2 376 

BANK 

2502 

REF 

2 

LAST 

56  TO 

56: 

4 

4* 

COUNT  * 

SJ/LRS22 

LRS22.1 

TC 

M AK  f r A PR 

2504 

REF 

3 

LAST 

5 16 

32,2377 

55' 735 

0 

TS 

LRS22.1X 

2505 

REF 

46 

LAST 

562 

32,2400 

0 5516 

0 

TC 

DOWN  FLAG 

? 806 

ft  FF 

2 

l AST 

56  9 

32, 2401 

00120 

1 

ADRES 

RNGSCFLG 

2507 

32, 2402 

0 0004 

0 

INHINT 

2508 

REF 

29 

LAST 

570 

32, 2403 

3 4751 

0 

CAF 

B IT3 

2500 

32,2404 

0 0006 

1 

EXTEND 

2510 

REF 

18 

LAST 

57  2 

32,2405 

02  033 

0 

RAND 

CHAN  33 

2511 

REF 

86 

LAST 

57  1 

32,2406 

54  001 

1 

TS 

L 

25  1 2 

REF 

3 0 

1 AST 

5 8 0 

32, 2407 

4 4751 

1 

cs 

B IT3 

2513 

REF 

94 

LAST 

574 

32,2410 

7 0110 

0 

MASK 

R ADNODES 

2514 

REF 

87 

LAST 

580 

32,2411 

6 0001 

0 

AD 

L 

25-15 

REF 

95 

-LAST 

-580 — 

32, 2412 

54  110 

0 

! ! H 

TS 

R ADMOOES 

2516 

32,2413 

0 0003 

1 

RE L I NT 

2517 

REF 

138 

LAST 

56  3 

32,2414 

0 4616 

1 

READRDOT 

TC 

BANKCALL 

2518 

RFF 

3 

1 AST 

5 19 

3 2 f 2 4]  5 

8 3103 

o 

r a hr 

R P P P FIT 

2519 

REF 

139 

LAST 

580 

32, 2416 

0 4616 

1 

TC 

BANKCALl 

2520 

REF 

8 

LAST 

52  l 

32,2417 

17667 

0 

CADR 

RADS  TALL 

2521  REF  -1 — 32,2420  1 2540  0 TCF  ERFXIT1 


2522 

32,2421 

0 0004 

0 

INHINT 

2523 

REF 

— 6 — 

LAST 

565 

-32,2422 

53' 106 

0 

DXCH 

T I ME  HOLD 

25235 

REF 

5 

LAST 

216 

32,2423 

53’ 753 

0 

DXCH 

MKT  I ME 

2524 

REF 

6 

LAST 

57  1 

32,2424 

53' 102 

1 

DXCH 

SAMPLSIJM 

2525 

REF 

3 — 

LAST 

16  I 

32, 2425 

53*745  1 

DXCH 

R DOT  MSAV 

2526 

32,2426 

0 0006 

1 

EXTENC 

2527 

REF 

2 

LAST 

269 

32,2427 

3 0034 

0 

DC  A 

CDUY 

2528 

REF- 

— 3— 

LAST 

216 

32, 2430 

53’ 456 

0 

pxr  h 

A I G 

2529 

REF 

10 

LAST 

400 

32, 2431 

3 0032 

0 

CA 

C DUX 

2530 

REF 

3 

LAST 

2 1 6 

32, 2432 

55*457 

1 

TS 

AEG 

2531 

32, 2433 

0 0006 

1 

EXTEND 

2532 

REF 

15 

LAST 

565 

32, 2434 

3 0025 

0 

DC  A 

TIME? 

2533 

REF 

236 

LAST 

562 

32,2435 

52  155 

l 

DXCH 

MPAC 

2534 

32,2436 

0 0006 

1 

F X T FN D 

2535 

REF 

9 

LAST 

559 

32,2437 

3 00  36 

1 

OCA 

C OUT 

2536 

REF 

21 

LAST 

56  1 

32,2440 

53’ 1 10 

1 

DXCH 

TANG 

GET  RR  RANGE  SCALE 
FROM  CHANNEL  33  BIT  3 

AND  SET  IN  RADMOQES  BIT3 


READ  RANGE-RATE  (ONE  SAMPLE) 

WAIT  FOR  DATA  READ  COMPLETION 
COULD  NOT  READ  RADAR-ERROR  EXIT  1 

NO  INTERRUPTS  WHILE  READING  TIME  AND  CDU 
SET  MARK  TIME  EQUAL  TO  THE  MID-POINT 
TIME  OF  THE  RANGE-RATE  READING 
SAVE  RANGE-RATE  READING 


SAVE  I C DU  ANGLES 


SAVE  TIMF 

SAVE  TIME  OF  CDY  READINGS  IN  MPAC 


SAVE  TRUNION  AND  SHAFT  ANGLES  FOR  RRNB 


GAP: 

L 

2537 

2538 

2539 

2 540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2 5 60 

2561 

2562 

2563 

2565 

2 5 66 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 
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32,2441 

0 0003 

1 

RELINT 

REF 

140 

LAST 

580 

32, 2442 

0 4616 

1 

TC 

BANKCAL1 

2 

L T 

sm 

T?r p 443 

53105 

0 

CADR 

RRP ANGE 

READ  RR  RANGE  (ONE  SAMPLE) 

REF 

141 

LAST 

58  1 

32,2444 

0 4616 

1 

TC 

BANKCALL 

REF 

9 

LAST 

580 

32, 2445 

17667 

0 

CADR 

R ADSTALL 

WAIT  FOR  READ  COMPLETE 

r p F 

1 

3?»?446 

0 2534 

1 

TC 

CHEXERR 

CHECK  FOR  ERRORS  DURING  READ 

REF 

45 

LAST 

576 

32,2447 

0 6036 

1 

TC 

INTPRET 

32,2450 

14025 

0 

STODL 

2 OD 

SAVF  TIME  OF  CDU  READINGS  IN  20D 

R FF 

4 

1 AST 

58  0 

32, 2451 

03745 

1 

P DDT  MSA  V 

CONVERT  ROOT  UNITS  AND  SCALING 

32,2452 

57261 

0 

SL 

DMPR 

START  WITH  READING  SCALED  B-28,  -.6278 

32,2453 

202  1 7 

1 

14D 

FT. /SECOND  PER  SIT 

3?f  ? 454 

24012 

1 

R DOT CONV 

END  WITH  METERS/CENTISE CO NO , B-7 

RFF 

2 

LAST 

16  1 

32,2455 

17747 

0 

STODL 

RDDTM 

STORE  FOR  USE  BY  LSR22.3 

REF 

22 

LAST 

580 

32, 2456 

Oil  10 

0 

TANG 

RFF 

1 H 

1 AST 

5 54 

32, 2 457 

037  51 

1 

STORE 

TANGNB 

32,2460 

47135 

0 

SLOAD 

RTB 

REF 

23 

LAST 

58  1 

32,2461 

Oil  10 

0 

TANG 

GET  TRUNION  ANGLE 

REF 

LI 

LAST 

55  9 

32, 2462 

21465 

0 

CDULQGIC 

CONVFRT  TO  DP  ONES  COMP.  IN  REVOLUTIONS 

REF 

2 

LAST 

16  1 

32,2463 

03732 

1 

STORE 

RRTP  UN 

AND  SAVE  FOR  TMI  ROUTINE  (LSR22.3) 

32, 2464 

47135 

0 

SLOAD 

RTB 

REF 

24 

-LAST 

58  1 

32,2465 

01111 

1 

TANG  +1 

DITTO  FOR  SHAFT  ANGLF 

REF 

12 

LAST 

58  1 

32, 2466 

21465 

0 

CDULOGIC 

REF 

2 

LAST 

16  1 

32,2467 

17734 

1 

STODL 

RRSH AFT 

REF 

7 

LAST 

580 

32,_2-470 

01102 

0 

SAMP  LSUM 

32, 2471 

66405 

0 

DM  P 

SL2P 

CONVERT  UNITS  AND  SCALING  OF  PANGF 

REF 

1 

32,2472 

24014 

1 

R ANGCONV 

PER  BIT,  END  WITH  METER S, SCAL ED  -29 

REF 

- 3 

LAST 

2 1 6 

32,2473 

37755 

1 

STCALL 

PM 

REF 

3 

LAST 

554 

32, 2474 

46041 

0 

RPNB 

COMPUTE  RADAR  LOS  USING  RRNB 

REF 

3 

LAST 

16  1 

32,2475 

17737 

1 

STODL 

RR  BO  RS IT 

AND  SAVE 

32, 2476 

00025- 

0 

2 OD 

REF 

16 

LAST 

576 

32, 2477 

34041 

0 

STCALL 

TDEC  1 

GET  STATE  VECTOR  LOS  AT  TIME  OF  CDU  READ 

REF 

4 

LAST 

529 

32,2500 

51151 

0 

LPS20.1 

32, 2 501 

77776 

1 

EXIT 

REF 

4 

LAST 

580 

32,  2502 

3 1455 

1 

CA 

A IG 

STORE  IMU  CDU  ANGLES  AT  MARKTIME 

REF 

10 

LAST 

49  1 

32,2503 

54  7 66 

1 

TS 

C DUS  POT 

IN  CDUSPOT  FOR  TRG*SMNB 

REF 

1 

32,2  504 

3 1456 

1 

CA 

AMG_ 

REF 

11 

LAST 

58  1 

32, 2505 

54  770 

0 

TS 

CDUSPOT  +2 

REF 

4 

LAST 

580 

32,2506 

3 1457 

0 

CA 

AOG 

REF 

12 

LAST 

58  1 

32,2507 

54  772  1 

TS 

CDUSPOT  +4 

REF 

46 

LAST 

581 

32,2510 

0 60  36 

1 

TC 

INTPRET 

32,2511 

451  75 

0 

VL  OAD 

CALL 

LOAD  VECTOR  AND  CALL  TRANSFORMATION 

REF 

11 

LAST 

576 

32,2512 

01102 

0 

RETARGET 

REF 

1 

32,2513 

47555 

1 

TRG*SMNB 

ROTATE  LOS  AT  MARKTIME  FROM  SM  TO  NB. 

32,  2 514 

77641 

1 

DPT 

DOT  WITH  RADAR  LOS  TO  GET  ANGLE 

REF 

4 

LAST 

58  1 

32, 2515 

03737 

1 

RPBORSIT 

32,2516 

65552 

0 

SL  1 

ACOS 

BETWEEN  THEM 

REF 

22 

LAST 

46  1 

32,2517 

01046 

1 

STORE 

DSPT EMI 

STORE  FOR  POSSIBLE  DISPLAY 

32,2520 

50025 

0 

DSU_ 

BMN 

IS  IT  LESS  THAN  3 DEGREES 

REF 

1 

32,2521 

24544 

1 

THREEDEG 

REF 

1 

32, 2 522 

64527 

0 

NORMEXIT 

YES-NORMAL  EXIT 

GAP: 

L 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2607 

2607 

2608 
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REF 

37 

LAST 

56  2 

32,2  523 
32,2524 

77776 
3 4752 
44  184 

1 

0 

0 

EX  IT 

CAF 

TS 

B IT2 
MPAC 

ERROR  EXIT  2 
SET  ERROR  CODE 

REF 

REF 

1 

LWi  1 

32,2526 

1 2532 

0 

TC  F 

0UT22.1 

777  7<s 

1 

NDRME  X T T 

F X T T 

NORM Al  EX  I T- SET  M P AC- 

EQUAL  7 FRO 

REF 

120 

LAST 

574 

32,2530 

3 4755 

1 

CAF 

ZERO 

REF 

238 

LAST 

582 

32,  2531 

54  154 

0 

TS 

MPAC 

REF 

4 

[ AST 

sr  n 

32,2  532 

31*735 

1 

-OUT  22.  1 

CAE 

LRS22.1X 

EXIT  FROM  LRS22.1 

REF 

10 

LAST 

552 

32,2533 

0 4640 

1 

TC 

BANK  JUMP 

REF 

15 

LAST 

569 

32, 2534 

30  101 

l 

CHEXERR 

CAE 

FLAG  WRD5 

Q p F 

1 

32,  2 535 

7 4742 

0 

MASK 

RNGSCB IT 

REF 

200 

LAST 

574 

32,2536 

10  000 

0 

CCS 

A 

CHECK  IF  RANGE  SCALE 

CHANGED 

REF 

1 

32, 2537 

1 2414 

0 

TCF 

REA  DR DOT 

YES-TAKE  ANOTHEP  READING 

REF 

33 

LAST 

569 

32,  2 540 

3 4753 

1 

EREXI T1 

CA 

BIT1 

SET  ERROR  CODE 

REF 

239 

LAST 

582 

32,  2 541 

54  1 54 

0 

TS 

MPAC 

REF 

— 2- 

L-AST 

58-2 

32,2  542 

0 2532 

1 

TC 

0UX22.L 

32.2543  00210  1 THREEDEG  2DEC  .008333333  THREE  DEGREES , SCALED  REVS, BO 

32.2544  21042  1 
ilOl 


REF  12  LAST  -5-8-1 


RRLOSVEC  EQUALS  RETARGET 
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L P20-P25  USER'S  PAGE  NO.  80  E7  S3 

P 2609  PROGRAM  NAME  - LRS22.2  (DATA  READ  SUBROUTINE  2) 

R2610  MOD.  NO.  : 1 BY:  P VOLANTE  SOC  DATE  4-11-67 

R261 1 FUNCTIONAL  DESCRIPTION 

R2612  2)  CHECKS  IF  THE  RR  LOS  (I.E.  THE  RADAR  BORES  IGHT  VECTOR)  IS  WITHIN  30  DEGREES  OF  THE  LM  + Z AXIS 

R2614  CALLING  SEQUENCE-  BANKCALL  FOR  LRS22.2 


R2615  SUBROUTINES  CALLEC:  G+N.AUTO  SETMAXD8 

R2616  NORMAL  EXIT  - RETURN  TO  CALLER-  WITH  M PAC  - SET-XQ-+.0- 1 VIA  S WRE  TURN } 

R 26 1 7 ERROR  EXXT  - RETURN  TO  CALLER  WIIH  MPAC  SET  TO  00001  -RADAR  LOS  -N-OT  WITHIN  30  DEGREES  OF  LfX+Z  AXIS 
R2619  ALARMS  - NONE  — LN— THE— AUTO  MODE 


R 262 1 ERASABLE  I N I T I AL  I ZAT  ION  RE  QU I RED  =— 

R2622  RRLOSVEC  - THE  RR  L I NE-OF-SIGHT  VECTOR-A  HALF  UNIT  VECTOR  COMPUTED  BY  LRS22.1 

R2624  RM  - RR  RANGE,  METERS  B-29,  FROM  LRS22.1 

R2625  BIT  14  CHANNEL-  31  -INDICATES  AUTOPILOT  IS  IN  AUTO  MODE 


R2626  DEBRIS  - A, L , Q MPAC  -PUSHLISI  AND  PJSHLOC  ARE  NOT  CHANGED  BY  THIS  ROUTINE 


26  28 
2629 

REF 

— 5- 

LAST 

57  5 

24,2000 

24,3230 

SFTinc 

BANK 

P2-0-S- 

2630 

REF 

8 

LAST 

580 

24, 3230 

0 4645 

1 

LRS22.2 

TC 

MAKFCADR 

2631 

REF- 

— 5_ 

LAST 

5 8 2 

24,3731 

55' 735 

0 

TS 

LRS22.1X 

2632 

A2633 

REF 

47 

LAST 

58  1 

24, 3232 

0 6036 

1 

TC 

INTPPFT 

CHECK  IF  RR  LOS  IS  WITHIN  30  DEG  OF 

2634 

24,3233 

65545 

0 

30DEGCHK 

DLOAD 

ACOS 

THF  SPACECRAFT  + 7 AXIS 

2635 

REF 

5 

LAST 

58  1 

24,3234 

03743 

1 

RR  BO  RS I T +4 

BY  TAKING  ARCCOS  OF  Z-COMP.  OF  THE  RR 

A2636 

LOS  VECTOR, A HALF  UNIT  VECTOR 

A2637 

IN  NAV  BASE  AXES) 

2638 

24,3235 

50025 

0 

DSU 

BMN 

2639 

REF 

1 

24,3236 

11252 

1 

3 ODE  G 

264-0 

REF 

1 

24, 3237 

- 51244 

1 

OKF  X IT 

NORMAL  EXIT-WITHIN  30  DEG. 

2641 

24, 3240 

77776 

1 

EXIT 

ERROR  EXIT-NOT  WITHIN  30  DEG. 

2642 

REF 

34 

LAST 

582 

24, 3241 

3 4753 

1 

CAF 

B I T 1 

SET  ERROR  CODE  IN  MPAC 

2643 

REF 

240 

LAST 

582 

24, 3242 

54  154 

0 

TS 

MPAC 

2644 

REF 

1 

24,3243 

1 32  47 

1 

TC  F 

0UT22.2 

2645 

24,3244 

77776 

1 

OKEXIT 

EXIT 

NORMAL  EXIT-SET  MPAC  = ZERO 

583 


< 
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L 

P 20- 

■P25 

USER'S  PAGE  MO. 

81  E7  S3 

2646 

2647 

REF 

REF 

121 

241 

LAST 

LAST 

L A^T 

58  2 
583 
3 S 3 

24. 3245 

24. 3246 

74. 3247 

3 4755 
54  154 
31 ' 735 

1 

0 

1 

OUT  22. 2 

CAF 

TS 

CAE 

ZERO 

MPAC 

LRS22.1X 

2649 

REF 

11 

LAST 

582 

24, 3250 

0 4640 

1 

TC 

BANK  JUMP 

2650 

2650 

24. 3251 

24. 3252 

02525 

12525 

1 

0 

30DEG 

20EC 

. 0R3333333 

THIRTY  DEGREES, SCALED 

REVS, BO 
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L 

P20-P25 

USER'S  PAGE  NO.  82  E7  S3 

P2651 

R2653 

PROGRAM  NAME  - LSR22.3 
MOD.  NO  3 

MGC.  BY  - DANFORT H 

DATE  - 29  MAY  1967 
LOG  SECTION  - P20-25 
ASSEMBLY  LEMP20S  REV  10 

R2657 

R2658 

FUNCTIONAL  DESCRIPTION 

R2659 
R 26  61 
R2663 

THIS  ROUTINE  COMPUTES  THE  B-VECTORS  AND  DELTA  0 FOR  EACH  OF  THE 
RACAR.  (RANC-E, RANGE  RATE, SHAFT  AND  TRUNNION  ANGLES).  THE  ROUTINE 
WHICH  COMPUTE  THE  DEVIATIONS  AND  CORRECT  THE  STATE  VECTOR. 

QUANTITIFS  MEASURED  BY  THE  RENDEZVOUS 
CALLS  THF  INC0RP1  AND  INC0RP2  ROUTINFS 

R2664 

R2665 

CALLING  SEQUENCE 

THIS  ROUTINE  IS  PART  OF  P20  RENDEZVOUS  NAVIGATION  FOR  THE  LM  COMPUTER  0 NLY . THE  ROUTINE  IS  ENTERFD  FROM 

R2667 

R2669 

R2671 

R22LEM  ONLY  AND  RETURNS  DIRECTLY  TO  R22LEM  FOLLOWING  SUCCESSFUL  INCORPORATION  OF  MEASURED  DATA.  IF  THF 
COMPUTED  STATE  VECTOR  DEVIATIONS  EXCEED  THE  MAXIMUM  PEPMITTED.  THE  ROUTINE  RETURNS  TO  R22LEM  TO  DISPLAY 
THE  DEVIATIONS.  IF  THE  ASTRONAUT  ACCEPTS  THE  DATA  R22LEM  RETURNS  TO  LSR22.3  TO  INCORPORATE  THE 

R2673  DEVIATIONS  INTO  THE  STATE  VECTOR.  IF  THE  ASTRONAUT  REJECTS  THE  DEVIATIONS,  NO  MORE  MEASUREMENTS  ARE 
R2675  PROCESSED  FOR  THIS  M AR K , I . E . , R2 2L E M GETS  THE  NEXT  MARK. 


R2676 

R2677 

R2678 

R2679 

R2680 

R2681 

SUBROLTINES  CALLED 

WLINIT  LGCUPCTE  INTEGRV  INC0RP1 

ARCTAN 

C-ETULC  RARARANG  INC0RP2  NBSM 

OUTPUT 

INTSTALL 

R2682 

R2683 

R2684 

CCRRECTED  LM  OR  CSM  STATE  VECTOR  (PERMANENT) 
NUMBER  OF  MARKS  INCORPORATED  IN  MARKCTR 
MAGNITUDE  OF  PO  S I T I ON-  DEV  I AT  I ON  IFOR  DISPLAY) 

IN  R22DISP 

METERS  8-29 

R2685 

R2686 

R2687 

MAGNITUDE  OF  VELOCITY  DEVIATION  (FOR  DISPLAY) 
UPDATED  W-MATRIX 

IN  R22DISP 

+2  M/CSEC  B-7 

R2688 

R2689 

ERASAELE  INITIALIZATION  REQUIRED 
LM.  AND  CSM  STATE  VECTORS 

R2690 

R2691 

R2692 

W-MATRIX 

MARK  TIME  IN  MKT  IME 

RADAR  RANGE  IN  RM  METERS-  B-29. 

R2693 

R2694 

R2695 

RANGE  RATE  IN  RDOTM  MFTERS/CSES  B-7 
SHAFT  ANGLE  IN  RRSHAFT  REVS. BO 
TRUNNION  ANGLE  IN  RRTRUR  REVS.  BO 

R2696 
R2697 
R 2698 

GIMBAL  ANGLFS  INNER  IN  A I G 
MIDDLE  IN  AMG 
- -OUTER  IN  AOG 

R2699 

R2700 

R2701 

REFSMMAT 

RENDWFLG 

NCANGFLG 

R2702 

VEHUPFLG 

R2703 

DEBRIS 

R2704 
R27  05 

PLSHLIST — ALL 

MX,  MY,  MZ  (VECTORS) 

GAP 
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L 

P20-R25 

R2706 

ULC.RXZ.SINTHETA ,LGRET 

2707 

2708 

9 ~r  n Q 

REF 

1 

13 

26 

26 

c.  1 U'y 

2710 

REF 

28 

LAST 

572 

E7 

DCC 

1 

c 1 1 1 

Ktr 

1 

2712 

26 

2713 

REF 

7 

LAST 

518 

26: 

2714 

26 

2715 

REF 

7 

LAST 

576 

26 

2716 

REF 

1 

26, 

2717 

REF 

1 

26 

2718 

26, 

2719 

REF 

6 

LAST 

51  2 

26, 

272  0 

REF 

1 

26, 

2721 

REF 

11 

LAST 

5 1 2 

26, 

2722 

26, 

2723 

REF 

- 10 

LAST 

512 

-26, 

2724 

REF 

4 

LAST 

512 

26, 

2725 

26, 

2726 

REF 

x 

26, 

2727 

26, 

2728 

REF 

8 

LAST 

586 

26, 

2729 

26, 

2730 

REF 

12 

LAST 

586 

26, 

2731 

26, 

2732 

REF  - 

7 

LAST 

512 

26. 

2733 

REF 

5 

LAST 

5 1 2 

26, 

2734 

REF 

1 

26, 

2735- 

26, 

2736 

REF 

8 

LAST 

586 

26, 

2737 

REF 

5 

LAST 

51  2 

26, 

2738 

26, 

2739 

REF 

11 

LAST 

586 

26, 

2740 

RFF 

3 

LAST 

506 

26, 

2741 

26, 

2742 

REF 

1 

26, 

2743 

REF 

2 

LAST 

586 

26, 

2744 

26, 

2745 

REF 

1 

26, 

2746 

26, 

2747 

REF 

13 

LAST 

586 

26, 

2748 

26, 

2749 

REF 

12 

LAST 

586 

26, 

2750 

REF 

5 

LAST 

5 86 

26, 

2751 

26, 

2752 

REF 

3 

LAST 

586 

26, 

,BVECT0R,W.IND,X78T 


BANK 

1 3 

SETLOC 

P20S  3 

BANK 

EB ANK= 

LCSC CUNT 

COUNT* 

$1/1  SR 22 

77624 

1 

LSR22.3 

CALL 

11165 

0 

GPP2PC 

43014 

0 

BON 

SET 

04307 

1 

SURF  FLAG 

55143 

1 

LSR22.4 

02466 

1 

QMENFLG 

45014 

0 

BOFF 

CALL 

00747 

0 

VEHUPFLG 

54432 

0 

DOLE  M 

27412 

0 

I NT  STALL 

45014 

0 

CLEAR 

CALL 

01674 

0 

VINTFLAG 

26644 

0 

SET  I FLGS 

77624 

1 

CALL 

55205 

0 

INT-GRCAL 

77624 

1 

CALL 

11165 

0 

GRP 2 PC 

77^24 

l 

C A 1 1 

27412 

0 

I NTS  TALL 

43014 

0 

CLEAR 

BOFF 

01676 

1 

DI MO  FLAG 

02756 

1 

REND  WFLG 

54422 

1 

NOTWCSM 

43014 

o 

SET 

SET 

01476 

0 

DI MO  FLAG 

01475 

0 

D60P 9FLG 

43014 

0 

NOTWC  SM 

SET 

CLEAR 

01474 

1 

VINTFLAG 

01673 

1 

INTYPFLG 

45014 

0 

SET 

CALL 

01472 

1 

STAT  EFLG 

55205 

0 

I NTGRCAL 

77650 

1 

GOTO 

54462 

0 

MARKTEST 

77624 

1 

DOLEM 

CALL 

27412 

Q 

I NTS  TALL 

45014 

0 

SET 

CALL 

01474 

1 

VINTFLAG 

26644 

0 

SET  I FLGS 

77624 

1 

CALL 

55205 

0 

I NTGRCAL 

i R ORET 

,2201 

,2000 

^2  370 

, 1 454 

,2370 

2371 

,2  372 

,2373 

2 374 

,2375 

2376 

2377 

-2400 

2 401 

2402 

-2  403 

2 404 

2405 

2406 

2 40  7 

2410 

2 411 

2412 

2413 

2414 

2415 

2416 

2417 

2420 

2 421 

2422 

2423 

2424 

2425 

2426 

2427 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2 440 


19:02  NOV.  25,1968  LEMP20S  .114  PAGE  586 


USER'S  PAGE  NO.  83  E7  S3 


ARE  WE  ON  LUNAR  SURFACE 
YES 


LM  PRECISION  INTEGRATION 


CSM  WITH  W-MATRIX  INTEGRATION 


GAP:  ASSEMBLE  REVISION  0-69  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021  112-C.ll 


L P20-P25 


2753 

26,2441 

77624 

1 

CALL 

2754 

REF 

9 

LAST 

586 

26,2442 

11165 

0 

GP.P2  PC 

76 t 7 443 

77624 

1 

CALL 

2756 

REF 

14 

LAST 

586 

26,2444 

27412 

0 

INTSTALL 

2757 

26, 2445 

43014 

0 

CLEAR 

■BOFF 

?7S8 

REF 

9 

L AST 

586 

26,2446 

01676 

-1 

DIMOFLAG 

2759 

REF 

6 

LAST 

596 

26,2447 

02756 

1 

RFNDWFLG 

2760 

REF 

1 

26,2450 

54454 

0 

NOTWLEM 

2761 

26,2451 

43  014 

0 

SET 

SET 

2762 

REF 

10 

LAST 

587 

26,2452 

01476 

0 

DIMOFLAG 

2763 

REF 

6 

LAST 

586 

26,2453 

01475 

0 

D6CR9FLG 

2764 

26*2454 

43014 

0 

NOTWLEM 

CLEAR 

CLEAP 

2765 

REF 

4 

LAST 

586 

26, 2455 

01673 

1 

I NTYPFLG 

2766 

REF 

13 

LAST 

586 

26, 2456 

01674 

0 

VI  NT  FLAG 

?767 

26, 7457 

45014 

0 

SET 

CALL 

2768 

REF 

2 

LAST 

586 

26,2460 

01472 

1 

STAT  EFLG 

2769 

REF 

4 

LAST 

586 

26,2461 

55205 

0 

INTGRCAL 

2770 

2 6,2-462 

450  14 

0 

MARKTEST 

BON 

CALL 

2771 

REF 

7 

LAST 

587 

26, 2463 

02716 

0 

R ENDWFLG 

2772 

REF 

1 

26,2464 

54474 

1 

RANGEBO 

2773 

REF 

1 

26,2-465 

55214 

0 

WLI N IT 

2774 

26, 2466 

77776 

1 

FXIT 

2775 

REF 

122 

LAST 

584 

26, 2467 

3 4755 

1 

CA 

ZERO 

2776 

RFF 

5 

LAST 

53-0 

26,2470 

55*743 

l 

TS 

R65C NTP 

2777 

REF 

142 

LAST 

58  1 

26, 2471 

0 46  16 

1 

TC 

BANKCALL 

2778 

REF 

3 

LAST 

519 

26,2472 

46105 

1 

CADR 

R65LEM 

2779 

RFF 

48 

LAST 

583 

26,2473 

0 6036 

1 

TC 

I NTPRET 

2780 

26,2474 

431  74 

1 

RANGEBO 

AXT  ,2 

BON 

27  81 

26, 2475 

000  00 

1 

0 

2782 

RFF 

2 

LAST 

36 

26,2  476 

04304 

1 

L MO  CUM  F LG 

2783 

REF 

i 

26, 2477 

54502 

l 

SETX2 

2784 

26,2500 

77714 

0 

INCR , 2 

2785 

26,  2 50  1 

00002 

0 

2 

2786 

26,2502 

45134 

0 

SETX2 

S X A , 2 

CALL 

2787 

REF 

2 

LAST 

160 

26,2503 

03716 

l 

SCALSHFT 

2788 

REF- 

10 

LAST 

587 

- 26,2  504 

11165 

0 

GRP2 PC 

27882 

26,2505 

54335 

0 

SLOAD 

SR 

27884 

REF 

1 

26, 2 506 

01775 

0 

RVAP  MI  N 

27886 

26, 2507 

20635 

0 

28D 

27887 

26,2510 

77634 

0 

RTB 

27888 

REF 

1 

26,  251  1 

21537 

0 

TPMODE 

27889 

26,2512 

00025 

0 

STORE 

2 OD 

2789 

26,2  513 

77624 

1 

CALL 

2790 

REF 

1 

26, 2514 

55276 

1 

GETUIC 

2791 

26,2515 

57414 

1 

BON 

VCOMP 

2792 

REF 

7 

LAST 

586 

26,2516 

00707 

1 

VFHUPFLG 

2793 

26,2517 

54520 

1 

+ 1 

2794 

REE 

2 

LAST 

16-0 

26,2  520 

27523 

0 

STOVL 

B VEC  TOR 

2795 

REF 

2 

LAST 

36 

26,2521 

06424 

0 

ZERO VFCS 

2796 

REF 

3 

LAST 

58  7 

26,2522 

03531 

0 

STORF 

BVECTOR  +6 

19:02  NOV.  25,1968  LEMP20S  .114  PAGE  587 


USER'S  PAGE  NO.  84  E7  S3 


LM  WITH  W-MATRI X INTEGRATION 


HAS  W- MATRIX  BEEN  INVALIDATED 
HAS  W-MATRIX  BEFN  INVALIDATED 

YES-REINITIAL  IZE 


CLEAR  X 2 . 

IS  MOON  SPHERE  _0F  INFLUENCE 

YES.  STORE  ZERO  IN  SCALSHFT  REGISTER 


O-MOON.  2-EARTH 

GET  SINGLE  PRECISION  RV  ARM  IN  (R-12) 
SHIFT  TO  TRIPLE  PRECISION  (3-40) 


AND  SAVE  IN  20D 

BEGIN  COMPUTING  THF  B-VECTORS ,DELTAQ 

B-VECTORS  FOR  RANGE 

RO,  COMP.  IF  LM  BEING  CORRECTED 


B 1 


GAP: 

L 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 


ASSEMBLE  REVISION  069  OF  AGC  PROG  RAW  LUMINARY  BY  NASA  20121-112-013 


1-9:02  NOV.  25,1968  LFMP20S  .114  PAGE  588 


P20-P25 


USER'S  PAGE  NO.  85  E7  S3 


REF 

4 

LAST 

587 

26,2523 

17537 

0 

STOOL 

BVECTOR  +120 

B2 

26, 2524 

00045 

0 

360 

2Af  2 525 

442  57 

1 

SRR* 

BOSU  _ 

26,2526 

561  74 

0 

2,2 

SHIFT  FROM  EARTH/MOON  SPHERE  TO  B-29 

REF 

4 

LAST 

58  1 

26,2  527 

03755 

0 

RM 

RM  - (MAGNITUDE  RC  SM— R L M ) 

2A*  2 5^0 

77657 

o 

SLR* 

26,2  531 

56574 

1 

2,2 

SHIFT  TO  EARTH/MOON  SPHERE 

REF 

2 

LAST 

160 

26,2532 

17545 

0 

STOOL 

OELT AO 

EARTH  B-29.  MOON  B-27 

25,  2 533 

00045 

0 

360 

RLC  B-29/B-27 

26,  2 534 

63501 

0 

NORM 

0 SO 

NORMALIZE  AND  SQUARE 

REF 

3 

LAST 

400 

26, 2535 

00047 

1 

XI 

26,2  536 

53605 

1 

DM  P 

SP* 

REF 

1 

26,  2 537 

01771 

1 

R ANGEVAR 

MULTIPLY  BY  RANGE VAR ( B 1 2)  THEN 

26,2  540 

20577 

0 

0-2,1 

UNNORMAL  I Z E 

26, 2 541 

53657 

0 

SR* 

SP* 

26,2542 

20601 

1 

0,1 

26,2  543 

57176 

0 

0,2 

25,  2 544- 

47057 

0 

SR* 

RTB 

26,  2 545 

57176 

0 

0,2 

REF 

2 

LAST 

587 

26,2546 

21537 

0 

TPMODE 

REF 

2 

I a<;t 

1 4 1 

26, 2 547 

02  707 

0 

STORF 

VAR  I ANCE 

B— 40 

26,2550 

762  76 

0 

DCOMP 

TAD 

26,2551 

00025 

0 

2 OD 

0 

1 

CD 

26,2  552 

72240 

1 

RMN 

TLOAD 

REF 

i 

26, 2553 

54556 

0 

QOK 

26,2554 

00025 

0 

20D 

B— 40 

R FF 

3 

1 AST 

5 3 8 

26, 2 555 

02707 

0 

STORE 

VAR  I ANCE 

26,2556 

77624 

1 QOK 

CALL 

REF 

i 

26,2557 

55344 

1 

LGCUPDTE 

26,2560 

77624 

1 

CALL 

REF 

ii 

LAST 

587 

26,2561 

11165 

0 

GPP2  PC 

26, 2 562 

77624 

1 

CALL 

B-VECTOR .OELTAQ  FOP  RANGE  RATE 

REF 

2 

LAST 

58  7 

26, 2563 

55276 

1 

GETULC 

26,2564 

53725 

1 

PDOL 

SR* 

GET  RLC  SCALED  B-29/B-27 

26, 2565 

00045 

o 

3 6D 

AND  SHIFT  TO  B-23 

26,2566 

57202 

0 

0 -4  ,2 

26,2567 

24045 

0 

STOVL 

3 60 

THEN  STORE  BACK  IN  36D 

26, 2 570 

57414 

1 

RON 

VCCN"  P 

Bl,  COMP.  IF  LM  BEING  CORRECTED 

REF 

8 

LAST 

587 

26,2571 

00707 

1 

VEHUPFLG 

26,2  572 

54573 

1 

+ 1 

26,2573 

77761 

1 

vx  SC 

26,2574 

00045 

0 

3 60 

B 1 = RLC  ( 8-24/8-22 ) 

REF 

5 

LAST 

588 

26,2575 

27531 

0 

STOVL 

BVECTOR  +6 

REF 

1 

26,2576 

016  53 

0 

NUVLEM 

26,2577 

53257 

1 

VSR* 

VAD 

26,2600 

57170 

0 

6,2 

SHIFT  FOR  FARTH/MOON  SPHERE 

REF 

-2— 

LAST 

-510 

26,2601 

01667 

1 

VCVL EM 

EARTH  B— 7 . MOON  3-5 

26, 2602 

53715 

1 

PDVL 

VSR* 

VL  TO  P06 

REF 

1 

26,2603 

01601 

1 

NUVC SM 

GAP: 

L 

ASSEMBLE 

P20-P25 

REV  IS  ION  &69 

OF  AGG  PROGRAM  LUMINARY 

BY  NASA  2021112-011 

19:02  NOV.  25,1968  LEMP20S  .114  PAGE 
USER'S  PAGE  NO.  86  E7  S3 

2 846 

26, 2604 

571  70 

0 

6,2 

SHIFT  FnR  EARTH/MOON  SPHERE 

2847 

26, 2605 

522  55 

1 

VAD 

VSU 

?R4fl 

REF 

1 

26, 2606 

01615 

1 

VCVC  SM 

2849 

26, 2607 

50315 

0 

PD  VL 

DOT 

VC  - VL  = VLC  TO  PD6 

2850 

26, 2610 

00001 

0 

0 

S 1 

26,2611 

00007 

0 --  - 

6 

2852 

26, 2612 

53606 

1 

PUSH 

SRR* 

ROOT  B-8/B-6  TO  PD12 

2853 

26,2613 

561  74 

0 

2,2 

SHIFT  FROM  EARTH/MOON  SPHERE  TO  B-8 

2854 

26, 2614 

573  16 

l 

DSQ 

DMPR 

ROOT **2  B— 1 6 X PATFVAR  812 

2855 

REF 

1 

26, 2615 

01773 

0 

RATE  VAR 

2856 

REF 

4 

LAST 

588 

26,2616 

02707 

0 

STORE 

V AP I ANCE 

2861  2 

26,2617 

54335 

0 

SLOAD 

SR 

28614 

REF 

1 

26,2620 

01  776 

0 

WAR  MIN 

GET  SINGLE  PRECISION  VV  ARM  IN  (B+12) 

28616 

26, 2621 

20621 

0 

1 6D 

SHIFT  TO  DP  IB  -4) 

28618 

26,2622 

00031 

0 

STORE 

2 4D 

AND  SAVE  IN  24D 

2862 

26, 2623 

50025 

0 

DSU 

BMN 

IS  MIN.  VARIANCE  > COMPUTED  VARIANCE 

2863 

REF 

5 

LAST 

589 

26,2624 

02707 

0 

VARI ANCE 

2 864 

REF 

1 

26,2625 

54631 

1 

VOK 

BRANCH  - NO 

2865 

26, 2626 

77745 

1 

DLOAD 

YES  - USE  MINIMUM  VARIANCE 

2866 

26,2627 

00031 

0 

2 4D 

2873 

REF 

6 

L AST 

589 

26,2630 

02707 

0 

STORE 

VAR  I ANCE 

2874 

26, 2631 

60545 

0 VOK 

DLOAD 

SR2 

RD0TIPD12)  FROM  B-8/B-6 

2875 

26, 2632 

53725 

l 

PDDL 

SLR* 

TO  B- 10/8-8 

2876 

REF 

— 3- 

LAST 

5 8 L_ 

26,2633 

03747 

0 

RDDTM 

SHIFT  TO  EARTH/MOON  SPHERE 

2877 

26, 2634 

56577 

1 

0 -1  ,2 

B-7  TO  8-10/B-8 

2878 

26,2635 

77625 

0 

DSU 

2879 

26, 2636 

77675 

0 

DM  PR 

2880 

26, 2637 

00045 

0 

36D 

2881 

REF 

3 

LAST 

588 

26,2640 

27545 

0 

STOVL 

DELTAQ 

B-33 

2882 

26,2641 

00001 

0 

0 

NOW  GFT  BO 

2883 

26,2642 

47235 

0 

VXV 

VXV 

{ ULC  X VLC)  X ULC 

2884 

26,2643 

57414 

1 

BON 

VCDMP 

BO,  COMP.  IF  LM  BEING  CORRECTED 

2885 

RE£ 

-9 

LAST 

58  8 

26,2644 

00707 

1 

VEHUPFLG 

2886 

26, 2645 

54646 

1 

+ 1 

2887 

26,2646 

77657 

0 

VSR* 

2888 

26,2647 

57200 

1 

0 -2  ,2 

SCALED  R-5 

2889 

REF 

6 

LAST 

588 

26,2650 

27523 

0 

STOVL 

BVECTPR 

2890 

REF 

3 

LAST 

587 

26,2651 

06424 

0 

Z FRO VECS 

2891 

26, 2652 

00025 

0 

STORE 

2 OD 

ZERO  OUT  20  TO  25  IN  PUSHLIST 

2892 

REF 

7 

LAST 

589 

26,2653 

27537 

0 

STOVL 

BVECTOR  + 12D 

2893 

REF 

8 

LAST 

589 

26,2654 

03523 

0 

BVEC  TOR 

2894 

26, 2655 

60246 

1 

A8VAL 

NORM 

LOAD  BO,  GET  MAGNITUDE  AND  NORMALIZE 

2895 

26, 2656 

00025 

0 

2 OD 

SHIFT  COUNT  IN  20D 

2896 

26, 2657 

51575 

1 

VLOAD 

4 6VAL 

2897 

REF 

9 

LAST 

58-9 

-26,2660 

03531 

0 

BVECTOR  +60 

LOAD  Bl,  GET  MAGNITUDE  AND  NORMALIZE 

2898 

26, 2661 

71301 

0 

NORM 

DLOAD 

2899 

26,2662 

00027 

1 

22D 

SHIFT  COUNT  IN  22D 

2900 

26,  2663 

00027 

1 

2 2 D 

FIND  WHICH  SHIFT  IS  SM ALL  FR 

2901 

26, 2664 

50025 

0 

DSU 

BMN 

BRANCH-  BO  HAS  SMALLER  SHIFT  COUNT 

2902 

26,2665 

00025 

0 

2 OD 

589 


GAP: 


ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L 

P20- 

P25 

2903 

REF 

1 

26, 2666 

54672 

0 

VCK1 

2904 

26,2667 

52150 

1 

L X A , 1 

GOTO 

26,2670 

00026 

0 

2 2D 

2906 

REF 

1 

26, 2671 

54674 

0 

V OK  2 

2907 

26,2672 

77750 

0 

V0K1 

LX  A , 1 

2 6t 2673 

00024 

1 

2 OF).  __ 

2909 

26,2674 

53775 

1 

V0K2 

VLOAD 

V SL  * 

2910 

REF 

10 

LAST 

589 

26, 2675 

03523 

0 

BVECTOR 

26, 2676 

20201 

0 

0,1 

2912 

REF 

11 

LAST 

590 

26,2677 

27523 

0 

STOVL 

BVECTCR 

2913 

REF 

12 

LAST 

590 

26,2700 

03531 

0 

BVECTOR  +6 

?6 1 ? 7n 1 

77657 

0 

VSL* 

2915 

26,2702 

20201 

0 

0,1 

2916 

REF 

13 

LAST 

590 

26,2703 

17531 

0 

STOOL 

BVECTOR  +6 

r g q 

2 704 

03  S 45 

o 

DFL  T AO 

2918 

26,2705 

77657 

0 

SL* 

2919 

26,2706 

20201 

0 

0,1 

2920 

Rf  F 

5 

1 AST 

- 590 

26,2707 

03  545 

0 

STORE 

DEL  T AQ 

2921 

26,2710 

53745 

1 

DLOAD 

SL* 

2922 

26,2711 

00045 

0 

36D 

2923 

26, 2712 

20200 

1 

0 -1,1 

2924 

26,2713 

41316 

0 

DSD 

DMP 

2925 

REF 

7 

LAST 

589 

26,2714 

02707 

0 

VAR  I ANCE 

2926 

26,2  715 

47012 

1 

SL4 

RTB 

29263 

REF 

3 

LAST 

58  8 

26, 2 716 

21537 

0 

TPMODE 

29266 

REF 

8 

LAST 

590 

26,2717 

36707 

1 

STCALL 

VAR  I ANCE 

2927  REF  2 LAST  588  26,2720  55344  1 LGCUPCTC 


2928 

26,2721 

77624 

1 

CALL 

2929 

REF 

12 

L AST- 

—58  8 

26, 2722 

1 1 165 

0 

GRP 2 PC 

2930 

26,2  723 

77414 

0 

BON 

EXIT 

2931 

REF 

8 

LAST 

586 

26,2724 

04307 

1 

SURF  FLAG 

2932 

REF 

]_ 

26-,2  725 

55141 

o 

REND  END 

2933 

REF 

5 

LAST 

58  1 

E7 , 1455 

EB ANK= 

A IG 

2934 

REF 

1 

26,2726 

3 3275 

1 MXMYMZ 

CAF 

AIGBANK 

2935 

REF 

IS 

LAST 

53-Q— 

26, 2 727 

54  006 

o 

Ts 

3BANK 

2936 

REF 

6 

LAST 

590 

26, 2730 

3 1455 

1 

CA 

A IG 

2937 

REF 

13 

LAST 

58  1 

26, 2731 

54  766 

1 

TS 

CDUSPOT 

2938 

REF 

2 

LAST 

58  1 

26,2732 

3 14  56 

1 

CA 

AMR 

2939 

REF 

14 

LAST 

590 

26,2733 

54  770 

0 

TS 

CDUSPOT  4-2 

2940 

REF 

5 

LAST 

58  1 

26, 2734 

3 1457 

0 

CA 

AOG 

2941 

REE 

15 

L AS  L 

5 9_0 

26,2735 

54  772 

1 

IS 

CDUSPOT  +4 

2942 

REF 

49 

LAST 

587 

26, 2736 

0 6036 

1 

TC 

INTPRET 

2943 

26,2737 

451  75 

0 

VLOAD 

CALL 

2944 

REF 

5 

LAST 

352 

26, 2740 

06422 

0 

UNI  T X 

2945 

REF 

4 

LAST 

268 

26, 2 741 

47570 

0 

TRG*  NBSM 

2946 

26,  2 742 

76505 

0 

VXM 

VSL  1 

2947 

-REF 

ID 

LAST 

576 

26,2743 

01734 

0 

R EES MM AT 

2948 

REF 

5 

LAST 

160 

26,2744 

27675 

0 

STOVL 

MX 

2949 

REF 

3 

LAST 

31  5 

26,2745 

06420 

1 

UNITY 
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LOAD  X2  WITH  THE  SMALLER  SHIFT  COUNT 


THEN  ADJUST  80 , BL , DELT  A Q AND  VARIANCE 
W ITH  THIS  SHIFT  COUNT 


GET  RLC  AND  ADJUST  FOR  SCALE  SHIFT 

MULTIPLY  RLC**2  8 Y VARIANCE 

SHIFT  TO  CONFORM  TO  BVECTORS  AND  OR  T AO 

AND  STORE  TP  VARIANCE 


ARE  ANGLES  TO  BE  DONE 
NO 

YES,  COMPUTE  MX,  MY,  MZ 


GIMBL  ANGLES  NOW  IN  CDUSPOT  FOR  TRG*N  BSM 


GAP:  ASS  EMBL  £ REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY 


L 

P20- 

■P  25 

2950 

26, 2746 

77624 

1 

29  51 

REF 

2 

LAST 

56  1 

26,2747 

47577 

1 

?6t  ? 750 

765  05 

o 

2953 

REF 

11 

LAST 

590 

26,  2 751 

01734 

0 

2954 

REF 

2 

LAST 

160 

26,2752 

27703 

0 

?95S 

REF 

5 

LAST 

3 5 3 

26, 2753 

06416 

1 

2956 

26,  2 754 

77624 

1 

2957 

REF 

3 

LAST 

59  1 

26,2755 

47577 

1 

?95e 

26,2  756 

76505 

0 

2959 

REF 

12 

LAST 

59  1 

26,2757 

01734 

0 

2960 

REF 

2 

LAST 

160 

26,2760 

37711 

1 

SHAFTBQ 

2961 

REF 

1 

26, 2761 

55324 

1 

2962 

26,2762 

776  24 

1 

2963 

REF 

13 

LAST 

590 

26, 2763 

111  65 

0 

2964 

26,2764 

503  75 

0 

2965 

REF 

2 

LAST 

160 

26,  2 765 

03722 

0 

2966 

REF 

6 

LAST 

5 9 C 

26, 2766 

03675 

0 

2967 

26, 2 767 

77752 

1 

2968 

REF 

6 

LAST 

49  1 

26,2770 

24023 

0 

2969 

REF 

3 

LAST 

59  1 

26,2771 

03722 

0 

2970 

26, 2772 

72441 

o 

2971 

REF 

3 

LAST 

59  1 

26,2773 

03711 

0 

2972 

REF 

6 

LAST 

49  1 

26,2774 

34021 

0 

2973 

REF 

3 

LAST 

49  1 

26,2775 

26510 

1 

2974 

26,2776 

41221 

0 

2975 

REF 

3 

LAST 

58  1 

26, 2777 

03734 

1 

2976 

REF 

1 

26, 3000 

15404 

0 

2977 

26, 3001 

41472 

0 

2978 

26,3002 

52545 

1 

2979 

REF 

2 

LAST 

211 

26,3003 

01701 

0 

2980 

26,3004 

442  5 7 

1 

2981 

26, 3005 

56176 

1 

2982 

26,3006 

53605 

1 

2983 

REF 

2 

LAST 

160 

26,3007 

03720 

1 

2984 

26, 3010 

21601 

0 

2985 

REF 

6 

LAST 

590 

-26, 3011 

2 7545 

0 

2986 

REF 

4 

LAST 

591 

26,3012 

03722 

0 

2987 

26, 3013 

76435 

1 

2988 

REF 

3 

LAST 

59  1 

26,3014 

03703 

0 

2989 

26, 3015 

77656 

1 

2990 

26, 3016 

57414 

1 

2991 

REF 

10 

LAST 

589 

26,3017 

00747 

0 

2992 

26, 3020 

55021 

1 

2993 

REF 

14 

LAST 

590 

26,3021 

27523 

0 

2994 

REF 

4 

LAST 

589 

26, 3022 

06424 

0 

2995 

REF 

15 

LAST 

59  1 

26, 3023 

03531 

0 

2996 

REF 

16 

LAST 

59  1 

26,3024 

17537 

0 

2997 

REF 

3 

LAST 

59  1 

26, 3025 

03720 

l 

2998 

26, 3026 

53657 

0 

2999 

26, 3027 

20577 

0 
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CALL 

*NBSM* 

VXM 

VSL1 

REFSMMAT 

STOVL 

MY 

UNITZ 

CALL 

*NBSM* 

VXM 

VSL  1 

REFSMMAT 

STCALL 

MZ 

RADA  RANG 

CALL 

GPP2PC 

VLOAD 

DOT 

COMPUTE  DELTAQ.B  VECTORS  FOR  SHAFT  ANG. 

JLC 

MX 

SL1 

STOVL 

SINTH 

1 80 

ULC 


DOT — SL1 

MZ 


STCALL 

COS  T H 
ARC  TAN 

160 

BDSU 

OMP 

RRSHAFT 
2PI  / 8 


SL3R 

DLOAD 

PUSH 
S L 3 
X 7 8 9 

SRR* 

DMP 

BDSU 

0,2 

SRR* 

SHIFT 

FROM  — 5/-3  TO  BO 

RXZ 

0,1 

SHIFT 

TO  EARTH/MOON  SPHERE 

STOVL 

OELTAQ 

EARTH 

B-29.  MOON  B— 27 

ULC 

VXV 

VSL  1 

MY 

UNIT 

BOFF 

VCOMP 

BO,  COMP.  IF  CSM  BFING  CORRECTED 

VEHU  PFLG 

+ 1 

STOVL 

BVECTOR 

ZEROVFCS 

STORE 

BVECTOR  +6 

STOOL 

BVECTOR  + 1 2D 

RXZ 

SR* 

SRR* 

SHIFT 

FROM  EARTH/MOON  SPHERE  TO  B-25 

0-2,1 


GAP  : 

L 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

30  1 A 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

302  A 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 
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REF 

17 

LAST 

59  1 

26.3030 

26.3031 
pn, 3032 

56176 

03537 

77735 

1 

0 

0 

STORE 

SLOAD 

0,2 

BVFCTOR  +120 

REF 

1 

26, 3033 

02011 

0 

SHAFTVAR 

26,3034 

412  15 

1 

DAO 

DMP 

?A,  3 D 3 5 

15401 

0 

I MUV  AP 

RAD**  2 B 1 2 

REF 

4 

LAST 

59  1 

26,3036 

03720 

1 

RXZ 

26,3037 

41257 

1 

SRR* 

DMP 

p A, 3040 

21601 

0 

0 , 1 

SHIFT  TO  EARTH/MOON  SPHERE 

REF 

5 

LAST 

592 

26, 3041 

03720 

1 

R XZ 

26,3042 

53657 

0 

SR* 

SR  * 

?A, 3043 

20577 

0 

0 -2,1 

26, 3044 

571  76 

0 

0,2 

26,3045 

47057 

0 

SR* 

RTB 

26»  3046 

57176 

0 

0,2 

REF 

4 

LAST 

590 

26,3047 

21537 

0 

TPMODE 

STORE  VARIANCE  TRIPLE  PRECISION 

REF 

9 

LAST 

590 

26, 3050 

36707 

1 

STCALL 

VARI ANCE 

B— 40 

REF 

3 

LAST 

59  C 

26,3051 

55344 

1 

LCCU-PDTF 

26,3052 

77624 

1 

CALL 

R FF 

14 

LAST 

59  1 

26 » 3053 

11165 

0 

GRP2 PC 

26,3054 

77624 

1 

TRUNBQ 

CALL 

REF 

2 

LAST 

59  1 

26,3055 

55324 

1 

PADARANG 

26,3056 

77624 

l 

CALL 

REF 

15 

LAST 

592 

26,3057 

111  65 

0 

GRP2 PC 

26,3060 

47375 

0 

VLOAD 

VXV 

REF 

5 

L AST 

59  1 

2 6 , 3 06  1 

03722 

o 

ULC 

REF 

4 

LAST 

59  1 

26,3062 

03703 

0 

My 

26, 3063 

47372 

1 

VSL 1 

VXV 

REF 

6 

1 AST 

59^2 

2 6,  3 0A4 

037  2? 

0 

ULC 

26,3065 

77772 

0 

VSL  1 

(ULC  X MY  1 X ULC 

26,3066 

57414 

1 

BOFF 

VCOMP 

80,  COMP.  IF  CSM  BEING  CORRECTED 

REF 

1 1 

LAST 

59  1 

26, 3067 

00747 

0 

VEHL  PFLG 

26,3070 

55071 

1 

+ 1 

REF 

18 

LAST 

592 

26, 3071 

27523 

0 

STOVL 

BVFC  TOR 

REF 

5 

LAST 

59  1 

26,3072 

06424 

0 

ZFPCVECS 

REF 

19 

LAST 

592 

26,3073 

03531 

0 

STORE 

BVFCTOR  +6 

REF 

20 

LAST 

592 

26,3074 

17537 

0 

STOOL 

BVECTOR  +120 

REF 

-6 

LAST 

592 

26,3075 

03720 

1 

PXZ 

26, 3076 

53657 

0 

SR* 

SPR* 

SHIFT  FROM  EARTH/MOON  SPHERE  TO  B-25 

26, 3077 

20577 

0 

0-2,1 

26, 3 100 

56176 

1 

0,2 

REF 

21 

LAST 

592 

26,3101 

03541 

1 

STORE 

BVECTOR  +14D 

26, 3 102 

77735 

0 

SLOAO 

REF 

— 1- 

26,3 103 

020  12 

o 

TP UN  VAR 

26,3  104 

41215 

1 

DAO 

DMP 

REF 

2 

LAST 

592 

26, 3105 

15401 

0 

I MU V AP 

REF 

7 

-LAST 

5 92- 

26,3106 

03720 

1 

R X 7 

26,3  107 

41257 

1 

SRR* 

DMP 

26,3110 

21601 

0 

0,1 

SHIFT  TO  FARTH/MOON  SPHERE 
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3049 

3050 
30  51 

REF 

8 

LAST 

592 

26.3111 

26. 3112 

26.3113 

03720  1 
53657  0 
20577  0 

SR* 

RXZ 

SP* 

0 -2 , 1 

3052 

26,3114 

57176  0 

0,2 

3053 

26,3115 

47057  0 

SR* 

RTB 

3054 

26,3116 

57176  0 

DjZ 

3055 

REF 

5 

LAST 

592 

26,3117 

21537  0 

TPMODE 

STORE  VARIANCE  TRIPLE  PRECISION 

3056 

REF 

10 

LAST 

592 

26, 3120 

16707  0 

STODL 

VAR  I ANCE 

3057 

REF 

2 

LAST 

161 

26,3121 

03730  0 

S INTHETA 

3058 

26,3122 

44336  1 

ASIN 

BDSU 

SIN  THETA  IN  PD6 

3059 

REF 

3 

LAST 

58  1 

26,3123 

03732  1 

RPTR  UN 

3060 

26, 3174 

56405  0 

DMP 

SL3P 

3061 

REF 

2 

LAST 

59  1 

26, 3125 

15404  0 

2PI/8 

3062 

26,3126 

52525  1 

POOL 

S L 3 

3063 

REF 

3 

L AST 

59  1 

26, 3127 

01703  1 

X 7.8  9 +2 

3064 

26, 3130 

44257  1 

SR  R * 

BDSU 

SHIFT  FROM  -5/-3  TO  BO 

3065 

26, 3131 

56176  1 

0,2 

3066 

26,3132 

53605  1 

DMP 

S PR  * 

3067 

REF 

9 

LAST 

593 

26,3133 

03720  1 

RXZ 

3068 

26,3134 

21601  0 

0,1 

3069 

REF 

7 

L AST 

59  1 

26,3  135 

37545  1 

STCALL 

0 EL  T AO 

EARTH  B-29.  MOON  B-27 

3070 

REF 

4 

LAST 

592 

26,3136 

55344  1 

LGCUPDTE 

3071 

26,3137 

77624  1 

CALL 

30  72 

REE 

- 16 

LAST 

5i2 

26,3140 

in65  a _ 

G R P 2 PC 

3073 

26,3 141 

77650  1 RENDEND 

GOTO 

3074 

REF 

1 

26, 3142 

50614  1 

R22LEM93 

R3075 

FUNCTION 

AL  DESCRIPTION. 

R3076 

LSR22.4 

IS  THE 

ENTRY 

TO  PERFORM  LUNAR  SURFACE  NAVIGATION  FOP  THE  LM 

R3077 

COMPUTER 

ONLY,- 

TH  IS 

ROUT  INF  COMPUTES  THF  B-VECTORS  AND._ 

DELTA  Q FOR. 

RANGE 

R3078 

ANC 

RANGE  RATE 

MEASURED  BY  THE 

RENDEZVOUS  RADAR 

— R30  79 

SI  R Pfll  TT  MF  S TA1  1 F P 

R3080 

INSTALL 

LGCUPDTE 

INC0RP1 

RP-TO-R 

R3081 

INTEGRV 

GETULC 

INC0RP2 

R3082 

R3083 

R3084 

OLTPIT 

CCRRECTEE  CSM  STATE  VECTOR  (PERMANENT) 
NUMBER  OF  MARKS  INCORPORATED  IN  MARKCTP 

R3085 
R3086 
R 30  £ 7 

MAGNITUDE  OF  POSITION  DEVIATION 
MAGNITUDE  OF  VELOCITY  DEVIATION 
UPCATED.  W-MATRIX 

(FOR  DISPLAY) 
(FOR  DISPLAY) 

IN 

IN 

R22DISP 

R22DISP 

METERS  B-29 
+ 2 M/CSEC  B-7 

R3088 

R3089 

ERASABLE  INITIALIZATION  REQUIRED 
LM  AND  CSM  STATE  VECTORS 

R 3090 
R3091 
R 30  92 

W-MATRI X 

MARK  TIME  IN  MKT IME 

RADAR  RANGE  -IN.  R.M  . MEIERS-B-29 

R3093  RANGE  RATE  IN  ROOT M METERS/CSEC  B-7 

R 30  94  VEHUPFLG 


;ap: 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

31  14 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 
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REF 

15 

LAST 

587 

26.3143 

26. 3 144 

77624 
27412 
4 tin  1 4. 

1 

0 

0 

LSR22 .4 

CALL 

SET 

I NTS  T ALL 
CLEAR 

REF 

3 

LAST 

58  7 

26,3146 

01472 

1 

STATEFLG 

REF 

14 

LAST 

58  7 

26,3147 

01674 

0 

V I NT  FLAG 

CALL  TO  GET  LM  POS  + VEL  IN  REF  COORD. 

26  t 3 l sn 

77624 

1 

CALL 

RFF 

5 

LAST 

587 

26, 3151 

55205 

0 

I NTGRCAL 

26,3152 

77624 

l 

CALL 

R £ F 

u 

I AST 

59  3 

26  , 3 153 

11165 

0 

GRP2PC 

26,3154 

45014 

0 

CLEAR 

CALL 

REF 

2 

LAST 

586 

26,3155 

02666 

0 

DMENFLG 

SET  MATRIX  SIZE  TO  6X6  FOR  INCORP 

REP 

L6 

last 

59  4 

26,3156 

27412 

0 _ 

_ I NT  STALL 

26, 3 157 

46145 

0 

DLOAD 

BHIZ 

IS  THIS  FIRST  TIME  THROUGH 

REF 

3 

LAST 

518 

26,  3 160 

03461 

1 

MARKCTR 

REF 

1 

26,3161 

551  74 

0 

INITWMX6 

YFS.  INITIALIZE  6X6  W-MATRIX 

26, 3162 

43014 

0 

CLEAR 

SET 

REF 

7 

LAST 

58  7 

26,3  163 

01675 

l 

D60R9FLG 

REF 

11 

LAST- 

5 87 

26,  3 1 64 

01476 

0 

DIMO  FLAG 

26,3165 

43014 

0 

SET 

CLFAR 

REF 

15 

LAST 

594 

26,3166 

01474 

1 

VINT  FLAG 

RFF 

5 

1 AST 

58  7 

26, 3 167 

01673 

1 

I NT Y PFLG 

26,3170 

77624 

l 

CALL 

REF 

6 

LAST 

594 

26,3171 

55205 

0 

I NTGRCAL 

26, 3172 

77650 

1 

GOTO 

REF 

2 

LAST 

587 

26, 3173 

544  74 

1 

R ANGEBO 

?6,  3 1 74 

776  24 

1 

I N|  I JIaIMX  6 

CAM 

REF 

2 

LAST 

587 

26, 3 175 

552  14 

0 

WLINIT 

INITIALIZE  W-MATRIX 

26, 3 176 

45014 

0 

SET 

CALL 

REF 

16 

LAST 

594 

26, 3177 

01474 

1 

V INTFLAG 

REF 

6 

LAST 

586 

26,3200 

26644 

0 

SET  I FLGS 

26,3201 

77624 

1 

CALL 

REF 

7 

LAST 

594 

26, 3202 

552  05 

0 

INTGRCAL 

26,3203 

77650 

1 

GOTO 

REF 

3 

LAST 

594 

26, 3204 

54474 

1 

RANGEBO 

THIS 

ROUTINE  CLEARS 

RFINAL  (DP) 

AND  CALLS  INTEGRV 

26,  3 205 

712  20 

1 

I NT  ORO  AL 

$TQ 

PLO  A P 

REF 

1 

26,3206 

03673 

0 

IGRE  T 

REF 

6 

LAST 

580 

26, 3207 

03753 

0 

MKT  I ME 

REF 

17 

LAST 

58  1 

26,3210 

34041 

0 

8TCAI  1 T n F C 1 

REF 

8 

LAST 

512 

26,3211 

27134 

1 

INTFGRV 

26,3212 

77650 

1 

GOTO 

REF 

2 

LAST 

59  4 

26,3213 

03673 

0 

IGPET 

THIS  ROUTINE  INITIALIZES  THE  W-MATRIX  BY  ZEROING  ALL  W THEN  SETTING 
DIAGONAL  ELEMENTS  TO  INITIAI STORED  VALUES. 


REF 


4 LAST  142 


E5, 1400 


EBANK=  W 


r 
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L 

P20- 

■P25 
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3140 

26,3214 

77776 

1 

WLINIT 

EXIT 

3141 

REF 

1 

26,3215 

3 32  74 

0 

CAF 

d BAN  K 

^14? 

REF 

16 

LAST 

590 

26,3216 

54  006 

0 

TS 

BBANK 

3143 

REF 

i 

26,3217 

3 3402 

1 

CAF 

WSI  2 E 

3144 

REF 

2 

LAST 

123 

26,3220 

55*257 

1 

TS 

W.  IND 

45 

REF 

123 

LAST 

58  7 

26, 3221 

3 4755 

1 

CAF 

ZERO 

3146 

REF 

3 

LAST 

595 

26, 3222 

51*257 

0 

INDEX 

W • I N D 

3147 

REF 

5 

LAST 

594 

26, 3223 

55 ' 4 00 

0 

TS 

W 

3148 

REF 

4 

LAST 

59  5 

26, 3224 

1 1 ' 2 5 7 

1 

CCS 

W . IND 

3149 

26, 3225 

0 3220 

1 

TC 

-5 

3150 

REF 

2 

LAST 

590 

25,3226 

3 32  75 

1 

CAF 

A I GB  ANK 

RESTORE  EBANK  7 

3151 

REF 

17 

LAST 

59  5 

26,3227 

54  0 06 

CL- 

TS 

BBANK 

3152 

REF 

50 

LAST 

590 

26,3230 

0 6036 

1 

TC 

INTPRET 

3153 

26,3231 

67214 

1 

BON 

SLOAD 

IF  ON  LUNAR  S UR F AC E , IN  I T I A L I Z E WITH 

3154 

R E F 

9 

LAST 

590  - - 

26,3232 

043  07 

1 

SUR  FELAG 

WSURFPOS  AND  WSURFVEL  INSTEAD  OF 

3155 

REF 

1 

26,3233 

55237 

1 

W L SR FPOS 

WRENDPOS  AND  WRENDVEL 

3156 

REF 

2 

LAST 

133 

26,3234 

02001 

1 

WRENDPOS 

3157 

26,3235 

77650 

1 

-GOTO 

3158 

REF 

1 

26,3236 

55241 

0 

W POS  TORE 

3159 

26, 3237 

77735 

0 

WLSRFPOS 

SLOAD 

3160 

REF 

1 

26,3240 

02007 

WSURFPOS 

3161 

26,3241 

77661 

0 

WPOSTORE 

SR 

SHIFT  TO  B-19  SCALE 

3162 

26, 3242 

20606 

0 

5 

3163- 

REF 

— 6- 

LAST 

505— 

26,3243 

02401 

0 - 

STORE 

...  W 

3164 

REF 

7 

LAST 

595 

26,3244 

02411 

1 

STORE 

W +8  D 

3165 

REF 

8 

LAST 

59  5 

26,3245 

02421 

1 

STORF 

W + i 6D 

3166 

26, 3246 

67214 

1 

BON.  .. 

SLOAD 

3167 

REF 

10 

LAST 

59  5 

26, 3247 

043  07 

1 

SURFFLAG 

3168 

REF 

1 

26, 3250 

55254 

1 

WLS REVEL 

3169 

REF 

1 

26,3251 

-0-2  002- 

1 - 

-WPENDVEL 

3170 

26,3252 

77650 

1 

GOTO 

3171 

REF 

1 

26, 3253 

55256 

0 

W VE  L STOR 

3172 

26,3254 

77735  - 

0 

WLS.RFVEL 

SLOAD 

3173 

RE  F 

1 

26, 3255 

02010 

1 

W SUR FVEL 

3174 

REF 

9 

LAST 

595 

26,3256 

02511 

0 

W VF  L S TOR 

STORE 

W + 7 2D 

3175 

REF 

-Jil 

LAST 

59  -5  _ 

26,3257 

025  21 

0 

STORE 

W +8  OD 

3176 

REF 

11 

LAST 

595 

26,3260 

02531 

1 

STORE 

W +8  8D 

31  77 

26,3261 

77735 

0 

SLOAD 

3178 

REF — 

L 

26,3262 

02003 

0 

WSHAFT 

3179 

REF 

12 

LAST 

595 

26, 3263 

02621 

0 

STORE 

W +1440 

3180 

26, 3264 

77735 

0 

SLOAD 

3181 

REF 

1_ 

-26,3  265 

02004 

1 

WTRtJN 

3182 

REF 

13 

LAST 

595 

26, 3266 

02631 

1 

STORE 

W +152D 

3183 

26, 3267 

66214 

0 

SET 

SSP 

SET  RENDWFLG  - W-MATRIX  VALID 

3184 

— REF — 

-8- 

LAST 

587 

26,3270 

02476 

0 

PENDWFLG 

3185 

REF 

4 

LAST 

594 

26, 3271 

03461 

1 

MARKCTR 

SET  MARK  COUNTER  EQUAL  ZERO 

3186 

26, 3272 

00000 

1 

0 

3187 

26,3  273 

77616 

0 

RVO 

3188 


REF  14  LAST  595  E5.1400 


EBANK=  W 
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GAP: 


L 

P20-P25 

3189 

3190 

REF  3 

REF  7 

LAST 

LAST 

594 

590 

26,3274 
E7 , 1455 

54065  0 WBANK 

BBCON 
EB  ANK  = 

W L I N I T 
A IG 

3191  REF  2 LAST  -518  -26,3  275  54067  1 AIGBANK  BBCON  L-SR22.3- 


R3192 

GFTULC 

R 3 19  3 

THIS 

SUBROUTINE  COMPUTES  THE 

RELAT IVE 

POSITION 

VECTOR  BETWEEN  THE 

R 3 1 94 

ANC 

THE 

LM,  LEAVING 

THE  UNIT 

VECTOR 

IN 

THE  PUSHLIST  AND 

MPAC  AND 

M Af.MT  T 1 1 n F TM 

TAD  - 

3196 

26,3276 

77201 

1 

GET  ULC 

SETPD 

VLOAD 

t ^277 

00001 

o 

0 

3198 

REF 

1 

26,3300 

01645 

1 

DELT ALEM 

3199 

26,3301 

77754 

1 

LX  A , 2 

— 58  7 

7^ t V30  7 

03716 

1 

SEAL SHFT 

3201 

26, 3303 

53257 

1 

VSR* 

VAD 

3202 

26,3304 

57165 

1 

9 0,2 

^ EF 

2 

LAST 

5 i n 

26, 3305 

01661 

1 

PCVLEM 

3204 

26, 3306 

53715 

1 

PD  VL 

VSR* 

3205 

REF 

i 

26,3307 

01573 

1 

DELT  ACSM 

26, 3 310 

57165 

1 

9D,  2 

3207 

26,3311 

52255 

1 

VAD 

VSU 

3208 

REF 

i 

26,3312 

01607 

1 

RCVCSM 

^709 

26, 331 3 

41434 

1 

RTB 

PUSH 

3210 

REF 

i 

26,3314 

21676 

0 

NORMUNX 1 

3211 

REF 

7 

LAST 

592 

26,3315 

17722 

0 

STOOL 

ULC 

3212 

26, 3316 

00045 

0 

36D 

3213 

26, 3317 

77657 

0 

SL  * 

3214 

26, 3320 

20201 

0 

0 , 1 

^2 1 s 

26, 3321 

74045 

n 

STOVL 

3 6D 

3216 

REF 

8 

LAST 

596 

26, 3322 

03722 

0 

ULC 

3217 

26,3323 

77616 

0 

RVO 

R 3 2 1 9 RADARANG 


R3220 

THIS 

SUBROUTINE  COMPUTES  SINTHETA  = • 

-ULC 

DOT  MY 

R 327  1 

R X 7 = 

f SOR  7 l 1 

-S  T NTHFTA**  7 > 1 R l f 

R3222 

OUTPUT 

R3223 

ULC 

IN 

ULC,  PDO 

R3224 

RLC 

IN 

PE36D 

R3225 

SIN 

THETA  IN 

SINTHETA  AND  PD6 

R3226 

RXZ 

NORM  IN  RXZ  (N 

IN  XI  ) 

3227 

26,  3 324 

45020 

1 

RADARANG 

STQ 

CALL 

3228 

REF 

2 

LAST 

160 

26,3325 

03673 

0 

RDR  FT 

3229 

REF 

3 

LAST 

58  8 

26,3326 

55276 

1 

GFTULC 

32  30 

26, 3327 

50276 

1 

VCONP 

DOT 

3231 

REF 

5 

LAST 

592 

26, 3330 

03703 

0 

MY 

3232 

26,3331 

41572 

1 

SL1R 

PUSH 

3233^ 

REF 

—3— 

L AST 

59  3 

26,3332 

03730 

0 

STORE 

S I NTHET  A 

3234 

26, 3333 

44316 

0 

DSQ 

BDSU 

3235 

REF 

3 

LAST 

365 

26, 3334 

06414 

0 

DP1/4TH 
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USER'S  PAGE  NO.  93  E?  S3 


CSM 

THE 


LOAD  X2  WITH  SCALE  SHIFT 
SHIFT  FOR  EARTH/MOON  SPHERE 

SHIFT  FOR  EARTH/MOON  SPHERE 

USE  NORMUNIT  TO  PRESERVE  ACCURACY 

ADJUST  MAGNITUDE  FROM  NORMUNIT 
ULC  IN  PDO  AND  MPAC.RLC  IN  36D 


SIN  THETA  TO  PD6 


1 


! S I N T HET  A ) **2 


I 
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L 

P 20- 

.025 

USER'S  PAGE  NO.  94 

E5  S3 

3236 

26,3335 

41366 

1 

SORT 

DMP 

3237 

26, 3336 

00045 

0 

3 60 

26t  ^ 337 

^03  S? 

0 

SL  1 

NORM 

3239 

REF 

4 

LAST 

588 

26,3340 

00047 

1 

XI 

SET  SHIFT  COUNTER  IN  XI 

3240 

REF 

10 

LAST 

593 

26, 3341 

03720 

1 

STORE 

RXZ 

26*3 342 

776  50 

1 

.GOTO-- 

EXIT 

3242 

REF 

3 

LAST 

596 

26,3343 

03673 

0 

RDRET 

3243 

26, 3344 

45020 

1 

LGCUPDTE 

STQ 

CALL 

^7  44 

REF 

3 

L £SI 

1 6 0 

26 , 3345 

03673 

0 

LC-PE  T 

3245 

REF 

i 

26,3346 

46433 

1 

I NC0RP1 

3246 

26, 3347 

51575 

1 

VLOAD 

ABVAL 

3247 

REF 

3 

LAST 

141 

26,  3350 

02673 

1 

DEI  TAX  +6 

3248 

26,3351 

53754 

1 

LX  A , 2 

SPR* 

3249 

REF 

4 

LAST 

596 

26, 3352 

03716 

1 

SCAL  SHFT 

O-MOON.  2-EARTH 

32  50 

26, 3353 

56174  0 

2,2 

SET  VEL  DISPLAY  TO  B-7 

3251 

REF 

3 

LAST 

329 

26,3354 

24317 

1 

STOVL 

R22DISP  +2 

3252 

REF 

4 

LAST 

597 

26,3355 

02665 

0 

DELT AX 

32  S3 

_2_6-f-3  356 

53646 

0 

ABVAL 

SPP* 

32  54 

26,3357 

56174 

0 

2,2 

SET  POS  DISPLAY  TO  B-29 

3255 

REF 

4 

LAST 

597 

26,  3360 

00315 

0 

STORE 

P22D  ISP 

32  56 

26, 3361 

543  3 5 

0 

SLOAD 

SP 

3257 

REF 

1 

26,3362 

02005 

0 

RMAX 

3258 

26, 3363 

20613 

1 

10D 

32  59 

26, 3 364 

5002  5 

DSU 

RMN 

3260 

REF 

5 

LAST 

597 

26,3365 

003  15 

0 

P22DISP 

3261 

RFF 

1 

26, 3366 

50620 

0 

R22LFM96 

GO  DISPLAY 

3262 

26,  3 36  7 

45335 

0 

SLOAD 

DSU 

3263 

REF 

1 

26,3370 

02006 

0 

VMAX 

32  64 

REF 

6 

LAST 

597 

26,3371 

00317 

1 

R22D  ISP  +2 

VMAX  MINUS  VEL.  DEVIATION 

3265  - 

26,3372 

77640 

0 

BMN 

3266 

REF 

2 

LAST 

597 

26,3373 

50620 

0 

R22L  EM96 

GO  DISPLAY 

3267 

26, 3374 

77624 

1 

ASTOK 

CALL 

3268 

REF 

1 

26, 3375 

46645 

1 

! NC  0 P P2 

3269 

26,  3376 

77650 

1 

GOTO 

32  70 

REF 

4 

LAST 

597 

26, 3377 

03673 

0 

LGRET 

— 32  71 

26, 3400 

00103 

0- 

IMUVAR 

2DEC 

F— 6 B 1 2 

RAQ**2 

3271 

26,3401 

03370 

0 

32  73 

26, 3402 

00241 

0 

WSI  ZE 

DEC 

161 

32  74 

26, 3403 

31103 

1 

2PI/8 

2 DEC 

3. 14  1592653 

B-2 

32  74 

26, 3404 

36652 

0 

32  75 

REF 

29 

LAST 

586 

E7 , 1454 

EBANK= 

LOSC  OUNT 

I 
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L 


P32  76 
R3277 


R3278 

R 32  79 
R 32  8 1 
R 3 2 8 3 
R3285 


R 32  86 


R3287 

R 32  8 8 
R 32  89 
R3290 
R3291 
R32°2 


R3293 


R3294 

R3295 
R3296 
R 3297 

R3299 
R 3 3 0 0 
R 3301 
R3302 

R3303 

R3304 

R3305 

R3306 

R3307 


3308 

3309 

3310 

3311 

3312 


P20-P25  USER'S  PAGE  NO.  95  E?  S3 


PROGRAM  NAME  LRS24.1  RR  SEARCH  ROUTINE 

MCD  NC  0 BY  P VOLANTE  SDC  DATE  1-15-67 


FUNCTIONAL  DESCRIPTION 


DRIVES  THE  RENDEZVOUS  RADAR  IN  A HEXAGONAL  SEARCH  PATTERN  ABOUT  THE  LOS  TO  THE  CSM  (COMPUTED  FROM  THE  CS”  AND  LM 
STATE  VECTORS)  CHECKING  FOR  THE  DATA  GOOD  DISCRETE  AND  MONITORING  THE  ANGLE  BETWEFN  THE  RADAR  BORESIGHT  AND  THF 
LM  + Z-  AXIS.  IF  THIS  ANGLE  EXCEEDS  30  DEGREES  THE  PREFERRED-BRACKING  ATTITUDE  ROUTINE  IS  CALLED  TO  PERFORM  AN 
ATTITUDE  MANEUVER. 


CALLING  SECUENCE  - BANKCALL  FOR  LRS24.1 


SUBROUTINES  CALLED 

LEMCCNIC  R61LFM 

CSMCCNIC  RRDESSM 

JOBOELAY  FLAGDOWN 

WAITLIST  — EL-AGUP 

RRNB  BANKCALL 


EXIT  - TO  ENDOFJOB  WHEN  THE  SEARCH  FLAG  (SRCHOPT)  IS  NOT  SET 


OUTPUT 

CAT AGGCD  (SP)-FOR  DISPLAY  IN  Rl-  00000  INDICATES  NO  LOCKCN 

11111  INDICATES  LOCKON  ACHIEVED 

OMEGAO  ( SP ) — FOR  DISPLAY  IN  R2-  ANGLE  BETWEEN  RR  BORESIGHT  VECTOR  AND  THE  SPACECRAFT  +Z  AXIS 

ERASABLE  INITIALIZATION  REQUIRED 
SEARCH  FLAG  MUST  BE  SET 

LM  AND  CSM  STATE  VECTORS  AND  REFSMMAT  MATRIX 
DEBRIS 

RLNSRCH  UXV6GT — 

VXRLM  UYVECT 

LOSCESRD  N SRCHPNT 

DA  T AG 00 C OMEGAO 

MP  AC  PUSHLIST 


REF 

1 

REF 

124 

LAST 

595 

26 

REF 

2 

LAST 

1-5  9 

26 

REF 

57 

LAST 

562 

26 

26 

3405 

3 4755 

1 

LRS24.1 

3406 

5 5 1 7 34 

1 

3 407 

3 4736 

1 

CHKSRCH 

3410 

0 0006 

1 

COUNT  * $ $/L  RS24 
CAF  ZFRO 
TS-  NSRCHPNT 

CAF  RIT14 
EXTEND 


SET  SEARCH  PATTERN  POINT  COUNTER  TO  ZERO 
ISSUE  AUTO  TRACK  ENABLE  TO  RADAR 


GAP: 

L 

3313 

3 3 1 A 

3315 

3316 

3317 

3322 

3323 

3324 

3325 

3326 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3334 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 
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USER'S  RAGE  NO.  96  E7  S3 


REF 

38 

LAST 

573 

26,3411 

05  012 

1 

WOR 

C HAN  12 

REF 

1 

26, 3412 

3 4736 

1 

CAF 

SPCHOBIT 

CHECK  IF  SEARCH  STILL  REQUESTED 

RFF 

9, 

L AST 

5 6 3 

26,3413 

-7-00  76 

1 

MASK 

-FLAGWRD2 

( SRCHOPT  FLAG  SET ) 

REF 

90 

LAST 

563 

26. 3414 

26.3415 

0 0006 
1 5155 

1 

1 

EXTEND 

BZF 

ENDOF JOB 

NO-TERMINATE  JOB 

REF 

1 

26, 3416 

3 3655 

1 

CAF 

6 SECONDS 

SCHEDULE  TASK  TO  DRIVE  RADAR  TO  NEXT  PT. 

26,3417 

0 0004 

0 

INHINT 

REF 

24 

LAST 

572 

26,3420 

0 5203 

0 

TC 

WAITLIST 

IN  6 SECONDS 

REF 

30 

LAST 

59  7 

F 7 , 1454 

EBANK= 

LOSC  CUNT 

REF 

3 

L AST 

5 2 6 

26,  342J. 

03605 

1 

2CADP 

_ C ALLDGCH 

26, 3422 

54067 

1 

26, 3423 

0 0003 

1 

RELINT 

- REF 

96 

| AST 

sr  n 

26 , 3 424 

4 01 10 

0 

CS 

R ADM  ODES 

I S REMODE  IN  PROGRFSS 

REF 

58 

LAST 

59  8 

26, 3425 

7 4736 

0 

MASK 

BTT1  4 

(BIT  14  RADMODES  = 1) 

26,3426 

0 00  06 

1 

EXTFND 

REF 

91 

LAST 

59  9 

26 ,3  427 

1 5155 

1 

BZF 

ENDOFJGB 

YES-  WAIT  SIX  SECONDS 

RFF 

51 

LAST 

595 

26, 3430 

0 6036 

1 

TC 

I NT  P RET 

3 43  1 

776  T4 

n 

RTB 

REF 

11 

LAST 

52  9 

26,3432 

21462 

1 

LOADTIME 

REF 

18 

LAST 

594 

26,3433 

34041 

0 

LRS24.1I  STCALL 

T DEC  1 

REF 

4 

LAST 

57  6 

26,3434 

27100 

0 

L EMC CNIC 

EXTRAPOLATE  LM  STATE  VECTOR 

26,3435 

77775 

1 

VLOAD 

REF 

7 

LAST 

576 

26, 3436 

00001 

0 

P ATT 

REF 

3 

LAST 

160 

26,3437 

27674 

i 

STOVL 

RLMSRCH 

SAVF  LEM  POSITION 

REF 

3 

LAST 

576 

26, 3440 

00007 

0 

VATT 

REF 

1 

26, 3441 

17736 

0 

STODL 

SAVLEMV 

SAVE  LEM  VELOCITY 

REF 

6 

LAST 

576 

26, 3442 

0004. 5 

0 

TAT 

REF 

19 

LAST 

599 

26 , 3443 

34041 

0 

STCALL 

TDEC  1 

EXTRAPOLATE  CSM  STATE  VECTOR 

REF 

3 

LAST 

576 

26,3444 

27066 

1 

C SMC  ONI C 

FXTRAPOLATF  CSM  STATE  VECTOR 

26, 3445 

52375 

1 

VLOAD 

VSU 

LOS  VECTOR  = PtCSM)-R(LM) 

REF 

8 

LAST 

599 

26,3446 

00001 

0 

R ATT 

REF 

4 

LAST 

599 

26, 3447 

036  74 

1 

RLMS RCH 

26,3450 

77656 

1 

UNIT 

REF 

2 

LAST 

159 

26,3451 

27710 

1 

STOVL 

LOSDESRD 

STORE  DESIRFD  LOS 

REF 

4 

LAST 

599 

26,3452 

00007 

0 

VATT 

COMPUTE  UNI T ( V ( CM ) CROSS  R(CM)) 

26,3453 

47256 

0 

UNIT 

VXV 

RFF 

9 

LAST 

599 

26,3454 

00001 

0 

RATT 

26,3455 

77656 

1 

UNIT 

REF 

.Z 

LAST 

159 

26,3456 

03702 

1 

STORE 

VXPC  M 

26, 3457 

52375 

1 

VLOAD 

VSU 

REF 

5 

LAST 

599 

26, 3460 

00007 

0 

VATT 

REF 

2- 

LAST 

599 

26, 3461 

03736 

0 

SAVL  EMV 

26, 3462 

76521 

0 

MX  V 

VSL1 

CONVERT  FROM  REFERENCE  TD  STABLE  MEMBER 

REF 

13 

LAST 

59  1 

26,3463 

01734 

0 

REF  SMMAT 

REF 

3 

LAST 

599 

26,3  464 

03736 

0 

STORE 

SAVL  FMV 

VLC  = VICSM)  - V( LM) 

26,3465 

53135 

0 

SLOAD 

BZE 

CHECK  IF  N=0 

REF 

3 

LAST 

598 

26,3466 

03735 

0 

NSPCHPNT 
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3363 

REF 

1 

26,3467 

55600 

1 

DESGLOS 

3364 

26, 3470 

53025 

0 

DSU 

BZE 

2 a, 347 ] 

1 5653 

n 

QLFOCT 

3366 

REF 

1 

26,  3472 

55565 

i 

CALC  XY 

3367 

26,3473 

77775 

i 

VLOAD 

REF 

2 

L £ ST 

1 5 9 

?6, 3474 

03716 

l 

UXVECT  _ 

3369 

REF 

i 

26,3475 

24015 

0 

STOVL 

UXVECTPR 

3370 

RFF 

2 

LAST 

159 

26, 3476 

03724 

0 

UYVECT 

^371 

REF 

l 

26, 3477 

00023 

0 

STORE 

UYVECTPR 

3372 

26, 3500 

77761 

1 

VX  SC 

33  73 

REF 

1 

26,3501 

15647 

0 

S I N60DEG 

3 3 74 

RFF 

3 

L AST 

60  0 

26, 3502 

27716 

1 

STOVL 

UXVECT 

3375 

REF 

2 

LAST 

60  G 

26, 3503 

00015 

0 

UX VF CTPR 

33  76 

26, 3504 

53361 

0 

VXSC 

VAD 

REF 

l 

?6,  3 505 

06422 

0 

CCS60DEG 

3378 

REF 

4 

LAST 

600 

26,3506 

03716 

1 

UXVECT 

3379 

26,3507 

77656 

1 

UNIT 

3380 

REF 

— 5 

LAST 

60  0 

26, 3510 

27716 

1 

STOVL 

UXVECT 

3381 

REF 

3 

LAST 

600 

26,3511 

00015 

0 

UXVFCTPR 

3382 

26,3512 

77761 

1 

VXSC 

2 

LAST 

Aor, 

?A>t  3 5]3 

1 5647 

o 

SINfcODEG 

3384 

REF 

3 

LAST 

600 

26,3  514 

27724 

0 

STOVL 

UYVECT 

3385 

REF 

2 

LAST 

600 

26,3515 

00023 

0 

UYVECTPR 

?6 , 3 51  6 

52361 

1 

vxsc 

VSU 

3387 

REF 

2 

LAST 

600 

26, 3517 

06422 

0 

C0S60DEG 

3388 

REF 

4 

LAST 

600 

26, 3520 

03  7 24 

0 

UYVECT 

33  «9 

26,3521 

77656 

1 

UNIT 

3390 

REF 

5 

LAST 

600 

26,3522 

03724 

0 

STORE 

UYVECT 

3391 

26,3523 

53361 

0 

OFFCALC  VXSC 

VAD 

339? 

REF 

1 

26,  3 524 

15651 

1 

OFFS  TF  AC 

3393 

REF 

3 

LAST 

599 

26, 3525 

03710 

1 

LOSDESRD 

3394 

26, 3526 

64256 

1 

UNIT 

M X V 

3395 

REF 

14 

LAST 

599 

26,3  527 

01734 

0 

R EE  SMMAT 

3396 

26,3530 

77772 

0 

VSL1 

3397 

REF 

13 

LAST 

582 

26,3531 

25102 

0 

CON  TDESG  STOVL 

RRTARGET 

3398 

REF 

4 

LAST 

59  9 

26, 3 532 

03736 

o 

S AVL EMV 

3399 

REF 

5 

LAST 

576 

26,3533 

01761 

c 

STORE 

LCSVEL 

3400 

26,  3 534 

77776 

1 

EXIT 

3401 

26,3  535 

0 0004 

0 

INHINT 

3402 

REF 

5 

LAST 

576 

26,3536 

0 6027 

1 

TC 

KILL  TASK 

3403 

REF 

4 

LAST 

576 

26,3537 

52602 

1 

CADR 

DESLOOP  +2 

A3404 

3409 

REF 

33 

LAST 

543 

26,3540 

4 4735 

0 

C0NTDES2  CS 

BIT1  5 

3410 

REF 

97 

LAST 

599 

26,3541 

7 0110 

0 

MASK 

RADNODES 

3411 

REF 

34 

LAST 

60  0 

26, 3542 

6 4735 

1 

AO 

3 I T 1 5 

3412 

REF 

98 

LAST 

600 

26, 3543 

54  110 

0 

TS 

R ADM  ODES 

3414 

REF 

52 

LAST 

599 

26 , 3 544 

0 6036 

1 

TC 

INTPRET 

3415 

26,3545 

77624 

1 

CALL 

3416 

REF 

2 

LAST 

52  1 

26,3546 

52373 

1 

RRDESSM 
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YES-DESIGNATE  ALONG  LOS 
IS  N=  1 

YES-CALCULATE  XJIND  Y AXES  OF 
SEARCH  PATTERN  COORDINATE  SYSTEM 
NO-ROTATE  X-Y  AXES  TO  NEXT  SEARCH  POINT 


SAVE  ORIGINAL  X AND  Y VECTORS 
UXPRIME  = ORIGINAL  UX 
UYPRIME  = ORIGINAL  UY 

UX  =(COS  60IUXPR  + ISIN  60IUYPR 


UY=(  — SIN60IUXPR  + ICOS  601UYPR 


OFFSET  VECTOR  = K(UY) 

LOS  VECTOR  + OFFSET  VECTOR  DEFINES 
DESIRED  POINT  IN  SEARCH  PATTERN 

CONVERT  TO  STABLE  MFMBER  COORDINATES 


KILL  ANY  PRESENTLY  WAITLISTED  TASK 
WHICH  WOULD  DESIGNATE  TO  THE  LAST 
POINT  IN  THF  PATTERN 

SET  BIT  15  OF  RAOMODES  TO  INDICATE 
A CONTINUOUS  DESIGNATE  WANTED 


DESIGNATE  RADAR  TO  RRTARGET  VECTOR 


GAP: 

L 

3417 

3418 

3419 

A 34  20 

A3421 

3422 

3424 

3425 

3427 

342  8 

3429 

3430 

3431 

3432 

3433 

3434 
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REF  1 
REF 2 


LAST  601 


26,  3547 

26. 3550 

26. 3551 


77776  1 
0 3637  0 
0 3637  0 


EXIT 

TC  LIMALARM 

TO_  LIMALARM 


LOS  NOT  IN  MODE  2 COVERAGE  (P22) 
VEHICLE  MANEUVER  REQUIRED  (°20) 


REF 

REF 

10 

11 

LAST 

LAST 

5 80 
58  1 

REF 

53 

LAST 

600 

REF 

4 

LAST 

58  1 

REF 

3 

LAST 

159 

COMPUTE  OMEGA, ANGLE  BETWEEN  RR  LOS  AND 
SPACECRAFT  +Z  AXIS 


26,3552 

0 0006 

1 

OMEGCALC  EXTEND 

26t  3553 

3 0036 

1 

DCA 

C DU  T 

26,3554 

53*751 

1 

DXCH 

TANGNB 

26,3555 

0 6036 

1 

TC 

I NT P RET 

26-»-3  556 

77624 

1 

CALL 

26, 3557 

46041 

0 

RRNB 

26, 3560 

65545 

0 

DLOAD 

ACOS 

OMEGA 

IS  ARCCOSINE 

OF  Z 

26, 3561 

00045 

0 

36D 

VECTOR 

COMPUTED  BY 

RRNB 

26,3562 

03733 

0 

STORE 

OMEGDISP 

STORE 

FOR  DISPLAY 

IN  R2 

26, 3563 

77776 

1 

EXIT 

26, 3564 

0 5155 

_Q_ 

TC 

EM)  OF  J OB 

REF  92  LAST  599 


GAP  : 

L 

P 3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

34-57 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3459 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3468 

3469 

34  70 

3471 

3472 

3473 
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REF 

3 

4 

LAST 

LAST 

599 

600- 

26.3565 

26. 3566 
26,  3 567 

473  75 
03702 
03710 

0 

1 

1 

CALCXY 

VLOAD 

VXV 
VXPC  M 
i rsr fsrd 

26,3570 

77656 

1 

UNIT 

REF 

6 

LAST 

600 

26,3571 

27716 

1 

STOVl 

UXVECT 

UX  = ( VLM  X RLM1X  LOS 

REF 

5 

i a<; t 

fiO  7 

26, 3 572 

037  10 

1 

L OST  ESRD_. 

26, 3573 

53435 

0 

vxv 

UNIT 

REF 

7 

LAST 

602 

26, 3574 

03716 

1 

UXVECT 

R E-f 

6 

1 AST 

60  0 

26, 3 575 

03724 

0 

STORE 

UYVECT 

U Y = LOS  X UX 

26,3  576 

77650 

1 

GOTO 

REF 

i 

26,3577 

55523 

0 

OFFC  ALC 

26, 3600 

64375 

1 

DESGLOS 

VLOAD 

MXV 

WHEN  N=  0, DESIGNATE  ALONG  LOS 

REF 

6 

last 

Ml? 

26 1 ^60 1 

037  10 

1 

L OS-D-ESPD 

REF 

15 

LAST 

60  C 

26,3602 

01  734 

0 

REFSMMAT 

CONVERT  LOS  FROM  REFERENCE  TO  SM  COnROS 

26,3603 

52172 

1 

VSL  1 

SOTO 

REF 

1 

26, 3604 

55531 

0 

CCNTCESG 

REF 

23 

LAST 

5 4 2 

3 An 5 

0 74 

1 

CALLDGCH 

r.  a f 

f i ao uRnn 

IS  RENDEZVOUS  FLAG  SET 

RFF 

a 

LAST 

562 

26,3606 

7 4745 

1 

MASK 

RND V ZBIT 

26,3607 

0 0006 

1 

EXTEND 

REF 

24 

1 AST 

54  1 

26, 3610 

l 57  61 

o 

RZF 

TASK  OVER 

NO-EXIT  R 2 4 

REF 

2 

LAST 

502 

26,3611 

3 7712 

1 

CAF 

P R I 025 

YES  -SCHEDULE  J08  TO  DRIVE  RADAR  TO  NEXT 

REF 

22 

LAST 

557 

26,3612 

0 5105 

0 

TC 

FINDVAC 

POINT  IN  SEARCH  PATTERN 

REF 

5 

i art 

59  Q 

F 7 1 1 573 

FRANK- 

RLMS  PCH 

REF 

i 

26, 3613 

03616 

0 

2CADR 

DATGDCHK 

REF 

i 

26, 3614 

54067 

1 

REF 

25 

L AST 

60  7 

26* 3615 

0 5761 

1 

TC 

T ASKCVFR 

REF 

27 

LAST 

56  8 

26,3616 

3 47  50 

l 

n aj^dchk 

r af 

B I T4 

26,3617 

0 0006 

1 

EXTEND 

CHECK  IF  DATA  GOOD  DISCRETE  PRESENT 

REF 

19 

LAST 

580 

26,3620 

02  033 

0 

RAND 

CHAN  33 

26, 3621 

0 0006 

1 

EXTEND 

REF 

1 

26,3622 

l 3631 

1 

BZF 

STOR  E1S 

YES-  GO  TO  STORE  11111  FOR  DISPLAY  IN  R1 

REF 

14 

LAST 

446 

26,3623 

4 6241 

1 

CS 

SIX 

REF 

4__ 

LAST 

59  9 

26,3624 

6 1734 

0 

AD 

NSPC  HPNT 

I S N GREATER  THAN  6 

26, 3625 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

526 

26,3626 

1 3405 

1 

BZF 

LPS24.1 

YES  - RESET  N = 0 AND  START  ABOUND  AGAIN 

REF 

5 

LAST 

602 

26,3627 

25' 734 

0 

INCR 

N SP  C HPNT 

NO-SET  N = N+l  AN  GO  TO 

REF 

1 

26, 3630 

1 3407 

0 

TCF 

CHKSRCH 

NEXT  POINT  IN  PATTERN 

REF 

1 

26,3631 

3 3645 

0 

ST0RE1S 

CAF 

ALLIS 

STORE  11111  FOR  DISPLAY  IN  R1 

REF 

5 

LAST 

525 

26,3632 

55-731 

1 

TS 

DAT AGOOD 
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L 

3474 

3475 

3476 

3477 

3478 

3479 

3480 
34  81 
3482 
34  83 


3484 

3485 

3485 

3486 

3487 

3488 

3489 
34-90 

3490 

3491 

3492 
3492 

A 3493 
A3494 

3495 

3496 
R3497 


R 349  8 
R3499 


3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 
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26, 3633 

0 0004 

0 

INHINT 

REF 

6 

LAST 

600 

26,3634 

0 6027 

1 

TC 

KILLTASK 

RFF 

5 

1 AST 

60  0 

2 6* *  3 63  5 

52602 

1 

CADR 

DESLCOP  +2 

REF 

93 

LAST 

60  1 

26,3636 

0 5155 

0 

TC 

ENDOFJOB 

REF 

--2-6 

-LAST- 

56  7 

26,363  7 

0 5567 

-0- 

LIMALARM 

-LG — 

- ALAR  M 

26, 3640 

00527 

1 

OCT 

527 

26, 3641 

0 0004 

0 

INHINT 

REF 

7 

LAST 

603 

26, 3642 

0 6027 

1 

TC 

KILL  TASK 

REF 

4 

LAST 

599 

26, 3643 

55605 

1 

CADR 

CALL  DGCH 

REF 

94 

LAST 

603 

26, 3644 

0 5155 

0 

TC 

ENDOFJOE 

26, 3645 

25547 

0 

ALL  IS 

DEC 

1111  1 

26, 3646 

33555 

1 

S IN60DEG 

2DEC 

. 86603 

26, 3647 

01106 

1 

REF 

7 

LAST 

375 

23,2421 

C0S60DEG 

= 

DPHALF 

0014 

UXVECTPR 

EQUALS 

1 2D 

0022 

UYVECTPR 

EQUALS 

1 8D 

0014 

RLMUNIT 

EQUALS 

1 2D 

26, 3650 

01642 

o 

DFFSIFAC 

2DEC 

0 .05  678 

26, 3651 

11045 

0 

26, 3652 

00001 

0 

ONEOCT 

OCT 

0000  1 

26,3653 

000  00 

1 

.3 SECONDS 

2DEC 

300 

26,3654 

00454 

1 

26,3655 

01130 

1 

6SEC0NDS 

DEC 

600 

26, 3656 

00062 

0 

DEC50 

DEC 

50 

DELETE  DESIGNATE  TASK  FROM 
WAITLIST  USING  KILLTASK 


ISSUE  ALARM  527-LOS  NOT  IN  M0DE2 
COVERAGE  IN  °22  OR  VEHICLE  MANEUVER 
REQUIRED  IN  P20 
KILL  WAITLIST  CALL  FOR  NEXT 
POINT  IN  SEARCH  PATTERN 


I2DEC  .50) 
PREVIOUS 


TANGENT  OF  3.25  DEGREES 

****  NOTE-THESE  TWO  CONSTANTS  MUST  **** 
****  BE  IN  THIS  ORDER  BECAUSE  **** 

****  ONEOCT  NEEDS  A LOWER  OROER  **** 

*4**  WORD  OF  ZEROES  **** 


TEST  PROGRAM  FOR  LSR22.3  TO  BE  REMOVED 

$*$:*  ******  *****>1;*  * * * ****  if  * * ****  4 


27,2156 

BANK 

27 

REF 

8 

LAST 

596 

E7 , 1455 

E8ANK= 

A IG 

RFF 

1 

COUNT  * 

$$/R TFST 

RFF 

125 

LAST 

598 

27,2156 

3 4755 

1 

TEST22.3 

CAF 

ZFPO 

REF 

3 

LAST 

32  9 

27,2157 

55' 122 

0 

TS 

LONG 

REF 

54 

LAST- 

60  1 

27,2160 

0 6036 

1 

L00P22. 3 

TC 

I NLP  RET 

27,2 161 

70744 

1 

LXC , 2 

DLOAD* 

REF 

4 

LAST 

603 

27, 2162 

01122 

1 

LONG 

REF 

1 

27,2163 

62370 

1 

JOBOVER  +1,2 

REF 

9 

LAST 

603 

27,2164 

03456 

0 

STORE 

AIG 

27,2165 

77743 

1 

DLOAD# 

REF 

2 

LAST 

60  3 

27, 2166 

62367 

l 

JOBOVER  +2,2 

REF 

3 

LAST 

590 

27,2167 

03457 

1 

STORE 

AMG 

27,2170 

77743 

1 

DLOAD* 

GAP: 

L 

35  1 A 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

352  8 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

R3541 

R3542 

3543 

3544 

3545 

3 546 

3547 

3548 

3549 

3550 

3551 

3552 

3552 
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REF 

3 

LAST 

603 

27,2171 

62365 

0 

JOBOVER 

+ 4,2 

REF 

7 

LAST 

594 

27,2172 

03753 

0 

STORE 

MKT  I ME 

27t  ? 1 73 

77743 

1- 

□LOAD* 

REF 

4 

LAST 

604 

27,2174 

62363 

0 

JOBOVER 

+6 , 2 

RFF 

5 

LAST 

588 

27,2175 

03755 

0 

STORE 

RM 

71  y 7 L76 

77743 

-4- 

DLOAD* 

REF 

5 

LAST 

604 

27,2177 

62361 

1 

JOBOVER 

+ 8D , 2 

REF 

4 

LAST 

589 

27, 2200 

03747 

0 

STORE 

RDOTM 

71 i 77 01 

77743 

1 

DLOAD* 

REF 

6 

LAST 

604 

27,2202 

62357 

1 

JOBOVER 

+ 10D, 2 

REF 

4 

LAST 

59  1 

27,2203 

03734 

1 

STORE 

RRSH AFT 

21 y 2204 

77743 

1 

DLOAD* 

REF 

7 

LAST 

604 

27,2205 

62355 

0 

JOBOVER 

+120,2 

RFF 

4 

LAST 

593 

27,2206 

03732 

1 

STORE 

RPTRUN 

27,2207 

77624 

1 

CALL 

REF 

3 

LAST 

596 

27,2210 

543  70 

1 

LSR22.3 

27,2211 

77776 

1 

22.3ENT  EXIT 

REF 

5 

LAST 

60  3 

27,2212 

3 1122 

1 

CA 

LONG 

REF 

i 

27,2213 

6 2222 

1 

AD 

DEC  1 3T 

REF 

6 

LAST 

604 

27,2214 

55' 122 

0 

TS 

LONG 

RFF 

7 

LAST 

604 

27,2215 

11*123 

1 

CCS 

LONG  +1 

27, 2216 

0 2220 

0 

TC 

+ 2 

REF 

201 

LAST 

58  2 

27,2217 

3 0000 

1 

ST0P22.3  CA 

A 

RFF 

P 

1 AS  T 

604 

27,2220 

55 • 1 ?3 

1 

TS 

LON-G  +1 

REF 

1 

27,2221 

0 2160 

1 

TC 

L00P22.3 

27,2222 

00015 

0 

DEC 13T  DEC 

13 

REF  3 LAST  602  26,3405  JOBOVER  EQUALS  LRS24.1  **** 


TEMPORARY  DEFINITION  ****** 


END  OF  TEST  PROGRAM 

** **************  ************************ 


REF 

3 

LAST 

499 

23,2423 

ZERO/SP 

EQUALS 

H 16  ZEROS 

4616 

R1  nrK 

3 7 

REF 

3 

LAST 

2 39 

6000 

SETLOC 

FFTAG5 

6022 

BANK 

REF 

1 

COUNT  * 

t $/ P 20 

6022 

0 0006 

1 

G0T0V56 

EXTEND 

REF 

1 

6023 

3 6026 

0 

DC  A 

VB56CADR 

REF 

4 

LAST 

470 

6024 

1 5165 

1 

TC  F 

SUPDXCHZ 

REF 

5 

LAST 

498 

E7 , 1467 

EBANK= 

WHOC APES 

REF 

2 

LAST 

277 

6025 

03034 

0 

VB56CADR 

2C  ADR 

TRMT  RACK 

6026 

66107 

.1 

P20  TERMINATES  BY  G0T0V56  INSTEAD  OF 
GOTOPOOH 
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L 

P3553 
R 3554 


R3555 

R 35  56 
R3558 
R3560 
R3  5 62 
R 35  64 
R3566 

R3578 


R3579 

R3580 
R3581 
R 3582 
R3583 
R3584 
R3585 


R3586 


R3587 

R3588 

R3589 

R3590 

R3591 

R3592 


USER'S  PAGE  NO.  102  E7  S3 


PROGRAM  NAME:  R29  (RENDEZVOUS  RADAR  CESIGNATE  DURING  POWERED  FLIGHT) 
MOD  NC.  2 BY  H.  BLA  IP-SMITH  JULY  2,  1968. 


FUNCTIONAL  DESCRIPTION: 


DESIGNATES  THE  RENDEZVOUS  RADAR  TOWARD  THE  COMPUTED  LOS  TO  THE  CSM,  WITH  THE  CHIEF  OBJECTIVE  OF  OBTAINING  RANGE 
AND  RANGE  RATE  DATA  AT  2-SECOND  INTERVALS  FOR  TRANSMISSION  TO  THE  GROUND.  WHEN  THE  RP  IS  WITHIN  .5  DEGREE  OF 
THE  COMPUTED  LOS,  TRACKING  IS  ENABLED,  AND  CES IGNAT  ION  CONTINUES  UNTIL  THE  DATA-GOOD  DISCRETE  IS  RECEIVED.  AT 
THAT  POINT,  DESIGNATION  CEASES  AND  A RADAR-READING  ROUTINE  TAKES  OVER,  PREPARING  A CONSISTENT  SET  OF  DATA  FOR 
DOWN  TELEMETRY.  THE  SET  INCLUDES  RANGE,  RANGE  RATE,  MARK  TIME,  TWO  RR  CDU  ANGLES,  THREF  IMUCDU  ANGLES,  AND  AN 
INDICATOR  -kH  I-CH-  -I-S  -1  WHEN  I HE  SET  IS  CONSISTENT  AMD  .D—QTHER.W  ISE . THE  INDICATOR  IS  IN  TRKMKCNT . 

CALLING  SEQUENCE:  BEGUN  EVERY  2 SECONDS  AS  AN  INTEGRAL  PART  OF  SERVICER 


SUBROUTINES  CALLEC: 

REMODE  R RT  ONLY 

UNIT  MPACVBUF 

QUICTRIG  AX*SR*T 
SPSIN  SPCOS 

SETRRECR  RROUT 
RRRDOJ  RRRANGE 


EXIT:  TO  NO  R2  9N0  W,  IN  SI RV IC  ER . 


OUTPUT:  (ALL  FOR  DOWNLINK) — 

RM  RDOTM  (RAW) 

A I C-  AMG 

ACG  T RKMKCNT  TRKMKCNT  = 00001  IF  SET  IS  CONSISTENT, 

TANGNB  TANGNB  +1  OTHERWISE  TRKMKCNT  = 00000. 

MKT  I ME 
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P3593  ERASAELE  I N I T I AL I ZAT I ON  R EQU I RED: 


R3594  NCR29FLG  READRFLG 

R3596  PIPTIME  RAOMODES  (BIT  10) 

R3597  R(CSM)  V(CSM) 

R 3 598  — R-  — V 


(TO  1 AND  0 BY-FRESH  START)  (RESET  -N0R29FLG  TO  LET  SERVICER  RUN  R29) 
(BIT  SET  TO  0 BY  FRESH  START) 

(PIPTIME  THRU  V BY  AVE  G IN  SERVICER) 


R 3599  DEBRIS: 

R 36  00  RACMODES  (BIT  10) 

R 360 1 LOSSM  LCSVDT/4  1=RRTARGET  & LOSVEL) 

R3602  SAVECDUT  OLDESFLG  ( SAVECDUT  = MLOSV) 

R3603  LOSCMFLG  READRFLG 


R3604  ALARMS:  NCNE . 


R 3605  CCMFCNENT  JOBS  AND  TASKS: 


R3606 
R3608 
R36  09 

INITIALIZING, 

DESIGNATING: 

R AT  AR  R F an  TNG: 

IF  RR  IS  FOUND  TO  BE  IN  MODE  1: 
TASK  BEGDES  29  & JOB  R29  DOPES . 
TASK  R29REA0  AND  JOB  R29RDJ0B. 

JOB  R29REM0 J AND  TASK  REMODE; 
ALL  JOBS  ARE  NOVAC  TYPE. 

ALWAYS:  TASK  PREP0S29. 

3 ^ f 2 04  5 

RANK  33 

3611 

REF  1 

33, 2000 

SETLOC  R29/SERV 

3612 

33,2045 

BANK 

3613  REF  1 COUNT  * $f/P29 


3614 


RFF 


2 LAST  -40  1 


5014 


NR29GRRR  EQUALS  EBANK5 


GAP:  ASSEMBLE  REVISION  069  OF  AGE  PROGRAM  LUMINARY  BY  NASA  2021112-011 

L P20-P25 


D 351 5 SERVICER  COMES  TO  R29  FROM  "R29?"  IF  N0R29FLG,  READRFLG,  RRREMODE, 

R3617  ARE  ALL  RESET,  AND  THE  RR  IS  IN  LGC  MODE  (OFTEN  CONFUSINGLY  CALLED 


3619 

REF 

99 

LAST 

600 

33, 2045 

4 0110 

0 

R29 

CS 

R ADM  DDES 

REF- 

^5 

LAST 

? 046 

7 474  ? 

o 

MASK 

BIT10  . 

3621 

33,2047 

0 0006 

1 

EXTEND 

3622 

REF 

1 

33, 2050 

1 2123 

1 

BZF 

R29. LDS 

3623 

33,2051 

0 0004 

0 

INHINT 

3624 

REF 

100 

LAST 

607 

33, 2052 

26  110 

0 

ADS 

RADMODES 

3625 

REF 

59 

LAST 

599 

2 3 » 2 05  3 

4 4736 

0 

CS 

8 I T 1 4 

3626 

33,2054 

0 0006 

1 

EXTEND 

3627 

REF 

39 

LAST 

599 

33,2055 

03  012 

1 

WAND 

CHAN  12 

3628 

REF 

2 

LAST 

5 63 

33,2056 

4 4740 

1 

CS 

LOSC  MBIT 

3629 

REF 

10 

LAST 

599 

33,2057 

7 0076 

1 

MASK 

FLAG  WPD2 

3630 

REF 

11 

LAST 

607 

33, 2060 

54  076 

1 

TS 

FLAG  WRD2 

3631 

REF 

1 

33,2061 

4 4753 

0 

CS 

OLDESBIT 

3632 

REF 

40 

LAST 

562 

33,2062 

7 0074 

0 

MASK 

STATE 

3633 

REF 

41 

LAST 

607 

33,2063 

54  074 

0 

TS 

STATE 

3634 

REF 

L 43 

LAST 

587 

33, 2064 

0 4616 

1 

TC 

BANK  CALL 

3635 

REF 

3 

LAST 

55  1 

33,2065 

52156 

1 

CADR 

SETRPECR 

3636 

REF 

33 

LAST 

561 

33,2066 

3 4740 

0 

CA 

BIT1  2 

3637 

REF 

1 C 1 

L AST 

60  7 

33*2 067 

7 0110 

0 

MASK 

RADMODES 

3638 

REF 

202 

LAST 

604 

33,2070 

10  000 

0 

CCS 

A 

3639 

REF 

1 

33,2071 

1 2104 

1 

TC  F 

SETPRPOS 

3640 

REF 

2 

LAST 

34  1 

33,2072 

3 5031 

0 

CA 

PR  I 0 21 

3641 

REF 

11 

LAST 

518 

33, 2073 

0 5072 

1 

TC 

NOVAC 

3642 

REF 

21 

LAST 

59  9 

E 7 1 1 45-4— 

EBANK^ 

LOSCOUNT 

3643 

REF 

i 

33,2074 

02113 

0 

2C  ADR 

R29P  EMC J 

3643 

REF 

i 

33,2075 

66067 

0 

REF 

36 

LAST 

607 

33,2076 

4 4742 

0 

CS 

B IT1  0 

3645 

REF 

102 

LAST 

607 

33,2077 

7 01  10 

0 

MASK 

RADMODES 

3646 

REF 

103 

LAST 

607 

33, 2 100 

54  1 10 

0 

TS 

RADMODES 

3647 

REF 

60 

LAST 

607 

33,2101 

3 4736 

1 

CA 

BIT14 

3648 

REF 

104 

LAST 

607 

33,2 102 

26  1 10 

0 

ADS 

RADMODES 

3649 

REF 

1 

33,2103 

1 2623 

0 

TC  F 

NCR29N0W 

3650 

RFF 

73 

LAST 

572 

33,2 104 

3 4753 

1 

SETPRPOS 

CA 

ONE 

3651 

REF 

25 

LAST 

599 

33,2105 

0 5203 

0 

TC 

WAITLIST 

36  52 

R EF 

32 

L AST 

607 

E7, 1 454 

EBANK= 

LOSC  OUNT 

3653 

REF 

1 

33,2 106 

03601 

0 

2C  ADR 

PRE  PCS29 

3653 

REF 

1 

33,2107 

52067 

l 

3654 

REF 

27 

L AST 

568 

33,2110 

3 4741 

1 

CA 

B I T 1 1 

3655 

REF 

105 

LAST 

607 

33,2111 

26  1 10 

0 

ADS 

RADMODES 

3656 

REF 

2 

LAST 

607 

33, 2112 

1 2623 

0 

TC  F 

N0R29N0W 

19:02  NOV.  25,1963 


LEMP20S  .114  PAGE  607 


USER'S  PAGE  NO.  104  E7  S3 


RRCDUZRO,  RRREPOS , AND  DI SPL AY- INER T I A L-D A TA 
AUTO  MODE) . 


BRANCH  IF  DESIGNATION  IS  ALREADY  ON. 

SHOW  THAT  DESIGNATION  IS  NOW  ON. 

REMOVE  RR  TRACK  ENABLE  DISCRETE. 

CLEAR  LOSCMFLG  TO  SHOW  DES.  LOOP  IS  OFF. 

SHOW  THAT  DES.  LOOP  IS  NOT  REQUESTED. 
ENABLE  RR  ERROR  COUNTERS. 

TEST  RR  MODE  BIT. 

MODE  2. 

MODE  1;  MUST  REMODE. 

NEEDS  OWN  JOB  TO  RADSTALL  IN. 

CLEAR  DESIGNATE  FLAG  IN  RADMODES 
BEFORE  CALLING  REMODE 


SHOW  THAT  REMODING  IS  ON. 
CONTINUE  SERVICER  FUNCTIONS. 


TASK  TO  SET  TRUNNION  ANGLE  TO  -180  DEG. 
SHOW  THAT  REPOSITIONING  IS  ON. 


GAP 
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L 

P20- 

P25 

USER*  S PAG F NO.  105 

E7  S3 

P3657 

FORCE  RENDEZVOUS  RADAR  INTO  MODE  2. 

3658 

3659 

REF 

REF 

REF 

74 
26 
^ x 

LAST 

LAST 

LAST 

607 

607 

f,fl7 

33. 2113 

33. 2114 
F7, 1 454 

3 4753 
0 5203 

1 R29REM0J 
0 

CA 

TC 

EBANK= 

ONE 

W A I T L 1ST 
LOSCOUNT 

3661 

REF 

2 

LAST 

557 

33,2115 

02171 

1 

2C  ADR 

REMODE 

REMOOE  MUST  RUN  AS  A TASK. 

3661 

33,2116 

52067 

1 

REF 

1 44 

i t 

/sn  7 

33t  2117 

0 4616 

1 

TC 

BANKCALL 

WAIT  FOR  END  OF  REMODING. 

3663 

REF 

10 

LAST 

581 

33,2120 

17667 

0 

CADR 

RADSTALL 

'xp,  2 121 

1 S 1 55 

1 

TCF 

FNCGFJOe 

BAD  EXIT  CAN'T  HAPPEN. 

3665 

REF 

96 

LAST 

608 

33, 2 122 

1 5155 

1 

TCF 

END OF JOB 

TUC  DD  . TDJJMMI  HM  AMHI  F Tfl  — 1 ttfl 

i DFG. 

3667 

REF 

1 

25,2000 

SETLOC 

R29S1 

3668  25,3601  BANK 


3669 

A7D 

REF 

REF 

2 

5 

LAST 
| AST 

380 

543— 

25,3601 
? 5 , 360? 

3 4735 
0 2241 

1 

1 

PREPOS29  CA 
TC 

NEGM AX 
RRTONLY 

-180  DEG. 

DRIVE  TRUNNION  CDU. 

3671 

*REF 

i 

25, 3603 

4 4741 

0 

CS 

REPOSBIT 

SHOW  THAT  REPOSITIONING  IS  OFF. 

3672 

*REF 

106 

LAST 

607 

25,3604 

7 0110 

0 

MASK 

RADMODES 

3672  5 

❖REF 

1 C7 

LAST 

60  8 

25, 3605 

54  110 

0 

TS 

R ADM  ODES 

3673 

REF 

26 

LAST 

602 

25,3606 

1 5261 

0 

TCF 

TASK  CVEP 

R 36  74 

COMPUTE 

LINE-OF-S IGHT  AND  LOS 

VELOCITY, 

AND  PASS 

THEM  TO  THE  R29D0DES 

LOOP. 

3676 

REF  1 

33,2045 

SETLOC 

R29 

3677 

33,2123 

BANK 

3678 

33,2123 

0 0006 

1 

R29.L0S 

EXTEND 

3679 

REF  4 

LAST 

349 

33,2  124 

4 1235 

0 

DCS 

P IPT  IME 

3680 

R-FF  2 42 

L AST 

584 

33,  2 125 

52  155 

1 

DXCH 

MPAC 

3681 

33,2126 

0 0006 

1 

EXTEND 

3682 

REF  16 

LAST 

580 

33,2127 

3 0025 

0 

DC  A 

T I ME  2 

3683 

RFF  243 

—LAST 

60  8 

33, 2 130 

20  155 

1 

DAS 

MPAC 

IMPAC)  = T-PIPTIME,  SCALED  B-28. 

3684 

REF  4 

LAST 

348 

33, 2 131 

54  163 

1 

TS 

MODE 

SET  MODE  TO  DOUBLE  PRECISION. 

3685 

REF  244 

LAST 

608 

33, 2 132 

3 0155 

0 

CA 

MPAC  +1 

36  86 

33,2133 

0 0006 

1 

EXTEND 

3687 

REF  34 

LAST 

607 

33, 2134 

7 4740 

1 

MP 

BIT12 

3688 

REF  245 

LAST 

608 

33,2135 

52  155 

1 

DXCH 

MPAC 

T-PIPTIME  NOW  SCALED  8-17. 

3689 

REF  55 

LAST 

60  3 

33,2136 

0 6036 

1 

TC 

INTPRET 

GAP: 

L 

P3690 

R 3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

37  03- 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3722 

3723 

3724 

3724 
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LOSCMFLG=0  MEANS  THAT  THE  DESIGNATION  IS  READY  FOR  NEW  DATA.  SETTING  LOSCMFLG  MAKES  IT  GO  AWAY  SO  SETUP29D  CAN 
START  IT  UP  WHEN  THE  DATA  IS  IN  PLACE. 


REF 

l 

33,2137 
^3t  P I 40 

52315 

01726 

1 

o 

POVL 

VSU 

V (CSM) 

PUSH  DOWN  T-PIPTIME. 

REF 

2 

LAST 

162 

33,2 141 

03525 

0 

V 

LOSVEL  = V(CSM)  - V. 

33,2142 

74325 

0 

PDDL 

VXSC 

SWAP  LOSVEL  FOR  T-PIPTIME,  MULTIPLY  THEM 

33,2 143 

522  55 

1 

VAD 

VSU 

AMD  ADD  THE  RESULT  TO  R(CSM)  - R TO  GET 

REF 

1 

33,2 144 

01720 

0 

R (CSM) 

AN  UP-TO-DATE  LOS  VECTOR  IN  SM  AXES. 

REF 

4 

LAST 

248 

33, 2145 

03517 

1 

R 

33,2 146 

77414 

0 

BOFSET 

EXIT 

(BOFSET  DOES  ITS  THING  INHINTFD.) 

REF 

8 

LAST 

576 

33,2147 

01043 

1 

LOSCMFLG 

IF  DESIGNATE  LOOP  IS  OFF,  CHANGE  LOSC  M— 

REF 

1 

33,2150 

66152 

1 

SETUP29D 

FLG  TO  ON  AND  GO  TO  SET  UP  NEW  OATA. 

REF  3 LAST  607  33,2151  1 2623  0 TCF  N0R29N0W  IF  DES.  LOOP  IS  ON,  LET  IT  USE  OLD  DATA. 


REF 

1 

33, 2152 
33,  2 153 

25102 

00001 

0 

0 

SET UP29D  STOVL 

LOSS  M 

L INE-OF-S IGHT  VECTOR,  STABLE  MEMBER  AXFS 

33,2154 

77761 

1 

VXSC 

REF 

1 

33, 2155 

26177 

1 

. 5SECB17 

R F F 

1 

33,2156 

01  761 

o 

STORE 

LOS V DT/4 

1/2  SECOND'S  WORTH  OF  LOS  VELOCITY. 

33, 2 157 

77414 

0 

CLEAR 

EXIT 

REF 

9 

LAST 

609 

33, 2160 

01263 

1 

LOSC  MFLG 

LET  R29DLOOP  USE  NEW  DATA. 

REF 

42 

LAST 

607 

33, 2161 

4 0074 

0 

CS 

STAT  E 

REF 

2 

LAST 

607 

33,2 162 

7 4753 

0 

MASK 

OLDE  SB I T 

33, 2 163 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

609 

33, 2164 

1 2623 

0 

BZF 

N0R29N0W 

BRANCH  IF  R29  DES.  LOOP  IS  REQUESTED. 

33, 2165 

0 0004 

0 

INHINT 

REF  43  LAST-  609  33,2166  26  074  0 ADS  STATE OTHERWISE  REQUEST  IT  MOW. 


REF 

REF 

1 

1 

33,2167 
33, 2170 

11*056 

1 

1 

CCS 

CS 

PIPCTR 
SUPE  P110 

SEE  IF  TASK  SHOULD  BE  OFFSET  ONE  SECOND. 
— 96D  +100D  = 4. 

REF 

4 

LAST 

394 

33,2 171 

6 4777 

1 

AD 

1 SEC 

0 +100D  = 100D. 

REF 

27 

LAST 

608 

33,2172 

0 5203 

0 

TC 

WAIT  LIST 

REF 

3 4 

LAST 

608 

E7, 1454 

EB ANK= 

LOSC  CUNT 

REF 

1 

33,2 173 

032  53 

0 

2C  ADR 

BEGDES29 

START  BEGDES29  TASK  ASAP. 

REF 

1 

33,2174 

50067 

0 

*REF  5 LAST  609  33,2175  1 2623l_X) TCF  NCP29N0W  RELINT  AND  CONTINUE  SERVICER  FUNCTIONS. 


33, 2 176 

00006 

1 .5SECB17  2DEC 

50  B - 1 7 

33,2177 

IDO  00 

0 

GAP 
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P3725 

R3727 


R29  DESIGNATE  JOB  AND  TASK  MACHINERY.  TASK  RECURS  EVFRY  .5  SEC  UNTIL  DESIGNATE  IS  CALLED  OFF;  IT  MAY  WAIT  FOR  A 
CENTISECOND  OR  TWO  IF  IT  COMES  UP  WHILE  SETUP29D  IS  SUPPLYING  NEW  DATA. 


3728 

24,3253 

BANK 
SET LOG 

24 

P20S 

3730 

24, 3253 

BANK 

3731  ref  1 1 COUNT  * J.T/R29 


3732 

REF 

3 

LAST 

607 

24, 3253 

3 5031 

0 

BEGDES29  CAF 

PR  I 021 

1 2 

LAST 

50  7 

24 1 3 2 54 

0 5072 

1 

TC 

NOVAC 

3734 

REF 

2 

LAST 

609 

E 3 , 1 760 

EBANK= 

L3SVDT/4 

3735 

REF 

1 

24,3255 

02545 

1 

2C  ADR 

R29D0DES 

START  R29D0DES  JOB  TWICE  A SECOND. 

3735 RET 1 24,  3256  64063  0 


3736 

REF 

2 

LAST 

526 

24,3257 

3 4774 

1 

R29DL00P  CAF 

. 5SEC 

3737 

REF 

4 

LAST 

57  3 

24,3260 

0 52  24 

0 

TC 

VARDELAY 

3738 

REF 

1C8 

LAST 

608 

24, 3261 

4 01  10 

0 

cs 

R ADMCDES 

373Q 

R FF 

37 

1 AST 

60  7 

24,  3 262 

7 4742 

0 

MASK 

8IT10 

3740 

REF 

203 

LAST 

607 

24, 3263 

10  000 

0 

CCS 

A 

3741 

REF 

27 

LAST 

608 

24, 3264 

1 5261 

0 

TCF 

TASK  OVER 

QUIT  IF  DESIGNATION  IS  CALLED  OFF. 

3742 

REF 

12 

LAST 

607 

24, 3265 

4 0076 

1 

CS 

FLAGWRD2 

3743 

REF 

3 

LAST 

607 

24, 3266 

7 4740 

1 

MASK 

LOSC  MB  I T 

24  t ^ 75  7 

0 0005 

l 

F X T F N D 

3745 

24, 3270 

1 32  7 3 

0 

BZF 

+ 3 

BRANCH  IF  SETU°29D' S SUPPLYING  NEW  DATA. 

3746 

REF 

13 

LAST 

610 

24,3271 

26  076 

1 

ADS 

FLAG  WRD2 

SET  LOSCMFLG : SHOW  THAT  DES.  LOOP  IS  ON. 

3747 

REF 

— 2 

LAST 

60  9 

24,3272 

1 3253 

1— 

TCF 

BEGDES29 

3748  REF  75  LAST  608  24,3273  3 4753  1 CA  ONE 

3749  REF  — 1 — 24,  3274  1 3260—1 — TCF  R29DL00P  +1 


WAIT  A CENTISECOND  FOR  NEW  DATA 


GAP: 

L 

P3750 

R 37  51 
R3753 
R 375  5 
R3757 
R3759 

R 3 76 1 
R3763 


37  64 

3765 

3766 

3767 

3768 


3769 

3770 

3771 


3772 

3773 

3774 

3775 


3776 

3777 

3778 

3779 
37  80 

3781 

3782 

3783 

3784 

3785 

3786 

3787 

3788 

3789 

3790 

3791 

3792 

3793 

3794 


ASSEMBLE  REVISION  0 69--QF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011  1-9:02  NOV.  25*1968  LF-MP20S  -114  -PA-GE  611 

p 9 n_ p t c USER'S  PAGE  NO.  108  E7  S3 


R 29D0CES : RR  DESIGNATION  LOOP  FOR  R29 

THIS  ROUTINE  DOES  MUCH  THE  SAME  THING  AS  DQDES*  BUT  A GREAT  DEAL  FASTER.  IT  TAKES  THE  NON-UN  I T I Z ED  LQ S VECTOR 
IN  STABLE  MEMBER  COORDINATES  (LOSSM)  AND  A DELTA-LOS  IN  SM  AXES  (LOSVDT/4)  WHICH  IS  1/2  SEC  TIMES  LOS  VELOCITY, 
AND  DEVELOPS  THE  SHAFT  AND  TRUNNION  COMMANDS  USING  SINGLE  PRECISION  AS  MUCH  AS  POSSIBLE,  AND  INTERPRETIVE  NOT  AT 
ALL.  THE  UN  I T (LOSSM - + LOSVEL  4 1 SEC)  IS  COMPUTED  1 N DP  AND  TRANSFORMED  TO  NAV  BASE  COORDINATES  IN  DOUBLE  PRE- 
CISION  (USING  SP  SINES  AND  COSINES  OF  CDU  ANGLES),  AND  THE  REST  IS  DONE  IN  SP. 

THE  FUNCTIONAL  DIFFERENCE  IS  THAT  R29DQDES  ALWAYS  CL EARS-LOS CMFLG  WHEN  IT  ENDS,  AND  IT  STARTS  UP  THE  R29READ 
TASK  WHEN  LOCK-ON  IS  ACHIEVED. 


32,2545 

BANK 

32 

REF 

2 LAST 

55 

32,2000 

SETLOC 

F2DP  S*32 

32,  2 545 

BANK 

REF 

1 

COUNT  * 

$ $/R  29 

REF  3 LAST 61  0 F3,  1 760 E13ANK-  l OSVDT/4 


REF 
R FF 

76 
2 5 

LAST 
i AST 

610 
58  1 

32,2545 
32,2  546 

3 4753 
55 ’ 107 

1 

1 

R29D0DES 

CA 

TS 

ONE 

TANG 

INDICATE  1ST  PASS  THRU  VECTOR  LOOP. 

REF 

12 

LAST 

564 

32,2547 

3 4756 

1 

CA 

FIVE 

REF 

7 0. 4 

1 AS  T 

4 i n 

3 ? , 2 5 5 0 

1 0 000 

o 

R29DVBFG 

CCS 

A 

COUNTS  DOWN  BY  TWOS  IN  VECTOR  LOOP. 

REF 

168 

LAST 

571 

32,2551 

54  002 

1 

TS 

Q 

REF 

26 

LAST 

611 

32,2552 

11' 107 

1 

CCS 

TANG 

REF 

1 

-32,2553 

1 2561 

0 

TCF 

R29DPAS1 

DO  THIS  ON  1ST  PASS  THRU  LOOP. 

32,2554 

0 0006 

1 

EXTEND 

(A  "PASS"  HERE  MEANS  3 TIMES  AROUND). 

RFF 

1 

1 AST 

6 1 1 

32,  2 555 

5 0002 

o 

INDEX 

Q 

RFF 

4 

LAST 

611 

32,2556 

3 1761 

0 

DC  A 

LOSVDT/4 

REF 

170 

LAST 

6 1 1 

32,2557 

50  002 

0 

INDEX 

Q 

REF  -2 — I AST  60  9 32,2  560 21' 102  1 DAS LOSS  M ADVANCE  LOS  VECTOR  1/2  SECOND  . 


32,2561 

0 0006 

1 

R290PAS1 

EXTEND 

RFF  171 

LAST 

6 11 

- 3-2,  2 562  - 

5 0002 

0 

INDEX 

_Q 

REF  3 

LAST 

61  1 

32,2  563 

3 1102 

0 

DC  A 

LOSSM 

REF  172 

LAST 

61  1 

32,2564 

50  002 

0 

INDEX 

3 

MOVE  CURRENT  LOS  (1ST  PASS)  OR  LOS  PRO- 

REF  246 

LAST 

-60  8 

32,  2565- 

52  156 

1 

DXCH 

M P AC  +1 

JECTED  1/2  SEC  AHEAD  (2ND  PASS). 

REF  27 

LAST 

611 

32,2566 

1 1 ' 107 

1 

CCS 

TANG 

REF  1 

32,2567 

1 2575 

0 

TCF 

R2  9 D VEND 

BUG  OUT  HERE  IN  1ST  PASS. 

32,2570 

0 0006 

1 

EXTEND 

REF  173 

LAST 

611 

32,2571 

5 0002 

0 

INDEX 

Q 

REF  5 

LAST 

611  _ 

32,2572 

3 1761 

0 

DC  A 

LOSVDT/4 

REF  174 

LAST 

6 1 1 

32,2573 

50  002 

0 

INDEX 

0 

REF  247 

LAST 

611 

32,2574 

20  156 

1 

DAS 

MPAC  +1 

PROJECT  LOS  1 SECOND  AHEAD  (2ND  PASS). 

REF  175 

LAST 

6 1 1 

32,2575 

10  002 

1 

R29DVEN0 

CCS 

0 

REF  1 

32,2576 

1 2550 

1 

TCF 

R29DVBEG 

BRANCH  TO  CONTINUE  VECTOR  LOOP. 

GAP: 
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L 

P20-P25 

USER’ S PAGE 

NO. 

109 

E3  S3 

P3795 

UNITIZE  ANC  TRANSFORM  TO  NAV  BASE  AXES  THE  PRESENT  LOS  (1ST  PASS)  OR  THE 

1-SEC  PROJECTED 

LOS 

( 2ND 

PASS ) . 

3797 

3798 

REF 

REF 

248 

249 

LAST 

LAST 

611 

612 

32,2  577 
32,2600 
R2, 260 1 

52  156 
52  155 
3 2770 

1 

1 

0- 

DXCH 

OXCH 

CA 

MPAC  +1 
MPAC 

R2-9F  XLOC 

= ADRES  1NTB15+  - 34D 

3800 

REF 

18 

LAST 

369 

32, 2602 

54  120 

0 

TS 

F I X L OC 

3301 

REF 

1 

32,2603 

0 4713 

0 

TC 

U S PR  CADR 

WITH  F I XLOC  ARMED  FOR  LENGTH  AND  LENGTH 

REF 

1 

32, 2 604 

0 1 023 

1 

CADR 

UNIT 

SQUARED,  BORROW  UNITIZING  ROUTINE. 

3803 

REF 

1 

32,2605 

0 7531 

1 

TC 

MPAC  VBUF 

MOVE  UNIT! LOS ) TO  AX*SR*T  ARG  APEA. 

LAST 

611 

1 1 i ID7 

1 

CCS 

TANG 

3805 

32,2607 

1 2611 

1 

TC  F 

+2 

3806 

REF 

1 

32,2610 

1 2625 

0 

TCF 

GOT  A NGLS 

GET  CDU  ANGLES  ONLY  AFTER  1ST  PASS. 

3807 

32, 261 1 

0 0004 

0 

INHINT 

FNSURE  CONSISTENT  CDU  READINGS. 

3808 

32,2612 

0 0006 

1 

EXTEND 

3809 

REF 

11 

LAST 

60  1 

32, 2613 

3 0036 

1 

DC  A 

C OUT 

REF 

32^2614 

53*  767 

1 

DXCH 

SAVECDUT 

TRUNNION  AND  SHAFT  ANGLES. 

3811 

REF 

3 

LAST 

580 

32,2615 

3 0033 

1 

CA 

C DU  Y 

3812 

REF 

16 

LAST 

590 

32,2616 

54  766 

1 

TS 

C DUS  POT 

REF 

6 

EAST 

3 7 0 

32  r 2 6 1 7 

3 0034 

o 

CA 

CDUZ 

3814 

REF 

17 

LAST 

612 

32,2620 

54  770 

0 

TS 

C DUS  POT  +2 

3815 

REF 

11 

LAST 

580 

32,2621 

3 0032 

0 

CA 

C DUX 

3R  ] 6 

REF 

L8 

1 AST 

6 12 

32,  2622 

54  772 

1 

TS 

C DUS  POT  +4 

CDU  ANGLES  IN  FUNNY  ORDER  FOR  4X*SR*T. 

3817 

REF 

145 

LAST 

608 

32,2623 

0 4616 

1 

TC 

BANKCALL 

3818 

REF 

1 

32, 2624 

47521 

1 

CADR 

QUICTRIG 

GET  SINES  AND  COSINES  OF  CDU  ANGLES. 

3819 

REF 

19 

LAST 

574 

32, 2625 

4 6244 

1 

GOT ANGL  S CS 

THR  E E 

3820 

REF 

146 

LAST 

612 

32, 2626 

0 4616 

1 

TC 

BANKCALL 

3B2 1 REF  l - 32+  2 627  47601  0 CADR  AX*SR*T  TRANSFORM  UNIT  LOS  TO  NB  AXES  (ULOSNB). 


3822 

3323 

REF 

29  LAST  612 

32,  2630 
3 2 r 2 6 31 

11*107 
1 26  33 

1 

1 

CCS 
TC  F 

TANG 
+ 2 

3824 

REF 

1 

32, 2632 

1 2676 

0 

TCF 

R29DPAS2 

GO  TO  RR  COMMAND  COMP.  AFTER  2ND  PASS. 

GAP  : 

L 

P3825 

R3827 

3828 

3829 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

38  53 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 
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COMPUTE 

COSINE 

OF 

THE  ANGLE 

BETWEEN 

THE 

PRESENT 

LOS  AND 

THE  RP  BORESIGHT  VECTOR,  AND  SET  THE  SELFTRACK  ENABLE  IF 

THE  COSINE  IS 

APPROXIMATELY 

COS ( .5  DEG) 

OR  GREATER  (I.E 

. SMALLER 

ANGLE) . 

REF  30 

LAST 

612 

32, 2633 

55' 107 

1 

TS 

TANG 

INDICATE  2ND  PASS  THRU  VECTOR  LOOP. 

P EF  ? 

L AST 

6 12 

32*  2634 

3 1 766 

1 

CA 

SAVE  CDUT 

REF  3 

LAST 

204 

32,2635 

0 5032 

0 

TC 

SPCOS 

REF  2 

LAST 

267 

32, 2636 

54  166 

1 

TS 

PUSH  LOC 

PUSHLOC  = COS  T. 

R FF  3 

LAST 

613 

32, 2637 

4 1766 

0 

CS 

S AVECDUT 

REF  3 

LAST 

203 

32,2640 

0 5033 

1 

TC 

S PS  I N 

REF  5 

LAST 

608 

32, 2641 

54  163 

1 

TS 

MODE 

MODE  = -SIN  T. 

32,2642 

0 0006 

1 

EXTEND 

REF  26 

LAST 

348 

32,2643 

7 0124 

1 

MP 

VBUF  +2 

FORM  - SIN  T ULOSNBY . 

REF  250 

LAST 

612 

32, 2644 

52  155 

1 

DXCH 

MPAC 

REF  4 

LAST 

613 

32,2  645 

3 1767 

0 

CA 

SAVE  CDUT 

+ 1 

REF  4 

LAST 

613 

32,2646 

0 5033 

1 

TC 

S PS  I N 

REF  5 

LAST 

613 

32, 2647 

55*  766 

0 

TS 

SAVECDUT 

SAVECDUT  NOW  = SIN  S. 

32,2650 

0 0006 

1 

EXTEND 

REF  3 

LAST 

613 

32, 2651 

7 0166 

1 

MP 

PUSH LOC 

32, 2652 

0 0006 

1 

EXTEND 

REF  27 

LAST 

6 1 3 

32,2653 

7 0122 

1 

MP 

VBUF 

FORM  SIN  S COS  T ULOSNBX. 

REF  251 

LAST 

6 13 

32,2654 

20  155 

1 

DAS 

MPAC 

REF  6 

LAST 

613 

32, 2655 

3 1767 

0 

CA 

SAVECDUT 

+ 1 

REF 4 

4 AST 

613 

32, 2656 

0 5032 

0 

TC 

SPECS 

REF  7 

LAST 

613 

32,2657 

55*767 

1 

TS 

S AV  F CDUT 

+1  SAVECDUT  +1  NOW  = COS  S . 

32, 2660 

0 0006 

1 

EXTEND 

REF  4 

LAST 

613 

32 , 2661 

7 0166 

1 

MP 

PUSHLOC 

32, 2662 

0 0006 

1 

EXTEND 

REF  28 

LAST 

61  3 

32, 2663 

7 0126 

0 

MP 

VBUF  +4 

FORM  COS  S COS  T ULOSNBZ. 

REF  252 

LAST 

613 

32, 2 664 

20  155 

1 

DAS 

MPAC 

COS( ERROR ) = ULOSNB  . (SIN  S COS  T, 

32,2665 

0 0006 

1 

EXTFND 

- SIN  T,  COS  S COS  T) . 

REF  253 

LAST 

6 1 3 

32,2666 

3 0155 

0 

DC  A 

MPAC 

REF  254 

LAST 

61  3 

32,2  66  7 

20  155 

1 

TESTCOS 

DAS 

MPAC 

(ULOSNB  IN  VBUF  WAS  A HALF-UNIT  VECTOR). 

REF  205 

LAST 

61  1 

32,2670 

10  000 

0 

CCS 

A 

TEST  FOR  + OVERFLOW,  NONE,  OR  MINUS. 

REF  61 

LAST 

607 

32,2671 

3 4736 

1 

CA 

BIT14 

32,2672 

12  673 

0 

NOOP 

32,2673 

0 0006 

1 

EXTEND 

REF  40 

LAST 

607 

32,2674 

05  012 

1 

WOR 

CHAN  12 

IF  PLUS  OVERFLOW,  SET  SELFTRACK  ENABLE. 

REF  2 

LAST 

6 1J_ 

32  , 2 675 

1 2547 

_1 

TCP 

P.2  9DVBEG 

-1  MAKE  2ND  PASS  THRU  VECTOR  LOOP. 

GAP:  ASSEMBLE  REVISION  0-69  GE  ADG  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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P3863 

COMPUTE 

SHAFT 

AND  ' 

TRUNNION  COMMANDS 

TO  NULL  HALF 

THE  ERROR  I N HALF 

3865 

REF 

8 

LAST 

613 

32,2676 

3 1767 

0 R29DPAS2 

CA 

SAVE  CDUT 

+ 1 

3866 

32,2677 

0 0006 

1 

EXTEND 

RFF 

29 

1 ART 

6 1 1 

32,2  700 

7 0122 

1 

MP 

VBUF 

3868 

REF 

31 

LAST 

613 

32,2701 

53' 1 10 

1 

DXCH 

TANG 

3869 

REF 

9 

LAST 

614 

32, 2702 

4 1766 

0 

cs 

SAVE CDUT 

^ft  10 

32,  2 703 

0 0006 

1 

EXTEND 

3871 

REF 

30 

LAST 

614 

32,2704 

7 0126 

0 

MP 

VBUF  +4 

38  72 

REF 

32 

LAST 

614 

32,2705 

21'  110 

1 

DAS 

TANG 

3A  7^ 

R FF 

6 

1 ART 

61-3 

32 , 2706 

4 0163 

1 

CS 

MODE 

3874 

32,2707 

0 0006 

1 

EXTEND 

3875 

REF 

10 

LAST 

614 

32,2710 

7 1766 

0 

MP 

SAVE CDUT 

3876 

32,2711 

0 0006 

1 

EXTEND 

3877 

REF 

31 

LAST 

614 

32,2712 

7 0122 

1 

MP 

VBUF 

3878 

REF 

255 

LAST 

613 

32,  2713 

52  155 

1 

DXCH 

M P AC 

1ft  7Q 

REF- 

5 

LAST- 

61  3 

32, 2714 

3 0166 

0 

CA 

PUSHLOC 

3880 

32, 2715 

0 0006 

1 

EXTEND 

3881 

REF 

32 

LAST 

614 

32,2716 

7 0124 

1 

MP 

VBUF  +2 

3Q  ft  2 

REF 

256 

last 

614 

32,2717 

20  1 55 

1 

DAS 

MPAC 

3883 

REF 

7 

LAST 

614 

32,2720 

4 0163 

1 

CS 

MODE 

3884 

32, 2721 

0 0006 

1 

EXTEND 

38  85 

REF 

1 1 

LAST 

614 

32,2722 

7 1767 

1 

MP 

SAVECDUT 

+ 1 

3886 

32,2723 

0 0006 

1 

EXTEND 

3887 

REF 

33 

LAST 

614 

32,2724 

7 0126 

0 

MP 

VBUF  +4 

3888 

R£F 

257 

LAST 

614 

32,  2 725 

20  155 

1 

DAS 

MPAC 

3889 

REF 

258 

LAST 

6 1 4 

32,2726 

3 0154 

1 

CA 

MPAC 

3890 

32,2  727 

0 0006 

l 

EXTEND 

3891 

REF 

1 

? 730 

7 7 77  1 

o 

MP 

RR79GAIN 

3892 

REF 

33 

LAST 

614 

32,2731 

57*107 

0 

XCH 

TANG 

3893 

32, 2732 

0 0006 

1 

EXTEND 

3894 

REF 

2 

LAST 

-614 

32, 2 733 

7 2771 

0 

MP 

RR 2 9 GAIN 

3895 

REF 

34 

LAST 

614 

32,2734 

55' 1 10 

1 

TS 

TANG  +1 
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SECOND. 


FORM  COS  S ULOSNB ' X . 


FORM  - SIN  S ULOSNB' Z • 

RAW  SHAFT  CMD  = ULOSNB'  . (COS  S,  0, 
- SIN, SJ 


FORM  SIN  T SIN  S ULOSNB'X. 


FORM  COS  T ULOSNB ' Y. 


FORM  SIN  T COS  S ULOSNB'Z. 

PAW  TRUNNION  CMD  = ULOSNB*  . 

(SIM  S SIN  T,  COS  T,  SIN  S CHS  T). 


STORE  REFINED  T CMD,  GET  RAW  S CMD. 


STORE  REFINED  S CMD 


GAP:  ASSEMBLE  REVISION  069  OF  AGO- PROGRAM  LUMI NARY  BY  NASA  2021112-011 
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USER'S  PAGE  NO.  112  EB  S3 


P3896 

R3898 

WHETHER 

READING 

OR  NOT  TRACKING  WAS  ENABLED  THIS 
DATA  FROM  THE  RENDEZVOUS  RADAR. 

TIME, 

CHECK  ON 

RP  DATA-GOOD. 

IF  PRESENT,  STOP  DESIGNATING  AND  START 

3899 

REF 

28 

LAST 

60  2 

32,2735 

3 4750 

1 

DG00D7 

CAF 

B IT4 

32t  2 736 

0 0006 

1 

EXTEND 

3901 

REF 

20 

LAST 

60  2 

32, 2737 

02  033 

0 

RAND 

C HAN  33 

GET  RR  DATA-GOOD  BIT. 

3902 

32,2740 

0 0004 

0 

INHINT 

( MAINLY  FOR  RR  OUT ) . 

3903 

32,2  741 

0 0006 

1 

EXTEND 

3904 

REF 

1 

32,2742 

1 2746 

1 

3ZF 

R29L0K0N 

BRANCH  IF  DATA-GOOD  IS  PRESENT. 

^ EF 

14  7 

LAST 

6 12 

3?.,  2 743 

0 46  1 6 

1 

TC 

BANKCAL  L 

3906 

REF 

3 

LAST 

563 

32,2744 

52306 

0 

CADR 

RRC’UT 

DATA-GOOD  IS  ABSENT,  SO  SEND  COMMANDS. 

3907 

REF 

1 

32,2745 

1 2 7 64 

1 

TC  F 

END2  9D0D 

3908 

REF 

38 

LAST 

61  C 

32,2746 

4 4742 

0 

R29L0K0N  CS 

3 I T 1 0 

3909 

REF 

1 09 

LAST 

6 10 

32,2747 

7 01  10 

0 

MASK 

R ADMCDES 

3 q IQ 

REF 

1 1 o 

I AST 

6 1 s 

32, 2750 

54  1 10 

0 

TS 

RAD MODES 

SHOW  THAT  DESIGNATION  IS  OVER. 

3911 

REF 

38 

LAST 

582 

32,2751 

4 4752 

1 

CS 

BIT2 

3912 

32,2752 

0 0006 

1 

EXTEND 

39  1 1 

REF 

41 

LAST 

6 13 

32, 2 753 

03  012 

1 

WAND 

CHAN  12 

DISABLE  RR  ERROR  COUNTERS. 

3914 

REF 

2 

LAST 

234 

32,  2 754 

3 4743 

0 

CA 

READPBIT 

3915 

REF 

11 

LAST 

566 

32, 2755 

26  077 

0 

ADS 

FL AGWRD3 

SHOW  THAT  READING  HAS  BEEN  REQUESTED. 

39  16 

R F F 

2 

! AST 

60  9 

32,2  756 

11*056 

1 

CCS 

PIPCTR 

SEE  IF  TASK  SHOULD  BE  OFFSET  1 SEC. 

3917 

REF 

2 

LAST 

609 

32,  2757 

4 47  76 

1 

CS 

SUPER110 

- 960  + 100D  = 4. 

3918 

REF 

5 

LAST 

609 

32,  2 760 

6 4777 

1 

AD 

1 SEC 

0 + 100D  = 100D. 

3919 

REF 

28 

LAST 

609 

32,2761 

0 5203 

0 

TC 

WAITLIST 

3920 

REF 

35 

LAST 

609 

E7 , 1454 

FB ANK= 

LOSC  CUNT 

3921 

REF 

1 

32,2762 

03275 

1 

2CADR 

R29R  EAD 

START  READING  TASK  AND  JOB. 

39  21  REF  1 32,2263 5,0067  0 


3922 

REF 

4 

LAST 

6 10 

32,2764 

4 4740 

1 

END29D0D  CS 

LOSC  MBIT 

3923 

REF 

14 

LAST 

6 10 

32, 2 lb5 

7 0076 

1 

MASK 

FLAG  WRD2 

3924 

REF 

15 

LAST 

615 

32,2766 

54  076 

1 

TS 

FLAGWRD2 

ALWAYS  CLEAR  LOSCMFLG. 

3925 

REF 

97 

LAST 

608 

32,2767 

1 5155 

1 

TCF 

ENDOFJOB 

3926 

3927 

REF 

4 

LAST 

1 1 2 

32,2770 
32 , 2 771 

00052  0 
56655  1 

R29FXL0C 

RR29GAIN 

ADRES 

DEC 

I NTB  15+  -34D 
-.53624 

3928 

REF 

6 

LAST 

600 

E3, 1 760 

LOSVDT/4 

EQUALS 

L OS V EL 

3929 

REF 

14 

LAST 

600 

l 101 

LOSSM 

EQUAL  S 

RRTARGET 

3930 

REF 

6 

LAST 

577 

C 3,  1 766 

SAVECDUT 

EQUALS 

ML  OS  V 

GAP:  ASSEMBLE  REV  IS  I ON- -0-6  9 OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021  L12-0U 
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P3931 

RR  READING  IS 

SET  UP 

BY  R29DOOES  WHEN 

IT  DETECTS  RR  LOCK-ON. 

3932 

3933 

REF  7 LAST 

610 

24, 3275 
24,2000 

BANK  24 

SETLOC  P20S 

3934  ,2-4, 3275  BANK 


3935 

REF 

2 

LAST 

610  TO 

611  : 

18 

18* 

COUNT  * 

$ $ / R 2 9 

3936 

REF 

36 

LAST 

615 

E7, 1454 

EBANK= 

LC SC  CUNT 

3 7713 

-0— 

R29READ 

CAF 

PR  I (126 

L H J 1 

3938 

REF 

13 

LAST 

610 

24, 3276 

0 5072 

1 

TC 

NOVAC 

39  39 

REF 

37 

LAST 

61  6 

E7, 1454 

FBANK= 

LOSCOUNT 

3Q4-0 

RFF 

1 

24,  3 277 

03310 

0 

2CADR 

R-29BDJQB 

3940 

REF 

1 

24,3300 

50067 

0 

5 7 3 

24 y 3301 

3 soon 

l 

CA 

2 SFf  S 

3942 

REF 

5 

LAST 

610 

24,3302 

0 5224 

0 

TC 

VARDFLAY 

P EF 

12 

A ST 

A 1 B 

?4t  3 303 

3 0077 

1 

CA 

FLAG  WRD3 

3944 

REF 

3 

LAST 

615 

24, 3304 

7 4743 

1 

MASK 

READ  RBIT 

3945 

REF 

206 

LAST 

613 

24,3305 

10  000 

0 

CCS 

A 

394^ 

RFF 

2 

LAST 

615- 

24 , 3306 

1 3275 

o 

TC  F 

R29READ 

3947 

REF 

28 

LAST 

610 

24,3307 

1 5261 

0 

TCF 

TASKOVER 

•3  0077 

CA 

FLAG  WRD3 

3949 

REF 

3 

LAST 

29  5 

24,3311 

7 4741 

0 

MASK 

NP29FBIT 

3950 

REF 

207 

LAST 

616 

24,3312 

10  000 

0 

CCS 

A 

3951  REF  1 24, 3313  1 3 3 72  0 _ TCF  ENDRRD29 


3952 

REF 

111 

LAST 

6 1 5 

24,3314 

3 

0110 

1 

CA 

R ADMCDES 

3953 

REF 

3 9 

LAST 

615 

24, 3315 

7 

4752 

1 

MASK 

R I T2 

3954 

REF 

208 

LAST 

616 

24,3316 

10  000 

0 

CCS 

A 

3955 

REF 

2 

LAST 

616 

24, 3317 

1 

3372 

0 

TCF 

ENDR  RD29 

3956 

REF 

148 

LAST 

615 

24, 3320 

0 

4616 

1 

TC 

B ANKCALL 

3957 

REF 

4 

LAST 

580 

24,3321 

531  03 

0 

CADR 

RPR  DOT 

3958 

REF 

I 49 

LAST 

6 1 6 

24, 3322 

0 

46  16 

1 

TC 

B ANKCALL 

3959 

REF 

11 

LAST 

608 

24,3323 

17667 

0 

CADR 

R ADS  TALL 

3960 

REF 

3 

LAST 

616 

24,3324 

1 

3372 

0 

TCF 

ENDRRD29 
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CALLED  BY  WAITLIST. 


START  JOB  TO  READ  AND  DOWNLINK  FOR  R29. 


2 SECONDS  LATFR,  SEE  IF  READING-  IS  STILL 
ALLOWED  (NO  TRACKER  FAIL  ETC.) 

IT'S  OK;  CALL  IT  AGAIN. 

IT  AIN'T;  WAIT  FOR  REDESIGNATE. 

CALLED- VIA  NOVAC. 

TFST  "N0R29FLG"  . 

R29  IS  NOW  OVER,  STOP  AT  ONCE. 


TEST  RR-NOT-I N- AUTO- MODE  BIT. 
ASTRO  TOOK  RR  OUT  OF  AUTO  MODE. 


INITIATE  READING  OF  RANGE  RATF. 


GO  TO  SLEEP  UNTIL  IT'S  READY. 
BAD  READ;  REDESIGNATE. 


GAP: 

L 

P3961 

3962 

3963 

39  64 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

39  86 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999— 

4000 

4001 

4002- 

4003 

4004 
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REF 

7 

LAST 

580 

24, 3325 

53' 106 

0 

DXCH 

T IMEHOLD 

REF 

259 

LAST 

614 

24, 3326 

52  155 

1 

DXCH 

MPAC 

TIME  OF  RR  READING,  FOR  DOWNLINK. 

-24,3327 

0 0004 

0. 

INHINT 

BE  SURE  OF  5 CONSISTENT  CDU  ANGLES. 

24,3330 

0 0006 

1 

EXTEND 

REF 

12 

LAST 

612 

24,3331 

3 0036 

1 

DCA 

CDUT 

R FF 

? AO 

1 AST 

6 1 7 

24f  3332 

52  157 

0 

DXCH 

MPAC  +2 

RRCDU  ANGLES  AT  RR  READ,  FOR  DOWNLINK. 

24,3333 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

612 

24,3334 

3 0034 

0 

DCA 

C DU  Y 

REF 

? A 1 

LAST 

M 7 

24, 3335 

52  161 

a 

DXCH 

MPAC  +4 

MPAC'S  7 WORDS  ARE  BUFFER  FOR  COPYCYCLE. 

REF 

12 

LAST 

612 

24, 3336 

3 0032 

0 

CA 

CDUX 

REF 

262 

LAST 

617 

24,3337 

54  162 

0 

TS 

MPAC  +6 

IMUCDU  ANGLES  AT  RR  READ,  FOR  DOWNLINK. 

REF 

150 

LAST 

616 

24, 3340 

0 46  16 

l 

R 29  RANGE 

TC 

BANKCALL 

REF 

3 

LAST 

58  1 

24,3341 

53105 

0 

CADR 

RRP  ANGE 

INITIATE  READING  OF  RR  RANGE. 

R FF 

1 5 1 

1 AST 

617 

24, 3342 

0 46  16 

1 

TC 

BANKCALL 

REF 

12 

LAST 

6 1 6 

24, 3343 

17667 

0 

CADR 

R APSTALL 

GO  TO  SLEEP  UNTIL  IT'S  READY. 

REF 

1 

24,3344 

1 33  63 

0 

TCF 

R 29 RRP? 

BAD  READ  OR  SCALE  CHANGE  ...  WHICH? 

24, 3345 

0 0004 

0 

INHINT 

REF 

6 

LAST 

566 

24, 3346 

53' 334 

0 

DXCH 

DNRR ANGE 

COPYCYCLE  TO  LAY  OUT  NEW  R29  DOWNLINK. 

REF 

6 

L AST 

604 

24, 3347 

53' 755 

0 

DXCH 

RM 

RFF 

263 

LAST 

617 

24,3350 

52  155 

1 

DXCH 

MPAC 

REF 

8 

LAST 

604 

24, 3351 

53' 753 

0 

DXCH 

MKT  I ME 

RE-F 

264 

-LAST 

617 

24,3352 

52  157 

0 

DXCH 

MPAC  +2 

RFF 

12 

LAST 

60  1 

24, 3353 

53' 751 

1 

DXCH 

TANGNB 

REF 

265 

LAST 

6 17 

24, 3354 

52  161 

0 

DXCH 

MPAC  +4 

REF 

10 

LAST 

60  3 

24, 3355 

53' 456 

0 

DXCH 

A IG 

REF 

266 

LAST 

617 

24,3356 

3 0162 

1 

CA 

MPAC  +6 

REF 

6 

LAST 

590 

24, 3357 

55 1 457 

1 

TS 

A CG 

RFF 

77 

LAST 

6 11 

24,3  360 

3 4753 

1 

CA 

ONE 

REF 

4 

LAST 

329 

24, 3361 

55 ' 460 

0 

TS 

TPKMKCNT 

SHOW  THAT  DOWNLINK  DATA  IS  CONSISTENT. 

REF 

98 

LAST 

61  5 

24,3362 

1 5155 

1 

TCF 

E ND  OF  JOB 

REF 

16 

LAST 

582 

24,3363 

4 0101 

0 

R29RRR? 

CS 

FLAG  WRD5 

REF 

39 

LAST 

615 

24, 3364 

7 4742 

0 

MASK 

BIT10 

RFF- 

2C9 

LAST 

616 

24,  33-65 

10  000 

a 

CCS 

A 

WAS  IT  A SCALE  CHANGE  (REAL  OR  PHONY)? 

REF 

4 

LAST 

616 

24, 3366 

1 33  72 

0 

TCF 

ENDPRD29 

NO,  A BAD  READ;  REDESIGNATE. 

REF 

47 

LAST 

580 

24,3367 

0 5516 

0 

TC 

DOWN  FLAG 

REF 

3 

-LASIL 

_58  0 . 

24,3  370 

00120 

l 

ADRES 

RNGSCFLG 

REF 

1 

24, 3371 

1 3340 

l 

TCF 

R29P  ANGE 

YES;  CLEAR  FLAG  AND  READ  AGAIN. 

RFF 

126 

LAST 

60  3 

24, 3372 

3 4755 

1 

ENDRRD29 

CA 

ZERO 

TROUBLE  MADE  US  COME  HERE  TO  LEAVE  THF 

REF 

5 

LAST 

6 1 7 

24, 3373 

55 ' 460 

0 

TS 

TPKMKCNT 

RR-RFADING  MODE.  DISCREDIT  DOWNTEL. 

REF 

48 

LAST 

617 

24, 3374 

0 5516 

0 

TC 

DOWNFLAG 

RE-F- 

1 - 

24, 3375 

00063 

1 

ADRES 

RFADRFLG 

REF 

62 

LAST 

61  3 

24,3376 

4 4736 

0 

CS 

BIT14 

24, 3377 

0 0006 

1 

EXTEND 
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4005 
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REF  42  LAST  615  24,3400  03  012  1 WAND  CHAN12  REMOVE  TRACK-ENABLE  DISCRETE. 

REF  99  LAST  61  7 24,3401  1 5155  1 TCF  E NDOF JOB 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12=011 

L P20-P25 

P4007  W—  MATRIX  MONITOR 


4008 

4009 

4010 

REF 

1 

1 

31,2011 
31, 2000 
31,2011 

BANK  31 

SETLOC  VB67 
BANK 

COUNT*  if/FXTVE 

40115 

REF 

3 

LAST 

332 

E4, 1604 

EB ANK= 

• WWPOS 

4012 

REF 

56 

LAST 

608 

31,2011 

0 6036 

1 

V67C ALL 

TC 

I NT P RET 

4013 

31,2012 

77624 

1 

CALL 

4014 

REF 

1 

3 1 , 2 0 1 3 

62114 

1 

V 6 7 W to  . 

4015 

31,2014 

77776 

1 

EX  IT 

4015  1 

31,2015 

0 0006 

1 

EXTEND 

40  1 5 2 

REF 

4 

LAST 

619 

31,2016 

3 1 605 

0 

DC  A 

WtoPO  S 

40153 

REF 

2 

LAST 

33  2 

31,2017 

53*611 

1 

DXCH 

WtoVEL  +2 

40154 

31, 2020 

0 0006 

1 

EXTEND 

40155 

REF 

3 

LAST 

6 123 

31,2021 

3 1607 

1 

DC  A 

WtoVEL 

4015  6 

REF 

4 

LAST 

619 

31, 2022 

53' 613 

0 

DXCH 

to  to  V E L +4 

4016 

REF 

1 

31,2023 

3 2171 

1 

V06N99DS 

CAF 

V06N99 

40  17 

REF 

1 52 

LAST 

617 

31,2024 

0 46  16 

1 

TC 

B ANKCALL 

4018 

REF 

4 

LAST 

310 

31, 2025 

20231 

0 

CADR 

GOXDSPFR 

4019 

REF 

33 

LAST 

500 

31,2026 

1 5472 

1 

TCF 

ENDEXT 

4020 

31,2027 

l 2034 

0 

TC  F 

*•5 

4021 

REF 

1 

31,2030 

1 2023 

0 

TCF 

V06N99DS 

4022 

REF 

31 

LAST 

580 

31,2031 

3 4751 

0 

CAF 

B I T 3 

4023 

REF 

9 

LAST 

50  1 

3 1 , 2032 

1 

TC 

BLANKET 

4024 

RFF 

100 

LAST 

6 1 8 

31, 2033 

0 5155 

0 

TC 

ENDOFJOB 

40245 

31, 2034 

22  007 

0 

+ 5 

ZL 

4025 

REE 

20 

-LAST 

6 12 

31,2  035 

3 62  44 

0 

CA 

THP  EE 

4025  1 

REF 

1 76 

LAST 

61  1 

31,2036 

54  002 

1 

N99  LOOP 

TS 

Q 

40252 

REF 

177 

LAST 

619 

31, 2037 

50  002 

0 

INDEX 

0 

40253 

R FF 

5 

LAST 

6 19 

31, 2040 

4 1604 

0 

CS 

WWPOS 

402535 

REF 

178 

LAST 

619 

31,2041 

50  002 

0 

INDEX 

3 

40254 

REF 

6 

LAST 

619 

31,2042 

6 1610 

1 

AD 

WWPOS  +4 

402545 

REF 

88 

LAST 

5 8 0- 

31,2043 

26  001 

1 

ADS 

1 

40255 

REF 

179 

LAST 

619 

31,2044 

10  002 

1 

CCS 

Q 

402555 

REF 

1 

31,2045 

1 2036 

1 

TCF 

N99L  OOP 

4025  6 

REF 

210 

LAST 

617 

3 1, 2046 

22  000 

1 

LXCH 

A 

40257 

31, 2047 

0 0006 

1 

EXTEND 

40258 

REF 

1 

31,2050 

1 2053 

1 

BZF 

V06N9933 

4026 

REF 

28 

LAST 

56  9 

31,2051 

0 5504 

0 

TC 

UPFL  AG 

4027 

REF 

1 

31,2052 

00160 

0 

ACRES 

V 67F LAG 

402  8 

R EF 

57 

LAST 

619 

31 ,2053 

0 60  36 

1 

V06M993  3 

TC 

I NT  P R FT 

4029 

31,2054 

77414 

0 

BON 

EXIT 

4030 

REF 

2 

LAST 

619 

31,2055 

03707 

1 

Vf  7F  LAG 

4031 

31,2056 

62060 

0 

+ 2 

4032 

REF 

34 

LAST 

619 

31,2057 

l 5472 

1 

TCF 

ENDE  XT 

4033 

31,2060 

41345 

0 

DLOAD 

DMP 
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SAVE  THE  PRESENT  N99  VALUES  FOR 
COMPARISON  AFTER  THE  DISPLAY 


THE  SUM  OF  ALL  DIFFERENCES  MUST  BE  7FR0 
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4034 

4035 

REF 

REF 

7 

1 

LAST 

619 

31.2061 

31.2062 
1 , p 063 

02205 

22170 

72412 

1 

1 

0 

SL4 

WWPOS 
1/S0RT3 
S LI 

4037 

31,2064 

14001 

0 

STODL 

OD 

4038 

REF 

5 

LAST 

619 

31,2065 

02207 

0 

WWVFL 

31,2  066 

77605 

1 

DMP 

4040 

REF 

2 

LAST 

620 

31,2067 

22170 

1 

1/S0RT3 

4041 

31,2070 

00003 

1 

STORF 

2D 

31,2071 

72014 

1 

BON 

LXA,  1 

4043 

REF 

11 

LAST 

595 

31,2072 

04307 

1 

SURF  FLAG 

4044 

REF 

1 

31,2073 

62103 

1 

V67SURF 

^ 1 f ? 0 74 

00000 

L 

OD  _ 

4046 

31,2075 

72130 

0 

SX A , 1 

LXA,  1 

4047 

REF 

3 

LAST 

595 

31,2076 

02000 

0 

WRENDPOS 

^ 1 t ? Oil 

00007 

0 

2D 

4049 

31,2100 

52130 

1 

SXA,  1 

GOTO 

4050 

REF 

2 

LAST 

59  5 

31, 2101 

02001 

1 

WP ENDVEL 

R f F 

1 

31 , 2 10  2 

62111 

l 

V67C LRF 

4052 

31,2103 

661  50 

0 

V67SURF 

LX  A , 1 

SXA,  1 

4053 

31, 2104 

00000 

1 

OD 

4054 

REF 

2 

| AST 

S9  5 

31,2105 

07006 

0 

WSURFPOS 

4055 

31,2  106 

661  50 

0 

LXA  , 1 

SXA,  1 

4056 

31,2107 

00002 

0 

2D 

4057 

REF 

2 

LAST 

595 

31,2110 

02007 

1 

WSUP  F VFL 

4058 

31,2111 

77414 

0 

V67CLRF 

CLEAR 

EXIT 

4059 

REF 

9 

LAST 

595 

3 1,2  112 

02676 

1 

RENDWFLG 

40^0 

R FF 

3-5 

1 AST 

619 

3 1,21 13 

1 5472 

1 

TCF 

ENDEXT 

4061 

31,2114 

40020 

1 

V67WW 

STQ 

BOV 

4062 

REF 

5 

LAST 

393 

31,2115 

00051 

0 

S2 

4063 

^1,2116 

62117 

1 

+ 1 

4064 

31,2117 

45014 

0 

CLEAR 

CALL 

4065 

REF 

3 

LAST 

619 

31, 2120 

03667 

0 

V 6 7 f LAG 

4064 

R E F 

1 7 

EAST 

59  4 

^ 1 f ? ] p J 

774  1 7 

o 

I NT  S TALE 

4067 

31, 2122 

71331 

0 

SSP 

DLOA  D 

4068 

REF 

6 

LAST 

398 

31,2  123 

00051 

0 

SI 

4069 

31, 2124 

00006 

1 

DEC 

6 

4070 

REF 

6 

LAST 

592 

31,2125 

06424 

0 

Z EROVECS 

4071 

REF 

8 

LAST 

62  0 

31,2  126 

02205 

1 

STORE 

WWPOS 

40  72 

REF 

6 

LAST 

62  0 

31,2  127 

022  07 

0 

STORF 

WWVE  L 

4073 

31,2130 

77770 

1 

AXT  , l 

40  74 

31,2131 

00066 

1 

DEC 

54 

4075 

31, 2132 

47573 

0 

NXPOSVEL 

VLOAD* 

VSQ 

40  76 

REF 

15 

LAST 

595 

31,2133 

02467 

0 

W +540,1 

4077 

31, 2134 

77615 

0 

DAD 

4078 

REF 

9 

LAST 

62  0 

31,2135 

022  05 

1 

WWPOS 

4079 

REF 

10 

LAST 

620 

31,2136 

02205 

1 

STORE 

WWPOS 

4080 

31,2137 

47573 

0 

VLOAD* 

VSQ 

4081 

REF 

16 

LAST 

62  0- 

31 , 2140 

07555 

o 

4082 

31,2141 

77615 

0 

DAD 

4083 

REF 

7 

LAST 

620 

31,2 142 

02207 

0 

WWVE  L 

GAP: 

L 

40  84 

40  85 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4104 

4105 
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REF 

8 

LAST 

620 

31,2143 

02207 

0 

STORE 

WkVF  L 

31,2144 

75500 

0 

T I X , 1 

SORT 

3 1 1 2 1^5 

A2  1 32 

o 

MXPOSVEL 

REF 

9 

LAST 

62  1 

31,2 146 

16207 

0 

STODL 

WWVE  L 

REF 

11 

LAST 

620 

31,2 147 

02205 

1 

WWPOS 

31,2150 

77766 

0 

SORT 

REF 

12 

LAST 

62  1 

31, 2151 

02205 

1 

STORE 

WWPOS 

31,2152 

52000 

0 

BOV 

GOTO 

31, 2 153 

62155 

1 

+ 2 

REF 

1 

31,2154 

62161 

0 

V67X  XX 

31, 2 155 

77745 

1 

DLOAO 

REF 

4 

X AS  T 

39  1 

31,2156 

06432 

X 

DPPPSMAX 

REF 

13 

LAST 

62  1 

31,2157 

02205 

1 

STORF 

WWPO  S 

REF 

10 

LAST 

62  1 

31,2160 

02207 

0 

STORE 

VfWVEL 

31,2161 

66150 

0 

V67XXX 

LX  A , 1 

S X A , 1 

REF 

6 

LAST 

620 

31 , 2 162 

00051 

0 

S 2 

REF 

2 

LAST 

312 

31, 2 163 

00052 

0 

QPPFT 

31,2 164 

77776 

1 

EXIT 

REF 

38 

LAST 

574 

31 ,2 165 

0 4635 

0 

TC 

POST  JUMP 

REF 

2 

LAST 

3 1 2 

31,2166 

27427 

0 

cadr 

INTWAKE 

31,2167 

22363 

1 

1/S0RT3 

2DEC 

0.5773502 

31,2170 

11620 

0 

31.2171 

01543 

1 

V06N99 

VN 

0699 
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P4106 

4107 


25,3607 


4108 

4109 

4110 

REF 

REF 

3 

3 

LA5U 

LAST 

3 0 -O  £_>t-<!L-UUU 

25,3607 
566  TO  572: 

209 

212* 

411005 

REF 

38 

LAST 

616 

E7, 1454 

4110  1 

REF 

78 

LAST 

-6  I T 

25, 3607 

— 3- 

4753 

-4- 

41102 

REF 

26 

LAST 

535 

25,3610 

7 

1303 

1 

41103 

REF 

211 

LAST 

6 19 

25,  3611 

10 

000 

0 

A 1 1 04 

n cc 

2 5,3  612 

1_ 

4707 

-1 — 

Hi  iUH 

41105 

rv  c r 

REF 

1 

25,3613 

0 

36  30 

1 

a i i n a 

DCC 

2 

L AST 

6 2 2 

25,3614 

o 

3625 

-0 

*+  1 1UO 

41107 

IVtrF — 

REF 

2 

LAST 

62  2 

25, 3615 

1 

4707 

1 

/,  11  1 

DPP 

OK 

L AST 

58-3 

25, 3616 

3 

47  53 

Hiii 

4112 

k t r 
REF 

-J  J 

27 

LAST 

622 

25,3617 

7 

1303 

1 

4113 

REF 

2 12 

LAST 

622 

25,3620 

10 

i 000 

0 

41-14 — 

REF 

180 

LAST 

619 

2 5,3621 

- -0 

0002 

0 

4115 

REF 

26 

LAST 

56  8 

25, 3622 

4 

4747 

0 

41  16 

REF 

2 8 

LAST 

57  1 

25,3623 

6 

0061 

-0 

4117 

REF 

2 13 

LAST 

622 

25, 3624 

1C 

l 000 

0 

4118 

REF 

79 

LAST 

622 

25, 3625 

4 

4753 

0 

BANK  25 
SETLOC  RAD/LRURT 
BANK 

COUNT  * $ $/R  RUPT 


EB ANK=  LOSCOUNT 


ONE 


A12LITES  CA 

MASK  I MOD  ES 33 

CCS  A 

TCF LSMRETRN-  _ 

TC  HLIGHT 

TC  - HLIGHT-  -3 

TCF  ISWRETRN 


RAOLITES  CA  BIT1 

MASK  I MOD  ES33 

CCS  A 

TX 0 


cs 

-AD— 

CCS 

CS 


B I T 5 
IT  EM  PL 
A 

ONE 


4119 

4120 

RFF 

REF 

— 1— 

1 

25.3626 

25.3627 

1 36  64 
1 4570 

0 

ICE 

TCF 

V LIGHT- 
RPTR  KF 

4121 

REF 

4 

LAST 

273 

25,3630 

54  065 

0 

HLIGHT 

TS 

ITEMP5 

ZERO  I TEMP 5 FOR  H INDEX 

C A 

H L I T E 

4123 

REF 

89 

LAST 

619 

25, 3632 

54  001 

1 

TS 

L 

r 7 O 

0107 

1 

C A 

pi  r, w r n 1 1 

4125 

REF 

3 

LAST 

570 

25,3634 

7 4751 

1 

MASK 

SCABBIT 

4126 

REF 

214 

LAST 

622 

25,3635 

10  000 

0 

CCS 

A 

4127 

REF 

1 

25,3636 

1 3656 

0 

TCF 

ONL I TES 

4128 

REF 

27 

LAST 

622 

25,3637 

3 4747 

1 

CA 

BIT5 

4129 

REF 

112 

LAST 

6 16 

25, 3640 

7 01  10 

0 

BOTHL ITS 

MASK 

R ADMODES 

4130 

REF 

2 15 

LAST 

622 

25, 3641 

10  000 

0 

CCS 

A 

4131 

REF 

2 

LAST 

622 

25,3642 

1 3656 

0 

TCF 

ONL I TES 

41  35 

R EF 

9 

LAST 

6 2 2 

25, 3643 

3 0 107 

1 

PA 

FI  f,V  RDl  1 

4136 

REF 

5 

LAST 

622 

25, 3644 

50  065 

1 

INDEX 

ITEMP5 

4137 

REF 

1 

25, 3645 

7 4753 

0 

MASK 

HFLSHBIT 

413  8 

REF 

2 16 

LAST 

62  2 

25,3646 

1 0 000 

0 

CCS 

A 

4139 

REF 

2 

LAST 

622 

25, 3647 

1 4570 

0 

TCF 

RRTR  KF 

GAP 
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USER'S  PAGE  NO.  120  E7  S3 


4140 

25, 3650 

0 0006 

1 

LITIT 

EXTEND 

4141 

REF 

3 

LAST 

195 

25, 3651 

22  066 

1 

QXCH 

ITEMP6 

2 

L T 

STS 

2 5,  3652 

0 4602 

1 

TC  _ 

TPKFLON  +1 

4143 

25,3653 

0 0006 

1 

EXTEND 

R F f 

4 

1 AST 

62  3 

25, 3654 

22  066 

1 

QXCH. 

I TEMP6 

4145 

REF 

3 

LAST 

622 

25,3655 

1 45  70 

0 

TC  F 

RRTR  KF 

4146 

REF 

6 

LAST 

622 

25, 3656 

50  065 

l 

0NL1TES 

INDEX 

ITEMP5 

4147 

REF 

2 

LAST 

622 

25,3657 

4 4753 

0 

cs 

HFLSHBIT 

414ft 

REF 

1 0 

| AST 

62  2 

25 9 3660 

7 0107 

0 

MASK 

FLGWRD11 

4149 

REF 

11 

LAST 

623 

25, 3661 

54  107 

0 

TS 

FLGWRD11 

LAST 

^>2  2 

2 S f TA6  ? 

T 0001 

n 

CA 

L 

4155 

REF 

l 

25,3663 

1 3650 

6 

TC  F 

LITIT 

4156 

REF 

7 

LAST 

62  3 

25, 3664 

54  065 

0 

VLIGHT 

TS 

ITEMP5 

4]  57 

RFF 

1 

- 2 5r  3 665 

3 4751 

0 

CA 

VLITE 

4158 

REF 

91 

LAST 

623 

25, 3666 

54  001 

1 

TS 

L 

4159 

REF 

27 

LAST 

567 

25,3667 

3 4744 

1 

CA 

BITS 

41  60 

REF 

1 

25, 3670 

l 3640 

1 

TCF 

BCTHLITS 

4-1  6 ] 

RFF 

?ft 

[ AST 

6 2? 

_ .4747 

HI  I TF 

FQUAI  S 

B I T 5 

416? 

REF 

32 

LAST 

619 

4751 

VLITE 

EQUALS 

BIT3 

***  END  OF  LEMP20S  .114*** 
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L 

P0023 

R0024 

R0025 

R0026 

R0027 

R0028 

R0029 

R0030 

R0031 

R0032 

R0033 

R0034 

R00  35 

R 0036 
R0037 

R0038 


0038  1 

00382 

00383 

00384 

0039 

0040 

0041 
0041  1 
00412 


0042 

0043 

0051 

0052 

0057 

0058 

0059 

0060 
0061 

0067 
00675 

0068 
0069 


P 30  ,P  37 

PROGRAM  DESCRIPTION  P30  DATE  3-6-67 

MOD  . 1 BY  RAMA  A I Y A WAR- 
FUNCTIONAL  DESCRIPTION 

ACCEPT  ASTRONAUT  INPUTS  OF  TIG,  DELV ( LV ) 

C A L L -1-MO — ST-AT  U-S  -C  HECK  ROUTINE  (R02) 

DISPLAY  TIME  TO  GO,  APOGEE,  PERIGEE,  DELV(MAG),  MGA  AT  IGN 
REQUEST  BURN  PROGRAM 


USER' S PAGE  NO.  1 EO  S3 


CALLING  SEQUENCE  VIA  JOB  FROM  V 37 
EXIT  VIA  V 37  CALL  CR  -TO  &OTOPOOH  (V34E) 

SUBROUTINE  C ALLS- FL AGUP , PHASCHNG,  BANKCALL , ENDOFJOB,  G3FLASH,  GOFLASHR 
G0PERF3R-,-  INTPRET , BLANKET,  GOTOPOOH,  R02B0TEL,  S30.1, 
TTG/N35,  MIDGIM,  DISPMGA 


ERASAELE  INITIALIZATION-  STATE  VECTOR 


OUTPUT- 

RINITt 
HPF R T 

VIN  IT 

TTO^n 

, +MGA , VTIG,  RTIG 

f 

DELV  SIN, 

DELV  SAB 

, DEL  VSL V , 

HAPO, 

DEER  IS- 

A f L » 

MPAC  , 

PUSHL l ST 

REF 

1 

32,2772 

35,2000 

?non 

BANK 

SETLOC 

RANK 

32 

P 3 0 S 

REF 

2 

LAST 

329 

E 4, 1656 

EBANK= 

+ MGA 

REF 

l 

COUNT  * 

$ $ / P 30 

REF 

29 

LAST 

619 

35, 2000 

0 5504 

0 

P30 

TC 

UPFL AG 

SET 

UPDATE  FLAG 

REF 

3 

LAST 

50  7 

35, 2001 

00027 

I 

ADRES 

UPDATFl G 

REF 

30 

LAST 

624 

35, 2002 

0 5504 

0 

TC 

UPFL  AG 

SET 

TRACK  FLAG 

REF  4 LAST  —514  35,2003—  00031  0 ADRES  TRACKFLG 


REF 

1 

35,2004 

3 

2025 

1 P30N33 

CAF 

V06N33 

T OF  IGN 

-R  E-F 

— 1 — 

— 35,2  005 

0 

3651 

0 

TP 

VNPG-OR 

RETURNS  ON  PROCEED,  POOH  ON  TERMINATE 

REF 

1 

35,2006 

3 

3666 

1 

CAF 

V06N 81 

DISPLAY  DELTA  V (LV) 

REF  -2—  LAST 62-4 3-5^2007  -0  3651  0 TC  VNPQOH  REDISPLAY  ON  RECYCLE 


REF 

49 

LAST 

617 

35,2010 

0 5516 

0 

TC 

DOWNFLAG 

RESET  UPDATE  FLAG 

REF 

— 4- 

-LAST 

-62  4 

35,2011 

00027 

1 

ADRES 

UPDATFLG 

REF 

58 

LAST 

619 

35,2012 

0 6036 

1 

TC 

INTPRET 

35,2013 

77624 

1 

CALL 

REF 

1 

35,2014 

70000 

0 

S 30  • 1 

35,2015 

77414 

0 

SET 

EXIT 

REF 

5 

LAST 

62  4 

35,2016 

00470 

1 

UPDATFLG 

-REF_ 

L_ 

33,2017 

3 2026 

1 PAR AM30 

CAF 

V06N42 

DISPLAY  APOGEE, PERIGEE  .DELTA  V 

REF 

3 

LAST 

624 

35,2020 

0 3651 

0 

TC 

VNPOCH 
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P30 

» P 37 

USER  ' 

S PAGE  NO. 

2 

E4  S3 

0070 

REF 

59  LAST  624 

35,2021 

0 6036 

1 

TC 

I NTPPET 

0071 

35, 2022 

77614 

1 

SETGO 

Qn  17 

R FF 

1 

35,2023 

01027 

Q 

XDEL  VFLG 

FOR  P40 ’ S : 

EXTERNAL 

DELTA-V 

GUIDANCE 

0073 

REF 

1 

35, 2024 

72504 

0 

RE VN 1645 

TRKMKCNT , 

TGO , +MGA 

DISPLAY 

n 144] 

l 

\/n^N  3 3 

VN 

0 63  3 

0102 

35,2026 

01452 

0 

V06N42 

VN 

064? 

< 
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L P30.P37 

P0105  PROGRAM  DESCRIPTION  S30. 1 DATE  9NQV66 


R0106 
R0107 
R0108 
R0109 
R01 10 
R0111 
R0112 
R0113 
R011A 
R0115 
R0116 
R01 17 
R0118 
R01 19 
RO  120 
R0121 
R0122 
RO  1 23 


19:02  NOV.  -25,1968  LEMP30S  .102  PAGE- 
USER'S  CAGE  NO.  3 E A S3 


MCD  NC  1 LOG  SECTION  P30.P37 

MOD  BY  RAMA  AIYAWAR  ** 

FUNCTIONAL  DESCRIPTION 

BASED  ON  STOR-ED  TARGET  PARAMETERSIR  OF  I GN1TI0NLRT  I G ) ,V  OF 
IGNITION(VTIG) .TIME  OF  IGNITION  (T l G ) ) , COM  PUT F PERIGEE  ALTITUDE 
APOGEE  ALTITUDE  AND  DELTAV  REQUI RED ( DELVSI N » . 

CALLING  SECUENCE 
L CALL 
L + l 

NORMAL  E> 

AT  L ^ 

SUBFOLTII 


S30.1 

EX-TT— MODE 

.+2  OR  CALLING  SEQUENCE  (GOTO  L+2) 
[NES  CALLED 


ALARM  OR 
ERASABLE 


LEM PR  EC 
PER  I APO 

ABORT  EXIT  MODES 
N GNC  — 

INITIALIZATION  REQUIRED 
TIG  TIME  OF  IGNITION 


DP 


B28CS 


R0125 
R0126 
R01  27 

OL  T PU  T 

COORDS.  OF  ACTIVE 
T IME  OF  IGNITION 

VEHICLE 

VECTOR 

AT 
B + 7 

METERS/CS 

R0128 

RTIG 

POSITION  AT  TIG 

VECTOR 

B + 29 

METERS 

R0129 

VTIG 

VELOCITY  AT  TIG 

VECTOR 

B + 29 

METERS/CS 

R01  30 

P CL  40 

APOGEE  ALTITUDE 

DP 

B + 29 

M . 

8+27  METERS. 

R0130  1 

HAPO 

APOGEE  ALTITUDE 

OP 

B + 29 

METFRS 

R0131 

P CL  8D 

PERIGEE  ALTITUDE 

DP 

B + 29 

M , 

B+27  METERS. 

R 0 1 M 1 

MPFR 

PFRIAfF  A 1 T T Tl  inF 

np 

MFTFRS 

RO  1 32 

DEL  VS  IN  SPECIFIED  DELTA-V 

IN  INERTIAL 

R0133 

COORO.  OF  ACTIVE  VEHICLE  AT 

pm  34 

T IMF  OF  ir.MITinW 

VFf  TOR 

B+7 

METFPS/CS 

R0135 

DELVSAB  MAG.  OF  DELVSIN 

VECTOR 

B+7 

MFTERS/CS 

R0136 

DEBRIS  QTEMP 

TEMP.  ERASABLE 

R0137 

QPR  FT  . MPAf. 

R0138 

PUSFL  1ST 

m 3q 

REF  I 

34„ ? 000 

01  AO 

3A, 2000 

J L 1 LUI, 

BANK 

0141 

— r_£  F 1 — 

r r 

S / R ^0^ 

01  A2 

3A.2000  71220 

1 S30.1 

STQ 

DLOAD 

01  A3 

REF  1 

3 A , 2 00 1 03630 

1 

QTEMP 

01 AA 

REF  9 LAST 

505  3A.2002  03AA0 

1 

TIG 

TIME  IGNITION 

SCALED  AT 

01A5 

REF  20  LAST 

599  3 A , 2 003  3A0A1 

0 

ST  CALL 

T DEC  1 

01 A6 

RDF  -3  LAST- 

222  3A.200A  27057 

0 

LEMPREC 

ENCKE  ROUTINE 

FOR  LEM 

626 


0 1 A 7 


3A, 2005 


67175  0 


VLOAD  S X A , 2 


GAP: 
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01471 

REF 

10 

LAST 

599 

34, 2006 

00001  0 

RATT 

0148 

REF 

2 

LAST 

152 

34,2007 

03376  0 

RTX2 

—1-54— 

74  t 2 0 1 0 

03640  0 

STORF 

R T I G 

RADIUS  VECTOR  AT  IGNITION  TIME 

0150 

0153 

34,2011 

57456  1 

UNIT 

VCOMP 

01  54 

REF 

2 

LAST 

157 

34,2012 

27654  0 

STOVL 

DELVSIN 

ZRF/LV  IN  DELVSIN  SCALED  AT  2 

LAST 

S Q 9 

74t  2013 

00007  0 

VATT 

VFIOCITV  VECTOR  AT  TIG,  SCALED  2(7)  M/CS 

0156 

REF 

2 

LAST 

157 

34,2014 

03646  0 

STORE 

VTIG 

0158 

34, 2015 

53435  0 

VXV 

UNIT 

R PF 

3 

1 AST 

67  7 

34f  2016 

03640  0 

RTIG 

0160 

34,2017 

66001  0 

SETPD 

SXA , 1 

0161 

34,2020 

00001  0 

0 

0161 1 

REF 

1 

34,2021 

03375  0 

RTX1 

0162 

34,2022 

47206  0 

PUSH 

VXV 

YRF/LV  POL  0 SCALED  AT  2 

0163 

REF 

3 

LAST 

627 

34,2023 

03654  0 

DEI VSIN 

0 1 64 

34, 2024 

63372  1 

VSL1 

PDVL 

0165 

34, 2025 

63315  0 

POVL 

PDVL 

YRF/LV  POL  6 SCALED  AT  2 

0166 

REF 

4 

LAST 

627 

34,2026 

03654  0 

DELVSIN 

ZRF/LV  PDL  1 2D  SCALED  AT  2 

0167 

RFF 

2 

LAST 

213 

34,  2 02  7 

03432  1 

DELVSLV 

0168 

34,2030 

76505  0 

VXM 

VSL1 

0169 

34, 2031 

00001  0 

0 

0170 

R FF 

5 

LAST 

627 

34 1 203? 

03654  0 

STORE 

DELV  SIN 

DELTAV  IN  INERT.  COOR.  SCALED  TO  B+7M/CS 

0172 

34,2033 

77646  0 

ABVAL 

0173 

REF 

2 

LAST 

157 

34, 2034 

27662  0 

STOVL 

DELVSAB 

DELTA  V MAG. 

0174 

REF 

A 

LAST 

62  7 

34, 2035 

03640  0 

RTIG 

(FOR  PERIAPO) 

0175 

34, 2036 

53315  0 

PDVL 

V AO 

VREQUIRED  = VTIG  + DELVSIN  (FOR  PERIAPO) 

0176 

REF 

3 

LAST 

627 

34, 2037 

03646  0 

VTIG 

01  77 

REF 

6 

L AST 

627 

34, 2040 

03654  0 

DELVSIN 

01771 

34,2041 

77624  1 

CALL 

0178 

REF 

i 

34, 2042 

46277  1 

PERI AP01 

0178  1 

34,2-043 

77624  1 

CALL 

01782 

REF 

i 

34, 2044 

46407  0 

SHIFTR1 

RESCALE  IF  NEEOED 

017822 

34,2045 

77624  1 

CALL 

LIMIT  DISPLAY  TO  9999.9  N.  MI. 

017824 

REF 

i 

34,2046  - 

45636  0 

MAXCHK 

01  783 

REF 

2 

LAST 

329 

34,2047 

16325  1 

STOOL 

H PE  R 

PERIGEE  ALT  2(29)  METERS,  FOR  DISPLAY 

01784 

34, 2050 

00005  1 

40 

01785 

3 4 , 205 1 

77624  1 

CALL 

01  786 

REF 

2 

LAST 

62  7 

34,2052 

46407  0 

SHIFTR1 

RESCALE  IF  MEFOED 

01787 

34,2053 

77624  1 

CALL 

LIMIT  DISPLAY  TO  9999.9  N.  MI. 

01788 

REF 

2 

LAST 

627 

34,2054 

45636  0 

MAXCHK 

0179 

REF 

4 

LAST 

32  9 

34,2055 

36323  0 

STCALL 

HAPO 

APOGEE  ALT  2(29)  METERS,  FOR  DISPLAY 

0180 

REF 

2 

LAST 

626 

34,2056 

03630  1 

QTEMP 

GAP: 

L 

P0010 

ROOll 

R0012 

R0013 

R0014 

R0015 

R0016 

R0017 

R0018 

R0019 

R0020 
R0021 
R 0 022 

R0023 

R0024 


R0025 

R0026 

R0027 

R0028 

R00285 

R0029 

R0030 

R0031 

R0032 

R0033 

R0034 

R0035 

R0036 

R0037 

R0038 

R00385 

R0039 

R0040 

R0041 

R0042 

R0043 
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CCELLIPTIC  SEQUENCE  INITIATION  (CSI)  PROGRAMS  ( P32  AND  P72) 

MOD  NC  -I  L-OG  SECTION  - P32-P35,  P72-P75 

MOD  BY  WHITE. P DATE  1JUNE67 


PURPOSE 

(1)  TO  CALCULATE  PARAMETERS  ASSOCIATED  WITH  THE  FOLLOWING 

CONCENTRIC  FLIGHT  PLAN  MANEUVERS  - THE  CO-ELLIPTXC  SEQUENCE 
INITIATION  (CSI)  MANEUVER  AND  THE  CONSTANT  DELTA  ALTITUDE 
(CDH)  MANEUVER. 


(2)  TO  CALCULATE  THESE  PARAMETERS  BASED  UPON  MANEUVER  DATA 
APPROVEC  AND  KEYED  INTO  THE  DSKY  BY  THE  ASTRONAUT. 


(3)  TO  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  DEPENDENT  VARIABLES 
ASSOCIATED  WITH  THE  CONCENTRIC  FLIGNT  PLAN  MANEUVERS  FOR 
APPROVAL  BY  THE  ASTRONAUT/GROUNJX. — 


(4)  TO  STORE  THE  CSI  TARGET  PARAMETERS  FOR  USE  BY  THE  DESIRED 
THRUSTING  PROGRAM. 


ASSUMPTIONS 


(1)  AT  A SELECTED  TPI  TIME  THE  LINE  OF  SIGHT  BETWEEN  THE  ACTIVE 
AND  PASSIVE  VEHICLES  IS  SELECTED  TO  BE  A PRESCRIBED  ANGLE  (E) 
FROM  THE  HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE 
POSITION. 

(2)  THE  TIME  8ETWEEN  CSI  IGNITION  AND  CDH  I GN I TION  -MUS  T BE 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES  FOR  SUCCESSFUL 
COMPLETION  OF  THE  PROGRAM. 

(3)  THE  TIME  BETWEEN  CDH  IGNITION  AND  TPI  IGNITION  MUST  BE 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES  FOR  SUCCESSFUL 
COMPLETION  OF  THE  PROGRAM. 

(4)  CDH  DELTA  V IS  SELECTED  TO  MINIMIZE  THE  VARIATION  OF  THE 
ALTITUDE  DIFFERENCE  BETWEEN  THE  ORBITS. 


(5)  CSI  BURN  IS  DEFINED  SUCH  THAT  THE  IMPULSIVE  DELTA  V IS  IN  THE 
HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  POSITION  AT  CSI 
IGNITION. 

(6)  THE  PER  I CENTER-  ALTITUDE  OF  THE  ORBIT  FOLLOWING  CSI  AND  CDH 
MUST  BE  GREATER  THAN  35,000  FT  (LUNAR  ORBIT)  OP  85  NM  (FARTH 
ORBIT)  FOR  SUCCESSFUL  COMPLETION  OF  THIS  PROGRAM. 

(7)  THE  CSI  AND  CDH  MANEUVERS  ARE  ORIGINALLY  ASSUMED  TO  BE 
PARALLEL  TO  THE  PLANE  OF  THE  CSM  ORBIT.  HOWFVFR  CREW 
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L 

P32-P35, 

P72-P75 

USER'S  PAGE  NO. 

2 

EO  S3 

R0044 

R0045 

MODIFICATION  OF  DELTA  V (LV)  COMPONENTS  MAY  RESULT  IN  AN 
CUT-OF-PLANE  CS  I MANEUVER. 

R 0046 
R0047 

(8) 

STATE  VECTOR  UPDATES  BY  P27  ARE  DISALLOWED  DURING  AUTOMATIC 
STATE  VECTOR  UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  10). 

R0048 
R0049 
POO  50 

(9  ) 

COMPUTED  VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY 
THE  GROUND.  THESE  STORAGF  CAPABILITIES  ARE  NORMALLY  LIMITED 
ON LY  TO  THE  PARAMETERS  FOR  ONE  THRUSTING  MANEUVER  AT  A TIME 

R0051  EXCEPT  FOR  CONCENTRIC  FLIGHT  PLAN  MANEUVER  SEQUENCES. 

ROO 52  110)  THE  RENDEZVOUS  RADAR  MAY  OR  MAY  NOT  BE  USED  TO  UPDATE  THE  CM 

R0053  OR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM.  IF  RADAR  USE  IS 

R0054  DESIRED  THE  RADAR  WAS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 

R0055  PREVIOUS  SELECTION  OF  P20.  RADAR  SIGHTING  MARKS  WILL  BE  MADE 

R0056  AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 

P 005 7 TRACK  AND  UPDATE  FLAGS  (SEE  P20).  THE  RENDEZVOUS  TRACKING 

R0058  MARK  COUNTER  IS -ZEROED  BYTHE  SELECTION  OF  P20  ANIL  AFTER  EACH 

R0059  THRUSTING  MANEUVER. 

R0060  (11)  THE  ISS  NEED  NOT  BE  ON  TO  COMPLETE  THIS  PROGRAM. 

R0061  112)  THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 


R0062  ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 

ROO 63  DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 

R0064  CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 

R0065  EACH  RENDEZVOUS  PRE-THRUST  I NG  PROGRAM. 

R0066  FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 

R0067  COMPLETED  THE  FINAL  MANEUVER  COMPUTATION  AND  DISPLAY 

R0068  CYCLE. 


R0069  EXTERNAL  DELTA  V STEERING  FLAG  - DESIGNATES  THE  TYPE  OF 

R 0070  STEERING  REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE 


ROO  71 

THRUSTING  PROGRAM  SFIFCTFD  AFTFR  COMPIFTION  OF  THIS 

ROO  72 
ROO  73 

( 13  ) 

PROGRAM. 

IT  IS  NORMALLY  REQUIRED 

THAT  THE  ISS  BE  ON  FOR  1 HOUR  PRIOR 

R0074 

R0075 

R0076 

( 14  ) 

A THRUSTING  MANEUVER. 
THIS  PROGRAM  IS  SELECTED 
P32  IF  THIS  VEHICLE 

BY  THE  ASTRONAUT BY  DSKY  ENTRY  - 

IS  ACTIVE  VEHICLE. 

R0077 

R0110 

INPUT — 

P72  IF  THIS  VEHICLE 

IS  PASSIVE  VEHICLE. 

R01  11 

( 1 ) 

TCSI  TIME  OF  THE  CSI 

MANEUVER 
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NUMBER  OF  APSIDAL  CROSSINGS  THRU  WHICH  THE  ACTIVE 

VEHICLE  ORBIT  CAN  BE  ADVANCED  TO  OBTAIN  THE  CDH 

MANEUVER  POINT 

DESIRED  LOS  ANGLE  AT  TPI 

TIME  OF  THE  TPI  MANEUVER 


R0131  (1)  TRKMKCNT  NUMBER  OF  MARKS 

R 0 1 32  (2)  TTOGO  TIME  TO  GO 

R0133  (3)  +MCA  MIDDLE  GIMBAL  ANGLE 

RO 1 3 A (A)  DIFFALT  DELTA  ALTITUDE  AT  CDH 

RO 135  (5)  T1T0T2  DELTA  TIME  FROM  CS.I  XQ  CDH 

RO 1 36  (6)  12TOT3  DELTA  TIME  FROM  CDH  TO  TPI 

R0137  (7)  DELVLVC  DELTA  VELOCITY  AT  CSI  - LOCAL  VERTICAL  COORDINATES 

RO  1 38  (8)  CELVLVC  DELTA  VELOCITY  AT  CDH  - LOCAL  VERTICAL  COORDINATES 


R 0 1 39  DOWNLINK 


R01 12 
R0113 

(2  ) 

NN 

R01 1A 
R01 15 

(3  ) 

ELEV 

R01 16 

(A) 

TTPI 

RO  1 30 

OUTPUT 

R01391 

RO 1 392 

R01393 

R0139A 

R01395 

R 01-39  6 

R01397 

R01398 

RO 1399 

ROIAO 

RO 1 AO  1 


TIME  OF  THE  CSI  MANEUVER 
TIME  OF  THE  CDH  MANEUVER 
T-I-M&  OF  THE-TPI  MANEUVER 
TIME  OF  THE  CSI  MANEUVER 
CELVEET 1 DELTA  VELOCITY  AT  CSI  - REFERENCE  COORDINATES 
C EL V EE T 2 DELIA  VELOCITY  AT  CDH  - REFERENCE  COORDINATES- 
DIFFALT  DELTA  ALTITUDE  AT  CDH 


( 1 ) TC  S I 
12)  TCDH 
(3)  TTPI 
(A)  TIG 
(5  ) 

(6) 

(7  ) 

(8) 


NN  NUMBER  OF  APSIDAL  CROSSINGS  THRU  WHICH  THE  ACTIVE 

VEHICLE  ORBIT  CAN  BE  ADVANCED  TO  OBTAIN  THE  CDH 
MANEUVER  POINT 

(9)  ELEV  DESIRED  LOS  ANGLE  AT  TPI 


R01A02  COMMUNICATION  TO  THRUSTING  PROGRAMS 

RO  1 AO  3 (1)  TIG  — W-ME  OF  THE  CSI  MANEUVER 

ROIAO  A (2)  RTIG  POSITION  OF  ACTIVE  VEHICLE  AT  CSI  - BEFORE  ROTATION 

RO 1 AO  5 INTO  PLANE  OF  PASSIVE  VEHICLE 

ROIAO  6 (3)  VT-IG  VELOCITY  OF  ACTIVE  VEHICLE  AT  CSE  - BEFORE  TROT  ATI  ON 

R 01  AO 7 INTO  PLANE  OF  PASSIVE  VEHICLE 

R01A08  (A)  DELVSIN  DELTA  VELOCITY  AT  CSI  - REFERENCE  COORDINATES 

R01A09  (5)  BELVSAB  MAGNITUDE  OF  DELTA  VELOCITY  AT  CSI 

R01A1  (6)  XDELVFLG  SET  TO  INDICATE  EXTERNAL  DELTA  V VG  COMPUTATION 

R0150  SUBROUTINES  USED — 

R0151  AVFLAGA 

RO 1 52  AVFLAGP- 

R01525  P20FLG0N 

RO 1 53  VARALARM 

RO 1 5 A BANKCALL 

R0155  COFLASH 

R0156  GOTOPOOH 
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R01562 
RO 1 56  4 
o rj  1 ^ 7 

VNPOC'H 
GOFLASHR 
RL ANKET 

R0158 

R0159 

DAI  AO 

ENDOFJOB 
SELECTMU 
ADV ANf F 

KUIOU 

R0161 
RO 162 
RO 163 

MU  V M f’lv  L 

INTINT 
PASSIVE 
CS  I / A 

RO  1 64 
R 0 1 6 5 
RO  166 

S32/33.1 
01 SDVL VC 
VN 1645 

0400 

0401 

REF 

1 

35 1 2 02 7 
35,2000 

BANK 

SETLOC 

35 

CSI/CDH 

0402 

35,2027 

BANK 

0403 

REF 

1 

E7, 1466 

EB ANK= 

SUBEXIT 

0404 

REF 

1 

COUNT* 

$ $/ P 3272 

0500 

REF 

1 

35,2027 

0 2313  1 

P 3? 

TC 

AVFL  AGA 

0502 

REF 

1 

35,2030 

0 2032  1 

TC 

P 32  S TP  T 

0503 

REF 

1 

35,203  1 

0 2320  1 

P72 

TC 

AVFL AGP 

050305 

35,2032 

0 0006  1 

P 32 STRT 

EXTEND 

0503C6 

REF 

1 

35,2033 

3 2364  1 

DC  A 

P30ZFRO 

050307 

REF 

3 

LAST 

32  9 

35, 2034 

53*617  1 

DXCH 

C ENT ANG 

0503  1 

REF 

i 

35,2035 

0 2053  0 

TC 

P32Z P72A 

05032 

35,2036 

77734  1 

ALMXITA 

SXA , 2 

0503  3 

R FF 

2 

LAST 

156 

3 5, 2 037 

03611  1 

CSI ALRM 

05034 

35,2040 

77740  1 

ALMXIT 

LXC  , 1 

05035 

REF 

3 

LAST 

63  1 

35,2041 

03611  1 

C S I A LRM 

05038 

35, 2042 

77533  1 

SLOAD* 

EXIT 

05039 

REF 

1 

35, 2043 

32367  1 

ALARM/TB  -1,1 

0504 

REF 

267 

LAST 

61  7 

35,2044 

3 0154  1 

CA 

MPAC 

0504  1 

RFF 

3 

LAST 

40  1 

35,2045 

0 5735  0 

TC 

VARA  LARM 

05042 

REF 

1 

35,2046 

3 5006  1 

CAF 

V05N09 

05043 

REF 

153 

LAST 

619 

35,2047 

0 4616  1 

TC 

BANKCALL 

05044 

REF 

8_ 

LAST 

505 

_ 35,2050 

20351  1 

C4DR 

GCFl  ASH 

05045 

REF 

9 

LAST 

505 

35,2051 

0 6001  0 

TC 

GOTO  POOH 

05046 

35, 2052 

0 2046  1 

TC 

-4 

0505 

REF 

1- 

35,2053 

0 2325  1 

P32/P72A 

TC 

P2  OF LGON 

0505  1 

REF 

2 

LAST 

63  1 

35,2054 

3 2363  0 

CAF 

P30  Z ERO 

0506 

REF 

3 

LAST 

329 

35, 2055 

55' 465  0 

TS 

NN  + 1 

0507 

REF 

1 

33,2056 

3 _23  54  1 

CAF 

V06N  11 

TCS  I 

0508 

REF 

4 

LAST 

624 

35,2057 

0 3651  0 

TC 

VNPOCH 

0509 

REF 

1 

35, 2060 

3 3663  1 

CAF 

V 0 6 N 5 5 

NN,  ELEV(RGLOS) 

0510 

REF 

1 54 

LAST 

63  1 

35,2061 

0 4616  1 

TC 

BANK  CALL 

0511 

REF 

9 

LAST 

63  1 

35, 2062 

20351  1 

CADR 

GOFL ASH 

0512 

REF 

10 

LAST 

63  1 

35,2063 

0 6001  0 

TC 

GOTO  POOH 

0513 

35,2064 

0 2066  0 

TC 

+ 2 

0514 

35,2065 

0 2060  0 

TC 

-5 

0518 

REF 

1 

35,2066 

3 3662  0 

CAF 

V06N37 

TTP  I 

I 
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0519 

REF 

5 

LAST 

631 

35, 2067 

0 3651 

0 

TC 

VNPOOH 

0520 

REF 

60 

LAST 

62  5 

35,2070 

0 6036 

1 

TC 

INTPRET 

3Sf  ? 071 

77745 

-A- 

DLOAD 

0522 

REF 

4 

LAST 

320 

3 5 » 2072 

03632 

0 

TCS  I 

0523 

REF 

10 

LAST 

626 

35,2073 

37440 

0 

STCALL 

TIG 

P EF 

l 

35,2074 

20041 

0 

SELECTMU  _ . 

0525 

35, 2075 

77624 

1 

P32/P72B 

CALL 

0526 

REF 

1 

35,2076 

7)016 

0 

ADVANCE 

35,2  077 

77201 

1 

SETPD 

VLOAD 

0528 

35,2100 

00001 

0 

OD 

0529 

REF 

3 

LAST 

159 

35,2101 

03504 

0 

VPA  SSI 

3 5^210? 

65  T 1 5 

0 

PDVL 

PDDL 

0531 

REF 

2 

LAST 

156 

35, 2 103 

03476 

1 

R PAS  SI 

0532 

REF 

5 

LAST 

632 

35,2104 

036  32 

0 

TCS  I 

35, ? 1 05 

65325 

0 

POOL 

PDDL 

0534 

REF 

4 

LAST 

32  1 

35,2106 

03634 

0 

TTP  I 

0535 

REF 

1 

35,2107 

33671 

1 

TWOPI 

3 5,-2110 

45006 

0- 

PUSH 

CALL 

0537 

REF 

1 

35,2111 

73422 

1 

I NT  I NT 

0538 

35,2112 

77624 

1 

CALL 

0539 

R FF 

1 

35, 2 1 13 

46373 

1 

PASSIVE 

0540 

35, 2 114 

77624 

1 

CALL 

0541 

REF 

1 

35, 2 115 

70113 

0 

CSI/A 

0 54? 

35,2116 

43014 

0 

P32/P72C 

BON 

SET 

0543 

REF 

1 

35,2117 

01311 

0 

FIMA  LFLG 

0544 

REF 

1 

35,2120 

72  122 

0 

P32/P72D 

0545 

REF 

6 

LAST 

62  4 

35, 2121 

00470 

1 

UPDA  TFLG 

0546 

35,2  122 

77745 

1 

P32/P72D 

□ LOAD 

0547 

REF 

4 

LAST 

331 

35,2123 

022  57 

0 

T1T0T2 

0 548 

REF 

5 

1 AST 

63?  - 

35, 2124 

022  57 

o 

P32 /P72E 

STORE 

T 1T0T2 

0549 

35, 2125 

51025 

1 

DSU 

B PL 

0550 

REF 

i 

35,2  126 

32366 

0 

60MI  N 

0551 

REF 

— 1— 

35,  2 127 

72124 

0 

P32/P72E 

0552 

35,2130 

77745 

1 

DLOAD 

0553 

REF 

2 

LAST 

331 

35, 2131 

02261 

0 

T2TOT3 

0554 

REF 

3 

LAST 

63  2 

35 ,2132 

02261 

o 

P32 /P72F 

STORE 

T2TC  T3 

0555 

35,2133 

51025 

1 

DSU 

B PL 

0556 

REF 

2 

LAST 

632 

35, 2134 

32366 

0 

6 OMI  N 

0557 

-REF 

— 1 

35,2135 

72132 

1 

P32/ P72F 

0558 

35,2136 

77776 

1 

EXIT 

0559 

REF 

1 

35,2137 

3 2356 

0 

CAF 

V06N75 

0560 

REF 

6_ 

LAST 

632 

35,2140 

0 3651 

0 

TC 

VNPOOH 

0561 

REF 

61 

LAST 

632 

35,2141 

0 6036 

1 

TC 

INTPRET 

0562 

35,2  142 

45175 

0 

VLOAD 

CALL 

0563 

REF 

3 

LAST 

21  3 

35,2143 

02273 

0 

DEL VEET1 

0566 

REF 

1 

35,2 144 

71100 

0 

S 32  / 33. 1 

0567 

REF 

4 

LAST 

632 

35,2 145 

26273 

0 

STOVL 

DEL VEET1 

05671 

REF 

— 2— 

LAST 

133 

35, 2 146 

02315 

1 

PACT? 

05672 

REF 

2 

LAST 

133 

35,2147 

26307 

1 

STOVL 

RACT  1 

0568 

REF 

3 

LAST 

21  3 

35,2  150 

02301 

1 

DEL VEET2 
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05  6 9 

35,2151 

651  70 

0 

AXT  , 1 

CALL 

05691 

35,2  152 

01522 

0 

VN 

0682 

^ , , „ 

77^34 

0 

0 I SO  VL  VC 

0573 

35,2156 

77765 

1 

DLOAD 

0573  1 

REF 

5 LAST  632 

35,2155 

03636 

0 

T TP  I 

REF 

1 

^ 5 * ? 1 56 

37636 

0 

STCALL 

TTPIO 

0576 

REF 

1 

35, 2157 

73562 

0 

VN1665 

0575 

35,2 160 

77650 

1 

GOTO 

0576 

REF 

-1- 

35,2 161 

72075 

0 

P32/ P72B 

GAP  : 

L 

P1010 

R 10 1 1 
R1012 
R 1 01  3 

R1014 
R 101  5 

R 1016 
R1017 


R 10 1 8 
R 10  19 
R 1020 

R1021 
R 1022 


R1023 

R 1024 
R 1025 
R1026 

R 1027 
R 1028 
R1029 
R 1 030 

R 1031 
R 10  32 


R1033 
R 1034 


R1035 
R 1036 

R1037 

R1038 

R 10  38  5 

R1039 
R 1040 
R 1041 

P 1042 
R 1 043 
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CONSTANT 

DELTA  HEIGHT  (CDH)  PROGRAMS  (P33  AND  P73) 

MOD  BY  WHITE. P DATE  1JUNE67 
PURPOSE 

( 1 ) 

TO  CALCULATE  PARAMETERS  ASSOCIATED  WITH  THE  CONSTANT  DELTA 
ALTITUDE  MANEUVER  (CDH). 

(2  ) 

TO  CALCULATE  THESE  PARAMETERS  BASED  UPON  MANEUVER  DATA 
APPROVED  AND  KEYED  INTO  THE  DSKY  BY  THE  ASTRONAUT. 

(3  ) 

TO  OISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  DEPENDENT  VARIABLES 
ASSOCIATED  WITH  THE  CDH  MANEUVER  FOR  APPROVAL  BY  THE 
ASTRONAUT/GROUND. 

(4) 

TO  STORE  THE  CDH  TARGET  PARAMETERS  FOR  USE  BY  THE  DESIRED 
THRUST  TNG  PROGRAM. 

ASSUMPTIONS 

( 1 ) 

THIS  PROGRAM  IS  BASED  UPON  PREVIOUS  COMPLETION  OF  THE 
CO-ELLIPTIC  SEQUENCE  INITIATION  (CSI)  PROGRAM  (P32/P72). 
THERFORE  - 

(A)  AT  A SELECTED  TPI  TIME  (NCW  IN  STORAGE)  THE  LINE  OF  SIGHT 
BETWEEN  THE  ACTIVE  AND  PASSIVE  VEHICLES  WAS  SELECTED  TO  BE 
A PRESCRIBED  ANGLE  (E)  (NOW  IN  STORAGE)  FROM  T HF 
HORIZONTAL  PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  POSITION. 


(B)  THE  TIME  BETWEEN  CSI  IGNITION  AND  CDH  IGNITION  WAS 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES. 


(C)  THE  TIME  BETWEEN  CDH  IGNITION  AND  TPI  IGNITION  WAS 
COMPUTED  TO  BE  GREATER  THAN  10  MINUTES. 


(D)  THE  VARIATION  OF  THE  ALTITUDE  DIFFERENCE  BETWEEN  THE 
ORBITS  WAS  MINMIZED. 


(E)  CSI  BURN  WAS  DEFINED  SUCH  THAT  THE  IMPULSIVE  DELTA  V WAS 
IN  THE  HORIZONTAL  PLANE  DEFINED  BY  ACTIVE  VEHICLE 

POSITION  AT  CSI  IGNITION. 

(F)  THE  PERICENTER  ALTITUDES  OF  THE  ORBITS  FOLLOWING  CSI  AND 
CDH  WERE  COMPUTED  TO  BE  GREATER  THAN  35,000  FT  FOR  LUNAR 
ORBIT  OR  85  NM  FOR  EARTH  ORBIT. 

(G)  THE  CSI  AND  CDH  MANEUVERS  WERE  ASSUMED  TO  BE  PARALLEL  TO 
THE  PLANE  OF  THE  PASSIVE  VEHICLE  ORBIT.  HOWEVER,  CREW 


I 
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R 1044 
R 1 045 

MODIFICATION  OF  DELTA  V (LV)  COMPONENTS  MAY  HAVE  RESULTED 
IN  AN  OUT-OF-PLANE  MANEUVER. 

R 1 046 
R 1047 

(2)  STATE  VECTOR  UPDATES  BY  P27  ARE  DISALLOWED  DURING  AUTOMATIC 
STATE  VECTOR  UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  A). 

R 1048 
R l 049 
RIO  50 
R 10  5 1 

(3)  COMPUTED  VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY 
THE  GROUND.  THESE  STORAGE  CAPABI L ITES  ARE  NORMALLY  LIMITFO 
CNLY  TO  THE  PARAMETERS  FOR  ORE  THRUSTING  MANEUVER  AT  A TIME 
EXCEPT  FOR  CONCENTRIC  FLIGHT  PLAN  MANEUVER  SEQUENCES. 

R 1052 
R 1053 
R 1 054 
R 1055 
R1056 
R 1 0 57 
R1058 
R 10  59 

(4 ) THE  RENDEZVOUS  RADAR  MAY  OR  MAY  NOT  BE  USED  -TO-  UPDATE  THE  LM 
CR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM.  IF  RADAR  USE  IS 
DESIRED  THE  RADAR  WAS  TURNEO  ON  AND  LOCKED  ON  THE  CSM  BY 
PREVIOUS  SELECTION  OF  P20.  RADAR  SIGHTING  MARKS  WILL  BE  MADE 
AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THF 
TRACK  AND  UPDATE  FLAGS  (SEE  P20).  THE  RENDEZVOUS  TRACKING 
MARK  COUNTER  IS  ZEROED  BY.IHE  SELECTION  OF.  P20  AND  AFTER  EACH 
THRUSTING  MANEUVER. 

R 1060 

(5)  THE  ISS  NEED  NOT  BE  QN  TO  COMPLETE  THIS  PROGRAM. 

R1061 

(6)  THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THF  FOLLOWING  FLAGS  - 

R 1062 
R 106  3 
R 1064 
R1065 

ACTIVE  VEGICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 
EACH  RENDEZVOUS  PRE-THRUSTING  PROGRAM. 

R 1066 
R 1067 
R 1 068 

FINAL  FLAG  - SELECTS  -F I NAL  PROGRAM  DISPLAYS  AFTER-  CREW  HAS 
COMPLETED  THE  FINAL  MANEUVER  COMPUTATION  AND  DISPLAY 
CYCLE. 

R 1069 
R 1070 
R 1071 
R 1 072 

EXTERNAL  DELTA  V STEERING  FLAG  - DESIGNATES  THE  TYPE  OF 
STEERING  REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE 
THRUSTING  P-ROGRAM  SELECTED  AFTER.  COMPLETION  OF  THIS 
PROGRAM. 

R1073 
R 1074 

(7)  IT  IS  NORMALLY  REQUIRED  THAT-  THE  ISS  BE  ON  FOR  1 HOUR  PRIOR  TO 
A THRUSTING  MANEUVER. 

R 107  5 

(8)  THIS  PROGRAM  I S- SEL  ECTED- BY  -THE  ASTR0NAUT-8Y  DSKY  ENTRY  - 

R 10  76 

P33  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE. 

R1077 

P73  IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE. 

RU10 

INPUT 

R 1 1 1 1 

(1)  TTPIO  TIME  OF  THE  TPI  MANEUVER  - SAVED  FROM  P32 /P72 
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rU12  (2)  ELEV  DESIRED  LOS  ANGLE  AT  TPI  - SAVED  FROM  P32/P72 

RH13  (3)  TCDH  TIME  OF  THE  CDH  MANEUVER 


R 1 1 30  OUTPUT 


R 1 1 31 
R1 132 
R 1 1 33 
R1 134 
R 1 1 35 
R 1136 
R 1 137 


(1)  TRKMKCNT 

(2)  TTOGO 

(3)  +MGA 

(4)  Cl  FFALT- 

(5)  12T0T3 

(6)  NOMTPI 

(7)  DE  L VLV C — 


NUMBER  OF  MARKS 

TIME  TO  GO 

MIDDLE  GIMBAL  ANGLE 

DELTA  ALTITUDE  AT  CDH 

DELTA  TIME  FROM  CDH  TO  COMPUTED  TPI 

DELTA  TIME  FROM  NOMINAL  TPI  TO  COMPUTED  TPI 

DELTA  VELOCITY  AT  CDH  -LOCAL  VERTICAL  COORDINATES 


R1139  DCkNLINK 


R 1 1 39 1 m TCDH  TIME  OF  THE  CDH  MANEUVER 

R 1 1 39 2 (2)  TTPI  TIME  OF  THE  TPI  MANEUVER 

R 1 1 39  3 (31  TIG  — TIME  OF  THE  CDH  MANEUVER 

R 1 1 39 4 (4)  CELVEET2  DELTA  VELOCITY  AT  CDH  - REFERENCE  COORDINATES 

R 1 1 39 5 (5)  DIFFALT  DELTA  ALTITUDE  AT  CDH 

R 1 1 39 6 (6)  ELEV  — DESIRED  LOS  ANGLE  AT  TPI 

R 1 1402  CCMMUN  ICATION  TO  THRUSTING  PROGRAMS 


R 1140  3 (1)  TIG  TIME  OF  THE  CDH  MANEUVER 

R 11 40  4 (2)  PTIG  POSITION  OF  ACTIVE  VEHICLE  AT  CDH  - BEFORE  ROTATION 

R 1 1 40  5 INTO  PLANE  OF  PASSIVE  VEHICLE 

R 1 1 40 6 (3)  VTIG  VELOCITY  OF  ACTIVE  VEHICLE  AT-  CDH  - BEFORE  ROTATION 

INTO  PLANE  OF  PASSIVE  VEHICLE 

DELTA  VELOCITY  AT  CDH  - REFERENCE  COORDINATES 
MAGNITUDE  OF  DELTA  VELOCITY  AT  CDH 
SET  TO  INDICATE  EXTERNAL  DELTA  V VG  COMPUTATION 

R 1 1 50  SUBROUTINES  USED 


R 1 140  7 

R 1 1 40  8 

(4) 

DELVSIN 

R 1 LAO  9 

(5) 

DELVSAB 

R1141 

(6) 

XDELVFLG 

R 1 1 51 
R 1 1 52 
R 1 1 52  5 
R 1 1 53 
R 1 1 54 
R1155 
R 1 1 56 
R 1 1 57 
R 1 1 58 
R 1 1 59 
R 1 160 
R 1 1 6 1 
R 1 162 
R 1 1 6 3 
R 1 1 64 
R 1 1 66 


AVFLAGA 

AVFLAGP 

P20FLGON 

VNPOOH 

SELECTMU 

ADVANCE 

CDHMVR 

IN  T I NT 3 P 

ACTIVE 

PASSIVE 

S33/34. 1 

ALARM 

BANKCALL 

GOFLASH 

GOTOPOOH 

S32/33.1 


636 
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COUNT* 

$$/P  3373 

1500 

REF 

2 

LAST 

63  1 

35, 2 162 

0 2313 

1 

P 33  TC 

AVFL  AGA 

1502 

REF 

1 

35,2163 

0 2165 

1 

TC 

P33/ P73A 

P E F 

2 

L A^T 

A 3 1 

3St  ? 1 64 

0 2320 

1 

P73  TC 

AVFL  AGP 

1505 

REF 

2 

LAST 

63  1 

35, 2 165 

0 2325 

1 

P33/P73A  TC 

P20FLGON 

15051 

REF 

1 

35,2 166 

3 2355 

0 

CAF 

V06N13 

P EF 

7 

L t 

A 3 2 

3St  ? 1 67 

0 3651 

o 

TC 

VNPOOH 

1507 

REF 

62 

LAST 

632 

35,2170 

0 6036 

1 

TC 

INTPRET 

1508 

35,2 171 

77745 

1 

OLOAO 

1508  1 

REF 

2 

LAST 

63  3 

35, 2 172 

03636 

1 

TTP I 0 

15082 

REF 

6 

LAST 

633 

35,2  173 

17634 

0 

STOOL 

TTP  I 

1509 

REF 

4 

LAST 

320 

35,2174 

03374 

1 

TCOH 

15  10 

REF 

1 1 

LAST 

63  2 

- 35,  2 175 

37440 

0 

STCALL 

TIG 

1511 

REF 

2 

LAST 

632 

35,  2 176 

20041 

0 

SELF  CTMU 

1512 

35,2177 

77624 

1 

P33/P738  CALL 

1513 

REF 

2 

LAST 

632 

35,2200 

71016 

0 

ADVA  NCE 

1514 

35,2201 

77624 

1 

CALL 

1515 

REF 

i 

35, 2202 

71133 

0 

CDrIMVR 

1516 

35,2203 

77201 

1 

SETPD 

VL3AD 

1517 

35,2204 

00001 

0 

00 

1518 

REF 

2 

LAST 

156 

35,2205 

03542 

1 

V AC  T 3 

1519 

35, 2206 

45115 

0 

PD  VL 

CALL 

1520 

REF 

3 

LAST 

632 

35,2207 

02315 

1 

RACT2 

1521 

REF 

1 

35,2210 

71071 

1 

INTI NT3P 

1522 

35,2211 

77624 

1 

CALL 

1523 

REF 

1 

35,2212 

46363 

0 

ACTIVE 

1524 

35,2213 

77201 

1 

SETPO 

VLOAD 

1525 

35, 2214 

00001 

o 

OD 

1526 

REF 

2 

LAST 

156 

35,2215 

03526 

0 

VPASS2 

1527 

35,2216 

45115 

0 

PDVL 

CALL 

1528 

REF 

2 

LAST 

15  6 

35,2217 

03  520 

0 

R PAS  S2 

1529 

REF 

2 

LAST 

637 

35,2220 

71071 

1 

I NT  I NT3P 

1530 

35, 2221 

77624 

1 

CALL 

1531 

REF 

2 

L AST 

632 

35, 2222 

463  73 

1 

PASSIVE 

1532 

35,2223 

43145 

0 

DLOAD 

S FT 

1533 

REF 

3 

LAST 

63  1 

35,2224 

32  3 64 

1 

P30ZERO 

1534 

REF- 

1 

35,2225 

03460 

0 

I TSF.  ICH 

1535 

REF 

1 

35,2226 

36323 

0 

STCALL 

NOMT  PI 

1536 

REF 

1 

35, 2227 

72726 

1 

S 33/ 34. 1 

1537 

35,2230 

77454 

1 

BZE 

EXIT 

1538 

REF 

1 

35,2231 

72246 

1 

P33/P73C 

1539 

REF 

27 

LAST 

603 

35,2232 

0 5567 

0 

TC 

ALARM 

1540 

35,2233 

00611 

1 

OCT 

611 

1541 

REF 

2 

LAST 

63  1 

35,2234 

3 5006 

1 

CAF 

V05N09 

1542 

REF 

155 

LAST 

63  1 

35,2235 

0 4616 

1 

TC 

BANKCALL 

1543 

REF 

10— 

LAST 

631 

35,2236 

20351 

1 

CA  OR 

GOFL  ASH 

1544 

REF 

11 

LAST 

6 3 1 

35,2237 

0 6001 

0 

TC 

GOTO  POOH 

1545 

35,2240 

0 2242 

1 

TC 

+ 2 

TCOH 


63  7 


I 
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1546 

1547 

REF 

REF 

2 

63 

LAST 

LAST 

637 

637 

35.2241 

35.2242 
44,  R 743 

0 2165 
0 6036 
77745 

1 

1 

1 

TC 

TC 

DLOAD 

P 33 / P73A 
I NTPRET 

1549 

REF 

4 

LAST 

637 

35,2244 

32364 

1 

P30ZERO 

1550 

REF 

2 

LAST 

637 

35,2245 

02323 

1 

STORE 

NOMTPI 

35, 2246 

43014 

0 

P33/P73C 

BON 

SET 

1552 

REF 

2 

LAST 

632 

35,2247 

01311 

0 

F INA  LFLG 

1553 

REF 

1 

35,2250 

72252 

1 

P33/ P73D 

R FF 

7 

| ART 

6 3 2 

35,2251 

00470 

1 

UP DA TFLG 

1557 

35,2252 

43345 

1 

P33/P73D 

DLOAO 

DAD 

1558 

REF 

3 

LAST 

638 

35,2253 

02323 

1 

NCMT  PI 

7 

LAST 

A3  7 

35, 2254 

03634 

0 

TTPL 

1560 

REF 

8 

LAST 

638 

35,2255 

03634 

0 

STORE 

TTP I 

1561 

35,2256 

77625 

0 

DSU 

35,2257 

OH  3 74 

1 

TCDH 

1563 

35, 2260 

51025 

1 

P33/P73E 

DSU 

BPL 

1564 

REF 

3 

LAST 

632 

35,2261 

323  66 

0 

6 OM I N 

R F F 

3 5,  2 26? 

722  60 

o 

P33/ P73E 

1566 

35, 2263 

77615 

0 

DAD 

1567 

REF 

4 

LAST 

638 

35,2264 

32  3 66 

0 

6 OM  I N 

1 5 A ft 

RFF 

6 

LAST 

63  2 

35, 2 265 

162  57 

0 

STOOL 

T 1 T Q T2 

1569 

RFF 

9 

LAST 

638 

35,2266 

03634 

0 

TTP  I 

1570 

35,2267 

41425 

1 

DSU 

PUSH 

1571 

REF 

3 

LAST 

63  7 

35, 2270 

03636 

1 

TTP  I 0 

1572 

35,2271 

45246 

0 

P33/P73F 

ABS 

DSU 

1573 

REF 

5 

LAST 

638 

35,2272 

32366 

0 

60M I N 

1574 

35,2273 

43244 

1 

BPL 

DAD 

1575 

REF 

1 

35,2274 

72271 

0 

P33/ P73F 

15751 

REF 

6 

LAST 

638 

35,2275 

32366 

0 

60MI  N 

1 s 7 *3  3 

3ci,  2 27 A 

455  A5 

n 

ST  ON 

s TAD  P 

15755 

REF 

4 

LAST 

632 

35,2277 

75516 

1 

STORF 

T2T0T3 

15  76 

35,2300 

77776 

1 

EXIT 

1577 

R FF 

2 

1 AST 

A 3 2 

35,  2 301 

3 2 3 56 

o 

CAF 

VC6N  75 

1578 

REF 

8 

LAST 

63  7 

35,2302 

0 3651 

0 

TC 

VNPOOH 

1579 

REF 

64 

LAST 

63  8 

35,2303 

0 6036 

1 

TC 

INTPPET 

— 1580 

35,2304 

45175 

0 

VLOAD 

CALL 

1581 

REF 

4 

LAST 

632 

35,2305 

02301 

1 

DEL  V EET2 

15  84 

REF 

2 

LAST 

632 

35,2306 

71100 

0 

S32/33.1 

1585 

REF 

5 

LAST 

638 

35,2307 

36301 

0 

STC ALL 

DEL  V EET2 

15  89 

REF 

2 

LAST 

63  3 

35,2310 

73542 

0 

VN1645 

1590 

35, 2311 

77650 

1 

GOTO 

1591 

-REE- 

L - 

35,2312 

72177 

0 

P33/ P738 

GAP 
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P3800  AVFLAGA/P  .. 

R3850  SUBROUTINES  USED 

R3851  UPFLAG 

R3852  OCWNFLAG — 
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3900 

35,2313 

0 0006 

1 

AVFLAGA 

EXTEND 

AVFL  AG  = LEM 

3Qni 

R ff 

2 

1 ART 

3 1 

35, 2314 

23 ' 466 

1 

QXCH 

SUBEXIT 

3902 

REF 

31 

LAST 

624 

35, 2315 

0 5504 

0 

TC 

UPFL  AG 

3903 

REF 

1 

35,2316 

00050 

1 

ADRES 

AVFL  AG 

8QD4 

R FF 

3 

1 ART 

63  9 

35,2317 

0 1466 

1 

TC 

SUBE  XIT 

3905 

35,2320 

0 0006 

1 

AVFLAGP 

EXTEND 

AVFL AG  = CSM 

3906 

REF 

4 

LAST 

639 

35,2321 

23*466 

1 

OXCH 

SUBEXIT 

3907 

REF 

50 

LAST 

62  4 

35,2322 

0 5516 

(I 

TC 

DOWN  FLAG 

3908 

REF 

2 

LAST 

639 

35, 2323 

00050 

1 

ADRES 

AVFL AG 

3909 

REF 

5 

LAST 

639 

35, 2324 

0 1466 

1 

TC 

SUBEXIT 

1 

35, 2 325 

0 0006 

1 

P20FLG0N 

EXTEND 

39092 

REF 

6 

LAST 

639 

35,2326 

23*466 

1 

QXCH 

SUBE  XI T 

39093 

REF 

32 

LAST 

639 

35,2327 

0 5504 

0 

TC 

UPFL  AG 

8Q  10 

R PF 

8 

1 ART 

6 3 fl 

35,2330 

00027 

1 

ADRES 

LIPDA  TFLG 

SET  UP  DAT  F LG 

3910  1 

REF 

33 

LAST 

639 

35,2331 

0 5504 

0 

TC 

UPFL  AG 

39102 

REF 

5 

LAST 

624 

35, 2332 

00031 

0 

ADRES 

TP ACKFLG 

SET  TRACKFLG 

3911 

REF 

— 7- 

-LAST 

63  9 

35,2333 

0-1466 

-1- 

XC 

SUBEXIT 
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P4600  DISDVLVC 

R 4650  SUBROUTINES  USEO 


R4651  S32/33.X 

R4652  VNPOOH 


4700 

REF 

11 

LAST 

33  1 

35,2334 

03432 

1 

DISDVLVC  STORE 

DELV  LVC 

2 33s 

45020 

1 

STQ 

CALL 

4702 

REF 

1 

35,2336 

03461 

1 

NCRMEX 

47021 

REF 

1 

35,2337 

71120 

1 

S32/33.X 

2 341) 

64375 

1 

VLOAD _ 

MX  V 

47023 

REF 

12 

LAST 

640 

35,2341 

03432 

1 

D EL  V LVC 

47024 

35,2342 

00001 

0 

OD 

470  2 4 1 

35, 2343 

66172 

0 

VSL1 

SXA  , 1 

470243 

REF 

1 

35, 2344 

03613 

0 

VERB  NOUN 

47025 

RFF 

13 

LAST 

640 

35,2345 

03432 

1 

STORE 

DEL VLVC 

470?  6 

- 35  ,-2-346 

77776 

1 

EXIT 

4703 

REF 

2 

LAST 

640 

35,2347 

3 1613 

1 

CA 

VERB  NOUN 

4704 

REF 

9 

LAST 

63  8 

35,2350 

0 3651 

0 

TC 

VNPOOH 

4705 

-RE-F 

65 

LAST 

6 3 8 

35, 2 351 

0 6036 

1 

TC 

IN TP  RET 

4706 

35,2352 

77650 

1 

GOTO 

4707 

REF 

2 

LAST 

640 

35,2353 

03461 

1 

NORMEX 

GAP: 

L 

P4800 

4901 

4902 

4903 

4914 

4914 

4915 

4915 

4916 

4916 

4917 

4917 

4919 

4920 

4921 

4922 

4923 

4924 

4925 
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CONSTANTS  


35. 2354 

35.2355 

01413 

01415 

0 

0 

V06N11 

V06N13 

VN 

VN 

0611 

0613 

35,2356 

01513 

1 

V06N75 

VN 

0675 

35*  2 357 

77776 

1 

SN359+ 

2DEC- 

-.000086601 

35,2360 

62460 

1 

35, 2361 

17777 

0 

CS359+ 

20EC 

+.499999992 

3 5*  2 362 

37776 

0 

35,2363 

00000 

1 

P30  ZERO 

2 DEC 

0 

35, 2364 

00000 

.1 

35*  2 36  5 _ 

00  025 

0 

60M  IN 

2DEC 

360000 

35,2366 

37100 

1 

35, 2367 

00600 

1 

ALARM/TB 

OCT 

00600 

NO  1 

35*  2370 

00601 

0 

OCT 

0060  1 

2 

35,2371 

00602 

0 

OCT 

00602 

3 

35,2372 

00603 

1 

OCT 

00603 

4 

35,2373 

00604 

0 

OCT 

006  04 

5 

35,  2 374 

00605 

1 

OCT 

00605 

6 

35,2375 

00606 

1 

OCT 

00606 

7 

GAP  : 


P5000 

R 51 50 

R5152 
R 51  53 
R 51  54 
R 5 1 5 5 
R 51  56 
R5157 
R5158 
R 5 1 59 
R5160 

5400 

5401 

5402 

5403 

5404 
5413 

5413 

5414 

5414 

5415 

5415 

5416 

5416 

5417 

5417 
5416 

5418 

5419 

5419 

5420 

5420 

5421 

5421 

5422 

5422 

5423 

5423 

5424 

5424 

5425 

5425 

5426 
5426 

5500 

5501 

5502 
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CSI/A  

SLBROLTINES  USED 

VECSEI FT 
TIMETHET 
PERI  APO 
SHIFTR1 
INTINT2C 
CDHMVR 
PERI  AP01 
INTI  NT 
ACTIVE 


REF 

1 

34,2057 

34,2000 

BANK 

SFTLOC 

34 

CSI/CDH1 

34,2057 

BANK 

REF 

fl  FAST 

639  E7f 1 466 

EB  ANK=- 

SUB  F XIT 

REF 

i 

COUNT* 

t$/C SI 

34,2057 

00000 

1 

LOOPMX 

2DEC 

16 

34*  2 060 

00020 

0 

34, 2061 

00003 

1 

INI TST 

2DEC 

.03048  B-7 

INITIAL  DELOV  = 10  FPS 

34, 2062 

34661 

1 

34*  2 063 

00606 

1 

DVM AX  1 

2DEC 

3.0480  B-7 

MAXIMUM  DV1  = 1000  FPS 

34,2064 

04467 

0 

34, 2065 

00601 

0 

DVMAX2 

2DEC 

3.014472  8-7 

989  FPS 

34*2066 

33216 

1 

34, 2067 

10000 

0 

1DPB2 

2DEC 

1 .OB-2 

34,2070 

00000 

1 

34,2  071 

00000 

1 

1 DP  B7  a 

20EC 

1 

34, 2072 

00001 

0 

34, 2073 

00004 

0 

PMINE 

2DEC 

157420  B— 29 

85  NM  - MUST  BE  8 WORDS  BEFOPF  PM  I NM 

34, 2074 

31566 

o 

34, 2075 

00000 

1 

EPS  I LN 1 

2DEC 

.0003048  B-7 

.1  FPS 

34,2076 

01177 

1 

34*  7 077 

00002 

0 

U ICKFLDP 

2DEC 

.021336  B-7 

7 FPS  (CHANGED  FROM  .05  FPS) 

34,2100 

273  11 

1 

34,2 101 

77754 

1 

FIFPSDP 

2DEC 

-.152400  B-7 

50  FPS 

34*  7 107 

57fr  1 1 

o 

34,2103 

00000 

1 

PMI  NM 

2DEC 

10668  B— 29 

35000  FT  - MUST  BE  8 WORDS  AFTFP  PMINE 

34,2104 

12326 

0 

34,2105 

00116 

1 

-DELMAX1 

2DEC 

.6096000  B-7 

200  FPS 

34,2  106 

00730 

0 

34,2107 

00000 

1 

ONETHTH 

2DEC 

.0001  B-3 

34,2110 

06433 

0 

34, 2111 

00003 

1 

TMIN 

2DEC 

60000 

10  MIN 

34,2112 

25140 

0 

34, 2113 

43014 

0- 

CSI/A 

CLFAR 

SFT 

INITIALIZE  INDICATORS 

REF 

i 

34, 2114 

03260 

0 

S32 . 1F1 

DVT1  HAS  EXCEEDED  MAX  INDICATOR 

REF 

i 

34,2115 

03061 

0 

S 32 . IF? 

FIRST  PASS  FOR  NEWTON  ITERATION  INDICATR 

GAP 


ASSEMBLE  -REVIS  ION  069  OF  AGG  PROGRAM  E-UM I NARY  BY 


L 

P3  2- 

P35, 

P 72- 

P 75 

5503 

34,2116 

43014 

0 

5504 

REF 

1 

34,2117 

03262 

1 

R F F 

1 

34,  2 120 

03063 

1 

5506 

34,2121 

77745 

1 

5507 

REF 

5 

LAST 

638 

34,2122 

32364 

1 

Rqofl 

R FF 

3.4 , 2 1 2 3 

03604 

0 

5509 

REF 

4 

LAST 

63  1 

34, 2124 

03612 

1 

5510 

34, 2 125 

77201 

1 

cs 

S 1 1 

34, 2 126 

00001 

0 

5512 

REF 

3 

LAST 

632 

34,2 127 

02307 

1 

5513 

34,2130 

41446 

1 

5514 

34,2131 

70501  1 

5515 

RFF 

2 

LAST 

499 

34,2 132 

00050 

1 

5516 

34,2133 

515  15 

1 

5517 

REF 

1 

34, 2134 

03550 

1 

5518 

34,2135 

55301 

0 

5519 

REF 

5 

LAST 

597 

34, 2136 

00047 

1 

5520 ... 

34,2137 

53664 

0 

5521 

REF 

6 

LAST 

643 

34,2140 

00046 

0 

5522 

34, 2 141 

57175 

0 

5523 

34,2142 

41215 

1 

5524 

REF 

1 

34,2 143 

30070 

0 

5525 

34, 2144 

65301 

0 

5526 

RFF 

7 

last 

64  3 

34, 2 145 

00047 

1 

5527 

REF 

i 

34,  2 146 

02325 

1 

5528 

34, 2 147 

56342 

1 

55?9 

34t  2 1 60 

75457 

o 

5530 

34,2  15  l 

20172 

1 

5531 

34,2152 

53515 

0 

5532 

RFF 

4 

LAST 

64  3 

34,2  153 

0P307  1 

5533 

34, 2154 

47315 

0 

5534 

REF 

2 

LAST 

133 

34, 2155 

02265 

1 

5535 

34,2156 

77656 

1 

5536 

34,  2 157 

72441 

0 

5537 

REF 

2 

LAST 

159 

34,  2 160 

03470 

1 

5538 

34, 2161 

45421 

1 

5539 

REF 

3 

LAST 

156 

34, 2 162 

60205 

0 

5540 

REF 

1 

34,2163 

30062 

0 

5541 

REF 

4 

LAST 

157 

34,2164 

03610 

0 

5542 

34,2165 

43345 

1 

cs 

5543 

REF 

2 

LAST 

643 

34,2166 

03604 

0 

5544 

RFF 

1 

34,2167 

30072 

1 

5545 

REF 

3 

LAST 

643 

34,2170 

03604 

0 

5546 

34,2171 

77025 

0 

5547 

REF 

— 1 — 

34,  2 172 

30060 

1 

5548 

34,2173 

00006 

1 

5549 

34, 2174 

77644 

1 

5550 

REF 

1 

34, 2175 
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76371 

0 

TAD 

TAD 

TEMP1**2+RA3.RA3+RP3.RP3=TEMP2 

P L 080 

67  Afi 

34,2  523 

71244 

0 

BPL 

D10AD 

5769 

REF 

1 

34, 2524 

70542 

0 

K10PK2 

5770 

REF 

4 

LAST 

643 

34,2525 

03604 

0 

L OOP  CT 

57  71 

34f  2 526 

77025 

0 

DSU 

A XT  , 2 

5772 

REF 

2 

LAST 

643 

34,2527 

30072 

1 

1CPB28 

5773 

34,2530 

00001 

0 

ID 

34^  2 531 

77654 

n 

B7  E 

5775 

REF 

1 

34,2532 

72036 

1 

A LMX  ITA 

5776 

34,2533 

70545 

1 

DLOAD 

SRI 

S7  77 

R £ f 

5 

LAST 

64  3 

34,  2 534 

03610 

o 

DELDV 

5778 

REF 

6 

LAST 

648 

34,2535 

03610 

0 

STORE 

D ELD  V 

5779 

34,2536 

77621 

1 

BDSU 

5780 

REF 

1 

34,  2 537 

03  5 74 

1 

DVPREV 

5781 

REF 

8 

LAST 

64  4 

34, 2 540 

37572 

0 

STCALL 

DEL VCSI 

5782 

RFF 

1 

34,2541 

70165 

1 

CSI/B1 

5783 

34, 2542 

41566 

1 

K10RK2 

SORT 

PUSH 

TEMP3  = T EMP2** . 5 B29 

PL  1 OD 

5784 

34,  2 543 

45276 

0 

DCOMP 

DSU 

5785 

34,2544 

00007 

0 

06D 

-TEMP1-TEMP3  =K 2 AT  10D 

5786 

34,  2 54  5 

14013 

0 

STODL 

10D 

PL  080 

5787 

34,2546 

45425 

0 

DSU 

STADR 

PL06D 

5788 

34,  2 547 

77762 

1 

STORE 

1 2D 

-TEMPI +TEMP3  =K1  AT  12D 

578  9 

34, 2 550 

77646 

0 

ABS 

5790 

34, 2551 

14017 

1 

STODL 

14D 

5791 

34,2552 

00013 

0 

1 OD 

5792 

34,  2 55  3 

45246 

o 

ABS 

DSL) 

5793 

34,  2 554 

00017 

1 

1 4D 

5794 

34, 2 555 

71240 

1 

BMN 

DLOAD 

5795 

REF 

— 1— 

34,  2 556 

70561 

] 

K2  . 

5796 

34,2557 

00015 

0 

1 2D 

5797 

34,2560 

00013 

0 

STORE 

1 OD 

K = K 1 

5798 

-34,  2 561 

77745 

1 

K 2. 

DLOAD 

5799 

34, 2562 

00013 

0 

1 OD 

5800 

34,2563 

76561 

1 

vxsc 

VSL  1 

5801 

34, 2 564 

53455 

0 

VA  D 

UN  I T 

V = R A 3 + KU  UNIT  81 

5802 

RFF 

5 

LAST 

648 

34,2565 

03534 

0 

R ACT  3 

5803 

34, 2 566 

535  15 

0 

PDVL 

UNIT 

PL06D 

5804 

REF 

— A 

LAST 

-648 

34,2567 

03550 

1 

RPASS3 

5805 

34, 2570 

53515 

0 

PDVL 

UNIT 

PL12D 

5806 

REF 

1 

34, 2571 

03556 

1 

V PA  S S3 

GAP: 

L 

5807 

5808 

5809 

5810 

5811 

5812 

5813 

5814 

5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 

5834 

5835 

5836 

5837 

5838 

^839 

5840 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 
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P32- 

P35, 

, P72- 

P75 

USER' S PAGE  NO.  22  E7  S3 

34,2572 

63235 

0 

vxv 

PDVL 

UVP3  X URP3 

PL  180 

34, 2573 

00007 

0 

06D 

34, 2 574 

00007 

0 

060  . 

34,2575 

50235 

0 

vxv 

DOT 

34,2576 

00001 

0 

OOD 

34*  ? 577 

77626 

0 

STADJ?  - 

PL  12D 

34,2600 

53762 

1 

STOVL 

1 2D 

(URP3XV) . ( UVP3XURP3 )=TEMP 

PL060 

34,2601 

72441 

0 

DOT 

S LI 

PLOOD 

34*  ? 602 

75326 

1 

ARCCOS 

S IGN  _ 

34,2603 

00015 

0 

1 2D 

BO 

34, 2604 

41542 

1 

SRI 

PUSH 

GAMM4=S IGN ( TEMP ) ARCOS ( UNI TV.URP3 ) 

PL02D 

34,2  605 

71214 

0 

BON 

DLOAD 

RFF 

2 

LAST 

642 

34, 2606 

03301 

0 

S 32 . 1F2 

REF 

l 

34, 2607 

70644 

0 

FRSTPAS 

- 34,2610 

00001 

0 

OOD 

NOT  THE  FIRST  PASS  OF  A CYCLE 

34, 2611 

65225 

1 

OSU 

POOL 

GAMMA-GAMPREV  B1 

PL04D 

REF 

2 

LAST 

157 

34,2612 

03606 

1 

GAMPREV 

REF 

_9- 

LAST 

64  8 

34+2613 

03572 

1 

DELVCSI 

34,2614 

60225 

1 

DSU 

NORM 

R7 

REF 

2 

LAST 

648 

34, 2615 

03574 

1 

DVPPEV 

REF 

9 

LAST 

645 

34, 2616 

00047 

1 

XI 

34, 2617 

65265 

0 

BDDV 

PDDL 

(G4M-GAMPREV)/(DV-DVPREV)  8-6+N1 

PL06D 

34, 2620 

00003 

1 

02D 

= SLOPE 

REF 

10 

LAST 

64  9 

34, 262 1 

035  72 

1 

DELVCSI 

REF 

3 

LAST 

649 

34,2622 

03574 

1 

STORE 

DVPR  EV 

34,2623 

43014 

0 

BOFF 

BDFF 

REF 

3 

LAST 

644 

34,2624 

03342 

1 

S 32 . 1F3A 

REF 

1 

34, 2625 

70656 

0 

THRDCHK 

REF 

3 

LAST 

6 4 4 

34,2626 

03343 

0 

S 32 . 1 F3B 

RE^- 

— 2- 

LAS  T 

64  9 

34,2627 

70656 

0 

THRDCHK 

34, 2630 

41345 

0 

OLOAO 

OMP 

34,2631 

00003 

1 

02D 

REF 

3 

LAST 

-64  9 

34, 2632 

03606 

1 

GAMPREV 

34, 2633 

71244 

0 

BPL 

DLOA  D 

REF 

1 

34, 2634 

70663 

0 

F IFTYFPS 

REF- 

- 2 

LAST 

643 

34,-2635 

30062 

0 

I NIT  ST 

34,  2636 

77765 

0 

SIGN 

REF 

7 

LAST 

648 

34,2637 

03610 

0 

DEL  D V 

REF 

8 

LAST 

649 

34, 2640 

03610 

0 

STORE 

DELD  V 

34, 2641 

43014 

0 

SET 

CLEAR 

RFF 

4 

LAST 

649 

34, 2642 

03062 

0 

S32.  1 F3A 

REF 

4 

LAST 

649 

34,  2643 

03263 

0 

S 32 . 1 F3B 

34,2644 

77745 

1 FRSTPAS 

DLOAD 

34,2645 

00001 

0 

OOD 

REF 

4 

LAST 

649 

34,2646 

17606 

1 

STOOL 

GAMPREV 

REF 

11 

LAST 

649 

34, 2647 

03572 

1 

DELVCSI 

REF 

4 

LAST 

649 

34,2650 

03574 

1 

STORE 

D VPP CV 

34,2651 

43025 

1 

OSU 

CLEAP 

REF 

9 

LAST 

649 

34,2652 

036  10 

0 

DELD  V 

REF 

3 

LAST 

649 

34, 2653 

03261 

1 

S 32 . 1F2 

GAP:  ASSEMBLE  REVISION  069  Of  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-Cll 


P2  2- 

P35, 

P72-P75 

5857 

REF 

12 

LAST 

649 

34, 2654 

37572 

0 

STCALL 

DELVCSI 

5858 

REF 

2 

LAST 

648 

34,  2655 

70165 

1 

CSI  / 81 

34*  2656 

43014 

0 

THRDCHK 

BON 

_B  ON 

5860 

REF 

5 

LAST 

649 

34,2657 

03302 

0 

S 32 . 1F3A 

5861 

REF 

1 

34,2660 

70702 

0 

NEWTN 

P E F 

5 

| AST 

- 64  9 

34,  2 661 

03303 

1 

S32.  1F3B 

5863 

REF 

2 

LAST 

650 

34,2662 

70702 

0 

NEWTN 

5864 

34, 2663 

75345 

1 

F1FTYFPS 

OLOAD 

S IGN 

REF 

1 

34»  2 664 

3010? 

1 

F IFPSDP 

5866 

34,2665 

00005 

1 

04D 

5867 

34,2666 

77765 

0 

SIGN 

LAST 

64  9 

ft4_*  ? 66  7 

03606 

1 

GAMP REV 

5869 

REF 

10 

LAST 

649 

34,2670 

03610 

0 

STORE 

DEL  DV 

5870 

34, 2671 

43276 

0 

DCOMP 

DAD 

n ft  5 7 ? 

1 

DELVCSI 

5872 

REF 

14 

LAST 

650 

34  \ 2 673 

17572 

1 

STOOL 

DELVCSI 

5873 

34,2674 

00001 

0 

OOD 

34*  2 675 

43014 

0 

SET 

SET 

5875 

REF 

6 

LAST 

650 

34,2676 

03063 

1 

S 32 . 1F3B 

5876 

REF 

6 

LAST 

650 

34,2677 

03062 

0 

S 32 . 1 F3 A 

SR77 

R FF 

6 

-1  AST 

65  0 

34, 2 700 

37606 

0 

STCALL 

GAMP  PEV 

5878 

REF 

i 

34,2701 

70176 

0 

CSI/B2 

5879 

34, 2702 

60345 

0 

NEW  TN 

OLOAD 

NORM 

SftftO 

34,  2 703 

00005 

1 

04D 

5881 

REF 

5 

LAST 

64  5 

34,2704 

00050 

1 

X2 

5882 

34,2  705 

54065 

0 

3DDV 

XSU,  1 

ft  ft  ft  ft 

34,2  706 

00001 

0 

OOD 

5884 

REF 

6 

LAST 

6 5 C 

34,2707 

00047 

1 

X 2 

5885 

34,2710 

77657 

0 

SR  * 

34*2711 

pn  6n  i 

l 

0 , 1 

5887 

REF 

1 1 

LAST 

650 

34,2712 

17610 

0 

STODL 

DELDV 

5888 

34, 2713 

00001 

0 

OOD 

ft  R ft  Q 

R FF 

7 

1 AST 

6 5 0 

34-*  2 714 

03606 

1 

STORE 

GAMP  REV 

5890 

34,2715 

51545 

1 

OLOAD 

ABS 

5891 

REF 

12 

LAST 

650 

34, 2716 

03610 

0 

DELDV 

589? 

34,2717 

45206 

1 

PUSH 

DSU 

5893 

REF 

1 

34,2720 

30076 

0 

EPSI LN1 

5894 

34, 2721 

71240 

1 

BMN 

DLOAD 

5895 

REF 

1 

34,2722 

70737 

0 

CSI / SOL 

5896 

34,2723 

50025 

0 

DSU 

BMN 

5897 

REF 

1 

34, 2724 

30106 

0 

DELMAX1 

58  98 

RE-F 

1 

34,2725 

70732 

0 

CSISTFP 

5899 

34,2726 

75345 

1 

DLOAD 

SIGN 

5900 

REF 

2 

LAST 

650 

34, 2727 

30106 

0 

DELMAX1 

5901 

REF 

13 

LAST 

65  C 

34,2730 

036  10 

0 

DFLD  V 

5902 

REF 

14 

LAST 

650 

34,2731 

03610 

0 

STORE 

DELDV 

5903 

34, 2732 

45345 

1 

CSI STEP 

DLOAD 

DSU 

5904 

RFF 

15 

LAST 

65  0 

34, 2733 

035  72 

1 

DELVCSI 

5905 

REF 

15 

LAST 

650 

34,2734 

036  10 

0 

DELDV 

5906 

REF 

16 

LAST 

650 

34,2735 

37572 

0 

STCALL 

DELVCSI 
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PL  080 
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L 

P32- 

P35, 

P 72— 

P75 

5907 

REF 

3 

LAST 

650 

34, 2736 

70165 

1 

CSI/B1 

5908 

34, 2737 

77145 

1 

CSI /SOL 

OLOAD 

AXT  , 2 

L AR  T 

64  4 

T4,  2 74  0 

03600 

1 

POSTCSI 

5910 

34,2741 

00002 

0 

2 

5911 

34,2742 

77750 

0 

L X A , 1 

3 

FART 

644 

34,  7 743 

033  75 

0 

RTX 1 

5913 

34,2744 

50023 

0 

DSU* 

BMN 

5914 

REF 

i 

34,2745 

30072 

1 

PMINF  -2 

R F F 

5 

1 ART 

646 

34,  2746 

70776 

0 

SEND  SOL 

5916 

34, 2747 

71374 

1 

A XT , 2 

DLOAD 

5917 

34,2750 

00003 

1 

3 

5918 

REF 

3 

LAST 

647 

34, 2751 

036  02 

0 

POSTCDH 

5919 

34,2752 

50023 

0 

DSU* 

BMN 

5920 

REF 

2 

LAST 

65  1 

34,2753 

30072 

1 

PMINF  -2 

5921 

RFF 

6 

LAST 

65  1 

34,2754 

70776 

0 

SCND  SOI 

5922 

34,2755 

45345 

1 

OLOAD 

DSU 

5923 

REF 

8 

LAST 

647 

34,2756 

033  74 

1 

TCDH 

5924 

REF 

7 

LAST 

34,2757 

03632 

0 

TCSI 

5925 

REF 

7 

LAST 

63  8 

34,2760 

02257 

0 

STORF 

T1T0T2 

5926 

34,2761 

45374 

0 

AX  T , 2 

DSU 

RQ2  7 

3 4, 2 762 

00004 

0 

4 

5928 

REF 

1 

34,2763 

30112 

0 

TMIN 

5929 

34,2  764 

77040 

0 

BMN 

AXT  , 2 

5930 

REF 

7 

LAST 

65  1 

34,  2765 

70776 

0 

SCNDSOL 

5931 

34,2766 

00005 

1 

5 

5932 

34,2767 

45345 

1 

OLOAD 

DSU 

5933 

REF 

12 

LAST 

64  7 

34,2770 

03634 

0 

TTPI 

5934 

REF 

9 

LAST 

65  1 

34, 2771 

03374 

1 

TCDH 

5935 

REF 

5 

LAST 

638 

34, 2772 

02261 

0 

STORE 

T2TCT3 

5936 

34,^2773 

51025  1 

DSU 

B PL 

5937 

REF 

2 

LAST 

65  1 

34,2774 

30112 

0 

TMIN 

5938 

REF 

1 

34,2775 

72116 

1 

P32/P72C 

5939 

34,2776 

43014 

0 

SCNDSOL 

BON 

BCIFF 

5940 

REF 

7 

LAST 

650 

34, 2777 

03302 

0 

S32.  1 F3A 

5941 

REF 

1 

34,3000 

72040 

0 

A LMX  IT 

5947 

REE 

7 

LAST 

65  0 

34,3001 

03343 

o 

S 32 . 1 F3B 

5943 

REF 

2 

LAST 

65  1 

34,3002 

72040 

0 

A LMX  I T 

5944 

34, 3003 

71334 

0 

SXA  ,2 

DLOAD 

5945 

REE 

5 

LAST 

643 

34, 3004 

03611 

1 

C S I A LRM 

5946 

REF 

8 

LAST 

646 

34, 3005 

32364 

1 

P 30  Z FRO 

5947 

34,3006 

43014 

0 

CLEAR 

SET 

5948 

REF 

4 

LAST 

644 

34,3007 

03260 

0 

S 32 . 1F1 

5949 

REF 

4 

LAST 

649 

34, 3010 

03061 

0 

S 32 . 1F2 

5950 

34, 301  1 

43014 

0 

CLEAR 

CLEAR 

5951 

REF 

a 

LAST 

65  1 

34, 3012 

03262 

1 

S 32 . 1 F3A 

5952 

REF 

8 

LAST 

65  1 

34, 3013 

03263 

0 

S32. 1 F3B 

5953 

REF 

5 

LAST 

648 

34,3014 

37604 

1 

STC ALL 

L OOP  CT 

5954 

REF 

I 

34, 3015 

70125 

0 

CSI  / B 
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L 

P32-P35,  P72-P75 

USER'S  PAGE  NO. 

25 

E 7 S3 

P6000 

ADVANCE  

j L r U U 1 1 iN  L j U J CL?1 

R6051 

R6052 

PRECSET 
ROTATE  - 

6100 

LAST 

A4  2 

34, 3016 
34,  3 n i 7 

71220  1 
03466  0 

ADVANCE  ST  Q 

DLOAD 
SUBE  X I T 

6102 

REF 

12 

LAST 

63  7 

3A, 3020 

03AA0  1 

T IG 

6103 

REF 

21 

LAST 

626 

3A, 3021 

3A0A1  0 

STCALL 

TDEC  1 

REF 

34,302? 

A63A1  0 

PRECSET 

6105 

3A, 3023 

772 1A  0 

SET 

VLOAD 

61055 

REF 

2 

LAST 

625 

3A»  302 A 

01067  1 

XDEL  VFLG 

M r.5 

R FF 

2 

LAST 

648 

34,3025 

03556  1 

V PAS  S3 

6107 

REF 

6 

LAST 

6A7 

3 At  3026 

03526  0 

STORF 

VPASS2 

6108 

REF 

5 

LAST 

6 A 6 

3 A( 3027 

275  OA  0 

STOVE 

VPASS1 

A 1 09 

R FF 

5 

J AST 

64  8 

34 , 3030 

03550  1 

RPASS3 

6110 

REF 

A 

LAST 

6 A 7 

3 A, 3031 

03520  0 

STORE 

RPASS2 

6111 

REF 

A 

LAST 

6 A 7 

3 At  3032 

03A76  1 

STORE 

RPASS1 

A 1 ] ? 

3 A, 3033 

A7256  0 

UNIT 

VXV 

6113 

REF 

6 

LAST 

65  2 

3A, 303A 

0350A  0 

VPAS  SI 

6116 

3A, 3035 

77656  1 

UNIT 

A1  1 5 

R FF 

5 

1 AST 

64  7 

34, 3036 

26265  1 

STOVL 

JPl 

6116 

REF 

6 

LAST 

6 A 8 

3 A, 3037 

0353A  0 

P ACT  3 

6117 

REF 

5 

LAST 

627 

3 A, 30A0 

376A0  1 

STCALL 

RTIG 

6118 

REF 

l 

34,  3 04 1 

71 05?  0 

ROTATE 

6119 

REF 

7 

LAST 

6A7 

3 A, 30A2 

02315  1 

STORE 

RACT2 

6120 

REF 

10 

LAST 

64  6 

3A, 30A3 

26307  1 

STOVL 

RACT  1 

A 1 2-1- 

R F F 

5 

1 AST 

34, 3044 

03542  1 

VAC  T 3 

6122 

REF 

A 

LAST 

627 

3A, 30A5 

376A6  1 

STCALL 

VTIG 

6123 

REF 

2 

LAST 

652 

3A  t 3 0A6 

71052  0 

ROTATE 

6124 

REF 

2 

LAST 

646 

34, 3047 

0351?  1 

STORE 

VACT2 

6125 

REF 

A 

LAST 

6 AA 

3A, 3050 

37A70  0 

STCALL 

VACT  1 

6126 

REF 

10 

LAST 

652 

3A, 3051 

03A66  0 
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P6200 

, ROTATE 

34t 306? 

41  406 

0 ROTATE 

PUSH 

PUSH 

6301 

34,3053 

74241 

0 

DOT 

vxsc 

6302 

REF 

6 LAST 

652 

34,3054 

02265 

1 

UP1 

a ^03 

-REF 

7 LAST 

65  3 

34, 3055 

022  65 

1 

UP1 

63  04 

34, 3056 

51352 

1 

VSL2 

B VS  U 

6305 

34,3057 

63256 

0 

UNIT 

PDVL 

6306 

34,30-60 

74246 

1 

ABVAL 

VXSC 

6307 

34, 3061 

43572 

0 

VSL  1 

RVQ 
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P7000 

. INTINTNA 

^06-2 

653  26 

o 

I NT INT2C 

POOL 

7101 

REF 

8 

LAST 

65  1 

34, 3063 

03632 

0 

7102 

REF 

10 

LAST 

65  1 

34,3064 

03374 

1 

34.,  3065 

41525 

0 

PDDL 

7104 

REF 

3 

LAST 

64  7 

34,3066 

33671 

1 

7105 

34,3067 

77650 

1 

GOTO 

7 1 06 

REF 

3 

I AST 

64  7 

34, 3070 

73422 

1 

7107 

34,3071 

65325 

0 

I NT  IN  T3P 

PDDL 

7108 

REF 

n 

LAST 

6 5 4 

34,3072 

03374 

1 

7 1 DQ 

R PF 

13 

1 AST 

65  1 

34, 3073 

03634 

0 

7110 

34,3074 

41525 

0 

PDDL 

7111 

REF 

9 

LAST 

651 

34,3075 

32364 

1 

7112 

34,3076 

77650 

1 

GOTO 

7113 

REF 

4 

LAST 

654 

34,3077 

73422 

1 

PDDL — 
TCSI 
TCDH 
PU-SH 
TWOP  I 

i_NT  1 MT 

PDDl 

TCDH 

TTPI 

PUSH 

P30ZERO 


USER'S  PAGE  NO.  27  E7  S3 


INTI  NT 
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L P22-P35,  P72-P75  USER'S  PAGE  NO.  23  E7  S3 

P 7400  S32/33.1  

R7450  SUBROUTINES  USED 
R 745 1 S32/33.X 


7500 

34, 3100 

76020 

1 

S32/33.1  STO 

A XT , 1 

7500  1 

REF 

11 

LAST 

65  2 

34, 3 101 

03466 

0 

SUBEXIT 

7 S f)0  ? 

34t  3 102 

01521 

0 

VN 

0631 

75003 

34,3103 

77624 

1 

CALL 

75004 

REF 

2 

LAST 

633 

34, 3 104 

72334 

0 

D I SD  VL  VC 

7501 

34,3105 

77624 

1 

CALL 

7502 

REF 

2 

LAST 

64  C 

34, 3106 

71120 

1 

S 32/  33.X 

7503 

34, 3107 

61375 

1 

VLOAD 

VXM 

7504 

REF 

14 

L AST 

640 

34,3110 

03432 

1 

DEL V LVC 

7505 

34,3111 

00001 

0 

OD 

7505  1 

34,3112 

77772 

0 

VSL  1 

7506 

REF 

7 

LAST 

627 

34,3113 

03654 

0 

STORE 

DELVSIN 

7507 

34,3114 

51406 

1 

PUSH 

A BV  A L 

7508 

REF 

3 

LAST 

627 

34,3115 

27662 

0 

STOVL 

D EL V SAB 

7509 

34, 3116 

77650 

1 

GOTO 

7510  REF  12  LAST  655  34,3117  03466  0 


SUBEXIT 


GAP: 

L 

P7800 

7900 

7901 

7902 

7903 

7904 

7905 

7906 

7907 

7908 

7909 

7910 
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S32/33.X  


34  1 20 

77?  01 

1 

S 32  /33.X  SETPE) 

VLOAD 

34,3121 

00007 

0 

6 D 

REF 

8 

LAST 

653 

34,3122 

02265 

1 

UP1 

3 4,3 123 

632  76 

1 

VCOMP 

PDV1 

REF 

1 1 

LAST 

65  2 

34, 3124 

02307 

1 

RACT  1 

34,3125 

57456 

1 

UNIT 

VCOMP 

34,3126 

472  06 

0 

PUSH  . 

VXV 

REF 

9 

LAST 

656 

34, 3 127 

02265 

1 

UP1 

34, 3130 

77772 

0 

VSL  1 

34,3131 

00001 

0 

STORE - 

_0H-  _ 

34,3132 

77616 

0 

RVQ 

GAP: 

P8000 

R 8050 

R8051 

R8052 

R8053 

8100 

8101 

8102 

8103 

8104 

8105 

8106 

8107 

8108 

8109 

8110 

8111 

8112 

8113 

8114 

8115 

8116 

8117 

8118- 

8119 

8120 

8121 

8122 

8123 

8124 

8125 

8126 

8127 

8128 

8129 

8130 

8131 

8132 

8133 

8134 

8135 

8136 

8137 

8138 

8139 

8140 

8141 
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CDHMVR  

S^BRQUTINE-S  USED 

VECSFI FT 
TI METHET 
SHIFTR1 


772  20 
03466 

1 rnHMVR 

S TO 

V LOAD 

REF 

13 

LAST 

65  5 

34,3134 

0 

SUBEXIT 

REF 

8 

LAST 

652 

34,3135 

02315 

i 

RACT2 

34,3 136 

53406 

0 

PUSH 

UNIT 

REF 

1 

34, 3137 

27542 

1 

STOVL 

UNVEC 

UR  SUB  A 

REF 

5 

LAST 

652 

34, 3140 

03520 

0 

RPASS2 

34, 3 141 

50256 

0 

UNIT 

OOT 

REF 

2 

LAST 

657 

34, 3142 

03542 

1 

UNVEC 

34, 3143 

72406 

0 

PUSH 

S LI 

Rf=F 

3 

1 AST 

506 

34,-3  144 

16732 

0 

STOOL 

C ST  H 

34, 3 145 

65316 

0 

OSQ 

P DDL 

REF 

4 

LAST 

596 

34, 3146 

06414 

0 

DP1/4TH 

34, 3 147 

4530? 

1 

SR2 

DSU 

34, 3150 

72  5 66 

1 

SORT 

SL1 

34, 3151 

57515 

1 

PDVL 

VCDMP 

34,-3  152 

77635 

1 

VXV 

REF 

6 

LAST 

65  7 

34,3153 

03520 

0 

RPASS2 

34, 3154 

65241 

0 

DOT 

P DDL 

REF 

10 

LAST 

656 

34, 3155 

02265 

1 

UP1 

34,3156 

455  65 

0 

SIGN 

ST  ADR 

REF 

5 

LAST 

64  6 

34, 3157 

51047 

0 

STOVL 

SNTH 

REF 

7 

LAST 

65  7 

34,3160 

03520  0 

RPASS2 

34,3161 

45115 

0 

PDVL 

CALL 

REF 

5 

LAST 

652 

34,3 162 

03526 

0 

VPASS2 

REF 

3 

LAST 

34, 3163 

463  77 

0 

V EC  S HI  FT 

REF 

5 

LAST 

646 

34, 3164 

26744 

1 

STOVL 

V VEC 

34,3165 

776  14 

1 

CLEAR 

-REF 

4 

LAST 

646 

34,3166 

03666 

1 

R V S V.1 

REF 

4 

LAST 

6 4 6 

34, 3167 

36655 

1 

STCALL 

R VEC 

REF 

4 

LAST 

646 

34,3170 

24745 

1 

TIMETHET 

34, 3171 

53  7 54 

1 

LX  A , 2 

VSL* 

REF 

3 

LAST 

627 

34, 3172 

033  76 

0 

R TX 2 

34,3173 

57576 

1 

0,2 

34,3174 

00023 

0 

STORE 

1 8D 

34, 3175 

76441 

l 

DOT 

SLIP 

REF 

3 

LAST 

65  7 

34,3176 

03542 

1 

UNVEC 

34,3177 

51515 

1 

PDVL 

ABV  A L 

OD 

= V SUB  PV 

34,3200 

63257 

1 

SL* 

PDVL 

34,3201 

57576 

1 

0,2 

REF 

LAST 

657 

34,  3-202 

02315 

1 

RACT2 

34, 3203 

65246 

1 

ABVAL 

PDDL 

2D 

= LENGTH  OF  P SUB  A 

34,3204 

77625 

0 

DSU 

GAP: 

L 

8142 

8143 

8144 

8145 

8146 

8147 

8148 

8149 

8150 

8151 

8152 

8153 

8154 

8155 

8156 

8157 

8158 

815-9 

8160 

8161 

8162 

8163 

8164 

8165 

8166 

8167 

8168 

8169 

8170 

8171 

8172 

8173 

8174 

8175 

8176 

8177 

8178 

8179 

8180 

8181 

8182 

8183 

8184 

8185 

8186 

8187 

8188 

8189 

8190 

8191 
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REF 

REE 


REF 

REF 


REF 


REF 


REE 


REF 

REF 


P35, 

P 72- 

P 75 

34,3205 

00003 

1 

4 

LAST 

33  1 

34,3206 

17576 

0 

2 

last 

1 4 n 

34,3207 

02742 

1 

34,3210 

65301 

0 

10 

LAST 

649 

34,3211 

00047 

1 

last 

34f  3212 

00041 

-4- 

34,3213 

77624 

1 

7 

LAST 

647 

34, 3214 

464  07 

0 

34t  3 215 

56362 

0 

34, 3216 

41457 

1 

34, 3217 

20174 

1 

34,  3 220 

65225 

1 

5 

LAST 

658 

34, 3221 

03576 

0 

34, 3222 

56302 

0 

34, 3223 

00005 

1 

34,3224 

75406 

1 

34,3225 

41275 

1 

34, 3226 

00007 

0 

34,3227 

00001 

0 

34, 3230 

65272 

0 

34, 3231 

00003 

1 

34,3232 

65301 

0 

11 

LAST 

65  8 

34, 3233 

00047 

1 

2 

L AST 

64  ^ 

3 2 34 

02376 

1 

34,3235 

56342 

1 

34,3236 

65257 

1 

34r 3 237 

20  1 74 

1 

34,3240 

00005 

l 

34, 3241 

65301 

0 

7 

LAST 

65  0 

34, 3242 

00050 

1 

3 

LAST 

65  8 

34, 3243 

02325 

1 

34, 3244 

56342 

1 

34,3245 

442  5 7 

1 

34,3246 

5 76  04 

1 

34, 3247 

63525 

0 

34,3250 

00011 

1 

34, 3251 

75421 

1 

34,3252 

47315 

0 

1 1 

LAST 

65  7 

34,  3253 

022  65 

1 

4 

LAST 

657 

34,3254 

03542 

1 

34, 3255 

742  56 

0 

34, 3256 

00013 

o 

34,3257 

743  15 

0 

5 

LAST 

65  8 

34,3260 

03542 

1 

34, 3261 

0001 1 

1 

34,3262 

76455 

1 

34,3263 

77626 

0 

6 

LAST 

6 5 2 

34,3264 

74235 

o 

34, 3265 

77651 

0 

3 

LAST 

652 

34,3266 

035  12 

1 
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STOOL 


0 2D 

OTFF ALT 
_R1A_ 


NORM 


CALL 


SR  1 R 
SL* 


osu 

SR2 


PUSH 

DMPR 


SL3R 

NORM 


SP1 

SL* 


NORM 


SRI 

SL* 


PDDL 


BDSU 

PDVL 


UNIT 

PDVL 


VAD 
ST  ADR 
STORE 
VSU 


PDDL 

XI 

-R-l 


DELTA  H IN  METERS 
2 - R V**/MU 


B + 29 


04D 


SHIFTR1 
DDV 
PUSH 
0 -5,1 
._PD.Dt- 
D IFF  ALT 
DDV 

04D 

SORT 

DMP 

06D 

OOD 

PDDL 

020 

PDDL 

XI 

RTMU 

DDV 
PDDL 
0 -5,1 
04D 
PDDL 
X 2 

RTMU 
DDV 
B-D-S-U 
0 -6,2 
D SO 
08D 
SORT 
VXV 
UP1 
UNVEC 
VXSC 
10D 
VXSC 
UNVFC 
0 BO- 
VS L 1 

VACT  3 


A S U _ A 
A SUB  P 


B + 29 


B+31 
_ B+2 


04D 


A SUB  P/A  SUB  A 


06D 


V SUB  AV  METERS/CS  B+7 

R SUB  A MAGNITUDE  B+29 


2 MU  B + 38 

2 MU/R  SUBAA  B+14  10D 


08D 


ASUBA 


B+29 


2U/R  - U/A  B+14  (METERS/CS ) SQ 


1 0 D 


SORT ( MU ( 2 /P  SUB  A-l/A  SUB  A ) -VSUBA2 ) 10D 


REF 


VACT  2 


GAP  : 

'Li- 

8199 

8200 
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REF  6 LAST  638  34,3267  36301  0 STCALL  DELVEET2  DELTA  VCOH  - REFERENCE  COORDINATES 

REF  14  LAST  657  34,3270  03466  0 SUBEXIT 


GAP  : 
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L P32-P25,  P72-P75 

P8201  COMPTGO 

R 8 2 0 2 SLERQUTINES  USED 

R8203  CLOKTASK 

R8204  2PHSCHNG 


USER'  S PAGE  NO.  33  E7  S3 


8205  35,2376  BANK  35 


8206 

8207 

REF 

— 2- 

LAST 

631 

35, 2 000 
35,2376 

b t 4 LL1L 
BANK 

F8ANK- 

L-b  1 / L4Jn 
R TRT 

8209 

REF 

1 

COUNT  * 

$ S>/  P 3575 

8210 

35,2376 

0 0006 

1 

COMPTGO  EXTEND 

8211 

REF 

2 

LAST 

660 

35,2377 

23 1 463 

1 

QXCH 

RTRN 

REF 

127 

—LAST 

-617 

15 , ? 4 on 

3 4755 

1 

CAF 

ZERO 

8213 

REF 

i 

35,2401 

55' 163 

0 

TS 

DISPDEX 

8214 

REF 

4C 

LAST 

6 16 

35, 2402 

3 4752 

0 

CAF 

R I T 2 

p 2 l 5 

5 T ? 40”} 

0 0004 

o 

INHINT 

8216 

REF 

29 

LAST 

615 

35,2404 

0 5203 

0 

TC 

WAITLIST 

8217 

REF 

2 

LAST 

257 

E7 , 1453 

EB ANK= 

WHICH 

ft?  1 ft 

REF 

— 2- 

L AST 

2-5  8 

35, 2405 

02722 

1 

2C  ADR 

CLOK TASK 

8218 

35,2406 

74067 

0 

8219 

REF 

3 

LAST 

514 

35,2407 

0 5327 

1 

TC 

2 PHSCHNG 

ft?  ?0 

35, 2410 

400  36 

0 

OCT 

4003  6 

8221 

35,2411 

05024 

1 

OCT 

05024 

8222 

35,2412 

13000 

0 

OCT 

1 3000 

8223 

REF 

— 3— 

LAST 

660 

35,2413 

0 1463 

TC 

JLTRN 

GAP: 
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L 

GENERAL  LAMBERT  AIMPOINT  GUIDANCE  USER'S  PAGE  NO.  1 EO  S3 

P0001 

GENERAL  LAMBERT  AIMPOINT  GUIDANCE  ** 

R0002 

WRITTEN  BV  RAMA  M AIYAWAR 

R0003 

PROGRAM  P-31  DESCRIPTION  ** 

R0004 

R0005 

R0006 

R0007 

ROOOR 

Rooog 

1.  TO  ACCEPT  TARGETING  PARAMETERS  OBTAINED  FROM  A SOURCE  EXTERNAL 

TO  THE  LEM  AND  COMPUTE  THERE  FROM  THE  REQUIRED-VELOCITY  AND 
OTHER  INITIAL  CONDITIONS  REQUIRED  BY  LM  FOR  DESIRED  MANEUVER. 
THE  TARGETING  PARAMETERS  ARE  TIG  (TIME  OF  IGNITION),  TARGET 
VECTOR  (RTARG),  AND  THE  TIME  FROM  TIG  UNTIL  THE  TARGET  IS 
REACH  ED ( CELLT4 ) » DBS  I RED  TIME  OF  FL  IGHT  FRO  ML  RINIT  TO  RTARG.. 

ROOIO 

ASSUMPTIONS  ** 

ROOl  1 
R0012 
R0013 
ROOIA 
R0015 

1.  THE  TARGET  PARAMETERS  MAY  HAVE  BEEN  LOADED  PRIOR  TO  THE 
EXECUTION  OF  THIS  PROGRAM. 

2.  T-RIS  PROGRAM  IS  APPLICABLE  IN  EITHER,  EARTH  OR  LUNAR  ORBIT. 

3.  THIS  PROGRAM  IS  DESIGNED  FOR  ONE-MAN  OPERATION,  AND  SHOULD 
BE  SELECTED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY  V 37  E31. 

R0016 

SUBROLTINES  USED  ** 

R0017 

R0018 

MANUPARM,  TTG/N35,  R02BOTH,  MIDGIM, — D-I-S  PM  GA  , FLAGQOWN,  BAJMKC-ALL, 
GCTOPCOH,  ENDOFJOB,  P HAS  CHNG , GOFLASHR,  GOFLASH. 

ROOl  9 
R0020 

MANUPARM  CALCULATES  APOGFF , PERIGFE  ALTITUDES  AND  DEL-TAV  DESIR-ED 

FOR  THE  MANEUVER. 

R0021 

TTG/N35 GLQCKTASK  - UP  DATES  CLOCK. 

R0022 

MIDGIM  CALCULATES  MIDDLE  GIMBAL  ANGLE  FOR  DISPLAY. 

R0023 

R 02  BO  TH  I MU  - STATUS  CHECK  ROUTINE. 

R0024 

DISPLAYS  USED  IN  P-31LM  *-* 

R0025 

R0026 

R0027 

R0028 

VC6N33  DISPLAY  SOTRED  TIG  (IN  HRS.  MINS.  SECS) 

VC6N42  DISPLAY  APOGEE,  PERIGEE,  DELTAV. 

V16N35  DISPLAY  TIME  FROM  TIG. 

V06N45  TIME  FROM  IGNITION  AND  MIDDLE  GIMBAL  ANGLE. 

R0029 

ERASABLE  INITIALIZATION  REQUIRED  ** 

RG030 

TIG  — T-LME  OF  IGNITION  DP LB±28)  CS. 

R0031 

R0032 

R0033 

R0034 

DELLT 4 DESIRED  TIME  OF  FLIGHT  DP  (B  + 28)  CS 

FROM  RINIT  TO  RTARG  . 

RTARG  RADIUS  VECTOR  OF  TARGET  POSITION  VECTOR 

RADIUS  VECTOR  SCALED  TO  IB+291METERS  IF  EARTH  ORBIT 

GAP  : 

L 

R0035 

R0036 

R0037 

R0038 

R 0039 

R0040 

R0041 

R0042 

R0043 

R0044 

0045 

004-6 

0047 

0048 

0049 

00  51- 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 
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RADIUS  VECTOR  SCALED  TO  ( B + 27 ) METER  S IF  MOON 

ORBIT 

HAPO 

HPER 

VGDISP 

APOGEE  ALTITUDE 

PERIGEF  ALTITUDE  - 

MAG. OF  DELTAV  FOR  DISPLAY  .SCALING  B+7  M/CS 

MAG. OF  DELTAV  FOR  DI S PL AY , S CA L I NG  B+5  M/CS 

EARTH 

MOON 

MIDGIM  MIDDLE  GIMBAL  ANGLE 

XDELVFLG  RESETS  XDELVFLG  FOR  LAMBERT  VG  COMPUTATIONS 


ALARMS  OR  ABORTS  NONE  ** 


RESTARTS  ARE  VIA  GROUP  4 ** 


REF 

1 

35, 2000 
35, 2414 

SETLOC 

BANK 

GLM 

REF 

15 

LAST 

659 

E7, 1466 

EBANK= 

SUBE  XIT 

REF 

1 

COUNT  * 

t$/P  31 

REF 

3 

LAST 

637 

35,2414 

0 2325 

1 P31 

TC 

P20F  LGON 

RFF 

2 

LAST 

-62  4 

35,2415 

3 2025 

1 

CAF 

V06N 33 

TIG 

REF 

10 

LAST 

640 

35, 2416 

0 3651 

0 

TC 

VNPOCH 

REF 

66 

LAST 

640 

35,2417 

0 6036 

1 

TC 

I NTF  RET 

35,2420 

71214 

0 

CLEAR 

DLDAD 

REF 

9 

LAST 

639 

35,2421 

00670 

0 

UPDATFLG 

REF 

13 

LAST 

652 

35, 2422 

03440 

1 

TIG 

RFF 

? ? 

1 AST 

A.  5 7 

35t  2423 

14041 

o 

STf.Al  1 

T DEC  1 

INTEGRATE  STATE  VECTORS  TO  TIG 

REF 

4 

LAST 

626 

35, 2424 

27057 

0 

LEMPPEC 

35, 2425 

40375 

1 

VLOAD 

SETPD 

REF 

1 1 

LAST 

62  7 

35, 2 42  6 

00001 

o 

RATT 

35,2427 

00001 

0 

OD 

REF 

6 

LAST 

652 

35, 2430 

03640 

0 

STORE 

RTIG 

REF 

] 

35,2431 

26327 

0 

STOVL 

3 INI  T 

REF 

9 

LAST 

647 

35, 2432 

00007 

0 

VATT 

REF 

5 

LAST 

652 

35,2433 

03646 

0 

STORE 

VTIG 

REF 

1 

35, 2434 

16335 

0 

STOOL 

V I NI  T 

REF 

10 

LAST 

6 5 4 

35,2435 

32364 

1 

P 30  Z ERO 

35,2436 

65206 

0 

PUSH 

PDDL 

E4  AND  NUMIT  = 0 

REF 

3_ 

LAST 

213 

35,2437 

03450 

0 

DELL  T4 

35, 2440 

66015 

0 

DAD 

SXA  , 1 

RFF 

14 

LAST 

66  2 

35,2441 

03440 

1 

TIG 

RFF 

4 

LAST 

65  1 

35,2442 

03375 

0- 

RTX1 

REF 

4 

LAST 

213 

35, 2443 

03627 

1 

STORE 

TPASS4 

35,2444 

45134 

0 

SXA  ,2 

CALL 

REF 

J, 

LAST 

65l2 

-35, 2445 

033  76 

0 

RTX2 

REF 

1 

35,2446 

22000 

1 

INITVEL 

35, 2447 

41575 

0 

VLOAD 

PUSH 
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0078 

REF 

3 

LAST 

213 

35, 2650 

03366 

1 

DEL  V EET3 

0079 

REF 

8 

LAST 

655 

35,2651 

03656 

0 

STORE 

DEL VSIN 

5 r 2 4*5  2 

430  46 

1 

ABVAL 

CLEAR 

0081 

REF 

3 

LAST 

652 

35,  2653 

01267 

0 

XDEL  VFLG 

0082 

REF 

3 

LAST 

32  9 

35,2656 

37662 

1 

STCALL 

VGD I SP 

1 

2455 

20021 

0 

GET^LVC 

0086 

35,2656 

63375 

0 

VLOAD 

PD  VL 

0085 

REF 

7 

LAST 

662 

35, 2657 

03660 

0 

RTIG 

no  86 

REF 

1 

35,2460 

02363 

1 

V I PR IME 

0087 

35,2661 

77626 

1 

CALL 

0088 

REF 

3 

LAST 

667 

35,2662 

66277 

1 

PER  I AP01 

0089 

35, 2663 

77626 

_L 

CALL 

0090 

REF 

8 

LAST 

65  8 

35,2666 

66607 

0 

SHIFTR1 

00902 

35,2665 

77626 

1 

CALL 

LIMIT  DISPLAY  TO  9999.9  N.  MI. 

00904 

REF 

3 

LAST 

62  7 

35,  2666 

65636 

0 

MAXCHK 

0091 

REF 

3 

LAST 

627 

35,2667 

16325 

1 

STODL 

HPER 

0092 

35,2670 

00005 

1 

6D 

f)DQ 8 

35,2471 

77624 

1 

CALL 

0096 

REF 

9 

LAST 

663 

35,2672 

66607 

0 

SHI FTP1 

00962 

35,2673 

77626 

1 

CALL 

LIMIT  DISPLAY  TP  9999.9  N.  MI. 

0004  4 

REF 

4 

i t 

66  3 

35, 2474 

456  36 

0 

MAXCHK 

0095 

REF 

5 

LAST 

627 

35, 2675 

02323 

1 

STORE 

HAPO 

0096 

35, 2676 

77776 

1 

EXIT 

0097 

REF 

2 

LAST 

62  4 

35,-2677 

3 36  66 

1 

CAE 

V06N81 

D EL  VL  VC 

0098 

REF 

ii 

LAST 

662 

35,2  500 

0 3651 

0 

TC 

VNPOOH 

0099 

REF 

2 

LAST 

626 

35,2501 

3 2026 

1 

CAE 

V06N62 

HAPO,  HPER,  VGD I S P 

0100 

REF 

12 

LAST 

663 

35,2  502 

-0  3651 

0 

TC 

VNPOOH 

0101 

REF 

67 

LAST 

66  2 

35,2503 

0 6036 

1 

TC 

I NT  P RET 

0102 

35, 2506 

65016 

0 

REVN1665  SET 

CALL 

TRKMKCNT,  TTOGO , +MG A 

0103 

-REF 

3 

LAST 

638 

_ 35,2505 

01071 

0 

F INA 1 FLG 

0106 

REF 

3 

LAST 

638 

35,2  506 

73562 

0 

VN1665 

0105 

35,2  507 

77650 

1 

GOTO 

0106 

REF 

—2- 

LAST 

62  5 

35,2510 

725  06 

0 

R F V N 1 665 

***  ENO  OF  LEMP30S  .102  *** 


GAP: 

L 

P0001 
R0002 
R0003 
R0004 
R0005 
R0006 
R0007 
R0008 
R0009 
ROOIO 
ROOll 
R0012 
R0013 
R0014 
R0015 
R0016 
R0017 
R0018 
R0019 
R0020 
R0021 
R0022 
R0023 
R0024 
R0025 
R0026 
R0027 
R0028 
R0029 
R0030 
R0031 
R0032 
R00  33 
R0034 
R0035 
R0036 
R0037 
R0038 
R 0 0 3 9 
R0040 
R0041 
R0042 
R0043 
R0044 
R0045 
P 0046 
R0047 
R0048 
R0049 
R0050 
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GRCUND  TRACKING  DETERMINATION  PROGRAM  P21 
PROGRAM  DESCRIPTION 
MCD  NC  - 1 

MOD  BY  - N.M.NEVI LLE 
FUNCTIONAL  DECRIPTION- 


TO  PROVIDE  THE  ASTRONAUT  DETAILS  OF  THE  LM  OR  CSM  GROUND  TRACK  WITHOUT 
THE  NEED  FCR  GROUND  COMMUNICATION  (REQUESTED  BY  DSKY). 

CALLING  SEQUENCE  - — 

ASTRONAUT  REQUEST  THROUGH  DSKY  V37E2IE 
SUBROUTINES  CALLEC- 

G0PERF4 

GCFLASF 

THISPPEC 

OTHPREC 

LAT-LCNG 

NORMAL  EXIT  MODES- 

ASTRONAUT  REQUEST  TROUGH  DSKY  TO  TERMINATE  PROGRAM  V34E 
ALARM  OR  ABORT  EXIT  MODES- 


NCNE 

OUTPUT  - 

OCTAL  DISPLAY  OF  OPTION  CODE-  AND  VEHICLE  WHOSE  GROUND  TRACK  IS  TO  BE 
COMPUTED 

OPTION  CODE  00002 
THIS  00001 

OTHER  00002 

DECIMAL  DISPLAY  OF  TIME  TO  BE  INTEGRATED  TO  HOURS  , MINUTES  , SECONDS 
DECIMAL  DISPLAY  OF  LAT, LONG, ALT 
ERASAELE  INITIALIZATION  REQUIRED 


AX-0  - 

2CEC 

4.652459653  E-5 

RADIANS 

?68-69  CONSTANTS" 

- A YG 

2CEC 

2.147535898  E-5 

RADIANS 

A ZC  2CEC 

FOR  LUNAR  ORBITS 

. 77532061 64 
504LM  VECTOR  IS 

REVOLUTIONS 

NEEDED 

504LM 

2 CEC 

-2.700340600  E-5 

RADIANS 

5 04  LM 

2 2 CEC 

-7.514128400  E-4 

RADIANS 

504LM 

_4  2 CEC 

_2. 553198641  E-4 

RADIANS 

NC  N E 
DEBRIS 


GAP: 


ASSEMBLE  REV  IS  LON  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L GRCUNC  TRACKING  DETERMINATION  PROGRAM  - P21 


R0051 

R0052 

CENTR/U.S-A,Q,L 
dtl F3-Twn<;F  iKFn  ry 

THF  ARHVF 

LISTED 

SUBROUTINES 

R0054 

0055 

SEE 

REF 

LEMPREC, LAT-LCNG 

8 LAST  504  30,2000 

SBANK= 

LOWSUPER 

0056 

33, 2200 

BANK 

33 

0057 

REF 

8 

LAST 

616 

24,2000 

SETLOC 

P20S 

nos  ft 

24, 340? 

BANK 

0059 

REF 

3 

LAST 

255 

E7 , 1 756 

EBANK= 

P21T  IME 

oosn 

ft  FF 

1 

COUNT  * 

$ $/ P 21 

0061 

RFF 

8C 

LAST 

622 

24, 3402 

3 47  53 

1 

PRQG21 

CAF 

ONE 

0062 

REF 

3 

LAST 

505 

24, 3403 

55' 145 

1 

TS 

OPT  I 0N2 

RFF 

41 

1 AST 

6 6 0 

2 4, 3 404 

3 4752 

0 

CAF 

BIT? 

0064 

REF 

156 

LAST 

637 

24, 3405 

0 4616 

1 

TC 

BANKCALL 

0065 

REF 

2 

LAST 

505 

24, 3406 

20506 

0 

CADR 

G0PERF4 

0066 

ref 

12 

LAST 

63  7 

24, 3 40  7 

0-  6-0.01 

0 

TC 

GOTOPOOH 

0067 

24, 3410 

0 3412 

0 

TC 

+ 2 

0068 

24,3411 

0 3404 

1 

TC 

-5 

0069 

REF 

i 

24,3412 

3 3503 

1 

P21PRJ3GI 

CAF 

V6N34 

0070 

REF 

1 57 

LAST 

665 

24, 3413 

0 46  16 

I 

TC 

BANKCALL 

0071 

REF 

1 1 

LAST 

637 

24,3414 

20351 

1 

CADR 

G0F1 ASH 

0072 

- REF 

13 

LAST 

663  - 

- 24,3415 

0 .6001 

0 

TC 

GOTO  POOH 

0073 

24,3416 

0 3420 

1 

TC 

* 2 

0074 

24,3417 

0 3412 

0 

TC 

-5 

0075 

REF 

68 

LAST 

6 6-3  - 

24,3420 

0 6036 

1 

TC 

I FTP  RET 

0076 

24, 3421 

77745 

1 

DLOAD 

0077 

REF 

23 

LAST 

58  1 

24, 3422 

01046 

1 

DSPT EMI 

0078 

R-EF 

4 

LAST 

66  5 

24 1 3423 

03757 

1 

STORE 

P 2 IT  IME 

0079 

24, 3424 

45335 

0 

SLOAD 

DSU 

0080 

REF 

4 

LAST 

665 

24,3425 

01146 

0 

OPT  1 CN2 

0081 

REF 

1 

24, 3426 

11  501 

.0 

P210NENN 

0082 

24,3427 

71230 

0 

BHI  l 

DLDA  D 

0083 

REF 

1 

24,3430 

51443 

0 

P21 PR0G2 

0084 

REF 

5 

LAST 

66  5 

24,3431 

03757 

1 

P 2 1 T IME 

0085 

REF 

23 

LAST 

662 

24,3432 

34041 

0 

STCALL 

TDEC  1 

0086 

REF 

1 

24, 3433 

27043 

0 

OTHPREC 

0087 

24,  3434 

46135 

1 

P21PR0GA 

SLOAD 

BHIZ 

0088 

REF 

8 

LAST 

658 

24,3435 

00050 

1 

X 2 

0089 

REF 

1 

24, 3436 

51451 

0 

P21PROG3 

0090 

24,3437 

43175 

0 

VLOAD 

SET  GO 

0091 

REF 

12 

LAST 

66  2 

24,3440 

00001 

0 

RATT 

0092 

REF 

1 

24, 3441 

01423 

0 

LUNAFLAG 

0093 

REF 

1 

24,3442 

51454 

0 

P21PR0G4 

0094 

24, 3443 

77745 

1 

P21PROG2 

DLOAD 

0095 

REF 

6 

LAST 

66  5 

24, 3444 

03757 

1 

P21T  IME 

0096 

REF  . 

24 

LAST 

665 

24,3445 

34041 

0 

STCALL 

TDEC  1 

0097 

REF 

1 

24, 3446 

27057 

0 

THI SPREC 

0098 

24,  3447 

776  5 0 

1 

GOTO 

19:02  NOV.  25,1968  KISSING  .040  PAGE  665 
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FOR  LOW  2C ADR ' S . 


ASSUMED  VEHICLE  IS  LM  , R2  = 00001 
OPTION  2 


TERMINATE 

PROCEED  VALUE  OF  ASSUMED  VEHICLE  OK 

R 2 LOADED  THROUGH  DSKY 

LOAD  DESIRED  TIME  OF  LAT-LONG. 


TERM 

PROCEED  VALUES  OK 

TIME  LOADED  THROUGH  DSKY 


VEHICLE  TO  BE  INTEGRATED  IS  LEM 
VEHICLE  TO  BE  INTEGRATED  IS  CSM 
INTEGRATE  TO  TIME  SPECIFIED  IN  TDEC 
ADJUST  UNITS  FOR  LAT-LONG  ROUTTNE 


GAP 
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0099 

0100 

REF 

-REF 

REF 

REF 

REF 

REF 
P C F 

1 

13 

2 

2 

— 7- 

1 

—LAST— 

LAST 

LAST 

-LAST 

66  5 
6 6 5 
130 

.5-9-9-- 

24.3450 

24. 3451 

24. 3452 

24. 3453 

24. 3454 

24 , ^ 4*^“=; 

51434 

43175 

nnnni 

0 

0 

o 

P21PROG3 

VLDAD 

P21PR0GA 
CLEAR 
- RATT 

0101 

0102 

0103 

01663 
16032 
non  l 5 

0 

1 

o 

P21PR0G4 

STODL 

LUNAFLAG 
ALPHAV 
TAT  . 

0105 

0106 

24. 3456 

24. 3457 
24, 3460 

45014 

00662 

26351 

0 

0 

1 

CLEAR 

CALL 

ERADFLAG 

LAT-LO.NG 

0108 

24, 3461 

77776 

1 

EXIT 

0109 

REF 

1 

24,3462 

3 3502 

0 

CAF 

V06N43 

DISPLAY  LAT, LONG, ALT 

01  in 

RFF 

1 SB 

1 AST 

6 6-5 

24,3463 

0 46  16 

1 

TC 

BANKCALL 

L AT , LONG  = 1/2  REVS  BO 

0111 

REF 

12 

LAST 

665 

24, 3464 

20351 

1 

CADR 

GCFL  ASH 

ALT  = KM  314 

0112 

REF 

14 

LAST 

665 

24, 3465 

0 6001 

0 

TC 

GOTOPOOH 

TERM 

011^ 

RFF 

L5 

1 AST 

666 

24,3  466 

0 6001 

0 

TC 

_ GOTOPOOH 

0114 

REF 

69 

LAST 

66  5 

24, 3467 

0 6036 

1 

TC 

INTPRET 

V32E  RECYCLE 

0115 

24,3470 

43345 

1 

□LOAD 

DAD 

REF 

7 

1 AST 

66  5 

24,3471 

037  57 

1 

P2LT IME 

0117 

REF 

i 

24, 3472 

11477 

0 

6 0 OS  EC 

600  SECONDS  OR  10  MIN 

0118 

REF 

24 

LAST 

6 6 5 

24,3473 

01046 

1 

STORE 

DSPT EMI 

74t  3474 

77634 

0 

RT  B 

0120 

REF 

1 

24,3475 

51412 

1 

P21PR0G1 

0121 

24,3476 

00003 

1 

600SEC 

2DEC 

60000 

10  MIN 

7 4-,  3 477 

251  40 

o 

0122 

24,3500 

00001 

0 

P210NENN 

OCT 

0000  1 

NEEDED  TO  DETERMINE  VEHICLE 

0123 

24,3501 

00000 

1 

OCT 

00000 

TO  BE  INTEGRATED 

01  24 

24,  3 502 

01453 

1 _ 

V06N43 

VN 

00643 

0125 

24, 3503 

01442 

1 

V6N34 

VN 

00634 

GAP: 

L 

P0010 

ROOll 

R0012 


R0013 

R0014 

R0015 

R0016 

R0017 

R0018 


R0019 

R0020 


R0021 


R0022 

R0023 

R0024 

R0025 

R0026 

R00  27 
R0028 

R0029 

R0030 

R0031 

R0032 


R0033 

R0034 

R0035 

R0036 


R0037 

R0038 

R0039 

R0040 

R0041 
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TRANSFER  PEASE  INITIATION  (TPI)  PROGRAMS  (P34  AND  P74) 

MOD  NC  -l  — L-GG  SECTION  - P32-P35,  P72-P75 

MOD  3Y  WHITE. P DATE  1JUNE67 

PURPOSE 

(1)  TO  CALCULATE  THE  REQUIRED  OELTA  V AND  OTHER  INITIAL  CONDITIONS 
REQUIREC  BY  THE  ACTIVE  VEHICLE  FOR  EXECUTION  OF  THE  TRANSFER 
PHASE  INITIATION  (TPII  MANEUVER,  GIVEN  - 

(A)  TIME  OF  IGNI1 ION  TIG  (TPI)  OR  THF  ELEVATION  ANGLE  (EL  OR 
THE  ACTIVE/PASSIVE  VEHICLE  LOS  AT  TIG  (TPI). 


(B)  CENTRAL  ANGLE  OF  TRANSFER  (CENTANG)  FROM  TIG  (TPI)  TO 
INTERCEPT  TIME  (TIG  ( T P F ) ) . 


(2)  TO  CALCULATE  TIG  (TPI)  GIVEN  E UR  E GIVEN  TIG  (TPI). 

(3)  TO  CALCULATE  THESE  PARAMETERS  BASED  UPON  MANEUVER  DATA 
APPROVED  AND  KEYED  INTO  THE  DSKY  BY  THF  ASTRONAUT. 

(4)  TO  DISPLAY  TP  THE  ASTRONAUT  AND  THE  GROUND  CERTAIN  DEPENDENT 
VARIABLES  ASSOCIATED  WITH  THE  MANEUVER  FOR  APPROVAL  BY  THE 
ASTRONAUT/GROUND. 

(5)  TO  STORE  THE  TPI  TARGET  PARAMETERS  FOR  USE  -BY  THE  DESIRED 
THRUSTING  PROGRAM. 


ASSUMPTIONS 


(1)  LM  ONLY  - THIS  PROGRAM  IS  BASED  UPON  PREVIOUS  COMPLETION  OF 
THE  CONSTANT  DELTA  ALTITUDE  (CDH)  PROGRAM  [P33/P73J. 
THEREFORE  - 


(A)  AT  A SELECTED  TPI  TIME  (NOW  IN  STORAGE)  THE  LINE  OF  SIGHT 
BETWEEN  THE  ACTIVE  AND  PASSIVE  VEHICLES  WAS  SELECTED  TO  BE 
A PRESCRIBED  ANGLE  ( E ) (NOW  IN  STORAGE)  FROM  THE 
HOR  IZONTAL - PLANE  DEFINED  BY  THE  ACTIVE  VEHICLE  POSITION. 


(B)  THE  TIME  BETWEEN  CDH  IGNITION  AND  TPI  IGNITION  WAS 
COMPUTED  ZCLBE  GREATER  THAN  10  MINUTES-. 


(C)  THE  VARIATION  OF  THE  ALTITUDE  DIFFERENCE  BETWEEN  THF 
- ORB  ITS  WAS  MINIMIZED. 


(D)  THE  PERICENTER  ALTITUDES  OF  ORBITS  FOLLOWING  C SI  AND 


CDH  WERF  COMPUTED  TO  BE  GREATER  THAN  35,000  FT  FOR  LUNAR 


R0042 


GAP  : 

L 

R0043 

R0044 

R0045 

R0046 

R0047 

R0048 
R 0049 

R0050 

R0051 

R0052 

R0053 

R0054 

R0055 

R0056 

R0057 

R0058 

R0059 

R0060 

R0061 

R0062 

R0063 

R 0064 

R0065 

R0066 
R0067 
R 0068 
R0069 

R0070 

R0071 

R0072 

R0073 

R0074 

R0075 

R0076 

R0077 

R0078 

R0079 

P 0080 
R0081 
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ORBIT  OR  85  NM  FOR  EARTH  ORBIT. 

(E)  THP  CSI  AND  CDH  MANEUVERS  WERE  ASSUMED  TO  BS  P ARALLFL  -TO 
THE  PLANE  OF  THE  PASSIVE  VEHICLE  ORBIT.  HOWEVER,  CREW 
MODIFICATION  OF  DELTA  V (LV)  COMPONENTS  MAY  HAVE  RESULTED 
IN  AN  OUT-OF-PLANE  MANEUVER. 

(2)  STATE  VECTOR  UPDATED  BY  P27  ARE  DISALLOWED  DURING  AUTOMATIC 
STATE  VECTOR  UPDATING  INITIATED  BY  P20  I SEE_  ASSUMP  LION  I 4 1 ) . 

(3)  THIS  PROGRAM  MUST  BE  DONE  OVER  A TRACKING  STATION  FOP  REAL 
TIME  GROUND  PARTICIPATION  IN  DATA  INPUT  AND- OUTPUT COMPUTED 
VARIABLES  MAY  BE  STORED  FOR  LATER  VERIFICATION  BY  THE  GROUND. 
THESE  STORAGE  CAPABILITIES  ARE  LIMITED  ONLY  TO  THE  PARAMETERS 

FOR  ONE  THRUSTING  MANEUVER  AT  A TIME  EXCEPT  FQR_  CO  NCENTRIC 

FL IGHT  PLAN  MANEUVER  SEQUENCES. 

(4)  THE  RENDEZVOUS  RADAR  MAY  OR  MAY  NOT  BE  USED  10  UPDATE  T-HE-LM 
OR  CSM  STATE  VECTORS  FOR  THIS  PROGRAM.  IF  RADAR  USE  IS 
DESIRED  THE  RADAR  WAS  TURNED  ON  AND  LOCKED  ON  THE  CSM  BY 
PREVIOUS  SELECTION  OF  P20.  RADAR  SIGHTING  MARKS  WILL  BE  MADE 
AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN  ENABLED  BY  THE 
TRACK  AND  UPDATE  FLAGS  (SEE  P20).  THE  RENDEZVOUS  TRACKING 
MARK COUNTER  IS  ZEROED  BY  THE  SELECTION  OF  P20  AND  AFTER  EACH 
THRUST  I NG  MANEUVER. 

(5)  THE  ISS  NEED  NOT  BE  ON  TO  COMPLETE  THIS  PROGRAM. 

(6)  THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 

ACTIVE  VEHICLE  FLAG  - DESIGNATES  THE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGRAM  WHICH 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START-  OF 
EACH  RENDEZVOUS  PRE-THRUST  I NG  PROGRAM. 


FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 
SELECTED  THE  FINAL  MANEUVER  COMPUTATION  CYCLE. 

EXTERNAL  DELTA  V FLAG  - DESIGNATES  THE  TYPE  OF  STEERING 
REQUIRED  FOR  EXECUTION  OF  THIS  MANEUVER  BY  THE  THRUSTING 
PROGRAM  SELECTED  AFTER  COMPLETION  OF  THIS  PROGRAM. 

(7)  CNCE  THE  PARAME  TWRS  REQUIRED  FOR  COMPUTION  OF  THE  MANEUVER 
HAVE  BEEN  COMPLETELY  SPECIFIED,  THE  VALUE  OF  THF  ACTIVE 
VFHICLE  CENTRAL  ANGLE  OF  TRANSFER  IS  COMPUTED  AND  STOPFD. 

THIS  NUMBER  WILL  BE  AVAILABLE  FOR  DISPLAY  TO  THE  ASTRONAUT 
THROUGH  THE  USE  OF  V06N52. 

THE  ASTRONAUT  WILL  CALL  THIS  DISPLAY  TI  VERIFY  THAT  THF 
CENTRAL  ANGLE  OF  TRANSFER  OF  THE  ACTIVE  VEHICLE  IS  NOT  WITHIN 
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R0082  170  TO  190  DEGREES.  IF  THE  ANGLE  IS  WITHIN  THIS  ZONE  THE 

R0083  ASTRONAUT  SHOULD  REASSESS  THE  INPUT  TARGETING  PARAMETERS  BASED 

ROO 86  UPON  -BE  LTA  V AND  EXPECTED  .MANEUVER — T-l-M-E. — 

R0085  (81  THIS  PROGRAM  IS  SELECTED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY  - 

R 00 86  P36  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE. 

R0087  P76  IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE. 

R0088  INPUT 


R0089  (1)  TTPI  TIME  OF  THE  TPI  MANEUVER 

R0090  (2)  ELEV  DESIRED  LOS  ANGLE  AT  TPI 

R0091  (3)  CENTANG  ORBITAL  CENTRAL  ANGLE  OF  THE  PASSIVE  VEHICLE  DURING 

R0092  TRANSFER  FROM  TPI  TO  TIME  OF  INTERCEPT 

R0093  OUTPUT 


R0094 
R ODQS 

(1) 
( ? ) 

TRKMKCNT 

TTnan 

NUMBER  OF  MARKS 
TIME  TO  GO 

P 0 0 9 6 

(3  ) 

+MGA 

MIDDLE  GIMBAL  ANGLE 

R 0097 

(6  ) 

TTPI 

COMPUTED  TIME  OF  TPI  MANEUVER 

R 009ft 

OR 

R0099 

ELEV 

COMPUTED  LOS  ANGLE  AT  TPI 

R0100 

(5) 

POSTTPI 

PERIGEE  ALTITUDE  AFTER  THE  TPI  MANEUVER 

R0101 

( 6 ) 

DELVTPI 

MAGNITUDE  OF  DELTA  V AT  TPI 

R0102 

(7) 

CELVTPF 

MAGNITUDE  OF  DELTA  V AT  INTERCEPT 

R0103 

(8  ) 

DVLOS 

DELTA  VFLOCITY  AT  TPI  - LINE  OF  SIGHT 

R 01 06  19)  CELVLVC  DELTA  VEL0C1TY_AT  _TPI  - LOCAL  VERTICAL  .COORDINATES 


R 01  0 5 

DCWNL INK 

R01 16 
R0115 
R01 16 

(1)  TTPI 
12)  TIG 
( 3 ) EL  EV  - 

TIME  OF  THE  TPI  MANEUVER 
TIME  OF  THE  TPI  MANEUVER 
DESIRED  LUS  ANGLE  AT  TPI 

R01 17 
R01 18 
R01 19 

(6)  CENTANG 
(5)  C FL  VEF  T 3 

ORBITAL  CENTRAL  ANGLE  OF  THE  PASSIVE  VEHICLE  DURING 

TRANSFER  FROM  TPI  TO  TIME  OF  INTERCEPT 

DF1TA  VELOCITY  AT  TPI  - REFERENCE  C.  00R  DIN  ATFS 

R0120 
R01  21 

(6)  TPASS6  TIME  OF  INTERCEPT 

CCMMUN IC AT  ION  TO  THRUSTING  PROGRAMS 

R0122 

R0123 

R0126 

(1)  TIG 

12)  RT  ARC- 

13)  TPASS6 

TIME  OF  THE  TPI  MANEUVER 
OFFSET  TARGET  POSITION 
TIME  OF  INTERCEPT 

R0125 

16)  XDELVFLG 

RESET  TO  INDICATE  LAMBERT  (AIMPOINT)  VG  COMPUTATION 

RO 126 

SUBROUTINES  USED 

R0127 

A V FL  AG A 

669 
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R0128 
RO  129 
uni  m 

AVFLAGP 
VNPOCH 
D T 4P1  A Y F 

r\  vj  1 

R0131 
R0132 
P 0 1 33 

U 1 J 1 L M 1 L 

SELECTMU 
PRECSET 
533/ 34. l 

R0134 
R0135 
R01  36 

ALARM 

BANKCALL 

GOFI  A8H 

R0137 
R0138 
R 0 1 39 

UUr  t MO  n 

GOTOPOOH 
TI METHET 
S3 4/ 3 5. 2 

RO  1 40 
R0141 
r 0142 

PER  I AP01 

SHIFTR1 

S34/35.5 

RO  1 43 

VN 1645 

0144 

p E F 

3 

| AST 

6 6 0 

35t  P 000 

SETLOC 

CSI  / CDH 

0145 

35,2511 

BANK 

0146 

REF 

16 

LAST 

66  2 

E 7, 1466 

EB ANK= 

SUBE  XIT 

0 1 4-7 

REF 

1 

COUNT  * 

$ $/ P 3474 

0148 

REF 

3 

LAST 

637 

35,2511 

0 2313 

1 

P 34 

TC 

AVFL AGA 

0149 

REF 

1 

35,2512 

0 2514 

0 

TC 

P 34/ P74A 

01  50 

RELF 

3 

LAST 

63  7 

35,2513 

0 2320 

1 

P74 

TC 

AVFLAGP 

0151 

REF 

4 

LAST 

66  2 

35,2514 

0 2325 

1 

P34/P74  A 

TC 

P23FLGON 

01515 

REF 

2 

LAST 

631 

35,2515 

3 3662 

0 

CAF 

V06N37 

01^2 

REF 

1 ^ 

LAST 

66  ^ 

35r ? 51 6 

0 365] 

n 

TC 

V MPOCH 

0152  1 

35,2517 

0 0006 

i 

EXTEND 

01522 

REF 

1 

35,2520 

3 3706 

0 

DC  A 

1 30DEG 

01  52  3 

R FF 

5 

LAST 

644 

35,2521 

53*617 

1 

OXCH 

CENT  ANG 

0153 

REF 

i 

35,2522 

0 3630 

1 

TC 

DISPLAYE 

0154 

REF 

70 

LAST 

666 

35,2  523 

0 6036 

1 

TC 

I NT P RET 

0155 

35,2  524 

71214 

o 

CLEAR 

DLOAD 

0156 

REF 

2 

LAST 

8 5 

35,2525 

01270 

0 

ETPI FLAG 

0157 

REF 

14 

LAST 

654 

35,2  526 

03634 

0 

TTP  I 

0158 

REF 

15 

LAST 

66  2 

35,2527 

17440 

1 

STODL 

T IG 

0159 

REF 

6 

LAST 

647 

35,2  530 

02263 

1 

ELEV 

0160 

35,2531 

43054 

1 

6ZE 

SET 

0161 

REF 

-1-- 

35,2  532 

72534 

0 

P34/ P74B 

0162 

REF 

3 

LAST 

670 

35,2533 

01070 

1 

ETPI FLAG 

0163 

35,2534 

77624 

1 

P34/P74B 

CALL 

0164 

REF 

3 

LAST 

637 

35,  2 535 

20041 

o 

SELECTMU 

0165 

0032 

DELELO 

EQUALS 

26D 

0166 

35, 2536 

43145 

0 

P34/P74C 

DLOAD 

SET 

0167 

REF 

7 

LAST 

62  0 

35,  2 537 

06424 

0 

ZERO  VECS 

0168 

REF 

2 

LAST 

637 

35,  2 540 

03460 

0 

ITSW  ICH 

0169 

35, 2541 

43014 

0 

BON 

CLEAR 

0170 

REF 

4 

LAST 

670 

35,2  542 

01310 

1 

FTP  I FLAG 

0171 

REF 

1 

35,2543 

72545 

0 

SWCH  SET 

0172 

REF 

3 

LAST 

670 

35, 2544 

03660 

1 

ITSW  ICH 
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SET  UPDATFLG,  TPACKFLG 
T TP  I 


ELEV  AND  CENTANG 
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P 75 

0173 

REF 

4 

LAST 

638 

35,2545 

02323 

1 

SWCHSET 

STORE 

NOMT  PI 

0174 

35,  2546 

43345 

1 

I NT  LOOP 

DLOAD 

DAD 

REF 

13 

1 AST 

6 7 0 

35,2 547 

036  34 

-0 

TTPI 

0176 

REF 

5 

LAST 

671 

35,2550 

02323 

1 

NOMT  PI 

0177 

REF 

25 

LAST 

66  5 

35, 2551 

34041 

0 

STCALL 

TDEC  1 

01  7ft 

REF 

2 

LAST 

652 

35,2552 

46341 

0 

P R E C SET 

0179 

35,  2553 

77624 

1 

CALL 

0180 

REF 

2 

LAST 

637 

35,2554 

72726 

1 

S 33 / 34. 1 

0 1 ft  1 

35,2555 

77454 

1 

BZE 

EXIT 

0182 

REF 

1 

35,2556 

72567 

0 

SWCHCLR 

0183 

REF 

28 

LAST 

637 

35, 2557 

0 5567 

0 

TC 

ALARM 

0 1 ft4- 

35,^560 

006  11 

1 

OCT 

6 11 

0185 

REF 

3 

LAST 

637 

35,2561 

3 5006 

1 

CAF 

V 05  N 09 

0186 

REF 

1 59 

LAST 

666 

35,2562 

0 46  16 

1 

TC 

BANKCALL 

m R7 

R FF 

13 

1 AST 

666 

35,2  563 

20351 

1 

CADR 

GOFL ASH 

0188 

REF 

16 

LAST 

666 

35, 2564 

0 6001 

0 

TC 

GOTO  POOH 

0189 

REF 

2 

LAST 

670 

35,2565 

0 2514 

0 

TC 

P34/ P74 A 

01  90 

35,2566- 

0 2557 

1 

TC 

-7 

0191 

35, 2567 

43014 

0 

SWCHCLR 

BONCLR 

BON 

0192 

REF 

4 

LAST 

67  0 

35, 2 570 

03600 

1 

ITSL  ICH 

0193 

REF 

i 

35,2571 

72546 

0 

I NT  LOOP 

0194 

REF 

5 

LAST 

670 

35,2572 

01310 

1 

E TP  I FLAG 

0195 

REF 

-1- 

35,2573 

72577 

1 

P34/P74D 

0196 

35, 2574 

77776 

1 

EXIT 

0197 

REF 

2 

LAST 

67  0 

35,2575 

0 3630 

1 

TC 

DISPLAYE 

0198 

REF 

1 

35,2  576 

0 2602 

1 

TC 

P34/ P74F 

0199 

35,2577 

77776 

1 

P34/P74D 

EXIT 

0200 

REF 

3 

LAST 

670 

35, 2600 

3 3662 

0 

CAF 

V06N37 

020  1 

REF 

14 

LAST 

670 

35, 2 601 

0 36  51 

0 

TC 

VNPOCH 

0202 

REF 

71 

LAST 

670 

35, 2602 

0 60  36 

1 

P34/P74E 

TC 

I NT  P RET 

0203 

35,2603 

71201 

1 

SETPD 

DLOAD 

0204 

35, 2604 

00001 

0 

QD 

0205 

REF 

5 

LAST 

662 

35,2605 

033  76 

0 

RTX  1 

0206 

REF 

12 

LAST 

65  8 

35,2606 

14047 

1 

STODL 

XI 

0207 

REF 

6 

LAST 

67  C 

35,2607 

03  617 

1 

CENTANG 

0208 

35, 2610 

71406 

0 

PUSH 

COS 

0209 

REF 

4 

LAST 

657 

35,2611 

16732 

0 

STODL 

CSTH 

0210 

35,2612 

77756 

0 . 

SIN 

0211 

REF 

6 

LAST 

657 

35, 2613 

26730 

1 

STOVL 

SNTH 

0212 

REF 

6 

LAST 

652 

35 ,2614 

03550 

1 

RPAS  S3 

0213- 

35,2615 

77657 

0 

VSR* 

0214 

35,2616 

571  76 

0 

0,2 

0215 

REF 

5 

LAST 

65  7 

35,2617 

26655 

0 

STOVL 

RVEC 

02  16 

REF 

3 

LAST 

65  2 

35, 2620 

03556 

1 

VPASS^ 

0217 

35,2621 

43057 

1 

VSR* 

SET 

0218 

35,2622 

571  76 

0 

0,2 

0219 

REF 

5 - 

LAST 

657 

35,2623 

03466 

0 

R VSK 

0220 

REF 

6 

LAST 

657 

35,2624 

36744 

0 

STCALL 

VVEC 

0221 

REF 

5 

LAST 

65  7 

35,2625 

24745 

1 

TIMETHET 
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PROCEED 
V 3 2 _ 


DISPLAY  TTPI 

DISPLAY  ELEV  AND  CENTANG 


T TP  I 


GAP  : 

L 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

02  36 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

02  54 
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35,2626 

77745 

1 

I3L0AD 

REF 

16 

LAST 

671 

35,2627 

03634 

0 

TTP  I 

036  06 

1 

STORE 

I NT  I ME 

FOR  INITVEL 

~R  E F 

35,2631 

77615 

0 

DAO 

REF 

2 

LAST 

506 

35, 2632 

00037 

0 

T 

RENDEZVOUS  TIME 

3 R t 2 63  3 

37627 

0 

STCALL 

TPASS4 

_ FOfi  INITVEL 

REF 

1 

L MO  4 

35,2634 

73250 

1 

S 34/ 35. 2 

35,2635 

51575 

1 

VLOAD 

ABVAL 

L AS  T 

h 6 3 

35  T 2 636 

03366 

1 

DEL  V EET3 

REF 

6 

LAST 

330 

35,2637 

27574 

1 

STOVL 

DELVTPI 

REF 

1 

35, 2640 

03504 

0 

V PAS  S4 

35, 2 641 

51451 

0 

VSU 

A B V A L 

RFF 

1 

35, 2642 

03564 

0 

VTPP  IMF 

REF 

3 

LAST 

330 

35,2643 

26354 

1 

STOVL 

OELVTPF 

REF 

7 

1 ART 

652 

35, 2644 

03534 

0 

RAC  T 3 

35,2645 

45115 

0 

POVL 

CALL 

REF 

2 

LAST 

6 6 3 

35,2646 

02343 

1 

V I PR IME 

REF 

4 

| ART 

66  3 

35, 2647 

462  77 

1 

PER  I AP01 

35,2650 

77624 

1 

CALL 

REF 

10 

LAST 

663 

35,2651 

46407 

0 

SHIF  TP  1 

RFF 

4 

L AR  T 

3 3 n 

35,2  652 

17604 

0 

STODL 

POST  TP  I 

REF 

17 

LAST 

672 

35, 2653 

03634 

0 

TTP  I 

REF 

16 

LAST 

670 

35, 2654 

03440 

1 

STORE 

TIG 

35*  2 655 

77776 

1 

EX  I T 

REF 

1 

35, 2656 

3 3664 

0 

CAF 

V06N58 

REF 

15 

LAST 

67  1 

35,2657 

0 3651 

0 

TC 

VNPCGH 

RFF 

12 

1 ART 

f>7  1 

35,2  660 

0 60  36 

1 

TC 

INTPRET 

35, 2661 

77624 

1 

CALL 

REF 

i 

35, 2662 

73456 

1 

S 34/  35.5 

35,2  663 

77624 

1 

CALL 

REF 

4 

LAST 

663 

35, 2664 

73542 

0 

VN1645 

35,2665 

77650 

1 

GOTO 

RFF 

1 — 

35. 2666 

72536 

1 

P34/ P74C 

GAP: 

L 

P0255 

R0256 

R0257 

R0258 

R0259 

R0260 

R0261 

R0262 

R0263 

R0264 

R0265 

R0266 

R0267 

R0268 

R0269 

R02  70 
R0271 

R0272 

R0273 

R0274 

R0275 

R0276 

R0277 

R0278 

R0279 

R0280 

R0281 

R0282 

R0283 

R0284 

R0285 

R0286 

R0287 

R02  88 
R0289 
R0290 
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RENDEZVOUS  MID-COURSE  MANEUVER  PROGRAMS  ( P3 5 AND  P75) 

MOD  NC  -I  LOG  SECTION  - P32-P35,  P72-P75 

MOD  BY  WHITE. P DATE  1JUNE67 

PURPOSE 

(1)  TO  CALCULATE  THE  REQUIRED  DELTA  V AND  OTHER  INITIAL  CONDITIONS 
REQUIRED  BY  THE  ACTIVE  VEHICLE  FOR  EXECUTION  OF  THE  NEXT 
MIDCOURSE  CORRECTION  OF  THE  TRANSFER  PHASE  OF  AN  ACTIVE 
VEHICLE  RENDEZVOUS. 


(2)  TO  DISPLAY  TO  THE  ASTRONAUT  AND  THE  GROUND  CERTAIN  DEPENDENT 
VARIABLES  ASSOCIATED  WITH  THE  MANEUVER  FOR  APPROVAL  BY  THE 
ASTRONAUT /GROUND. 

(3)  TO  STORE  THE  TPM  TARGET  PARAMETERS  FOR  USE  8Y  THE  DESIRED 

THRUSTING  PRQGRA&. 

ASSUMPTIONS 

(1)  THE  ISS  NEED  NOT  BE  ON  TO  COMPLETE  THIS  PROGRAM. 

(2)  STATE  V ECTOR -UPDATE  S -BY-  P27  ARE  DISALLOWED  DURING  AUTOMATIC 
STATE  VECTOR  UPDATING  INITIATED  BY  P20  (SEE  ASSUMPTION  13)1. 

(3)  THE  RENDEZVOUS  RADAR  I-S  ON  AND- IS  LOCKED- ON  THE  C5AL.  THIS  WAS 
DONE  DURING  PREVIOUS  SELECTION  OF  P20.  RADAR  SIGHTING  MARKS 
WILL  BE  MADE  AUTOMATICALLY  APPROXIMATELY  ONCE  A MINUTE  WHEN 
ENABLED  BY  THE  TRACK  AND  UPDATE  FLAGS  IS EE  P2D) . THE 
RENDEZVOUS  TRACKING  MARK  COUNTFR  IS  ZEROED  BY  THE  SELECTION  OF 
P20  AND  AFTER  EACH  THRUSTING  MANEUVER. 


(4)  THE  OPERATION  OF  THE  PROGRAM  UTILIZES  THE  FOLLOWING  FLAGS  - 

ACTIVE  VEHICLE — FLAG  = DESTGN ATES  THE  VEHICLE  WHICH  IS 
DOING  RENDEZVOUS  THRUSTING  MANEUVERS  TO  THE  PROGPAM  WHICH 
CALCULATES  THE  MANEUVER  PARAMETERS.  SET  AT  THE  START  OF 
EACH  RENDEZVOUS  RRE- THRUST I NG  PROGRAM. 


FINAL  FLAG  - SELECTS  FINAL  PROGRAM  DISPLAYS  AFTER  CREW  HAS 
SELECTED- THE  FINAL  MANEUVER  COMPUTATION  CYCLE.. 

EXTERNAL  DELTA  V FLAG  - DESIGNATES  THE  TYPE  OF  STEERING 
REQUIRED  FOR  EXECUTION  OF.  THIS  MANEUVER  BY  THE  THRUSTING 
PROGRAM  SELECTED  AFTER  COMPLETION  OF  THIS  PROGRAM. 

15)  THE  TIME  OF  INTERCEPT  (TIINTI)  WAS  DEFINED  BY  PREVIOUS 

COMPLETION  OF  THE  TRANSFER  PHASE  INITIATION  (TPI)  PROGRAM 
(P34/P74)  AND  IS  PRESENTLY  AVAILABLE  IN  STORAGE. 


GAP: 

L 

R 0291 
R 0292 
R0293 
R 0294 
R0295 

R0296 
R029T 
R0298 
R 0299 
R0300 

R0301 

R 0302 

R0303 

R0304 

R03G5 

R0306 

R03D7 

R0308 

R0309 

R0310 

R0311 

R0312 

R0325 

R0326 

R0327 

R0328 

R 0329 
R0330 
R0331 
R0332 

R0333 

R0334 
R0335 
R0336 
R0337 
R0338 
R 0339 
R0340 
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(6)  ONCE  THE  PARAMETERS  REQUIRED  FOR  COMPUTION  OF  THE  MANEUVER 
HAVE  BEEN  COMPLETELY  SPECIFIED,  THE  VALUE  OF  THE  ACTIVE 
VEHICLE  CENTRAL  ANGLE  OF  TRANSFER  IS  COMPUTED  AND  STOP-ED. 

THIS  NUMBER  WILL  BE  AVAILABLE  FOR  DISPLAY  TO  THE  ASTRONAUT 
THROUGH  THE  USE  OF  V06N52. 

THE  ASTRONAUT  WILL  CALL  THIS  DISPLAY  TO  VERIFY  THAT  THE 
CENTRAL  ANGLE  OF  TRANSFER  OF  THE  ACTIVE  VEHICLE  IS  NOT  WITHIN 
170  TO  190  DEGREES-.  IF  THE  ANGLE  IS  WITHIN  THIS.  ZONE  THE 
ASTRONAUT  SHOULD  REASSESS  THE  INPUT  TARGETING  PARAMETERS  BASED 
UPON  DELTA  V AND  EXPECTED  MANEUVER  TIME. 


(7)  THIS  PR.CGRAM  IS  SELECTED  BY  THE  ASTRONAUT  BY  DSKY  ENTRY  - 
P35  IF  THIS  VFHICLE  IS  ACTIVE  VEHICLE. 

P75  IF  THIS  VEHICLE  IS  PASSIVE  VEHICLE. 


I NPUT 


(1)  TPASS4  TIME  OF  INTERCEPT  - SAVED  FROM  P34/P74 

OUTPUT 


(1)  TRKMKCNT  NUMBER  OF  MARKS 

(2)  TTOGO  TIME  TC  GO 

(3)  +MGA  MIDDLE  GIMBAL  ANGLE 

(4)  CVLOS  DELTA  VELOCITY  AT  MID  - LINE  OF  SIGH! 

(5)  OELVLVC  DELTA  VELOCITY  AT  MID  - LOCAL  VERTICAL  COORDINATES 

DOWNLINK 

(1)  TIG  TIME  OF  THE  TPM  MANEUVER 

12)  DELVEET3  DELTA  VELOCITY  AT  TPM  - REFERENCE  COORDINATES 
(3)  TPASS4  TIME  OF  INTERCEPT 
COMMUNICATION  TO  THRUSTING  PROGRAMS 


(1)  TIG  TIME  OF  THE  TPM  MANEUVER 

(2)  RTARG  OFFSET  TARGET  POSITION 

(3)  TPASS4  TIME  OF  INTERCEPT 

(4)  XDELVFLG  RESET  TO  INDICATE  LAMBERT  (AIMPOINT)  V G COMPUTATION 

SUBROUTINES  US-ED  — 

AVFLAGA 

AVFLAGP 

LOADTIME 

SELECTMU 

PRECSET 

S34/35. 1 

S34/35.2 
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776  15 

0 

DAD 

0790 

REF 

3 

LAST 

689 

35, 3553 

33702 

1 

DP-. 01 

0791 

REF 

4 

LAST 

68  9 

35,3554 

022  57 

0 

STORE 

+ MGA 

0792 

35,3555 

77414 

0 

BOFF 

EXIT 

0793 

REF 

1 

35,3556 

01742 

1 

REFSMFLG 

0794 

REF 

2 

l AST 

68  9 

3 5,  3 55  7 

73570 

1 

GFT45 

0795 

REF 

1 

35, 3560 

0 3643 

0 

TC 

P3X0RP7X 

0796 

35,3561 

0 3563 

1 

TC 

+ 2 

0797 

REF 

3 

L AST 

689 

35, 3562 

0 3571 

1 

TC 

GET45  +1 

0798 

REF 

76 

LAST 

68  8 

35,3563 

0 6036 

1 

TC 

I NT P PET 

0799 

35, 3564 

41575 

0 

VLOAD 

PUSH 

0800 

REF 

10 

L AST 

68  8 

35,3  565 

03654 

o 

^ELV  SIN 

0801 

35, 3566 

77624 

1 

CALL 

0802 

REF 

1 

35,3567 

20005 

0 

GET+MGA 

0803 

35,3  570 

77776 

1 

GET  45  EXIT 

0804 

REF 

1 

35, 3571 

0 2376 

1 

TC 

COMPTGO 

0805 

REF 

22 

LAST 

689 

35, 3572 

3 1466 

1 

CA 

SUBEXIT 

0806 

REF 

1 

35, 3573 

55' 462 

1 

TS 

QSAV ED 

0807 

REF 

6 

LAST 

615 

35, 3574 

3 4777 

1 

CAF 

1 SEC 

0808 

REF 

161 

LAST 

687 

35, 3575 

0 4616 

1 

TC 

BANKCALL 

0809 

REF 

10 

LAST 

526 

35,3576 

01735 

1 

CADR 

DELAYJOB 

0810 

REF 

1 

35,3577 

3 3667 

0 

CAF 

V16N45 

0811 

REF 

162 

LAST 

689 

35,3600 

0 4616 

1 

TC 

BANKCALL 

0812 

REF 

15 

LAST 

687 

35, 3601 

20351 

1 

CADR 

GOFL  ASH 

0813 

REF 

1 

35,3602 

0 3605 

1 

TC 

KILC  LOCK 

0814 

REF 

1 

35, 3603 

0 3610 

0 

TC 

N45PP0C 

0815 

REF 

1 

35,3604 

0 3620 

0 

TC 

CLUPOATF 

0816 

REF 

13 

LAST 

443 

35, 3605 

3 0005 

1 

KILCLOCK  CA 

Z 

0817 

RFF 

2 

LAST 

66  C 

35,3606 

55*163 

0 

TS 

DISPDEX 
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MGA  = -.01 

MGA  = -.02 

P3X 

P7X 

COMPUTE  MGA 

INITIATE  TASK  TO  UPDATE  T TOGO 
TRKMKCNT , TTOGO,  +MGA 


TERMINATE 

PROCEED 

RECYCLE  - RETURN  FOR  INITIAL  COMPUTATION 
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L 

P39- 

P35 , 

P 79- 

P75 

0818 

REF 

18 

LAST 

687 

35, 3607 

0 6001 

0 

TC 

GOTO  POOH 

0819 

REF 

16 

LAST 

615 

35, 3610 

9 0076 

1 

N95PR0C 

CS 

FL AGWRD2 

nrr 

5 7 2 

35, 361 1 

7 9796 

_1 

MASK 

BJ-T-6 

Oo  -cU 

K tr 

3 7 

L Wo  l 

0821 

35,3612 

0 0006 

1 

EXTEND 

0822 

REF 

2 

LAST 

689 

35,3613 

1 3605 

0 

BZF 

KILC  LOCK 

HR 

R EG 

25- 

LAST 

5 30 

35, 3619 

0 5353 

4 

TC 

PHASCHNG 

ur  c o 
0829 

35,3615 

09029 

0 

OCT 

09029 

0825 

REF 

35 

LAST 

687 

35,3616 

0 5509 

0 

TC 

UPFL  AG 

0826 

REF 

6 

LAST 

6G9 

35,3617 

00097 

-1— 

ADRES 

F INALFLG 

0827 

REF 

19 

LAST 

689 

35, 3620 

3 0005 

1 

CLUPOATE 

CA 

Z 

0828 

REF 

3 

LAST 

689 

35,3621 

55 ' 163 

0 

TS 

DISPDEX 

0829 

REF 

26 

LAST 

_ 690 

35, 3622 

0 5353 

_1_ 

TC 

PHASCHNG 

0830 

35,3623 

09029 

0 

OCT 

09029 

0831 

REF 

77 

LAST 

689 

35, 3629 

0 6036 

1 

TC 

INTPRET 

0832 

35,3625 

52019 

0 

CLEAR 

GOTO_ 

0833 

REF 

11 

LAST 

687 

35, 3626 

00670 

0 

UPDATFLG 

0839 

REF 

2 

LAST 

685 

35, 3627 

03962 

1 

QS A V ED 
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F INALFLG  IS  SET-FLASH  V 37-AWA I T NEW  PGM 


SET 

F INALFLG 
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P0835  DISPLAYE 

R 0836  SUBROUTINES  USED 

R0837  BANKCALL 

R0838  C-OFLASHR 

R0839  GOTOPOOH 

R0840  BLANKET 


R0841 

0842 

0843 

Rf  F 

EN 
1 1 

OOF JOB 
1 a<;t 

fi  *5 

35. 3630 

35. 3631 

0 0006 
23' 461 

1 

0 

DISPLAYE  EXTEND 

QXCH  NORMEX 

0844 

REF 

2 

LAST 

631 

35,3632 

3 3663 

1 

CAF 

V 0 6 N 5 5 

0845 

REF 

163 

LAST 

689 

35,3633 

0 4616 

1 

TCR 

BANKCALL 

R FF 

1 

35,  3 634 

20510 

1 

CADR 

GOFL AS HP 

0847 

REF 

19 

LAST 

690 

35,3635 

1 6001 

1 

TCF 

GOTOPOOH 

0848 

REF 

12 

LAST 

69  1 

35,3636 

0 1461 

0 

TC 

NORMEX 

0849 

35,3637 

1 3632 

TCF 

_ -3 

0850 

REF 

36 

LAST 

622 

35, 3640 

3 4753 

1 

CAF 

B IT1 

BLANK  R1 

0851 

REF 

10 

LAST 

619 

35,3641 

0 5464 

1 

TCR 

BLANKET 

0852 

REF 

101 

LAST 

619 

35,  3 642 

_ 1 5155 

1 

TCF 

ENDOFJOB 
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L 

P34- 

-P35 , 

P74-P75 

USER'S  PAGE  NO. 

26 

E7  S3 

P0853 

7.  774^ 

0 

P^XnRP7X  fAF 

H I G H 9 

0855 

REF 

11 

LAST 

509 

35,  3644 

7 1011 

1 

MASK 

MODR EG 

0856 

35, 3645 

0 0006 

1 

EXTEND 

0 8^7 

3 5,  3 646 

1 3650 

0 

BZF 

+2 

0858 

REF 

185 

LAST 

687 

35, 3647 

24  002 

0 

I NCR 

0 

0859 

35, 3650 

0 0002 

0 

RETURN 

R0860  VN  POOH  

R0861  SUBROUTINES  USED 

R0862  BANKCALL 

R0863  GOFLASH 

R0864  GOTOPOOH 


0865 

0866 
0867 
08AR 

REF 

REF 

REF 

6 

3 

4 

LAST 
LAST 
1 AST 

686 
640 
69  2 

35.3651 

35. 3652 

35.3653 

35. 3654 

0 0006 
23*463 
55*613 
3 1613 

1 VNPOQH 

1 

0 

1 

EXTEND 

QXCH 

TS 

CA 

RTPN 

VERB  NOUN 
VERE  NOUN 

0869 

REF 

1 64 

LAST 

69  1 

35,  3655 

0 4616 

1 

TCR 

BANKCALL 

0870 

REF 

16 

LAS! 

689 

35, 3656 

20351 

1 

CADR 

GOFL  ASH 

0871 

REF 

20 

LAST 

69  1 

35,3657 

1 6001 

1 

TCF 

GOTOPOOH 

0872 

REF 

7 

LAST 

692 

35, 3660 

0 1463 

1 

TC 

RTPN 

0873 

35,3661 

1 3654 

1 

TCF 

-5 
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P0874 

0 

V06N3  7 

VN 

0637 

0875 

0876 

35,3663 

01467 

0 

V06N55 

VN 

0655 

0877 

35,3664 

01472 

i 

V06N58 

VN 

0658 

35,  3 665 

01  473 

a. 

V06N59 

VN 

0659 

0879 

35, 3666 

01521 

0 

V06N81 

VN 

0681 

0880 

35, 3667 

04055 

0 

V16N45 

VN 

1645 

OR  ft  1 

35 , 3670 

14441 

0 

TWO  PI 

2DEC 

6.283185307  8-4 

0881 

35,3671 

37325 

l 

0882 

35,3672 

00001 

0 

MAX250 

2DEC 

25  F 3 

nftft? 

35, 3673 

20650 

0 

0883 

35,3674 

12525 

0 

THIRD 

2DEC 

. 333  333333 

0883 

35,3675 

12525 

0 

088  A 

35,3676 

00004 

0 

ELEPS 

20EC 

.27777777  E-3 

0884 

35,3677 

21505 

1 

0885 

35, 3700 

00002 

0 

DECTWO 

OCT 

2 

OftftA 

35,  3 701 

77777 

-Q- 

DP- .01 

OCT 

77777 

CONSTANTS 

0887 

35,3702 

61337 

1 

OCT 

6133  7 

ADJACENT 

-.01  FOR  MGA  DSP 

08871 

35,3703 

01252 

0 

EPS  FOUR 

2DEC 

.0416666666 

Oft  ft7  1 

35, 3704 

252  53 

1 

08872 

35,3705 

13434 

0 

130DEG 

2DEC 

.3611111111 

08872 

35,3706 

16162 

0 
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P0888  INITVEL  

R0889  MED  NC  -1  LOG  SECTION  - P34-P35,  P74-P75 

R0890  MOD  BY  WHITE. P DATE  21N0V67 

R0891  FUNCTIONAL  DESCRIPTION 

R0392  THIS  SUBROUTINE  COMPUTES  THE  REQUIRED  INITIAL  VELOCITY  VECTOR  FOR 

R0893  A TRAJECTORY  OF  SPECIFIED  TRANSFER  TIME  BETWEEN  SPECI F IED  INITIAL 

R0894  AND  TARGET  POSITIONS.  THE  TRAJFCTORY  MAY  BE  EITHER  CONIC  OR 

R 089  5 PRECISION  DEPENDING  ON  AN  INPUT  PARAMETER  (NAMELY,  NUMBER  OF 

R 0896  OFFSETS).-  IN  ADDITION,  IN  THE  PRECISION  TRAJECTORY  CASE,  THE 

RO 897  SUBROUTINE  ALSO  COMPUTES  AN  OFFSET  TARGET  VECTOR,  TO  BE  USED 

R 089 8 DURING  PURE-CONIC  CROSS-PRODUCT  STEERING.  THE  OFFSET  TARGET 

R 0899  VECTOR  IS-  THE  TERMINAL  POSITION  VECTOR  OF  A CONIC  TRAJECTORY  WHICH 

R0900  HAS  THE  SAME  INITIAL  STATE  AS  A PRECISION  TRAJECTORY  WHOSE 

R 090 1 TERMINAL  POSITION  VECTOR  IS  THE  SPECIFIED  TARGET  VECTOR. 


R0902  IN  ORDER  TO  AVOID  THE  INHERENT  SINGULARITIES  IN  THE  180  DEGREE 

R0903  TRANSFER  CASE  WHEN  THE  (TRUE  OR  OFFSET)  TARGET  VECTOR  MAY  BE 

R 0904  SLIGHTLY  OUT  OF  THE  ORBITAL  PLANE,  THIS  SUBROUTINE  ROTATES  THIS 

R0905  VECTOR  INTO  A PLANE  DEFINED  BY  THE  INPUT  INITIAL  POSITION  VECTOR 

R 09 06  AND  ANOTHER  INPUT  VECTOR  (USUALLY  THE  INITIAL  VELOCITY  VECTOR), 

R0907  WHENEVER  THE  INPUT  TARGET  VECTOR  LIES  INSIDE  A CONE  WHOSE- VERTEX 

R0908  IS  THE  ORIGIN  OF  COORDINATES,  WHOSE  AXIS  IS  THE  180  DEGREE 

R0909  TRANSFER  DIRECTION,  AND  WHOSE  CONE  ANGLE  IS  SPECIFIED  BY  THE  USER. 

R0910  THE  LAMBEPT  SUBROUTINE  IS  UTILIZED  FOR  THE  CONIC  COMPUTATIONS  AND 

R0911  THE  COASTING  INTEGRATION  SUBROUTINE  IS  UTILIZED  FOR  THE  PRECISION 

R0912  TRAJECTORY  COMPUTATIONS. 

R0913  CALLING  SEQUENCE 

R0914  L CALL 

R0915  L+l  INITVEL 

R0916  L+2  (RETURN  - ALWAYS) 

R0917  INPUT 

R0918  (II  RINIT  INITIAL  POSITION  RADIUS  VECTOR 

R0919  (2)  VINIT  INITIAL  POSITION  VELOCITY  VECTOR 

R0920-  (3)  RTARG  TARGET  POSITION  RADIUS  VECTOR 

R0921  (4)  DELLT4  DESIRED  TIME  OF  FLIGHT  FROM  RINIT  TO  RTARG 

R0922  (5)  INTIME  TIME  OF  RINIT 

R0923  (6)  OD  NUMBER  OF  ITERATIONS  OF  LAMBERT/ INTEGR VS 

R0924  (7)  20  ANGLE  TO  180  DEGREES  WHEN  ROTATION  STARTS 

R0925  (8)  PTX1  -2  FOR  EARTH,  -100  FOR  LUNAR 

R09251  (9)  RTX2  COORDINATE  SYSTEM  ORIGIN  - 0 FOR  EARTH,  2 FOP  LUNAR 

P0926  PUSHLOC  SET  AT  4D 
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R0927  OUTPUT 

R 09 2 8 (1)  RTARG  OFFSET  -TARGET  POSITION  VECTOR 

R 092 9 12)  VIPRIME  MANEUVER  VELOCITY  REQUIRED 

R09 30  (3)  VTPRIME  VELOCITY  AT  TARGET  AFTER  MANEUVER 

R0931  (4)  CEL  VEE  T 3_DELTA-_V-E-L0CIJY_  REQUIRED  FOR  MANEUVER 

R 0932  SUBROUTINES  USED 


R0933  LAMBERT 

R0934  INTSTALL 

R0935  INTEGRVS 


0936 

0937 

REF 

1 

11,2000 

11,2000 

SETLDC 

BANK 

I NT V EL 

0938 

REF 

1 

COUNT  * 

$S/I NI TV 

0958 

11,2000 

77614 

1 

INITVEL  SET 

COGA  GUESS  NOT  AVAILABLE 

09  5 9 

REF 

1 

11,2001 

00475 

1 

GUES  SW 

0960 

1 1, 2002 

44175 

1 

HAVEGUES  VLOAD 

STQ 

0961 

REF 

6- 

LAST 

684 

1 l,  2003 

03442 

0 

RTARG 

0962 

REF 

13 

LAST 

691 

11, 2004 

03461 

1 

NOR  M FX 

0963 

REF 

1 

11,2005 

034  70 

1 

STORF 

RTARG1 

0964 

1 1 ,-2006 

46135 

1 

. SLOAD 

BHI  Z 

0965 

REF 

6 

LAST 

686 

11,2007 

033  77 

1 

RTX2 

0967 

REF 

1 

11, 2010 

22022 

1 

INITVEL1 

0988  - 

11,2011 

725  75 

0 

VLOAD 

VSL  2 

0969 

REF 

3 

LAST 

682 

11, 2012 

02327 

0 

PINI  T 

B29 

0970 

REF 

4 

LAST 

695 

1 1, 2013 

26327 

0 

STOVL 

RINI  T 

B27 

0971 

REF 

— 3- 

LAST- 

-6&2 

11,2014 

02335 

0 - 

VINIT 

87 

0972 

11, 2015 

77752 

1 

VSL  2 

0973 

REF 

4 

LAST 

695 

11,2016 

26335 

0 

STOVL 

V I N I T 

B 5 

09  74 

REE 

— 2 

LAST 

695 — 

11, 2017 

03470 

-1 

RTAR.  G1 

0975 

1 1, 2020 

77752 

1 

VSL2 

0976 

REF 

3 

LAST 

695 

11,2021 

03470 

1 

STORE 

RTAP  G1 

R0977 

INITIAL IZATICN 

0978 

1 1, 2022 

71331 

0 

INITVEL1  SSP 

DLOAD 

SET  ITCTR  TO  -1,L0AD  MPAC  WITH 

F4(  PL 

2D  ) 

0979 

-REF 

1- 

11,2023 

03615 

0 

T TCTR 

0980 

11,2024 

77776 

1 

0 -1 

0981 

11,2025 

70546 

1 

COSINF 

SRI 

CALCULATE  COSINE  ( E4 ) (+2) 

0982 

REF 

1__ 

11,2026 

176  65 

1 

STODL 

C0ZY4 

SET  C0ZY4  TO  CDSINE(E4) 

( PL 

OD) 

0983 

11,  2027 

67154 

0 

LX  A , 2 

S X A , 2 

0984 

REF 

271 

LAST 

677 

11,2030 

00154 

1 

MPAC 

0985 

REF 

2 

LAST 

140 

11,2031 

02701 

0 

VTARGTAG 

S FT  VTARGTAG  TO  OD  ( SP ) 

0986 

11, 2032 

77775 

1 

VLOAD 

0987 

REF 

5 

LAST 

695 

11,2033 

02327 

0 

R INI  T 

0988 

REF 

- 3 

LAST 

JL4-0 

11,2034 

26655 

0 

STOVL 

R 1 V E C 

R IV EC  EQ  RIM  IT 

0989 

REF 

4 

LAST 

695 

1 1,  2035 

03470 

1 

RTARG1 

0990 

REF 

2 

LAST 

140 

11, 2036 

16663 

0 

STODL 

R2VEC 

R2VEC  EQ  RTARG 
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L 

P34 

-P35, 

P74-I 

P75 

USER'S  PAGE  NO.  30 

E7  S3 

0991 

REF 

5 

LAST 

682 

11, 2037 

03450 

0 

DELLT4 

0992 

REF 

2 

LAST 

140 

11,2040 

02671 

0 

STORE 

TOE  S IP ED 

TOES  I RED  EQ  DELLT4 

777  D] 

1 

SFTPO 

VLOA-D 

0994 

1 1, 2042 

00001 

0 

OD 

INITIALIZE  PL  TO  OD 

0995 

REF 

6 

LAST 

695 

11,2043 

02327 

0 

R INI  T 

M P AC  EQ  RINIT  ( +29) 

] 1 r ? 044 

41456 

0 

UNIT 

PUSH 

UNIT ( R I ) (+1) 

(PL 

6D ) 

0997 

1 1,  2045 

5343  5 

0 

VXV 

UNIT 

0998 

REF 

5 

LAST 

695 

11,2046 

02335 

0 

V INI  T 

M P AC  FQ  UNIT! RI  ) X VI  (+8) 

REF 

2 

LAST 

1 40 

l 1,  2047 

26674 

0 

STOVL 

UN  _ 

1000 

REF 

5 

LAST 

695 

11,2050 

03470 

1 

RTAPG1 

1001 

11,2051 

50256 

0 

UNIT 

DOT 

T EMP=URT . URI  (+2) 

( PL 

OD) 

l on? 

1 1 , 2052 

43015 

1 

DAD 

CLEAR 

1003 

REF 

2 

LAST 

69  5 

11,2053 

03665 

1 

C0ZY4 

1004 

REF 

1 

11,2054 

03665 

1 

NORM  SW 

1005 

REF 

3 

L AST 

696 

1 1,2055 

03665 

1 

STORE 

C0ZY4 

1006 

11,2056 

43044 

0 

INITVEL2 

BPL 

SET 

1007 

REF 

i 

11,2057 

22101 

l 

INITVEL3 

UN  CALCULATED  IN  LAMBERT 

Inna 

R FF 

? 

i a<;t 

696 

1 1 1 2 060 

03465 

0 

NORM  SW 

R 1 009 

ROTATE  RC 

INTC 

YC  PLANE  - 

SET  UNIT 

NORMAL  TO 

YC 

11  r 2 Oft  1 

41  5 75 

o 

VI  DAD 

PUSH 

( PL 

60) 

1011 

REF 

3 

LAST 

695 

11,2062 

02663 

0 

R2VEC 

RC  TO  6D  (+29) 

1012 

11,2063 

63246 

1 

ABVAL 

PDVL 

RC  TO  MPAC , ABVAL ( RC ) (+29)  TO 

0D(  PL 

2D) 

inn 

l it  2064 

46206 

1 

PUSH 

V PRO  J 

(PL 

80) 

1014 

REF 

3 

LAST 

696 

11, 2065 

02674 

0 

UN 

1015 

1 1, 2066 

51352 

1 

VSL2 

BVSU 

10  16 

1 1 t 2067 

742  56 

0 

UN  I T 

VX  SC 

( PL 

OD) 

1017 

11,2070 

77772 

0 

VSL  1 

1018 

REF 

4 

LAST 

696 

1 1, 2071 

02663 

0 

STORE 

R2VEC 

1019 

11,2072 

67351 

1 

TLOAD 

SLOAD 

1020 

REF 

2 

LAST 

36 

11,2073 

222  75 

1 

ZEROVEC 

1021 

REF 

2 

LAST 

695 

11,2074 

03615 

0 

ITCTR 

1022 

11,2075 

77244 

0 

BPL 

VL3A  D 

1023 

REF 

2 

LAST 

696 

11,2076 

22101 

1 

INIT VEL3 

1024 

REF 

5 

LAST 

696 

11,2077 

02663 

0 

R2VEC 

102-5 — 

REF 

6 — 

LAST 

696 

11,2 100 

03470 

1 

STORE 

RTAP  Cl 

1026 

11,2101 

63345 

0 

INI TVEL3 

□LOAD 

PDVL 

( PL 

2D) 

1027 

REF 

i 

11,2102 

26007 

1 

MUFAPTH 

POSITIVE  VALUE 

1028 

REF 

6 

LAST 

696 

1 1 1 2 103 

02663 

o 

R2VE  C 

102802 

11,2104 

63256 

0 

UNIT 

PDVL 

2D  = UNIT ( R2VEC ) 

(PL 

8D ) 

102804 

REF 

4 

LAST 

695 

11,2105 

02655 

0 

R1VEC 

102806 

11,2 106 

41456 

0 

UNI  T 

PUSH 

8D  = UNIT(RIVEC) 

( PL  140) 

102808 

11,2107 

57435 

1 

VXV 

VCOMP 

-N  = UNITIR2VEC)  X UNIT(RIVEC) 

1028  1 

11,2110 

00003 

1 

2D 

10282 

11,2111 

7 76  06 

1 

PUSH 

( PL  20  D ) 

10283 

11,2112 

71350 

1 

LXA  , 1 

DLOAD 

10284 

REF 

6 

LAST 

67  1 

11,2113 

033  75 

0 

RTX1 

10285 

11,2114 

00023 

0 

1 80 

10286 

11,2115 

62040 

1 

BMN 

INCP  ,1 

10287 

11,2116 

22120 

1 

+ 2 

GAP 
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L 

P34-P35, 

P74-P75 

10288 

11,2117 

77767 

1 

DEC 

-8 

10289 

11,2120 

67310 

i 

I NCR , 1 

SLOAD 

11,2121 

00012 

i 

1 OD 

10291 

REF 

14 

LAST 

678 

11, 2122 

00047 

i 

XI 

10292 

11,2123 

77230 

0 

BHIZ 

VLOAD 

11,2124 

22  126 

1 

+2 

10294 

11,2125 

41476 

l 

VCOMP 

PUSH 

10295 

11,2126 

77775 

l 

VLOAD 

11,2  127 

50235 

0 

VXV 

DOT 

1032 

11,2130 

71244 

0 

BP  L 

DLOAD 

1033 

REF 

1 

11,2131 

22133 

0 

INIT  VEL4 

1 034- 

11, 2132 

41476 

1 

DCOMP 

PUSH 

1035 

11,2133 

67154 

0 INI TVEL4  L X A , 2 

SX  A , 2 

1036 

11,2134 

00000 

1 

OD 

10  3 7 

REF 

? 

! AST 

1 40 

1 1 , 2135 

07672 

0 

GEOMSGN 

R 10  38 

SET 

INPUTS  UP  FOR 

LAMBERT 

10^8  1 

11,2136 

43131 

-0 

SSP 

BOFF 

10382 

REF 

1 

11,2137 

00027 

1 

I TERCTR 

10383 

11, 2140 

00024 

1 

2 OD 

10384 

REF 

2 

L AST 

24  3 

11,2141 

03752 

1 

AVEGFLAG 

10385 

11,2 142 

22146 

1 

+ 4 

10386 

11,2143 

77731 

1 

SSP 

1038  7 

RFF 

2 

1 AST 

69  7 

11,2144 

0002  7 

1 _ 

I TER  CTR 

10388 

11,2145 

00005 

1 

5 

1039 

11,2146 

45150 

1 

LX  A , 1 

CALL 

1040 

R FF 

7 

1 AST 

696 

11.2147 

03375 

0 

RTX1 

R 1041 

OPERATE  THE 

LAMBERT  CONIC 

ROUT  I NE 

(CDASTFLT 

SUBROUTINE ) 

USFR'S  PAGE  NO.  31  E7  S3 


( PL  140) 

( PL20D) 
( PL14D) 
(PL  20) 
(PL  OD) 

(PL  2D) 


1042 REE 1 — 11,2  150  252  2 3 0 LAMBERT 

R1043  DELETE  THRU  4521 

R 1044  ARRIVED  AT  SOLUTION  IS  GOOD  ENOUGH  ACCORDING  TO  SLIGHTLY  WIDER  BOUNDS. 

1045  11,2151  77214  0 CLEAR  VLOAD 

1046  REE 2—  LAST  695  11,2452 00675  0 GUESSW 

1047  REF  7 LAST  671  11,2153  02744  1 VVEC 

R 1048  STORE  CALCULATED  INITIAL  VELOCITY  REQUIRED  IN  VIPRIME 

R 1 0 4 9 

1050  REF  3 LAST  672  11,2154  16343  1 STODL  VIPRIME  INITIAL  VFLOCITY  REQUIRED  (+71 

R 10  5 1 

R 10  52  IE-  NUM I T IS  ZERO,  CONTINUE  AT  INITVELB,  OTHERWISE 

R 1053  SET  UP  INPUTS  FOR  ENCKE  INTEGRATION  (INTEGRVS). 


1054  REE—  -3— LAST 

1055 

1056  REF  1 

1057  R£E 19  - LAST 

1061 

1062  REF 


695  11,2155 

11,2156 
11,2  157 
6 86  14,2160 

11,2161 
1 1,2 162 


C2  702  0 
45030  0 
22234  1 
27412  0 
43135  1 
03377  1 


VTARGTAG 
BHIZ  CALL 

INIT VEL7 
I NTS  TALL 
SLOAD  CLEAR 
RTX2 


7 LAST  695 


GAP 
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L 

P34- 

P35, 

P74-P75 

1063 

REF 

3 

LAST 

686 

11,2163 

00263 

0 

MOONFLAG 

1064 

11,2164 

43030 

0 

BH  I 2 

SET 

REF 

1 

11,2  165 

22167 

1 

I MI T VEL5 

1066 

REF 

4 

LAST 

698 

11,2166 

00063 

1 

MOONFLAG 

1067 

11,2167 

77775 

1 INITVEL5 

VLOAD 

REF 

7 

L ART 

6 96 

11,2 170 

02327 

0 

R I ELI  T 

1069 

REF 

5 

LAST 

696 

11,2171 

02655 

0 

STORE 

R 1VEC 

1070 

REF 

6 

LAST 

686 

11, 2 172 

25535 

0 

STOVL 

RCV 

1071 

R EF 

4 

I ART 

69  7 

11,2 173 

02343 

1 

VIPP 1ME 

1072 

REF 

5 

LAST 

686 

11,2174 

15543 

1 

STOOL 

VCV 

1073 

REF 

5 

LAST 

682 

11,2175 

03606 

1 

I NTI ME 

1074 

REF 

6 — 

LAST 

686 

11,2176 

01517 

0 

STORE 

-XEI 

1075 

11,2177 

43015 

1 

DAD 

CLEAR 

1076 

REF 

6 

LAST 

696 

11,2200 

03450 

0 

0ELLT4 

q EF 

g 

L AR  T 

6 ft  6 

11,2201 

01673 

1 

I NT Y PFLG 

1078 

REF 

28 

LAST 

686 

11,2202 

34041 

0 

STC ALL 

T DEC  1 

1079 

REF 

2 

LAST 

686 

1 1, 2203 

27107 

l 

I NT  E GR VS 

1 1 , 2204 

77775 

1 

VLOAD 

1081 

REF 

7 

LAST 

506 

11,2205 

00025 

0 

VATT  1 

1082 

REF 

2 

LAST 

140 

11,2206 

02703 

1 

STORE 

VTAP  GET 

R 1 083 

I F 

r TFR  AT  T DM 

rnij  NT  fr 

(ITCTR) 

EO  NO. 

ITERATIONS 

INUMIT ) 

, CONTINUE 

R1084 

INITVELC, 

, OTHERWISE  REITERATE 

LAMBERT 

AND  ENCKE 

11, 2207 

*3 1 *4 

\ 

J X A 1 2 

T NjfR  t? 

1086 

RFF 

3 

LAST 

696 

11,2210 

03614 

1 

ITCTR 

1087 

11, 2211 

00001 

0 

ID 

1 0 ftft 

11,2212 

55  134 

1 

SXA  ,2 

XSU,  2 

1089 

REF 

4 

LAST 

698 

11,2213 

03614 

1 

ITCTR 

1090 

REF 

4 

LAST 

697 

11, 2214 

02701 

0 

VTAP  GTAG 

1 091 

1 1 , 2 215 

46135 

1 

SLOAD 

BHI  Z 

1092 

REF 

9 

LAST 

665 

11,2216 

00050 

1 

X 2 

1093 

REF 

1 

11,2217 

22231 

1 

TNI T VEL6 

R 1094 

R 1095 

OFFSET 

CCNIC 

TARGET 

VECTOR 

109* 

11,2220 

52  T 7R 

\ 

VLOAD 

V su 

1097 

REF 

7 

LAST 

696 

1 1, 2221 

03470 

1 

RTARG1 

1098 

REF 

4 

LAST 

506 

11,2222 

00017 

1 

R ATT  1 

1099 

1 1, 2223 

77655 

1 

VAD 

1100 

REF 

7 

LAST 

696 

11,2224 

02663 

0 

R2VEC 

1101 

REF 

8 

LAST 

698 

11,2225 

16663 

0 

STODL 

R2VEC 

1102 

REF 

4 

LAST 

696 

11,2226 

03665 

1 

COZY  4 

1103 

11,2227 

77650 

1 

GOTO 

1104 

REF 

1 

11,2230 

22056 

1 

I NI T VEL2 

R 1 1 0 5 COMPUTE  THE  DELTA  VELOCITY 


1106 

1107 

REF 

9 

LAST 

698 

11.2231 

1 1 . 2232 

77775 

02663 

1 

0 

INITVEL6 

VLOAD 

P 2VE  C 

1108 

1109 

REF 

8 

LAST 

698 

11.2233 

11.2234 

03470 

52375 

1 

1 

INITVEL7 

STORE 

VLOAD 

RTARG1 

VSU 

19:02  NOV.— 25,1968  KISSING  .040  PAGE-  6-98 


USER'S  PAGE  NO.  32  E7  S3 


AT 


INCREMENT  ITCTR 


IF  SP(MPAC)  EQ  0,  CONTINUE  AT  INITVELC 


CONTINUE  ITERATING  AT  INITVEL2 
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L 

P34- 

P35, 

P74- 

P75 

1110 

REF 

5 

LAST 

698 

11,2235 

02343 

1 

V IPR IME 

1111 

REF 

6 

LAST 

696 

11,2236 

02335 

0 

V IN  I T 

LAST 

h R R 

1 1 f 2 237 

27366 

1 

STOVl 

DELVEET3 

1113 

REF 

3 

LAST 

698 

11,2240 

02703 

1 

VTARGET 

1114 

REF 

2 

LAST 

672 

11,2241 

03564 

0 

STORE 

V TPR  IME 

111^ 

1 It  2242 

46135 

1 

SLOAD 

BKIZ 

11  16 

REF 

8 

LAST 

697 

11,2243 

03377 

1 

RTX2 

1117 

REF 

1 

11,2244 

22261 

1 

INITVELX 

1117  1 

1 1,2245 

70575 

1 

VLOAD 

V SR  2 

11172 

REF 

3 

LAST 

699 

11,2246 

03564 

0 

VTPR IME 

1118 

REF 

4 

LAST 

699 

11,2247 

27564 

0 

STOVL 

VTPR IME 

1119 

REF 

6 

LAST 

699 

11,2250 

02343 

1 

V IPR  IME 

1120 

11,2251 

77742 

0 

VSR2 

1121 

REF 

7 

LAST 

699 

11,2252 

26343 

1 

STOVL 

V IPR I ME 

1122 

REF 

9 

LAST 

69  8 

11,2253 

03470 

1 

R TAR  G1 

1123 

11,2254 

77742 

0 

VSR2 

1124 

REF 

10 

LAST 

699 

11,2255 

27470 

1 

STOVL 

RTAR  G1 

1125 

REF 

10 

LAST 

69  9 

1 1 ,2256 

03366 

1 

DELV EET3 

1126 

11,2257 

77742 

0 

VSR2 

1127 

REF 

ii 

LAST 

699 

11,2260 

03366 

1 

STORE 

DEL V EET3 

1 1 -pp, 

1 1 f 2 261 

77201 

1 

INITVFLX  SETPD 

VLOAD 

1129 

11,2262 

00001 

0 

OD 

1130 

REF 

ii 

LAST 

699 

11,2263 

03470 

1 

RTARG1 

1131 

REF 

7 

LAST 

69  5 

1 1 ,2264 

37442 

1 

STCALL 

RTARG 

1134 

REF 

14 

LAST 

695 

11,2265 

03461 

1 

NORMEX 

R 1 135 

R 1 1 36  END  OF  INITVEL  ROUTINE 
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699 


DELVEET3  = V I PR IME-V I N I T (+7) 


GAP: 

L 


P 11 37 


R 1 1 38 
R 1 1 39 

R 1 1 AO 
R 1 1 41 
R 1142 
R 1 1 43 
R 1 1 44 

R 1 1 45 

R 1 146 

R 1 1 47 
R 1 1 49 
R1150 
R 11  5 1 


R 1 1 52 


R 1 1 53 


Rll  54 
R 1 1 55 
R 1 1 56 


R 1 1 57 

R 1 1 58 
R 1 159 
R 1 1 60 


R 1 161 


R 1162 


R 1 1 63 


R 1 1 64 
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K IDG  IM 

MOD  NO.  0,  BY  WILLMAN,  SUBROUTINE  RENDGU1D,  LOG  P34-P35,  P74-P75 
REVISION  03,  17  FEB  67 

IF  THE  ACTIVE  VEHICLE  IS  DOING  THE  COMPUTATION,  MIDGIM  COMPUTES 
THE  POSITIVE  MIDDLE  GIMBAL  ANGLE  OF  THE  ACTIVE  VEHICLE  TO  THE  INPUT 
DELTA  VELOCITY  VECTOR  (OD  IN  PUSH  LIST),  OTHERWISE 

MIDGIM  CONVERTS  THE  INPUT  DELTA  VELOCITY  VECTOR  FROM  INERTIAL  COORDIN- 
ATES TO  LOCAL  VERTICAL  COORDINATES  OF  THE  ACTIVE  VEHICLE. 

..  INPUTS  .. 

NAME  MEANING  UNITS/SCALING/MODE 


AV  FLAG  INT  FLAG  - 0 IS  CSM  ACTIVE,  1 IS  LEM  ACTIVE  BIT 

RINIT  ACTIVE  VEHICLE  RADIUS  VECTOR  METERS/CSEC  (+7)  VT 

VINIT  ACTIVE  VEHICLE  VELOCITY  VECTOR  METERS/CSEC  (■*■7)  MT 

OD  (PL)  ACTIVE  VEHICLE  DELTA  VELOCITY  VECTOR  METERS/CSEC  (+7)  VT 

..  OUTPUTS  .. 

NAME  MEANING  UN  I T S/ SC AL I NG/MODE 


+MGA  + MIDDLE  GIMBAL  ANGLE  REVOLUTIONS  (+0)  DP 

DELVLVC  DELTA  VELOCITY  VECTOR  IN  LV  COORD.  METERS/CSEC  (+7)  VT 

MGLVFLAG  INT  FLAG  - 0 IS  +MGA  COMPUTED,  l IS  DELVLVC  COMP.  - BIT 

..  CALLING  SEQUENCE  .. 


L CALL 

L+l  MIDGIM 

L + 2 (RETURN---  ALWAYS) 

..  NO  SUBROUTINES  CALLED  .. 

..  DEBRIS  - ERASEABLE  TEMPORARY  USAGE 

A ,Q  ,L , PUSH  LIST,  MPAC. 


ALARMS 


NONE 


GAP 
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L 

P34-P35,  P 74— P 75 

USER'S  PAGE  NO.  35 

E7  S3 

P 1 165 

MIDDLE  GIMBAL  ANGLE 

COMPUTATI ON. 

1 0 » 2 000 

<;FT|_nr  mthdgim 

1167 

10,2000 

BANK 

1 1 68 R EF 1 — COUNT  * $ $ / M I DG 


1169 

10, 2000 

20000 

0 

HALFREV 

2DEC 

L B-l 

1 1 69 

10,2001 

00000 

1 

1170 

10,2002 

776  14 

1 

MIDGIM 

80FF 

1171 

REF 

3 

LAST 

639 

10, 2003 

01352 

1 

AVFL  AG 

1172 

REF 

2 

LAST 

663 

1 0,  2 004 

20021 

0- 

GET . L VC 

1174 

REF 

2 

LAST 

689 

10,2005 

MIDGIM1 

= 

GET+MGA 

1 1 lb 

1 0 1 2 00  5 

535  75 

o 

VLOAD 

UNI  T 

(PL  OD)  V ( + 7)  TO  MP AC , UNITIZE  MV  (+1) 

11765 

10,2006 

77656 

1 

UNIT 

1177 

10,2007 

72441 

0 

DOT 

SL1 

DOT  UV  WITH  YISTABLE  MEMBER)  AND  RESCALE 

1178 

REF 

16 

LAST 

602 

10,2010 

017  42 

1 

REFSMMAT  +6 

FROM  +2  TO  +1  FOR  ASIN  ROUTINE 

1179 

10,2011 

51136 

1 

ARCSIN 

B PL 

1180 

REF 

i 

10,2012 

20016 

1 

SETMGA 

1181 

10,2013 

43215 

0 

DAD 

DAD 

CONVERT  -MG A TO  +MGA  BY 

1182 

REF 

i 

10,2014 

20001 

1 

HALFREV 

ADDING  ONE  REVOLUTION 

1183 

REF 

2 

LAST 

701 

10,2015 

20001 

1 

HALFREV 

1184 

REF 

5- 

LAST 

68  9 

10,2016 

02257 

0 

SEIMGA 

STORE 

+ MGA 

1185 

10, 2017 

43414 

1 

CLR 

RVQ 

CLEAR  MGLVFLAG  TO  INDICATE  +MGA  CALC 

1186 

REF 

1 

10,2020 

02675 

1 

MGL  V FLAG 

AND  EXIT 

1191 

10,2021 

53575 

0 

GET . L VC 

VLOAD 

UNIT 

(PL  6D ) R (+29)  IN  MPAC,  UNITIZE  UR 

1192 

REF 

8 

LAST 

698 

10, 2022 

02327 

0 

RINI  T 

1193 

10,2023 

77676 

0 

VCOMP 

U ( -R  ) 

1 1 94  _ 

10,2024 

00023 

0 

STORE 

1 8D 

U ( — R ) TO  18D 

1195 

10, 2025 

53435 

0 

VXV 

UNIT 

U(-R)*V  EQ  V*U(P),  U(V*R) 

1196 

REF 

7 

LAST 

699 

10,2026 

02335 

0 

V I N I T 

1197 

10, 2027 

00015 

0 

STORE 

1 2D 

U I V * R ) TO  1 2 D 

1198 

10, 2030 

53435 

0 

VXV 

UNIT 

UIV*R)*UI-R),  U( ( V * R ) * ( — R ) ) 

1199 

10,2031 

00023 

0 

18D 

1200 

10,2032 

24007 

0 

STOVL 

61) 

TRANSFORMATION  MATRIX  IS  IN  6D  (+1) 

1201 

10,2033 

00001 

0 

OD 

DELTA  V (+7)  IN  OD 

1202 

10,2034 

76521 

0 

MXV 

VSL1 

CONVERT  FROM  INER  COOR  TO  LV  COOR  (+3) 

1203 

10,2035 

00007 

0 

6D 

AND  SCALE  +7  IN  MPAC 

1204 

REF 

19 

LAST 

687 

10,2036 

03432 

1 

STORE 

DEL  VLVC 

STORE  IN  DELVLVC  (+7) 

1205 

10, 2037 

43414 

1 

SET 

RVQ 

SET  MGLVFLAG  TO  INDICATE  LVC  CALC 

1206 

REF 

2 

LAST 

70  1 

10, 2040 

02475 

0 

MGL V FLAG 

AND  EX  IT 

R1207 

ENC  OF 

M I DG I M 

ROUTINE 
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P 1208 

1209 

10,2061 

77160 

0 

SELFCTMU 

AXC  , 1 

AXT  , 2 

10 1 2 042 

00002 

o 

_2D 

1211 

10, 2063 

00000 

1 

OD 

1212 

10,2066 

77616 

1 

BOFF 

LAST 

6 8^ 

1 Ot  2 045 

04343 

1 

C MOO  NFLG  _ 

1216 

REF 

1 

10,2066 

20052 

1 

SETMUER 

1215 

10,2067 

77160 

0 

AXC,  1 

AXT  , 2 

10, 2050 

000  12 

1 

1 OD 

1217 

10,2051 

00002 

0 

2D 

1218 

10,2052 

66163 

1 

SETMUER 

DLOAD* 

SXA  , 1 

12  IQ 

REF 

1 

10,2053 

10011 

0 

MUTABLE  +6,1 

1220 

REF 

8 

LAST 

697 

10,2056 

03375 

0 

RTX  1 

1221 

REF 

6 

LAST 

665 

10,2055 

22323 

0 

STOOL  * 

PTSR  1/MU 

12  22 

R P F 

2 

1 AST 

70  2 

10, 2056 

10003- 

0 

MUTABLE  -2,1 

1223 

10,2057 

56216 

1 

BOFF 

SR 

1226 

REF 

5 

LAST 

702 

10,2060 

06363 

1 

C MOO  NFLG 

in. ? da i 

70063 

o 

RTRNMU 

1226 

10,2062 

20607 

1 

6D 

1227 

REF 

6 

LAST 

65  8 

10,2063 

02325 

1 

RTRNMU 

STORF 

RTMU 

1 0 T 2064 

431  34 

o 

SXA  , 2 

CLEAR 

1229 

REF 

9 

LAST 

699 

10, 2065 

03376 

0 

RTX2 

1230 

REF 

7 

LAST 

690 

10,2066 

01271 

1 

F INALFLG 

1 2 34 

10, 2067 

77650 

1 

GOTO 

1235 

REF 

6 

LAST 

675 

10,2070 

73562 

0 

V N 1 6 6 5 

E 7 S3 


70  2 
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P 1236  PER  I APO  

R 1 237  MCD  NO  -1  LOG  SECTION  - P34-P35,  P74-P-76 — 

R1238  MOD  BY  WHITE. P DATE  18JAN68 

R 1 2 3 9 FUNCTIONAL  DESCRIPTION — 

R 1240  THIS  SUBROUTINE  COMPUTES  THE  TWO  BODY  APOCENTER  AND  PEP  ICENTER 

R1241  ALTITUDES  GIVEN  THE  POSITION  AND  VELOCITY  VECTORS  FOR  A POINT  ON 

R 1242  THE  TRAJECTORY  AND  THE  PRIMARY  BODY. 

R1243  SETRAD  IS  CALLED  TO  DETERMINE  THE  RADIUS  OF  THE  PRIMARY  BODY. 

R1244  APSIDES  IS  CALLED  TO  SOLVE  FOR  THE  TWO  BODY  RADII  OF  APOCENTER  AND 

R 1 245  PERICENTER  AND  THE  ECCENTRICITY  OF  THE  TRAJECTORY. 

R1246  CALLING  SEQUENCE 


R 1247  L CALL 

R 1248  L+l  PER  I A PO 

R 1249  L + 2 (RETURN  - ALWAYS) 

R 12  50  INPUT 

R1251  (1)  RV EC  POSITION  VECTOR  IN  METERS 

R 12 52  SCALE  FACTOR  - EARTH  +29,  MOON  +27 

R 1 2 53  (2)  VV  EC  VELOCITY  VECTOR  I N METER  S/CENT IS  EC ON D 

R 1 2 54  SCALE  FACTOR  - EARTH  +7,  MOON  +5 

R 1 2 55  (3)  XI  PRIMARY  BODY  INDICATOR 

R 12  56  - EARTH  -2,  MOON  -10 

R 12  57  OUTPUT 


R 1 2 58  (1  ) 2D  APOCENTER  RADIUS  IN  METERS 

R 12 59  SCALE  FACTOR  - EARTH  +29,  MOON  +27 

R 1260  (2)  4D  APOCENTER  ALTITUDE  IN  METERS 

R 1261  SCALE  FACTOR  - EARTH  +29,  MOON  P27 

R1262  (3)  6D  PERICENTER  RADIUS  IN  METERS 

R 1263  SCALE  FACTOR  - EARTH  +29,  MOON  +27 

R 1264  (4)  8D  PERICENTER  ALTITUDE  IN  METERS 

R1265  SCALE  FACTOR  - EARTH  +29,  MOON  +27 

R1266  (5)  ECC  ECCENT  RIC I TY  OF  CONIC  TRAJECTORY 

R1267  SCALE  FACTOR  - +3 

R1268  (6)  XXX ALT  RADIUS  OF  THE  PRIMARY  BODY  IN  METERS 

R 1269  SCALE  FACTOR  - EARTH  +29,  MOON  +27 

R1270  (7)  PUSHLOC  EQUALS  10D 

R 1271  SUBROUTINES  USED 


R 12  72  SETRAD 
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R1273  APSIDES 

1274  REF  1 23,2000  SETLOC  APOPERI 

1275  23,2275  BANK 

1276  REF  — 1 — COUNT  * $$/PERAP 


1277 

23,2275 

00302 

0 

RP  AD 

2DEC 

6373338  B-29 

STANDARD  RADIUS  OF  PAD 

37-B. 

2 276 

17755 

0 

A 1278 

= 20  909  901.57  FT 

617S4 

1 

PFR  I APfll 

1 X A , 2 

VSR  « 

1280 

REF 

10 

LAST 

702 

23, 2300 

03376 

0 

RTX2 

1281 

23,2301 

57176 

0 

0,2 

LAST 

^ q 7 

2 1 T 2 10  2 

26744 

1 

STDVL 

VVEC 

1283 

23,2303 

53750 

0 

LX  A , 1 

VSR  * 

1284 

REF 

9 

LAST 

702 

23,2304 

03375 

0 

RTX1 

12  8 5 

21, 2 105 

571  76 

0 

0,2 

1286 

REF 

6 

LAST 

67  1 

23,2306 

02655 

0 

STORE 

RVEC 

1287 

23,  2307 

45020 

1 

PER IAPO 

STO 

CALL 

1 2 88 

REP 

1 5 

J AST 

6 9 9 

23,  2 310 

03461 

1 

NORM  EX 

1289 

REF 

i 

23,2311 

46325 

1 

SETR  AD 

1290 

REF 

2 

LAST 

157 

23, 2312 

37667 

1 

STCALL  XXX  A LT 

129  1 

REF 

1 

23,2313 

25675 

1 

APSIDES 

1292 

23,2314 

41401 

1 

SETPD 

PUSH 

2D  = APOCENTER  RADIUS 

B 29  DR 

B27 

1293 

23,2315 

00003 

1 

2D 

1294 

23,  2 316 

65225 

1 

DSU 

PDDL 

4D  = APOGEE  ALTITUDE 

B2 9 OR 

B 27 

1295 

REF 

3 

LAST 

704 

23,2317 

03667 

0 

XXXA  LT 

1296 

23,2320 

00001 

0 

OD 

12  97 

23, 2321 

452  06 

1 

PUSH 

DSU 

6D  = PERICENTER  RADIUS 

B 29  OR 

B 27 

1298 

REF 

4 

LAST 

704 

23,2322 

03667 

0 

XXXA  LT 

1299 

23, 2323 

52006 

0 

PUSH 

GOTO 

8 D = PERIGEE  ALTITUDE 

B 2 9 OR 

B27 

i inn 

RFF 

1 6 

1 ART 

7n  4 

?1. ? 1?4 

ni46 1 

1 

NflP  W F X 

GAP  : 

L 

P1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 


HrE 

P35 

REV  IS  ION  0 69 
, P74-P75 

OF  AGO  PR( 

DGRAM  LUMINARY  BY 

NASA  2021112-011 

19:02  NOV,  25*4  968 

KI SSI NG  .040 

PAGF  705 

ASSENB 

P34- 

USFR'S  PAGE 

NO.  39 

E7  S3 

SETPAC 

23,2325 

41545 

0 

SETRAD 

□LOAD 

PUSH 

?1t  ? 326 

062  76 

1 

R PAD 

23,2327 

63130 

0 

SX  A , 1 

I NCR  ,2 

REF 

10 

LAST  698 

23, 2330 

00047 

1 

X2 

2 3,2  331 

00002 

0 

2D 

23, 2332 

46135 

1 

SLOAO 

BHIZ 

REF 

11 

LAST  705 

23,2333 

00050 

1 

X2 

RFF 

1 

23, 2334 

46340 

1 

SETR.ADX 

23,2335 

51575 

1 

VLOAD 

ABVAL 

REF 

2 

LAST  215 

23,2336 

02023 

1 

RLS 

23, 2337 

77725 

J 

POOL 

23,2340 

43545 

1 

SFTRADX 

DLOAD 

R VO 

GAP 


ASSEMBLE-  REVISION  069  Of  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L 

P 34- 

P 35 , 

P 74-1 

P75 

P 13 14 

PRECSET 

13  15 

23,  2341 

77620 

0 

PRECSET 

STQ 

REF 

1 7 

1 ast 

70  4 

2 3,  2 342 

03461 

1 

NFIRMFX 

1317 

REE 

i 

23,2343 

37572 

0 

STCALL 

TDFC2 

1318 

REF 

5 

LAST 

66  2 

23,2  344 

27057 

0 

LEMPREC 

2 3T  2 348 

77624 

1 

CALL 

1320 

REF 

1 

23,2346 

46357 

1 

LEMSTORF 

1321 

23,2347 

77745 

1 

DLOAD 

LAST 

70^ 

23  T 2 360 

035  72 

1 

TDEC2 

1323 

REF 

29 

LAST 

698 

23,2351 

34041 

0 

STCALL 

TDEC  1 

1324 

REF 

3 

LAST 

222 

23, 2352 

27043 

0 

CSMPPEC 

23*2353 

77624 

1 

CALL 

1326 

REF 

1 

23,2354 

46367 

1 

CSMSTORE 

1327 

23,2355 

77650 

1 

GOTO 

1 328 

REF 

18 

LAST 

706 

23,2356 

03461 

1 

NORM  EX 

1329 

23,2357 

43175 

0 

LEMSTORE 

VLOAD 

BOFF 

1330 

REF 

16 

LAST 

686 

23,2360 

00001 

0 

RATT 

1^^  1 

R Ff 

4 

1 AST 

70  1 

23*  2361 

01352 

1 

AVFL  AG 

1332 

REF 

4 

LAST 

679 

23,2362 

46373 

1 

PASS  IVE 

1333 

REF 

19 

LAST 

686 

23,2363 

27534 

0 

ACTIVE 

STOVL 

R ACT  3 

13  34 

R F F 

1 1 

LAST 

6 8 2 

23, 2 364 

00007 

0 

VATT 

1335 

REF 

12 

LAST 

684 

23,  2365 

03542 

1 

STORE 

V AC  T 3 

1336 

23,2366 

77616 

0 

RVO 

13^7 

2 3,2  367 

431  75 

o 

CSMSTORE 

VLOAD 

BOFF 

1338 

REF 

17 

LAST 

706 

23,2370 

00001 

0 

RATT 

1339 

REF 

5 

LAST 

706 

23,2371 

01352 

1 

AVFL  AG 

1340 

REF 

1 AST 

6 7 9 

23*2372 

46363 

o 

ACT IVE 

1341 

REF 

11 

LAST 

68  2 

23,2373 

27550 

1 

PASSIVE 

STOVL 

RPASS3 

1342 

REF 

12 

LAST 

706 

23,2374 

00007 

0 

VATT 

1 343 

REF 

3 

1 AS  T 

682 

2 3, 2 375 

03556 

1 

STORE 

VPAS  S3 

1344 

23,2376 

77616 

0 

RVQ 

19:7)2  NOV.  25,1968  KISSING  .040  PAGE 


706 
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40 
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L 

P1345 

1346 
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1348 

1349 

13  50 

1351 

1352 

13  53 


ASSEMBLE  REV  IS  EON  069  OF  AGE  -PROGRAM  LUMINARY  BY  NASA  2021112-011 


19:02  NOV.  2 5-,  1963  KISSING  .040  PAGE  707 


P34-P35,  P 74- P 75 


USER’S  PAGE  NO.  41  E7  S3 


23,  2377 

53754 

1 

VECSHIFT  LX A , 2 

VSR* 

] l 

1 AST 

704 

23f  2 400 

033  76 

0 

RTX2 

23,2401 

57176 

0 

0,2 

23,2402 

63350 

1 

LX  A , 1 

PDVL 

10 

LAST 

704 

23,2  403 

03375 

0 - 

PTX1 

23,2404 

632  57 

1 

VSR* 

PDVL 

23,2405 

57176 

0 

0,2 

23,2406 

776  16 

_o_ 

RVQ 
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P 1354 

SHIFTR1 

1355 

23,2407 

53754 

1 

, „ c. 

ncc  it  i act  707  73- 7410 

03376 

0 

13  50 
1357 

Kti  1 c.  LWj  I I U i c. y c.  , x 

23,2411 

57576 

1 

1358 

23,2412 

77616 

0 

LXA , 2 SL* 
RTX2 
0,2 

RVQ 


GAP: 

ASSEMBLE  REVIS ION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 

L 

P34-P35,  P74-P75 

P 13  59 
R1360 
R 1361 
R1362 
R 1363 

PROGRAM  DESCRIPTION 

SUBROUTINE  NAME  R36  OUT-OF-PLANE  RENDEZVOUS  ROUTINE 

MOO  NC.  -0 DATE  22  DECEMBER  67 

MOD  BY  N.M. NEVILLE  LOG  SECTION  EXTENDED  VERBS 

FUNCTIONAL  DESCRIPTION 

R1364 

R1365 

TO  DISPLAY  AT  ASTRONAUT  REQUEST  LGC  CALCULATED  RENDEZVOUS 
OUT-OF-PLANE  PARAMETERS  <Y  , YDOT  , PSI).  (REQUESTED  BY  DSKY). 

R 1366 

CALLING  SEQUENCE 

R 1367 

ASTRONAUT  REQUEST  THROUGN-HSTCY — V 9Q-E — 

R1368 

SUBROUTINES  CALLED 

R1369 
R 1370 
R 1371 
R 1 3 72 
R 1373 
R1374 

EXCSPPET 
GCMARKF 
C SN  PR  EC 
LEMPREC 
SGN AGREE 
LCADT  IME 

R 1 3 75 

NORMAL  EXIT  MODES 

R 1376 

ASTRONAUT  REQUEST  THROUGH  DSKY  TO  TERMINATE  PROGRAM  V 34  E 

R 1 3 77 

ALARM  OR  ABORT  EX  IT  MOOES — 

R 1 378 

NONE 

R 13  79 

OUTPUT 

R1380 

DECIMAL  DISPLAY  OF  TIME-  , Y , YDOT  AND  PSI 

R 138  1 
R 1 382 

DISPLAYED  VALUES  Y , YDOT  , AND  PSI  , ARE  STORED  IN  ERASABLE 
REGISTERS  RANGE  , RRAT£_ AND  RTHETA  RESPECTIVELY. 

R 1383 

ERASABLE  I M T I AL I Z AT  I ON  R EQU I R EO 

R 1384 

CSM  AND  LEM  STATE  VECTORS 

R 138  5 

DE6R  I S 

R 13  86 

CENTRALS  A,Q,L 

R 13  87 

OTHER  THOSE  USED  BY  THE  ABOVE  LISTED  SUBROUTINES 

1388 

1389 

1390 


REF 


1 


20,2115 

04,2000 

04,2613 


RANK  20 
SE T 10C  R35LM 
BANK 
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44 

E7  S3 

l 

1391 

REF  3 

LAST  299 

E4, 1612 

FBANK=  RPASS36 

1392  REF  1 COUNT*  $$/R36 


i. 

1393 

04, 2613 

22  007 

0 

R36 

ZL 

R EF 

128 

L ART 

A 6 0 

04,  261  4 

3 4755 

1 

CAF 

ZERO 

SET  TIMF  OF  EVENT  TO  ZERO  FOP  FIRST 

1395 

REF 

6 

LAST 

320 

04,2615 

53 ' 052 

0 

DXCH 

DSPTEMX 

DISPLAY 

* 

1396 

REF 

1 

04,2616 

3 2746 

0 

CAF 

V06N 16N 

1 ^ Q 7 

R FF 

165 

LAST 

692 

04,2617 

0 46  16 

1 

TC 

BANKCALl 

1398 

REF 

9 

LAST 

293 

04,2620 

20212 

1 

CADR 

GOMA  RKF 

d 

1399 

REF 

36 

LAST 

620 

04,2621 

1 5472 

1 

TCF 

ENDEXT 

TERMINATE 

140D 

04, 2622 

1 26  24 

1 

TCF 

+2 

PROCEED 

1401 

04, 2623 

1 2616 

0 

TCF 

-5 

RECYCLE  FOR  ASTRONAUT  INPUT  TIME 

i 

1402 

REF 

7 

LAST 

710 

04,2624 

53'052 

0 

DXCH 

DSPTEMX 

140  7 

04, 2625 

0 0006 

1 

EXTEND 

1404 

REF 

1 

04,  2626 

1 2735 

0 

BZF 

LREGCHK 

A-REG  ZERO  GOTO  CHECK  L-REG  FOR  ZERO 

d 

1405 

REF 

272 

LAST 

69  5 

04, 2 627 

52  155 

1 

ASTROTIM 

DXCH 

M PA  C 

A-REG  NON-ZERO,  TIME  = ASTRO  INPUT  TIMF 

1 40  6 

REP 

78 

LAST 

690 

04, 2630 

0 6036 

1 

TC 

I NTPPET 

1407 

04,2631 

77634 

0 

RTB 

d 

1408 

REF 

i 

04, 2632 

21670 

0 

DPMODE 

1409 

REF 

30 

L AST 

706 

04, 2633 

34041 

0 

R36INT 

ST  CALL 

T DEC  1 

1410 

REF 

2 

LAST 

665 

04,2634 

27043 

0 

OTHPREC 

0 

1411 

04, 2635 

63375 

0 

VLOAD 

PDVL 

1412 

REF 

13 

LAST 

706 

04, 2636 

00007 

0 

VATT 

1413 

REF 

18 

LAST 

706 

04,2637 

00001 

0 

RATT 

- 

0 

L414 

REF 

4 

LAST 

710 

04,2640 

02213 

0 

STORE 

RPAS  S36 

R 

1415 

04, 2641 

632  56 

o 

UN  I T 

PDVL 

P 

1416 

04, 2642 

53435 

0 

vxv 

UNIT 

0 

1417 

04,2643 

77626 

0 

STADR 

1 4 1 R 

R FF 

04, 2 644 

615  56 

o 

STOOL 

UNP3  6 

u 

1419 

REF 

8 

LAST 

6 6 6 

04,2645 

00015 

0 

TAT 

0 

1420 

REF 

31 

LAST 

710 

04,2646 

34041 

0 

ST  CALL 

TDEC  1 

1-4-2  1 

REF 

2 

LAST 

66  5 

04*  2 647 

27057 

0 

ThI SPREC 

1422 

04,2650 

63375 

0 

VLOAD 

PDVL 

- 

0 

1423 

REF 

14 

LAST 

710 

04,2651 

00007 

0 

VATT 

VELOCITY  VECTOR  V OOD 

1424 

REF 

19 

LAST 

7 10 

04,2  652 

00001 

0 

RATT 

A 

1425 

04,2653 

77725 

1 

PDDL 

0 

1426 

REF 

9 

LAST 

71  C 

04,2654 

00015 

0 

TAT 

SAVE  TIME  IN  LOCATION  30D  FOR  REDISPLAY 

1427 

04,2655 

24037 

0 

STOVL 

3 OD 

— 

1428 

04,2656 

41406 

0 

PUSH 

PUSH 

POSITION  VECTOR  R IN  06D  AND  12D 

0 

1429 

04,2657 

63245 

1 

BVSU 

PDVL 

A - - 

1430 

REF 

5 

LAST 

710 

04,2660 

02213 

0 

RPASS36 

LINE  OF  SIGHT  VECTOR  R - R 12D 

1431 

04,2661 

72441 

0 

DOT 

SL1 

P A 

0 

1432 

REF 

2 

LAST 

710 

04, 2662 

02221 

1 

UNP36 

* - 

1433 

REF 

9 

LAST 

33  1 

04, 2 663 

262  05 

1 

STOVL 

RANG  E 

Y = U .R 

1434 

04, 2664 

00001 

0 

OOD 

A 

t 

1435 

04,2665 

72441 

0 

DOT 

SL1 

1436 — 

REF 

3 

LAST 

7 1 0 - 

04,2666 

02221 

1 

UNP3  6 

— — 

1437 

REF 

5 

LAST 

332 

04,2667 

262  07 

0 

STOVL 

RR  AT  F 

Y = U .V 

9 

1438 

04,2670 

00007 

0 

06D 

A 

* 
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1439 

04,  2671 

41456 

0 

UNIT 

PUSH 

U = UNIT!  P ) 18D 

1440 

04,2672 

472  35 

0 

VXV 

VXV 

RA  A 

, , , , 

04-,  7 671 

00001 

0 

OOD 

— — — — 

1442 

04,2674 

00023 

0 

1 8D 

(U  XV  )XU  =u 

1443 

04,2675 

53552 

0 

VSL2 

UNIT 

RA  A RA  A 

04,7  676 

77656 

1 

-UN  IT 

1444 

04,2677 

24001 

0 

STOVL 

OOD 

UNIT  HORIZONTAL  IN  FORWARD  DIR.  OOD 

1445 

04, 2 700 

00023 

0 

1 80 

04,2  70 1 

74241 

0 

DOT 

VX  SC 

— 

1447 

04, 2702 

00015 

0 

1 2 D 

U 

1448 

04,2703 

77752 

1 

VSL2 

L 

1449 

04,2  704 

53445 

1 

BVSU 

UNIT 

144905 

04,2705 

776  56 

1 

UNIT 

1450 

04, 2706 

502  06 

0 

PUSH 

DOT 

LOS  PROJECTED  INTO  HORIZONTAL  12D 

1 4S  1 

04,2  707 

00001 

0 

OOD 

PLANE 

1452 

04,2710 

65552 

0 

SL1 

ARCCOS 

- - 

1453 

REF 

4 

LAST 

332 

04,2711 

26211 

1 

STOVL 

RTHETA 

PSI=  ARCCOS ( U .U  ) 

1484 

04, 2712 

50235 

0 

VXV 

DOT 

A L 

1455 

04, 2 713 

00001 

0 

OOD 

1456 

04,2714 

71244 

0 

BPL 

DLDAD 

1487 

REF 

1 

04, 2715 

10722 

1 

P36T  AG2 

1458 

REF 

2 

LAST 

36 

04,2716 

22306 

1 

LOOP  MAX 

1459 

04,2717 

77625 

0 

DSU 

1 460 

REF 

5 

LAST 

711 

04,2720 

02211 

1 

RTHETA 

1461 

REF 

6 

LAST 

71  1 

04,2721 

02211 

1 

STORE 

R THE  TA 

1462 

04,2722 

47145 

1 

R36TAG2 

□ LOAD 

RTB 

1463 

04, 2 723 

00037 

0 

3 OD 

14  64 

REF 

2 

LAST 

389 

04,2724 

21516 

0 

SGNAGREE 

1465 

REF 

8 

LAST 

710 

04,2725 

01052 

1 

STORE 

DSPT EMX 

1466 

04,2726 

77776 

1 

EXIT 

1467 

REF 

1 

04,2727 

3 2747 

l 

CAF 

V06N90N 

DISPLAY  Y , YOOT  , AND  PSI 

1468 

REF 

166 

LAST 

710 

04,2730 

0 4616 

1 

TC 

BANKCAl L 

1469 

REF 

10 

LAST 

710 

04,  2 73  1 

202  12 

1 

CADR 

GCMA  PKF 

1470 

REF 

37 

LAST 

710 

04,2732 

1 5472 

1 

TCF 

ENDE  XT 

TERMINATE 

1471 

REF 

38 

LAST 

71  1 

04,2733 

1 5472 

1 

TCF 

ENDEXT 

PROCEED  , END  OF  PROGRAM 

14  72 

REF 

2 

LAST 

2 9 9 

04,  2 734 

1 26  16 

0 

TC  F 

R 36  +3 

R FD I SPLAY  OUTPUT 

1473 

REF 

93 

LAST 

68  7 

04,2735 

56  001 

0 

LREGCHK 

XCH 

L 

14  74 

04,2736 

0 0006 

1 

EXTEND 

1475 

REF 

1 

04, 2737 

1 2742 

0 

BZF 

FNTT IN? 

1 -REG  ZERO  , S ET  TIME  = PRESENT  TIME 

1476 

REF 

94 

LAST 

71  1 

04,2740 

56  001 

0 

XCH 

L 

L-REG  NON  ZERO,  TIME  = ASTRO  INPUT  TIME 

1477 

REF 

1 

04,2741 

1 2627 

1 

TCF 

ASTRCTIM 

1478 

REF 

79 

LAST 

710 

04,2742 

0 6036 

1 

ENTTIM2 

TC 

INTPPET 

1479 

04,  2743 

52034 

1 

RTB 

GOTO 

1480 

REF 

13 

LAST 

675 

04, 2744 

21462 

1 

LOADTIME 

1481 

REF 

1 

04,2745 

10633 

0 

R36 I NT 

1482 

04,2746 

01420 

0 

V06N16N 

VN 

00616 

1483 

04,2747 

01532 

1 

V06N90N 

VN 

00690 
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P0001 

0002 

DCC 

1 

39,3271 
37,2  000 

BANK 

SETLOC 

39 

_R3J 

Uu-U  J 

0009 

KC  r 

37,3113 

BANK 

0005  REF  1 COUNT*  $t/-R31 


0006 

REF 

9 

LAST 

275 

37,3113 

3 5015 

0 

R3 1 CALL 

CAF 

PRI03 

37t  8 1 1 4 

0 5 105 

o 

TC 

F I ND VAC 

0008 

REF 

9 Jx 

23 

LAST 

689 

E 7 , 1966 

EBANK= 

SUBE  XIT 

0009 

REF 

1 

37, 3115 

03195 

1 

2C  ADR 

V83C  ALL 

37t  3 1 1 6 

76067 

1 

0010 

REF 

10 

LAST 

572 

37,3117 

0 5221 

0 

DSPDELAY 

TC 

F I XD  EL AY 

0011 

37,3120 

00199 

0 

DEC 

100 

00  1 2 

REF 

8 

LAST 

son 

^7 , 3 12  1 

3 1099 

0 

CA 

EXTV  BACT 

0013 

REF 

35 

LAST 

608 

37, 3122 

7 9790 

1 

MASK 

B IT1  2 

0019 

37, 3123 

0 0006 

1 

EXTEND 

00-1-5  REF  -1  37, 3124  1 3LI7  1 BZF  DSP  DELAY 


0016 

REF 

5 

LAST 

500 

37, 3125 

3 5017 

1 

CAF 

PRI05 

00  17 

REF 

L4 

1 AST 

616 

3 7»  3 126 

0 5072 

1 

TC 

NOV  AC 

0018 

REF 

3 

LAST 

675 

E7, 1607 

EBANK= 

TSTRT 

0019 

REF 

1 

37,3127 

03132 

1 

2C  ADR 

DISPN5X 

001  Q 

REF 

l 

37t  3 1 30 

76067 

1 

0020 

REF 

29 

LAST 

616 

37,3131 

1 5261 

0 

TC  F 

TASKOVER 

37 T 3 1 3? 

7 32  40 

l 

CAF 

V 1 6 N * 4 

0022 

REF 

167 

LAST 

71  1 

37, 3133 

0 4616 

1 

TC 

BANKCALL 

0023 

REF 

11 

LAST 

711 

37,3  139 

20212 

1 

CADR 

GOMAPKF 

0024 

RFF 

6 

\ AST 

50  1 

37t 3 1 35 

0 5563 

1 

TC 

B5DF  F 

0025 

REF 

7 

LAST 

712 

37, 3136 

0 5563 

1 

TC 

8 50FF 

0026 

REF 

2 

LAST 

712 

37,3137 

1 3132 

0 

TC  F 

DISPN5X 

0027 

REF 

80 

LAST 

71  1 

37, 3 140 

0 6036 

1 

V83 

TC 

I NT  P PET 

0028 

37,3141 

77624 

1 

CALL 

0029 

REF 

1 

37,3  142 

77371 

1 

REDPEXTP 

0030 

37, 3 143 

77650 

1 

GOTO 

0031 

REF 

1 

37, 3 144 

77150 

0 

COMPDISP 

0032 

REF 

81 

LAST 

712 

37, 3145 

0 6036 

1 

V83CALL 

TC 

I NTPFET 

0033 

37,3146 

77624 

1 

CALL 

0039 

REF 

1 

37, 3 147 

77241 

0 

STAT  EXTP 

003  5 

37,3150 

52375 

1 

COM  PD I SP 

VLOAD 

vsu 

0036 

REF 

20 

LAST 

710 

37, 3151 

00001 

0 

RATT 

0037 

REF 

7 

LAST 

352 

37,3152 

022  13 

0 

RONE 

0038 

37, 3153 

51406 

1 

PUSH 

ABVA  L 

0039 

REF 

10 

LAST 

7 10 

37,3154 

02205 

1 

STORE 

RANG  E 

0090 

37,3  155 

77301 

0 

NORM 

VLDAD 

0091 

REF 

15 

LAST 

69  7 

37,3156 

00047 

1 

X 1 

0092 

37,3157 

53457 

1 

VSL  * 

UNIT 

0093 

37,3160 

20201 

0 

0,1 
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EXTRAPOLATF  STATE  VECTORS 


RATT-RONE  TO  00  pn=  6 

METERS  B-2  9 


RATT-RONE 


P D=  0. 
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0044 

37, 3 161 

52315 

1 

PD  VL 

VSU 

0045 

REF 

15 

LAST 

710 

37,3162 

00007 

0 

VATT 

REF 

1 

37, 3 163 

0?22l 

1 

VONE 

0047 

37,  3 164 

77641 

1 

DOT 

0048 

37,3165 

77752 

1 

SL1 

004^ 

R£P 

6 

L AS  T 

7 10 

37,  3 166 

262  07 

0 

STOVL 

RRATE 

0050 

REF 

8 

LAST 

712 

37,3167 

02213 

0 

RONE 

0051 

37, 3170 

63256 

0 

UNIT 

PDV  L 

no5? 

-REF 

2 

LAST 

3 6 

37, 3171 

06416 

1 

THI S AXI S 

0053 

37,3 172 

77624 

1 

CALL 

0054 

REF 

i 

37, 3173 

47565 

1 

C DU* NBSM 

do55 

37, 3174 

41505 

VXM 

PUSH 

0056 

REF 

17 

LAST 

70  1 

37,3175 

01734 

0 

REFSMMAT 

0057 

37,3176 

72431 

1 

VPROJ 

V SL  2 

0-0-5-ft 

37, 3177 

00001 

0 

OD 

0059 

37,3200 

53445 

1 

BVSU 

UNIT 

0060 

37, 3201 

00007 

0 

6D 

0061 

37, 3202 

47315 

0 

P D VL 

VXV 

0062 

REF 

9 

LAST 

71  3 

37,3203 

02213 

0 

RONE 

0063 

REF 

2 

LAST 

713 

37, 3204 

02221 

1 

VONE 

0064 

37, 3205 

472  56 

0 

UNIT 

VXV 

0065 

REF 

10 

LAST 

71  3 

37,3206 

02213 

0 

RONE 

0066 

37, 3207 

63241 

0 

DOT 

PDV  L 

0067 

37,3210 

00015 

0 . 

I 2D 

0068 

37,3211 

50372 

1 

VSL  1 

DPT 

0069 

37, 3212 

00007 

0 

6D 

0070 

37,3213 

72565 

1 

SIGN 

SL1 

0071 

37,3214 

00015 

0 

1 2D 

0072 

37, 3215 

77726 

1 

ACOS 

0073 

REF 

7 

L AST 

71  1 

37, 3216 

262  1 1 

1 

STOVL 

R THE TA 

0074 

REF 

11 

LAST 

71  3 

37,3217 

02213 

0 

RONE 

0075 

37,3220 

51041 

0 

DOT 

B PL 

0076 

3 7 , 3 22  1 

00007 

0 

6D 

0077 

37,3222 

77227 

0 

+ 5 

0078 

37, 3223 

443  45 

0 

DLOAD 

BDSU 

0079 

REF 

8 

LAST 

7L3 

37,3224 

02211 

1 

R THE TA 

0080 

REF 

8 

LAST 

684 

37, 3225 

06432 

1 

DPPOSMAX 

0081 

REF 

9 

LAST 

713 

37, 3226 

022  11 

1 

STORE 

RTHF  TA 

0082 

37, 3227 

77776 

1 

EXIT 

0083 

REF 

29 

LAST 

623 

37, 3230 

3 4747 

1 

CAF 

B IT5 

0084 

REF 

9 

LAST 

712 

37, 3231 

7 1044 

1 

MASK 

E XTVBACT 

0085 

3 7,3  232 

0 00  06 

1 

EXTEND 

0086 

REF 

39 

LAST 

7 1 1 

37,3233 

1 5472 

1 

BZF 

ENDE XT 

0087 

REF 

10 

LAST 

713 

37,3234 

4 1044 

1 

CS 

EXTV  BACT 

0088 

REF 

36 

LAST 

712 

37,3235 

7 4740 

1 

MASK 

BIT12 

0089 

REF 

11 

LAST 

713 

37,3236 

27 • 044 

1 

AOS 

F X T V BACT 

0090 

REF 

1 

37, 3237 

1 3140 

0 

TCF 

V 83 

0091 

37, 3240 

04066 

0 V16N54 

VN 

1654 
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UNIT ( LOS)  TO  00  PD=  6 

l VATT-VONE ) .UNIT! LOS)  PD=  0 

RANGE  RATE  M/CS  B-7 

UR  TO  OD  P0=6 

UNI  TX  FOR  CM,  UNITZ  FOR  LM 

UXOR Z TO  60  P 0=120 


UP/2  TO  120 


P0=1 80 


SIGN  TO  120,  UP/2  TO  MPAC  PD=18D 
UP.UXORZ 


IF  UXORZ.R  NEG,  RTHETA  = 1 - RTHETA 


RTHETA  BETWEEN  0 AND  1 REV. 


HAVE  WE  BEEN  ANSWERED 


YES,  DIE 
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p 0092  TEE  STATEXTP  SUBROUTINE  DOES  A PRECISION  EXTRAPOLATION  OF  BOTH  VEHICLES 
R0093  STATE  VECTORS  TO  PRESENT  TIME  AND  SAVES  THEM  AS  BASE  VECTORS. 

R 0094  IF  SERVICER  IS  OFF 

R 0095  THIS  VEHICLES  BASE  VECTOR  IS  CONIC  EXTRAPOLATED  TO 

R0096  PRESENT  TIME  AND  SAVED  AS  RONE,  VONE. 

R 0097  THE  OTHFR  VEHICLES  BASE  VECTOR  IS  CONIC.  EXTRAPOLATED 

P0098  TO  THE  SAME  TIME,  THE  OUTPUT  BEING  LEFT  IN  RATT,  VATT. 

R0099  IF  SERVICER  IS  ON  

R0100  R CNF , VONE  ARE  SET  EQUAL  TO  RN,  VN  AND  THE  OTHER 

R0101  VEHICLES  STATE  VECTOR  IS  PREC.  EXTRAPOLATED  TO  PIPTIME. 


0102 
Oi  m 

RfF 

1 

37.3241 

37.3242 

47020 

02116 

0 

0 

STATEXTP 

STQ 

RTB 

STAT  EXIT 

0104 

REF 

14 

LAST 

71  1 

37,3243 

21462 

1 

LOADTIME 

0105 

REF 

32 

LAST 

710 

37, 3244 

34041 

0 

STCALL 

TDEC  1 

ni  n/s 

REF 

3 

LAST 

7 1 C 

37,3245 

27043  0 

OTHPPEC 

GET  BASE  VECTORS 

0107 

37, 3246 

77775 

1 

VLOAD 

0108 

REF 

5 

LAST 

698 

37, 3247 

00017 

1 

RATT  1 

01  QQ 

REF 

1 

37 t 3250 

26140 

0 

STOVL 

BASECTP 

OTHER  POS. 

0110 

REF 

8 

LAST 

698 

37,3251 

00025 

0 

VATT  1 

0111 

REF 

1 

37,3252 

16120 

0 

STODL 

BASE  OTV 

OTHER  VEL. 

REF 

1 0 

F t 

7 \ n 

1 7,  3 ?*S? 

0001  5 

o 

TAT 

0113 

REF 

1 

37,3254 

02114 

1 

STORE 

BASETIME 

0114 

REF 

33 

LAST 

714 

37,3255 

34041 

0 

STCALL 

TDEC  1 

01  1 s 

R EF 

3 

LAST 

71  0 

37,  3 25  6 

27057 

0 

THIS  PREC 

0116 

37, 3257 

77775 

1 

VLOAD 

0117 

REF 

6 

LAST 

714 

37,3260 

00017 

1 

RATT  1 

01  1 fi 

REF 

1 

37, 3261 

261  70 

0 

STOVL 

B ASE  THP 

THIS  POS. 

0119 

REF 

9 

LAST 

71  4 

37, 3262 

00025 

0 

VATT  1 

0120 

REF 

1 

37,3263 

02105 

1 

STORE 

BASETHV 

THIS  VEL 

0121 

37, 3 264 

47014 

1 

HAVEBASE 

BON 

RTB 

0122 

REF 

3 

LAST 

69  7 

37,3265 

03712 

0 

AVEGFLAG 

0123 

REF 

1 

37,3266 

77346 

0 

GETRVN 

IF  AVG  ON  , GET  RN  ETC. 

0124 

REF 

15 

LAST 

714 

37, 3267 

21462 

1 

LOAD  TIME 

01242 

37,3270 

52014 

0 

BON 

GOTO 

TEST  FOR  LM  ON  SURFACE. 

01244 

REF 

12 

LAST 

620 

37, 3271 

04307 

1 

SURFFLAG 

0 1 24  6 

REF 

1 

37, 327? 

77365 

1 

o 31  s URF 

01248 

37,3273 

77274 

0 

+i 

0125 

REF 

34 

LAST 

714 

37, 3274 

34041 

0 

STCAL1 

TDEC  1 

BEGIN  SET  UP  FOR  CONIC  EXTRAP.  FOR  THIS. 

0126 

REF 

20 

LAST 

697 

37,3275 

27412 

0 

3 NTS  TALL 

0127 

37, 3276 

43175 

0 

VLOAD 

CLEAR 

0128 

REF 

2 

LAST 

714 

37,  3277 

02170 

0 

BAS  E THP 

0129 

REF 

— 5— 

LAST 

698 

37,  3-300 

00263 

0 

MOO-NFL  AG 

0130 

REF 

7 

LAST 

698 

37,3301 

25535 

0 

STOVL 

RCV 

0131 

REF 

2 

LAST 

714 

37,3302 

02105 

1 

BASF  THV 

0132 

REF 

6 

LAST 

698 

37,3303 

15  543 

1 

STODL 

VC  V 

0133 

REF 

2 

LAST 

714 

37, 3304 

021  14 

1 

BASETIME 

0134 

37,3305 

43014 

0 

BOF 

SET 

GET  APPROPRIATE  MOONFLAG  SETTING 

013  5- 

REF 

2_ 

LAST 

312 

37,3306 

04344 

0 

MOON  THIS 

0136 

37,3307 

77311 

1 

+ 2 

0137 

REF 

6 

LAST 

714 

37,3310 

00063 

1 

MOON FLAG 

> 
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REVISION  0 69 

OF  AGC  PROGRAM  LUMINARY  -BY— N, 

^ SA  2021112-011 

19:02  NOV.  25,1968  KISSING  .040  PAGE  715 

G AP : 
L 

ASS  EMt 
R31 

USER' S PAGE  NO.  4 EO  S3 

0138 

37, 3311 

77614 

1 

SET 

0139 

REF 

9 

LAST 

698 

37,3312 

01473 

0 

INTYPFLG 

CONIC  EXTRAP. 

RF  F 

7 

LAST 

69  8 

37,3  313 

35517 

1 

STCALL  TET 

0141 

REF 

3 

LAST 

698 

37,3314 

27107 

1 

INTFGRVS 

INTEGRATION  AT  LAST 

0142 

* 

37,3315 

77775 

1 

OTHCONi C 

VLOAD 

# E p 

? 1 

1 AST 

712 

37,3316 

00001 

0 _ 

P ATT 

0144 

REF 

12 

LAST 

71  3 

37, 3317 

26213 

0 

STOVL  RONE 

0145 

REF 

16 

LAST 

713 

37, 3320 

00007 

0 

VATT 

REF 

3 

1 AST 

7 1 3 

37,3321 

362  21 

STCALL  VONE 

GET  SET  FOR  CONIC  EXTR A P. , OTHER . 

0147 

REF 

21 

LAST 

714 

37,3322 

27412 

0 

INTSTALL 

0148 

37, 3323 

71214 

0 

SET  DLOAD 

0 ] 49 

REF 

10 

LAST 

715 

37, 3324 

01473 

0 

INTYPFLG- 

0150 

REF 

11 

LAST 

714 

37, 3325 

00015 

0 

TAT 

0151 

REF 

35 

LAST 

714 

37,3326 

00041 

1 

OTHINT 

STORE  T DEC  1 

01  5? 

37,3327 

43175 

0 

VLOAD  CLEAR 

0153 

REF 

2 

LAST 

714 

37, 3330 

02140 

0 

BASEOTP 

0154 

REF 

7 

LAST 

714 

37,3331 

00263 

0 

MOONFLAG 

0155 

REF 

8 

4.  AST 

714 

37,3332 

25535 

0 

STOVL  RCV 

0156 

REF 

2 

LAST 

714 

37, 3333 

02120 

0 

B A SEOTV 

0157 

REF 

7 

LAST 

714 

37,3334 

15543 

1 

STOOL  VCV 

0158 

RFF 

3 

1 AST 

7 14 

37, 3335 

02114 

1 

BASFTIMF 

0159 

37,3336 

43014 

0 

BOF  SET 

0160 

REF 

3 

LAST 

714 

37,3337 

04344 

0 

MOON  THI S 

01*1 

37, 3 340 

77342 

1 

+ 2 

0162 

REF 

8 

LAST 

715 

37,3341 

00063 

1 

MOONFLAG 

0163 

REF 

8 

LAST 

71  5 

37,3342 

35517 

1 

STCALL  TET 

0 1 &■  4 

RFF 

4 

I AST 

7 15 

37,  3 343 

27107 

1 

INTECRVS 

0165 

37, 3344 

77650 

1 

GOTO 

0166 

REF 

2 

LAST 

714 

37, 3345 

02116 

0 

STAT  EXIT 

THIS  VEHICLES  POS.,VFL.  IN  PUSHLIST. 

0167 

37,3346 

52175 

0 

GETRVN 

VLOAD  GOTO 

0168 

REF 

5 

LAST 

334 

37, 3347 

01221 

1 

RN 

0169 

37, 3350 

77351 

0 

+ 1 

0170 

REF 

13 

LAST 

715 

37,3351 

36213 

1 

STCALL  RONE 

0171 

37,3352 

77353 

1 

+ 1 

0172 

37,3353 

52 1 75 

0 

VLOAD  GCTO 

0173 

REF 

5 

LAST 

334 

37,3354 

01227 

1 

VN 

0174 

37,3355 

77356 

1 

+ 1 

0175 

REF 

4 

LAST 

715 

37, 3356 

16221 

1 

STOOL  VONE 

0176 

REF 

5 

LAST 

60  8 

37,3357 

01235 

1 

P I PT IMF 

0177 

37, 3360 

77624 

1 

GETRVN2 

CALL 

0178 

REF 

22 

LAST 

7 15 

37, 3361 

27412 

0 

I NTS  TALL 

0179 

37,3362 

52014 

0 

CLEAR  GOTO 

0180 

REF 

11 

LAST 

715 

37, 3363 

01673 

1 

I NT Y PFLG 

PREC  EXTRAP  FOR  OTHER 

0181  REF  — l -37,3364  77326  0 0 TH 1 NT 


01811 

REF 

36 

LAST 

715 

37,3365 

34041 

0 

R31SURF  STCALL  T DEC  1 

LM 

ON  SURFACE. 

01812 

REF 

6- 

LAST 

706 

37,3366 

27057 

-0__ 

LEMPPFC 

01813 

37,3  36  7 

77650 

1 

GO  T 0 

00 

CSM  CONIC 

01814 

*REF 

1 

37,3370 

77315 

0 

OTHCONIC 
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0182  37,3371  52020  1 REDOEXTP  STQ  GOTC 

0183  REF  3 LAST  715  37,3372  02116  0 STATEXIT 

0184  REF  1 — 37,.  337-3 77264  l HAVEBASE 


GAP  : 

L 

P5000 
R5001 
R5003 
R5005 
R 5007 
R5009 
R5011 
R5013 
R5014 
R5015 
R5017 
R5018 
R5020 
R5022 
R5023 
R5024 
R5026 

R5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

50341 

50342 

50343 

50344 

50345 

5035 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 
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1)  PROGRAM  NAME  - TARGET  DELTA  V PROGRAM  (P76). 

2)  FUNCTIONAL  DESCRIPTION  - UPON  ENTRY  BY  ASTRONAUT  ACTION*  P76  FLASHES  OSKY  REQUESTS  TO  THE  ASTRONAUT 

TC  PROVIDE  VIA  OSKY  11)  THE  DELTA  V TO  BF  APPLIED  TO  THE  OTHER  VEHICLE  STATE  VECTOR  ANO  (2)  THE 
TIME  (TIG)  AT  WHICH  THE  OTHER  VEHICLE  VELOCITY  WAS  CHANGED  BY  EXECUTION  OF  A THRUSTING  MANEUVER.  THE 
OTHER  VEHICLE  STATE  VECTOR  IS  INTEGRATED  TO  TIG  AND  UPDATED  BY  THE  ADDITION  OF  0 El.  T A V (DELTA  V HAVING 
B-EEN  TRANSFORMED  FROM— LV  TO  REF  COSYS).  USING  INTEGRVS,  THE  PROGRAM  THEN  INTEGRATES  THE  OTHER 

VEHICLE  STATE  VECTOR  TO  THE  STATE  VECTOR  OF  THIS  VEHICLE,  THUS  INSURING  THAT  THE  W-MATRIX  AND  BOTH  VFHTCLE 
STATES  CORRESPOND  TO  THE  SAME  TIME. 

3)  ERASABLE  INITIALIZATION  REQUIRED  - NONE. 

4)  CALLING  SEQUENCES  AND  EXIT  MODES  - CALLED  BY  ASTRONAUT  REQUEST  THRU  D SKY  V 37  E 76  E. 

EXITS  BY  TCF  ENDOF JOB. 

5)  OUTPUT  - OTHER  VEHICLE  STATE  VECTOR  INTEGRATED  TO  TIG  AND  INCREMENTED  BY  DELTA  V IN  REF  COSYS. 

THE  PUSHLIST  CONTAINS  THE  MATRIX  BY  WHICH  THE  INPUT  DELTA  V MUST  BE  POST-MULTIPLIED  TO  CONVERT  FROM  LV 
TC  REF  COSYS. 

6)  CEBRIS  - OTHER  VEHICLE  STATE  VECTOR. 

7)  SUBROUTINES  CALLED  - B ANKC ALL , G OXDSPF , CS MPREC  IOR  L EMPR EC  ) , AT OPCSM  (OR  ATOPLEM ) , I NTSTALL , I NT  WAKE , PHASCHNG 

INTPRET,  INTEGRVS,  AND  MINI RECT . 


8) 

FLAG  USE  - 

MOONFLAGtCMOONFLAG* 
^0 • ? 006 

INTYPFLG,R ASFLAG,  AND  MARKCTR. 

BANK  30 

REF 

1 

13,2000 

SETLOC  P76L0C 

13,2207 

BANK 

REF 

1 

COUNT*  $$/ P 76 

REF  19  LAST  -6-84 €7,  1437  EBANK=  TIG 


REF 

36 

LAST 

690 

13,2207 

0 5504 

0 P76 

TC 

UPFL AG 

REF 

6 

LAST 

63  9 

13»  22 10 

00031 

0 

ADRES 

TRAC  KFLG 

REF 

82 

LAST 

712 

13,2211 

0 6036 

1 

TC 

I NTPRET 

13, 2212 

77775 

1 

VLOAD 

REF 

20 

LAST 

70  1 

13,2213 

03432 

1 

D EL  V L VC 

REF 

4 

LAST 

33  1 

13,2214 

02227 

1 

STORE 

DEL VOV 

13, 2215 

77776 

1 

EXIT 

REF 

1 

13,2216 

3 2336 

0 

CAF 

V06N 84 

FLASH  LAST  DELTA  V, 

REF 

168 

LAST 

712 

13,2217 

0 4616 

1 

TC 

B ANKCALL 

AND  WAIT  FOR  KEYBOARD  ACTION. 

REF 

17 

LAST 

69  2 

13,2220 

20351 

1 

CADR 

GDFL  ASH 

REF 

1 

13, 2221 

1 2333 

1 

TCF 

ENDP76 

13,2222 

0 2224 

1 

TC 

+ 2 

PROCEED 

13,2223 

0 2216 

0 

TC 

-5 

STORE  DATA  AND  REPEAT  FLASHING 

REF 

2 

LAST 

717 

13,2224 

3 2337 

1 

CAF 

V 06 N 84  +1 

FLASH  VFRB  06  NOUN  33,  DISPLAY  LAST  TIG, 

REF 

169 

LAST 

717 

13,2225 

0 4616 

1 

TC 

BANK  CALL 

AND  WAIT  FOR  KEYBOARD  ACTION. 

REF 

18 

LAST 

717 

13, 2226 

20351 

1 

CADR 

GOFL ASH 

REF 

2 

LAST 

717 

13,2227 

1 2333 

1 

TCF 

ENDP76 

13, 2230 

0 2232 

0 

TC 

+ 2 

13, 2231 

0 2224 

1 

TC 

-5 

REF 

83 

LAST 

717 

13,2232 

0 6036 

1 

TC 

I NTPRET 

RETURN  TO  INTERPRETIVE  CODE 

GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L P76 


5052 

5053 
50  54 

REF 
R EF 

20 

3-7 

LAST 

LAST 

717 

715 

13, 2233 
13,  2234 
1 3,  2235 

77745 

03440 

34041 

1 

1 

0 

DLOAD 
STC ALL 

TIG 

TDEC 1_ 

5055 

REF 

4 

LAST 

714 

13, 2236 

27043 

0 

OTHPREC 

5056 

13,2237 

53575 

0 

COMPMAT 

VLQAD 

UNIT 

505  7 

REF 

22 

L AS  T 

71-5 

13, 2240 

00001 

0 

R ATT 

5058 

13,2241 

77676 

0 

VCOMP 

5059 

13,2242 

00031 

0 

STORE 

24D 

5060 

1 3,  2243 

53435 

T)- 

VXV 

UNIT 

5061 

REF 

17 

LAST 

715 

13, 2244 

00007 

0 

VATT 

5062 

13,2245 

00023 

0 

STORE 

1 8D 

506  3 

13, 2246 

53435 

0 

VXV 

UNIT 

5064 

13,2247 

00031 

0 

24D 

5065 

13,2250 

24015 

0 

STOVL 

1 2D 

50  66 

REF 

— 5 - 

LAST 

7T7- 

13, 225  1 

02227 

-1- 

DELV-OV 

5067 

13,2252 

76505 

0 

VXM 

VSL  1 

5068 

13, 2253 

00015 

0 

1 2D 

5069 

1 3, 2254 

7765  5 

JL_ 

VAD 

5070 

REF 

18 

LAST 

7 I 8 

13,2255 

00007 

0 

VATT 

5071 

13,2256 

00007 

0 

STORE 

6 

5072 

13,2257 

77624 

1 

CALL 

5073 

REF 

23 

LAST 

71  5 

13,2260 

27412 

0 

INTSTALL 

5074 

13, 2261 

77624 

1 

CALL 

5075 

REF 

1 

13, 2262 

26340 

1 

P76SUB1 

5076 

13, 2263 

53775 

1 

VLOAD 

VSR* 

5077 

13, 2264 

00007 

0 

6 

5078 

13, 2265 

57176 

-0- 

0,2 

5079 

REF 

8 

LAST 

715 

13,  2266 

25543 

1 

STOVL 

vcv 

5080 

REF 

23 

LAST 

718 

13, 2267 

00001 

0 

RATT 

5081 

13,2270 

77657 

o 

VSR-4 

5082 

13,2271 

57176 

0 

0,2 

5083 

REF 

9 

LAST 

715 

13,2272 

15535 

0 

STOOL 

RCV 

5084 

REF- 

21 

LAST 

718 

1 3, 2 27  3 

03440 

1 

T IG 

5085 

REF 

9 

LAST 

715 

13, 2274 

01517 

0 

STORE 

TET 

5086 

13,2275 

71214 

0 

CLEAR 

DLOAD 

5087 

RE  F 

12 

-LAST 

715 

13, 2276 

01673 

1 

LNT  Y PFLG 

5088 

REF 

1 

13, 2277 

01643 

1 

TETTHIS 

5089 

REF 

38 

LAST 

7 18 

13,2300 

34041 

0 

INTOTHIS 

STCALL 

TDEC  1 

5090 

REF 

5— 

LAST 

71  5 

13,2301 

27107 

1 

I NTEC-RVS 

5091 

13, 2302 

77624 

1 

CALL 

5093 

REF 

24 

LAST 

718 

13,2  303 

27412 

0 

INTSTALL 

5094 

13,2  304 

77775 

1— 

VLOAD 

5095 

REF 

7 

LAST 

714 

13,2305 

00017 

1 

RATT  1 

5096 

REF 

3 

LAST 

507 

13,2306 

01503 

0 

STORE 

RPECT 

5097 

REF 

10 

LAST 

718 

13,2 307 

15535 

o 

STODL 

RCV 

5098 

REF 

12 

LAST 

715 

13,  2310 

00015 

0 

TAT 

5099 

REF 

10 

LAST 

718 

13,2311 

25517 

0 

STOVL 

TFT 

5100 

REF 

10 

LAST 

714 

13,2312 

00025 

0 

VATT  1 

5101 

13,  2313 

77624 

1 

CALL 

5102 

REF 

2 

LAST 

507 

13,2314 

23361 

1 

MINI PECT 

19:02  NOV.  25,1968  -K I SS ING-.04Q  PAGE  7L8 


USER'S  PAGE  NO.  2 E7  S3 

SET  D(MPAC)=TIG  IN  CSEC  B28 
SET  TDEC1=TIG  FOR  ORBITAL  INTEGRATION 


U < -R ) 

U(-R)  TO  24D 
UI-RIXV  = UtVXR) 


U 1 VXR ) XU ( -R I = U(IRXV)XR) 


V (MPAC ) =OELT A V IN  REFCOSYS 


V (°D6 )=VATT  + DELTA  V 

PREVENT  WOULD-BE  USER  OF  ORBITAL 

INTEG  FROM  INTERFERING  WITH  UPDATING 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021 112-011 
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L P76 


5103 

13,2315 

77776 

1 

EXIT 

5104 

REF 

27 

LAST 

690 

13,2316 

0 5353 

1 

TC 

PHASCHNG 

13,2317 

04024 

0 

OCT 

04024 

5106 

REF 

37 

LAST 

717 

13,2320 

0 5504 

0 

TC 

UPFL AG 

5107 

REF 

1 

13, 2321 

00236 

0 ..... 

ADRES 

_ REINTFLG 

5109 

REF 

84 

LAST 

717 

13,  2 322 

0 6036 

1 

TC 

I NT P RET 

s i i n 

13,2323 

77624 

1 

CALL 

5111 

REF 

1 

13,2324 

26661 

1 

ATC1P0TH 

5116 

13,2  325 

77531 

0 

SSP 

EXIT 

5117 

REF 

3_ 

LAST 

621 

13, 2326 

00053 

1 

QPRET 

5118 

REF 

i 

13,2327 

26332 

1 

OUT 

5119 

REF 

170 

LAST 

717 

13,  2330 

0 4616 

1 

TC 

BANKCALL 

S]  ?0 

R F F 

1 

1 3,  2 33  1 

27447 

0 

CADR 

I NT  W AK  El 

5121 

13,2  332 

77  7 76 

1 

OUT 

EXIT 

5125 

REF 

1 29 

LAST 

710 

13, 2333 

3 4755 

1 

ENDP76 

CAF 

ZERO 

5 1 26 

REF 

5 

LAST 

595 

13,2334 

55 ' 460 

0 

TS 

MARK  CTR 

5129 

REF 

21 

LAST 

69  2 

13,2335 

1 6001 

1 

TC  F 

GOTO  POOH 

<=>  i 70 

llt? 3^6 

0 15  74 

0 

V06N84 

NV 

0684 

5131 

13, 2337 

01441 

1 

NV 

0633 

5132 

13,2340 

43174 

1 

P76SUB1 

AX  T , 2 

SET 

5133 

13,2341 

-00002 

0 

2 

5134 

REF 

9 

LAST 

715 

13, 2342 

00063 

1 

MOONFLAG 

5135 

13,2343 

77014 

1 

BON 

AXT,  2 

5136 

RFF 

6 

LAST 

702 

13,2344 

043  03 

0 

CMOONFLG 

5137 

REF 

4 

LAST 

719 

13,  2345 

00052 

0 

QPRE  T 

5138 

13,2346 

00000 

1 

0 

51  39 

13,2347 

434  14 

1 

CLEAR 

R VO 

5140 

REF 

10 

LAST 

7 19 

13, 2350 

00263 

0 

MOONFLAG 

USER'S  PAGE  NO.  3 E7  S3 


PERMIT  USE  OF  ORBITAL  INTEGRATION 
CLEAR  RR  TRACKING  MARK  COUNTER 


SET  MEANS  MOON  IS  SPHFRF  OF  INFLUENCE. 
SET  MEANS  PERM  CM  STATE  IN  LUNAR  SPHERE. 


GAP: 

POOOl 

R0002 

R0004 

R0006 

R0008 

ROOIO 

R0012 

R0013 

R0014 
R0015 
R0016 
R0017 
R0018 
ROO  19 
R0020 
R0021 
R0022 
R0023 
R0024 
R0025 
R0026 
R0027 
R0028 

R0029 
R0030 
R0031 
R0032 
ROO  33 
R0036 
R0037 

R0038 


R0039 
R 0040 
R0041 

R0042 

R0043 

R0044 

R0045 

R0046 

R0047 

R0048 

R0049 

R0050 
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SUBROUTINE  NAME:  V 82C ALL 

MCD  NO:  0 

MOD  BY:  RR  BAIRNSFATHER 

MOO  NC:  1 MOD  BY:  RR  BAIRNSFATHER  DATE:  11  APR  67 

MOD  NO:  2 MOO  BY  ALONSO  DATE  : 11  DEC  67 

MGD  NC:  3 -MOO-  BY  ALONSO  DATF:  26  MAP  68 

NEW  FUNCTIONAL  DESCRIPTION:  CALLED  RY  VERB  82  ENTER.  PRIORITY  10 

USED  THROUGHOUT.  CALCULATE  AND  DISPLAY  ORBITAL  PARAMETERS 


DATE:  16  FEB  67 

LOG  SECTION:  R30 

SR  30 . 1 CHANGED  TO  ALLOW  MONITOR  OPERN 
VB82  PROGRAM  REWRITTEN 

PROG  MOD  TO  HANDLE  DI F_ EARTH/MOON  SCALE 


1 . IF  AVERAGE  G I S OFF : 

FLASH  DISPLAY  V04N06.  R2  INDICATES  WHICH  SHIP'S  STATE  VECTOR  IS 
TO  BE  UPDATED-  INITIAL  CHOICE  IS  THIS  SHIP  IR2=L).  ASTRONAUT 
CAN  CHANGE  TO  OTHER  SHIP  BY  V22EXE,  WHERE  X NOT  EO  1. 

SELECTED  STATE  VECTOR  UPDATED  BY  THISPREC  I OTHPRFC  ) . 

CALLS  SR  30 . 1 (WHICH  CALLS  TFFCONMU  * TFFRP/RA ) TO  CALCULATE 
RPER  (PERIGEE  RADIUS),  RAPO  (APOGEE  RADIUS),  HP  ER  (PERIGEE 
HEIGHT  ABOVE  LAUNCH  PAD  OR  LUNAR  LANDING  SITE),  HAPO  ( APOGEF 
HEIGHT  AS  ABOVE),  TPER  (TIME  TO  PERIGEE),  TFF  (TIME  TO 
INTERSECT  300  K FT  ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE). 

FLASH  MONITOR  V 1 6N44  (HAPO,  HP  ER , TFF). TFF  IS  -59M59S  IF  IT  WAS 
NOT  COMPUTABLE,  OTHERWISE  IT  INCREMENTS  ONCE  PER  SECOND. 
ASTRONAUT  HAS  OPTION  TO  MONITOR  TPER  BY  KEYING  IN  N 32  E. 
DISPLAY  IS  IN  HMS , IS  NEGATIVE  (AS  WAS  TFF),  AND  INCREMENTS 

-CNCE  PER  SECOND  ONLY  IF  TFF  DISPLAY  WAS  -59M59S. 

2.  IF  AVERAGE  G IS  ON: 

CALLS  SR  30. 1 APPROX  EVERY  TWO  SECS.  STATE  VECTOR  IS  ALWAYS 
FOR  THIS  VEHICLE.  V82  DOES  NOT  DISTURB  STATE  VECTOR.  RESULTS 
CF  SR30.1  ARE  RAPO,  RPER,  HAPO,  HPER , TPER,  TFF. 

FLASH  MONITOR  V16N44  (HAPO,  HPER,  TFF). 

ACCENDUM:  HAPO  AND  HPER  SHOULD  BE  CHANGED  TO  READ  HAPOX  AND  HPER  X IN  THE 
ABOVE  REMARKS. 


CALLING  SEQUENCE:  VERB  32  ENTFR. 


SUBROUTINES  CALLEC:  SR30.1,  GOXDSPF 

MAYBE  - THISPREC  , OTHPREC,  LOADTIME,  DELRSPL 
NORMAL  EXIT  MODES:  TC  ENDE-XT 

ALARMS:  NONE 

OLTPUT:  HAPOX  (-29)  M 

HPERX  (-29)  M 

RAPO  (-29)  M EARTH 

(-27)  M MOON 
RPER  (-29)  M EARTH 

1-27) _M  MOON 

TFF  (-28)  CS  CONTAINS  NEGATIVE  QUANTITY 

-TPER  (-28)  CS  CONTAINS  NEGATIVE  QUANTITY 


GAP: 

L 

R0051 

R0052 

R0053 

R0054 


0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 


0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 
A0076 

0077 

0078 

0079 

0080 
0080 
0081 
0082 

0083 

0084 

0085 
A0086 

0087 

0088 

0089 

0090 

0090 

0091 

0092 
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ERASABLE  INITIALIZATION  REQUIRED:  STATE  VECTOR. 

DEBRIS:  QPRET,  RONE,  VON E , TFF/RTMU,  HPERMIN,  RPADTEM,  V82EMFLG. 

MAYBE:  T START 82 , V82FLAGS,  TDEC1 . 


REF 

3 

LAST 

329 

F 4,  1517 

EB ANK= 

HA  PC  X 

M t 2 1 7? 

SANK 

31 

REF 

2 

LAST 

59 

22, 2000 
22, 3242 

SETLOC 

BANK 

R30LCC 

REF  2 LAST  59  TO  59-: 4 4*  COUNT  * $t/R30 


REF 

85 

LAST 

719 

22. 3242 

22.3243 

0 6036 
52014 

1 V82CALL 
0 

TC 

BON 

I L TP  PET 
GOT  C 

REF 

4 

LAST 

714 

22,3244 

03712 

0 

AVEGFLAG 

REF 

1 

22, 3245 

45465 

1 

V82GCN 

IF 

AVERAGE 

G 

ON 

REF 

— 1- 

22,3246 

45247 

4 

V82GCFF 

IF 

AVERAGE 

G 

OFF 

22,-3247  77776  1 V82G0FF  EXIT  ALLOW  ASTRONAUT  TO  SELECT  VEHICLE 


REF 

REF 

REF 

37 
11 
8 1- 

LAST 
LAST 
1 AST 

574 
352 
66  5 

22,  3250 

22.3251 

22. 3252 

3 4752 
55' 051 
3 4753 

0 

0 

1 

CAF 

TS 

CAF 

TWO 

OP  T I ONX 
ONE 

DESIRED  FOR  ORBITAL  PARAMETERS 
CALCULATION  AND  DISPLAY. 

REF 

12 

LAST 

72  1 

22, 3253 

55' 052 

0 

TS 

OPT  I ONX  +1 

REF 

1 

22,3254 

3 3316 

0 

CAF 

OPT  I ONVN 

V 04  N 06 

REF 

171 

LAST 

7 19 

22,  3255 

0 4616 

1 

TC 

BANKCALL 

REF 

7 

LAST 

30  5 

22,3256 

202  12 

1 

CADR 

GCXDSPF 

REF 

40 

LAST 

713 

22, 3257 

0 5472 

0 

TC 

ENDE  XT 

TERMINATE 

22, 3260 

0 3262 

1— 

TC 

+ 2 

PROCEED 

22,3261 

0 32  54 

1 

TC 

-5 

DATA  IN.  OPT  I ON  1+ 1 = l FOR  THIS  VEHICLE. 

UNEQ  1 FOR  OTHER  VEHICLE. 

REF 

29 

LAST 

615 

22,3262 

3 4750 

1 

CAF 

B IT4 

80  MS 

REF 

30 

LAST 

66  0 

22,3263 

0 5203 

0 

TC 

WAITLIST 

REF 

3 

LAST 

329 

E 4, 1 540 

EB ANK= 

TFF 

REF- 

4— 

22,3464 

03430 

-0 

2C  ADR 

TICK  TEST 

REF 

1 

22,3265 

44064 

0 

22, 3266 

0 0003 

1 

RELINT 

REF 

1 

22,3267 

3 3320 

0 

V82G0FLP 

CAF 

TFF6 ANK 

MAJOR  RFCVCLE  LOOP  ENTRY 

REF 

17 

LAST 

68  7 

22,  3270 

54  0 03 

0 

TS 

EBANK 

REF 

1 30 

LAST 

719 

22, 3271 

3 4755 

1 

CAF 

ZFRO 

REF  - 

2 

LAST 

13  1 

22,  3-27 2 

55' 537 

0 

TS 

V82F  LAGS 

ZERO  FLAGS  FOR  TICKTEST.  INHIBITS 

DECREMENTING  OF  TFF  AND  -TPER . 

RFF 

6 

LAST 

307 

22, 3273 

3 5021 

1 

CAF 

PRI07 

REF 

24 

LAST 

7 1 2 

22, 3274 

0 5105 

0 

TC 

F INDVAC 

V 92GOFF 1 WILL  FXFCUTE  STATE  VECTOR 

REF 

4 

LAST 

72  1 

E4 , 1 540 

EB ANK= 

TFF 

UPDATE  AND  ORBIT  CALCULATIONS  FOR 

REF 

1 

22, 3275 

03321 

1 

2CADR 

V 82G0FF1 

SELECTED  VEHICLE  ABOUT  PROPER  BODY. 

REF— 

1 — 

22,3276 

44064 

0 

22,3277 

0 0003 

1 

RFL INT 

REF 

21 

LAST 

619 

22, 3300 

3 6244 

0 

V82STALL 

CAF 

THREE 

STALL  IN  THIS  LOOP  AND  WITHOLD  V 16  N 44 

GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L R3C 


0093 

REF 

3 

l AST 

72  1 

22, 3301 

7 1537 

0 

MASK 

V82F  LAGS 

0094 

REF 

218 

LAST 

687 

22,3302 

10  000 

0 

CCS 

A 

REF 

2 2 t 3 30  3 

0 3310 

0 

TC 

FLAGGON 

0096 

REF 

7 

LAST 

639 

22, 3304 

3 4777 

1 

CAE 

1 SEC 

0097 

REF 

172 

LAST 

72  1 

22, 3305 

0 4616 

1 

TC 

B ANKCALL 

0098 

R FF 

] ] 

J AST 

689 

22, 3306 

01735 

1 

CADR 

DELAYJOB 

0099 

REF 

1 

22,3307 

0 33  00 

1 

TC 

V82STALL 

2 2 , T t i n 

3 33  17 

1 

FLAGGON 

CAF 

V 1 6N  AA 

0101 

REF 

l 73 

LAST 

72  2 

22,3311 

0 4616 

1 

TC 

RANKCALL 

0102 

REF 

8 

LAST 

721 

22,3312 

202  12 

1 

CADR 

GOXDSPF 

010^ 

R F f 

8 

| AST 

7 1 2 

22 ,3  31  3 

0 5563 

1 

TC 

B50F  F 

0104 

REF 

9 

LAST 

722 

22,3314 

0 5563 

1 

TC 

B50FF 

0105 

REF 

1 

22,3315 

0 3267 

1 

TC 

V82GCFLP 

0106 

22,3316 

01014 

0 

OPT  I ON VN 

VN 

412 

0107 

22, 3317 

04054 

1 

V16N44 

VN 

1644 

0108  REF  -5  LAST  721  22,3320  -021-40-0  TEE  BANK  -ECAD-R — IFF 


U1UV 

0110 

Ktr 

CO 

lAol 

re-r 

CtL  , D D c.  L 

22,  3322 

77634 

0 

RTB 

0111 

REF 

16 

LAST 

714 

22,3323 

21462 

1 

LOADTIME 

01  12 

REF 

39 

LAST 

7 18 

22,3324 

00041 

1 

STOPE 

T DEC  1 

0113 

REF 

3 

LAST 

352 

22,3325 

02211 

1 

STORE 

TST  ART  82 

01  14 

22,3326 

77776 

1 

EXIT 

0115 

RFF 

13 

LAST 

72  1 

22,3327 

4 1052 

0 

CS 

OPTICNX  +1 

0116 

REF 

82 

LAST 

72  1 

22,3330 

6 4753 

1 

AD 

ONE 

0117 

22, 3331 

0 0006 

1 

EXTEND 

0118 

REF 

1 

2 2,  3 33  2 

] 3356 

o 

B 7 F 

THISSHIP 

0119 

REF 

87 

LAST 

722 

22, 3333 

0 6036 

1 

OTHSHIP 

TC 

INTPRET 

0120 

22, 3334 

77624 

1 

CALL 

0121 

REF 

5 

L AST 

718 

22,3  335 

27043 

0 

OTHPREC 

0122 

22,3336 

77775 

1 

BOTHSHI P 

VLOAD 

0123 

REF 

24 

LAST 

718 

22,3337 

00001 

0 

R ATT 

0124 

REF 

14 

LAST 

715 

22, 3340 

262  13 

0 

STOVL 

ROME 

0125 

REF 

19 

LAST 

718 

22,3341 

00007 

0 

VATT 

0126 

REF 

5 

LAST 

715 

22,  3342 

02221 

1 

STORE 

V0NE 

0127 

22 , 3 343 

77743 

1 

□LOAD* 

0128 

REF 

1 

22, 3344 

73774 

1 

1/RTMUE.2 

0129 

REF 

1 

22,3345 

00037 

0 

STORE 

TFF/PTMU 

0130 

22, 3346 

77743 

1 

nLOAD* 

0131 

REF 

1 

22,3347 

72411 

0 

MINPERE, 2 

0132 

REF 

2 

LAST 

13  1 

22,3350 

02205 

1 

STORE 

HPER  MIN 

0133 

22,3351 

46135 

1 

SLOAD 

R H I 7 

0134 

REF 

12 

LAST 

705 

22, 3352 

00050 

1 

X 2 

0135 

REF 

1 

22,3353 

45367 

1 

EAR  THPAD 

0136 

22,3354 

776  50 

1 

r,nTn 

0137 

REF 

1 

22, 3355 

45373 

1 

MOONPAD 
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UNTIL  STATE  VECTOR  UPDATE  SETS  ONE  OF 
OUR  FLAG  BITS. 

EXIT  FROM  STALL  LOOP. 


MONITOR  HAPO,HPER,TFF. 


TERM  THIS  TELLS  TICKTEST  TO  KILL  ITSELF 
PROCEED  DITTO 

RECYCLE  RECOMPUTE  STATE  VECT  + DISPLAY 


TIME  FOR  STATE  VECTOR  UPDATE. 

TIME  FOR  INTERNAL  USE. 

1 FOR  THIS  VEHICLE,  NOT  1 FOR  OTHER. 


CALL  STATE  VECTOR  UPDATE  FOR  OTHER  SHIP. 

MOVE  RESULTS  INTO  TFFCONIC  STORAGE  AREAS 
TO  BE  CALLEO  RY  SR30. 1 . 

RATT  AT  ( — 29 ) M FOR  EARTH  OR  MOON 

VATT  AT  (-7IM/CS  FOR  EARTH  OR  MOON 

X2  IS  0 FOR  EARTH  CENTERED  STATE  VEC 
X2  IS  2 FOP  MOON 
AS  LEFT  BY  THISPREC  OR  OTHPREC. 

TFFRTMU,  HPFRMIN  AND  RPADTEM  ARF  ALL 
EARTH/MOON  PARAMETERS  AS  SET  HERE. 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2-021112-011 


L 

R30 

0138 

REF 

88 

LAST 

722 

22,3356 

0 6036 

1 

THISSHIP  TC 

INTPRFT 

0139 

22,3357 

77624 

1 

CALL 

P EF 

4 

1 AST 

7 14 

22,3  360 

27057 

0 

THIS  PREC 

0141 

22, 3361 

77650 

1 

GOTO 

0142 

REF 

i 

22,  3362 

45336 

0 

BOTH  SHIP 

R 01  43 

THE 

FOLLOWING 

CONSTANTS  ARE  i 

PAIRWISE 

INDEXED.  DO  NOT  SEPARATE  PAIR 

22r 336^ 

oonni 

o 

M7NPFRM  ?D  F f 

10668  B- 27 

0146 

22,3364 

11530 

1 

0147 

22,3365 

00002 

0 

MINPERE  2DEC 

91440  B— 29 

0147 

22, 3366 

31230 

1 

0148 

22,3367 

43145 

0 

EARTHPAO  DLOAD 

CIRGO 

0149 

REF 

2 

LAST 

70  5 

22 , 3370 

06276 

J. 

RPAD 

0150 

REF 

i 

22, 3371 

03635 

1 

V82EMFLG 

0151 

REF 

i 

22,3372 

45377 

0 

ROTHPAD 

0152 

22, 3373 

51575 

1 

MOONPAD  VLOAD 

ABVA  L 

0153 

REF 

3 

LAST 

705 

22, 3374 

02023 

1 

RLS 

01  54 

22, 3375 

776  14 

1 

SET 

0155 

REF 

2 

LAST 

723 

22,3376 

03475 

1 

V 82  EMFLG 

0156 

REF 

2 

LAST 

13  1 

22, 3377 

36207 

1 

BOTHPAD  ST  CAL  L 

PPADTEM 

0157 

REF 

1 

22, 3400 

455  51 

1 

SR 30 .1 

0158 

22,3401 

45234 

0 

RTB 

DSU 

0159 

REF 

17 

LAST 

72  2 

22,3402 

21462 

1 

LOADTIME 

0160 

REF 

4 

LAST 

722 

22,3403 

02211 

1 

TSTAPT82 

0161 

REF 

5 

LAST 

723 

22,3404 

022  11 

1 

STORE 

TSTART82 

0162 

22,3405 

53145 

1 

DLOAD 

BZE 

0163 

REF 

2 

LAST 

321 

22,3406 

02143 

0 

-TPER 

0164 

REF 

1 

22,3407 

45420 

0 

TICK  TFF 

0165 

22,3410 

43345 

1 

TICKTPER  DLOAD 

DAD 

0166 

REF 

3 

LAST 

723 

22,3411 

02143 

0 

-T  PF  P 

0167 

REF 

6 

LAST 

723 

2 2,3412 

02211 

1 

TSTART82 

0168 

REF 

4 

LAST 

723 

22,3413 

02143 

0 

STORF 

-TPER 

0169 

22, 3414 

77776 

1 

EXIT 

0170 

REF 

37 

LAST 

69  1 

22,3415 

3 4753 

1 

CAF 

BIT1 

0171 

REF 

4 

LAST 

722 

22,3416 

55' 537 

0 

TS 

V82F LAGS 

0172  REF  1C2  LAST  691  22,3417  0 5155  0 TC  ENDOFJOB 


0173 

0174 

REF- 

6 

LAST 

722 

22. 3420 

22.3421 

43345 

02141 

1 

1 

TICKTFF  DLOAD 

DAD 

TFF 

0175 

REF 

7 

LAST 

723 

22,  3422 

022  11 

1 

T ST  A PT82 

0176 

REF 

7 

LAST 

723 

22,3423 

02141 

1 

STORE 

TFF 

0177 

22,3424 

77776 

1 

EXIT 

0178 

REF 

42 

LAST 

66  5 

22, 3425 

3 4752 

0 

CAc 

B I T2 

0179 

REF 

5 

LAST 

723 

22,3426 

55*537 

0 

TS 

V82F  LAGS 

0180 

REF 

1C3 

LAST 

72  3 

22 , 3 427 

__0  5155 

0 

TC 

FNDOFJOB 
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CALL  STATE  VECTOR  UPDATE  FOR  THIS  SHIP. 


35  K FT  MIN  PERIGEE  HEIGHT  FOR  MG0N(-27)M 
300  KFT  (-29IM  FOR  EARTH 


PAD  37-B  RADIUS.  SCALED  AT  (-291M. 
INDICATE  EARTH  SCALING  FOR  SP30.1 


COMPUTE  MOON  PAD  RADIUS  FROM  RLS  VECTOR. 
SCALED  AT  (-27 ) M . 

INDICATE  MOON  SCALING  FOR  SR30.1 
CALCULATE  ORBITAL  PARAMETERS 


PRESENT  TIME  - TIME  V82G0FF1  BEGAN 
SAVE  IT 

SR30.1  SETS  -TP  ER  = 0 IF  HP  ER  L/ 

HPERMIN  (300  OR  35)  KFT. 

( -TP  ER  = 0) 

( -TP  ER  NON  ZEPO)  TFF  WAS  NOT  COMPUTED, 
BUT  WAS  SET  TO  59M59S.D0NT  TICK  TFF,  DO 
TICK  — T PE  R . DISPLAY  BOTH. 

-TPER  CORRECTED  FOR  TIME  SINCE  V82GOFF1 
BEGAN. 


INFORMS  TICKTEST  TO  INCREMENT  ONLY  -TPER 


( -TP  ER=0 ) TFF  WAS  COM  PUT  ED. T I CK  TFF. 
DOL NOT  TICK  -T PER .0  I SPL AY  TFF,  BUT  NOT 
-TPER. 

TFF  CORRECTED  FOR  TIME  SINCE  V82GOFF1 
BEGAN. 

INFORMS  TICKTEST  TO  INCREMENT  ONLY  TFF. 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112—011 


GAP: 


L R 30 


0181 

REF 

30 

LAST 

713 

22,3430 

3 4747 

1 

TICKTEST 

CAF 

B I T 5 

0182 

REF 

12 

LAST 

713 

22, 3431 

7 1044 

1 

MASK 

EXTVBACT 

219 

LAST 

722 

2 2 1 3 9 3 2 

i 0 000 

0 

CCS 

A 

0184 

REF 

i 

22,3433 

0 3441 

0 

TC 

DOT  I CK 

0185 

REF 

3 

LAST 

60  2 

22, 3434 

3 7712 

1 

CAF 

PR  1025 

712 

2 2t  TATS 

0 5072 

1 

TC 

jN-QVAC 

0187 

REF 

13 

LAST 

724 

1 044 

EB ANK= 

EXTVBACT 

0188 

REF 

41 

LAST 

721 

22,3436 

05472 

0 

2C  ADR 

ENDE  XT 

22,3937 

04062 

1 

0189 

REF 

30 

LAST 

712 

22,3440 

0 5261 

1 

TC 

TASKOVER 

0190 

REF 

8 

LAST 

72  2 

22, 3441 

3 4777 

1 

DOTICK 

CAF 

1 SEC 

0 1 Q 1 

8 EF 

3 1 

| AST 

72  1 

22 , 3992 

0 52  0 3 

0 

TC 

_RAITLIST 

0192 

REF 

8 

LAST 

723 

E 4, 1540 

EBANK= 

TFF 

0193 

REF 

2 

LAST 

72  1 

22,3443 

03430 

0 

2C  ADR 

TICK  TFST 

m 93 

22 , 3999 

44064 

0 

0194 

REF 

22 

LAST 

72  1 

22, 3445 

3 6244 

0 

CAF 

THP  E E 

0195 

REF 

6 

LAST 

72  3 

22,3446 

7 1537 

0 

MASK 

V 82 F LAGS 

0 1 96 

REF 

220 

LAST 

729 

22, 3447 

50  000 

_L_ 

INDEX  A 

0197 

22, 3450 

0 3451 

1 

TC 

+ 1 

0198 

REF 

31 

LAST 

724 

22,3451 

0 5261 

1 

TC 

TASKOVER 

A 0 1 99 

0200 

REF 

1 

22,3452 

0 3460 

0 

TC 

TPER  TICK 

0201 

REF 

9 

LAST 

724 

22,3453 

3 4777 

1 

TFFTICK 

CAF 

1 SEC 

02^2 

REF 

95 

| AST 

7 1 1 

2 2, 3 9 59 

59  0 01 

l 

TS 

L 

0203 

REF 

131 

LAST 

72  1 

22, 3455 

3 4755 

1 

CAF 

ZERO 

0204 

REF 

9 

LAST 

724 

22,3456 

21*541 

1 

DAS 

TFF 

0 20^ 

REF 

^2 

| AST 

7 2 A 

2 2t  3 957 

0 5261 

1 

TC 

TASK  CA/ER 

0206 

REF 

10 

LAST 

724 

22, 3460 

3 4777 

1 

TPERTICK 

CAF 

1 SEC 

0207 

REF 

96 

LAST 

724 

22,3461 

54  001 

1 

TS 

L 

02  08 

REF 

132 

LAST 

7 2 9 

22, 3962 

3 9755 

1 

CAF 

ZERO 

0209 

REF 

5 

LAST 

72  3 

22,3463 

21' 543 

0 

DAS 

-TPER 

0210 

REF 

33 

LAST 

72  4 

22, 3464 

0 5261 

1 

TC 

TASKOVER 
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THIS  WAITLIST  PROGRAM  PERPETUATES  ITSELF 
ONCE  A SEC  UNTIL  BIT  5 OF  EXTVBACT  =0. 


TERMINATE  V 82. CANT  CALL  ENDEXT  IN  RIJPT. 


RE-REQUEST  TICKTEST. 


IF  NO  ELAGBITS  SET  OONT  CHANGE  TFF  OR 
-TPER,  BUT  CONTINUE  LOOP. 

ONLY  BIT  1 SET.  INCR  -TPER  BY  1 SEC. 
ONLY  BIT  2 SET.  INCR  TFF  BY  1 SEC. 


GAP:  ASSEMBLE  REVISION  069  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021-112-011 


L R30 


0211 

22,3465 

77776 

1 V82G0N 

EXIT 

A0212 

0213 

RE  F 

7 

L AST 

7 2 1 

22,3  466 

3 5021 

1 

CAF 

PR I 07 

0214 

REF 

25 

LAST 

72  1 

22,3467 

0 5105 

0 

TC 

F INDVAC 

0215 

REF 

10 

LAST 

724 

F 4, 1 540 

EBANK= 

TFF 

0216 

R-ET 

1 

77 , 3 470 

03503 

1 

2.CADR  _ . 

V82GCN1 

0216 

REF 

1 

22, 3471 

440  64 

0 

0217 

22, 3472 

0 0003 

1 

RELINT 

02  1 8 

REF 

4 

LAST 

56  3 

22, 3 473 

10  067 

_1 

CCS 

NEW  J CB 

0219 

REF 

3 

LAST 

563 

22, 3474 

0 5122 

0 

TC 

CHANG1 

A0220 

A0221 


0222 

REF 

2 

LAST 

722 

22, 3475 

3 3317 

1 

V82REDSP  CAF 

V 16N44 

0223 

REF 

174 

LAST 

722 

22, 3476 

0 4616 

1 

TC 

BANKCALL 

0224 

REF 

9 

LAST 

72  2 

22, 3477 

20212 

1 

CADR 

GOXDSPF 

0225 

REF 

10 

LAST 

722 

22, 3500 

0 5563 

1 

TC 

B50FF 

0226 

REF 

11 

LAST 

725 

22,3501 

0 5563 

1 

TC 

B50FF 

0227  RE-F  1 2.2,3  5 02  — 0-3475- _ TC  V82PEDSP 


0228 

A0229 

REF 

89 

LAST 

723 

22,3503 

0 6036 

1 

V82G0N1 

TC 

INTPRET 

0230 

22, 3504 

52175 

0 

VLOAD 

GOTO 

0231 

REF 

6 

LAST 

71  5 

22, 3505 

01221 

1 

RN 

0232 

REF 

1 

23,3  506 

45507 

1 

NEXTLINE 

0233 

REF 

15 

LAST 

722 

22, 3507 

26213 

0 

NEXTLINE 

STOVL 

RONE 

0234 

REF 

6 

LAST 

715 

22, 3510 

01227 

1 

VN 

0235 

REF 

6 

LAST 

72  2 

22,3511 

02221 

1 

STORE 

VONF 

0236 

22, 3512 

52014 

0 

BON 

GOTO 

0237 

REF 

4 

LAST 

715 

22,3513 

04304 

1 

MOON  TH I S 

0238 

R EF 

1 

22, 3514 

45516  1 

MOONGON 

0239 

REF 

1 

22, 3515 

45527 

0 

EAR  THGON 

0?  40 

R 1 A 

71214 

0 

Mnni\jr,ON 

SE  T 

n LO  A D 

0241 

REF 

3 

LAST 

723 

22, 3517 

034  75 

1 

V82EMFLG 

0242 

REF 

1 

22,3520 

0400  1 

1 

1 /RTMUM 

0243 

REF 

2 

LAST 

7 2-2 

22 , 3 52 1 

14037 

0 

STODL 

TFF/RTMU 

0244 

REF 

1 

22,3522 

05364 

0 

M INPERM 

0245 

REF 

3 

LAST 

722 

22, 3523 

26205 

1 

STOVL 

HPEP  MIN 

0246 

REF 

4 

LAST 

723 

22,3524 

02023 

1 

RLS 

0247 

22, 3525 

52046 

1 

ABVAL 

GOTO 

0248 

REF 

1 

22, 3526 

45536 

0 

V82G  ON 2 

0249 

22 , 3 52  7 

71214 

0 

EARTHGON 

CLEAR 

DL  DA  D 

0250 

REF 

4 

LAST 

725 

22,3530 

03675 

0 

VP 2 E MFLG 

0251 

REF 

2 

LAST 

722 

22,  3531 

04003 

0 

1 /RTMUE 

0252 

REF 

3 

LAST 

725 

22,  3 532 

14037 

0 

STODL 

TFF/RTMU 

0253 

REF 

2 

LAST 

722 

22, 3533 

05366 

1 

MINPEPF 

0254 

REF 

4 

LAST 

725 

22,3534 

16205 

1 

STODL 

HPERMIN 

0255 

REE 

3 

LAST 

72  3 

22, 3535 

06276 

1 

R P A D 

0256 

REF 

3 

LAST 

72  3 

22,3536 

36207 

1 

V82GON2 

STCALL 

RPADTEM 

0257 

REF 

2 

LAST 

72  3 

22,3537 

45551 

1 

SR  30  .1 
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AVERAGE  G ON.  USE  CURRENT  STATE  VECTOR 
FOR  ORBITAL  PARAMETER  CALCULATIONS. 

LESS  THAN  LAMBERT 

V82GON1  WILL  PERFORM  ORBIT  CALCULATIONS 
ABOUT  PROPER  BODY  APPROX  ONCE  PEP  SEC. 


WITHOLD  VI 6 N44  UNTIL  FIRST  ORBIT  CALC 
IS  DONE.  NOTE:  V82G0N1  IPRI07,  FINOVAC 
JOB)  IS  COMPLETED  BEFORE  V82G0N  (PRI07, 
NOVAC  JOB ) . 

MONITOR  HAPO,  HP  ER » TFF 


TERM  THIS  TELLS  V82G0N1  TO  KILL  ITSELF. 
PROC  DITTO. 

RECYCLE 

THIS  EXEC  PROGRAM  PERPETUATES  ITSELF 
ONCE  A SEC  UNTIL  BIT  5 OF  EXTVBACT  =0. 
HOLDS  OFF  CCS  NEWJOB  BETWEEN  PN  AND 
VN  FETCH  SO  RN  , VN  ARE  FROM  SAME 
STATE  VECTOR  UPDATE. 

RN  AT  (-29 ) M FDR  EAPTH  OR  MOON 

VN  AT  ( -7 ) M/C S FOR  FARTH  OR  MOON 

FLAG  INDICATES  BODY  ABOUT  WHICH  ORBITAL 
CALCULATIONS  ARE  TO  3E  PERFORMED. 

IF  SET  - MOON  , IF  RESET  - EARTH. 


INDICATE  MOON  SCALING  FOR  SR30.  1 
LUNAR  PARAMETERS  LOADED  HERE  FOR  SR30.1 


SCALED  AT  (-27IM. 


INDICATE  EARTH  SCALING  FOR  SR30.1 
EARTH  PARAMFTERS  LOADED  HERE  FOR  SR30.1 


COMMON  CODE  FOR  EARTH  £ MOON 
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0258 

22,3540 

77776 

1 

EXIT 

0259 

REF 

31 

LAST 

724 

22,3541 

3 4747 

1 

V82G0N3 

CAF 

BIT5 

7 2 4 

22»  ^ S4? 

7 1044 

1 

MASK 

EXTV  BACT 

SEE  IF  ASTRONAUT  HAS  SIGNALLED  TERMINATF 

0261 

22, 3543 

0 0006 

1 

EXTEND 

0262 

REF 

42 

LAST 

724 

22,3544 

1 5472 

1 

BZF 

ENDFXT 

YES,  TERMINATE  VB  82  LOOP 

1 l 

l_  £$  T 

7 2 4 

^ S45 

3 4777 

1 

CAF 

1SEC  - 

02  64 

REF 

175 

LAST 

725 

22,3546 

0 4616 

1 

TC 

BANKCALL 

WAIT  ONE  SECOND  BEFORE  REPEATING 

0265 

REF 

12 

LAST 

722 

22,3547 

01735 

1 

CADR 

DEL AY JOB 

ORBITAL  PARAMETER  COMPUTATION. 

REF 

2 

i AST 

72  5 

22t  3 550 

0 3503 

1 

TC 

V82G  ONI 

0267 

REF 

i 

22,3541 

SPLRET 

V82GCN3 

GAP 
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L R 30 

P0268  SUBROUTINE  NAME:  SR30.1 

R0269  MCD  NC:  0 

R0271  MOD  BY:  RR  BAIRNSFATHER 

R0273  MOD  NC:  1 MOD  BY:  RR  BAIRNSFATHER  DAT  F : 11  APR  67 

R0275  MOD  NO:  2 MOD  BY:  RR  BAIRNSFATHER  DATE:  14  APR  67 

R0277  MCD  NC:  3 MOO  BY  ALONSO  DATE:  11  DEC  67 

R0279  MOD  NC:  4 MOD  BY  ALONSO  DATE:  26  MAR  68 

R0281  MCD  NC:  5 MOD  BY:  RR  BAIRNSFATHER  DATE:  6 AUG  68 

R0283 

R0284  NEW  FUNCTIONAL  DESCRIPTION:  ORBITAL  PARAMETERS  DISPLAY  F CR  NOUNS  32 

R0286  SR30.1  CALLS  TFFCONMU  AND  TFFRP/RA  TO  CALCULATE  RPER  ! PER  IGF E RAD  I U S ) , 

R0287  RAPO  (APOCEE  RADIUS),  HPER  (PERIGEE  HEIGHT  ABOVE  LAUNCH  PAD  OR  LUNAR 
R0288  LANDING  SITE),  HAPO  (APOGEE  HEIGHT  AS  ABOVE),  TPER  (TIME  TD  PERIGEE), 
R0289  TFF  (TIME  TO  INTERSECT  300  KFT  ABOVE  PAD  OR  35KFT  ABOVE  LANDING  SITE). 

R0290  IF  HPER  IS  GREATER  THAN  OR  EQUAL  TO  HPERMIN,  CALCULATES  TPER  AND  STORES 

R0291  NEGATIVE  IN  -TPER.  OTHERWISE  STORES  +0  IN  -TPER.  WHENEVER  TPER  IS 
R0292  CALCULATED  ,_  TFF  IS  NOT  COMPUTABLE  AND  DEFAULTS  TO  -59MIN  59SFC.  IF  HAPO 
R0293  WOULD  EXCEED  9999.9  NM,  IT  IS  LIMITED  TO  THAT  VALUE  FOR  DISPLAY. 

R0294  ADDENDUM:  HAPO  AND  HPER  SHOULD  BE-  CHANGED  TO  READ  HAPOX  AND  HPFRX  IN  THE 

R0295  ABOVE  REMARKS. 

R 02  96  CALLING  SEQUENCE:  — OAti- 

R0297  SR  30  . 1 

R0298  SUBROUTINES  CALLED:  TFFCONMU,  TFFRP/RA,  CALCT  PEP. , CALC  TFF 

R0299  NORMAL  EXIT  MODE:  CALLING  LINE  +1  (STILL  IN  INTERPRETIVE  MODE) 

R0300  ALARMS:  NONE 


R0301 

OUTPUT:  RAPO  ( 

-29) 

M EARTH 

APOGEE  RADIUS  EARTH  CENTERED  COORD. 

RO^O? 

( 

-?7 ) 

M MOON 

MOON  CENTERED  COORD. 

R0303 

RPER  ( 

-29) 

M EARTH 

PERIGEE  RADIUS  EARTH  CENTERED  COORD. 

R0304 

( 

-27) 

M MOON 

MOON  CENTERED  COORD. 

R0305 

HAPOX  ( 

-29) 

M - 

APOGEE  ALTITUDE  ABOVE  PAD  OR  LAND.  SITE 

R0307 

HPER  X ( 

-29) 

M 

PERIGEE  ALT.  ABOVE  PAD  OR  LAND.  SITE 

R 0309 

TFF  ( 

-28) 

CS 

TIME  TO  300KFT  OR  35KET  ALTITUDE 

R0310 

-TPER  ( 

-28) 

CS 

TIME  TO  PERIGEE 

R0311 

ERASABLE  INITIALIZATION  REQUIRED- 

R0312 

TFF/RTMU 

(+17)  EARTH 

RECIPROCAL  OF  PROPER  GRAV  CONSTANT  FOR 

R0313 

( +14 

) MOON 

EARTH  OR  MOON  = l/SQRTIMU). 

R0314 

RCNE 

(-29) 

M 

STATE  VECTOR 

R0315 

VCNE 

(-7) 

M/CS 

STATE  VECTOR 

R0316 

RPADTEM 

(-29) 

M EARTH 

RADIUS  OF  LAUNCH  PAD  OR  LUNAR  LANDING 

R0317 

(-27) 

M MOON 

SI  TE. 

R0318 

HPERMIN 

(-29) 

M EARTH 

(300  OR  35 ) KFT  MINIMUM  PERIGEE  ALTITUDE 

R 03  1 9 

(-27) 

M MOON 

ABOVE  LAUNCH  PAD  OR  LUNAR  LANDING  SITE. 

R0320 

V82EMFLG 

( INT 

SW  BIT) 

RESET  FOR  EARTH,  SET  FOR  MOON. 

USER' S PAGE  NO.  8 E4  S3 


DATE:  16  FEB  67 

LOG  SECTION:  R32 

SR30.1  CHANGED  TO  ALLOW  MONITOR  OPFRN 
ADD  OVFL  CK  FOR  RAPO 
SUBROUTINE  REWRITTEN 

PROG  MOD  TO  HANDLE  DIF  EARTH/MOON  SCALE 
OVFL  CK  FOR  HAPO  £ HPER. VOIDS  MOD  #? . 


AND  44. 


MAX  VALUE  LIMITED  TO  9999.9  NM. 
MAX  VALUE  LIMITED  TO  9999.9  NM. 


R0321 


DEBRIS 


QPRET,  PDL,  S2 


GAP:  ASSEMBLE  REVISION  069 

OH  AGC  PROGRAM  LUMINARY  BY 

NASA  2021112-011 

L R 30 

0322  REF  1 

COUNT  * $ $/ SR  30S 

2 2 , 3 554 

44001  0 SR30.1 

SETPQ — 5-TQ — 

0323 

0324 

22,3552 

00001  0 

0 

0325  REF  7 LAST  621 

22, 3553 

00051  0 

S2 

A0326 
A0327 
A0328 
A0329 
A0330 
AO  3 3 1 
A0332 
A0333 
A0334 
A0335 


0336 

0337 

0338 

REF 

REF 

5 

— 1— 

LAST 

725 

22. 3554 

22.3555 
22,3  556 

77214 

03755 

45565 

0 

0 

0 

BC1FF 

VLOAD 
V 82  E MFLG 
. _XFEC  ALLS 

0339 

REF 

16 

LAST 

725 

22, 3557 

02213 

0 

RONE 

0340 

22,3560 

77752 

1 

VSL2 

0341 

REF 

L7 

LAST 

72  8 

22, 3561 

26213 

0 

STOVL 

ROME 

0342 

REF 

7 

LAST 

725 

22,3  562 

02221 

1 

VONE 

0343 

22, 3563 

77752 

1 

VSL  2 

0344 

REF 

8— 

LAST 

72  8 

22,3  564 

02221 

JL_ 

STORE 

VnNF 

0345 

22,3565 

77624 

1 

TFFC  ALL  S 

CALL 

0346 

REF 

1 

22,3566 

57333 

0 

TFFC  CNMU 

0347 

22,  3 56  7 

77624 

1 

CALL 

0348 

REF 

1 

22,3  570 

57401 

0 

TFFP  P/RA 

A0349 

0350 

22,  3-57 1 

77625 

0 

DSU 

03  51 

REF 

4 

LAST 

725 

22,3572 

02207 

0 

RPADTEM 

0352 

22,3573 

64414 

1 

BOFF 

SR2P 

A03  53 

A0354 

0355 

REF 

6 

LAST 

728 

22,3574 

03755 

0 

V 82E MFLG 

03  56 

22, 3575 

455  76 

_1 

+ 1 

03  57 

22, 3576 

77624 

1 

CALL 

0358 

REF 

5 

LAST 

663 

22,3577 

45636 

0 

MAXCHK 

0359 

REF 

-4 

LAST 

72  1 

2 2,3  600 

16120 

0 

STDRHAPQ 

STODL 

HAPO.X 

0360 

REF 

l 

22,3601 

000  17 

1 

RPER 

0361 

22, 3602 

77625 

0 

DSU 

0362 

REF 

- 5 

LAST 

728 

22,3603 

02207 

0 

RPADTFM 

0363 

REF 

273 

LAST 

710 

22,3604 

00161 

1 

STORF 

MPAC  +4 

0364 

22,3605 

64414 

1 

BOFF 

SR2R 

A0365 

A0366 

0367 

REF 

7 

LAST 

728 

22,3606 

03755 

0 

V82EMFLG 

0368 

22, 3607 

456  10 

_J 

+ 1 

0369 

22,3610 

77624 

1 

CALL 

0370 

REF 

6 

LAST 

728 

22,3611 

45636 

0 

MAXC  HK 
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INITIALIZE  PUSHDOWN  LIST. 


SR30.1  INPUT:  RONE  AT  (-29) M. FARTH/MOON 
VONE  AT  ( -7 ) M/C  S 

TFFCONMU, TFFRP/RA,C  ALCTPER  AMD  CALCTFF 
CALLS  REQUIRE  : 

EARTH  CENTERED  (NO  RESCALING  REQUIRED) 
RONE  SCALED  TO  0-29  M 
VONE  SCALED  JO  B-7  M/CS 
MOON  CENTERED  (RESCALING  REQUIPED) 
RONE  SCALED  TO  B-27  M 
VONE  SCALED  TO  B-5  M/CS 

OFF  FOR  EARTH  , ON  FOR  MOON. 


TFFRP/RA  COMPUTES  RAPO,RPER. 
RETURNS  WITH  RAPO  IN  D(MPAC). 


NEED  HAPO  AT  (-29)«  FOR  DISPLAY. 

IF  MOON  CENTERED,  RESCALE  FROM  (-?7)M. 
IF  EARTH  CENTERED  ALREADY  AT  (-79JM. 
OFF  FOR  EARTH  , ON  FOR  MOON. 

IF  HAPO  > MAXNM,  SFT  HAPO  =9999.9  NM . 
OTHERWISE  STORE  ( R APO- R PADTEM ) IN  HAPO. 


GIVES  HPFR  AT  (-29)M  EARTH,  (-27IM  MOON. 
SAVE  THIS  FOR  COMPARISON  TO  HPERMIN. 

NEFD  HPER  AT  (-29)M  FOR  DISPLAY. 

IF  MOON  CENTERED,  RESCALE  FROM  (-77IM. 

IF  EARTH  CENTERED  ALREAOY  AT  (-291M. 

OFF  FOR  EARTH,  ON  FOR  MOON. 

IF  HPER  > MAXNM,  SET  HPER  = 9999.9  NM. 


GAP: 

4- 

0371 

0372 

0373 

03  74 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

03  94 

03  95 

0396 

0397 

0398 

0398 
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REF 

2 

LAST 

329 

22, 3612 

16122 

1 

STORHPE  R 

STOOL 

HPE  RX 

STORE  IRPER  - RPADTEM)  INTO  HPERX. 

REF 

274 

LAST 

728 

22, 3613 

00161 

1 

MPAC  +4 

51025 

1 

OSU 

B Pi. 

HPERMIN  AT  (-29 )M  FOR  EARTH,  (-27IM  MOON 

REF 

5 

LAST 

725 

22,3615 

02205 

1 

H PER  MIN 

IF  HP ER  L/  HPERMIN  ( 300  OR  35IKFT, 

REF 

1 

22, 3616 

45622 

0 

DOTPFR 

THEN  ZERO  INTO  -TPER. 

22 1 3 A 1 7 

52  1 45 

o 

DLQA.D 

GOTO  - 

OTHERWISE  CALCULATE  TPER. 

REF 

4 

LAST 

604 

22, 3620 

06424 

0 

H I 6Z  EROS 

REF 

1 

22,3621 

45626 

1 

SKI PTPFR 

22, 3622 

45145 

0 

DOTPER . 

DLOAD 

CALL 

REF 

2 

LAST 

728 

22, 3623 

00017 

1 

R PE  R 

REF 

1 

22,3624 

57437 

0 

CALC  TPER 

22,3625 

77676 

0 

DCOMP 

TPER  IS  PUT  NEG  INTO  -TPER. 

REF 

6 

LAST 

724 

22,3626 

16143 

0 

SKI PTPER 

STOOL 

-TPE  P 

REF 

6 

LAST 

729 

22,3627 

02205 

1 

H PE R MIN 

HPERMIN  AT  (-291M  FOR  EARTH,  ( -2 7 ) M MOON 

22,3630 

45015 

J. 

DAD 

CALL 

REF 

6 

LAST 

728 

22, 3631 

02207 

0 

R PADTEM 

RPADTEM  AT  (-29IM  FOR  EARTH,  ( — 27 ) M MOON 

REF 

1 

22,3632 

57442 

1 

CALCTFF 

GIVES  59M59S  FOR  TFF  IF  RPER  G/ 

22 » 3633 

77676 

0 

DCOMP 

HPERMIN  + RPADTEM.  (TPER  WAS  NON  ZERO) 

REF 

11 

LAST 

725 

22, 3634 

36141 

0 

STC ALL 

TFF 

OTHERWISE  COMPUTES  TFF.  (GOTO) 

REF 

8 

LAST 

728 

22, 3635 

00051 

0 

S2 

22,  3636 

51025 

1 

MAXCHK 

OSU 

BPL 

IF  C(MPAC)  > 9999.9  NM,  MPAC  = 9999.9  NM 

REF 

1 

22,3637 

05646 

0 

MAXNM 

??f 3640 

45643 

1 

+ 3 

OTHERWISE  C(MPAC)  = B(MPAC). 

22,3641 

43415 

0 

DAD 

RVQ 

REF 

2 

LAST 

729 

22,3642 

05646 

0 

MAXNM 

22, 3643 

43545 

1 

+ 3 

DLOAD 

RVQ 

(USED  BY  P 30  - P37  ALSO) 

REF 

3 

LAST 

729 

22, 3644 

05646 

0 

MAXNM 

?7  t 3 645 

01  06  5- 

n 

MAXNM 

2nr.T 

01065  05603 

22,3646 

05603 

1 

GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011- 

L R30 
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GAP 
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L 

R0001 

R0002 

R0003 

R0004 

R0005 

R0006 

R0007 

R0008 

R0009 

R0010 

R0011 

R0012 

R0013 

R0014 

R0015 

R0016 

R0017 

R0018 
R0019 
R 0020 
R0021 
R0022 
R0023 
R0024 

R0025 

R0026 

R0027 

R0028 

R0029 

R0030 

R0031 

R0032 

R0033 

R0034 

R0035 

R0036 

R0037 


STABLE  ORBIT  - P38-P39  USER'S  PAGE  NO.  1 

STABLE  ORBIT  RENDEZVOUS  PROGRAMS  (P38  AND  P78  ) 

MCD  NC  -1  LOG  SEGTIGN  - STABLE  ORBIT  - P38-P39 

MOD  BY  RUDNICKI.S  DATE  25JAN68 


FUNCTIONAL  DESCRIPTION 

P38  AND  P78  CALCULATE  THE  REQUIRED  DELTA  V AND  OTHER  INITIAL 
CONDITIONS  REQUIRED  BY  THE  AGC  TO  (1)  PUT  THE  ACTIVE  VEHICLE 
ON  A TRANSFER  TRAJECTORY  THAT  INTERCEPTS  THE  PASSIVE  VEHICLE 
ORBIT  A GIVEN  DISTANCE,  DELTA  R,  EITHER  AHEAD  OF  OR  BEHIND  THE 
PASSIVE  VEHICLE  AND  (2)  ACTUALLY  PLACE  THE  ACTIVE  VEHICLE  IN  THF 
PASSIVE  VEHICLE  ORBIT  WITH  A DELTA  R SEPARATION  BETWEEN  THE  TWO 
VEHICLES 

CALLING  SEQUENCE 


ASTRONAUT  REQUEST  THRU  DSKY 


V37E38E  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE 
V37E78E  IF  OTHER  VEHICLE  IS  ACTIVE  VEHICLE 


INPUT 


(1)  SOI  MANEUVER 

(A)  TIG  TIME  OF  SOI  MANEUVER 

IB)  CENTANG  ORBITAL  CENTRAL  ANGLE  OF  THE  PASSIVE  VEHICLE 

DURING  TRANSFER  FROM  TIG  TO  TIME  OF  INTERCEPT 

IC)  DELTAR  THE  DESIRED  SEPARATION  OF  TJTE_JWO  -VEHICLES 

SPECIFIED  AS  A DISTANCE  ALONG  THE  PASSIVE  VEHICLE 
ORBIT 

— KT)  OPTION  EQUALS  1 FOR  SOI 

(2)  SOR  MANEUVER 

(A)  TIG  TIME  OF  SOR  MANEUVER 

(B)  CENTANG  AN  OPTIONAL  RESPECIFICATION  OF  I (B)  ABOVE 

(C)  OPTION  -EQUALS  2 FOR  SOR 

(D)  DELTTIME  THE  TIME  REQUIRED  TO  TRAVERSE  DELTA  R WHEN 

TRAVELING  AT  A VELOCITY  EQUAL  TO  THE  HORIZONTAL 
VELOCITY  OF  THE  PASSIVE  VEHICLE  - SAV  FD  FROM 
SOI  PHASE 

(E)  TINT  TIME  OF  INTERCEPT  (SOI)  - SAVED  FROM  SOI  PHASE 


OUTPUT 


(1)  TRKMKCNT  NUMBER- OF-  MARKS 

(2)  TTOGO  TIME  TO  GO 

(3)  +MGA  MIDDLE  GIMBAL  ANGLE 
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R0038 

(4) 

DSPTEM1 

TIME  OF  INTERCEPT  OF  PASSIVE  VEHICLE  ORBIT 

R0039 

(FOR  SOI  ONLY) 

PFRIGE-E  ALTITUDE  OF  ACTIVE  VEHICLE  ORBIT  AFTER 

R0041 

THE  SOI  (SOR)  MANEUVER 

R0042 

(6  ) 

DELVTP I 

MAGNITUDE  OF  DELTA  V AT  SOI  (SOR)  TIME 

CEL VTPF 

MAGNITUDE  OF  DELTA  V AT  INTERCEPT  TIME 

R0044 

( 8 ) 

DELVLVC 

DELTA  VELOCITY  AT  SOI  (AND  SOR)  - LOCAL  VERTICAL 

R0045 

COORDINATES 

R0046 

SUEROLTINES  USED 

R0048 

AV  FL  AGP 

R0049 

VNDSPL Y 

R0050 

BANKCALL 

R00502  C-0  FL  AS  HR 

R00504  GOTOPOOH 

R00504,  BLANKET 

R00508  ENDOFJOB 

R0051  PREC/TT 

R0052  SELECTMU 

R0053  INTRPVP 

R0054  MAINFTNE 


0055 

04,  2 750 

BANK  04 

0056 

REF 

1 

34,2000 

SETLOC  STBLEORB 

0057 

34, 3271 

BANK 

0058 

REF 

24  LAST  712 

E 7, 1466 

EB ANK=  SUBEXIT 

0059  REF  1 COUNT*  JF/P3879 


0060 

REF 

176 

LAST 

72  6 

34,3271 

0 4616 

1 

P38 

TC 

BANKCALL 

0061 

REF- 

5 

LAST 

67  5 

34, 3272 

723  1 3 

0 

CADR 

AVFL AGA 

THIS  VEHICLE  ACTIVE 

0062 

34,3273 

0 3276 

1 

TC 

+ 3 

0063 

REF 

177 

LAST 

732 

34,3274 

0 4616 

1 

P78 

TC 

BANKCALL 

0064 

REF 

— §_ 

LAST 

67  5 

34, 3275 

72320 

o 

CADR 

AVFL AGP 

OTHER-VEHICLE  ACTIVE 

00645 

REF 

178 

LAST 

732 

34, 3276 

0 4616 

1 

TC 

BANKCALL 

00646 

REF 

6 

LAST 

675 

34,3277 

72325 

0 

CADR 

P20F  LGON 

SET  UPOATFLG,  TRACKFLG 

0065 

REF 

1 

34,  3 300 

3 3630 

1 

CAF 

V06.N33SR 

DISPLAY  TIG 

0066 

REF 

1 

34,3301 

0 3617 

1 

TC 

VNDSPLY 

0067 

REF 

1 

34, 3302 

3 3631 

0 

CAF 

V06N55SR 

DISPLAY  CENTANG 

0068 

REF 

1 79 

LAST 

JJ  32 

34,3303 

0 46  16 

_L 

TC  R - 

BANKCALL 

0069 

REF 

2 

LAST 

69  1 

34,3304 

20510 

1 

CADR 

GGFL  ASHR 

00694 

REF 

22 

L AST 

719 

34, 3305 

1 6001 

1 

TC  F 

GOTOPOOH 

TERMINATE 

00696 

-34,3306 

1 3313 

1 

TC  F 

+ 5 

PROCEED 

00698 

34, 3307 

1 3302 

1 

TC  F 

-5 

RECYCLE 

0070 

REF 

23 

LAST 

724 

34, 3310 

3 6244 

0 

CAF 

THREF 

IMMEDIATE  RETURN  - BLANK  Rl,  R2 

00702 

REF 

11 

LAST 

69  1 

3A-,  331 1 

0 5464 

_L_ 

TCR 

BLANKET 

00704 

REF 

104 

LAST 

72  3 

34,3312 

1 5155 

1 

TC  F 

ENDOFJOB 

0071 

REF 

14 

LAST 

687 

34, 3313 

3 4756 

1 

CAF 

FIVE 

GAP 
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L 

STABLE  1 

ORBIT  - 

P3  8- 

P39 
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0072 

REF 

2 

LAST 

320 

34,3314 

55*144 

0 

TS 

OPTI ONI 

0073 

REF 

83 

LAST 

722 

34, 3315 

3 4753 

1 

CAF 

ONE 

00  74 

R F F 

5 

LAST 

34,3316 

55' 145 

1 

TS 

OPTI 0N2 

OPTION  CODE  IS  SET  TO  1 

00742 

REF 

i 

34,3317 

3 3632 

0 

CAF 

V 04 N 06  SR 

DISPLAY  OPTION  CODE  - 1 = SOI,  2 = SOP, 

00744 

REF 

180 

LAST 

732 

34, 3320 

0 4616 

1 

TCR 

BANKCALL 

00  74  6 

R£F 

3 

1 AST 

73  2 

34 f 3 321 

205  10 

1 

CADR 

GCFL  ASHR.. 

00748 

REF 

23 

LAST 

732 

34, 3322 

1 6001 

1 

TCF 

GOTO  POOH 

TERMINATE 

0075 

34, 3323 

1 3330 

0 

TCF 

+ 5 

PROCEED 

007^  2 

34* 3 324 

1 3317 

0 

TCF 

-5 

RECYCLE 

00  76 

REF 

33 

LAST 

623 

34, 3325 

3 4751 

0 

CAF 

BIT3 

IMMEDIATE  RETURN  - BLANK  R3 

0077 

RFF 

12 

LAST 

732 

34,3326 

0 5464 

1 

TCR 

BLANKET 

no7ft 

R FF 

105 

LAST 

73  2 

34, 3327 

1 -515  5 

TCF 

ENDCFJOB 

0079 

REF 

90 

LAST 

725 

34,3330 

0 6036 

1 

TC 

I NTPRET 

0080 

34,3331 

70535 

0 

SLOAD 

SRI 

0081 

REF 

6 

L AST 

73  3 

34, 3332 

01146 

0 

OPT  I 0N2 

0082 

34,3333 

71230 

0 

BHIZ 

DLOAD 

0083 

RFF 

i 

34,3334 

71342 

1 

0PTN1 

0084 

REF 

1 

34,3335 

03627 

1 

TINT 

0085 

REF 

i 

34, 3336 

02307 

1 

STORE 

TINT  SOI 

STORE  FOR  SOR  PHASF 

0086 

34,3337 

77614 

1 

CLRGO 

0087 

REF 

i 

34,  3340 

01230 

1 

0 PT  N SW 

OPTNSW;  ON  = SOI,  OFF  = SOR 

0088 

REF 

i 

34, 3341 

71373 

0 

JUNC  TNI 

0089 

34,3342 

43014 

0 

0PTN1 

SET 

CLFA  R 

SOI 

0090 

REF 

2 

LAST 

73  3 

34*  3343 

01070 

1 

OPT  NSW 

00901 

REF 

12 

LAST 

690 

34, 3344 

00670 

0 

UPDATFLG 

00902 

34, 3345 

77624 

1 

CALL 

009  1 

REF 

1 

34,  3 346 

71552 

0 

PREC /TT 

0092 

34,3347 

43015 

1 

DAO 

SET 

0093 

REF 

22 

LAST 

718 

34,3350 

03440 

1 

TIG 

0093  1 

REF 

1 3 

LAST 

73  3 

34,3351 

00470 

1 

UFDA TFLC 

0094 

REF 

2 

LAST 

73  3 

34, 3352 

03627 

1 

STORF 

TINT 

T I = TIG  + TF 

0096 

34, 3353 

77776 

1 

EXIT 

00962 

REF 

1 

34, 3 354 

3 3633 

1 

CAF 

V06N 57SR 

DISPLAY  DFLTA  R 

00964 

REF 

181 

LAST 

73  3 

34,3355 

0 46  16 

1 

TCR 

BANKCALL 

00966 

REF 

4 

LAST 

733 

34, 3356 

20510 

1 

CADR 

GOFL  ASHR 

00968 

REF 

24 

LAST 

733 

34,3357 

1 6001 

1 

TCF 

GOTO  POOH 

TERMINATE 

0097 

34, 3360 

1 33  65 

0 

TCF 

+ 5 

PROCEED 

00972 

34,  3361 

1 3354 

1 

TCF 

-5 

RECYCLE 

0098 

REF 

15 

LAST 

60  2 

34, 3362 

3 6241 

0 

CAF 

SIX 

IMMEDIATE  RETURN  - BLANK  R2,  R3 

0099 

REF 

13 

LAST 

733 

34, 3363 

0 5464 

1 

TCR 

BLANKET 

0100 

REF 

1C6 

LAST 

733 

34, 3364 

1 5155 

1 

TCF 

ENDOFJOB 

01001 

34,3365 

0 0006 

1 

+ 5 

EXTEND 

01002 

REF 

3 

LAST 

733 

34, 3366 

3 1627 

0 

DC  A 

TINT 

01003 

RFF 

25 

LAST 

666 

34, 3367 

53*046 

0 

OXCH 

DSPT  EMI 

FOR  DISPLAY 

—010 1 

REF 

1 

34,3370 

3 3634 

0 

CAF 

V06N34SR 

DISPLAY  TIME  OF  INTERCEPT 

0102 

REF 

2 

LAST 

732 

34, 3371 

0 36  17 

1 

TC 

VNDSPLY 

0103 

REF 

91 

LAST 

733 

34, 3372 

0 6036 

1 

TC 

INTPRET 

0104 

34,3373 

45014 

0 

JUNCTN ] 

CLEAR 

CALL 

0105 

REF 

1 

34, 3374 

04266 

1 

P39/79SW 

0106 

REF 

5 

LAST 

675 

34, 3375 

20041 

0 

SELECTMU 

SELECT  MU,  CLEAR  FINALE  LG,  GO  TO  VN1645 
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L 

STABLE  i 

ORB  IT  - 

P3  8- 

P39 

0107 

34, 3376 

77624 

1 

RECYCLE 

CALL 

0108 

REF 

2 

LAST 

733 

34, 3377 

71552 

0 

PRFC/TT 

ni  no 

34, 3400 

71214 

_0_ 

BOHF- 

DLOAD 

0110 

REF 

3 

LAST 

733 

34, 3401 

01350 

0 

OPTNSW 

0111 

REF 

1 

34, 3402 

71422 

0 

0PTN2 

0112 

REE 

4 

LAST 

73  3 

34, 3 403 

03627 

J 

TINT 

0113 

REF 

40 

LAST 

722 

34, 3404 

34041 

0 

STCALL 

TDEC  1 

0114 

REF 

1 

34,3405 

71603 

1 

I NTP  PVP 

0115 

34,3  406 

535  75 

0 

VLOAD 

UNIT 

0116 

REF 

25 

LAST 

722 

34,3407 

00001 

0 

R A TT 

0117 

34,3410 

47315 

0 

PD  VL 

VXV 

01 18 

REF 

20 

LAST 

722 

34,3411 

00007 

0 

VATT 

0119 

34, 3412 

60246 

1 

ABVAL 

NORM 

0120 

REF 

16 

LAST 

712 

34,3413 

00047 

1 

XI 

n i pi 

34,3414 

5632  5 

o 

POOL 

DC  V 

Ulti 

0122 

REF 

5 

LAST 

330 

34, 3415 

02307 

1 

DELT AP 

0123 

34,3416 

77657 

0 

SL  * 

01 24 

34, 3417 

20 172 

1 

0 -7,1 

0125 

REF 

2 

LAST 

133 

34,3420 

36311 

1 

STCALL 

DFLTTIME 

0126 

REF 

1 

34, 3421 

71426 

1 

JUNCTN2 

0127 

34 , 3422 

43345 

_1 

0PTN2 

DLOAD 

DAD 

0128 

REF 

2 

LAST 

733 

34,3423 

02307 

1 

TINT  SOI 

0129 

REF 

3 

LAST 

672 

34, 3424 

00037 

0 

T 

01  30 

REF 

5- 

LAST 

734 

34, 3425 

03627 

1 

STORE 

TINT- 

0131 

34,3426 

45345 

1 

JUNCTN2 

DLOAD 

DSU 

0132 

REF 

6 

LAST 

734 

34,3427 

03627 

1 

TINT 

0133 

REF 

3 

LAST 

43  4 

34, 3430 

02311 

0 

DELTTIMF 

0134 

REF 

1 

34,3431 

02313 

1 

STORE 

TARGT IME 

R0135 

.... 

MAINRTNE 

. . . . 

R0136  SUBROUTINES  USED 


R0137 
R01  38 

S3435.25 
PE  R I AP01 

R0139 

SHIFTR1 

R0140 

VNDSPLY 

R0141 

BANKCALL 

R0142 

GOFLASH 

R0143 

GO  TO  POOH 

RO  145 

VN 1645 

MAINRTNE  STCALL  TDEC  1 

INTRPVP 

DLOAD 

T IG 

STORE  INTIME 
SSP  VLOAD 

SUBEXIT 
TEST  3979 
P ATT 


0146 

REF 

41 

LAST 

734 

34, 3432 

34041 

0 

0147 

REF 

-2 

LAST 

73  4 

34,3433 

71603 

1 

0148 

34,3434 

77745 

1 

0149 

REF 

23 

LAST 

733 

34,3435 

03440 

1 

0150 

REF 

6 

LAST 

6-9  8 

34, 3436 

03606 

1 

0151 

34, 3437 

77331 

0 

0152 

REF 

25 

LAST 

732 

34, 3440 

03467 

1 

0153 

REF 

-1 

34, 3441 

71445 

1 

0154 

REF 

26 

LAST 

734 

34, 3442 

00001 

0 

0155 

34, 3443 

77624 

1 

CALL 
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PRECISION  UPDATE  PASSIVE  VEHICLE  TO 
INTERCEPT  TIME 

R P/ ( RP ) 

( VP  X RP/ ( RP)  ) 


DELTA  R / (VP  X RP/RP) 

DELTA  T = (RP)  DELTA  R / (VP  X RP  ) 


T I = T I + TF 


TT  = T I - DELTA  T 


PRECISION  IJPDATF  PASSIVE  VEHICLE  TO 
TARGET  TIME 


GAP 
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L 

STABLE 

ORBIT  - 

P 3 8- 

-P39 

0156 

REF 

1 

34,  3444 

73263 

1 

S343  5.25 

0157 

34,3445 

43014 

0 

TEST3979 

BOFF 

BON 

^446 

048  46 

1 

P39/79SK 

0159 

REF 

1 

34^3447 

71456 

0 

MAI NRTN1 

0160 

REF 

8 

LAST 

702 

34,3450 

01311 

0 

FINALFLG 

R FF 

1 

34,3451 

714  54 

1 

P3.9P79 

0162 

34,3452 

77614 

1 

SET 

0163 

REF 

14 

LAST 

733 

34, 3453 

00470 

1 

UPDA  TFLG 

0 1 ^4 

34, 3454 

77776 

1 

P39P79 

EXIT 

01645 

REF 

1 

34,3455 

0 3503 

1 

TC 

DSPL  Y81 

0165 

34, 3456 

51575 

1 

MAI NRTN1 

VLOAD 

A BV  A L 

0166 

REF 

12 

LAST 

69  9 

34, 3457 

03366 

1 

DFLVFET3 

0167 

RFF 

7 

LAST 

672 

34,3460 

27574 

1 

STOVL 

DEL VTPI 

0168 

REF 

3 

LAST 

682 

34, 3461 

03504 

0 

VPASS4 

0169 

34,3462 

51451 

0 

VSU 

ABVAL 

0170 

REF 

5 

LAST 

699 

34,3463 

03564 

0 

VTPR  IME 

0171 

REF 

4 

LAST 

672 

34, 3464 

26354 

1 

STOVL 

DELVTPF 

o ] 7? 

RFF 

2D 

1 AST 

70  6 

34, 3465 

03534 

0 

RACT3 

0173 

34,3466 

45115 

0 

PDVL 

CALL 

0174 

REF 

8 

LAST 

699 

34, 3467 

02343 

1 

V IPRIME 

ni  7ft 

REF 

ft 

i ART 

67  2 

34,  3 470 

462  7 7 

1 

PERI AP01 

0176 

34, 3471 

77624 

1 

CALL 

0177 

REF 

ii 

LAST 

672 

34, 3472 

464  0 7 

0 

SHI F TR1 

01  7ft 

RFF 

5 

1 AST 

6 12 

34, 3473 

03604 

0 

STORE 

POST  TP  I 

0179 

34, 3474 

43014 

0 

BON 

SFT 

0180 

REF 

9 

LAST 

735 

34, 3475 

01311 

0 

FINALFLG 

0 1 ft  1 

REF 

1 

34,3476 

71500 

DSPL Y58 

0182 

REF 

15 

LAST 

73  5 

34, 3477 

00470 

1 

UPDA  TFLG 

0183 

34, 3500 

77776 

1 

DSPLY58 

EXIT 

0184 

REF 

1 

34,3501 

3 3635 

1 

CAF 

V06N58SR 

0185 

REF 

3 

LAST 

733 

34, 3502 

0 3617 

1 

TC 

VNDS PLY 

01  86 

REF 

1 

34, 3503 

3 3636 

1 

DSPLY81 

CAF 

V06N81SR 

0187 

REF 

4 

LAST 

735 

34, 3504 

0 3617 

1 

TC 

VNDS  PLY 

0188 

REF 

92 

LAST 

733 

34, 3505 

0 6036 

1 

TC 

I NT P PET 

0189 

34,  3506 

77214 

0 

CLEAR 

VLOAD 

0204 

REF 

5 

LAST 

68  8 

34,  3 507 

01267 

0 

XDFL  VFLG 

0205 

REF 

13 

LAST 

735 

34,3510 

03366 

1 

DELVEET3 

0206 

REF 

11 

LAST 

689 

34,3511 

37654 

1 

STCALL 

DEL  VS  IN 

0207 

REF 

7 

LAST 

70  2 

34, 3512 

73542 

0 

VJNJ.6  45 

0208 

34, 3513 

52014 

0 

BON 

GOTO 

0209 

REF 

3 

LAST 

735 

34,3514 

04306 

0 

P39/79SW 

0210 

REF 

_ 1 

_ 34, 3515 

71537 

0 

P 3 9 / P79B 

0211 

REF 

1 

34, 3516 

71376 

0 

RFCYCLE 

R0212 

STABLE  ORBIT  MIDCCURSE  PROGRAM 

(P39  AND 

P79  ) 

R0213 

MOD 

NC  - 

1 

LOG  SECTION 

- STABLE 

ORBIT  - 

P38-P39 

R0214 

MOC 

8 Y RUDNICKI 

.S 

DATE  25JAN68 

R0215 


FUNCTIONAL  DESCRIPTION 
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USER'S  PAGE  NO.  5 


FOR  P 39  AND  P79 


DELTA  V 


DELTA  V (FINAL)  = V'T  - VT 


GET  PERIGEE  ALTITUDE 


.DISPLAY  HP,  DELTA  V,  DELTA 
DISPLAY  DELTA  V (LV) 


E 7 S3 


( FINAL ) 


DISPLAY  TRKMKCNT,  TTOGO_,  +MGA 
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L STABLE  ORBIT  - P38-P39  USER’S  PAGE  NO.  6 E7  S3 


R0216  P39  AND  P79  CALCULATE  THE  REQUIRED  DELTA  V AND  OTHER  INITIAL 

R02I7  CONDITIONS  REQUIRED  BY  THE  AGC  TO  MAKE  A MIDCOURSE  CORRECTION 

R0218  MANEUVER  AFTER  COMPLETING-  THE  SOI  MAN-EUVER  BUT  BE  FORI'  MAKING 

R 0 2 19  THE  SOR  MANEUVER 

R0220  CALLING  SEQUENCE 

R022I  ASTRONAUT  REQUEST  THRU  DSKY 

RO 222  V37E39E  IF  THIS  VEHICLE  IS  ACTIVE  VEHICLE 

R0223  V37E79E  IF  OTHER  VEHICLE  IS  ACTIVE  VEHICLE 


R0224  INPUT 

R0225  (I)  TPASS4  T I ME  -OF-  I NTERCE  PT  - SAVED  FROM  P38/P78 

R0226  (2)  TARGTIME  TIME  THAT  PASSIVE  VEHICLE  IS  AT  INTERCEPT  POINT  - 

R0227  SAVED  FROM  P38/P73 


R0228  OUTPUT 

R0229  (1)  TRKMKCNT  NUMBER  OF  MARKS 

R0230  (2)  TTOGO  TIME  TO  GO 

R0231  (3)  +MGA  MIDDLE  GIMBAL  ANGLE 

R0232  (4)  DELVLVC  DELTA  VELOCITY  AT  MID  - LOCAL  VERTICAL  COORDINATES 

R0233  SUBROUTINES  USED 

R0234  AVFLAGA 

R0235  AVFLAGP 

R0236  LOADTIME — 

R0237  SELECTMU 

R0238  PRECSET 

R0239  S3 4/ 3 5.1 

R0240  MAINPTNE 


0241 

0242 

R-EF 

REF 

182 

6 

LAST- 

LAST 

73  3 
73  2 

34,3  51-7 
34,  3 520 

0 46  16 
72313 

-1— 

0 

P39 

TC 

CADR 

BANKCALL 
A VFL AGA 

THIS  VEHICLE  ACTIVE 

0243 

34,3521 

0 0006 

1 

EXTEND 

0244 

REF 

4 

LAST 

67  5 

34, 3 522 

3 1401 

0 

DC  A 

AT  I G INC 

0245 

REF 

1 

34, 3523 

0 3530 

1 

TC 

P39/ P79A 

0246 

REF 

1 83 

LAST 

73  6 

34, 3524 

0 46  16 

1 

P79 

TC 

BANKCALL 

0247 

RFf 

_6— 

LAST 

732 

34  t 3 52  5 

72320 

0 

CADR 

AVFLAGP 

OTHER  VEHICLE  ACTIVE 

0248 

34, 3526 

0 0006 

1 

EXTEND 

0249 

REF 

2 

LAST 

67  5 

34,  3527 

3 1403 

1 

DC  A 

PTIG INC 

02  50 

REF 

4 

LAST 

67  5 

34, 3530 

53' 574 

l 

P39/P79A 

DXCH 

KT 

TIME  TO  PREPARE  FOR  BU 

02505 

REF 

1 84 

LAST 

73  6 

34, 3531 

0 4616 

1 

TC 

BANKCALL 

02506 

REF 

7 

LAST 

732 

34,3532 

72325 

0 

CADR 

P20FLGON 

SET  UPDATFLG,  TRACKFLG 

0251 

REF 

93- 

LAST 

73  5 

34, 3533 

0 6036 

1 

TC 

I NT P RET 

0255 

34, 3534 

45014 

0 

SET 

CALL 

02555 

REF 

4 

LAST 

735 

34,3535 

04066 

0 

P39/79SW 

736- 


GAP 
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L 

STABLE 

ORBIT  - 

P3  8- 

P39 

0256 

REF 

6 

LAST 

73  3 

34,3536 

20041 

0 

SELF  CTMU 

0257 

34,3537 

43234 

0 

P39/P79B  RTB 

DAD 

L8 

i a«;t 

72  3 

34*  3 540 

21462 

1 

LOAD TIME 

0259 

REF 

5 

LAST 

736 

34,  3541 

03574 

1 

KT 

02595 

REF 

24 

LAST 

734 

34,3542 

03440 

1 

STORE 

TIG 

02  60 

REF 

42 

LAST 

734 

34,  3543 

34041 

0 _ 

STC ALL 

T DEC  1 

0261 

REF 

4 

LAST 

675 

34, 3544 

46341 

0 

PREC  SET 

0262 

34,3545 

77624 

1 

CALL 

02^^ 

R FF 

3 

L AST 

34,  3 546 

73236 

1 

S 34/ 35. 1 

0264 

34,3  547 

52145 

0 

DLOAD 

GOTO 

0265 

REF 

2 

LAST 

734 

34,  3550 

02313 

1 

TARGTIME 

0266 

REF 

1 

34,3  551 

7143? 

1 _ 

MAINRTNE 

R 02  72 

PREC/TT  . 

• • • 

R0273 

SUBROUTINES  USED 

R02  74 

PRECSET 

R0275 

TIMETHET 

R0276  S34/35.1 


0277 

34, 3 552 

71220 

1 

PREC/TT  STQ 

DLOAD 

02  78 

REF 

8 

LAST 

69  2 

34*  3 553 

03463 

0 

PTRN 

0279 

REF 

25 

LAST 

737 

34, 3554 

03440 

1 

TIG 

0280 

REF 

43 

LAST 

737 

34,3555 

34041 

0 

STC  AL  L 

TDEC  1 

0281 

REF 

5 

LAST 

73  7 

34,3556 

463  41 

OL 

PRFC  SET 

0282 

34, 3557 

53775 

1 

VLOAD 

VSR* 

0283 

REF 

12 

LAST 

706 

34,3560 

03550 

1 

RPAS  S3 

0284 

34,  3 561 

57176 

0 

0,2 

0285 

REF 

7 

LAST 

704 

34, 3562 

166  55 

0 

STODL 

RVEC 

0286 

REF 

7 

LAST 

67  1 

34,3563 

03617 

1 

CENTANG 

02  87 

34*  3 564- 

71406 

0 

PUSH 

COS 

0288 

REF 

5 

LAST 

67  1 

34, 3565 

16732 

0 

STODL 

CSTH 

02  89 

34, 3566 

43156 

1 

SIN 

SET 

0290 

REF 

b 

L AST 

67  1 

34,  3 567 

03466 

0 

R VS> 

0291 

REF 

7 

LAST 

67  1 

34,3570 

26730 

1 

STOVL 

SNTH 

0292 

REF 

9 

LAST 

706 

34,3571 

03556 

1 

VPAS  S3 

0293 

34,3572 

77657 

0 

VSR* 

0294 

34,3573 

57176 

0 

0,2 

0295 

REF 

9 

LAST 

704 

34, 3574 

36  744 

0 

STCALL 

wee 

0296 

REF 

6 

LAST 

67  1 

34, 3575 

24745 

l 

TIME  THET 

0297 

34,  3 576 

77624 

1 

CALL 

0298 

REF 

4 

LAST 

737 

34, 3577 

73236 

1 

S34/35.1 

0299 

_ 34,3600 

52145 

0 

DLOAD 

GOTO 

0300 

REF 

4 

LAST 

734 

34,3601 

00037 

0 

T 

0301 

REF 

9 

LAST 

737 

34, 3602 

03463 

0 

RTRN 

R0302 

I NT  H P VP  . 

R0303 

SUBROLTINES  USED 

USER'S  PAGE  NO.  7 E7  S3 


SELECT  MU,  CLEAR  FINALFLG,  GO  TO  VN1645 


TIG  = T (PRESENT)  + PREPARATION  TIME 
PRECISION  UPDATE  ACTIVE  AMD  PASSIVE 
VEHICLES  TO  TIG 

GET  UNIT  NORMAL 


CALCULATE  DELTA  V AND  DELTA  V (IV) 


PRECISION  UPDATE  ACTIVE  AND  PASSIVE 
VEHICLES  TO  TIG 


GET  TRANSFER  TIME  BASED  ON  CENTANG  OF 
PASSIVE  VEHICLE 

GET  UNIT  NORMAL 


R0304 

R0305 


CSMPREC 

LEMPFEC 
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L 

STABLE 

ORBIT  - 

P3  8- 

-P39 

0306 

34, 3603 

43020 

1 

INTRPVP 

STQ 

BOFF 

0307 

REF 

10 

LAST 

737 

34,3604 

03463 

0 

RTRN 

LAST 

706 

34 T 3605 

01352 

_1 

AVFL  AG 

0309 

REF 

1 

34,3606 

71613 

0 

OTHERV 

0310 

34,3607 

77624 

1 

CALL 

LAST 

70£ 

34r 1 6 1 0 

27043 

0 

C S-M P RFC. 

0312 

34,3611 

77650 

1 

GOTO 

0313 

REF 

11 

LAST 

738 

34,3612 

03463 

0 

RTRN 

mi4 

34, 3613 

77624 

1 

OTHER  V 

CALL 

0315 

REF 

7 

LAST 

715 

34, 3614 

27057 

0 

LEMPREC 

0316 

34,3615 

77650 

1 

GOTO 

0317 

REF 

12 

J AST 

73  8 

34,3616 

03463  _ 

0 

RTRN 

R0318 

VNDSPLY  . 

R0319 

SUBROLTINES  USED 

R0320 

BANKCALL 

R0321 

GOFLASH 

R0322  GOTO POOH 


0323 

34,3617 

0 0006 

1 

VNDSPLY 

EXTEND 

0324- 

R PF 

1 3 

1 AST 

7 3 8 

34, 3620 

2 3 ' 463 

1 

QXCH 

RTRN 

0325 

REF 

5 

LAST 

692 

34, 3621 

55*613 

0 

TS 

VFR  8 NOUN 

0326 

REF 

6 

LAST 

738 

34, 3622 

3 1613 

1 

CA 

VERB  NOUN 

0327 

RFF 

1 G5 

L AST 

73  6 

34, 3623 

0 46  16 

1 

TCR 

BANKCALL 

0328 

REF 

19 

LAST 

717 

34,3624 

203  5 L 

1 

CADR 

GOFL  ASH 

0329 

REF 

25 

LAST 

73  3 

34, 3625 

1 6001 

1 

TCF 

GOTO  POOH 

-0330 

REF 

14 

LAST 

738 

34, 3626 

0 1463 

1 

TC 

RTRN 

0331 

34,3627 

1 3622 

0 

TCF 

-5 

0351 

34,3630 

01441 

1 

V06N33SR 

VN 

0633 

0352 

34,3631 

01467 

0 

V06N55SR 

VN 

0655 

0353 

34,3632 

01006 

0 

V04N06SR 

VN 

0436 

0354 

34,3633 

01471 

1 

V06N57SR 

VN 

0657 

0355 

34, 3634 

01442 

I 

V06N34SR 

VN 

0634 

0356 

34, 3635 

01472 

1 

V06N58SR 

VN 

0658 

0357 

34, 3636 

01521 

0 

V06N81SR 

VN 

0681 

***  END  OF  KISSING  .040  *** 
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0002 

0003 
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R0008 
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R0012 

R0013 

R0015 

R0017 

R0019 

R0021 

R0022 


R0024 


R 0025 
R0026 
R0027 

R002B 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0037 

0038 

0039 

0040 
R0043 


0044 

0045 

0046 

0047 

0048 

0049 
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36,2022  BANK  36 

REF  3 LAST  55  36,2000  SETLOC  P4DS 

36,2022  BANK 

REF  3 LAST  660  E7.1453  EB ANK=  WHICH 

REF  3 LAST  55  TO  55:  2 18*  COUNT*  $$/P40 

THE  MASTER  IGNITION  ROUTINE  IS  DESIGNED  FOR  USE  BY  THE  FOLLOWING  LEM  PROGRAMS:  P12,  P40,  P 42 , P61,  P63. 

IT  PERFORMS  ALL  FUNCTIONS  IMMEDIATELY  ASSOCIATED  WITH  APS  OR  DPS  IGNITION:  IN  PARTICULAR,  EVERYTHING  LYING 

BETWEEN  THE  PRE-IGNITION  TIME  CHECK  — ARE  WE  WITHIN  45  SECONDS  OF  TIG?  — AND  TIG  + 26  SECONDS,  WHEN  OPS 
PROGRAMS  THROTTLE -HP.-  - 

VARIATIONS  AMONG  PROGRAMS  ARE  ACCOMODATED  BY  MEANS  OF  TABLES  CONTAINING  CONSTANTS  (FOR  AVEGEXIT,  FOR 
WAITLIST,  FOR  PINBALL)  AND  TCF  INSTRUCTIONS.  USERS  PLACE  THE  ADRES  OF  THE  HEAD  OF  THE  APPROPRIATE  TABLE 
(OF  P61T  ABLE  FOR  P61LM,  FOR  EXAMPLE)  IN  ERASABLE  REGISTER  'WHICH'  (F4).  THE  IGNITION  ROUTINE  THEN  INDEXES  BY 
WHICH  TO  OBTAIN  OR  EXECUTE  THE  PROPER  TABLE  ENTRY.  THE  IGNITION  ROUTINE  IS  INITIATED  BY  A TCF  BURNBABY, 
THROUGH  BANK JUMP  IF  NECESSARY.  THERE  IS  NO  RETURN. 

THE  MASTER  IGNITION  ROUTINE  WAS  CONCEIVED  AND  EXECUTED,  AND  (NOTA  BENE)  IS  MAINTAINED  BY  ADLER  AND  EYLES  . 


HONI  SO  I T QUI  MAL  Y PENSE 

TABL.FS 

FOR  THF  IGNITION 

ROUT  INE 

***^  ***************  $****£*$  ************ 

Aim  T QP  TANnFRF 

36,2022 

01512 

0 

P12TABLE  VN 

0674 

10) 

36, 2023 

01312 

o 

VN 

0674 

( 1 ) 

REF 

1 

36, 2024 

1 2615 

0 

TCF 

COMF  AIL3 

(2) 

REF 

1 

36,2025 

1 3072 

0 

TCF 

GOCUTOFF 

(3) 

REF 

34 

LAST 

724 

36, 2026 

1 52  61 

0 

TCF 

TASKOVER 

(4) 

REF 

i 

36,2027 

1 2144 

0 

TCF 

PI  2 S POT 

(5) 

36,  2030 

00000 

1 

DEC 

0 

(6) 

NO  ULLAGE 

REF 

4 

LAST 

73  9 

E 7, 1453 

EB ANK= 

WHICH 

REF 

1 

36,2031 

03525 

0 

2CA0R 

SEPVEXIT 

(7) 

REF 

1 

36, 2032 

76067 

1 

REF 

1 

36,2033 

1 2364 

0 

TCF 

DISPCHNG 

( 11  ) 

REF 

1 

36, 2034 

1 2541 

1 

TCF 

WA I T ABIT 

( 12) 

REF 

1 

36,2035 

l 2506 

1 

TCF 

P12IGN 

(13) 

36, 2 036 

01450 

1 

P40TABLF  VN 

0640 

t 0 ) 

36,2037 

01450 

1 

VN 

0640 

( 1 ) 

REF 

1 

36, 2040 

1 2617 

1 

TCF 

COMF AIL4 

(2) 

-REE- 

1 

36,2041 

1 3057 

1 

TCF 

30P0ST 

(3) 

REF 

1 

36,2042 

1 25  64 

0 

TCF 

P43  ZOOM 

( 4) 

REF 

1 

36,2043 

1 2144 

0 

TCF 

P40SPDT 

(5) 

GAP 
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0050 

36,2044 

04300 

0 

DEC 

2240 

0051 

REF 

1 

E6, 1420 

E8ANK= 

OMEG AQ 

REF 

\ 

36,2045 

03641 

1 

2C  ADR 

STEEPING 

0052 

REF 

1 

36,2046 

740  66 

1 

0053 

REF 

1 

36,2047 

1 2360 

1 

TCF 

P40S  JUNK 

00^4 

REF 

2 

| AST 

7 3 9 

36 , 2 050 

1 2541 

L 

TCF 

WAIT ABIT 

0055 

REF 

i 

36, 2051 

1 24  67 

1 

TCF 

PA  0 I GN 

R0058 

0060 

REF 

i 

36,2052 

1 2147 

0 

P41 TABLE 

TCF 

P41 SPOT 

36, ? 053 

77776 

1 

DFC 

- 1 

0062 

REF 

2 

LAST 

740 

E6, 1420 

EBANK= 

D ME  GAO 

0063 

REF 

1 

36,2054 

03376 

0 

2C  ADR 

CALCN85 

T6, 2055 

74066 

1 

0064 

REF 

35 

LAST 

739 

36,2056 

1 5261 

0 

TCF 

TASKCVER 

0065 

REF 

1 

36,2057 

1 2545 

0 

TCF 

TIGT ASK 

l 

P4.7  TARI  F 

VN 

064  0 

0068 

36, 2061 

01450 

1 

VN 

0640 

0069 

REF 

2 

LAST 

739 

36, 2062 

1 26  17 

1 

TCF 

CCMF  AIL4 

0070 

REF 

2 

L AST 

73  9 

36*  2063 

1 3057 

1 

TCF 

-GOPCST 

0071 

REF 

36 

LAST 

74  C 

36, 2064 

1 52  61 

0 

TCF 

TASK  OVER 

0072 

REF 

1 

36, 2 065 

1 2144 

0 

TCF 

P42SP0T 

007^ 

36, 2066 

05120 

1 

DEC 

2640 

0074 

REF 

3 

LAST 

740 

E6, 1420 

EBA  NK= 

OMEG AO 

0075 

REF 

2 

LAST 

740 

36,2067 

03641 

1 

2CADR 

STEEPING 

00  7R 

36, 2 070 

1 

0076 

REF 

2 

LAST 

740 

36,2071 

1 2360 

1 

TCF 

P43S  JUNK 

0077 

REF 

3 

LAST 

740 

36,2072 

1 2541 

1 

TCF 

WA I T ABIT 

nn7fi 

CFP 

1 

36- 2073 

1 7 5 15 

n 

t r f 

P 4 2 T GN 

R0081 

0082 

36,2074 

01476 

0 

P63  T ABLE 

VN 

0662 

0083 

36,2075 

01475 

0 

VN 

066  1 

0084 

REF 

2 

LAST 

739 

36, 2076 

1 2615 

0 

TCF 

COMF  A I L3 

0085 

REF 

1 

36,2077 

1 3006 

0 

TCF 

V99P ECYC 

0086 

REF 

1 

36, 2 100 

1 2556 

1 

TCF 

P63ZCOM 

0087 

REF 

1 

36, 2101 

1 2147 

0 

TC  F 

P63S  POT 

0088 

36,2102 

04300 

0 

DEC 

2240 

0089 

REF 

5 

LAST 

739 

F7 , 1453 

EB ANK= 

WHIC  H 

0090 

REF 

2 

LAST 

739 

36,2 103 

03525 

0 

2CADR 

SFPVFXIT 

0090 

36,2104 

76067 

1 

0091 

REF 

2 

LAST 

739 

36, 2 105 

1 2364 

0 

TCF 

DISPCHNG 

0092 

REE 

4 

LAST 

740 

36,2106 

1 2541 

1 

TC  F 

WAITABIT 

0093 

REF 

1 

36,2  107 

1 2440 

1 

TCF 

P63I GN 

R0096 
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( 11  ) 
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(5) 

(6) 

( 7) 


111) 
( 12) 


10) 

( 1) 
(2) 

( 3) 

(4) 

(5) 

( 6) 

( 7) 

( 11  ) 
(12) 
113) 


10) 

( 1 ) 
(2) 

(3) 

(4) 
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0112 

36,2110 

01477 

1 

A BP  TABLE  VN 

0663 

(0) 

0113 

36,2111 

12  112 

0 

NOOP 

( 1) 

REF 

3 . 

LAST 

74  0 

36,2112 

1 2615 

_0  - 

TCF 

CQMF  A IL3 

(2) 

ui  It 

0115 

REF 

2 

LAST 

739 

36,2113 

1 3072 

0 

TCF 

GOCUTOFF 

(3) 

0116 

REF 

37 

LAST 

740 

36, 2 L 14 

1 5261 

0 

TCF 

TASKOVER 

(4) 

0117 

36, 2115 

12  116 

1 

NOOP 

15) 

0118 

36, 2116 

12  117 

0 

NOOP 

(6) 

0119 

36,2117 

12  120 

1 

NOOP 

(7) 

0120 

36,2120 

12  121 

0 

NOOP 

0121 

REF 

3 

LAST 

740 

36, 2121 

1 23  64 

0 

TCF 

OISPCHNG 

( 11  ) 

0122 

REF 

5 

LAST 

740 

36,2122 

1 2541 

1 

TCF 

WAITABIT 

( 12) 

m 78 

RFF . 

1 

36.2  123 

1 2503 



TCF 

ABRT IGN 

I 13) 

R0126 

R0127 
R0128 
R01  29 

ijc***#^*^***#*****!}:*:*  *#  $**$:(•*$:«**  ♦«**£*** 

GENERAL  PURPOSE  IGNITION  ROUTINFS 

0130 

0131 

REF 

28 

LAST 

719 

36.2124 

36.2125 

0 5353 
04024 

1 

o 

BURNBABY 

TC  PHASCHNG 

OCT  04C24 

GROUP  4 RESTARTS  HERE 

0132 

REF 

133 

LAST 

724 

36, 2126 

3 4755 

1 

CAF  Z FRO 

F XT  I RP ATE  JUNK  LEFT  IN  DVTOTAL 

0133 

R EF 

4 

LAST 

33  0 

36 , 2 127 

55*505 

1 

TS  DVTCTAL 

0134 

REF 

5 

LAST 

74  1 

36, 2130 

55 ' 5 06 

1 

TS  DVTOTAL  +1 

o i 3 s 

R FF 

[ ft  A 

LAST 

738 

36, 2131 

0 4-6  1 6 

1 

TC  R AM  K f A)  1 

P40AUTQ  MUST  BE  3 ANKC  ALLED  EVEN  FROM  ITS 

0136 

REF 

i 

36, 2132 

73707 

0 

CADR  P43AUTO 

OWN  BANK  TO  SET  UP  RETURN  PROPERLY 

0141 

36, 2133 

o no  06 

1 

EX  T END 

0142 

REF 

26 

LAST 

737 

36,2 134 

3 1440 

0 

DC A TIG 

STORE  NOMINAL  TIG  FOR  OBLATENESS  COMP. 

0143 

REF 

2 

LAST 

162 

36,2  135 

53' 510 

0 

DXCH  GOBI  TIME 

AND  FOR  P 70  OR  P 7 L . 

0173 

36,2136 

0 0004 

0 

INHINT 

0174 

REF 

22 

LAST 

530 

36,2137 

0 4674 

0 

TC  I BNK  CALL 

017  5 

REF 

1 

36, 2140 

75564 

1 

CADR  F NG I N0F3 

0176 

36, 2141 

0 0003 

1 

RELINT 

0179 

REF 

6 

J AST 

74  G 

36,2142 

51*453 

1 

INOFX  WHICH 

0180 

36,2143 

1 0005 

0 

TCF  5 

0183 

REF 

2 

LAST 

739 

36,2144 

P 1 2 SPOT 

= 

P40SPOT 

(5) 

0184 

REF 

3 

LAST 

74  1 

36,2144 

P42SP0T 

= 

P40SPOT 

(5) 

0185 

REF 

2 

LAST 

740 

36,2147 

P63SP0T 

- 

P41  S POT 

(5) 

IN  P63  CLOKTASK  ALREADY  GOING 

0186 

REF 

1 

36, 2144 

4 4747 

0 

P40SP0T 

cs 

0CT2  0 

(5) 

0186  1 

REF 

187 

LAST 

741 

36,2 145 

0 46  16 

1 

TC 

B ANKC.ALL 

MUST 

BE  BANKCALLED  FOR  GENERALIZED 

01862 

REF 

1 

36,2146 

74667 

0 

CADR 

STCL0K2 

RETURN 

0187 

REF 

54 

LAST 

736 

36,2147 

0 6036 

1 

P41 SPOT 

TC 

INTPRET 

(5) 

01871 

36, 2150 

45345 

1 

DLOAD 

DSU 

GAP  : 
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0188 

0189 

01891 

REF 
REF 
R E-F  - 

27 

1 

44 

LAST 
L AST 

74  1 
73  7 

36,2151 
36, 2 152 
36,2153 

03440 

35143 

34041 

1 

1 

-0 

STC ALL 

TIG 

D29. 9SEC. 
TDECl 

01892 

REF 

1 

36,2154 

61055 

0 

INIITCDUW 

0190 

36,2155 

45014 

0 

BOFF 

CALL 

Q1  Q 1 

REF 

1 

36 , 21 56 

03347 

_1_ 

MUNFL-AG  - 

U i 7 1 

0192 

REF 

1 

36,2157 

74176 

1 

GCM I DAV 

0193 

REF 

5 

LAST 

738 

36, 2 160 

27043 

0 

CSMPPEC 

01  94 

36,  2161 

64375 

-1 

VLOAD 

MXV 

0195 

REF 

11 

LAST 

718 

36, 2162 

00025 

0 

VATT1 

0196 

REF 

18 

LAST 

713 

36, 2 163 

01734 

0 

REF  SMMAT 

0197 

36, 2164 

77762 

L_ 

VSR1 

0198 

REF 

2 

LAST 

609 

36, 2165 

25726 

0 

STOVL 

V ( C S N ) 

0199 

REF 

8 

LAST 

718 

36, 2166 

00017 

1 

RATT  1 

0200 

36,2  167 

64312 

-CL 

V-SL4 

MXV 

0201 

REF 

19 

LAST 

742 

36,2170 

01734 

0 

REF  SMMAT 

0202 

REF 

2 

LAST 

609 

36,2171 

35720 

1 

STC ALL 

RICSM) 

0203 

REF 

1 

36., 21 72 

67162 

-0- 

MUNG  PA.V 

0204 

REF 

2 

LAST 

136 

36, 2 173 

16323 

1 

STOOL 

GCSM) 

02042 

REF 

13 

LAST 

71  8 

36, 2 174 

00015 

0 

TAT 

02044 

HEF 

45 

LAST 

742 

36, 2175 

00041 

I 

STORE 

TDECl 

0205 

36,2176 

77624 

1 

GOM IDAV 

CALRB 

0206 

REF 

1 

36,2177 

27603 

1 

MIDT0AV1 

0207 

R EF 

36, 2200 

1 2207 

_1 

TCF 

C ALLT-35 

0208 

36,2201 

0 0006 

1 

EXTEND 

0209 

R p c 

3 

LAST 

210 

36, 2202 

3 15  57 

DC  A 

P I PT  IME1 

0210 

REF 

28 

LAST 

742 

36,  2203 

5 3 ' 440 

1 

DXCH 

TIG 

0211 

36,2204 

0 0006 

1 

EXTEND 

0212 

REF 

2 

LAST 

74  2 

36, 2205 

3 3143 

-1— 

OCA 

D29 . 9SEC 

0213 

REF 

29 

LAST 

742 

36,2206 

21 ' 440 

1 

DAS 

T IG 

02  1 4 

REF 

, 7 F 

i APT 

710 

Q A _ ? OAT 

5 2 155 

1 

r a j i T — R 

DXCH 

M P A C 

0215 

REF 

5 

Lh  J I 

LAST 

I d 7 

256 

70, ddU f 

36,2210 

5 3' 4 76 

1 — 
1 

ML  LI  3 7 

DXCH 

SAVE  T— 3 0 

0216 

36,2211 

0 0006 

1 

EXTEND 

0217 

REF 

1 

36, 2212 

4 3741 

1 

DCS 

5 SEC  DP 

0218 

REF 

6 

LAST 

742 

36,2213 

2 1 ' 4 76 

1 

DAS 

SAVFT-3C 

0219 

36,2214 

0 0006 

1 

EXTEND 

0220 

REF 

7 

LAST 

742 

36,2215 

3 1476 

0 

DC  A 

S AVE  T-30 

0221 

REF 

2 

LAST 

38  7 

36,2216 

0 5277 

0 

TC 

LONG  CALL 

0222 

REF 

14 

LAST 

33  1 

E7, 1451 

EBANK= 

TTOGC 

0223 

-REF 

3 

LAST 

25  6 

36,2217 

022  3 6 

1 

2CADR 

T IG- 35 

0223 

36,2220 

74067 

0 

0224 

REF 

29 

LAST 

74  1 

36,2221 

0 5353 

1 

TC 

PHASCHNC- 

0225  36,2222  20254  0 OCT  20254 


0226 

REF 

2 

LAST 

28  7 

36,2223 

0 5321 

1 

TC 

CHFC  KMM 

0227 

36,2224 

0007  7 

_L 

DEC 

6 3 

0228 

REF 

107 

LAST 

73  3 

36,2225 

1 5155 

1 

TCF 

ft  rcFjrs 

0229 

REF 

1 

36,2226 

4 4747 

0 

CS 

CNTDNDEX 

1 9 :-0  2 NOV.  25,1968  FLY 


109  PAGE  742 


USER*  S PAGE  NO.  4 E7  S3 


CSM  VELOCITY  - M/CS*2(7) 

CSM  POSITION  - M* 2 ( 24 ) 

CSM  GRAVITY  VEC.  - M/CS*7(7) 

RELOAD  TDECl  FOR  MIOTOAV. 

MADE  IT  IN  TIME. 

TIG  WAS  SLIPPED,  SO  RESET  TIG  TO  29.9 
SECONDS  AFTER  THE  TIME  TO  WHICH  WE  DID 
INTEGRATE. 


DELTA-T  UNTIL  TIG-30 
DELTA-T  UNTIL  TIG-35 


4.25 SPOT  FOP  TIG-35  RESTART. 


NOT  P63 

P63  CAN  START  DISPLAYING  NOW 
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0230 

0231 
02  32 

REF 

REF 

4 

95 

LAST 

LAST 

690 
74  1 

36,2227 

36.2230 

36.223 1 

55’ 163 
0 6036 
. 51575 

0 

1 

1 

TS 

TC 

VLOAD 

01 SPDEX 
INTPRFT 
ABVAL 

0233 

REF 

2 

LAST 

162 

36,2232 

03551 

0 

VN1 

0234 

REF 

4 

LAST 

330 

36,2233 

03470 

1 

STORE 

ABVF  L 

02  35 

36,_2234 

77776 

1 

_ELX4T 

0236 

REF 

1C8 

LAST 

742 

36,2235 

1 5155 

1 

TCF 

ENDOFJOB 

R0237 

****  **£*$*#$***#**  *££*** 

2 2^6 

3 3 741 

o 

TIG-35 

CAF 

5 S£C 

0239 

REF 

9 

LAST 

530 

36, 2237 

0 5173 

1 

TC 

TWI DDLF 

0240 

REF 

2 

LAST 

256 

36,2240 

02274 

1 

ADRES 

T IG-30 

0241 

REF 

30 

LAST 

742 

36,2241 

0 5353 

1 

TC 

PHASCHNG 

0242 

36,2242 

40154 

0 

OCT 

401  54 

0243 

REF 

1 

36,2243 

4 4752 

1 

CS 

BLANKDEX 

0244 

REF 

5 

LAST 

743 

36, 2244 

55* 163 

0 

TS 

DI SPDEX 

0245 

REF 

7 

LAST 

741 

36, 2245 

51*453 

1 

INDEX 

WHICH 

0246 

36, 2246 

4 0006 

0 

CS 

6 

0247 

36,2247 

0 0006 

EXTEND 

0248 

REF 

38 

LAST 

74  1 

36,2250 

6 5261 

1 

BZMF 

TASK  OVER 

0249 

REF 

1 

36,2251 

3 3145 

1 

CAF 

4.9S  EC 

0250 

REF 

10 

LAST 

743 

36,2252 

0 5173 

1 

TC 

TWI DOLE 

0251 

REF 

1 

36,2253 

022  64 

0 

ADRES 

TIG- 30. 1 

02^2 

p £f: 

]_ 

T 2 2S4 

3 ^027 

l 

r af 

P P I C 1 7 

0253 

REF 

16 

LAST 

724 

36, 2255 

0 5072 

1 

TC 

NOVAC 

0254 

REF 

15 

LAST 

742 

E7, 1451 

EBANK= 

TTOGO 

07  55 

REF 

1 

36*  2 2 5 6 

02261 

0 

2C  ADR 

P41BLANK 

0255 

REF 

1 

36,2257 

74067 

0 

0256 

REF 

39 

LAST 

743 

36,2260 

1 5261 

0 

TCF 

TASKOVER 

0257 

REF 

1 88 

LAST 

74  1 

36, 2261 

0 46  16 

1 

P41 BLANK 

TC 

BANKCALL 

0258 

REF 

1 

36,2262 

20334 

1 

CADR 

CLEANDSP 

0259 

RFF 

1C9 

LAST 

743 

36, 2263 

1 5155 

1 

TCF 

ENDCFJCe 

0260 

REF 

2 

LAST 

743 

36, 2264 

3 5027 

1 

TIG-30. 1 

CAF 

PRI017 

0261 

REF 

17 

LAST 

743 

36,2265 

0 5072 

1 

TC 

NOVAC 

0262 

REF 

16 

LAST 

743 

E7 , 1451 

EBANK= 

TTOGC 

0263 

REF 

1 

36,2266 

02271 

1 

2C  ADR 

T IG-30A 

0263 

REF 

1 

36,2267 

74067 

0 

0264 

REF 

40 

LAST 

743 

36,2270 

1 5261 

0 

TCF 

TASK  TVER 

0265 

JLEF^ 

—4 — 

36,227  1 

3 3744 

0 

T IG-30A 

CAF 

V 1 6N  85B 

0266 

REF 

189 

LAST 

743 

36,2272 

0 4616 

1 

TC 

BANKCALL 

0267 

REF 

1 

36,2273 

20343 

1 

CADR 

RFGODSP 
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INITIALIZE  ABVEL  FOR  P63  DISPLAY 


4 . 1 5 SPOT  FOR  TIG-30  RESTART 
BLANK  DSKY  FOR  5 SECONDS 


CHECK  ULLAGE  TIME. 


SET  UP  TASK  TO  RESTORE  DISPLAY  AT  TIG-30 


A NEGATIVE  ULLAGE  TIME  INDICATES  P41,  IN 
WHICH  CASE  WE  HAVE  TO  SET  UP  A JOB  TO 
BLANK  THE  DSKY  FOR  FIVE  SECONDS,  SINCE 
CLOKJOB  IS  NOT  RUNNING  DURING  P41. 


BLANK  DSKY. 


SET  UP  JOB  TO  RESTORE  DISPLAY  AT  TIG-30 


RESTORE  DISPLAY. 

REGODSP  DOES  A TCF  ENDOFJOB 
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USER • S PAGE  NO.  6 


E7  S3 


0269 

REF 

1 

36,2274 

3 

3144  0 TIG-30 

CAF 

S24.9SEC 

0270 

REF 

11  LAST  743 

36, 2275 

0 

5173  1 

TC 

TWIDDLE 

0271  REF  -3-  LAST  256 36,2276  02343  1 ADRES  T IG-5 


0272 

REF 

2 

LAST 

LAST 

742 
74  3 

36, 2277 
^6  , ? 300 

4 4747 
55* 163 

o c 

CS 

TS 

CNTDNDEX 

DISPDEX 

0274 

REF 

8 

LAST 

743 

36, 2301 

5 1'  453 

1 

INDEX 

WHICH 

02  7^ 

36, ? 302 

3 0006 

1 

CAF 

6 

0276 

36,2303 

0 0006 

1 

EXTEND 

0277 

REF 

1 

36,2304 

6 2316 

1 

BZMF 

JLLGNOT 

0?7ft 

R Ff 

8 

I AST 

74  2 

36 , 2 30  5 

55' 475 

1 

TS 

SAVE  T-30 

0279 

REF 

12 

LAST 

744 

36,2306 

0 5173 

1 

TC 

TF I DOLE 

0280 

REF 

2 

LAST 

254 

36,2307 

02337 

1 

ADRES 

ULLGTASK 

0281 

REF 

24 

LAST 

732 

36,2310 

3 6244 

0 

CA 

THREE 

0282 

REF 

97 

LAST 

724 

36,2311 

54  001 

l 

TS 

L 

REF 

2 s 

LAST 

74  4 

36,2312 

4 6244 

1 

CS 

THRF  E 

0284 

REF 

3 

LAST 

23  1 

36,2313 

52  753 

i 

DXCH 

-PHASEl 

0285 

REF 

5 

LAST 

380 

36, 2314 

4 0025 

l 

CS 

T I M E 1 

0286  REF 4—  36,2315  55'053  -l TS  TB  AS  El 


0287 

36,2316 

0 0006 

1 

ULLGNOT 

EXTEND 

02  HP, 

R F F 

9 

\ AST 

744 

36, 2 31  7 

5 14  53 

1 

INDEX 

WHICH 

0289 

36,2320 

3 0010 

0 

DC  A 

7 

0290 

REF 

3 

LAST 

12  1 

36,2321 

53*253 

0 

DXCH 

AVEGEXIT 

0291 

RFF 

38 

LAST 

72  1 

36, 2322 

3 4752 

0 

CAF 

TWO 

0292 

REF 

98 

LAST 

744 

36,2323 

54  001 

1 

TS 

L 

0293 

RFF 

39 

LAST 

744 

36, 2 324 

4 4752 

1 

CS 

TWD 

0294 

REF 

3 

LAST 

239 

36,2325 

52  761 

0 

DXCH 

-PHASE4 

029  6 

RFF 

6 

I AST 

744 

^6y  ? 32  6 

4 002^ 

l 

c s 

T I KF  1 

0296 

REF 

2 

LAST 

247 

36,2327 

55' 061 

0 

TS 

TBAS  E4 

02  96  1 

^6 , 2 3^0 

0 0006 

l 

02962 

REF 

10 

LAST 

54  7 

36,2331 

3 4755 

1 

DC  A 

NEGO 

02963 

REF 

4 

LAST 

246 

36,2332 

52  755 

1 

DXCH 

-PHASE2 

0297 

REF 

1 

36,2333 

10  763 

1 

RED04.2 

CCS 

PHAS  E5 

0298 

REF 

41 

LAST 

743 

36,2334 

1 5261 

0 

TCF 

TASK  OVER 

0299 

REF 

39 

LAST 

62  1 

36,2335 

0 4635 

0 

TC 

POST  JUMP 

0300 

REF 

1 

36,2336 

77374 

1 

CADR 

PR  ER  FAD 

START  UP  CLOKTASK  AGAIN 

PICK  UP  APPROPRIATE  ULLAGE-ON  TIME 

DON'T  SET  UP  ULLAGE  IF  OT  IS  NEG  OR  ZERO 
SAVE  DELTA-T  FOR  RESTART 

RESTART  PROTECT  ULLGTASK  (1.3SP0T) 


LOAD  AVEGEXIT  WITH  APPROPRIATE  2CA0R 

4 . 2 SPOT  RESTARTS  IMMEDIATELY  AT  RED04.2 
AND  ALSO  AT  TIG-5  AT  THE  CORRECT  TIME. 

SET  TBASE4  FOR  TIG-5  RESTART 

CLEAR  OUT  GROUP  2 SO  LAMBERT  CAN  START 
IF  NEEDED. 

I S SERVICER  GOING? 

YES,  DON'T  START  IT  UP  AGAIN. 

PREREAD  ENDS  THIS  TASK 


R0301 
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L 

BURN 

, BABY,  BURN  — 

MASTER  IGNITION 

ROUTINE 

0302 

REF 

1 

36,2337 

0 2662 

1 

ULLGTASK 

TC 

ONULLAGE 

0303 

REF 

31 

LAST 

743 

36,2340 

0 5353 

1 

TC 

PHASCHNG 

0304 

36,2341 

00001 

0 

OCT 

_1 

0305 

REF 

42 

LAST 

744 

36, 2342 

1 5261 

0 

TCF 

TASKOVER 

R0306 

* $ ♦ £ * # : 

******  ******* *********  ****: 

niA7 

LAST 

743 

36, 2 343 

3 3741 

o 

. — 5 

CAF 

5SEC 

UJU  1 

0308 

RFF 

A 

13 

LAST 

744 

36, 2344 

0 5173 

1 

TC 

TWIDDLE 

0309 

REF 

2 

LAST 

256 

36,2345 

02367 

1 

ADRES 

TIG-0 

0310 

REF 

51 

LAST 

639 

36,2346 

0 5516 

0 

TC 

DOWNFLAG 

0311 

REF 

1 

36,2347 

00153 

0 

ADRES 

IGNFLAG 

0312 

REF 

52 

LAST 

745 

36,2350 

0 5516 

0 

TC 

DCWN FLAG 

0313 

REF 

1 

36,2351 

00154 

1 

ADRES 

ASTNFLAG 

0314 

REF 



LAST 

660 

36,  2 352 

0 5327 

TC 

2PHS  CHNG 

0315 

36,2353 

40074 

0 

OCT 

40074 

0316 

36,2354 

05013 

0 

OCT 

0501  3 

0317 

36,2355 

77777 

0 

OCT 

77777 

0318 

REF 

10 

LAST 

744 

36,2356 

5 1 ' 453 

1 

INDEX 

WHICH 

0319 

36,  2 357 

1 0011 

0. 

TC  F 

1 1 

0320 

REF 

4 

LAST 

397 

36,  2 360 

3 4736 

1 

P40SJUNK 

CAF 

PRI020 

0321 

REF 

26 

LAST 

7 2 5 

36,2 361 

0 5105 

0 

TC 

FIND  VAC 

0322 

REF 

17 

LAST 

743 

E7, 1451 

EB A NK  = 

TTOC-O 

0323 

REF 

1 

36,2362 

02574 

0 

2C  ADR 

S40 . 13 

0323 

R-EF 

1_ 

36,  2 363 

56  06  7 

0 

0324 

REf 

1 — 

36,  2 364 

4 5742 

D I SPCHNG 

QS 

V B99DEX 

0325 

REF 

7 

LAST 

744 

36,2  365 

55' 163 

0 

TS 

01 SP  DEX 

0326 

REF 

43 

LAST 

745 

36,2366 

1 5261 

0 

TCF 

TASKOVER 

USER • S PAGE  NO.  7 E7  S3 

THIS  COMES  AT  TIG-7.5  OR  TIG-3.5 


RESET  IGNFLAG  AND  ASTNFLAG 
FOR  LIGHT-UP  LOGIC 


RESTART  TIG-0  (4.7SP0T) 

RESTART  HERE  (FOR  S40.13  IF  NEEDED) 


(11)  P40  AND  P42  COME  HEP E 


( 11  ) 


R032  7 

0328 

REF 

4 

LAST 

29  5 

36,2367 

4 0103 

1 TIG-0 

cs 

FLAGWRD7 

SET  IGNFLAG  SINCE  TIG  HAS 

ARRIVED 

0329 

REF 

1 

36,2370 

7 4737 

1 

MASK 

I GNF  LB I T 

0330 

REF 

— 5- 

LAST- 

7 45 

36,2371 

26  103 

1 

ADS 

FL AGWRD7 

0331 

REF 

3 

LAST 

742 

36, 2372 

0 5321 

1 

TC 

CHEC  KMM 

IN  P63  CASE,  THROTTLE-UP 

IS  ZOOMTIMF 

0332 

36,2  373 

00077 

1 

DEC 

63 

AFTFR  NOMINAL  IGNITION, 

NOT  ACTUAL 

0333 

REF 

1 

36,2374 

1 2404 

1 

TCF 

I CNY  FT? 

0334 

REF 

2 

LAST 

255 

36,2375 

3 1424 

1 

CA 

ZOOMTIME 

0335 

REF 

14 

LAST 

745 

36,2376 

0 5173 

1 

TC 

TWIDDLE 

0336 

REF 

2 

LAST 

255 

36,2377 

02554 

1 

ADRES 

ZOOM 
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0337 

REF 

5 

LAST 

745 

36,2400 

0 5327 

1 

TC 

2PHSCHNG 

0338 

36,2401 

40033 

0 

OCT 

40033 

0339 

36, 2402 

05014 

1 

OCT 

050  14 

0340 

36, 2403 

77777 

0 

OCT 

77777 

0341 

REF 

1 

36,2404 

3 4740 

0 

IGNYET? 

CAF 

ASTNBIT 

0342 

REF 

6 

LAST 

745 

36,2405 

7 0103 

1 

MASK 

FLAGWRD7 

36,2406 

0 0006 

1— 

EXTEND 

0344 

REF 

11 

LAST 

745 

36,2407 

5 1453 

1 

INDEX 

WHICH 

0345 

36,2410 

1 0012 

0 

BZF 

12 

0346 

REF 

17 

LAST 

617 

36,2411 

4 0101 

0 

IGNITION 

cs 

FL AGWPD5 

03461 

REF 

3 

LAST 

23  1 

36, 2412 

7 4745 

1 

MASK 

FNGONBIT 

36  t 2 413 

ini  n 

ADS 

FI AGWRD5 

03463 

REF 

6 

LAST 

272 

36,2414 

4 4355 

1 

CS 

PRI030 

0347 

36, 2415 

0 0006 

1 

EXTEND 

LAST 

4 ft  ft 

36,2416 

02  0 1 1 

o 

RAND 

D SAL MOUT 

0349 

REF 

31 

LAST 

57  3 

36,2417 

6 473  7 

0 

AD 

BIT13 

0350 

36, 2420 

0 0006 

1 

EXTEND 

03^1 

REF 

2 3 

LAST 

74  6 

36, 2421 

01  Oil 

0 

WRITE 

D SAL MOUT 

0352 

36,2422 

0 0006 

1 

EXTEND 

0353 

REF 

17 

LAST 

608 

36, 2423 

3 0025 

0 

DC  A 

TIME  2 

0354  REF—  4 LAST  21  5 36,2424  53' 345  0 DXCH  IF  VENT 


0355 

36, 2425 

0 0006 

1 

EXTEND 

LAST 

2 5 A 

R6t  2 4 26 

ft  15  15 

1 

OCA 

TOO 

0357 

REF 

30 

LAST 

742 

36,2427 

5 3' 440 

1 

DXCH 

TIG 

03  5 8 

36, 2430 

0 0006 

1 

EXTEND 

REF 

48 

LAST 

7 4-6 

ftfv,  2 42  ] 

ft  00  7 5 

o 

OCA 

TIME? 

0360 

REF 

31 

LAST 

746 

36,2432 

21' 440 

1 

DAS 

T IG 

o 

c s 

F | 1 INDR.T  T 

03602 

REF 

7 

LAST 

550 

36, 2434 

7 0104 

0 

MASK 

FL AGWRD8 

03603 

REF 

8 

LAST 

746 

36,2435 

54  104 

0 

TS 

FL AGWRD8 

0361 

REF 

12 

LAST 

746 

36, 2436 

5 1 ' 45  3 

1 

INDEX 

WHICH 

0362 

36,2437 

1 00  13 

1 

TC  F 

13 

0363 

36,2440 

0 0006 

1 P63IGN 

EXTEND 

0364 

REF 

1 

36,2441 

3 3135 

0 

DC  A 

DSP  2 CADR 

0366 

REF 

1 

36,2442 

53' 253 

0 

DXCH 

AVGEXIT 

0366  1 

REF 

15 

LAST 

690 

36,2443 

3 0005 

1 

CA 

1 

03662  REF  8 LAST  745-  36,2444  55'163_0  TS  DISOPEX 


0370 

REF 

1 

36,2445 

4 0105 

1 

CS 

FLAG  WRD9 

0371 

REF 

1 

36, 2446 

7 4743 

1 

MASK 

LETABBIT 

0372 

REF 

2 LAST  746 

36,2447 

26  105 

1 

ADS 

FL  AGWRD9 
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CHECK  ASTNFLAG:  HAS  ASTRONAUT  RESPONDED 

TO  OUR  ENGINE  ENABLE  REQUEST? 


BRANCH  IF  HE  HAS  NOT  RESPONDED  YFT 


INSURE  ENGONFLG  IS  SET. 


TURN  ON  THE  ENGINE. 


SET  T EVENT  FOR  DOWNLINK 


UPDATE  TIG  USING  T GO  FROM  S40.13 


PERMIT  GUIDANCE  LOOP  DISPLAYS 


(13)  INITIATE  BURN  DISPLAYS 


ASSASSINATE  CLOKTASK 


SET  FLAG  FOR  P70-P71 
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0373 

REF 

7 LAST  746 

36,2450 

4 

0103  1 

0374 

REF 

1 

36,2451 

7 

4741  0 

0375  REF  8 LAST  ^747  36,2452  26  103  1 


0375  1 

REF 

3 

LAST 

300 

36,2453 

4 4735 

0 

REF 

IF 

\ AST 

30  Q 

3 6 f 2454 

7 0111 

1 

03753 

REF 

17 

LAST 

747 

36,2455 

54  111 

1 

3 A T 2 4S A 

o oooa 

l 

03755 

REF 

19 

LAST 

746 

36,2457 

3 0025 

0 

03756 

REF 

32 

LAST 

746 

36,2460 

53*440 

1 

0376 

REF 

134 

LAST 

74  1 

36, 2461 

3 4755 

1 

0377 

REF 

2 

LAST 

16  5 

36, 2462 

5 5 ' 6 20 

0 

03771 

REF 

2 

LAST 

165 

36, 2463 

5 5 ' 6 1 7 

1 

0378 

REF 

40 

LAST 

744 

36,2464 

3 4752 

0 

0379 

REF 

2 

LAST 

165 

36, 2465 

5 5 ' 6 2 1 

1 

0380 

REF 

2 

LAST 

740 

36,  2466 

1 2516 

0 

0381 

REF 

19 

LAST 

746 

36, 2467 

4 0101 

0 

P40 IGN 

03ft? 

R FF 

1 

36? 2470 

7 4740 

1 

0383 

36,2471 

0 0006 

1 

0384 

REF 

3 

LAST 

747 

36,2472 

l 2516 

0 

0385 

REF 

3 

LAST 

745 

36»  2 473 

3 1424 

1 

0386 

REF 

15 

LAST 

745 

36,2474 

0 5173 

1 

0387 

REF 

3 

LAST 

745 

36, 2475 

02554 

1 

0388 

REF 

6 

LAST 

746 

36, 2476 

0 5327 

1 

P63IGN1 

0389 

36, 2477 

40033 

0 

0390 

36,2-50  0 

05014 

1 

0391 

36,2501 

77777 

0 

0392 

REF 

4 

1 AST 

74  7 

36?  2 502 

] 2 5 16 

o 

03972 

REF 

4 

LAST 

745 

36, 2503 

0 5321 

1 

ABRT IGN 

03974 

36, 2504 

00107 

1 

0398 

REF 

5 

LAST 

747 

36,2505 

I 2516 

0 

0399 

REF 

16 

LAST 

74  6 

36,2  506 

3 0005 

1 

P 12 IGN 

0400 

REF 

9 

LAST 

746 

36,2507 

55' 163 

0 

04001 

36,2510 

0 0006 

1 

04002 

REF 

1 

36,2511 

3 3141 

0 

04003  REF  2 LAST  746  36,2512  53V253  0 


0401 

REF 

9 

LAST 

747 

36, 2513 

4 0103 

l 

0402 

REF 

2 

LAST 

747 

36, 2 514 

7 47  41 

0 

0403 

REF 

10 

LAST 

747 

36,2515 

2 6 103 

1 

0405 

RE-F 

— 1 

36, 2516 

4 4744 

0 P 421  Gil 

0408 

REF 

2 

LAST 

747 

36,2517 

4 4744 

0 

04  09 

REF 

18 

LAST 

747 

36, 2520 

7 0111 

1 
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CS 

MASK 

ADS 

FLAG  KRD7 
SWANDBIT 
FLAG  WRD7 

SET  SWANDISP  TO  ENABLE  RIO. 

CS 

MASK 

PULSFS 

DAPBDCLS 

M4KE  SURE  DAP  IS  NOT  IN  M I N I MUM- I MPUL SE 
MODE,  IN  CASE  OF  SWITCH  TO  P66 

TS 

D APB  COLS 

F X T FN 0 

INITIAL IZF  TIG  FOR  P70  AND  P71. 

□ CA 
DXCH 

TIMF2 

TIG 

CAF 

TS 

TS 

ZERO 

WCHPHASE 
WC HP  HOLD 

INITIALIZE  WCHPHASE  AND  FLPASSO 
ALSO  WHCPHOLD 

CA 

TS 

TWO 

FLPASSO 

TC  F 
CS 

MASK 

P42IGN 
F1AGWPD5 
NOTH  RBI T 

! 13) 

EXTEND 

3ZF 

CA 

P42  I GN 
ZELOM  T I ME 

WAITLIST  FOR  ZOOM  (FLATOUT.  ETC.) 

TC 

ADRES 

TWI DDLF 
ZOOM 

TC 

OCT 

OCT 

2PHSCHNG 
40033 
0501  4 

3.3SPOT  FOR  ZOOM  RESTART. 

TYPE  C RESTARTS  HERE  IMMEDIATELY 

OCT 

77777 

TCP  P42IGN 

TC  CHECKMM  (131  BRANCH  TG  APPROPRIATE  ABORT 

DEC  71  ENGINE-ON  SEQUENCE. 


CA 

r i \JJ_\  _ . 

z 

V-J 1 V 1 l INU 

( 13) 

1NVJ  1 IML.  UJ\  JL'VU  LOCI 

KILL  CLOKTASK 

TS 

DISPDEX 

EXTEND 
DC  A 

ATMAGADR 

CONNECT 

ASCENT  GYIDANCE  TO 

SERVICER . 

-DXCH 

A-VGFXIT 

CS 

FLAG  WPD7 

ENABLE 

RIO. 

MASK 

SKA  NOB  IT 

ADS 

FLAGWRD7 

r s 

DR- 1 F TBIT 

ENSURE 

THAT  POWERED-FLIGHT 

SW ITCHING 

CS 

DP IFTBIT 

FNSURE 

THAT  PCWERED-FLIGHT 

SWITCHING 

MASK 

DAPBCOLS 

CURVES  ARE  USED. 
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0410 

REF 

19 

LAST 

747 

36,2521 

54  111 

1 

TS 

D A P B COLS 

0411 

REF 

1 

36,2522 

3 4743 

0 

CAF 

IMPULBIT 

EXAMINE 

IMPULSE  SWITCH 

REF 

1 7 

LAST 

q n 

T6t  2 5?  3 

7 0076 

1 

MASK 

FLAGWRD2 

0413 

REF 

221 

LAST 

724 

36,2524 

10  000 

0 

CCS 

A 

0414 

REF 

1 

36,2525 

1 3522 

0 

TCF 

I MP  L BURN 

0415 

REF 

53 

LAST 

745 

36, 2526 

0 5516 

0 

DVMONCON  TC 

DOWNFLAG 

0416 

REF 

2 

LAST 

745 

36,2527 

00153 

0 

ADRES 

IGNF LAG 

CONNECT 

DV  MON 

LAST 

3 at  2 

n ss  1 6 

o 

TC 

DOWN  FLAG 

0418 

REF 

2 

LAST 

745 

36, 2 531 

00154 

1 

ADRES 

A ST  N FLAG 

0419 

REF 

55 

LAST 

748 

36, 2532 

0 5516 

0 

TC 

DOWNFLAG 

0420  REF  1 36,2533  00161—4 — ADRES  IDLE  FLAG 


0421 

REF 

32 

LAST 

745 

36,2534 

0 53  53 

1 

TC 

PHASCHNG 

0422 

36,2535 

40054 

1 

OCT 

40054 

0423 

REF 

11 

LAST 

712 

36,  2 536 

0 5221 

0 

TC 

F I XO  EL AY 

TURN  ULLAGE  OFF  HALF  A SECOND  AFTER 

0424  3 6,2  537  00062  0 - DEC 5.0  __  _ LIGHT  UP. 


0425 

RFF 

1 

36,  2540 

0 2656 

0 

ULLAGOFF 

TC 

NOULLAGE 

0426 

36, 2541 

0 0006 

1 

WAITABIT 

EXTEND 

KILL  GROUP  4 

042  7 

REF 

11 

LAST 

744 

36, 2542 

3 4755 

1 

DC  A 

NEGO 

042  8 

REF 

4 

[ T 

744 

36 ,2543 

52  761 

o 

DXCH 

-PHA  SE4 

0429 

REF 

44 

LAST 

745 

36,2544 

1 5261 

0 

TCF 

TASKOVER 

R0430 

0431 

REF 

6 

LAST 

48  3 

36,2545 

3 5026 

0 

TIGTASK  CAF 

PRI016  TIGNOW  MUST  BE  A JOB. 

0432 

REF 

18 

LAST 

743 

36,2  546 

0 5072 

1 

TC 

NOVAC 

0433 

REF 

6 

LAST 

6 17 

E 7 , 1 460 

EBANK= 

TRKMKCNT 

0434 

REF 

i 

36,2547 

03241 

0 

2C  ADR 

TIGNOW 

0434 

REF 

i 

36,2550 

74067 

0 

0435 

REF 

33 

LAST 

748 

36,  2551 

0 5353 

1 

TC 

PHASCHNG 

0436 

36,2552 

00006 

1 

OCT 

6 KILL  GROUP  6. 

0437 

REF 

45 

LAST 

748 

36, 2553 

1 5261 

0 

TCF 

TASKOVER 

R0438  **^*j^^**xe*********-**.**^L#-^_iL3fe3fiLiL*-*-*j8tA*^yfefe 


0439 

REF 

13 

LAST 

746 

36,2554 

5 1 ' 4 5 3 

1 

ZOOM 

INDEX 

WHICH 

0440 

36,  2 555 

l 0004 

1 

TC  F 

it 

0441 

36,2  556 

0 0006 

1 

P 63  ZOOM 

EXTEND 

(4)  SET  UP  GUIDANCE. 

0442 

RFF 

1 

36 ,2557 

3 3137 

1 

DC  A 

L UML ANAD 

0443 

REF 

4 

LAST 

744 

36,2560 

53*253 

0 

DXCH 

AVEGFXIT 
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BURN,  BABY,  BURN  — 

MASTER  IGNITION 

ROUTINE 

USER'S  PAGE  NO. 

11  F7  S3 

0445 

REF 

23 

LAST 

741 

36,2561 

0 4674 

0 

TC 

I BNKCALL 

0446 

REF 

1 

36, 2562 

62415 

0 

CADR 

FLATOUT 

P EF 

1 

36, 2 563 

1 2571 

1 

TC  F 

P43Z00MA 

04463 

REF 

32 

LAST 

746 

36,  2 564 

3 4737 

0 

P40ZO0M  CAF 

BIT1  3 

(4)  THROTTLE  THE  DPS 

TO  MAXIMUM  THRUST. 

04  464 

REF 

2 

LAST 

226 

3 6,  2 56  5 

54  055 

0 

TS 

THRUST 

04465 

REF 

30 

LAST 

721 

36,2566 

3 4750 

1 

CAF 

BIT4 

f 2 66  7 

o nnofs 

1 

FXTFND 

04467 

REF 

8 

LAST 

547 

36,2570 

05  014 

1 

WOR 

CHAN  14 

36 , 2 67  1 

0 5^  S } 

1 

P4D  7finM  A TC 

PHAS  CF1NG 

0448 

36,2572 

00003 

1 

OCT 

3 

0449 

REF 

46 

LAST 

748 

36, 2573 

1 5261 

0 

TC  F 

TASKOVER 

R0450 

**************************************** 

0451 

REF 

38 

LAST 

7 19 

36,2574 

0 5504 

0 

COMFAIL  TC 

JPFL AG 

t 15) 

045? 

REF 

2 

LAST 

748 

36,2575 

00161 

1 

ADRES 

IDLE  FLAG 

0 45^ 

REF 

39 

LAST 

749 

36,2576 

0 5504 

0 

TC 

UPFL AG 

SET  FLAG  TO  SUPPRESS 

CONFLICTING  DISPLAY 

0454 

REF 

i 

36,2577 

00175 

1 

ADRES 

FLUNDISP 

0455 

REF 

10 

LAST 

456 

36,2600 

3 4751 

0 

CAF 

FOUR 

RESET  DVMON 

0456 

REF 

2 1 

LAST 

25  7 

36,2601 

55*513 

0 

TS 

DVCNTR 

0457 

REF 

1 

36, 2602 

10  765 

1 

CCS 

PHASF6 

CLOCKTASK  ACTIVE? 

0458 

36, 2603 

1 2606 

1 

TC  F 

+ 3 

YES 

0460 

RFF 

1 90 

LAST 

743 

36,2604 

0 4616 

1 

TC 

BANKCALL 

OTHERWISE,  START  IT  UP 

0461 

REF 

1 

36,2605 

746  66 

1 

CADR 

STCLCK1 

0462 

REF 

1 

36, 2606 

4 4242 

0 

+ 3 CS 

VB97DEX 

0463 

REF 

10 

LAST 

747 

36,-2  607 

55*16.3 

0 

TS 

DISPDEX 

04  64 

REF 

35 

LAST 

749 

36, 2610 

0 5353 

1 

TC 

PHASCHNG 

TURN  OFF  GROUP  4. 

0465 

36,2611 

00004 

0 

OCT 

00004 

04655 

REF 

l 10 

LAST 

74  3 

36,2612 

1 5 155 

1 

TC  F 

ENDO  F JOB 

0466 

REF 

14 

LAST 

748 

36,2613 

51*453 

1 

C0MFAIL1  INDEX 

WHICH 

0467 

36,2614 

1 0002 

1 

TC  F 2 

0468 

REF 

17 

LAST 

747 

36,2615 

3 0005 

1 

C0MFAIL3  CA 

Z 

(15)  KILL  CLOKTASK  USING  Z 

0469 

36,2616 

1 2620 

0 

TCF 

+ 2 

0470 

REF 

3 

LAST 

744 

36,2617 

4 4747 

0 

COM  FA  I L 4 CS 

CNTDNDEX 

0471 

REF 

11 

LAST 

749 

36, 2620 

55* 163 

0 

TS 

DISPDEX 

0472 

REF 

56 

LAST 

748 

36,2621 

0 5516 

0 

TC 

DOWN  FLAG 

RECONNECT  DV  MONITOR 

0473 

REF 

3 

LAST 

749 

36,2622 

00161 

1 

ADRES 

IDLEFLAG 

04  74 

REF 

57 

LAST 

749 

36,2623 

0 5516 

0 

TC 

DOWNFLAG 

PERMIT  GUIDANCE  LOOP 

DI SPLAYS 

0475 

REF 

2 

LAST 

749 

36,2624 

00175 

1 

ADRES 

FLUNDISP 

0476 

REF  : 

L U 

LAST 

74  9 

36,2625 

1 5155 

J 

TCF 

ENOO  F JOB 
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r-  oo 
r-  r~~ 

o o 

REF 

36 

LAST 

749 

36, 2626 
36, 2 62  7 

0 5353 
00003 

1 

1 

COM  FA  I L 2 TC 
OCT 

PHASCHNG 

00003 

KILL  ZOOM  RESTART  PROTECTION 

0479 

36, 2630 

0 0004 

0 

INHINT 

0480 

REF 

8 

LAST 

603 

36,2631 

0 6027 

1 

TC 

K ILLTASK 

KILL  ZOOM,  IN  CASE  IT'S  STILL  TO  ( 

s\  / r>  1 

74  7 

2 A3? 

74554 

0 

CADR 

ZOOM  - 

0482 

REF 

24 

LAST 

749 

36,2633 

0 46  74 

0 

TC 

IBNKCALL 

COMMAND  ENGINE  OFF 

0483 

REF 

1 

36, 2634 

75561 

1 

CADR 

ENG I N0F4 

R€  F 

4 o 

L /\  <;  T 

74  9 

36  , 2635 

0 55  04 

0 

TC 

UPFL  AC 

SET  THE  DRIFT  BIT  FOR  THE  DAP. 

04834 

REF 

i 

36, 2636 

00312 

1 

ADRES 

DP  IFTDFL 

0484 

REF 

i 

36,2637 

0 2650 

0 

TC 

I NVF  LAG 

USE  OTHER  RCS  SYSTEM 

04  8 S 

RFF 

1 

36, 2640 

00310 

0 

ADRES 

ACRBTFLG 

0486 

REF 

41 

LAST 

750 

36, 2641 

0 5504 

0 

TC 

UPFL AG 

TURN  ON  ULLAGE 

0487 

REF 

2 

LAST 

239 

36,2642 

00314 

1 

ADRES 

DLL  A GFLG 

048  ft 

RFF 

Q8 

i AST 

72  3 

36, 2643 

3 47  53 

1 

CAF 

BIT1 

0489 

36, 2644 

0 0004 

0 

INHINT 

0490 

REF 

16 

LAST 

747 

36,2645 

0 5173 

1 

TC 

TWIDDLE 

04°  1 

RFF 

4 

LAST 

744 

36,2  646 

02  343 

1 

ADRES 

T IG-  5 

0492 

REF 

1 12 

LAST 

749 

36,2647 

1 5155 

1 

TC  F 

ENDOFJOB 

R0493 
R0494 
R 0495 

SUBROUTINES  OF  THE  IGNITION  ROUTINE 
****************  ************************ 

0496 

0497 

REF 

R£-F 

186 

__4_ 

LAST 

692 

36. 2650 

36. 2651 

3 

0 

0002 
55  22 

0 INVFLAG 

1 

CA 

-JC-- 

0 

DEB  I T 

0498 

36,2652 

4 

0000 

0 

COM 

0499 

36, 2653 

0 

0006 

1 

EXTEND 

0500 

4VFF 

14 

LAST 

56  9 

36,2654 

06  001 

0 

RXOR 

1 CHAN 

0501 

REF 

1 

36,2655 

i 

5511 

0 

TC  F 

COMF  LAG 

R0502 


0503 

0504 

REF 

REF 

— 1 
20 

LAST 

748 

36. 2656 

36.2657 

0505 

REF 

21 

LAST 

750 

36, 2660 

0506 

REF 

187 

LAST 

750 

36,2661 

***********  ***********  ****  **  ****  **?♦*??* 

4746  1 NOULLAGE  OS  ULLAGEP 

0111  1 MASK  DAPBOOLS 

111  1 TS  D APB  COL  S 

0002  0 TC  0 


MUST  BE  CALLED  IN  A TASK  OR  UNDER  -INHINT 


R0507 


**  ********************  ***  * **  ************ 


0508 

REF 

22 

LAST 

750 

36, 2662 

4 0111 

1 

ONULLAGE  CS 

DAPBOOLS 

TURN  ON  ULLAGE. 

MUST  BE  CALLED  IN 

0509 

REF 

2 

LAST 

75  0 

36,2663 

7 4746 

1 

MASK 

JLL AGER 

A TASK  OR  WHILE 

INHINTFD. 

0510 

REF 

23 

LAST 

750 

36, 2664 

26  111 

1 

ADS 

DA  PR  COLS 

0511 

REF 

1 88 

LAST 

750 

36,2665 

0 0002 

0 

TC 

Q 

R0512 


**************************************** 


GAP: 

L 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 


0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 
0549 


0550 

0551 

0552 
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BURN,  BABY,  BURN  — 

MASTER  IGNITION 

ROUTINE 

USER'S  PAGE  NO.  13  E7  S3 

REF 

135 

LAST 

747 

36,2666 

3 4755 

1 

STCL0K1 

CA 

ZFPO 

THIS  ROUTINE  STARTS  THE  COUNT-DOWN 

REF 

12 

LAST 

749 

36,2667 

55' 163 

0 

STCL0K2 

TS 

DISPDEX 

(CLOKTASK  AND  CLOKJOB).  SETTING 

P EF 

9 

1 AST 

58  3 

36 » 2670 

0 4645 

1 

STCL0K3 

TC 

MAKECADP 

SETTING  DISPDEX  POS I T I V E 'K ILL S IT. 

REF 

3 

LAST 

744 

36, 2671 

55*061 

0 

TS 

TEAS  E4 

RETURN  SAVE  (NOT  FOR  RESTARTS) 

36, 2672 

0 0006 

1 

EXTEND 

P FF 

33 

1 AST 

747 

36,  2 673 

3 1440 

0 

DC  A 

TIG  _ 

REF 

2 76 

LAST 

742 

36,2674 

52  155 

1 

DXCH 

MP  AC 

36,2675 

0 0006 

1 

EXTEND 

REF 

P ( 

| AS  T 

74  7 

36»  2676 

4 0025 

1 

DCS 

T I ME  2 

REF 

111 

LAST 

75  1 

36,2677 

20  155 

1 

DAS 

M PA  C 

HAVE  TIG  - TIME2,  UNDOUBTEDLY  A + NUMBER 

REF 

1 

LAST 

44  8 

36,2700 

0 72  56 

1 

TC 

TPAGREE 

POSITIVE,  SINCE  WE  PASSED  THE 

RFF 

1 2 

LAST 

72  6 

36,2  701 

3 4777 

1 

CAF 

I S EC 

45  SECOND  CHECK 

REF 

189 

LAST 

750 

36,2702 

54  002 

1 

TS 

Q 

REF 

278 

LAST 

751 

36,2703 

52  155 

1 

DXCH 

MPAC 

RFF 

8 

LAST 

45  7 

36,2704 

7 43  46 

0 

MASK 

LOW  5 

RESTRICT  MAGNITUDE  OF  NUMBER  IN  A 

36,2  705 

0 0006 

1 

EXTEND 

REF 

190 

LAST 

75  1 

36,2706 

10  002 

1 

OV 

Q 

REF 

99 

LAST 

744 

36,2707 

3 0001 

0 

CA 

L 

GET  REMAINDER 

REF 

41 

LAST 

747 

36, 2710 

6 4752 

0 

AD 

TWO 

36,2711 

0 0004 

0 

INHINT 

REF 

17 

LAST 

75  0 

36,2712 

0 5173 

1 

TC 

TWIDDLE 

REF 

3 

LAST 

660 

36, 2713 

02722 

1 

ADRES 

CLOKTASK 

REF 

7 

LAST 

747 

36,2714 

0 5327 

1 

TC 

2PHSCHNG 

36, 2715 

40036 

0 

DC  T 

4003  6 

6.3SP0T  FOR  CLOKTASK 

36, 2716 

05024 

1 

OCT 

05024 

36,2717 

13000 

0 

OCT 

13000 

REF 

4 

LAST 

75  1 

36, 2720 

3 1061 

1 

CA 

TEAS  E4 

REF 

12 

LAST 

584 

36,2721 

0 4640 

1 

TC 

BANK  JUMP 

REF 

REF 

7 

1 

LAST 

744 

36.2722 

36. 2723 

4 0025 
55*065 

1 

1 

CLOKTASK  CS 
TS 

T I ME  1 
T B A S E6 

SET  TBASE6  FOR  GROUP  6 RESTART 

REF 

13 

LAST 

75  1 

36, 2724 

1 l'  1 63 

0 

CCS 

DISPDEX 

REF 

I 

36,2725 

1 2736 

0 

TC  F 

K I L L C L OK 

36, 2726 

12  727 

0 

NOOP 

REF 

3 

LAST 

518 

36,2727 

3 7714 

1 

CAF 

PR  1 0 27 

REF 

19 

LAST 

748 

36, 2730 

0 5072 

1 

TC 

NOVA  C 

REF 

18 

LAST 

74  5 

F7, 1451 

EB ANK= 

TTOGC 

REF 

1 

36,2731 

02742 

1 

2CADR 

CLOK  JOB 

REF 

— 1 — 

36, 2732 

74067 

0 

REF  12  LAST  748-  36,  2733  0 5221  -0  TC  F I XD  EL  AY  WAIT  A -SECOND  BEFORE  STARTING  OVER 


36,2734 

00144  0 

DEC 

1 00 

REF 

4 LAST  751 

36,2735 

1 2722  0 

TC  F 

CLOKTASK 

0553 


36,2736  0 0006  1 KILLCLOK  EXTEND 


KILL  RESTART 


GAP 
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0554 

REF 

12 

LAST 

748 

36, 2737 

3 4755 

1 

DC  A 

0555 

REF 

2 

LAST 

229 

36,2740 

52  765 

1 

DXCH 

055A 

R FF 

-47 

1 AST 

749 

36.  2741 

1 5261 

0 

TCF 

0557  36,  2 742  0 0006  1 CLOK J OR  EXTEND 


0558 

0559 

0560 

REF 

REF 

34 

19 

LAST 

LAST 

75  1 
751 

36. 2743 

36.2744 

36. 2745 

4 1440 
53*452 
0 0006 

1 

1 

] 

DCS 

DXCH 

EXTEND 

0561 

REF 

21 

LAST 

75  1 

36,2  746 

3 0025 

0 

DC  A 

0562 

REF 

20 

LAST 

752 

36,2747 

2 1 ' 452 

1 

DAS 

0563 

36, 2750 

0 0004 

0 - 

INHINT 

0564 

REF 

14 

LAST 

75  1 

36,2751 

1 1 ' 1 63 

0 

CCS 

0565 

REF 

1 13 

LAST 

750 

36, 2752 

1 5155 

1 

TCF 

0 566 

RE  F 

1 14 

LAST 

7 5 2 

36, 2 753 

1 5155 

o, 

TCF 

0567 

36, 2754 

4 0000 

0 

COM 

0568 

36, 2755 

0 0003 

1 

RELINT 

0569 

REF 

2 22 

LAST 

74  8 

36,2756 

50  000 

1 

INDEX 

0570 

REF 

1 

36, 2757 

1 3021 

0 

TCF 

05  7 1 

REF 

3 

LAST 

46  8 

4242 

VB97D£X 

0572 

REF 

1 

36,2760 

3 0371 

1 

-42 

CA 

0573 

REF 

1-9-1— 

L AST 

7 49 

36,2  761 

0 46  16 

1 

TC 

0574 

REF 

5 

LAST 

733 

36,2762 

20510 

1 

CADR 

0575 

REF 

1 

36,2763 

1 3023 

1 

TCF 

0 5 76 

REF 

1 

36,2764 

1 2613 

o._ 

TCF 

0577 

REF 

1 

36,2765 

1 2626 

0 

TCF 

0578 

REF 

136 

LAST 

75  1 

36,2766 

4 4755 

0 

CS 

0579 

REF 

-4— 

36, 2 767 

55' 067 

o 

V970RV99 

TS 

0580 

REF 

1 

36, 2770 

3 3146 

1 

CAE 

0581 

REF 

2 

LAST 

487 

36,2771 

0 5464 

1 

TC 

0582  REF-4  1-5  LAST  752  36,-2772  1 5155  1 TCF 


0583 

REF 

15 

LAST 

749 

36,2773 

5 1*453 

1 

-27  INDEX 

-05  84 

-36,  2 774 

3 

000 1 

0 

CA  F 

0585 

REF 

192 

LAST 

752 

36,2775 

0 

46  16 

1 

TC 

0586 

REF 

1 

36,2776 

20335 

0 

CADR 

0587 

REF- 

— 2- 

LAST 

7 5 2 

36,2777 

1 

3023 

1 

TC  F 

0588 

REF 

1 

36,3000 

1 

3040 

1 

TCF 

0589 

36, 3001 

1 

2773 

1 

TCF 

0590 

REF 

2 

LAST 

74  1 

4747 

CNTDNDEX  = 

0591 

— REF 

16 

LAST 

75  2 

36,3002 

^ 1 

4 

—9  n I N n F X 

0592 

36,3003 

3 

0000 

1 

CAF 

0593 

REF 

193 

LAST 

752 

36,3004 

0 

4616 

1 

TC 

0594 

-REF- 

2 

LAST 

743 

36,3005 

203  43 

1 

CADR 

0595 

REF 

2 

LAST 

196 

5 742 

VB99DEX  = 

NFGO 
-PHA  SE6 
TASK  OVER 


TIG 

TTOGO 

T I f'  F 2 
TTOGO 

DISPDEX 
E NOD F JOB 
END OF JOB 


DISPNOT  - 

34DEC 

NVWOPD  +2 
BANK CALL 
GOFL  ASHP 
STOP  CLOK 
C0MFAIL1 
COMF  AIL2 
ZERO 
-NVWO  RD1 
VB99C0N 
LINUS 
_E  NDOFJOB 

WHICH 

1 

BANKCALL 
RFFL ASH 
STOPCLOK 
ASTNRETN 
-6 


0CT20 

WHICH 
0 

BANKCALL 

REjhDSP 

OCT  1 4 
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IF  DISPDEX  HAS  BEEN  SET  POSITIVE  BY  A 
TASK  OR  A HIGHER  PRIORITY  JOB  SINCE  THE 
LAST  CLOKTASK,  AVOID  USINGIT  AS  AN 
INDEX. 

*****  DISPDEX  MUST  NEVER  BE  -0  ***** 


( -1  DUE  TO  EFFECT  OF  CCS  ) 


N VWORD+2  CONTAINS  V06  £ APPROPRIATE  NOUN 


TERMINATE  CLOKTASK  ON  THE  WAY  TO  POOH 


THIS  DISPLAY  IS  CALLED  VIA  ASTNCLOK. 

IT  IS  PRIMARILY  USED  BY  THE  ASTRONAUT 
TO  RFSFT  HIS  EVENT  TIMER  TO  AGREE  WITH 
T IG. 


NFGATIVE  OF  THIS  IS  PROPER  FOR  DISPDEX 

THIS  DISPLAY  COMES  UP  AT  ONE  SECOND 
INTERVALS.  IT  IS  NORMALLY  OPERATED 
BETWEEN  TIG-30  SECONDS  AND  TIG-5  SECONDS 
REGODSP  DOES  ITS  OWN  TCF  _ENDQF  JOB 


NEGATIVE  OF  THIS  IS  PROPER  FOR  DISPDFX 


GAP; 

L 

ASSEMBLE  REVISION  069 
BURN,  BABY,  BURN  — 

OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 
MASTER  IGNITION  ROUTINE 

05955 

36,3006 

V99RECYC 

EQUALS 

ocr 

——4-7- 

LAST 

75  2 

'X  A . X.  nr)A 

5 1 ' 453 

1— 

--L4 

1 NO  EX 

WHICH 

0596 

0597 

Kcr 

lf 

JO  J J UvO 

36,3007 

3 0000 

1 

CAF 

0 

0598 

REF 

194 

LAST 

752 

36,3010 

0 4616 

1 

TC 

BANKCALL 

0599 

RE-F 

4. 

LAST 

75  2 

36, 3011 

205  10 

CADR 

GDF 1 ASHR 

0600 

REF 

3 

LAST 

752 

36,3012 

l 3023 

1 

TC  F 

STOP  CLOK 

0601 

REF 

1 

36, 3013 

1 30  51 

1 

TC  F 

^PROCEED 

0602 

REF 

1 

36,3014- 

1 30  54^ 

_1_ 

TCF 

*FNTFR 

0603 

REF 

21 

LAST 

568 

36,3015 

4 4743 

1 

cs 

B I T9 

0604 

REF 

1 

36,3016 

1 2767 

1 

TCF 

V970RV99 

0605 

36, 3017 

13  020 

1 

NOOP 

0606 

REF 

42 

LAST 

751 

4752 

BLANKDE  X 

= 

TWO 

0607 

REF 

195 

LAST 

75  3 

36, 3020 

0 4616 

1 

-2 

TC 

BANKCALL 

0608 

REF 

2 

LAST 

743 

36,3021 

20334 

1 

CADR 

CLEANDSP 

0609 

R EF— 

1 16 

LAST 

75  2 

36, 3022 

1 5155 

-1- 

DISPNOT 

TCF 

ENDOFJOB 

0610  REF  1 36, 3023  0 3025  0 STQPCLOK  TC  NULLCLOK 


0611 

REF 

26 

LAST 

738 

36,3024 

1 6001 

1 

TCF 

GOTOPOOH 

0612 

36,3025 

0 0004 

-0  - 

—NULLCLOK  INHINT 

0613 

36,3026 

0 0006 

1 

EXTEND 

0614 

REF 

1 

36,3027 

23*142 

1 

QXCH 

P43/PET 

0615 

REF 

2- 

LAST 

748 

36, 3030 

0 2656 

-jO— 

TC 

N CU  L L AGE 

0616 

REF 

9 

LAST 

750 

36, 3031 

0 6027 

1 

TC 

KILL  TASK 

0617 

REF 

3 

LAST 

744 

36,3032 

74337 

0 

CADR 

JL LG  TASK 

0618 

REF 

37- 

LAST 

75  0- 

36, 3033 

0 5353 

1 

TC 

PBAS.CHNG.. 

0619 

36, 3034 

00001 

0 

OCT 

1 

0620 

REF 

18 

LAST 

749 

36, 3035 

3 00  05 

1 

CA 

Z 

0621  — 

REF 

15 

LAST 

752 

36,3036 

55*163 

0 

TS 

DISPDEX 

0622 

RFF 

2 

LAST 

75  3 

36,3037 

0 1142 

1 

TC 

P40/RET 

06222 

REF 

38 

LAST 

753 

36, 3040 

0 5353  1 

ASTNRETN  TC 

PHASCHNG 

06224 

36,3041 

04024  0 

OCT 

04024 

0623 

REF 

137 

LAST 

75  2— 

36,3042 

-3-4755  1 

CAF 

7 F r n 

06231 

REF 

16 

LAST 

75  3 

36, 3043 

55' 1 63  0 

TS 

DISPDEX 

06232 

REF 

1 

36,3044 

3 5023  0 

CAF 

PR  I 0 13 

0625 

REF 

27 

LAST 

-7-4  5 

36,3045 

0 5105  0 

TC 

F I NP VAC 

0626 

REF 

2 

LAST 

139 

E5, 1757 

EBANK= 

STAR IND 

0627 

REF 

1 

36,3046 

03203  0 

2C  ADR 

ASTNRET 

0627 

REF 

1— 

36, 3047 

64065  0 

0628 

REF 

117 

LAST 

75  3 

36,3050 

1 5155  1 

TCF 

ENDOFJOB 

0629 

REF 

42 

LAST 

750 

36,3051 

0 5504  0 

^PROCEED  TC 

UPF1 AG 

0630 

REF 

3 

LAST 

74  8 

36,3052 

00154  1 

ADRES 

ASTN  FLAG 

19;  0 2 NOV..  25,1963  FLY 


109  PAGE  753 


USER'S  PAGE  NO.  15  F7  S3 


THIS  IS  THE  "PLEASE  ENABLF  ENGINE" 
DISPLAY;  IT  IS  INITIATED  AT  TIG-5  SEC. 
THE  DISPLAY  IS  A V99NXX,  WHERE  XX  IS  THF 
NOUN  THAT  HAD  PREVIOUSLY  BEEN  DISPLAYED 
TERMINATE  GOTOPOOH  TURNS  OFF  ULLAGE. 


NEGATIVE  OF  THIS  IS  PROPER  FOR  DISPDEX 

BLANK  DSKY . THE  DSKY  IS  BLANKFD  FOP 
5 SECONDS  AT  TIG-35  TO  INDICATE  THAT 
AVERAGE  G IS  STARTING. 


STOP  CLOKTASK  & TURN  OFF  ULLAGE  ON  THE 
WAY  TO  POO  (GOTOPOOH  RELINTS) 


TURN  OFF  ULLAGE... 

DON'T  LET  IT  COME  ON,  EITHER... 

NOT  EVEN  IF  THERE'S  A RESTART. 

KILL  CLOKTASK 


STOP  DISPLAYING  BUT  KEEP  RUNNING 


GAP:  ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2021 112-011 
L BURN,  BABY,  BURN  — MASTER  IGNITION  ROUTINE 


0631 

REF 

1 

36,3053 

1 3112 

1 

TCF 

IGNITE 

06  32 

36,3054 

0 0004 

0 

♦ENTER 

INHINT 

0633 

REF 

18 

LAST 

753 

36, 3055 

51*453 

1 

INDEX 

WHIC  H 

36,3  0 56 

1 0003 

G 

TCF 



U ODH 
Oi  3C 

o cc 

O 

1 AQ  T 

3 a . a o R 7 

3 6644 

0 

GOPOST 

-C  AF- 

pr I n 12 

ts  t r 

c. 

L Ao  1 

C.  C.  O 

jOj  D U j i 

0636 

REF 

28 

LAST 

753 

36,3060 

0 5105 

0 

TC 

F I Ml  VAC 

0637 

REF 

21 

LAST 

752 

E 7 , 1451 

EB ANK= 

TTOGC 

0638 

REF 

2 

LAST 

25-6 — 

36, 306 1 

03223 

1_ 

2CADR 

POSTBURN 

0638 

36, 3062 

74067 

0 

06382 

36,3063 

0 0004 

0 

INHINT 

0638  3 

REF 

25 

L AST 

75  o 

36, 3064 

-0-46  74 

-O- 

TC 

IBNKCALL 

06384 

RFF 

2 

LAST 

244 

36,3065 

40204 

0 

CADR 

ALLCOAST 

0639 

REF 

2 

LAST 

75  3 

36,  3066 

0 3025 

0 

TC 

NULLCLOK 

0640 

REF 

39 

LAST 

7 5 3— 

36,  3 067 

0 53  53 

-1 

-TC 

- PHASCHNG 

0641 

36, 3070 

00134 

1 

OCT 

00134 

REF 

118 

L AS  T 

7 5 3 

36, 3071 

1 5155 

1 

TCF 

E NDP  F JOB 

O *+  £ 

aa  a a 

RFF 

3 

LAST 

7^3 

4 A . 4 (47  2 

3 50  27 

tS— 

GDflJTnFF 

CAF 

p pi  0 1 7 

VJO  *+  O 

0644 

REF 

29 

LAST 

754 

D O f D 1 C. 

36, 3073 

0 5105 

0 

L_7  UV/  U 1 U 1 1 

TC 

F I ND VAC 

0645 

REF 

5 

LAST 

746 

E7 , 1 514 

EB ANK  = 

TGO 

0646 

REF 

1 

36, 3 074 

03261 

1 _ 

2C  ADR 

CUTOFF 

0646 

REF 

1 

36, 3075 

56067 

0 

0649 

REF 

58 

LAST 

749 

36, 3076 

0 5516 

0 

TC 

DOWNFLAG 

0650 

-REF 

3— 

LAST 

74  9 

36, 3 077 

00175 

1 

ADRES 

FLUNDISP 

06502 

36,3  100 

0 0004 

0 

INHINT 

06504 

REF 

26 

LAST 

-754 

36,  3 10  1 

0 4674 

-0- 

TC 

I BNKCALL 

06506 

REF 

3 

LAST 

754 

36,  3 102 

40204 

0 

CADR 

A LL  C CAST 

0651 

REF 

3 

LAST 

754 

36,  3 103 

0 3025 

0 

TC 

NULLCLOK 

0652 

REF 

40 

LAST 

754 

36,3104 

0 5353 

1 

TC 

PHASCHNG 

0653 

36, 3105 

07024 

0 

OCT 

07024 

0654 

36, 3106 

17000 

1 

OCT 

17000 

06  55 

—REF 

6 

LAST 

7 5 4- 

F 7 , 1514 

EBANK= 

TCO 

0656 

REF 

2 

LAST 

754 

36, 3107 

03261 

1 

2CADP 

CUTOFF 

0656 

36, 3110 

56067 

0 

0657 

REF 

1 1 9 

LAST 

75  4 

36, 3111 

1 5155 

l_ 

TC  F 

ENDO  FJOB 

0658 

REF 

1 L 

L AST 

74  7 

36, 3112 

4 0103 

7 

IGN I TE 

C S 

FLAG  WRD7 

0659 

REF 

2 

LAST 

745 

36,3  113 

7 4737 

1 

MASK 

I GNF LBIT 

0660 

REF 

223 

LAST 

752 

36,3  114 

10  000 

0 

CCS 

A 

0661 

-REF- 

I— 

36,3 115 

— 1 3126 

0 

TC  F 

T GNT  TF1 

0662 

REF 

39 

LAST 

750 

36,3116 

3 4753 

1 

CAF 

BIT1 

0663 

36,3117 

0 0004 

0 

INHINT 
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(3)  MUST  BF  -LOWER  PRIORITY  THAN  CLOKJOB 


SET  UP  THF  DAP  FOR  COASTING  FLIGHT. 


4.13  RESTART  FOR  POSTBURN 


( 3) 


SET  UP  THE  D4P  FOR  COASTING  FLIGHT. 


(2) 
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'L 

BURN 

, BABY,  BURN  — 

MASTER  IGNITION 

ROUTINE 

USER'S  PAGE  NO. 

17  E 7 S3 

0664 

REF 

18 

LAST 

75  1 

36, 3120 

0 5173 

1 

TC 

TWIDDLE 

0665 

REF 

2 

LAST 

256 

36,3121 

02411 

1 

ADRES 

IGNITION 

0666 

REF 

1 

36, 3122 

3 4360 

0 

CAF 

0CT23 

IMMEDIATE  RESTART  AT 

IGNITION. 

0667 

REF 

100 

LAST 

751 

36, 3123 

54  001 

1 

TS 

L 

0668 

36,3 124 

4 0000 

0 

COM 

0669 

REF 

5 

LAST 

748 

36, 3125 

52  761 

0 

OXCH 

- F H A SE4 

06  70 

REF 

- 4 

LAST 

74.  g 

36, 3126 

4 4747 

0 IGNITE1 

cs 

CNTQNDEX 

RESTORE  OLD  DISPLAY. 

0671 

REF 

17 

LAST 

753 

36,3127 

55' 163 

0 

TS 

D I S P DEX 

0672 

REF 

120 

LAST 

754 

36,3130 

1 5155 

1 — 

TCF 

— ENDO  F JOB 

R0673 

0674 

06 

— RE^ 

1 

31 , 2 172 
- 35, 2 000 

BANK  31 

sfti  nr  P40S2 

0676 

35,3707 

BANK 

0677  REF  1 COUNT*  $4/P40 


0688 

REF 

10 

LAST 

75  1 

35,3707 

0 4645 

1 

P 40  AUTO 

TC 

MAKFCADP 

HELLO  THERE. 

0689 

RFF 

4 

L AST 

48  7 

35,3710 

55' 164- 

1 

TS 

TEMPR60 

FOR  GENERALIZED  RETURN  TO  OTHER  BANKS. 

0690 

REF 

196 

LAST 

75  3 

35,3711 

0 4616 

1 

P40A/P 

TC 

BANKCALl 

SUBROUTINE  TO  CHECK  PGNCS  CONTROL 

0691 

REF 

2 

LAST 

48  7 

35,3712 

54233 

1 

CADR 

G+N, AUTO 

AND  AUTO  STABILIZATION  MODES 

06  92 

REF 

224 

LAST 

754 

35,3713 

10  000 

0 

CCS 

A 

+0  INDICATES  IN  PGNCS,  IN  AUTO 

0693 

REF 

1 

35,3714 

1 3726 

0 

TCF 

TURN  I TON 

+ INDICATES  NOT  IN  PGNCS  AND/OR  AUTO 

0694 

REF 

7 

LAST 

310 

35,3715 

3 4737 

0 

CAF 

APSF LBIT 

ARE  WE  ON  THF  DESCENT  STAGE? 

0695 

REF 

1 1 

LAST 

310 

35,3716 

7 0106 

1 

MASK 

FLGW  RD10 

0696 

RFF 

225 

LAST 

755 

35,  3717 

10  000 

0 

CCS 

A 

0697 

REF 

1 

35,  3720 

1 3733 

1 

TCF 

GOBACK 

RETURN 

0698 

R5F 

32 

LAST 

726 

35, 3721 

3 4747 

1 

CAF 

B I T 5 

YES,  CHECK  FOR  AUTOTHROTTLF  MODE 

0699 

35,3722 

0 0006 

1 

EXTEND 

0700 

REF 

5 

LAST 

529 

35, 3723 

02  030 

0 

RAND 

CHAM 30 

0701- 

3-5  , 3 724 

0 0006 

1- 

EXTEND^ 

0702 

REF 

2 

LAST 

755 

35,3725 

1 3733 

1 

BZF 

GOBACK 

IN  AUTOTHROTTLE  MODE  — RETURN 

0703 

REF 

1 

35,3726 

3 3735 

0 

TURN  I TON 

CAF 

P40A  /PMD 

DISPLAY  V50N25  Rl=203  PLEASE  PERFORM 

0704 

REF 

1 97 

LAST- 

755 

35, 3727 

0 4616 

1 

TC 

BANKCALL 

CHECKLIST  203  TURN  ON  PGNCS  ETC. 

0705 

REF 

3 

LAST 

523 

35,3730 

20476 

0 

CADR 

GOPE  RF 1 

0706 

REF 

27 

LAST 

753 

35,3731 

1 6001 

1 

TCF 

GOTO  POOH 

V 34E  TERMINATE 

0707 

REF 

1 

35,3732 

1 3711 

1 

TCF 

P4DA/P 

RFCYCLE 

0710 

REF 

5 

LAST 

755 

35, 3733 

3 1164 

0 

GOBACK 

CA 

TFMPR60 

0711 

REF 

13 

LAST 

75  1 

35, 3734 

0 4640 

1 

TC 

BANK  JUMP 

GOODBYE.  COME  AGAIN  SOON. 

07  L 2 

35,3735 

00203  0 P40A/PMD  OCT 

00203 

0714 

0715 

REF 

4 LAST  739 

36,3131 
36, 2000 

BANK 

SETLOC 

36 

P40S 
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0716 

36,3131 

A fl  ^ A 0 1 * 

BANK 

COUNT* 

* $ /P40  

0717 

R 071  R 

CONST  ANTS  FDR  T HF 

: IGNITION  ROUTINE . _ . 

R0720 

SFRVCADR 

P63 TABLE  +7 

0721 

0722 

REF 

1 

36,3131 

02036 

0 

P40 ADRES 

ADRES 

P40TABLF 

0723 

REF 

1 

36,3  132 

02045 

1 

P41 ADRES 

ADRES 

P41TABLE  -5 

^ at 3 13  3 

020  AO 

-0- 

P42ADRES 

ADRES 

p 42  T AB1  F 

0725 

REF 

3 

LAST 

747 

E7, 1620 

EB  ANK  = 

WCHPHASE 

36, 3 1 34 

03437 

1 

DSP2CADR 

2CADR 

P63DISPS  -2 

0726 

REF 

1 

36,3135 

62067 

1 

0727 

REF 

4 

LAST 

756 

E7 , 1620 

FB  ANK  = 

WCHPHASE 

0728 

REF 

1 

36,3136 

02522 

0 

LUNLANAD 

2C  ADR 

LUNL AND 

0728  REF  1 36,3137  62067  1 


07282  REF  22  LAST  749  E7,1513  EBANK=  DVCNTP 

07284  REF  1 36,3140  03637  0 ATM AGADR  2C ADR  ATMAG 

07284  REF  1 36,3141  70067  l 

0730  REF  28  LAST  755  -600-1  ? = GOTOPOOH 

0731  36,3142  00000  1 D29.9SEC  2 DEC  2990 

0731  36,3143  05656  1 


0732  36, 31^  04672  0 S24.9SEC  DEC  2-490 


0733 

0734 

REF  33  LAST  755 

36, 3 145 
4747 

00752 

1 

4. 9 S EC 
OCT  20 

DEC 

490 
B I T 5 

0735 

36, 3146 

24020 

0 

VB99C0N 

OCT 

24020 

BITS  5,  12,  AND  14 
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P0737  KILLTASK 

R0738  MOD  NC:  NEW  PROGRAM 

R 0 7 3 9 MOD  BY:  COVELLI 


R0740  FUNCTIONAL  DESCRIPTION: 

p 074 1 KILLTASK  IS  USED  TO  REMOVE  A TASK  FROM  THE  WAITLIST  BY  SUBSTITUTING  ANULL  TASK  CALLED  'NULLTASK'  (OF  COURSE), 

R0743  WHICH  MERELY  DOES  A TC  TASKOVER.  IF  THE  SAME  TASK  IS  SCHEDULED  MORE  THAN  ONCE,  ONLY  THE  ONE  WHICH  WILL  OCCUR 

R0745  FIRST  IS  REMOVED.  IF  THE  TASK  IS  NOT  SCHEDULED,  KILLTASK  TAKES  NO  ACTION  AMD  RETURNS  WITH  NO  ALARM.  KILLTASK 

R0747  MUST  9 E CALLED  IN  INTERRUPT  OR  WITH  INTERRUPT  INHIBITED. 

R0748  CALLING  SEQUENCE: 


A0749  — L=4 — (INHINT) 

A0750  L TC  KILLTASK  IN  FIXED-FIXED 

A075L  L+l  CADP  ????????  CADR  (NOT  2C ADR ) OF  TASK  TO  BE  REMOVED. 

A0752  L +2  (RELINT)  RETURN 


R07  53  EXIT  N CD E : AT  Lf2  OF  CALLING  SEQUENCE. 

R0754  ERASAELE  I NI T I AL I ZAT ION=  NONE. 


R0755  OUTPUT:  2 CADR  OF  NULL-TASK  INLST2 


RO  756 

DEBRIS: 

I TEMP  1 - 

ITEMP4,  A , L 

, Q . 

0757 

REF 

19 

LAST 

236 

E3, 1410 

EB ANK= 

LST2 

0758 

6027 

BLOCK 

3 

KILLTASK 

MUST  BE  IN  FIXED-FIXED. 

0759 

REF 

2 

LAST 

526 

6 000 

SETLOC 

FFTAG6 

0760 

6027 

BANK 

0761 

REF 

i 

COUNT* 

$ $ / K ILL 

0762 

REF 

i 

6027 

3 6035 

1 

KILLTASK 

CA 

KILLBB 

0763 

RFF 

226 

LAST 

755 

6030 

22  000 

1 

LXCH 

A 

0764 

REF 

191 

LAST 

75  1 

6031 

50  002 

0 

INDEX 

Q 

0765 

- 6032 

3 0000 

1 

CA 

0 

GET  CADR. 

0766 

REF 

18 

LAST 

595 

6033 

22  006 

1 

LXCH 

BBANK 

0767 

REF 

1 

6 034 

1 2223 

1 

TCP 

KILL  TSK2 

CONTINUE 

IN  SWITCHED  FIXED 

0768 

REF 

20 

LAST 

75  7 

E3 , 1410 

EB ANK= 

LST2 

0769 

RFF 

2 

LAST 

75  7 

6035 

56063 

1 

KILLBB 

BBCON 

KILL  TSK2 

0770 

27, 2223 

BANK 

27 

0771 

REF 

3 LAST 

59  27,2000 

SETLOC 

P40S1 

0772 

27,2223 

BANK 

0773 

REF 

1 

COUNT  * 

$$/K  ILL 

0774 


REF  10  LAST  555 


27,2223  22  062  0 KILLTSK2  LXCH 


I TEN F2 


SAVE  CALLER’S  BBANK 
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0775 

REF  192  LAST  757 

27,2224 

24  002 

0 

I NCR  Q 

0776 

27,2225 

0 0006 

1 

EXTEND 

0777  REF  29  —LAST  62 2 27,2226  22  061  0 QXCH  ITEMP1 


0778 

REF 

16 

LAST 

57  1 

27, 2227 

54  063 

0 

TS 

I TFNP3 

07  7Q 

REF 

5 

L A5  T 

4 6 ft 

27, 2230 

7 5012 

0 

MASK 

LCW10 

0780 

REF 

28 

LAST 

607 

27, 2231 

6 4741 

1 

AD 

B I T 1 1 

0781 

REF 

7 

LAST 

570 

27, 2232 

54  0 64 

1 

TS 

ITEMP4 

0782 

REF 

6 

LAST 

75  8 

27,2233 

4 5012 

0 

cs 

L0W1  0 

0783 

REF 

17 

LAST 

758 

27, 2234 

7 0063 

0 

MASK 

! TEMP3 

0784  REF  18  LAST  758  27,2235  54  063  0 TS  ITEMP3 


0785 

27,2236 

22  007 

0 

ZL 

P E F 

101 

LAST 

7 S c; 

27?  2 2^7 

5 0 001 

0 

ADRSCAN 

INDEX 

L 

0787 

REF 

21 

LAST 

757 

27, 2240 

4 1410 

1 

cs 

L ST  2 

0788 

REF 

8 

LAST 

758 

27,2241 

6 0064 

0 

AD 

I TFMP4 

n 7ftQ 

27,  2 242 

0 0006 

1 

EXTEND 

0790 

REF 

1 

27, 2243 

1 2255 

0 

BZF 

TSTF  BANK 

0791 

REF 

1 

27, 2244 

4 4747 

0 

LETITLI V 

CS 

LSTLIM 

0792 

REF 

102 

LAST 

75  8 

27,  2 245 

6 000  1 

0 

AD 

L 

0793 

27,2246 

0 0006 

1 

EXTEND 

0794 

REF 

i 

27,2247 

1 2253 

0 

BZF 

DEAD 

0795 

REF 

103 

LAST 

75  8 

27, 2250 

24  001 

0 

I NCR 

L 

0796 

REF 

1C4 

LAST 

758 

27,2251 

24  001 

0 

I NCR 

L 

0797 

REF 

1 

27,2252 

1 2237 

1 

TCF 

ADPS  CAN 

0798 

REF 

30 

LAST 

758 

27,2253 

52  062 

1 

DEAD 

DXCH 

ITEMP1 

0799 

27, 2254 

52  006 

0 

DTCB 

0800 

REF 

7 

LAST 

75  8 

27, 2255 

4 5012 

0 

TSTFBANK 

CS 

LOW  1 0 

0801 

REF 

105 

LAST 

758 

27, 2256 

50  001 

0 

INDEX 

L 

0802 

REF 

22 

LAST- 

758 

27 , 2 757 

7 1411 

o 

MASK 

LST2  +1 

0803 

27,2260 

0 0006 

1 

EXTEND 

0804 

REF 

19 

LAST 

758 

27, 2261 

60  063 

1 

SU 

I TEMP3 

0805 

27,  2?62 

0 0006 

1 

F X T F N D 

0806 

REF 

1 

27,2263 

1 2265 

0 

BZF 

KILL  DEAD 

0807 

REF 

1 

27, 2264 

1 2244 

0 

TCF 

LFTI TLIV 

0808 

REF 

1 

27, 2265 

3 4353 

0 

KILLDEAD 

CA 

TC  TS KOVR 

0809 

REF 

L 06 

LAST 

75  8 

27, 2266 

50  001 

0 

INDEX 

L 

osia 

REF 

23 

LAST 

75  8 

27, 2267 

55*410 

1 

TS 

l ST 2 

0811 

REF 

2 

LAST 

758 

27, 2270 

1 2253 

0 

TCF 

DEAD 

0812 


REF  34  LAST  756 


4747 


LSTLIM 


EQUALS  BITS 
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USER'S  PAGE  NO.  20  E3  S3 

RETURN  2C ADR  IN  I TEMPI , ITFMP2 
CADR  IS  IN  A 

GEN AOR  OF  TASK 
F BANK  OF  TASK 

COMPARE  GENADRS 

IF  THEY  MATCH,  COMPARE  F8ANKS 

ARE  WE  DONE? 

YES  - DONE,  SO  RETURN 

CONTINUE  LOOP. 


COMPARE  FBANKS  ONLY. 


MATCH  - KILL  IT. 

NO  MATCH  - CONTINUE. 


REMOVE  TASK  BY  INSERTING  TASKOVER 


DEC  16 


I 


G AP-J- 

L 

P0001 

R0002 

R0003 

R0004 

R0005 

R0007 

R0008 

R0009 

ROOll 

ROOl  2 
R0014 

R0016 

R0018 

ROO  19- 

R0020 
ROO  21 
R0022 
R0023 
R0024 
R0025 
R0026 
R0027 
R0028 
R0029 
ROO  30 
R0031 
R0033 
ROO  35 

R 0036 

R0037 

ROO  38 
R0040 
R0041 
R0042 
R 0043 
R 0044 
R0045 
R0046 
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PROGRAM  DESCRIPTION  P40  BOTH  DECEMBER  22,  1966 
MOD  03  eY  PETER  AOLER  MARCH  3,  1967 

CALLED  VIA  JOB  FROM  V37F 

FUNCTIONAL  DESCRIPTION 


1)  TO  COMPUTE  A PREFERRED  I MU  ORIENTATION  AND  A PREFERRED  VEHICLE  ATTITUDE  FOR  A LM  DPS 
THRUSTING  MANEUVER. 

3)  TO  DO  THE  VEHICLE  MANEUVER  TO  THE  THRUSTING  ATTITUDE. 

4)  TO  CONTROL  THE  PGNCS  DURING  COUNTDOWN,  IGNITION,  THRUSTING,  AND  THRUST  TERMINATION  OF  A 
PGNCS  CONTROLLED  DPS  MANEUVER. 

5)  IN  PQSTBURN--ZERO  RENDEZVOUS  COUNTER,  MAINTAIN  VG  CALCULATIONS  FOR  POSSIBLF  RC S MANEUVER, 

SET  MAXIMUM  DEADBAND  IN  DAP,  RESET  STEERLAW  CSTEER  TO  ZERO. 

-NOTE:  P 42 , WHICH  -IS  IN  THIS  LOG  SECTION,  DOES  TOE  SAME  FOR  AN  APS  BURN,  AND  P41  DOES  1-3  FOR 

RCS  PLUS  DISPLAYS  PARAMETERS  FOR  MANUAL  CONTROL. 


SUBROUTINES  USED 

R02  IMU  STATUS  CHECK 

S40.1  COMPUTATION  OF  THRUST  DIRECTION 

S40.13  LENGTH  OF  BURN 

S40.2.3  PREFERRED  IMU  OR  I EN  ATT  I ON 

540.8  X PRODUCT  STEERING 

540.9  LAMBERT  VTOGAIN 
R60LEM  ATTITUDE  MANEUVER 
LEMPREC  EXTRAPOLATE  STATE  VFCTOR 
PREREAD  AVERAGE  G,  SERVICER 
ALLCOAST  DAP  COASTING  INITIALIZATION 
CLOKTASK  ERGO  C L OCR  J OB  — C OUN  T DOWN 

PHASCHNG,  INTPRET,  FLAGUP,  FLAGDOWN,  WAITLIST,  LONGCALL,  GOFLASH,  GOFLASHR,  GQPERF1 , ALARM, 
PRIOLARM,  GOTOPOOH,  ENDOF JOB , BANKCALL,  SETMAXDB , SETMINDB,  CHECKMM,  ELATOUT,  OUTFLAT, 
KILLTASK,  SGNAGREE  TP  AGREE, -ETC  . 

RESTARTS  VIA  GROUP  4 

DISPLAYS 


V 50 N 2 5 201  A/P  TO  PGNCS,  AUTC  THROTTLE  MODE,  -AUTO  ATTITUDE  CONTROL 

V06N40  TTI,  VG,  DELTAVM  (DISPLAYED  ONCE/SECOND  BY  CLOKTASK) 

V50N99  PLEASE  PERFORM  ENGINE  ON  ENABLE 

VC6N40  TG  (TIME  TO  GO  TO  CUTOFF),  VG,  DELTAVM — ONCE/SECOMD 
V16N40  FINAL  VALUES  OF  TG,  VG,  DELTAVM 

V16N85  COMP  OF  VG  (BODY  AXES)  FOR  POSS.  RCS  MANUAL  MANEUVER 
VC5N09  POSSIBLE  ALARMS 
V50N07  PLEASE  SELFCT  POO 
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R0047  VIA  R30 

R0048  V06N44  HAPO,  PFRI,  TFF 

R0049  V06N35  TIME  TO  PERIGEE,  HMS 

R0Q50  ALARM  OR  ABORT  EXIT  MOOES 

R0051  PROGRAM  ALARM,  FLASHING  DISPLAY  OF  ALARM  CODE  1706  IF  P40  SELECTED  WITH  DESCENT  UNIT  STAGED. 

R0053  V 34  E (TERMINATE)  IS  -THE  ONLY  RESPONSE  ACCEPTED.  TC  GOTOPOOH. 

R0054  PROGRAM  ALARM,  FLASH  CODE  1703:  TIG  LESS  THAN  45  SECS  AWAY.  V34E=  GOTOPOOH  OR  V33E=  SLIP 

R0056  T IG  BY  45  SECS. 

R0057  ERASABLE  INITIALIZATION 

R0058  D E e R 1 S 

R0059  OUTPUT 


R0060 

R0062 

R0063 

SEE  SUBROUT 
XDELVFLG  = 

INE-S-E.G.:  S40.1,  S40.2,3, 
1 FOR  EXT  DELV  COMPUTATION 
0 FOR  AIMPT  (LAMBERT)  COMP 

S40. 13, 

S 40.  8,  -S40. 

0064 

REF 

2 

LAST 

53  TO 

53  : 

10 

10* 

COUNT* 

5>*/P40 

0065 

REF 

19 

LAST 

754 

F 7 , 1453 

EB ANK= 

WHICH 

0066 

36, 3147 

BANK 

36 

0067 

REF 

5 

LAST 

755 

36,2000 

SETLOC 

P40S 

006  8 

36, 3 147 

BANK 

0069 

REF 

41 

LAST 

754 

36, 3147 

0 5353 

1 P40LM 

TC 

PHASCHNG 

00692 

36, 3 1 50 

04024 

0 

OCT 

0402  4 

00694 

REF 

1 

36,3151 

3 3131 

1 

CAF 

P40A DRES 

0070  REF  20  LAST  76-0 — 36,-3152  55'453  0 TS  WHICH 


0071 

REF 

12 

LAST 

755 

36, 3153 

3 0106 

0 

CA 

FLGWR010 

0072 

REF 

8— 

LAST 

7 5 5 

36,3154 

7 4737 

1 

MASK 

APSF  LBIT 

0073 

REF 

227 

LAST 

757 

36,3155 

10  000 

0 

CCS 

A 

0074 

REF 

1 

36,3156 

1 3722 

1 

TC  F 

P4DA LM 

0079 

REF 

-198 

LAST 

75  5 

36,3157 

0 4616 

_L 

TC 

BANKCALL 

0080 

REF 

5 

LAST 

514 

36,3160 

11175 

1 

CADR 

R 02  B OTH 

0080  1 

REF 

24 

LAST 

75  0 

36, 3161 

4 0111 

_1 

C S 

D A P B COLS 

00802 

REF 

5 

LAST 

309 

36,  3 162 

7 4737 

1 

MASK 

CSMDOCKD 

00803 

REF 

228 

LAST 

760 

36, 3 163 

10  000 

0 

CCS 

A 

00804 

REF 

1 

36, 3 164 

3 2020 

1 

CAF 

THRE  SHI 

00805 

REF 

1 

36,3165 

6 2021 

0 

AD 

THRE  SH3 

00806 

REF 

2 

LAST 

121 

36,  3 166 

55*251 

1 

TS 

DVTHRUSH 

00  807 

REF 

11 

LAST 

749 

36,3167 

3 4751 

0 

CAF 

FOUR 

00808 

REF 

23 

LAST 

756 

36,3170 

5 5 ' 5 1 3 

0 

TS 

D VC  N TR 

TR I MG  I MB 


INITIALIZATION  FOR  BURN  8ABY. 


GO  DO  T MU  STATUS  CHECK  ROUTINE. 


INITIALIZE  DVMON 


76  0 
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0081 

REF 

96 

LAST 

743 

36,3171 

0 6036 

1 

TC 

T NTPRET 

LOAD  CONSTANTS  FOR  DPS  BURN 

0082 

36,3  172 

431  75 

0 

VLOAD 

CLEAR 

LOAD  F,  MOOT,  TDECAY 

l 

36, 3173 

34001 

1 

FDPS 

0084 

REF 

1 

36, 3 174 

02663 

0 

NOTHROTL 

0085 

REF 

2 

LAST 

158 

36, 3175 

03734 

1 

STORE 

F 

36, 3176 

77735 

0 

SLOAD 

00854 

REF 

1 

36,3177 

26002 

1 

DPSVEX 

00856 

36,3200 

70476 

0 

P40IN  DCOMP 

SRI 

R FF 

1 

36, 3201 

37742 

1 

STCALL 

VEX 

LOAD  EXHAUST  VFLOCITY  FOR  TGO  COMP. 

0087 

REF 

1 

36, 3202 

56271 

0 

S 43  • 1 

COMPUTES  UT  AND  VGTIG 

0088 

36, 3203 

77624 

1 

CALL 

3f»t  3 204 

56436 

0 

S40. 2,3 

COMPUTES  PREFERRED  IMU  ORIENTATION 

0090 

36,3205 

77776 

1 

EXIT 

A - ^ 20  A 

o 0004 

o 

I NHI NT 

00902 

REF 

27 

LAST 

75  4 

36, 3207 

0 46  74 

0 

TC 

I BNKCALl 

00903 

REF 

1 

36,3210 

40142 

1 

CADR 

PFL  I TEDB 

ZERO  ATTITUDE  ERRORS,  SET  DB  TO  ONE  DEG. 

0091 

REF 

1 

36, 3211 

0 3213 

1 

TC 

P40SXT4 

R0092 

***«****:M'*  ************ 

0093 

REF 

1 

36,3212 

1 2124 

0 

TC  F 

BURNBABY 

R0094 

* * # * if  * * if  * * * $ £ # * **  **  if  if  if  * 

QQQq 

3 A t 3 ? 1 3 

0 0006 

1 

P40SXT4  EXTEND 

0096 

REF 

3 

LAST 

753 

36,3214 

23' 142 

1 

QXCH 

P40/ RET 

0100 

36,3215 

0 0003 

1 

P41MANU  RELINT 

0101 

REF 

59 

LAST 

754 

36,3216 

0 5516 

0 

TC 

DOWNFLAG 

CLEAR  3AXISFLG  — R60  WILL  USE  VECPOINT. 

0102 

REF 

6 

LAST 

530 

36,3217 

00124 

0 

ADRES 

3 A X I SFLC 

0103 

REF 

199 

LAST 

760 

36,3220 

0 4616 

1 

TC 

BANKCALL 

0104 

REF 

4 

LAST 

53  0 

36,3221 

54101 

0 

C A OR 

RfcOLEM 

DO  ATTITUDE  MANEUVER  ROUTINE 

0105 

RE-F 

4 

LAST 

76  1 

36, 3222 

0 1 142 

1 

TC 

P4C/PET 

ni  0^ 

R-FF 

7 

I art 

7 4 8 

F7, ] 4A0 

EB ANK~ 

TP KM  KENT 

0107 

REF 

19 

LAST 

75  3 

36 i 3 223 

3 0005 

1 

POSTBURN  CA 

z 

0108 

REF 

18 

LAST 

755 

36,3224 

55* 163 

0 

TS 

DISPDEX 

0109  _ 

36, 3225 

0.  0006 

1 

EXTEND 

0110 

REF 

1 

36, 3226 

3 2055 

0 

DC  A 

ACADN85 

0111 

REF 

5 

LAST 

74  8 

36,3227 

53' 2 53 

0 

DXCH 

AVEGEXIT 

0112 

REF 

1 

36,3230 

3 3743 

1 

CAE 

V15N40 

0113 

REF 

200 

LAST 

76  1 

36,3231 

0 46  16 

1 

TC 

BANKCALL 

0114 

REF 

7 

LAST 

753 

36,3232 

20510 

1 

CADR 

GOFL  ASHR 

0115 

REF 

1 

36,3233 

0 3256 

0 

TC 

TERM  40 

0116 

REF 

2 

LAST 

748 

36,3234 

1 3241 

1 

TC  F 

T IGNCW 

0117 

REF 

3 

LAST 

754 

36,3235 

0 32  23 

1 

TC 

POSTBURN 
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0118 

REF 

42 

LAST 

760 

36, 3236 

0 5353 

1 

P40PHS1 

TC 

PHASCHNG 

0119 

36, 3237 

00014 

1 

OCT 

000  1 4 

r\  t-  r- 

36t  8 24ft 

1 5155 

1 

tcf 

ENDOFJCB 

0120 

0121 

36,3241 

0 0004 

0 

TIGNOW 

INHINT 

^6t  3 242 

0 46  74 

0 

TC 

I BNK CALL 

01212 

REF 

4 

LAST 

530 

36, 3243 

40153 

1 

CADR 

ZATT  EROR 

0122 

REF 

29 

LAST 

76  2 

36,3244 

0 46  7 4 

0 

TC 

I BNKCALL 

REF 

3 

LAST 

5 8 0 

36 , 3 245 

40140 

0 

CADR 

SETF  IMDB 

0124 

36,3246 

0 0003 

1 

RELINT 

0125 

REF 

2 

LAST 

743 

36,3247 

3 3744 

0 

CAF 

V 16N85B 

01  26 

RFF 

ZC  1 

LAST 

76  1 

36,3250 

0 4616 

1 

TC 

BANKCALL 

0127 

REF 

1 

36,3251 

20340 

1 

CADR 

RFFL ASHR 

0128 

REF 

2 

LAST 

76  1 

36, 3252 

0 3256 

0 

TC 

TERM40 

01  2q 

REF 

3 

| AST 

76  2 

36,3253 

1 3256 

1 

TCF 

TERM 40 

0130 

36, 3254 

0 3247 

0 

TC 

- 5 

1 82  86 

l 

TCF 

P40PHS1 

0131 

36,3256 

0 0006 

1 

TERM40 

EXTEND 

RFF 

\ 

36t  3 257 

8 21  04 

0 

DC  A 

SEP  VCADR 

0133 

REF 

6 

LAST 

76  1 

36,3260 

53*253 

0 

DXCH 

AVFGEXIT 

0134 

REF 

138 

LAST 

753 

36,3261 

3 4755 

1 

CAF 

ZERO 

m ^5 

REF 

8 

1 AST 

76  1 

36t  3262 

55 « 460 

0 

TS 

T R KMKCNT 

ZERO  RENDZVS  CNTERS 

0136 

REF 

20 

LAST 

76  1 

36, 3263 

3 0005 

1 

CA 

Z 

0137 

REF 

19 

LAST 

76  1 

36, 3264 

55' 163 

0 

TS 

DISPDEX 

0138 

36, 3265 

0 0004 

0 

INHINT 

0139 

REF 

30 

LAST 

762 

36,3266 

0 46  74 

0 

TC 

I BNKCALL 

0140 

REF 

6 

LAST 

530 

36, 3267 

40123 

0 

CADR 

REST  CROP 

0141 

36,3270 

0 0003 

1 

REL  INT 

0142 

REF 

29 

LAST 

756 

36,3271 

0 6001 

0 

TC 

GOTO  POOH 

0 14^ 

R EF 

2 1 

LAST 

76  n 

F7  t 1453 

F 8 A N)  K - 

which 

0144 

REF 

i 

COUNT  * 

$ S/P  41 

0145 

REF 

i 

36,3272 

3 3132 

1 

P41LM 

CAF 

P41 ACRES 

INITIALIZATION  FOR  BURNBABY 

0146 

REF 

22 

L AS  T 

76  2 

36, 3 273 

55,453 

0 

TS 

WHICH 

0147 

REF 

202 

LAST 

762 

36,3274 

0 4616 

1 

TC 

BANKCALL 

0148 

REF 

6 

L AST 

76  0 

36, 3275 

11175 

1 

CADR 

P02BCTH 

0149 

REF 

97 

LAST 

76  1 

36, 3276 

0 6036 

1 

TC 

I NT  P RE  T 

BOTH  LM 

0150 

36,3277 

71214 

0 

BON 

DLOAD 

IE  NJETSFL AG  IS  SET,  LOAD  2 

JET  F 

0151 

REF 

1 

36,3300 

00700 

0 

NJETSFLG 

0152 

REF 

1 

36,3301 

75305 

0 

P 4 1 F JET  1 

0153 

R EF 

1 

36,3302 

34015 

1 

F B C S 4 

IF  NJETSFL  AG  IS  CLEAR,  LOAD 

4 JET  F 

0154 

REF 

3 

LAST 

76  1 

36, 3303 

37734 

0 

P41 F JET 

STCALl 

F 

0155 

REF 

1 

36,3304 

753  10 

1 

PA  1 I N 

0156 

36, 3305 

77745 

1 

P41FJET1 

DLOAD 
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0157 

REF 

1 

36, 3306 

34017 

0 

fp:s2 

0158 

REF 

4 

LAST 

762 

36, 3307 

03734 

1 

STORE 

F 

0159 

36, 3310 

77624 

1 

P41  IN 

CALL 

0160 

REF 

2 

LAST 

76  1 

36,3311 

56271 

0 

S40. 1 

BOTH 

36, 3 312 

77624 

1 

P41 NORM 

CALL 

0165 

REF 

2 

LAST 

76  1 

36,3313 

56436 

0 

S 40  • 2,3 

CALCULATE  PREFERRED  IMU  ORIENTATION  AND 

0166 

36,3314 

77776 

1 

EX  IT 

SET  PFRATFLG. 

0169 

36,3315 

0 0004 

0 

INHINT 

0170 

REF 

31 

LAST 

762 

36,3316 

0 46  74 

0 

TC 

I BNKCALL 

0]  71 

REF 

5 

LAST 

76  2 

36, 3317 

40153 

1 

CADR 

ZATTEROP 

ZERO  ATTITUDE  ERRORS 

0172 

REF 

32 

LAST 

763 

36, 3320 

0 46  74 

0 

TC 

I BNKCALL 

0173 

REF 

4 

LAST 

762 

36,3321 

40140 

0 

CADR 

SFTM INDB 

SET  0.3  DEGREE  DEADBAND 

0174 

REF 

2 

LAST 

76  1 

36, 3 322 

0 3213 

1 

TC 

P40SXT4 

0175 

REF 

98 

LAST 

762 

36,3323 

0 6036 

1 

TC 

I N TP  RET 

0176 

36,3324 

45175 

0 

VLOAD 

CALL 

TRANSFORM  VELOCITY-TO-BE-GAINED  AT  TIG 

0177 

REF 

4 

LAST 

211 

36,3325 

03705 

0 

VGT  I G 

FROM  REFERENCE  COORDINATES  TO  LM  BODY- 

0178 

REF 

1 

36, 3326 

57156 

1 

S41  . 1 

AXIS  COORDINATES  FOR  V16N85  DISPLAY. 

0179 

REF 

6 

LAST 

331 

36,3327 

03500 

1 

STORE 

VGBODY 

(SCALED  AT  2 (+7)  METE R S/ CENT  I SECOND ) 

0180 

36,  3330 

77776 

1 

EXIT 

0 ] ft  1 

R£J= 

3 

| AST 

76  2 

36, 3331 

3 3744 

0 

CAF 

V 1 6N  85B 

0182 

REF 

203 

LAST 

762 

36, 3332 

0 46  16 

1 

TC 

B ANKCALL 

0183 

REF 

1 

36, 3333 

20324 

0 

CADR 

GODSPRET 

01831 

01832 

RFF 

REF 

6 

20 

LAST 

LAST 

712 
76  2 

36.3334 

36. 3335 

3 5017 
55' 163 

1 

0 

CAF 

TS 

PR  105 
D1SPDEX 

FOR  SAFETY  ONLY 

01833 

REF 

30 

LAST 

754 

36,3336 

0 5105 

0 

TC 

F IND VAC 

01834 

REF 

3 

LAST 

258 

E 7 , 1704 

EBANK= 

VGPREV 

01835 

R-EF 

3 

36, 3337 

03361 

0 

2CADR 

DYNMCISP 

01835 

REF 

1 

36, 3340 

74067 

0 

01836 

REF 

8 

LAST 

75  1 

36,3341 

0 5327 

1 

TC 

2PHSCHNG 

0184 

36,3342 

00076 

0 

OCT 

00076 

GROUP  6 RESTARTS 

AT  RED06.7 

0185 

36,3343 

04024 

0 

OCT 

04024 

GROUP  4 RESTARTS 

HERE 

R01 86  ***************  ******** 


0187 

REF 

1 

36, 3344 

1 2133  0 

TC  F B*RNB*B* 

A01871 

sje#*##**  $$  * * * Sfc  * £ 

01872 

REF 

13 

LAST 

75  1 

36, 3345 

3 4777 

1 

BLNKWAI T CAF 

1 SEC 

01873 

REF 

204 

LAST 

76  3 

36, 3346 

0 46  16 

l 

TC 

BANKCAl L 

01874 

REF 

13 

LAST 

726 

36,3347 

01735 

1 

CADR 

DFL AYJOB 

01875  REF  21  LAST  768  36,3350  3-  1163  1 RED06.7  CA  D4SPDEX  ON  A RESTART,  DO  NOT  PUT  UP  DISPLAY  IF 

01876  REF  43  LAST  753  36,3351  6 4752  0 AD  TWO  BLANKING  (BETWEEN  TIG-35  AND  TIG-30) 

R0188  *********************** 
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018801 

36,3352 

0 0006 

1 

EXTEND 

018802 

REF 

1 

36,3353 

1 3345 

1 

BZF 

BLNKWAIT 

018803 

REF 

4 

LAST 

763 

36, 3354 

3 3744 

0 

CAF 

V 16N  85B 

018804 

REF 

205 

LAST 

763 

36,3355 

0 4616 

1 

TC 

BANKCALL 

m p.ftnR 

R EF 

2 

1 AST 

76  3 

36,3356 

20324 

0 

CADR 

GODSPRET 

018806 

REF 

7 

LAST 

763 

36,3357 

3 5017 

1 

CAF 

PRI05 

REF 

in 

LAST 

soft 

36, 3 360 

0 5146 

1 

TC 

PRIDCHNG 

018808 

REF 

22 

LAST 

76  3 

36,  336  1 

3 1163 

1 

DYNMDISP  CA 

OISPDEX 

36 , 3 36? 

0 0006 

l 

EXTEND 

0188  1 

REF 

122 

LAST 

762 

36,  3363 

6 5155 

0 

BZMF 

ENDOFJOB 

018811 

REF 

99 

LAST 

76  3 

36, 3364 

0 6036 

1 

TC 

I NTPRET 

36,  ^ 366 

451  75 

0 

VLOAD 

C ALL 

018813 

REF 

4 

LAST 

763 

36, 3366 

03705 

0 

VGPR  EV 

0188  14 

REF 

2 

LAST 

763 

36, 3367 

57156 

1 

S41  . 1 

n i ft  r i s 

-REF 

7 

1 AST 

76  3 

36,3370 

03500 

1 

STORE 

VGEC DY 

018816 

36,3371 

77776 

1 

EXIT 

018817 

REF 

14 

LAST 

76  3 

36, 3372 

3 4777 

1 

CAF 

1 SEC 

01  ft  8 1 8 

REF 

?C6 

LAST 

76  4 

36, 3373 

0 4616 

1 

TC 

BANK  CALL 

016819 

REF 

14 

LAST 

76  3 

36, 3374 

01735 

1 

CADR 

DELA YJOB 

01882 

RFF 

2 

LAST 

763 

36, 3375 

1 3361 

1 

TC  F 

DYNMDISP 

0189 

0190 

REF 

100 

LAST 

764 

36. 3376 

36. 3377 

0 6036 
77624 

1 

1 

CALCN85 

TC 

CALL 

I NTPRFT 

0191 

REF 

1 

36,3400 

756  11 

0 

UPDATEVG 

0192 

36,3401 

451  75 

0 

VLOAD 

CALL 

019  3 

REF 

§_ 

L AS  T 

764 

36,3402 

03705 

o 

VGPR I V 

0194 

REF 

3 

LAST 

764 

36, 3403 

57156 

1 

S 41 . 1 

0195 

REF 

8 

LAST 

764 

36, 3404 

03500 

1 

STORE 

VGBCDY 

0196 

36,3405 

777  76 

1 

EX  I T 

0197 

REF 

40 

LAST 

744 

36,3406 

0 4635 

0 

TC 

POST  JUMP 

0198 

REF 

3 

LAST 

740 

36,3407 

77525 

0 

CADR 

SEPV  EXIT 

0199 

REF 

1 

COUNT  * 

t $ / P 42 

0200 

REF 

23 

LAST 

762 

E7, 1453 

EB ANK= 

WHICH 

0201 

REF 

43 

LAST 

762 

36, 3410 

0 5353 

1 

P42LM 

TC 

PHASCHNG 

02012 

36,341  1 

04024 

0 

OCT 

04024 

02014 

REF 

1 

36, 3412 

3 3133 

0 

CAF 

P42 A PRES 

0202 

REF 

24 

LAST 

764 

36, 3413 

5 5 ' 453 

0 

TS 

WHICH 

0203 

REF 

13 

LAST 

760 

36,3414 

4 0106 

1 

CS 

FLGWRD10 

0204 

REF 

9 

LAST 

760 

36, 3415 

7 47  37 

1 

MASK 

APSFLBIT 

0205 

REF 

2 29 

LAST 

760 

36, 3416 

10  000 

0 

CCS 

_A 

0208 

REF 

2 

LAST 

760 

36,3417 

0 3722 

0 

TC 

P43ALM 

0209 

REF 

207 

LAST 

764 

36, 3420 

0 46  16 

1 

TC 

BANKCALL 
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A NON-POSITIVE  OISPDEX  INDICATES  PAST 
TIG-35,  SO  SERVICER  WILL  BE  DOING  THE 
UPDATING  OF  NOUN  85.  STOP  DYNMDISP. 


INITIALIZATION  FOR  BURNBABY 


GAP 


ASSEMBLE  REVISION  0 69--QF  AGG -PROGRAM  LUM I NARY  BY  NASA  2-021112-011 


L 

P4C 

-P47 

0210 

REF 

7 

LAST 

762 

36,3421 

11175 

1 

CADR 

R02B0TH 

02101 

, REF 

1 

36, 3422 

3 6000 

1 

CAF 

THRE  SH2 

no  i n? 

REF 

3 

LAST 

76  0 

36, 3423 

55 ' 2 5 1 

1 

TS 

DVTHRUSH 

\J  c.  1 U c. 

02103 

REF 

12 

LAST 

760 

36, 3424 

3 47  51 

0 

CAF 

FOUR 

02104 

REF 

24 

LAST 

760 

36, 3425 

55' 513 

0 

TS 

D VC  N TR 

0211 

REF 

1C1 

LAST 

764 

36, 3426 

0 6036 

1 

TC 

I NT  P RET 

0212 

36, 3427 

77214 

0 

SET 

V10AD 

0213 

REF 

7— 

LAST 

73  8 

36,3430 

01072 

0 

AVFL AG 

0214 

REF 

1 

36, 3431 

34007 

1 

FAPS 

0215 

REF 

5 

LAST 

763 

36, 3432 

03734 

1 

STORE 

F 

0216 

36,3433 

52135 

JL 

SLOAD 

GOTC 

02162 

REF 

1 

36,3434 

26001 

1 

APSVFX 

02164 

REF 

1 

36,3435 

75200 

1 

P40  I N 

0217 

REF 

25 

LAST 

764 

E7 , 1453 

EB ANK= 

WHICH 

0218 

REF 



COUNT* 

$$/P47 

0219 

REF 

2 C 8 

LAST 

764 

36, 3436 

0 4616 

1 P47LM 

TC 

BANKCALL 

0220 

REF 

8 

LAST 

765 

36,3437 

11175 

1 

CADR 

R 02  BOTH 

0221 

REF 

1 02 

LAST 

76  5 

36, 3440 

0 6036 

1 

TC 

I F TP  PET 

0222 

36, 3441 

77624 

1 

CALRB 

0223 

REF 

1 

36,3442 

27577 

1 

MIDTCAV2 

0224 

REF 

279 

LAST 

75  1 

36,3443 

3 01  55 

0 

CA 

MPAC  +1 

0225 

REF 

19 

LAST 

755 

36 , 3 444 

0 5173 

1 

TC 

TWIDDLE 

0226  REF  1 -36,3445  03447  0 ADRES  STARJP47 


0226  1 

REF 

123 

LAST 

764 

36, 3446 

1 5155 

1 

TC  F 

ENDOFJOB 

0227 

REF 

44 

LAST 

76  4 

36, 3447 

0 5353 

1 

STARTP47  TC 

PHASCHNG 

02391 

36,3450 

05014 

1 

OCT 

05014 

02392  —36  >3-451  77777  C OCT  77777 


02393 

024-0 

REF 

- 1 

36.3452 

36. 3453 

0 0006 
3 3 747 

1 

0 

EXTEND 
DC  A 

AC  AD-N83 

0241 

REF 

7 

LAST 

762 

36, 3454 

53*253 

0 

DXCH 

AVEGFXIT 

0242 

REF 

5 

LAST 

745 

36,3455 

3 4736 

l 

CAF 

PRI020 

0243 

REF 

31 

LAST 

76  3 

36,3456 

0 5105 

0 

__T.C. 

F I ND VAC 

0244 

REF 

4 

LAST 

33  1 

E7, 1620 

FBANK= 

DE  L V I MU 

0245 

REF 

1 

36,3457 

03513 

0 

2C  ADR 

P47B0DY 

0245 

REF 

-1  . 

36,3460 

74067 

0 

0246 

REF 

2 

LAST 

255 

36,3461 

l 2333 

1 

TC  F 

RED04.2 

A 0247 

0248 

REF 

103 

LAST 

765 

36, 3462 

0 6036 

1 CALCN83 

TC 

I NTPPET 

0249 

36, 3463 

53375 

0 

VLOAD 

VAD 

0250 

REF 

-1 

36,3464 

03500 

1 

DEI VCTL 

0251 

REF 

2 

LAST 

162 

36, 3465 

03525 

0 

DELVPEF 

0252 

REF 

12 

LAST 

735 

36, 3466 

03654 

0 

STORE 

DELVSIN 

19:02  NOV.  25,1968  FLY 
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INITIALIZE  DVMON 


LOAD  FAPS,  MDOTADS,  AND  ATDECAY  INTO 
F,  MOOT,  AND  TDECAY  BY  VECTOR  LOAD. 


CHECKS  PHASE  5 AND  GOES  TO  PREPFAD 
SEE  TIG-30  IN  BURNBA8Y. 


TEMP  STORAGE  FOR  RESTARTS 
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.109  PAGE 
8 E7  S3 


0253 
02  54 
0255 

REF 

REF 

4 

% 

LAST 

LAST 

764 
76  5 

36,3467 

36.3470 

36.3471 

77624 

57156 

03621 

1 

1 

1 

CALL 

STORE 

S 41 . 1 
DELV  IMU 

0256 

36, 3472 

77776 

1 

EXIT 

02561 

REF 

45 

LAST 

765 

36,3473 

0 5353 

1 

TC 

PHASCHNG 

02562 

36, 3 474 

1003-5 

0 

OCT 

1 003  5 

02563 

REF 

1C4 

LAST 

76  5 

36, 3475 

0 6036 

1 

TC 

INTPRET 

36, 3476 

777  75 

1 

VLOAD 

u c.  30, 

02565 

REF 

13 

LAST 

765 

36,3477 

036  54 

0 

DELVSIN 

02566 

REF 

2 

LAST 

765 

36,3500 

03500 

1 

STORE 

DELVCTL 

02567  —36,3501  77776  1 EXIT 


0257 
02  5 8 

REF 

REF 

41 

4 

LAST 

LAST 

764 
76  4 

36, 3502 
36,  3 503 

0 4635 
77525 

0 

0 

TC 

CADR 

POST  JUMP 
SER V EXIT 

0259 

0260 
0261 

REF 

REF 

REF 

1 

209 

LAST 

76  5 

36. 3504 

36.3505 

3 3745 
_0  -4616 

1 P 47  BOD 
1 

CAF 

TC 

V 1 6 8 3 
BANKCALL 

8 

LAST 

761 

36,  3506 

205  10 

1 

CADR 

Gf'E  L ASHR 

0262 

REF 

30 

LAST 

762 

36,3507 

0 6001 

0 

TC 

GOTCPGCH 

0263  -RSF  31  LAST  766  36,3510  0 6001  0 TC  GOTOPOCH 


02631 

REF 

2 

LAST 

76  5 

36,3511 

1 3513 

1 

TC  F 

P47R0DY 

02632 

REF 

2 

LAST 

762 

36, 3512 

1 3236 

1 

TC  F 

P40PHS1 

02  64 

R EF 

TO  5 

LAST 

76  6 

36,  3 513 

0 60  36 

j- 

P47Bnr>Y  Tf 

I NT  P RET 

0265 

36, 3514 

77775 

1 

VLOAD 

0266 

REF 

5 

LAST 

729 

36, 3515 

06424 

0 

H I 6Z  EROS 

0267 

REF 

(y 

LAST 

766 

36,35 16 

03621 

1 

STORE 

DELV  IMU 

0268 

REF 

3 

LAST 

766 

36,3517 

03500 

1 

STORE 

DELVCTL 

0269 

36, 3520 

77776 

1 

EXIT 

0270  REF  — 1 — 36,  3521  0 3504  0 TC  P47B0D 


0271 

REF 

5 

LAST 

756  TO 

757: 

14  615* 

COUNT  * 

$ $ / P40 

0272 

REF 

-7- 

LAST 

7 54— 

36,3522 

3 1515 

_1 

IMPLBURN  CA 

TGC  +1 

02721 

REF 

1 

36,3523 

0 3710 

1 

TC 

GETDT 

0273 

REF 

20 

LAST 

765 

36,3524 

0 5173 

1 

TC 

TWIDDLE 

0274 

REF 

2 

LAST 

256 

36,3525 

03542 

1 

ADRES 

ENGCFTSK 

0275 

REF 

60 

LAST 

76  1 

36,3526 

0 5516 

0 

TC 

DOWNFLAG 

02  76 

REF 

3 

LAST 

748 

36, 3527 

00153 

0 

ADRES 

I GNF LAG 

0277 

REF 

61 

LAST 

76  6 

36, 3530 

0 5516 

0 

TC 

DOWN  FLAG 

0278 

REF 

4 

LAST 

753 

36,  3 53  1 

00154 

1 

ADRES 

ASTNFLAG 

0279 

REF 

62 

LAST 

766 

36,3532 

0 5516 

0 

TC 

DOWNFLAG 

0280 

REF 

1_ 

36, 3 533 

00044 

1 

ADRES 

IMPULSW 

0281 

REF 

46 

LAST 

766 

36,  3 534 

0 5353 

1 

TC 

PHASCHNG 

0282 

36, 3535 

40114 

1 

OCT 

4011  4 

0283 

REF 

13 

LAST 

75  1 

36,3536 

0 5221 

0 

TC 

F I X D EL  AY 

0284 

36,3537 

00062 

0 

DEC 

50 

PEREADAC  AND  HERE 


TURN  OFF  IGNFLAG 
TURN  OFF  ASTNFLG 
TURN  OFF  IMPULSW 

RESTART  PROTECT  ENGOFTSK  (ENGINOFF) 
WAIT  HALF  A SECOND 
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0285 

REF 

3 

LAST 

75  3 

36,3540 

0 2656 

0 

TC 

NOUL LAGE 

/.  Q 

1 A C T 

7C  9 

36 , 3 54 1 

0 52  61 

1— 

TC 

TASK  EVER 

02  86 
0287 

REF 

REF 

H O 

33 

L M J 1 

LAST 

I 3 6 

763 

36, 3542 

0 4674 

0 

ENGOFTSK 

TC 

I BNK  CALL 

0288 

REF 

X 

36, 3543 

75545 

1 

CADR 

ENGINOFF 

0289 

REF 

49 

LAST 

767 

36,  3 544 

0 5261 

1 

TC 

TASK  OVER 

noon 

REF 

3 

LAST 

754 

36,  3 545 

3 4644 

-0  - 

ENGINOFF 

CAF 

P4U-Q12 

0291 

REF 

32 

LAST 

765 

36, 3546 

0 5105 

0 

TC 

FINDVAC 

0292 

REF 

9 

LAST 

762 

E7, 1460 

EBANK= 

TPKMKCNT 

0293 

FEE- 

4 

LAST 

74  i 

3 6,3  542 

03223 

_L_ 

2CADR 

PCSTBURN 

0293 

36, 3550 

74067 

0 

0294 

REF 

40 

LAST 

754 

36,  3 551 

3 47  53 

-4— 

ENGIN0F2 

CAF 

B IT  1 

0295 

REF 

32 

LAST 

724 

36,3552 

0 5203 

0 

TC 

WAITLIST 

0296 

REF 

4 

LAST 

740 

E6 , 1420 

EBANK= 

0 MEG  AO 

0297 

REE 

1 

36,3553 

036  06 

_J 

2CADR 

COASTSET 

0297 

REF 

1 

36,3554 

74066 

1 

0298 

REF 

12 

LAST 

754 

36, 3555 

4 0103 

1 

ENGINOF 1 

CS 

FLAGWRD7 

0299 

REF 

1_ 

36,3556 

7 4745 

_J 

MASK 

I-Q.UE.FB.IT 

0300 

REF 

13 

LAST 

767 

36,3557 

26  103 

1 

ADS 

F L AGWRD7 

0301  REF 4 LAST  767  36,3  560  0 2656-0 TC  NOULLAGE 


0302 

36,3561 

0 0006 

1 

ENG IN0F4 

EXTEND 

0303 

RFF 

22 

LAST 

75  2 

36, 3562 

3 0025 

0 

DC  A 

T I M F 2 

0304 

REF 

5 

LAST 

746 

36,  3563 

53*345 

0 

DXCH 

TEVFNT 

030^ 

P FF 

LAST 

74  6 

3 SA4- 

4 474*5 

l 

ENG  I NjflE  ^ 

r 

F MGflNRT  T 

03051 

REF 

20 

LAST 

747 

36,3565 

7 0101 

0 

MASK 

FLAG  VRD5 

03052 

REF 

21 

LAST 

767 

36,3566 

54  101 

0 

TS 

FI  AG  WRD5 

03053 

RFF 

7 

LAST 

746 

36, 3567 

4 43  55. 

1 

CS 

PRIC30 

0306 

36, 3570 

0 0006 

1 

EXTEND 

0307 

REF 

24 

LAST 

746 

36,3571 

02  Oil 

0 

RAND 

DSAL MOUT 

030  8 

REF 

6 

LAST 

76  5 

36,3  572 

6 4736 

1 

AD 

PR  I C 20 

0309 

36, 3573 

0 0006 

1 

EXTEND 

0310 

REF 

25 

LAST 

767 

36,3574 

01  Oil 

0 

WRITE 

DSAL  MOUT 

0314 

REF 

25 

LAST 

760 

36,3575 

4 0111 

1 

CS 

DAPB  COLS 

0315 

REF 

1 

36, 3576 

7 4736 

0 

MASK 

USFORJTS 

0316 

REF 

26 

LAST 

767 

36, 3577 

26  111 

1 

ADS 

DAPROOLS 

0317 

RFF 

1 

36, 3600 

4 4737 

1 

CS 

HIRTHROT 

0319 

REF 

3 

LAST 

749 

36,3601 

54  055 

0 

TS 

THRUST 

0320 

REF 

31 

LAST 

74  9 

36,3602 

3 4750 

1 

CAF 

BIT4 

0321 

36,3603 

0 0006 

1 

EXTEND 

0322 

REF 

9 

LAST 

749 

36,3604 

05  014 

JL 

WOR 

CHAN  14 

0323 

REF 

3 

LAST 

622 

36, 3605 

0 4707 

0 

TC 

I SWR  ETPN 
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TURN  OFF  ULLAGE 


THIS  CODING  ALLOWS  ENGINOFF  ET  AL  TO  BF 
USED  BOTH  BY  WAITLIST  AND  BY  TC  I BNKC  ALL 


MUST  BE  LOWER  PRIO  THAN  CLOCKJOB 


SET  THE  IDLE  BIT. 


INSURE  ENGQNFLG  IS  CL EAR.. 

FNGIN0F3  IS  USED  AS  A PRE-ENGINE  ARM 
SUBROUTINE. 

TURN  OFF  THE  ENGINE  - DPS  OR  APS 


TURN  OFF  TRIM  GIMBAL 


ZERO  AUTO-THROTTLE  WHENEVFR  THE  ENGINE 
IS  TURNED  OFF. 

THF  HARDWARE  DOES  SO  ONLY  WHEN  THE 
ENGINE  IS  DISARMED. 


GAP 
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0324 

0325 

REF  34 
REF  4 

LAST 

LAST 

767 

754 

36. 3606 

36. 3607 

0 46  74 
40204 

0 

0 

COASTSET  TC 

CADR 

I BNK  CALL 
ALLC  CAST 

DO  DAP  COASTING  INITIALIZATION 

0326  R-EF  50  LAST  767  36,  3610  0 5261  1 It-  TASKCVER 


0327 

REF 

5 

LAST 

767 

E 6 , 1420 
36,361 1 

45020 

EB ANK= 

UPDATEVG  STO 

0MEGA0 

CALL 

0328 

0329 

REF 

3 

LAST 

157 

36,3612 

03663 

1 

QTEMP1 

0330 

REF 

1 

36, 3613 

56472 

0 

S40  . 8 

X-PRODUCT  STEFRING 

0 3 31 

36,3614 

430  14 

_0_ 

BON 

8CFSET 

0332 

REF 

6 

LAST 

735 

36,3615 

01307 

1 

XDEL  VFLG 

0333 

REF 

4 

LAST 

768 

36,3616 

03663 

1 

QTEM PI 

0334 

REF 

j__ 

36,3617 

01045 

_1_ 

CYCLESW 

0335 

REF 

5 

LAST 

76  8 

36,3620 

03663 

1 

QTFMP1 

0336 

36,3621 

77776 

1 

EXIT 

03361 

REF 

1 

36, 3622 

10  755 

1 

cc  s 

PHASE2 

03362 

REF 

1 

36, 3623 

1 3636 

0 

TC  F 

ENDSTEER 

GROUP  2 ACTIVE  — > LAMBERT  STILL  GOING. 

0337 

REF 

4 

LAST 

312 

36,3624 

3 4737 

0 

CAF 

PRiruo 

0338 

36, 3625 

0 0004 

0 

INHINT 

0339 

REF 

33 

LAST 

76  7 

36,3626 

0 5105 

o 

TC 

F INOVAC 

0340 

REF 

2 

LAST 

158 

E7, 1713 

EB  ANK  = 

VG 

0341 

REF 

1 

36,3627 

02745 

0 

2CADR 

S4D  . 9 

LAMBERT  VTOGAIN 

0341 

R-EF 

1 

36, 3630 

56067 

o 

0342 

REF 

9 

LAST 

763 

36, 3631 

0 5327 

1 

TC 

2PHS CHNG 

0343 

36, 3632 

00172 

0 

OCT 

00172 

2.17SP0T  FOR  S40.9 

0344  36,3633  10035  0 OCT  10035  HERE  AND  R ER  E AD AC  AFTER  RESTART 


0345 

REF 

63 

LAST 

76  6 

36,3634 

0 5516 

0 

TC 

0 OWN  FLAG 

0346 

REF 

2— 

LAST 

76  8 

36, 3635 

00043 

_o 

ADRES 

C YCL  ESW 

VG  CALCULATION  OMITTED 

0347 

RFF 

106 

LAST 

766 

36,3636 

0 6036 

1 

ENDSTEER  TC 

I NTPPET 

0348 

36, 3637 

77650 

1 

GOTO 

0349  REF  6 UST  768  36,3640  03663  1 QTEMP1 


0350 

REF 

107 

LAST 

76  8 

36, 3641 

0 6036 

1 

STEERING  TC 

INTPPET 

0351 

0352 

REF 

2 

LAST 

764 

36. 3642 

36. 3643 

77624 

75611 

1 

0 

CALL 

UPDATEVG 

0353  -36^,3  644  77776  1 FXIT 


0354 

REF 

25 

LAST 

765 

E7, 1513 

EBANK=  DVCNTP 

0 35  5 

36, 3645 

0 0004 

_o 

NSTEER  INHINT 

0356 

REF 

4 

LAST 

687 

36,3646 

3 5016 

0 

CA  FEANK7 

0357 

REF 

18 

LAST 

72  1 

36, 3647 

54  003 

0 

TS  EBANK 

R0358 

PHASE  CHANGE 

IN  SERVERICER  NEEDED  HERE 

4c4=4=4c4<4c4c4c<c4c4r4c4c4c4.-4c4e4s4c4c4:  * 4<  # * 4=  4=  4>  4=  4=  4"  * 4= 

0359 

REF 

18 

LAST 

748 

36, 3650 

4 00  76 

1 

CS  FLAGWRD2 

CHECK  IMPULSE  SWITCH.  IT 

I S 

SET  EITHER 

0360 

REF 

2 

LAST 

748 

36,3651 

7 4743 

1 

MASK  IMPULBIT 

BY  S40.13  IF  TBURN<6  SECS 

OR 

BY  S40.8  IF 

0361 

REF 

2 30 

-LAST 

764 

36,3652 

10  000 

0 

rr.s  a 

STEERING  IS  ALMOST  DONE. 

0362 

36,3653 

1 3660 

0 

TC  F +5 

TMPULSW  =0  EXIT 
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0363 

REF 

14 

LAST 

767 

36,  3654 

4 0103 

1 

CS 

FLAG  WRD7 

IMPULSW  = 1 WHY?  CHECK  IDLEFLAG 

0364 

REF 

2 

LAST 

767 

36,3655 

7 4745 

1 

MASK 

IDLCFBIT 

(IDLEFLAG  = 0 — > DVMON  ON) 

0365 

REF 

231 

LAST 

76  8 

36, 3 656 

10  OQO 

0 

rr.s 

A 

0366 

36,3657 

1 3662 

1 

TCF 

+ 3 

DVMON  ON — >THR LISTING — MMPULSW  VIA  S40.8 

0367 

REF 

42 

LAST 

766 

36,3660 

0 4635 

0 

TC 

POST  JUMP 

DVMON  OFF — > I M PUL  SW  ON  VIA  S40.13 — >EXIT 

0368 

REF 

LAST 

766 

36,  3 661 

77525 

0 

C ADR 

SEP VEXIT 

03681 

REF 

35 

LAST 

76  8 

36, 3662 

0 4674 

0 

TC 

I BNK  CALL 

03  68  2 

REF 

3 

LAST 

3-76 

36, 3663 

40 1 6 5 

1 

CADR 

STOPRATE 

0369 

REF 

64 

LAST 

768 

36,3664 

0 5516 

0 

TC 

DOWN  FLAG 

TURN  OFF  IMPULSW 

0370  REF  -Z  LAST  766  36,3665  00044  1 ADRES  .IMPULSW 


0371 

037? 

REF 

REF 

43 

4 

LAST 
L AS  T 

753 

749 

36. 3666 

36.3667 

0 5504 
00161 

0 

1 

TC 

ADRES 

UPFL AG 
I DLE  FLAG 

TURN  OFF 

DVMON 

0373 

36,3670 

0 0004 

0 

INHINT 

0374 

36, 3671 

0 00  06 

1 

EXTEND. 

0375 

REF 

35 

LAST 

752 

36, 3672 

3 1440 

0 

DC  A 

T IG 

0376 

REF 

280 

LAST 

76  5 

36,3673 

52  155 

1 

DXCH 

M P AC 

0377 

36,3674 

0 0006 

1 

EXTEND 

0378 

REF 

23 

LAST 

767 

36, 3675 

4 0025 

1 

DCS 

TIME2 

0379 

REF 

281 

LAST 

769 

36, 3676 

20  155 

1 

DAS 

MP4C 

0380 

RELF 

8 

J AST 

7 5 1 

36, 3677 

0 72  56 

1 

TC 

TP AC  REE 

0381 

REF 

282 

LAST 

769 

36,3700 

30  155 

0 

CAE 

MPAC  +1 

0382 

REF 

2 

LAST 

766 

36,3701 

0 3710 

1 

TC 

GETDT 

0391 

REF 

2 1 

1 AST 

766 

36 1 3 70? 

0 5173 

L 

TC 

TWIDDLE 

0392 

REF 

3 

LAST 

766 

36,3703 

03542 

i 

ADRES 

ENGCFTSK 

0393 

REF 

10 

LAST 

76  8 

36, 3704 

0 5327 

i 

TC 

2 PHSCHNG 

0394 

36,3705 

401  14 

L 

. OCT 

4011  4 

ENGOFTSK 

( ENGINOFF) 

0395 

36,3706 

00035 

i 

OCT 

0003  5 

SERVICER- 

-REREAD4C 

0396  REF  124  LAST  765  36, 3Y07  1 5155  1 TCF  ENOOFJCB 


0397 

0398 

REF 

232 

LAST 

769 

36.3710 

36.3711  

10  000 
1 3714 

0 

1 

GETDT 

CCS 

TCF 

A 

+ 3 

0399 

36,3712 

1 3714 

1 

TCF 

+ 2 

0400 

REF 

139 

LAST 

762 

36,3713 

3 4755 

1 

CAF 

ZERO 

0401 

REF 

84 

LAST 

733 

36,3714 

6 47  53 

J 

AD 

DNF 

0402 

REF 

1C7 

LAST 

758 

36, 3715 

56  001 

0 

XCH 

L 

0403 

REF 

140 

LAST 

769 

36,3716 

3 4755 

1 

CAF 

ZERO 

0404 

REF 

8- 

LAST 

766 

36,3717 

53' 515 

JL 

D X_C  H 

TGO 

0405 

REF 

9 

LAST 

769 

36, 3720 

3 1515 

1 

CA 

TGC)  +1 

0406 

REF 

193 

LAST 

758 

36,3721 

0 0002 

0 

TC 

0 

0407 

REF 

29 

LAST 

67  1 

36, 3722 

0 5567 

0 

P40ALM 

TC_ 

ALAR  M 

ASTRONAUT  DOESN’T  AGREE  WITH  STAGE 

0408 

36, 3723 

01706 

1 

OCT 

01706 

VERIFY  DISCRETE.  HE  HAS  SELECTED  P40  , 

0409 

REF 

4 

LAST 

67  1 

36,3724 

3 5006 

1 

CAF 

V05N09 

BUT  THE  DAP  THINKS  THAT  THE  DESCENT  UNIT 

04  10- 

REF- 

210 

LAST 

766 

36,3725 

0 4616 

1 

TC  _ 

B AM  K CALL 

IS  GONE  — A SITUATION  THAT  WOULD  MAKE  A 

0411 

REF 

20 

LAST 

73  8 

36, 3726 

20351 

1 

CADR 

GOF  L ASH 

DPS  BURN  EXCEEDINGLY  DIFFICULT. 
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0412 

REF 

32  LAST  766 

36,3727 

1 6001 

1 

TCF 

GOTOPOOH 

V 34E 

TERMINATE 

0413 

36,3730 

1 3724 

1 

TCF 

-4 

V33E 

PROCEED  (ILLEGAL) 

36.3731 

1 3724 

1 

TCF 

-5 

RECYCLE  (ILLEGAL) 

R0424 

«***$$******>{=*#**$*****«****************************** 

* * * * £ % * * * * * * * * =5=  * * * 

0425 

36,3732 

00000 

1 

SEC15DP 

OCT 

00000 

DON'T 

SEPARAT  E 

0426 

36,3733 

02734 

0 

SEC  15 

DEC 

1500 

DON'T 

SEPARATE 

36 i 3734 

00000 

1 

S EC  30  DP 

2DEC 

3000 

0427 

36,3735 

05670 

0 

0428 

36,3736 

00000 

1 

SEC45DP 

OCT 

00000 

DON'T 

MOVE  FROM  JUST  BEFORE 

SEC45 

36,  3 737 

10624 

0 

SEC  45 

DEC 

4500 

0430 

36, 3740 

00000 

1 

5SECDP 

OCT 

00000 

DON'T 

MOVE  FROM  JUST  BEFORE 

5 SEC 

0431 

36, 3741 

00764 

1 

5SEC 

DEC 

500 

36, 3 74? 

05050 

1 

26SECS 

DEC 

? 600 

0437 

36, 3743 

04050 

0 

V16N40 

VN 

1 640 

0438 

36, 3744 

04125 

0 

V16N853 

VN 

1 685 

04-^Q 

36, 3745 

04123 

0 

V1683 

VN 

1 683 

0440 

REF 

15  LAST  764 

4777 

SEC01 

1 SEC 

0441 

REF 

2 LAST  756 

36,2054 

ACAON85 

P4I T ABLE  +2 

0442 

REF 

7 LAST  766 

E 7 , 1620 

E8ANK 

= DELV IMU 

0443 

REF 

1 

36, 3746 

03462 

1 

AC  ADN  83 

2C  ADR 

CALC  N83 

0443 

RFF 

1 

36.3747 

74067 

0 

R0444 

❖ * ##  #£ 

* Jjc  £ * * #:Jc  #######£  # 

* 
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P0445  PROGRAM  DESCRIPTION  S40.1  0ATE15N0V66 

R0446  MOD  NC2  LOG  SECTION  P40-P47 

R0447  MCC  BY  ZELDIN  AND  ADAPTED  BY  TALAYCO 
R0448  FUNCTIONAL  DESCRIPTION 

R0449  COMPUTE  INITIAL  THRUST  DI RECT ION ( UT ) AND  INITIAL  VALUE  OF  VG 

R0450  VECTOR! VGTIG). 

R0451  CALLING  SEQUENCE 
R0452  L CALL 

R0453  L + l S 40. 1 

R0454  NORMAL  EXIT  MODE 

R0455  AT  L+2  OF  CALLING  SEQUENCE  (GOTO  L + 2)  NORMAL  RETURN  OR 

R0456  ERROR  RETURN  IF  NOSOFLAG  =1 


R0457  SUBROUTINES  CALLED 

P0458  LEMPREC 

R0459  INITVEL 

R0460  C ALCGRAV 

R0461  MIDGIM 

R 0 4 6 2 ALARM  OR  ABORT  EXIT  MODES 

R0463  L+2  OF  CALLING  S EQU E NCE , UNSOL VAB LE  CONIC  IF  NOSOFLAG=1 

R0464  ERASABLE  I N I T I AL I Z AT  I ON  R EQU I RE D 


DP  B16KGM 


R0466 

XCELVFLG 

1 =DE LT A-V  MANEUVER, 0=ATMPT  STEFR 

R0467 

F 

THRUST  FOR  ENGINE  USED 

R0468 

IF  nFI  TA-V  MANFUVFR 

R0469 

DEL  VS  IN 

SPECIFIED  DELTA-V  REQUIRED  IN 

R0470 

INERTIAL  COORDS.  OF  ACTIVE  VEHICLE 

R0471 

AT  TIME  OF  IGNITION 

VECTOR 

B7M/CS 

R0472 

DEL VSAB 

MAG.  OF  DELVSIN 

DP 

B7M/CS 

R0473 

RTIG 

POSITION  AT  TIME  OF  IGNITION 

VECTOR 

B29M 

R0474 

VTI  G 

VELOCITY  AT  TIME  OF  IGNITION 

VECTOR 

B7M/CS 

R0475 

IF  AIMPT  STEER 

R0476 

TIG 

TIME  OF  IGNITION 

DP 

B2  8CS 

R0477 

RTARG 

POSITION  TARGET  TIME 

VECTOR 

B29M 

R0478 

CSTEER 

C FOR  STEER  LAW 

DP 

B2 

R0479 

DLTARG 

TARGET  TIME-IGNITION  TIME 

DP 

B28CS 

R 0480 

OUTPUT 

R0481 

UT 

DESIRED  THRUST  DIRECTION 

VFCT  . 

B2M/ICS.CS) 

R0482 

VGTIG 

INITIAL  VALUE  OF  VELOCITY 

R0483 

TO  BE  GAINED  (INERT.  COORD.) 

VECTOR 

B7M/CS 

R0484 

DELVLVC 

VGTIG  IN  LOC.  VERT.  COORDS. 

B7M/CS 

R0485 

BDT  V REQUIRED  AT  TIG  -V  REQUIRED  AT  (TIG- 

2 SEC  ) 

R04  86 

-GDT  FOR 

S 40 . 1 3 

VECT  B7M/CS 

R0487 

RTIG 

CALC  IN  S40.1BIAIMPT)  FOR  S40.2,3 

VECTOR 

B29M 

R0488 

POSITION  AT  TIME  OF  IGNITION 

R 04  89 

DEBRIS  QTEMP1 

R0490 

MP AC »QPR  ET 

R0491 

PUSHLI ST 

0492 

14,2347  BANK 

14 

0493 

REF  4 LAST  757 

27,2000  SFTLOC  P40S1 

0494 

27,2271  BANK 
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0495 

REF 

1 

COUNT  * 

$ $/ S40 . 1 

0496 

27, 2271 

44014 

1 

S40.1  CLEAR 

STO 

REF 

?7t  2 272 

03264 

1 

F IRSTFLG 

0498 

REF 

3 

LAST 

627 

27, 2273 

03630 

1 

QTEMP 

0499 

27, 2274 

776  14 

1 

DEL  VTE  ST  BOFF 

LAST 

76  8 

27t  2276 

01347 

0 

XDEL  VFLG 

0501 

REF 

1 

27, 2276 

56363 

1 

S40 . IB 

0502 

27,2277 

77201 

1 

CALCTHET  SETPD 

V LOAD 

2 7,  2 300 

00001 

0 

0 

0504 

RFF 

6 

LAST 

66  2 

27, 2301 

03646 

0 

VTIG 

0505 

REF 

8 

LAST 

701 

27, 2302 

02335 

0 

STORE 

V I N I T 

Qc;  QA, 

27, 2 303 

53435 

0 

VXV 

UNIT 

0507 

REF 

8 

LAST 

663 

27, 2304 

03640 

0 

RTIG 

0508 

REF 

2 

LAST 

15  8 

27, 2305 

27677 

1 

STOVL 

UT 

0509 

REF 

9 

1 AST 

77  2 

27,2  306 

03640 

0 

RTIG 

0510 

REF 

9 

LAST 

70  1 

27,2307 

02327 

0 

STORE 

RINI  T 

0511 

27, 2310 

65236 

0 

VSQ 

PDDL 

051  2 

27,231 1 

00045 

0 

36D 

0513 

27, 2312 

56205 

0 

DMP 

DDV 

0514 

REF 

1 

27, 2313 

16435 

1 

THET ACON 

0515 

27, 2314 

41205 

0 

DMP 

DMP 

0516 

REF 

4 

LAST 

655 

27, 2315 

03662 

0 

DEL  V SAB 

0517 

REF 

1 

27,2316 

01245 

0 

WE IGHT/G 

0518 

27,2  31  7 

77671 

1 

DDV 

0519 

REF 

6 

LAST 

765 

27,2320 

03734 

1 

F 

0520 

27,2321 

24017 

1 

STOVL 

14D 

0521 

REF 

14 

LAST 

76  6 

27, 2 322 

03654 

o 

DELV SIN 

0522 

27,2323 

74241 

0 

DOT 

VXSC 

0523 

R EE 

3 

1 AST 

77  2 

27 , 2 324 

036  77 

1 

UT 

0524 

REF 

4 

LAST 

772 

27,  2325 

03677 

1 

UT 

0525 

27,2326 

41552 

0 

VSL  2 

PUSH 

0526 

27,2327 

65245 

1 

BVSU 

PDDL 

0527 

RFF 

15 

LAST 

772 

27,2330 

03654 

0 

DELVSIN 

0528 

27,2331 

00017 

1 

14D 

05  29 

27,2332 

63356 

1 

SIN 

PDVL 

0530 

27,2333 

00007 

0 

6 D 

0531 

27,2334 

53435 

0 

VXV 

UNI  T 

0532 

REF 

5 

LAST 

772 

27, 2335 

03677 

1 

UT 

0533 

27, 2336 

45561 

1 

VXSC 

STADR 

0534 

REF 

5 

LAST 

76  3 

27,2337 

50072 

1 

STOVL 

VGT  I G 

0535 

27,2340 

652  56 

0 

UNI  T 

PDDL 

0536 

27, 2341 

00017 

1 

l 4D 

0537 

27,2342 

74346 

0 

cos 

VXSC 

0538 

27,  2 343 

74255 

0 

VAD 

VXSC 

0539 

REF 

6 

LAST 

772 

27,2344 

03705 

0 

VGTIG 

0540 

27,2345 

00045 

0 

36D 

0541 

27,2346 

53352 

0 

VSL? 

VAD 

0542 

27,2347 

77626 

0 

STADR 

0543 

REF 

7 

LAST 

77  2 

27,2350 

74072 

1 

STORE 

VGTIG 
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UP  IN  UT 


( DELTAV.UP )UP  SCALED  AT  21+7)  P.D.L.  0 
DELTA  VP  S CAL  FD  AT  2(+7>  P.D.L.  6 


UNIT! VPXUP ) S IN1THETAT/2 ) IN  VGTIG. 
UNIT (DELTA  VP)  IN  P.D.L.  6 


VG  IGNITION  SCALED  AT  2(+7)M/CS 
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0544 

27, 2351 

77656 

1 

UNIT 

0545 

REF 

6 

LAST 

772 

27, 2352 

276  77 

1 

STOVL 

JT 

THRUST  DIRECTION  SCALED  AT  21+1) 

0 ^4  A 

R FF 

8 

LAST 

77  2 

27, 2353 

03705 

0 

VGTIG 

0547 

27, 2354 

45006 

0 

PUSH 

CALL 

0548 

REF 

3 

LAST 

70  1 

27, 2355 

20021 

0 

GET. LVC 

VGTIG  IN  LV  COOR  AT  2(+7)M/CS  IN  OELVLVC 

0549 

27,2356 

77775 

1 

VLOAD 

0550 

REF 

11 

LAST 

686 

27,2357 

06424 

0 

ZEPCVECS 

0551 

REF 

3 

LAST 

159 

27, 2 360 

03671 

1 

STORE 

BDT 

0552 

27,2361 

77650 

1 

GOTO 

0553 

REF 

4 

LAST 

772 

27,2362 

03630 

1 

OTEMP 

0554 

27,2363 

77745 

1 

S40 . 18 

DLOAO 

0555 

REF 

36 

LAST 

769 

27,2364 

03440 

1 

TIG 

0556 

REF 

46 

LAST 

742 

27,2365 

00041 

1 

STORE 

TDEC  1 

0557 

27, 2366 

77621 

1 

BOSU 

0558 

REF 

9 

L AST 

68  4 

27,  2 367 

03627 

1 

TPASS4 

0559 

REF 

7 

LAST 

69  8 

27,2370 

37450 

1 

STCALL 

DELLT4 

INTERCEPT  TIME  - TIG. 

0560 

REF 

8 

LAST 

738 

27,2371 

27057 

0 

LEMPREC 

056] 

27,2372 

40375 

l 

VFOAD 

SET  P D 

LOAD  STATE  VECTOR  AT  TIG  FOR  INITVEL. 

0562 

REF 

27 

LAST 

734 

27,2373 

00001 

0 

R ATT 

0563 

27, 2374 

00001 

0 

0 

0564 

REF 

10 

LAST 

772 

27,2375 

03640 

0 

STORE 

RTIG 

0565 

REF 

10 

LAST 

772 

27,2376 

26327 

0 

STOVL 

R INI  T 

0566 

REF 

21 

LAST 

734 

27,2377 

00007 

0 

VATT 

05665 

REF 

7 

LAST 

77  2 

27,2400 

03646 

0 

STORE 

VT  IG 

0567 

REF 

9 

LAST 

772 

27,2401 

02335 

0 

STORE 

V I N I T 

0568 

27, 2402 

65345 

0 

DLOAD 

PEDL 

NUMIT  = 0 

0569 

REF 

12 

LAST 

773 

27,2403 

06424 

0 

ZEPOVECS 

0570 

REF 

1 

27, 2404 

16431 

0 

FPS1 

0571 

27,2405 

43214 

1 

BOFF 

DAO 

05  72 

REF 

— a 

LAST 

696 

2 7,-2406  - 

03  745 

1 

NOR  M SW 

0573 

REF 

i 

27, 2407 

56411 

0 

SMAL  LEPS 

0574 

REF 

l 

27,2410 

16433 

1 

E PS  2 

EPS  I L0N4  = 10  DEGREES  OR  45  OEGRFES. 

0575 

27,2411 

66006 

1 

SMALLEPS 

PUSH 

S X A , 1 

0576 

REF 

n 

LAST 

707 

27,2412 

03375 

0 

RTX1 

0577 

27,  2413 

45134 

0 

SX  A , 2 

CALL 

0578 

REF 

4 3 

LAST 

708 

27, 2414 

033  76 

Q_ 

R T X 2 

0579 

REF 

3 

LAST 

68  2 

27,2415 

22000 

1 

I NT  T VEL 

0580 

27,2416 

41575 

0 

VLOAD 

PUSH 

0581 

REF  — 

14 

LAST 

735 

27,2417 

03366 

1 

D EL  V EFT3 

VGTIG  = VR  - VN. 

0582 

REF 

9 

LAST 

773 

27, 2420 

03705 

0 

STORE 

VGTIG 

0583 

27,2421 

77656 

1 

UNIT 

UT  = UNIT  (VGTIG) 

05  84 

REF 

7 

LAST 

773 

27, 2422 

17677 

1 

STOOL 

UT 

0585 

27, 2423 

00045 

0 

3 60 

0586 

REF 

4 

LAST 

663 

27,2424 

37662 

1 

STCALL 

VGDI SP 

CONVERT  VGTIG  (IN  PUSHLIST  ) TO  LOCAL 

0587 

REF 

4 

LAST 

77  3 

27,2425 

20021 

0 

GET. LVC 

VERTICAL  COORDINATES. 

0588 

27,2426 

77650 

1 

GOTO 

05  89 

REF 

5 

LAST 

773 

27,2427 

03630 

1 

OTEMP 

0590 

27,2430 

00707 

1 

EPS1 

2DEC* 

2 .777777778 

E-2*  10  DEGREES  AT  1 REVOLUTION. 

0590 

27,2431 

03434 

1 
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27.2432  03070  0 EPS2  2DEC*  9.722222222  E-2*  35  DEGREES  AT  l REVOLUTION. 

27.2433  34344  0 

27,24-34  00024  1 THETACON  2DEC 

27,2435  13714  I 


31830989  B— 8 
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L P40-P47  USER'S  PAGE  NO.  17  E7  S3 

P0593  SUBROLTINE  NAME:  S40.2,3  MOD.  NO.  3 DATE:  APRIL  4,  1967 

R0594  MODIFICATION  BY:  JONATHAN  D.  ADDEL STON  (ADAMS  ASSOCIATES) 

R0595  MOC.  NO.  4:  JULY  18,  1967:  PETER  ADLER  (MIT/IL) 


R0596  MOC.  NO.  5:  OCTOBER  18,  1967:  PETER  ADLER  (MIT/IL) 

R0597  ORIGINALLY  BY:  SAYOEAN  ZELDIN  (MIT  INSTRUMENTATION  LAB)  AND  RICHARD  TALAYCO  (SYSTEM  DEVELOPMENT  CORP) 

R0599  S40 . 2 , 3 COMPUTES  "POINTVSM"  WHICH  IS  THE  HALF-UNIT  DESIRFD  THRUST  VECTOR  IN  STABLE-MEMBER  COORDINATES  FROM  "UT» 

R0601  WHICH  IS  THE  SAME  VECTOR  IN  REFERENCE  COORDINATES.  IT  DETERMINES  THE  CORRECT  VALUES  FOP  "SCAXIS"  USING  THE  +X 

R0603  AXIS  FOR  DPS,  APS,  ANO  RCS  BURNS.  THE  "WINGS-LEVEL  HEADS-UP"  LM  ORIENTATION  IS  THEN  COMPUTED  IN  REFERENCE 

R0605  COORDINATES.  THESE  VECTORS  ALSO  DEFINE  THE  "PREFERRED  IMU  ORIENTATION".  UPON  COMPLETION  OF  THIS  CALCULATION, 
R0607  THE  "PREFERRED  ATTITUDE-  COMPUTED"  FLAG  IS  SET  ( PFRATFL  G ) . 


R0608  CALLING  SEQUENCE: 

A0609  L CALL  INTERPRETIVE  CALL. 

A0610  L +1  S4C.2.3 

AQ611  L + 2 (RETURN)  GIMBAL  ANGLE  VECTOR  IN  MPAC. 


R0612  SUBROUTINES  CALLED:  -NONE. 


R0613  NCRMAL  RETURN:  L +2  (SEE  CALLING  SEQUENCE  ABOVE). 


R0614 

ALARM/ABORT  MODES:  NONE. 

1 ^ 

INPUT:  

R0616 
R 06  1 8 

1.  REFS  M MAT 
2 • UT 

MATRIX  FROM  REFERENCE  TO  ST  A BLF-MEMBER  COORDINATES  SCALED  AT  2. 
HALF-UNIT  DESIRED  THRUST  DIRECTION. 

P06  19 

3.  RTIG 

POSITION  AT  TIG  IN  REFERENCE  COORDINATES. 

R 06  21 — 

01 TPU  T : 

R0622 

R0623 

1.  : XSCREF  : 
: YSCREF  : 

WINGS-LEVEL  HEADS-UP  LM  ORIENTATION 
IN  REFERENCE  COORDINATES 

R0624 
R0625 
R 0 6 2 7 

: ZSCREF  : 

2.  POINTVSM 

3.  SC AX  LS  - 

(PREFERRED  IMU  ORIENTATION)  . 

DESIRED  THRUST  DIRECTION  IN  STABLE-MEMBER  COORDINATES. 
HALF-UNIT  OF  AXIS  TO  ALIGN  IN  STABLE-MEMBER  COORDINATES. 

R0629 

4.  PFRATFLG 

INTERPRETIVE  FLAG.  ON:  PREFERRED  ORIENTATION  COMPUTED;  OFF:  NOT  COMPUTED. 

R0631 


DEBRIS 


NONE 


GAP 
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0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

06431 

06432 

06433 

06434 

0644 

0645 

0646 

0647 

0648 

0649 

0650 
0650  1 

06502 

06503 

06504 

06505 

06506 


P40-P47 


REF 

REF 

1 

g 

LAST 

77  3 

27.2436 

27.2437 

77775 

03677 

27,2440 

76521 

REF 

20 

LAST 

74  2 

27,2441 

01734 

R E F 

5 

LAST 

52  9 

27,2442 

27767 

REF 

6 

LAST 

590 

27, 2443 

06422 

REF 

20 

LAST 

529 

27,2444 

27761 

REF 

9 

LAST 

776 

27,2445 

03677 

REF 

1 

27,2446 

03605 

27 , 2 447 

53435 

REF 

11 

LAST 

773 

27, 2450 

03640 

27,2451 

46125 

27,2452 

00045 

REF 

1 

27,2453 

56464 

27,2454 

45575 

R EF 

27,2455- 

74164 

27, 2456 

76435 

REF 

2 

LAST 

776 

27,2457 

03605 

27,2  460 

77676 

REF 

1 

27, 2461 

03621 

27,2  46  2 

43414 

REF 

1 

27, 2463 

01073 

27, 2464 

47375 

RFF 

3 

LAST 

T7  6 

27, 2465 

03605 

REF 

8 

LAST 

773 

27, 2466 

03646 

27,2467 

41456 

27,2470 

77650 

REF 


27,2471  56454  1 


S40 .2, 


PLUSX 


STORY 


FIXY 


1 
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COUNT  * $ $/ S 40. 2 

VLOAO  UT:  DESIRED  THRUST  DIRECTION  (HALF-UNIT) 

JT  (PUT  INTO  TOP  OF  PUSH-DOWN-LIST.) 

MX V VSL1  TRANSFORM  THRUST  DIRECTION  TO  STABLE- 

REFSMMAT  MEMBER  FROM  REFERENCE  COORDS  (RESCALE). 

STOVL  P 01 N TVSM  SAVE  FOR  "VECPOINT"  ROUTINE  ( l FMMANIM  . 

UlITX  SCAXIS  SET  Tn  + X,  FOR  D40  AND  P42  AND 

STOVL  SCAXIS  FOR  P41  IF  RCS  NOT  -X, +Y,-Y, *Z, -Z. 


UT 

STOPF  X SCR  EF 
VXV  UNIT 

RTIG 
POOL  BHIZ 
36D 
FIXY 

VLOAD  STADR 
STORE  YSCREF 
VXV  VSL1 

XSCP  FF 

VCOMP 

STORE  ZSCPFF 


ASSUME  +X  BURN  ALWAYS,  EVEN  FOR  RCS. 

X SCR  EF  = UT  (DESIRED  THRUST  DIRECTION.) 
RTIG  = POSITION  AT  T I M E-OF-I GNI T I ON. 
YSCREF  = UNITPJT  X RTIG) 

TEST  MAGNITUDE  OF  UT  X RTIG 
IF  SMALL,  USE  UT  X VT I G AS  YSC 


COMPUTE  (YSCRFF  X XSCREF),BUT  FOR  A 
RIGHT  HANDED  SYSTEM,  NEED  (X  CROSS  Y). 
ZSCREF  = - (YSCREF  X XSCREF) 

= + (XSCREF  X YSCREF) 


SET  RVQ 

PFPATFLG 

VLOAD  VXV  IN  THIS  CASE, 

XSCREF  YSCREF  = UNITIXSCREF  X VTIG) 

VTIG 
UNIT  PUSH 
GOTO 

STORY 
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tL 

P0651 

R0652 

R0653 

R0654 

R0656 

R0658 

R0659 

R 0660 
R0661 
R0662 

R0663 

R0664 

R0666 

R0667 

R0668 

R0669 

R0670 

R0671 

R0672 

R0673 

R0674 

R0676 

R0677 

R0678 

R0679 

R0680 

R0681 

R0682 

R0683 

R06  84 

R0685 
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SUBROUTINE  S40.8 

MOCIFIED  APRIL  3,  1968  BY  PETER  ADLER  MIT/IL 
DESCRIPTION 

540.8  UPDATES  THE  VE LOC I TY -T0-8E-G A I NED  VECTOR,  VG,  (AND  FOR  LAMBERT  TARGETTED  9URNS  ALSO  EXTRAPOLATES  VG 
USING  THE  BDT  VECTOR)  COMPUTES  THE  TIME  FOR  ISSUING  THE  ENGINE  OFF  COMMAND,  TGO,  AND  CALLS  THE  ROUTINE 
"FINOCDUW",  WHICH  GENERATES  STEERING  COMMANDS  FOR  THE  DAP. 

CALLING  SECUENCE 


L—  1 CALL 

L S40.8 

L+l  INTERPRETIVE  RETURN 


ALARM 


IF  VG  . DELVREF  IS  NEGATIVE  1 VG  AND  DELVREF  OVER  90  DEGREES  APART),  BYPASS  TGO  AND  STEERING  COMPUTATIONS 
AND  SET  ALARM  1407.  RETURN  TO  CALLER  NORMALLY. 


INPUT  AND  INITIALIZATION 

VGPREV  R EFERENG-i — 2(7)  M/CS 

DELVREF  REFERENCE  2(7)  M/CS 

BDT  REFERENCE  2(7)  M/CS 

TCECAY  TAIL-OFF  TIME  2(28)  CS 

XDELVFLG  1 = EXTERNAL  DELTA-V;  0 = LAMBERT  IAIMPOINT) 

STEERSW  1 = DO  STEERING  AND  TGO  COMPUTATIONS;  0 = VG  UPDATE  ONLY 

FIRST  ELG  1 = GONE  TO  I AMBER T AT  I FAST  ONCF:  0 = HAVEN'T  GONE  TO  LAMBERT  YET 

NOTE:  VGTIG  EQUALS  VGPREV 


OUTPUT 

STEERSW  SEE  INPUT 

IMPULSW  1 = ENGINE  OFF  IN  TGO  CENT  I SECONDS ; 0 = CONTINUE  BURN 

TGC  TIME  TO  CUT-OFF  2(28)  CS 

SEE  FINOCDUW  FOR  STEERING  OUTPUTS. 

SUBROUTINE  CALLED 


F INDCDUW 
DEBRIS 

NPACS  , PUSHL  1ST 


06  86 


REF 


1 


COUNT  * SJ/S40.8 


GAP 
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0687 

REF 

6 

LAST 

768 

E6, 1420 

EBANK= 

0 ME  GAO 

0688 

27, 2472 

431  75 

0 

S40 . 8 

VLOAD 

BON 

OA  RQ 

REF 

6 

1 ART 

76  4 

27, 2473 

03705 

0 

VC P REV 

0690 

REF 

8 

LAST 

772 

27, 2474 

01307 

1 

XDEL VFLG 

0691 

REF 

1 

27,2475 

56502 

0 

VGNFW 

? 7 , 7 476 

53214 

0 

BOFF 

VAD 

0693 

REF 

2 

LAST 

772 

27,2477 

03344 

1 

FIRS  TFLG 

0694 

REF 

2 

LAST 

778 

27,2500 

56502 

0 

VGNEW 

REF 

4 

LAST 

77  R 

27,  2 501 

03671 

1 

BDT 

0696 

27,  2502 

77651 

0 

VGNEW 

VSU 

0697 

REF 

3 

LAST 

765 

27,2503 

03525 

0 

DEI  VREF 

0^Q  R 

R FF 

3 

1 AST 

76  8 

27*  2 504 

03714 

0 

VGA  I N* 

STORE.. 

VG 

VELOCITY  TO  BE  GAINED  SCALED  AT  I71M/CS 

0699 

27,  2505 

765  21 

0 

MX  V 

VSL1 

0700 

REF 

21 

LAST 

776 

27,2506 

01734 

0 

REFSMMAT 

0701 

REF 

3 

LAST 

215 

2J, 2 507 

03252 

1 

STORE 

UNFC /2 

0702 

27,2510 

77214 

0 

BON 

VLOAD 

0703 

REF 

3 

LAST 

778 

27,  2511 

03304 

0 

FIRS  TFLG 

0704 

REF 

1 

27,2512 

56515 

0 

BDTOK 

0705 

REF 

6 

LAST 

766 

27,2513 

06424 

0 

H 1 6 Z EROS 

0706 

REF 

5 

LAST 

778 

27, 2514 

03671 

1 

STORE 

BDT 

07  0 7 

27, 2515 

51575 

1 

BDTOK. 

VLOAD 

ABVA  L 

0708 

REF 

4 

LAST 

778 

27,2516 

03714 

0 

VG 

0709 

REF 

5 

LAST 

773 

27,2517 

03662 

0 

STORE 

VGDI SP 

07  1 0 

27,  2 520 

77201 

1 

TGDCALC 

SETPD 

VLOAD 

0711 

27,2521 

00001 

0 

0 

0712 

REF 

5 

LAST 

778 

27,2  522 

03714 

0 

VG 

071^ 

R FF 

7 

1 AST 

77  8 

27,2523 

27705 

o 

STOVL 

VGPP  EV 

0714 

REF 

4 

LAST 

778 

27,2524 

03525 

0 

DEL  V REF 

0715 

27,2525 

57414 

1 

BOFF 

VCOMP 

07-1-6 — 

REF 

1— 

27 ,2  526 

01344 

o 

STEERSW 

0717 

REF 

5 

LAST 

719 

27,2  527 

00052 

0 

OPRET 

0718 

27, 2530 

77656 

1 

UNIT 

0719 

27, 2531 

41441 

0 

DOT 

PUSH 

0720 

REF 

6 

LAST 

778 

27,2532 

03714 

0 

VG 

0721 

27,2533 

562  44 

0 

BPL 

DDV 

07  22 — 

REF 

— 

27,2534 

56562 

0 

ALARMIT 

DELV  IS  MORF  THAN  90  DEGREES  F°OM  VG. 

0723 

REF 

2 

LAST 

76  1 

27, 2535 

03742 

0 

VEX 

0724 

27,2536 

41215 

1 

OAD 

DMP 

0725 

REF 

12 

LAST 

67  8 

27,2537 

06422 

0 

DPHA  LF 

0726 

27,2540 

56261 

1 

SR 

DDV 

0727 

27,2541 

20613 

1 

10D 

0728 

27, 2 542 

00045 

0 

36D 

0729 

27,2543 

43205 

1 

DMP 

DAD 

0730 

REF 

1 

27,2544 

16571 

0 

-FOURDT 

0731 

REF 

1 

27, 2 545 

03740 

1 

TDFC  AY 

0732 

REF 

10 

LAST 

769 

27, 2546 

03515 

0 

STORE 

T GO 

0733 

27,2547 

77615 

0 

DAD 

0734 

REF 

— 6— 

LAST 

715 

27,2550 

01235 

1 

P IPT IME 

0735 

REF 

37 

LAST 

773 

27, 2551 

17440 

1 

STODL 

TIG 

0736 

REF 

11 

LAST 

778 

27,2552 

03515 

0 

TGO 
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0737 

0738 

REF 

REF 

1 

1 

27,  2 553 
27,2554 
27,  2 555 

51025 

16573 

61062 

1 

1 

1 

osu 

B PL 

FOUR  SECS  400  CS 

FINDCDUW  -2 

0740 

27, 2556 

43014 

0 

SET 

CLPGO 

0741 

REF 

3 

LAST 

769 

27,2557 

01066 

0 

I MPULSW 

074? 

REF 

2 

LAST 

77  8 

27,2560 

01224 

1 

STEF.RSJW 

0743 

REF 

6 

LAST 

778 

27, 2561 

00052 

0 

QPPET 

0744 
0 745 
0746 

REF 

30 

LAST 

76  9 

27.2562 

27.2563 
27,2-564 

77776 
0 5567 
01407 

1 

0 

0 

ALARMIT 

EX  IT 

TC 

OCT 

ALARM 

01407 

0747 

REF 

1C8 

LAST 

76  8 

27, 2565 

0 6036 

1 

TC 

I NT P RET 

0748 

27, 2566 

77650 

1 

GOTO 

SKIP  TGO  COMPUTATION  BUT  CALL  FINDCDUW. 

0748  S 

REF 

2 

LAST 

77  9 

27,2  567 

61062 

1 

FIND CDUW  -2 

FINDCDUW  WILL 

EXIT  TO  UPDATFVG  +3. 

0749 

27,  2570 

77715 

1 

-FOURDT 

2DEC 

-800  R-l 8 

-4  (200  CS.) 

B (-18) 

0749 

27,  2 571 

77777 

0 

0751 

27,2572 

00000 

1 

FOURSECS 

20EC 

400 

400  CS  SCALED 

AT  2 ( +2  8 ) CS 

0751 

27,2573 

00620 

0 

0751  5 

REF 

3 

LAST 

778 

E7 , 1741 

2VEXHUST 

= 

VFX 
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P0752 
R0753 
R0754 
R0755 
R 0756 
R075  7 
R0758 
R0759 
R 0 7 6 0 
R0761 
R0762 
R0763 
R0764 
R0765 
R 0766 
R0767 
R0768 
R0769 
R0770 
R0771 
R0772 
R0773 
R0774 
R0775 
R0776 
R0777 


NAME  S40.13  - TIMEBURN 

FUNCTION  (1)  DETERMINE  WHETHER  A GIVEN  COMBINATION  OF  VELOCITY  TO 

BE  GAINED  AND  ENGINE  CHOICE  RESULT  IN  A BURN  TIME 
SUFFICIENT  TO  ALLOW  STEERING  AT  THE  VEHICLE  DURING  THE 
BURN 

(2)  -THE  MAGNITUDE  OF  THE  RESULTING  BURN  TLME  — IF  IT 
IS  SHORT  — AND  THE  ASSOCIATED  TIME  OF  THE  ENGINE  OFF 
S IGNAL 

CALLING  SEQUENCE-  VIA  FINDVAC  AS  A NEW  JOB 

INPUT  VGTIG  VELOCITY  TO  BE  GAINED  VECTOR  (METERS/CS)  AT  + 7 

WEIGHT/G  MASS  OF  VEHICLE  IN  KGM  AT  +16 
F APS  ENGINE  THRUST  IN  M. NEWTONS  AT  +7 
AND  ALSO  FOR  RCS  ENGINE 

M DOT  RATE  OF  DECREASE  OF  VEHICLE  MASS  DURING  ENGINE 
BURN  IN  KILOGRAMS/CS  JLI  +3  . THIS  SCALING-  MAY 
REQUIRE  MODIFICATION  FOR  SATURN  BURNS. 

ENG  IF  LA  G SWITCH  TO  DECIDE  WHETHER  APS  OR  DPS  ENGINE  IS  USED 

=0 DPS — 

= 1 APS 

OUTPUT  IMPULSW  ZERO  FOR  STEERING 

ONE  FOR  ATTITUDE  HOLD 
NOTHROTL  ZFRC  FOR  THROTTLING 

ONE  TO  INHIBIT  THROTTLING 
T GO  TIME  TO  BURN  IN  CS 

THE  QUANTITY  M. NEWTON  = 10000  NEWTONS  WILL  BE  USFD  TO  FXPRESS 
FORCE 


0778 

0779 

REF 

REF 

12 

— 1— 

LAST 

778 

E 7 , 1514 

EBANK= 
COUNT  * 

T GO 

$ $74.0. 13 

0780 

REE 

1C9 

LAST 

779 

27, 2574 

0 6036 

1 S40.13 

TC 

I NTPPET 

0781 

27, 2575 

43001 

1 

SETPD 

CLEAR 

0782 

27,2576 

00001 

0 

OOD  _ 

0783 

REF 

4 

LAST 

779 

27,2577 

01266 

1 

I MPULSW 

ASSUME  NO  STEERING  UNTIL  FOUND  OTHERWISE 

0784 

27, 2600 

51575 

1 

VLOAD 

ABVAL 

0785 

REF 

10 

LAST 

77-3-- 

27, 2 601 

03705 

0 

VGT  I G 

VELOCITY  TO  BF  GAINED  AT  +7 

0786 

27, 2602 

41325 

0 

PDDL 

DMP 

OOD  = MAG  OF  VGTIG  AT  +7 

0787 

REF 

1 

27, 2603 

16742 

1 

7SEC 

700  CS  AT  + 18 

0788 

REF 

2 

LAST 

76  3 

27,  2 604 

34017 

0 

FRCS2 

0789 

27,2605 

62471 

L 

DDV 

S L 2 

SCALE 

0790 

REF 

2 

LAST 

772 

27, 2606 

01245 

0 

WEIGHT/G 

0791 

27, 2607 

41421 

0 

BDSU 

PUSH 

0792 

27,2610 

43014 

0 

BOFF 

SET 

0793 

REF 

1 

27, 2611 

05342 

1 

APSF  LAG 

0794 

REF 

1 

27,2612 

56662 

0 

S43 . 1 3D 

FOR  DPS  ENGINE 

0795 

REF 

2 

LAST 

76  1 

27, 2613 

02463 

1 

NOTHPOTL 

0796 

27, 2614 

56345 

0 

DLOAD 

DDV 

OOD  = MAG  OF  VGTIG  CORRECTED 

0797 

REF 

1 — 

27,-2615 

16001 

J. 

K1VA  L 

M. NEWTONS-CS  AT  +24 

0798 

REF 

3 

LAST 

780 

27, 2616 

01245 

0 

WFI  GHT/G 

0799 

27,2617 

50021 

1 

BDSU 

BMN 

GAP: 

L 

0800 

0801 

0802 

0803 

R0804 

R0805 

R0806 

0807 

0808 

0809 

0810 

0811 

0812 

0813 

0814 

0815 

0816 

0817 

0818 

0819 

0820 

08  21 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

0840 

0841 

0842 

0843 

0844 

0845 

0846 
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27,2620  00001  0 OOD 

REF  i 27,2621  56644  1 S40.131  T GO  LESS  THAN  100  CS 

27,2622  41325  0 PDDL  OMR  02D  = TEMPI  AT  +7 

REF  2 LAST  158  27,2623  03736  0 MDOT 

MOOT  REPRESENTS  THE  RATE  OF  DECREASE  OF  VEHICLE  MASS  DUR I NG  -ENGINE 
BURN  IN  KILOGRAMS/CS  . WHEN  SATURN  IS  USED  , THE  SCALING  MAY 
RECUIRE  ADJUSTMENT 


REF 

1 

27, 2624 

16734 

0 

3.5SEC 

350  CS  AT  +14 

27,2625 

65221 

0 

BDSU 

PDDL 

R£F 

4 

LAST 

78  0 

27, 2626 

01245 

0 

WEIGHT/G 

REF 

7 

LAST 

772 

27,2627 

03734 

1 

F 

27,2630 

60405 

0 

DM  P 

SR2 

SCALE 

REF 

1 

27,2631 

16736 

1 

5 SEC  S 

27,2632 

41471 

0 

DDV 

PUSH 

04D  = TEMP? 

27, 2633 

51021 

0 

BDSU 

B PL 

27,  2634 

00003 

1 

0 2D 

REF 

2 

LAST 

780 

27, 2635 

56662 

0 

S 40 . 13D 

27, 2636 

55345 

0 

DLOAP 

BDDV 

27,2637 

43205 

1 

DM  P 

DAD 

REF 

2 

LAST 

78  1 

27,2640 

16736 

1 

5 SEC  S 

REF 

1 

27,2641 

16732 

0 

1 SEC2D 

100  CS  AT  +14 

27,2642 

77650 

1 

GOTO 

REF 

1 

27,2643 

56652 

0 

S 40 . 132 

27,2644 

41345 

0 

S40. 131 

DLOAD 

DMP 

R FF 

5 

LAST 

78  1 

27 , 2 645 

01245 

0 

WEI GHT/G 

27,2646 

41542 

1 

SR  1 

PUSH 

27,2647 

56215 

1 

DAD 

DDV 

REF 

— 

27,2650 

16003 

0 

K.2VA  L 

M. NEWTON  CS  AT 

+24 

REF 

i 

27,2651 

16005 

0 

K3VAL 

M. NEWTON  CS  AT 

+ 10 

27,2652 

77414 

0 

S40. 132 

SET 

EXIT 

REF 

— 5- 

LAST 

7 8 C 

27,2653 

01066 

0 

IHPULSW 

REF 

9 

LAST 

769 

27, 2654 

0 72  56 

1 

S40 . 132* 

TC 

T P AG  REE 

REF 

283 

LAST 

769 

27,2655 

3 0154 

1 

CA 

MPAC 

REF 

1 C 8 

LAST 

769 

27,2656 

56  001 

0 

XCH 

L 

REF 

141 

LAST 

76  9 

27,2657 

3 47  55 

1 

CA 

ZERO 

REF 

13 

LAST 

780 

27, 2660 

5 3 ' 5 1 5 

0 

DXCH 

TGO 

REF 

— 1 

27,2661 

1 2704 

1 

TC  F 

S40 . 134 

27, 2662 

41345 

0 

S40 . 1 3D 

DLOAD 

DMP 

FOR  DPS  ENGINE 

27,2663 

00001 

0 

OOD 

REF 

6 

LAST 

78  1 

27, 2664 

01245 

0 

WEIGHT/G 

27,2665 

43006 

0 

PUSH 

BON 

REF 

2 

LAST 

780 

27,2666 

05302 

0 

A PS  F LAG 

REF 

1 

27,2667 

56725 

1 

APSTGO 

27, 2670 

43071 

0 

DDV 

CLEAR 

REF 

1 

27,2671 

16007 

1 

S 40 . 136 

REF 

3 

LAST 

780 

27,  2672 

02663 

0 

NOTHROTL 

27,2673 

41400 

0 

BOV 

PUSH 

GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  IP 

L P40-P47 


0847 

REF 

1 

27,2674 

56707 

1 

S4D . 130V 

0848 

27, 2675 

51025 

1 

S40. 137 

DSU 

3 PL 

p EF 

x 

27,  2676 

16740 

0 

6 SEC 

0850 

REF 

1 

27, 2677 

56715 

1 

S40 . 138 

0851 

27,  2 700 

52015 

1 

DAD 

GOTO 

08  ^2 

REF 

2 

| AS  T 

7 8 7 

27, 2 701 

16740 

0 

6 SEC 

0853 

REF 

2 

LAST 

78  1 

27, 2702 

56652 

0 

S 40  . 132 

0854 

27,2703 

77776 

1 

S40 . 133 

FX  IT 

08  *5*5 

REF 

47 

LAST 

76  6 

27,2  704 

0 5353 

1 

S40. 134 

TC 

PHASCHNG 

0856 

27,2705 

00003 

1 

OCT 

00003 

0857 

REF 

125 

LAST 

769 

27,2706 

0 5155 

0 

TC 

ENDO  F JOB 

2 7,2  707 

1 

S40.13QV 

DLOAD 

SR4 

0859 

27,2710 

77671 

1 

DDV 

0860 

REF 

1 

27,2711 

16011 

0 

S 40  . 1 36_ 

REF 

1 4 

last 

78  1 

77,2712 

03515 

0 

STORE 

TGO 

0862 

27,  2713 

77776 

1 

EXIT 

0863 

REF 

2 

LAST 

78  1 

27,  2714 

1 2704 

1 

TC  F 

S 40  . 134 

0864 

27,  2 715 

51025 

1 

S40. 138 

DSU 

BPL 

0865 

REF 

1 

27,2716 

16744 

1 

89SECS 

oraa 

R F F 

1 

27,2  717 

5672? 

0 

STCR  ETGO 

0867 

27, 2720 

77614 

1 

SET 

0868 

REF 

4 

LAST 

78  1 

27, 2721 

02463 

1 

NOTHROTL 

0869 

27, 2722 

77745 

1 

STORETGO 

DLOAD 

0870 

27, 2723 

77776 

1 

EXIT 

0871 

REF 

1 

27,2  724 

1 2654 

0 

TC  F 

S40.  1 32* 

0872 

27,2725 

62471 

1 

APSTGO 

DDV 

SL2 

0873 

REF 

2 

LAST 

765 

27,  2726 

34007 

1 

FAPS 

? 7 , 2 72  7 

77A8Q 

x 

r;OTn 

0874 

RFF 

2 

LAST 

782 

27, 2730 

56723 

1 

STORETGO  +1 

0878 

27,2731 

00144 

0 

1SEC2D 

2DEC 

100.0  B-14 

OR  7 ft 

? 7t  2 7R? 

00000 

x 

0879 

27, 2733 

01274 

1 

3 . 5 SEC 

2DEC 

350.0  B- 13 

0879 

27, 2734 

00000 

1 

0880 

27,2  73  5 

00764 

1 

5SECS 

2DEC 

500.0  B-14 

0880 

27,2736 

00000 

1 

0881 

27,  2737 

01  130 

1 

6SEC 

2D  EC 

6C0.0  B-14 

0881 

27,2740 

00000 

1 

0882 

27, 2 741 

00053 

1 

7SEC 

2DEC 

700  B-18 

0882 

27,2742 

30000 

1 

0886 

27,2  743 

21304 

0 

89SECS 

2DEC 

8900.0  B-14 

0886 

27,  2744 

00000 

1 

R0888 

FUNCT  ION 

11) 

GENERATES  REQUIRED  VELOCITY  AND  VELOCITY-TO-BE-GAIN 

R0889 

VECTORS 

FOR  USE  DURING  AIMPOINT  M ANFIIVFR  8 

EVFRY  TWO 

R0890 

COMPUTATION  CYCLES 

(4  SECONDS). 

R0891 

(2  ) 

UPDATES  THE  B 

VECTOR 

WHICH  IS  USED  IN 

THE  FINAL 

R0892 

CALCULATION  OF  E X TR APO 1 A T I NG  THF  VFI  DOTTY  — 

TD-RF  — GAINFD 

R0893 

THROUGH 

ONE  2-SECOND  INTERVAL  INTO  THE  FUTURE. 

R0894 

CALLING 

SEC  VIA 

F INDVAC  AS  NEW 

JOB. 
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USER'S  PAGE  NO.  24  E7  S3 


600.0  CS  AT  +14 


RECOMPUTE  TGO  IN  T I ME  2 UNITS 
S40.136  SHIFTED  LEFT  10 

REJOIN  COMMON  CODING  FOR  RESTART  PROTECT 


LOAD  TGO  AT  2(14) 


100.0  CS  AT  +14 
350  CS  AT  +13 

500.0  CS  AT  +14 

600.0  CS  AT  +14 


700.0  CS  AT  + 18 


GAP: 

L 

R0895 

R 0896 

R0897 

R0898 

R 0899 

R 0900 

R0901 

R 0902 

R0903 

R0904 

R0905 

R0906 

R0907 

R0908 

R 0909 

R0910 

0911 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920 

0921 

0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 
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INFUT  RN  - ACTIVE  VEHICLE  RADIUS  VECTOR  IN  METERS  AT  +29. 

VN  - ACTIVE  VEHICLE  VELOCITY  VECTOR  IN  MET  ERS/CS  AT  +7 

VRPREV  - LAST  COMPUTED  VELOCITY  REQUIRED  VECTOR.  IN 
METERS/CS  AT  +7. 

TIG  - TIME  OF  IGNITION  IN  CS  AT  +28. 

DLTARG  - COMPUTATION  CYCLE  INTERVAL  =200  CS  AT  +28. 

PIPTIME  - TIME  OF  RN  AND  VN  IN  CS  AT  +28. 

GDT/2  - HALF  OF  VELOCITY  GAINED  IN  DELTA  T TIME  DUE  TO 

A C C£ RE RATION  OF  GRAVITY  IN  METERS/CS  AT  +7. 

DELVREF  - CHANGE  IN  VELOCITY  DURING  LAST  2 SEC  IN 
METERS/CS  AT  +7. 

OUTPUT  VGPREV  - VELOCITY  TO  BE  GAINED  VECTOR  IN  METERS/CS  AT  +7. 

VGDISP  - MAG  OF  VGPREV  FOR  DISPLAY  PURPOSES. 

VRPRE  V - VELOCITY  REQUIRED  VECTOR  IN  METERS/CS  AT  +7. 

BDT  - B VECTOR  IN  METERS/CS  AT.  +7. 


SUBROUTINES  USED  - 

INITVEL 

REF 

8 

LAST 

778 

E 7 , 1 704 

EB ANK= 

VGPREV 

R F F 

2 

| A^T 

5 9 TO 

59  ’ 

2 

2* 

COUNT* 

$ i/ S 40. 9 

REF 

1 10 

LAST 

780 

27,2745 

0 6036 

1 

S40.9 

TC 

INTPRET 

27,2746 

77201 

1 

SETPD 

VLOAD 

27,2  747 

00001 

0 

OOD 

REF 

7 

LAST 

72  5 

2 7 j 2 750 

01221 

1 

RN 

ACTIVE  VEHICLE 

RADIUS  VECTOR  AT  T1 

REF 

11 

LAST 

773 

27,2751 

26327 

0 

STOVE 

R INI  T 

R Ef 

7 

LAST 

7 2 5 

27,2  752 

01227 

1 

VN 

ACTIVE  VFHICLE 

VELOCITY  VECTOR  AT  T1 

REF 

10 

LAST 

773 

27,2753 

16335 

0 

STOOL 

V INI  T 

REF 

7 

LAST 

778 

27, 2754 

01235 

1 

PIPTIME 

REF 

2 

LAST 

15  8 

27,2755 

03730 

0 

STORF 

TNIT 

27,2756 

77621 

1 

BDSU 

REF 

10 

LAST 

773 

27,2757 

03627 

1 

TPAS  S4 

REE 

8 

LAST 

7 73 

27,2760 

03450 

0 

STORE 

DELL  T4 

T 2 - T 1 

27,2761 

71214 

0 

SET 

OLD  A D 

REF 

8 

LAST 

76  5 

27,2762 

01072 

0 

AVFL  AG 

SET  AVFLAG  FOR 

LEM  ACTIVE 

REF 

7 

LAST 

778 

27,2763 

06424 

0 

HI6ZFR0S 

27,2764 

77725 

1 

POOL 

REF 

2 

LAST 

773 

27,2765 

16431 

0 

EPS1 

27,2  766 

43214 

1 

BOFF 

DAD 

EPSIL0N4  = 10 

OR  45  DEGREES. 

REF 

4 

LAST 

773 

27,2767 

03745 

1 

NORM  SW 

REF 

1 

27,2770 

56772 

0 

EPSSMALL 

REF 

2 

LAST 

77  3 

27,2  771 

16433 

1 

EPS2 

27, 2772 

77606 

1 

EPSSMALL 

PUSH 

27,2773 

45014 

0 

S40.92 

BOFSET 

CALL 

REF 



LAST 

778 

27,2774 

03044 

1 

FIRSTFLG 

REF 

1 

27, 2775 

57102 

0 

I N I T I NIT 

REF 

1 

27,2776 

22002 

0 

HAVEGUFS 

27,2777 

52375 

1 

VLOAD 

VSU 

REF 

9 

LAST 

73  5 

27,3000 

02343 

1 

V IPR IME 

REF 

2 

LAST 

158 

27,3001 

03722 

0 

VRPREV 

27, 3002 

45325 

1 

PDDL 

nsu 

REF 

3 

LAST 

78  3 

27, 3003 

03730 

0 

TNI  T 

REF 

1 

27,3004 

03732 

1 

TNI TPREV 

GAP  : 

L 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 

0955 

0956 

0957 

0958 

0959 

0960 

0961 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

09  83 

0984 

0985 

0986 

09  87 

0988 

0989 

0990 

0991 

0992 

0993 

0994 
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27,3005 

74265 

0 

BDDV 

VXSC 

RFF 

1 

27,3006 

17101 

1 

100B28 

PI t 3007 

764  51 

0 

VSU 

VSL1 

REF 

4 

LAST 

687 

27, 3010 

01237 

0 

GDT/2 

REF 

6 

LAST 

778 

27, 3011 

03671 

1 

STORE 

BDT 

?7t  301  ? 

531  35 

0 

F IRSTTME 

SLOAO 

BZF 

REF 

14 

LAST 

773 

27, 3013 

03377 

1 

RTX2 

REF 

1 

27,3014 

57020 

1 

GETGCBl 

27  f 3 01  S 

521  75 

0 

VLDAO 

GOTO 

NO  OBLATENESS  COMP  IF  IN  MOON 

SPHERE 

REF 

15 

LAST 

773 

27, 3016 

03366 

1 

DEL VEET3 

REF 

1 

27, 3017 

57034 

1 

NOGOBL 

27, 3020 

53575 

0 

GETGOBL 

VLOAD 

UNIT 

CALCULATE  OBLATENESS  TERM. 

REF 

8 

LAST 

783 

27, 3021 

01221 

1 

RN 

27, 3022 

45345 

1 

DLOAD 

DSU 

RFF 

P 

1 AST 

78  3 

27, 3023 

01235 

1 

P IP  T IME 

2 

REF 

3 

LAST 

74  1 

27,3024 

03510 

0 

GOB L T I ME 

G = -IMU/R  ) (UNITGOBL) (T  - 

TIG) 

27, 3025 

562  05 

0 

OMP 

DDV 

OBL 

REF 

1 

27, 3026 

16013 

1 

EARTHMU 

27, 3027 

00043 

0 

340 

34D  = /RN/  (2)  FROM  UNIT  OPERATION. 

27, 3030 

53361 

0 

VXSC 

VAD 

REF 

1 

27, 3031 

03517 

1 

UNI TGOBL 

REF 

16 

LAST 

784 

27,3032 

03366 

1 

D EL  V EET3 

OUTPUT  FROM  INITVEL  VG  = VR 

- VN 

REF 

17 

LAST 

784 

27, 3033 

03366 

1 

STORE 

D EL V EET3 

VG  = VR  + GOBL  - VN 

27, 3034 

o 

NOGOBL 

ABVAL 

REF 

6 

LAST 

778 

27,3035 

17662 

0 

STOOL 

VGD I SP 

REF 

4 

LAST 

78  3 

27, 3036 

03730 

0 

TNIT 

REF 

2 

\ AST 

78  3 

27, 3037 

087  82 

1 

STORE 

TNI T PREV 

27, 3040 

77776 

1 

EXIT 

REF 

48 

LAST 

782 

27, 3041 

0 5353 

1 

TC 

PHASCHNG 

27, 3042 

05022 

1 

oct 

05022 

27, 3043 

14000 

1 

OCT 

14000 

REF 

111 

LAST 

783 

27, 3044 

0 6036 

1 

TC 

INTPRET 

27, 3045 

77775 

1 

VLOAD 

REF 

10 

LAST 

783 

27, 3046 

02343 

1 

VIPRIME 

VRIT  1 

REF 

3 

LAST 

783 

27,3047 

03722 

0 

STORE 

VP  PR  EV 

27,  3050 

77776 

1 

EXIT 

REF 

49 

LAST 

784 

27,3051 

0 5353 

1 

TC 

PHASCHNG 

27,3052 

04022 

0 

OCT 

04022 

REF 

112 

LAST 

784 

27,305  3 

0 6036 

1 

TC 

INTPRET 

27, 3054 

772  14 

0 

BON 

VLOAD 

REF 

3 

LAST 

76  8 

27,3055 

01305 

0 

CYCL  ESW 

REF 

— 1— 

27,3056 

57064 

1 

S40 . 91 

REF 

18 

LAST 

784 

27,3057 

03366 

1 

DELVEET3 

REF 

9 

LAST 

783 

27,3060 

03705 

0 

STORE 

VCPR EV 

27, 3061 

52014 

0 

SET 

GOTO 

REF 

4 

LAST 

784 

27, 3062 

01065 

0 

CYCL  ESW 

REF 

1 

27,3063 

57074 

0 

ENDS40.9 

27,3064 

533  75 

0 

S40.91 

VLOAD 

VAD 

EXTRAPOLATE  FOR  V TO  GAIN 

REF 

19 

LAST 

784 

27, 3065 

03366 

1 

DFL  VFFT3 

REF 

7 

LAST 

784 

27,3066 

03671 

1 

BDT 

GAP 
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L 

P 40- 

-P47 

0995 

27,3067 

77651 

0 

vsu 

0996 

REF 

5 

LAST 

778 

27,3070 

03525 

0 

D EL  V REF 

n Q Q7 

R f p 

10 

LAST 

784 

27, 3071 

03705 

0 

STORE 

VGPREV 

U 7 7 1 

0998 

27,3072 

77646 

0 

ABVAL 

0999 

REF 

7 

LAST 

784 

27, 3073 

03662 

0 

STORE 

V GD ISP 

1000 

27, 3074 

777  76 

J_ 

END  S40. 9 EXIT 

1001 

REF 

50 

LAST 

784 

27, 3075 

0 5353 

1 

TC 

PHASCHNG 

1002 

27, 3076 

00002 

0 

OCT 

2 

1003 

REF 

126 

LAST 

78  2 

2 7, 3 077 

0 5155 

0 

TC 

FNDOFJOB 

1004 

27,3100 

00000 

1 

100B28  2DEC 

100 

1004 

27,3101 

00144 

0 

1005 

27, 3 102 

77624 

L 

INITINIT  CALL 

1006 

REF 

2 

LAST 

783 

27, 3103 

22002 

0 

HAVEC-UFS 

1007 

27, 3104 

776  5 0 

1 

GOTO 

1008 

REF 

1 

27, 3105 

57012 

0 

FIRS  TTME 

R 1 0 1 0 

MCC 

0 

24  FEB  67 

PETER 

ADLER 

R 10  1 1 

FUNCT  ION 

: 

R 10  1 2 

TRI  MS 

DPS 

ENGINE  TO 

MINIMIZE 

THRUST/CG  OFFSET . 

ENGINE  IS  G 

R 10  1 4 

FCR  REFERENCE  AND  IS 

THEN  BROUGHT  BACK  TO  TRIM 

POSITION  BY 

R1016 

SPECI FI  ED 

BY  GAEC)  IN  - PITCH 

AND  - ROLL. 

R 1017 

r.Ai  i nvn 

5FCUFNC.F : 

R 10  1 8 

VIA  WAITLIST  FROM  R03 

R 10  19 

INPUT : 

R 1020 

P ITT  I ME 

TJME  -X0_ 

RUN  ..FROM 

FULL  + PI  TCH-.TO  TRIM  (CSI 

R1021 

RCLLT  IME 

TIME  TO 

RUN  FROM 

FULL  + ROLL  TO  TRIv  (CS) 

R 1022 

SUBROUTINES  USED: 

R 102  3 

WAI TL  1ST  . 

FIXDELAY, 

VARDELAY 

» ■ 

FLAGUP,  FLAGDOWN, 

NOV  AC, 

1024 

REF 

1 

COUNT* 

$ $ / S 40.6 

1025  -REF 3 UASF 329  E6.1401  EBANK=  ROLLTIME 


1026 

REF 

65 

LAST 

769 

27,3106 

0 5516 

0 

T R I MG  I MB  TC 

DOWN  FLAG 

102  7 

REF 

1 

27, 3107 

001  37 

1 

ADRES 

GMBD  PVSW 

1028 

REF 

8 

LAST 

764 

27,3110 

4 5017 

0 

CS 

PR  I 0 5 

1029 

27,3111 

0 0006 

1 

EXT  END 

1030 

REF 

43 

LAST 

618 

27, 3 112 

03  012 

1 

WAND 

CHAN  12 

1031 

REF 

3 

LAST 

606 

27,3113 

3 5014 

1 

CAF 

EBANK5 

1032 

27,3114 

0 0006 

1 

EXTEND 

1033 

REF 

44 

LAST 

785 

27,3115 

05  012 

1 

WOR 

CHAN  12 

1034 

REF 

14 

LAST 

766 

27,3116 

0 5221 

0 

TC 

FIXDELAY 

1035 

27,3117 

13560 

0 

DEC 

5000 

1036 

REF 

4 

LAST 

785 

27, 3120 

4 5014 

0 

CS 

EBANK5 

1037 

27,3121 

0 0006 

1 

EXTEND 

1038 

REF 

45 

LAST 

785 

27, 3122 

03  012 

1 

WAND 

CHAN  12 

1039 

REF 

9 

LAST 

785 

27,3123 

3 5017 

1 

CAF 

PRI05 

1040 

27,3124 

0 0006 

1 

EXTEND 

1041 

REF 

46 

LAST 

78  5 

27,  3125 

05  012 

1 

WOR 

CHAN  12 

1042 

REF 

2 

LAST 

329 

27,3126 

3 1 ' 402 

0 

CAE 

P ITT IME 

1043 

REF 

22 

LAST 

769 

27,3127 

0 5173 

1 

TC 

TWI  DDLE 

19:02  NOV.  25,1968  FLY 
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FOR  DISPLAY  PURPDSFS 


IMBALLED  TO  FULL  + PITCH  AND  + ROLL  (TO  LOCK) 
RUNNING  FOR  THE  PROPER  TIMES  (TO  BF 


OCTAL  MASKS:  PRI05=05000  EBANK5=02400 

GMBPRVSW  FLAG  IS  SET  WHEN  EITHER  ROLL  OR 
PITCH  IS  COMPLETED,  WHICHEVER  IS  FIRST. 

TURN  OFF  - PITCH,  - ROLL,  IF  ON. 


TURN  ON  + PITCH,  + ROLL. 


WAIT  ONE  MINUTE  TO  MAKE  SURE  ENGINE  IS 
AT  FULL  + PITCH  AND  FULL  + ROLL 
TURN  OFF  + PITCH,  + ROLL. 


TURN  ON  - PITCH,  - ROLL . 


GET  TIME  TO  SHUT  OFF  - PITCH  AND  S FT  UP 
TWIDDLF-TASK  TO  TURN  IT  OFF  THEM 


GAP 
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P40- 

P47 

1044 

REF 

1 

27,3 

1045 

L.  /A  ^ 1 

C.  1 I J 

1046 

REF 

6 

LAST 

616 

27,3 

1047 

REF 

37 

LAST 

713 

27,3 

2 7,3 

1049 

REF 

47 

LAST 

785 

27,  3 

1050 

REF 

2 

LAST 

20  1 

27,  3 

10^1 

REF 

27, 3 

1052 

27,  3 

1053 

REF 

2 

LAST 

786 

27,3 

] n 54 

JIFF 

5 

LAST 

76  8 

27,3 

1055 

REF 

20 

LAST 

75  1 

27,3 

1056 

REF 

6 

LAST 

604 

F7 , 1 

1 057 

REF 

1 

27,3 

1057 

REF 

1 

27,  3 

1058 

REF 

51 

LAST 

768 

27,3 

insq 

R FF 

40 

1 ART 

6 17 

27,3 

1060 

27,3 

1061 

REF 

48 

LAST 

786 

27,3 

1062 

REF 

1 

27, 3 

1063 

REF 

44 

LAST 

769 

27,3 

1064 

REF 

2 

LAST 

785 

27,3 

1065 

REF 

52 

LAST 

786 

2 7,3 

03147 

0 

ADRES 

P ITCHOFF 

31*401 

0 

CAE 

8 DLL  TIME 

0 5224 

0 

TC 

VARDELAY 

4 4740 

1 

CS 

BIT1  2 

0 0006 

-1 

EXTEND 

03  012 

1 

WAND 

CHAN  12 

3 0102 

1 

ROLLOVER 

CA 

FLAGWRD6 

7 4742 

0 

MASK— 

GMBDRBIT 

0 0006 

1 

EXTEND 

1 3153 

1 

BZF 

P ITCHOFF 

3 4737 

0 

CAF 

PRinio 

0 5072 

1 

TC 

NOV  AC 

E8ANK= 

WHOC  ARFS 

02320 

X- 

2C  ADR 

TRIM  DONE 

02067 

1 

0 5261 

1 

TC 

TASK  OVER 

4 4X42 

0 

PITCHOFF 

CS 

BIT  1 0 

0 0006 

1 

EXTEND 

03  012 

1 

WAND 

CHAN  12 

1 3136 

1 

TCF 

ROLLOVER 

0 5504 

0 

TC 

JPFL AG 

00137 

1 

ADRES 

GMBDRVSW 

0 5261 

1 

TC 

TASKOVEF 

130 

131 

1 132 

* 133 

134 

i 135 

136 

137 

1 140 

141 

142 

143 

467 

144 

145 

146 

14  7 

150 

151 

152 

153 

154 

155 


19: 02  NOV.  25*1968  FLY 


109  PAGE  786 
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GET  TIME  TO  SHUT  OFF  - ROLL  AND  GO  AWAY 
UNTIL  THEN 


SHUT  OFF  ROLL 

IF  HERE  INLINE  (ROLL  DONE)  IS  PITCH  DONE 
IF  HERE  FROM  PITCHOFF,  IS  ROLL  DONE? 

NO.  SET  FLAG,  POLL  OR  PITCH  DONE. 

RFTURN  TO.  R03 


SHUT  OFF  PITCH 

SEE  IF  ROLL  HAS  FINISHED  ALSO. 

ROLL  DONE;  OR  PITCH  DONE;  BUT  NOT  BOTH 


GAP:  ASSEMBLE  REVISION  0*9  OF  4GG  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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L 


P40-P 47 


USER'S  PAGE  NO.  29 


E6  S3 


p 1066  SUEROLTINE  NAME:  S41.1 


MOO.  NO.  0 DATE:  FEBRUARY  28,  1967 


R 1067 


MOD.  NO.  1 DATE:  JANUARY  23,  1968:  BY  PETER  ADLER  IMIT/IL) 


R 1 069  AUTHOR:  JONATHAN  0.  ADDELSTON  (ADAMS  ASSOCIATES) 

r 1070  S41.1  PERFORMS  THE  COORDINATE  SYSTEM  TRANFORMAT I ON  FROM  THE  REFERENCE  FRAME  TO  THE  BODY  OF  THE  LM. 

r 1072  SPECIFICALLY,  IT  IS  USED  TO  TRANSFORM  A VELOCITY  (SCALED  AT  2(+7)  MET FR S/CENT  I SECOND ) FROM  REFERENCE  TO  LM  AXIS 

R107A  COORDINATES.  FIRST  THE  VECTOR  IS  TRANSFORMED  TO  THE  STABLE  MEMBER  COORDINATES  BY  THE  MATRIX  REFSMMAT . THIS 

R 1076  LEAVES  THE  VECTOR  IN  MPAC  , SCALED  AT  2<+8)  METE RS/C ENTI SECON D.  THFN 

R 1 0 77  TEE  SUBROUTINE  CDUTRIG  IS  CALLED  TO  SET  UP  THE  DOUB LE- PPE C I S ION  CDU  VECTOR  ALONG  WITH  ITS  SINES  AND  COSINES. 

R1079  THE  VECTOR  IS  THEN  TRANSFORMED  FROM  STABLE  MEMBER  COORDINATES  TO  SPACECRAFT  (OR  LM)  COORDINATES  BY  THE 

R 108 1 SUBROUTINE  * SMNB* . FINALLY!  THE  VECTOR  IS  RESCALED  TO  2(+7)  MFT ERS/CENT I SECOND,  AND  CONTROL  IS  RETURNED  TO  THE 

R 108 3 CALLER  WITH  C(MPAC)  = VE L OC I TY ( LM ) . 


R1084  CALLING  SEQUENCE: 

A1085  L VLOAD  CALL 

A 10 86  L +1  VELOCITY (REF)  SCALED  AT  2(+7)M/CS  IN  REFERENCE  COORDS. 

A 1 087  l — +2 S41.1 

A 1 08  8 L +3  STORE  VELOCITY (LM)  SCALED  AT  2(+7)M/CS  IN  LM  BODY  AXIS  SYS. 

R 1089  SUBROUTINES  C ALL-E-B-: — 

R 1090  1.  CDUTRIG, 

R 1091  — W Hl-CH-CACL-S  CDU  LOGIC. 

R 1092  2.  *SMNB* 

R 1093  NORMAL  RETURN:  L +3  (SEE  CALL-LNG -SEQUENCE , ABOVE.) 

R 1094  ALARM/ABCRT  MODES:  NONE. 


R 1 095  RESTART  PROTECTION:  NONE. 


GAP: 

L 

P 1 096 

R 1097 
R1098 
R 1 099 

R 1 1 00 

R 1 1 0 1 
R 1 102 
R 1 1 03 
R 1 1 04 

R 11 05 

R 1 1 0 6 

1107 

1108 

1109 

1110 
1111 

A 1 1 1 2 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-G11 
P40-P47 
INPUT  : 
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1.  REFSMMAT. 

2.  CDUX,  CDUY,  CDUZ . 

3.  VELOCITY  (REF)  IN  MPAC. 


OUTPUT  : 


1.  C DUS  POT : DOUBLE  PRECISION  CDU  VECTOR,  ORDERED  Y,7,X. 

2.  S INC  DU : HALF  SINES  OF  CDUSPOT  COMPONENTS. 

3.  COSCDU:  HALF  COSINES  OF  CDUSPOT  COMPONENTS. 


4.  m m pa  r i 

\/  F 1 nr.  T TY  f 1 Mi 

(SCALED  AT 

21+7)  METERS/ CENT  I SECOND ) 

DEBR IS: 

NONE  . 

CHECKOUT 

STATUS:  CODED. 

r.nuMT  # $ * / s 4i . i 

REF  22 

LAST  778 

27.3156 

27.3157 
27 , 3 160 

76521 

01734 

77650 

0 S41.1 
0 

1 

MXV  VS  L 1 

REFSMMAT 

- GOTO  . 

CONVERT  VECTOR  IN  MPAC  FROM  REF  AT  2(+7) 
TO  SM  AND  RESCALE  DUE  TO  HALFUNIT  MATRIX 
CONVERT  TO  BODY  AT  2(+7)  USING  PRESENT 

REF  2 

LAST  529 

27,3161 

47552 

0 

CDUYSMNB 

CDU  ANGLES.  CDU*SMNB  WILL  RETURN 
VIA  RVQ  TO  THE  CALLER  OF  S41.1 

GAP:  ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  8Y  NASA  29  214,12- Gil 
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0001 

0002 

REF 

3 LAST  611 

32,2772 

32,2000 

BANK  32 

SETLOC  F2DP  S*32 
BANK 

0004 

REF 

1 

E7, 1617 

EBANK=  E2DPS 

R0005 

R0006 

R0007 

P63:  THE  LUNAR  LAND  I NG  * BRAKING  PHASE 

#*#***  $ $ * % # * $ * 

0008 

REF 

1 

COUNT  * 

$ $/ P 63 

000« 

REF 

51 

LAST 

78  5 

32, 2772 

0 5353 

1 P63LM 

TC 

PHASCHNG 

0010 

32,2773 

04024 

0 

OCT 

04024 

0011 

REF 

2 11 

LAST 

769 

32, 2774 

0 4616 

1 

TC 

RANKCALL 

0012 

REF 

9 

LAST 

76  5 

32,2775 

11175 

1 

CADR 

R 02  BOTH 

0013 

REF 

1 

32,2776 

3 3246 

1 

CAF 

P63A  DRES 

0014 

REF 

26 

LAST 

765 

32, 2777 

55*453 

0 

TS 

WHICH 

00141 

REF 

1 

32, 3000 

3 2010 

1 

CAF 

DPSTHRSH 

00142 

REF 

4 

LAST 

765 

32, 3001 

55*251 

1 

TS 

DVTHRUSH 

00143 

RFF 

1 3 

1 AST 

76  5 

32*3002 

3 4751 

Q 

CAF 

FOUR 

00144 

REF 

26 

LAST 

76  8 

32,3003 

55*513 

0 

TS 

DVCNTR 

On  i s 

RFF 

PS 

[ ASJ 

7 A Q 

3? ,3004 

4 4 7 S3 

o 

GS 

DNF 

0016 

32, 3005 

22  007 

0 

ZL 

0017 

REF 

5 

LAST 

756 

32,3006 

5 3' 62 1 

1 

DXCH 

WCHPHASE 

0018 

REF 

63 

LAST 

6 1 7 

32, 3007 

4 4736 

0 

cs 

B I T 1 4 

0019 

32, 3010 

0 0006 

1 

EXTEND 

002-0  — REF  49  LAST  786  32,3011  03  012__L  _WAM)  CHAN  12 


0023 

REF 

113 

LAST 

784 

32, 3012 

0 6036 

1 

FLAGORGY  TC 

INTPRET 

0024 

32,3013 - 

43014 

n 

CLEAR 

CLEAR_. 

0025 

REF 

5 

LAST 

78  2 

32,3014 

02663 

0 

NOTHROTL 

0026 

REF 

1 

32, 3015 

03271 

0 

REDF  LAG 

0030 

32,3016 

43014 

0 

CL  EAJR__ 

S ET 

0031 

REF 

1 

32, 301 7 

05660 

1 

LPB YPASS 

0032 

REF 

2 

LAST 

742 

32, 3020 

03067 

0 

MUNF  LAG 

0033 

32,3021 

43  0 14 

0 

Cl  FAR 

C L F AR 

0034 

RFF 

3 

LAST 

514 

32, 3022 

00266 

0 

P 2 5 F LAG 

0035 

REF 

4 

LAST 

576 

32, 3023 

00270 

1 

RNDVZFLG 

A0036 

DO  IMU  STATUS  CHECK  ROUTINE  P02 


INITIALIZE  WHICH  FOR  BURNBABY 


INITIALIZE  DVMQN 


INITIALIZE  WCHPHASE  AND  FLPASSO 
FOR  IGNITION  ALGORITHM 


R EMOVE  TRACK-ENABLE  PI SCRETE. 
DIONYSIAN  FLAG  WAVING 


TERMINATE  P25  IF  IT  IS  RUNNING. 

TERMINATE  P20  IF  IT  IS  RUNNING 

>Jc  jjc**  jJc*#  # $ * # % # # j{c  # ^ 


FIRST  SET  UP  INPUTS  FOR  RP-TO-R:- 

AT  OD  LANDING  SITE  IN  MOON  FIXED  FRAME 
AT  6D  ESTIMATED  TIME  OF  LANDING 


00  37 

0038 

0039 


REF 


5 LAST  725 


32, 3 024 

32.3025 

32. 3026 


77201  1 IGNALG  -SETPD  VLOAD 
00001  0 0 
02023  1 RLS 


GAP: 

L 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

00531 

00532 
0057 
005  8 

0059 

0060 
0061 
0062 
00621 
00622 

00623 

00624 
0063 

0065 

0066 

0067 

0068 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

R0080 

R0081 

R0083 

R0085- 

R0086 

R0088 

R0089 

R0090 
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32, 3027 

41525 

0 

PDDL 

REF 

3 

LAST 

215 

32, 3030 

02401 

0 

D p C 

9 

1 AQT 

16  5 

32, 3031 

37623 

_i  - 

STCALL 

Klt — 

REF 

c. 

l 

32, 3032 

51504 

1 

32, 3033 

64312 

0 

VSL4 

DPP 

9 X. 

1 AQT 

78  8 

32,  3 034 

017  34 

0 

Ktr 

tL  5 

REF 

3 

LAST 

215 

32,3035 

37633 

0 

STCALL 

REF 

1 

32, 3036 

60264 

1 

-32,  303  7 

45345 

-1— 

DLOAD 

REF 

4 

LAST 

790 

32,3040 

02401 

0 

REF 

1 

32, 3041 

25254 

0 

REF 

47 

LAST 

77  3 

32,  TO 4 2 

34041 

0 

STCALL 

REF 

9 

LAST 

773 

32, 3043 

27057 

0 

32, 3044 

77331 

0 

SSP 

REF 

1 

32, 3045 

03645 

-0 

32, 3046 

00050 

1 

REF 

7 

LAST 

776 

32, 3047 

06422 

0 

_RE-F 

2- 

LAST 

138  _ 

32,3050 

26510 

1 _ 

STOVL 

REF 

4 

LAST 

590 

32, 3051 

06420 

1 

REF 

3 

LAST 

79C 

32, 3052 

265  16 

1 

STGVL 

REF 

6 

LAST 

59  1 

32,3053 

064  16 

1 

REF 

4 

LAST 

790 

32,3054 

16524 

0 

STOOL 

REF 

1 

32, 3055 

25252 

0 

REF 

4_ 

LAST 

33  0 

32, 3056 

27663 

1 

STOVL 

REF 

13 

LAST 

773 

32, 3057 

06424 

0 

REF 

4 

LAST 

778 

32, 3060 

17252 

1 

STOOL 

REF 

-8— 

LAST 

78^ 

32, 3061 

06424 

o 

REF 

3 

LAST 

215 

32, 3062 

03641 

1 

STORE 

32,  3 063 

77745 

ir.NAi  nnp  ni  nan 

REF 

14 

LAST 

742 

32, 3064 

00015 

0 

1 Ul’iM  LUUi  ULUHU 

REF 

4 

LAST 

742 

32,3065 

27557 

0 

STOVL 

REF 

— 9— 

LAST 

S 4-2 

32, 3 06  6 

000  17 

1 

32, 3067 

64312 

0 

VSL4 

REF 

24 

LAST 

790 

32,3070 

01734 

0 

REF 

5 

LAST- 

609  - 

32, 3071 

37517 

o 

STCALL 

REF 

2 

LAST 

742 

32,3072 

67162 

0 

REF 

5 

LAST 

784 

32,3073 

35237 

1 

STCALL 

REF 

— 1- 

32, 3074 

62514 

0 

PUSH  MP  AC  NON-ZERO  TO  INDICATE  LUNAR  CASE 

TLAND 

TPIP  ALSO  SET  TPIP  FOR  FIRST  GUIDANCE  PASS 

RP-TO-P 
MXV 

REFSMMAT 
LAND 

GUI0INIT  GUIDINIT  INITIALIZES  WM  AND  /LAND/ 

DSU 
T L AN  C 
GUIDDURN 

T.D.E-C-1  INTEGRATE  STATE  FORWARD  TO  THAT  TIME 

LEMPREC 
V LOA  D 
NIGNLOOP 
4 OD 
UNI  TX 
CG 

UNITY 
CG  +6 
UNITZ 
CG  +14 
9S999C0N 

DELTAH  INITIALIZE  DELTAH  FOR  V16N68  DISPLAY 

Z FPOVECS 

UNFC/2  INITIALIZE  TRIM  VELOCITY  CORRECTION  TERM 

H I 6 Z EROS 

TTF/8 


TAT 

PIPTIME1 
R ATT  1 
MXV 

R EF  SMMAT 
R 

MUNG RAV 
GDT/  2 

7GUIDSUB  WHICH  DELIVERS  N PASSES  OF  GUIDANCE 


DDUMCALC  IS  PROGRAMMED  AS  FOLLOWS:- 


DDUM 


(RIGNZ  - RGU  ) / 1 6 + 16IRGU  ) KIGNY/B8  + ( RGU  - R I GNX ) K I GNX /B4  + (ABVAL(VGU)  - VIGN) K IGNV/B4 

2 1 0 

10 

2 1VGU  - 16  VGU  KIGNX/B4) 

2 0 
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R0091 

THE 

NUMERATOR 

IS  SCALED  IN  METERS  AT 

2(28). 

THE  DENOMINATOR  IS  A VELOCITY  IN  UNITS  OF  2(10)M/CS. 

R0093 

THE 

QUOT I ENT 

IS  THUS 

, A TIME 

IN  UNITS 

OF 

2(18) 

CENT l SECONDS . THE  FINAL  SHIFT  RESCALES  TO  UNITS  OF  2(28)  CS. 

TUP OP  TQ  MT  nAMPTNft 

FACTOR* 

THF  CONSTANTS  KIGNX/R4. 

KIGNY/B8  AND  KIGNV/34  ARE  ALL  NEGATIVE  IN  SIGN. 

0097 

REF 

2 

LAST 

790 

32,3075 

55*644 

1 

DDUMCALC  TS 

NIGNLOOP 

0097  1 

REF 

1 14 

LAST 

789 

32,3076 

0 6036 

1 

TC 

I NT P PET 

00972 

32, 3077 

57345 

1 

DLOAD 

DMPR  FORM  DENOMINATOR  FIRST 

0098 

REE 

3 

LAST 

215 

32,3100 

03625 

0 

VGU 

0099 

REF 

2 

LAST 

137 

32, 3101 

02471 

1 

KIG NX/84 

0100 

32,3102 

44232 

1 

SL4R 

BDSU 

0101 

REF 

4 

LAST 

79  1 

32,3103 

03631 

0 

VGU  +4 

0102 

-3 2,3104 

45325 

1 

PDDL 

DSU- 

0103 

REF 

2 

LAST 

137 

32,3105 

02467 

0 

RIGNZ 

0104 

REF 

2 

LAST 

215 

32,3106 

02550 

0 

RGU  +4 

0105 

32,3 107 

65222 

0 

SR4R 

PDDL 

0106 

REF 

3 

LAST 

79  1 

32,3110 

02546 

1 

RGU  +2 

0107 

32,3111 

573  16 

1 

DSQ 

DMPR 

010-8- 

REF 

2 

LAST 

137 

32, 3 112 

024  73 

0 

KIGNY/B8 

0109 

32,3113 

65232 

1 

SL4R 

PDDL 

0110 

REF 

4 

LAST 

791 

32,3114 

02544 

0 

RGU 

0111 

32,3115 

57225 

0 

DSU 

_ DMPR 

0112 

REF 

2 

LAST 

137 

32,3116 

02465 

1 

R IGN  X 

0113 

REF 

3 

LAST 

79  1 

32, 3117 

02471 

1 

K IGNX/B4 

0114 

32,3 120 

51515 

1 

PQ-VL 

A BVA  L 

0115 

REF 

5 

LAST 

79  1 

32,3121 

03625 

0 

VGU 

0116 

32, 3122 

57225 

0 

DSU 

DMPR 

01  17 

REF 

2 

LAST 

137 

32,3123 

02463 

1 

VIGN 

0118 

REF 

2 

LAST 

137 

32, 3124 

02475 

0 

KIGNV/B4 

0119 

32, 3 125 

43215 

0 

DAD 

DAD 

0120 

32,3126 

56215 

1 

DAD 

DDV 

0121 

32,3127 

77661 

0 

SRR 

0122 

32,3130 

21613 

0 

10D 

0123 

32,3131 

43206 

1 

PUSH 

DAD 

0124 

REF 

5 

LAST 

790 

32, 3132 

03557 

0 

PIPT  I ME1 

0125 

REF 

48-- 

LAST 

7-3-0 

32,3333 

14041 

1 

STOOL 

TDEC1  STORE  NEW  GUESS  FOR  NEXT  INTEGRATION 

0126 

32,3134 

45246 

0 

ABS 

DSU 

0127 

REF 

1 

32,3135 

25256 

1 

DDUMCPIT 

0128 

32,3136 

45040 

A 

RMN 

CALL 

0129 

REF 

1 

32,3137 

65156 

0 

DDUMGOOD 

0130 

REF 

25 

LAST 

7 1 8 

32, 3140 

27412 

0 

I NT  S TALL 

0131 

_3.2.,  3141 

43014 

0 

SET 

SET 

0132 

REF 

13 

LAST 

718 

32,3142 

01473 

0 

I NTYPFLG 

0133 

REF 

11 

LAST 

719 

32, 3 143 

00063 

1 

MOONFLAG 

013-4 

32,3144 

77745 

1 

DLOAD 

0136 

REF 

6 

LAST 

79  1 

32,3145 

03557 

0 

P IPT  IME1 

0137 

REF 

11 

LAST 

718 

32, 3146 

25517 

0 

STOVL 

TET  HOPEFULLY  ?GU IDSUB  DID  NOT 

0138 

REF  - 

10 

LAST 

Z90  , 

3_2,  3147 

00017 

1 

R ATT  1 CLOBBER  R ATT  1 AMO  VATTL 

0139 

REF 

11 

LAST 

718 

32,3150 

25535 

0 

STOVL 

RCV 

0140 

REF 

12 

LAST 

742 

32,3151 

00025 

0 

VATT  1 
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F7  S3 

0141 

REF 

9 

LAST  718 

32,3152 

35543 

0 

STCALL 

vcv 

0142 

REF 

6 

LAST  718 

32,3153 

27107 

1 

INTEGRVS 

'l?  1 54 

77650 

-1— 

GOTO 

0144 

REF 

1 

32, 3155 

65063 

1 

I GNA  LOOP 

o 

nniJMGnnn 

S|  DAD 

SR  - - 

0 1 45 

0146 

REF 

4 

LAST  747 

32,3157 

03425 

1 

ZOOM  TIME 

0147 

32, 3160 

20617 

0 

14D 

32,3161 

77621 

1 

BDSU 

0149 

REF 

49 

LAST  791 

32,3  162 

00041 

1 

T DEC  1 

0150 

REF 

38 

LAST  778 

32,3  163 

27440 

1 

STOVL 

TIG 

COMPUTE  DISTANCE  LANDING  SITE  WILL  6F 

0151 

REF 

3 

LAST  60  9 

32,3164 

03525 

0 

V 

OUT  OF  LM'S  ORBITAL  PLANE 

AT  IGNITION: 

0152 

32,3165 

53435 

0 

VXV 

UNIT 

SIGN  IS  + IF  LANDING  SITE 

IS  TO  THE 

0153 

REF 

6 

LAST  790 

32, 3166 

03517 

1 

R 

RIGHT,  NORTH;  - IF  TO  THE 

LEFT,  SOUTH. 

01  S4 

32, 3167 

72441 

0 

DOT 

SL1 

0155 

REF 

4 

LAST  790 

32, 3170 

03633 

1 

LAND 

0156 

REF 

3 

LAST  330 

32, 3171 

26534 

1 

R60INIT 

STOVL 

OUT  0 FPL  N 

INITIALIZATION  FOR  CALCMANU 

015  7 

REF 

5 

1 AS  T 79  0 

32,3172 

032  52 

1 

UNFC /2 

0158 

REF 

2 

LAST  138 

32, 3173 

02536 

0 

STORE 

P 60  V SAVE 

STORE  UNFC/2  TEMPORARILY  IN 

R60SAVE 

0162 

32, 3174 

77776 

1 

EXIT 

AO  163 

0164 

REF 

52 

LAST  789 

32, 3175 

0 5353 

1 

IGNALGRT 

TC 

PHASCHNG 

PREVENT  REPEATING  IGNALG 

0165  — 32,-0176 04024-0—  OCT  04024 


0166 

0167 

REF 

REF- 

1 

212 

LAST 

78  9 

32, 3177 
32, 3200 

4 3247 
0 46  16 

1 

1 

ASTNCLOK 

CS 

TC 

ASTNDEX 

BANKCALL 

0168 

REF 

2 

LAST 

74  1 

32,3201 

74667 

0 

CADR 

STCL0K2 

0169 

REF 

127 

LAST 

785 

32, 3202 

1 5155 

1 

TC  F 

ENDOFJOB 

RETURN  IN 

NEW  JOB  AND  IN  EBANK  FIVE 

0170 

REF 

1 15 

LAST 

79  1 

32, 3203 

0 6036 

1 

ASTNRET 

TC 

I NTPPET 

0171 

32,3204 

47131 

1 

SSP 

RTB 

GO  PICK  UP 

DISPLAY  AT  END  OF  P51: 

0 1 72 

-RE  F 

2 

LAST 

13  9 

32, 3205 

02747 

1 

QMAJ 

"PROCEED 

" WILL  DO  A FINE  ALIGNMENT 

0173 

REF 

1 

32, 3206 

65210 

1 

FC  ADR 

P63SPLT? 

" ENTFR 

" WILL  RETURN  TO  P63SP0T2 

0174 

REF 

1 

32,3207 

30776 

1 

R51P63 

0175 

32, 3210 

53575 

0 

P63SP0T2 

VLOAD 

UNIT 

INITIALIZE 

KALCMANU  FOR  BURN  ATTITUDF 

01751 

REF 

3 

LAST 

792 

32,3211 

02536 

0 

1 60 V SAVE 

01752 

REF 

6 

L AST 

776 

32,3212 

27767 

1 

STOVL 

POI NTVSM 

01753 

REF 

8 

LAST 

79  0 

32,3213 

06422 

0 

UN  I T X 

01754 

REF 

21 

LAST 

776 

32,3214 

03761 

l 

STORE 

SC AX  I S 

01755 

32, 3215 

77776 

1 

EX  IT 

01756 

REF 

5 

LAST 

76  8 

32,3216 

3 5016 

0 

CAF 

EBANK7 

01757 

REF 

19 

LAST 

768 

32,3217 

54  003 

0 

TS 

EBANK 

0176 

32, 3220 

0 0004 

0 

INHINT 

0177 

REF 

36 

LAST 

769 

32, 3221 

0 46  7 4 

0 

TC 

I BNKCALL 

0178 

RFF 

2— 

LAS  T 

76  1 

32,3222 

40142 

1 

CADR 

P FI  I TEDP 

0179 

32, 3223 

0 0003 

1 

RELINT 
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0180 

0181 

REF 

REF 

213 

5 

LAST 

LAST 

792 
76  1 

32.3224 

32. 3225 

0 4616 
54101 

1 

0 

TC 

CADR 

BANKCALL 
R60L  EM 

0182 

REF 

53 

LAST 

79  2 

32,  3226 

0 5353 

1 

TC 

PHASCHNG 

PREVENT  RECALLING 

R60 

0183 

32, 3227 

04024 

0 

OCT 

04024 

0184 

REF 

40 

LAST 

690 

32, 3230 

3 4746 

0 

P63SPOT3  CA 

B I T6 

IS  THE  LR  ANTENNA 

IN  POSITION 

1 YET 

0185 

32,3231 

0 0006 

1 

EXTEND 

0186 

REF 

2 1 

LAST 

61  5 

32, 3232 

02  033 

0 _ 

RAND 

CHAN33 

0187 

32, 3233 

0 0006 

1 

EXTEND 

0188 

REF 

1 

32,3234 

1 32  42 

1 

BZ  F 

P 63  S P0T4 

BRANCH  IF  ANTENNA 

ALREADY  IN 

POSITION  1 

0189 

REF 

1 

32, 3235 

3 32  50 

0 

CAF 

CODE  500 

ASTRONAUT:  PLEASE 

CRANK  THE 

0190 

REF 

214 

LAST 

793 

32, 3236 

0 4616 

1 

TC 

BANKCALL 

SILLY  THING  AROUND 

0191 

REF 

4 

LAST 

75  5 

32,3237 

20476 

0 

CADR 

G0PFRF1 

0192 

REF 

33 

LAST 

770 

32, 3240 

1 6001 

1 

TCF 

GOTO  POOH 

TERMINATE 

0193 

REF 

1 

32,3241 

1 32  30 

1 

TC  F 

P63SP0T3 

PROCEED 

SEE  IF  HE'S  LYING 

0194 

REF 

215 

LAST 

793 

32,3242 

0 4616 

1 

P63  SPOT 4 TC 

BANKCALL 

ENTER 

INITIALIZE  LANDING 

0195 

REF 

1 

32, 3243 

67704 

0 

CADR 

SET  P OS  1 

0196 

REF 

43 

LAST 

769 

32,3244 

0 4635 

0 

TC 

POST  JUMP 

OFF  TO  SEE 

THE  WIZARD 

0197 

REF 

2 

LAST 

76  1 

32, 3245 

74124 

0 

CADR 

BUR  NBA  BY 

R0198 


R 01 99 

CONSTANTS  FOR  P63LN 

! AND  IGNALG 

0200  REF 

2 LAST  756 

32, 3246 

02074 

0 

P63ADRES  GENADR 

P63T  ABLE 

0202 

32,3247 

00027 

1 

AST  NDEX  OCT 

00027 

INDEX  FOR  CLOKTASK 

0203 

32,3250 

00500 

1 

C0DE500  OCT 

00500 

02035 

02035 

32. 3251 

32.3252 

00035 

30373 

1 

0 

99999C0N  2DEC 

30479.7  B-24 

0204  32,3253  00003  1 GUIODURN  2DEC  +65164 

0204  32,3254  37214  1 


0205  3 2 ,3 255  OOOOa_L DDUMCRIT  2DEC  +8  _B-28  CRITERION  FOR  IGNALG  CONVERGENCE 

0205  32,3256  00010  0 
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P0207 

R0208 

R0209 


P68:  LANDING  CONFIRMATION 

fc*  $#**  ****  ******** 


0210 

31,2172 

BANK 

31 

0 211 

R-E  F 

3 -LAST 

5 g 

31 , 2000 

SETLOC 

F 2DP  S*3 1 

0212 

31,2172 

RANK 

0213  REF  1 COUNT*  $$/P6567 


0214 

0215 

REF 

54 

LAST 

793 

31.2172 

31. 2 173 

0 5353 
04024 

1 

0 

LANDJUNK  TC 
OCT 

PHASCHNG 

04024 

02151 

31,2174 

0 0004 

0 

INHINT 

n?u 

KEF 

? 1 6 

L AST 

79  3 

31, 2 175 

0 4616 

1 

TC 

8ANKCALL 

ZERO  ATTITUDE  ERROR 

0217 

REF 

6 

LAST 

76  3 

31,2176 

40153 

1 

CADR 

ZATT  EPOP 

02  1 9 

REF 

2 17 

L A^  7 

79  S 

7 1 T 2 177 

0 46  16 

1 

TC 

B ANK  CALL 

SET  5 DEGREE  DEADBAND 

0220 

REF 

i 

31,2200 

40127 

1 

CADR 

S FT M AXDB 

02  21 

REE 

1 1 A 

LAST 

7 9? 

^ 1 1 2 ?0 1 

n 60  T 6 

1 

TC 

T NTP  PET 

TO  INTERPRETIVE  AS  TIME  IS  NOT 

CR ITIC  AL 

0222 

31,2202 

43014 

0 

SET 

CLEAR 

0223 

REF 

13 

LAST 

714 

31, 2203 

04067 

l 

SUP  F FLAG 

0224 

REF 

1 

3 1 1 2204 

04666 

0 

LETABORT 

0225 

31, 2205 

43014 

0 

SET 

CLEAR 

0226 

REF 

3 

LAST 

78  1 

31, 2206 

05062 

0 

APSE  LAG 

0227 

REF 

1 

31,2207 

03664 

0 

SWANOISP 

0228 

31,2210 

77214 

0 

SET 

V LOA  0 

0229 

REF 

2 

LAST 

789 

31, 2211 

05460 

0 

LR6Y  PASS 

0230 

REF 

9 

LAST 

784 

31,2212 

01221 

1 

RN 

0231 

REF 

3 

LAST 

666 

31,2213 

16032 

1 

STODL 

ALPH AV 

0232 

REF 

9 

LAST 

784 

31,2214 

01235 

1 

PIPT  IME 

0233 

31,2215 

45014 

0 

SET 

CALL 

0234 

REF 

3 

LAST 

666 

31,2216 

01463 

1 

LUNAFLAG 

0235 

REF 

2 

LAST 

666 

31,2217 

26351 

1 

LA T- LONG 

0236 

31,2220 

77201 

1 

SETPD 

VLOAD 

COMPUTE  RLS  AND  STORE  IT  AWAY 

0237 

31, 2221 

00001 

0 

0 

0238 

REF 

10 

LAST 

79  5 

31, 2222 

01221 

1 

RN 

02  39 

31 , 2223 

65352 

0 

VSL2 

PDDL 

0240 

REF 

10 

LAST 

795 

31,  2224 

01235 

1 

PIPTIME 

0241 

31, 2225 

45006 

0 

PUSH 

CALL 

0242 

REF 

1 — 

31,2226 

51531 

1 

R-TO-RP 

0243 

REF 

6 

LAST 

789 

31,2227 

02023 

1 

STORE 

RLS 

0244 

31, 2230 

77776 

1 

EXIT 

0245 

REF 

1 

31,2231 

3 2246 

0 

CAF 

V 06N 43* 

ASTRONAUT:  NOW  LOOK  WHERE  YOU 

ENDED  UP 

0246 

REF  218 

LAST 

79  5 

31, 2232 

0 4616 

1 

TC 

BANKCALL 

0247 

REF 

21 

LAST 

769 

31,2233 

20351 

1 

CADR 

GOFL ASH 

0248 

REF 

34 

LAST 

793 

31,2234 

1 6001 

1 

TC  F 

GOTO  POOH 

TERMINATE 

0249 

31, 2235 

1 2237 

1 

TC  F 

+ 2 

PROCEED 

0250 

31,2236 

1 2231 

1 

TCF 

-5 

RECYCLE 
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0251 

REF 

1 17 

LAST 

795 

31, 2237 

0 6036 

1 

TC  INTPPET 

02  52 

31,2240 

77775 

1 

VLOAD 

p p F 

LAST 

7 9 2 

^ 1 1 2 24 1 

06422 

0 

JNITX 

0254 

REF 

5 

LAST 

217 

31,2242 

36235 

0 

STCALL  GSAV 

0255 

REF 

1 

31,2243 

33470 

1 

REFMF 

^ 1 t 2 244 

777  76 

1 

FX  IT 

0257 

REF 

35 

LAST 

79  5 

31,2245 

1 6001 

1 

TC  F GOTO  POOH 

0258 


31, 2246 
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INITIALIZE  GSAV  AND  (USING  REFMF) 
YNBSAV,  ZNBSAV  AND  ATTFLAG  FOR  P57 


ASTRONAUT:  PLEASE  SELECT  P 57 
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L 

0001 

0002 

0003 

0004 

0005 
R0006 

R0008 


0010 

0011 

0012 

0013-- 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 


R0022 


0024 

002-5 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 


R0034 

R0036- 

R0038 


0039 

0040 


THROTTLE  CONTROL  ROUTINES 


USER' S PAGE  NO. 


FO  S3 


5 6 

31, 2247 
_? non 

BANK  31 

SETLOC  F THR  OT 

31,2247 

BANK 

REF 

2 

LAST 

164 

E7, 1610 

EB ANK=  PIF 

DTP 

[ a <;t 

fa  T n sa ; 

2 

5* 

COUNT  * $ $/ T HROT 

* * * 4 

4 * ❖ 

# ❖ # 

3{c  ^ # # 

* 4 4 

❖ * 

UPCP 

EC  t 1 

ncciD  pn  TUDJJCT 

Al\|n  FP, 

PRF^FNIT  THRIKT.  IIJViWF  1 FH  TFO. 

ARE  COMPUTE □ • 

REF 

3 

LAST 

2 2 6 

31 r 2 24  7 

V 124  F 

o 

THROTTl  F r.A  ABDFIV 

fOMPllTF  PRF^FNT  ArfF|  FRATT  FIN  IN  UNITS  flF 

31,2250 

0 0006 

1 

EXTEND 

2 ( —4 ) M/CS/CS,  SAVING  SFRVICER  TROUBLF 

REF 

i 

31,2251 

7 2444 

0 

MP  /AF/CNST 

31,2252 

0 0006 

i 

__  EXTEND 

REF 

2 

LAST 

164 

31,2253 

23 ' 6 05 

0 

QXCH  RTNHOLD 

REF 

1 

31,2254 

0 2425 

0 

AFDUMP  TC  MASSMULT 

REF 

1 

3 1 , 2255 

53*563 

1 

DXCH  FP 

FP  = PRESENT  THRUST 

31, 2256 

0 0006 

1 

EXTEND 

REF 

1 

31, 2257 

3 1574 

0 

DCA  /AFC/ 

R-FF — 

— 2 

LAST 

797 

3 1 , 2-260  _ 

0 2425 

0 

TC  ...  . MASSMULT 

REF 

3 

LAST 

215 

31, 2261 

55' 613 

0 

TS  FC 

FC  = THRUST  DESIRED  BY  GUIDANCE 

REF 

2 

LAST 

164 

31, 2262 

53' 561 

0 

DXCH  F COD  D 

FCODD  = WHAT  IT  IS  GOING  TO  GET 

IF  IT  HAS  BEEN  LESS  THAN  3 SECONDS  SINCE  THE  LAST  THROTTLING,  AUGMENT  FP  USING  THE  FfgEIGHT  CALCULATED  THEN. 


REF 

2 

LAST 

164 

31, 2263 

4 

1615 

0 

cs 

TTHROT 

THIS  CODING  ASSUMES  A FLATOUT  WITHIN 

REF- 

8 

LAST- 

7 5 1 

31,2264 

6 

0025 

0 

AD 

TIME  1 

80  SECONDS  BEFORF  FIRST  THROTTLE  CALL 

REF 

14 

LAST 

56  8 

31, 2265 

7 

4733 

0 

MASK 

POSM AX 

31,2266 

4 

0000 

0 

COM 

REF 

— 1- 

31,2  26-7- 

6^ 

5 002 

0 . 

AD 

3 SEC  S 

31, 2270 

0 

0006 

1 

EXTEND 

REF 

1 

31,2271 

6 

2275 

0 

BZMF 

WHERETO 

BRANCH  IF  ( T I ME1-TTHR0T  +i)  > 3 SECONDS 

31,227 2 

0. 

0006 

1 

EXTEND 

REF 

2 

LAST 

164 

31, 2273 

3 

1607 

1 

DCA 

F WE  I GHT 

REF 

2 

LAST 

797 

31,2274 

21 

' 563 

1 

DAS 

F P 

THIS 

LOGIC 

DETERMINES  THE 

THROTTLING  IN  THE 

REGION 

10%  - 94%. 

THE  MANUAL  THROTTLE,  NOMINALLY  SET  AT 

-M  IN  I MUM- - 
PROVIDES 

BY  ASTRONAUT 
THE  UPPER. 

OR  MISSION 

CONTROL  PROGRAMS 

, PROVIDES  THE  LOWER 

BOUND.  A STOP  IN  THE  THROTTLE  HARDWARE 

REF 

5 

LAST 

78  5 

31,  2275 

3 5014  1 

WHERETO  CA 

EBANK5 

INITIALIZE  L*WCR*T  AND 

H*GHCR*T  FROM 

REF 

20 

LAST 

79  2 

31,2276 

54  003  0 

TS 

EB4NK 

PAD  LOADED  ERASABLES 

IN  W-MATRIX 

GAP:  ASSEMBLE  REVISION  069  Of  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-011 1-9:02  NQV.  25,1968  FLY  .109  PAGE  798 

L THROTTLE  CCNTROL  ROUTINES  USER'S  PAGE  NO.  2 E7  S3 


00401 

REF 

2 

LAST 

137 

E5, 1476 

EBANK= 

LOWCRIT 

0041 

31,2277 

0 

0006 

1 

EXTEND 

7 9 8 

3 1 1 ? too 

3 

1 477 

1 

DC  A 

LOWCRIT 

0043 

REF 

1 

31,2301 

52  131 

0 

DXCH 

L*WC  R*T 

0044 

REF 

6 

LAST 

792 

31, 2302 

3 

5016 

0 

CA 

E BANK7 

79  7 

3 1 1-2  TO  3 

54,  0 03 

0 

TS 

EBANK 

0045  1 

REF 

3 

LAST 

797 

E 7,  1610 

EB ANK= 

PIF 

0046 

REF 

142 

LAST 

78  1 

31, 2304 

4 

4755 

0 

CS 

ZERO 

INITIALIZE  P I FP  SET 

004  7 

9 5 F 

2 

L A5T 

1 6 4 

31 , 2 305 

S5 ' 604 

0 

TS 

PIFP  SET 

0048 

REF 

i 

31,2306 

4 

0131 

0 

CS 

H*3HCP*T 

0049 

REF 

2 

LAST 

164 

31, 2307 

6 

1616 

1 

AD 

FCOLD 

0050 

31, 2310 

0 

0006 

1 

EXTEND 

0051 

REF 

1 

31,2311 

6 

2323 

1 

BZMF 

LOWFCOLD 

BRANCH  IF  FCOLD  < OR 

= HIGHCRIT 

0052 

REF 

2 

LAST 

798 

31,2312 

4 

0130 

1 

CS 

L*WCR*T 

On  5 ^ 

REF 

3 

i AST 

79  7 

31,2313 

6 

1560 

0 

AD 

FCODD 

0054 

31,2314 

0 

0006 

1 

EXTEND 

0055 

REF 

i 

31,2315 

6 

2320 

1 

BZMF 

FCOMPSET 

BRANCH  IF  FC  < OR  = 

L0WCR1T 

qq5^ 

ref 

3 

1 AST 

79  7 

31 ,2316 

3 

1562 

1 

CA 

FP 

SEE  NOTE  1 

0057 

REF 

i 

31,2317 

i 

2337 

0 

TCF 

FLAT  CUT  1 

P E F 

31, 2320 

4 

200? 

n 

f r n m p s f t 

CS 

f max  onn 

SFF  NOTE  2 

0059 

REF 

4 

LAST 

798 

31, 2321 

6 

1562 

1 

AD 

FP 

0060 

REF 

1 

31,2322 

1 

2341 

1 

TCF 

FLAT  0UT2 

0061 

REF 

2 

LAST 

798 

31, 2323 

4 

0131 

0 

LOWFCOLD 

CS 

H*GHCR*T 

0062 

REF 

4 

LAST 

798 

31, 2324 

6 

1560 

0 

AD 

FCODD 

0062 

31,2325 

o 

0006 

] 

EXTEND 

0064 

REF 

1 

31,2326 

6 

2342 

0 

BZMF 

DPP  I F 

BRANCH  IF  FC  < OR  = 

HIGHCRIT 

REF 

3 

LAST 

7 8 6 

31,2327 

0 1 0 2 

]_ 

C A 

T5  PHIITFIAO  ST  T ? 

0066 

REF 

i 

31, 2330 

7 

4745 

1 

MASK 

POUTBI T 

0067 

31, 2331 

0 

0006 

1 

EXTEND 

0068-  REF  2 LAST  798  31,2332  1 2336  1 BZF  FLAT  0UT1  -1 


0068  1 
00682 

REF 

pef 

3 

-5- 

LAST 

LAST 

798 

798 

31. 2333 

31.2334 

3 0131 
55' 560 

1 

1 

CA 

TS 

H*GHCR*T 

FCODD 

YES: 

THROTTLE-UP  ONLY  TO  HIGHCRIT 

00683 

REF 

2 

LAST 

798 

31,2335 

1 2342 

1 

TCF 

DOP  I F 

0069 

REF 

— 1 

31 , 2 336 

3 2 003 

g 

C A 

F M AX  POS 

NO : 

THROT TL  E— UP 

0070 

REF 

6 

LAST 

798 

31,2337 

53' 561 

0 

FLATOUT 1 

DXCH 

FCODD 

0071 

REF 

1 

31,  2340 

3 4737 

0 

CA 

FFXTR A 

0072 

REF 

3 

LAST 

79  8 

31,2341 

55*604 

0 

FLAT0UT2 

TS 

PIFP  SET 

A0073 

A0074 

NOTE  1 

FC  IS  SFT  EQUAL  TO  FP  SO  PIF  WILL  BE  ZERO.  THIS  IS  DESIRABLF 

A9  THFPF  IS  ACTUALLY  NO  THROTTIF  CHANGE. 

A0075 

A0076 

NOTE  2 

HERE,  SINCE  WE  ARE  ABOUT  TO  RETURN  TO 
(BFIOW  553!)  THE  QUANTITY  - ( FMAXODD  - 

THE  THROTTLEABLE  REGION 
FP)  IS  COMPUTED  AND  PUT 

A0077 

A007e 

INTO  PIFPSFT  TO  COMPENSATE  FOR  THE  DIFFERENCE  BETWEEN  THE 
NUMBER  OF  BITS  CORRF SPONOI NG  TO  FULL  THROTTLE  (FMAXODD)  AND  THE 

GAP 
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THROTTLE  CCNTROL  ROUTINES 


USER'S  PAGE  NO. 


E7  S3 


A nf)79 

NUMBER  CORRESPONDING 

TO  ACTUAL  THRUST  IFP).  THUS  THE 

TOTAL 

A 0080 

THROTTLE  COMMAND  PIF 

= FC  - FP  -IEMAX0D0  - FP)  = FC  - 

FMAXODD. 

00  81 

REF 

1 

31,2342 

0 3721 

0 

DOPIF 

TC  FAST  C.HNG 

RESTART  PROTECTION 

0082 

31, 2343 

0 0006 

1 

EXTEND 

^ rt  -> 

7 

last 

79  8 

1 t 2 344 

8 1561 

1 

DC  A FCOD  D _ 

0084 

REF 

3 

LAST 

798 

31,  2345 

55 ' 6 16 

0 

TS  F COL  r 

0085 

REF 

4 

LAST 

798 

31, 2346 

53 ' 6 1 1 

1 

DXCH  PIF 

31,2  347 

0 0006 

1 

EXTEND 

0087 

REF 

5 

LAST 

79  8 

31, 2350 

4 1563 

1 

DCS  FP 

0088 

REF 

5 

LAST 

799 

31,2351 

21*611 

1 

DAS  PIE 

PIF  = FC  - FP,  NEVER  EQUALS  +0 

0089 

REF 

6 

LAST 

799 

31,2352 

3 1610 

1 

DOIT 

CA  PIF 

0090 

RFF 

4 

LAST 

798 

31, 2353 

6 1604 

1 

AD  PIFPSET 

ADD  IN  PIFPSET,  WITHOUT  CHANGING  PIF 

0091 

REF 

3 

LAST 

2 1 5 

31, 2354 

55*612 

1 

TS  PSEUD055 

0092 

REF 

4 

LAST 

767 

31,2355 

54  055 

0 

TS  THRUST 

0093 

REF 

22 

LAST 

767 

31, 2356 

3 4750 

1 

CAE  BIT^ 

0094 

31,2357 

0 0006 

1 

EXTEND 

0095 

REF 

10 

LAST 

767 

31,2360 

05  014 

1 

WOR  CHAN  14 

0096 

REF 

9 

LAST 

797 

31,2361 

3 0025 

0 

CA  T IMF  I 

0097 

REF 

3 

LAST 

797 

31,2362 

55’ 615 

0 

TS  T THR  OT 

P0098 

9 I -MO  F 1 AF  / 

T Q Wfll  AM  rMQTAMTAMFnilS 

accfi  FRATinN.  rut  rathfr  an  "avfragf1'  of  thf  acceleration  levels 

DURING 

R0100 

THE 

PRECEECING 

PI  PA 

INTERVAL, 

AND  SINCE 

FP  IS  COMPUTED  DIRECTLY  FROM 

/AF/,  FP  IN  ORDER  TO  CORRESPOND  TO 

THE 

R0102 

ACTUAL  THRUST 

LEVEL 

AT  THE  END  OF  THE  INTERVAL 

MUST  BE  WEIGHTED  BY 

R0103 

PIF ( PPROCESS 

f TL)  PIF  /PIE/ 

R0104 

FWEIGHT  = — 

R010-5 

PGUID 

2 PGUID  FRATE 

R0106 

WHERE  pprocess 

IS  THE  TIME  BETWEEN  P I PA 

READING 

AND  THE  START  OF  THROTTLING,  PGUID  IS  THE  GUIDANCE  PERIOD,  AND 

R 01 08 

FPATF  IS 

THF  THR  FI  TTI  ING  R AT  F 

137  UNITS 

PFR  CFNTISF CONDI . PGUID  IS  ASSUMED  TO  BE  2 SECONDS.  THE  "TL" 

IN  THE 

ROl  10 

FIRST  TERM  REPRESENTS  THE  ENGINE'S  RESPONSE  LAG 

. HERE  FWEIGHT  IS  COMPUTED  FOR  USE  NEXT  PASS. 

0112 

REF 

2 

1 AS  T 

1 8 0 

31,23-63 

8 5008 

1 

CA  4SFCS 

0113 

REF 

154 

LAST 

76  9 

31,2364 

54  002 

1 

TS  Q 

0114 

REF 

11 

LAST 

795 

31, 2365 

4 1235 

0 

CS  PIPTIME  +1 

TIME  OF  LAST  PIPA  READING 

0115 

REF 

10 

L AST 

799 

31,2366 

6 0025 

0 

AD  T I ME  I 

0116 

REF 

1 

31,2367 

6 2004 

1 

AD  THROTLAG 

COMPENSATE  FOR  ENGINE  RESPONSE 

LAG 

0117 

REF 

4 

LAST 

473 

31,2370 

7 43  5 7 

0 

MASK  L0W8 

MAKE  SURE  SMALL  AND  POSITIVE 

0118 

31,2371 

22  007 

0 

ZL 

0119 

31, 2372 

0 0006 

1 

EXTEND 

0120 

REF 

155 

LAST 

799 

31,2373 

10  002 

1 

DV  0 

0121 

31,2374 

0 0006 

1 

EXTEND 

0122 

REF 

7 

LAST 

799 

31,2375 

7 1610 

0 

MP  PIF 

0123 

31,2376 

6 0000 

1 

DOUBLE 

0124 

REF 

3 

LAST 

797 

31,2377 

5 3 ' 6 07 

0 

DXCH  FWEIGHT 

0125 

REF 

1 

31,2400 

3 7715 

0 

CA  2.PG.FRT 

0126 

REF 

196 

LAST 

799 

31,2401 

54  002 

1 

TS  0 

GAP: 

L 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

R0138 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

R0148 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

R0165 

0171 
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THROTTLE 

CCNTROL  ROUTINES 

USER'S  PAGE 

NO. 

4 F7  S3 

REF 

8 

LAST 

799 

31,2402 

1 1' 610 

0 

CCS 

PIF 

REF 

86 

LAST 

789 

31, 2403 

6 4753 

1 

AD 

ONE 

t ?404 

1 2406 

0 

TCF 

+ 2 

REE 

87 

LAST 

800 

31,2405 

6 4753 

1 

AD 

ONE 

31,2406 

0 0006 

1 

EXTEND 

REF 

9 

L A 9 T 

ft  0 o 

31 , 2407 

7 1610 

0 

MP 

PIE 

31,2410 

0 0006 

1 

EXTEND 

REF 

197 

LAST 

799 

31,2411 

10  002 

1 

DV 

0 

31 , 2412 

22  007 

0 

ZL 

REF 

4 

LAST 

799 

31,2413 

21' 607 

0 

DAS 

FWEIGHT 

REF 

3 

LAST 

797 

31,2414 

0 1605 

0 

THDUMP 

TC 

RTNHCLD 

FLATOUT  THROTTLES  UP  THE 

1 ACT  7AQ 

DESCENT 
3 4737 

ENGINE,  AND 

D FI  ATflllT 

IS  CALLED  AS  A BASIC  SUBROUTINE. 
r_AF  . RITl  3 4fl9A  Pill  SFS 

REF 

5 

LAST 

799 

31,2416 

5 5 ' 6 04 

0 

WHATOUT 

TS 

PIFPSET  USE  PIFPSET  SO  FWEIGHT  WILL  BE  ZERO 

REF 

143 

LAST 

798 

31, 2417 

4 4755 

0 

CS 

ZERO 

REF 

4 

1 AST 

79  9 

31 , 2 420 

55' 6 16 

0 

TS 

F C 0 L D 

REF 

10 

LAST 

800 

31, 2421 

55*610 

0 

TS 

PIF 

31, 2422 

0 0006 

1 

EXTEND 

REF 

4 

last 

800 

31,2423 

23' 605 

0 

QXCH 

P TNHGLD 

REF 

i 

31, 2424 

1 2352 

0 

TCF 

DOIT 

MASSMULT 

SCAL  ES 

ACCELERATION,  ARRIVING  IN  A 

li iaia  n nnnA  1 wiaccmhi  t 

AND  L IN  UNITS  OF  2(-4) 

CYTCMn 

M/CS/CS 

, TO  FORCE  IN  PULSE  UNITS. 

A , C. 

REF 

47 

LAST 

470 

31,  2426 

22  130 

0 

QXCH 

BUF 

31, 2427 

0 0006 

1 

EXTEND 

REF 

— 5 

LAST 

310 

-31,  2 430 

7 1244 

0 

MP 

MASS 

LEAVES 

ODDLY  SCALED  FORCE  IN 

A AND  L 

REF 

284 

LAST 

78  1 

31,2431 

52  155 

1 

DXCH 

MPAC 

REF 

15 

LAST 

44  8 

31,2432 

0 7102 

0 

TC 

DMP 

LEAVES 

PROPERLY  SCALED  FORCE 

IM  MPAC 

REP 

4— 

3 1 , 2 433 

02005 

0 

ADRES 

SCAL  EFAC 

REF 

10 

LAST 

78  1 

31, 2434 

0 7256 

1 

TC 

T P AG  P EE 

REF 

285 

LAST 

800 

31,2435 

3 0154 

1 

CA 

MPAC 

31, 2436 

0 0006 

1 

EXTEND 

31,  2437 

1 2442 

0 

BZF 

+ 3 

REF 

15 

LAST 

797 

31,2440 

3 47  33 

1 

CAF 

PDSM AX 

REF 

48^ 

LAST 

800 

3 1, 2441 

0 0130 

0 

TC 

BUF 

REF 

286 

LAST 

800 

31,2442 

52  156 

1 

DXCH 

MPAC  +1 

REF 

49 

LAST 

800 

31,2443 

0 0130 

0 

TC 

BUF 

CONSTANTS 

REF  34  LAST  800 

4737 

FEXTRA 

= 

BIT1  3 

GAP  : 
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L 

THROTTLE  CONTROL  ROUTINES  USER'S  PAGE  NO.  5 E7  S3 

0173 

REF  2 LAST  349  7715  2.PG.FRT  = PRI031  DECIMAL  12800 

0174 

31,2444  04143  0 / AF/CNST  DEC  .13107 

R0177 

a******************************************************* 

GAP:  ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25,1968  FLY  -.109  PAGE  802 


L LUNAR  LANDING  GUIDANCE  EQUATIONS  USER'S  PAGE  NO.  I EO  S3 


P0001 

EBANK- 

E2DP  S 

0003 

REF 

3 LAST 

59  TO  59: 

2 

4* 

COUNT* 

$ $/  F 2DPS 

R0004  #*$*#$#*£#***:$:$:**  **  * £ # ifcijt*  a}:#####*#  afc:  #:{: $ # jjc  **  * £ * * # # * £ * * £ * £ £ % fc  * * ##  * <:  * <s  #3$:  * ££  # * # £ ❖ £ *£  * * * # 

R0006  LUNAR  LANDING  FLIGHT  SEQUENCE  TABLES 

R0007  ***  *********  ****  **********************  ******  *************  ***  ****  ******************************  ************  ****** 


R0009  FLIGHT  SEQUENCE  TABLES  ARE  ARRANGED  BY  FUNCTION.  THEY  ARE  REFERENCED  USING  AS  AN  INDEX  THE  REGISTER  WCHPHASE: 


A0011 
A0012 
AOO 1 8 

WCHPHASE  = 
WCHPHASE  = 
WCHPHASE  = 

-1  - 

0 - 

1 - 

> 

> 

> 

I GNALG 
BRAKQUAD 
BRAKL ING 

A0014 

WCHPHASE  = 

2 - 

> 

APPRQUAD 

AOO  15 

WCHPHASE  = 

3 - 

> 

APPRL ING 

AOO  1 6 

WCHPHASE  = 

4 - 

> 

VERTICAL 

R0017 

*************************************************************************************************************** 

R 00 1 9 ROUTINES  FCR  STARTING  NEW  GUIDANCE  PHASES: 


0020 

REF 

1 

3 1,2445 

1 

2657 

0 

TCF 

TTFI NCR 

I GNALG 

0021 

REF 

2 LAST  802 

31, 2446 

1 

2657 

0 

NEWPHASE  TCF 

TTEI NCR 

BRAKQUAD 

0022 

REF 

1 

31,2447 

1 

2643 

0 

TCF 

L INSET? 

BRAKLING 

0023 

REF 

31,2450 

1 

2627 

_1 

TC  F 

STAR  TP64 

APPRQUAD 

0024 

REF 

1 

31,2451 

1 

2647 

1 

TCF 

LINSET 

APPRLING 

0025 

REF 

1 

31,2452 

1 

2616 

0 

TCF 

P65START 

VERTICAL 

R0026 


R00261 

PRE- 

■GUIDANCE 

COMPUTATIONS : 

00262 

REF 

1 

31,2453 

1 

3025 

1 

TCF 

CALCPGVG 

I GNALG 

00263 

REF 

1 

31,2454 

1 

3035 

0 

PREGUIDE  TCF 

R G VG  CALC 

BRAKQUAD 

00264 

RE-F 

2 

LAST 

80  2 

31,2455 

1 

3035 

_Q 

TCF 

RGVGCALC 

BRAKLING 

00265 

REF 

1 

3 L , 2 456 

1 

2725 

1 

TCF 

REDESIG 

APPRQUAD 

00266 

REF 

3 

LAST 

802 

31,2457 

1 

3035 

0 

TCF 

RGVGCALC 

APPRLING 

00267 

RFF 

4 

1 AST 

802 

31.2460 

1 

3035 

0 

TCF 

RGVGCALC 

VERTICAL 

R00268 

R0027  GUIDANCE  EQUATIONS: 


0028 

0029 

REF 

REF 

1 

— 2— 

LAST 

802 

31.2461 

31. 2462 

1 

1 

3107 

3107 

0 

0 

TCF 

WHATGUID  TCF 

TTF/8CL 
TTF/ ECL 

I GNALG 
BRAKQUAD 

0030 

REF 

1 

31,2463 

1 

3101 

0 

TCF 

L ING  UID 

BRAKLING 

0031 

REF 

3 

LAST 

802 

31,2464 

1 

3107 

0 

TCF 

TTF/BCL 

APPRQUAD 

0032 

REf- 

2 

LAST 

80  2 

31, 2465 

L 

3101 

_0_ 

TCF 

LINGU1P 

BRAKLING 

0033 

REF 

1 

31, 2466 

1 

3477 

1 

TCF 

VERTGUID 

VERTICAL 

R0034 
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| L | 

LUNAR 

LAND  ING 

GUI  DANCE  EQUATIONS 

USER' S P AGF  NO. 

2 

F7  S3 

R0035 

POST 

GUI  DANCE 

EQUATION  COMPUTATIONS: 

o 

TCF 

CGCA  LC 

IGNALG 

0036 

0037 

REF 

REF 

1 

2 

LAST 

803 

31,2470 

1 

3240 

0 

AFTRGUI D TCF 

CGCALC 

8RAKQUAD 

0038 

RFF 

i 

31,2471 

1 

32  70 

0 

TCF 

L I NX LOGC 

BRAKLING 

LAST 

qn  ? 

31  t 2 47? 

1 

3240 

0 

TCF 

CGCALC 

APPRQUAO 

0040 

REF 

2 

LAST 

803 

31, 2473 

1 

3270 

0 

TCF 

LI  NX  LOGC 

APPRL ING 

0041 

REF 

1 

31, 2474 

1 

3411 

1 

TCF 

EXVERT 

VERTICAL 

R0042 


R0043 

WINDON 

VECTOR 

COMPUTATIONS: 

0044 

REF 

1 

31,2475 

1 

3304 

1 

TCF 

EXGSUB 

IGNALG 

0045 

REF 

1 

31, 2476 

1 

3325 

1 

WHATFXIT  TCF 

EXBP  AK 

BRAKQUAD 

8 0 3 

3]  , ? 477 

1 

3325 

1 

TCF 

EXBR AK 

BRAKLING 

0047 

RFF 

1 

31, 2500 

1 

3333 

0 

TCF 

EXNORM 

APPRQUAO 

0048 

REF 

2 

LAST 

803 

31, 2501 

1 

3333 

0 

TCF 

E XNORM 

APPRL ING 

R0050 


R0051 

DISPLAY 

ROUTINES : 

0052 

REF 

2 

LAST 

75  6 

31,  2502 

1 

3441 

1 

WHATDISP  TCF 

P63C  ISPS 

BRAKQUAD 

0053 

REF 

3 

LAST 

80  3 

31,2503 

1 

3441 

1 

TCF 

P63D  I SPS 

BRAKLING 

00  54 

REF 

1 

31,2504 

1 

0 

TCF 

P64D  ISPS 

APPRQUAO 

0055 

REF 

2 

LAST 

80  3 

31,2505 

1 

3445 

0 

TCF 

P64D  ISPS 

APPRL ING 

0056 

REF 

1 

31,  2506 

1 

3475 

0 

TCF 

VFRTDISP 

VERTICAL 

R0057 


R0058 

INDICES  FOR  REFERENCING  TARGET  PARAMETERS: 

0059 

0060 
nn  h i 

31,2507  00000  1 

31.2510  00000  l TARGTDEX 

31.2511  00000  1 

OCT 

OCT 

OCT 

0 IGNALG 

0 BRAKQUAD 

0 BRAKLING 

0062 

0063 

R 0116  4 

31,2512  00030  1 

3 1,  2513  00030  1 

OCT 

OCT 

30  APPRQUAO 

30  APPRL I NG 

R0074 

R0076 

*$££*£$£$***:£*£*«$**$*$*£«$*****£*  ***£*£*£$  £****£$**$**£$  ^Afcfc********  **#«*#*>}:  *****  ****************************** 

ENTRY  PCINTS:  2GUIDSUB  FOR  THE  IGNITION  ALGORITHM,  LUNLAND  FOR  SERVOUT 

R0077 

* **  **  * ****  **  ********  *****  **  **  ****  * ****  ***  ***********************  *********  **************************  *******  ****** 

R0079  IGNITION  ALGORITHM  ENTRY:  DELIVERS  N PASSES  OF  QUADRATIC  GUIDANCE 


0080 

0081 

REF 

44 

LAST 

76  3 

31.2514 

31.2515 

77  776 
3 4752 

1 

0 

?GU  IDSUB 

EXIT 

CAF 

TWO 

N = 3 

0082 

REF 

1 

31,2516 

5 5 ' 645 

0 

TS 

NGUI DSUB 

0083 

REF 

1 

31,2517 

l 2600 

1 

TCF 

GUILDRET 

0084 

REF 

2 

LAST 

803 

31,2520 

5 5 ' 645 

0 

GUI DSUB 

TS 

NGUI DSUB 

ON  SUCEEDING  PASSES  SKIP  TTFINCP 

0085 

REF 

2 

LAST 

80  2 

31, 2521 

1 3025 

1 

TCF 

CALC  RGVG 

GAP 
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R0086 

NORMAL  ENTRY: 

CONTROL  COMES 

HFRE  FROM 

n R'xcz'x  l 

SERVOUT 
LUNL  AND 

XG 

PHA  SCHNG 

0087 

IaCt 

LflJ  1 

t 

o x y c.  JC.  c. 

0088 

31, 2523 

00035 

1 

OCT 

00035 

GROUP  5:  RETAIN  ONLY  P I PA  TASK 

00885 

REF 

56 

LAST 

804 

31,2  524 

0 5353 

1 

TC 

PHASCHNG 

_3_1  2 52  5 

05  02  3- 

-0 

OCT-  - 

0 5023 

GROUP  3:  PROTECT  GUIDANCE  WITH  PR  10  21 

UU  O 7 

0090 

31,2526 

21000 

1 

OCT 

21000 

JUST  HIGHER  THAN  SERVICER'S  PRIORITY 

R 00  9 1 

444444444444  444444444444  444444444444444  4444444444444444  4444  4444444  44  444  444444  44  44444  444  444  444444  44444444444 

R0093 

GU I LD ENS TERN  : 

AUTO 

i-MODES  MONITOR  (R13) 

R0094 

444444444444444 444444 4444444444 444 4444444 444444*4 4* #4 4 4 44% 444444444444444 

0096 

REF 

1 

COUNT* 

1>$/P  13 

R 0097 

U CD  P 

TQ  TWC  DUTinCnDWV  nc 

GUILDENSTERN:  ON 

EVERY 

APPEARANCE  OR 

DISAPPEARANCE  OF  THE  MANUAL  THROTTLE 

R 0099 

DI SCRETE 

TO  SELECT 

P67  OR  P66 

RESPECTIVELY;  ON 

EVERY 

APPEARANCE  OF 

THE  ATTITUDE-HOLD  DISCRETF  TO  SELECT  P66 

R0101 

UNLESS  THE  CURRENT 

PROGRAM  IS 

P67  IN 

WHICH  CASE 

THERE  IS  NO  CHANGE. 

0102 

31,2527 

0 0006 

1 

GUILDEN 

EXTEND 

IS  UN-AUTO-THROTTLF  DISCRETE  PRESENT? 

0103 

REF 

6 

LAST 

755 

31, 2530 

00  030 

1 

STERN 

READ 

C HA  N 30 

0104 

REF 

— 35 

LAST 

75  8 

31,2531 

7 4747 

0 

MASK 

B I T 5 

0105 

REF 

233 

LAST 

769 

31,2532 

10  000 

0 

CCS 

A 

0106 

REF 

1 

31,  2 533 

1 2564 

0 

TC  F 

STAR  TP67 

YES 

01  07 

REF 

5 

LAST 

74  7 

31,2  534 

0 5321 

1 

P67N0W? 

TC 

CHECKMM 

NO:  APE  WE  IN  P67  NOW? 

0108 

31,2535 

001  03 

0 

DEC 

67 

0109 

REF 

1 

31, 2536 

1 2570 

0 

TC  F 

S TAB  L? 

NO 

0110 

REF 

2 

LAST 

799 

3 1 , 2 5 3 7 

0 3721 

0 

STAP.TP66 

TC 

FASTCHNG 

YES 

0111 

REF 

2 

LAST 

386 

31, 2540 

0 5311 

1 

TC 

NEWMODEX 

0112 

31,2541 

00102 

1 

DEC 

66 

0113 

31,2542 

0 0006 

1 

EXTEND 

INITIALIZE  VDGVFRT  USING 

0114 

REF 

6 

LAST 

79  1 

31,2543 

3 1625 

l 

DC  A 

V GU 

PRESENT  DOWNWARD  VELOCITY 

0115 

REF 

1 

31,2544 

53*643 

0 

DXCH 

VDGVERT 

01  16 

REF 

144 

LAST 

800 

31,2  545 

3 4755 

1 

CAF 

ZERO 

0117 

REF 

1 

31,2546 

55' 644 

1 

TS 

RODC  OUNT 

0118 

REF 

1 

31,2547 

55*645 

0 

VRT START 

TS 

WCHVERT 

0119 

REF 

14 

LAST 

789 

31,  2 550 

3 4751 

0 

CAF 

FOUR 

WCHPHAS  E = 4 — > VERTICAL:  P65,P66,P67 

0120 

REF 

3 

LAST 

747 

31, 2551 

55*617 

1 

TS 

WC  H P HOLD 

0121 

REF 

6 

LAST 

78  9 

31, 2552 

55*620 

0 

TS 

WC  HP  HA  SE 

0122 

RE  F 

2 19 

LAST 

79  5 

31,  2 553 

0 4616 

_1_ 

TC 

BANKCALL 

TEMPORARY,  I HOPE  HOPE  HOPE 

0123 

REF 

4 

LAST 

769 

31, 2554 

40165 

1 

CADR 

STOPRATE 

TEMPORARY,  I HOPE  HOPE  HOPF 

0124 

REF 

66 

LAST 

785 

31,2555 

0 5516 

0 

TC 

DOWNFLAG 

PERMIT  X-AXIS  OVERRIDE 

0125 

REF 

— 3— 

LAST 

244 

31,2556 

00311 

.1 

ADRES 

XQV  I NFLG 

0126 

REF 

67 

LAST 

804 

31,2557 

0 5516 

0 

TC 

DOWNFLAG 

0127 

REF 

2 

LAST 

789 

31,2560 

00143 

1 

ADRES 

REDFLAG 

0128 

REF 

68 

LAST 

80  4 

31, 2561 

0 5516 

0 

TC 

DOWN  FLAG 

PERMIT  PULSE-OUTS 

0129 

REF 

1 

31,2562 

00142 

0 

ADRES 

POUTFLAG 

0130 

REF 

2 

LAST 

80  3 

31,2563 

1 2600 

1 

TC  F 

GUIL  DRET 

31.2564  0 5311  1 STARTP67  TC 

31.2565  00103  0 DEC 


0131 

0132 


REF 


3 LAST  804 


NEWMODEX 

67 


NO  HARM  IN  "STARTING"  P67  OVER  AMD  OVER 
SO  NO  NEED  FOR  A FASTCHNG  AND  NO  NEED 
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0133 

0134 

REF 

REF 

6 

1 

LAST 

480 

31,  2 566 
31,2567 

3 43  63 
1 2547 

0 

1 

CAF 

TCF 

TEN 

VRTSTART 

TO 

SEE  IF  ALREADY 

IN  P6  7 

0135 

REF 

35 

LAST 

800 

31,2570 

3 4737 

0 

STABL? 

CAF 

BIT1  3 

I S UN 

-ATTITUDE-HOLD 

DISCRETE 

0136 

31,2571 

0 0006 

1 

EXTEND 

n ] -37 

R £ f 

4 

LAST 

52  9 

31*2572 

02  0 31 

_1__ 

RAND 

CHAN31 

U I J i 

0138 

REF 

2 34 

LAST 

804 

31,2573 

10  000 

0 

CCS 

A 

0139 

REF 

3 

LAST 

804 

31,2574 

l 2600 

1 

TCF 

GUI L DPET 

YES: 

ALL'S  WELL 

0140 

REF 

6 

LAST 

804 

31, 2575 

0 -5321 

1 _ 

P 66 NOW? 

_JX 

CHEC  KMM 

NO.- 

ARE  WE  IN  P66 

NOW? 

0141 

31,2576 

00102 

1 

DEC 

66 

0142 

REF 

1 

31,2577 

1 2537 

0 

TCF 

STAR  TP66 

NO 

AO  1 43  (CONTINUE  TO  GUILDRET)  YES 


RO 144 
R0146 
R0147 


*******  *****  * $ * =ji  *c  If  * if  If  % if  $**«##=!!#  % * ***  if  if  if  $ * *#*  if  if  # **  $ * if  * * fcJK  * * 

INITIALIZATION  FOR  THIS  PASS 

ij!#:******:*#****  ##  ***#*«**«  S*  *#*<■.*$****#*  S****#*#**#*  ***$***#*=■<*****************  **«***«****:**  ##****«*  ******* 


0149 

REF 

4 

LAST 

80  2 TO 

804: 

50 

54* 

COUNT* 

$ $ / F 2DPS 

oi^o 

^ 1 1 ? 600 

o 0006 

1 

OUT  1 DRFT 

EXTEND 

0151 

REF 

3 

LAST 

790 

31,2601 

3 1623 

1 

DC  A 

TPI  P 

0152 

REF 

2 

LAST 

164 

31, 2602 

53*572 

1 

DXCH 

TPI POLD 

0153 

REF 

3 

LAST 

804 

31,2603 

0 3721 

0 

TC 

FAST  CHNG 

0 1 SA 

1 1 t ?6D4 

0 00  06 

1 

EXTEND 

0155 

REF 

7 

LAST 

79  1 

31,2605 

3 1557 

1 

DC  A 

P IPT IME1 

0156 

REF 

4 

LAST 

80  5 

31,2606 

53' 623 

0 

DXCH 

TPIP 

0157 

31,2607 

0 0006 

1 

EXTEND 

0158 

REF 

4 

LAST 

790 

31,2610 

3 1641 

0 

DC  A 

TTF/8 

0159 

REF 

2 

LAST 

164 

31,2611 

53' 551 

0 

DXCH 

TTF / 8TMP 

0164 

REF 

3 

LAST 

747 

31,  2612 

11*621 

1 

CCS 

FLPASSO 

0165 

REF 

3 

LAST 

802 

31,2613 

1 2657 

0 

TCF 

TTF I NCR 

0166 

REF 

7 

LAST 

804 

31, 2614 

51 '620 

1 

BR  SPOT  1 

INDEX 

WCHPHASE 

0167 

REF 

1 

31,2615 

1 2446 

1 

TCF 

NEWPHASE 

R0170  ROUTINES  TO  START  NEW  PHASES 

R0171  &&##*#***#*&***&#***#$#****#*##*#&**#********$*****#**#****#**%%***#******************•#*#*********************** 

0173  REF  4 LAST  804  31,2616  0 5311  1 P65START  TC  NFWMODEX 

0174  31,2617  00101  1 DEC  65 

0175  REF  45  LAST  803  31,2620  4 4752  1 CS  TWO 

0176  REF  2 LAST  804  31,2621  55'645  0 TS  WCHVFPT 

0177  REF  69  LAST  804  31,2622  0 5516  0 TC  DGWNFLAG  PERMIT  X-AXIS  OVERRIDE 

0178  REF  4 LAST  804  31,2623  00311  1 ADRES  XOVINFLC- 


GAP 
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0179  REF  70  LAST  805  31,2626  0 5516  C COMSTART  TC  DOWNFLAG 

0180  REF  2 LAST  806  31,2625  00142  0 ADRES  POUT  FLAG 

0181  REF  4 LAST  805  31,2626  1 2657  0 TCF  TTFINCR 


_ , _ ^ 

3 37  43 

1 

STAR  TP64 

CAF 

OELTTFAP 

AUGMENT  TTF/8  (TWO-PHASF  ONLY) 

018? 

0183 

REF 

3 

LAST 

805 

31,2630 

27*550 

1 

ADS 

T TF / 8TMP 

0184 

REF 

5 

LAST 

80  5 

31, 2631 

0 5311 

1 

+ 2 

TC 

NEWMODEX 

018^ 

31,2  632 

001  00 

0 

DEC 

64 

01851 

REF 

46 

LAST 

80  5 

31,2633 

3 4752 

0 

CAF 

TWO 

01852 

REF 

8 

LAST 

805 

31, 2634 

55*620 

0 

TS 

WCHPHASE 

REF 

3 8 

L A 9 T 

7 a 6 

3 1 , 2635 

3 4740 

0 

CA 

BIT1  2 

ENABLE  RUPT10 

0187 

31,2636 

0 0006 

1 

EXTEND 

0188 

REF 

15 

LAST 

568 

31, 2637 

05  013 

0 

WOR 

CHAN  13 

0 1 8Q 

R F F 

7 1 

1 AST 

80  6 

31,2  640 

0 5516 

0 

TC 

DOWNFLAG 

INITIALIZE  REDESI GNAT  ION  FLAG 

0190 

REF 

3 

LAST 

804 

31, 2641 

00143 

1 

ADRES 

REDFLAG 

0191 

REF 

1 

31,2642 

1 2624 

1 

TCF 

COMSTART 

R0192 

^£^3>:^:^^4:^s>:^3{cj}:^c^:j5£^^:  # jJcj*c  # * # * * # ##  j*c  * # # * # 5jc  * :{c  £ ❖ £ £ * £ £ * * * # ##  sjc  #:}: 

R0194 

SET 

LINEAR  GUIDANCE 

COEFF  IC I ENT  S 

R 0 1 9 5 

A********!!:  *:{:#***$>}**£*#$:{<*  *>[;:iclit3lc  *****  *<!*********>!=  6 **$6  * *X=*  *■  * **  # 

0197 

REF 

4 

LAST 

798 

31, 2643 

3 0102 

1 

L INSET? 

CA 

FLAG  WRD6 

ONE-PHASE  OR  TWO-PHASE? 

0198 

REF 

1 

31,2644 

7 4743 

1 

MASK 

2 PHA SB  I T 

0199 

31,  2645 

0 0006 

1 

EXTEND 

0200 

REF 

2 

LAST 

80  2 

31, 2646 

1 2631 

0 

BZF 

STARTP64  +2 

ONE-PHASE:  GO  DIRECTLY  TO  APPROACH  PHASE 

02  04 

REF 

1 

31, 2647 

0 3667 

0 

LINSET 

TC 

INTPRETX 

0205 

31, 2650 

51  775 

0 

VLOAD 

VSJ* 

~ 

0?06 

R F F 

2 

| AS  T 

1 3 8 

31  f ? 65  1 

0227  1 

1 

ACS 

JLING  = ( ACG  - ADG) /TTF 

0207 

REF 

1 

31,2652 

02417 

1 

ADG , 1 

0208 

31,2653 

70322 

0 

VSR3 

V/ SC. 

0209 

REF 

4 

L AST 

80  6 

31, 2 654 

03551 

0 

TTF / 8TMP 

TTF/3  NOT  YET  UPDATED 

0210 

REF 

2 

LAST 

13  5 

31,2655 

02277 

1 

STORE 

JLING 

JLTNG  IS  IN  UNITS  OF  2(-18)  M/CS/CS/CS 

0211 

31, 2656 

77776 

1 

EXIT 

A0212  (CONTINUE  TC  TTFINCR) 

R02  1 3 $***#*****  #*«=*=!:***  :S  Jit**  # ***<!**##  ***  id## 

R0215  INCREMENT  TTF/8,  UPDATE  LAND  FOR  LUNAR  ROTATION,  DO  OTHER  USEFUL  THINGS 
R0216  ❖ 

R0218  TTFINCR  COMPUTATIONS  ARE  AS  FOLLOWS:- 

P 02 19  TTF/3  UPDATED  FOR  TIME  SINCE  LAST  PASS: 

R 0220  TTF/8  = TTF/3  + (TPIP  - TPIP0LD1/8 

R0221  LANDING  SITE  VECTOR  UPDATED  FOR  LUNAR  ROTATION: 
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L 

R0222 

R0224 


R0226 


R0227 

R0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 


0250 

0251 

0252 
02  53 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 


LUNAR  LANDING  GUIDANCE  EQUATIONS 


USER' S PAGE  NO.  6 E7  S3 


LAND  = /LAND/  UNIT! LAND  - LANDITPIP  - TPIPOLD)  * WM) 
SLANT  RANGE  TO  LANDING  SITE,  FOR  DISPLAY: 


R ANGEDSP  = ABVAL ( LAND  - R) 


REF 

118 

LAST 

796 

31r2  6^7 

0 AO  ^ A 

l 

TTF  1 NCR  TC 

I b T PRET 

31, 2660 

45345 

1 

DLOAD 

DSU 

REF 

5 

LAST 

80  5 

31, 2661 

03623 

0 

TPI  P 

REF 

3 

LAST 

805 

31,2662 

03572 

1 

TPIPOLD 

31,2663 

41461 

1 

SLR 

PUSH 

31,2664 

21214 

0 

1 ID 

31,2665 

47361 

0 

VXSC 

vxv 

REF 

5 

LAST 

792 

31, 2666 

03633 

1 

LAND 

REF 

2 

LAST 

136 

31,2667 

02331 

1 

WM 

31,2670 

0 

BVSU 

RTB 

REF 

6 

LAST 

807 

31, 2671 

03633 

1 

LAND 

REF 

2 

LAST 

352 

31,2672 

21700 

0 

NORMUNIT 

31t  2 673 

76561 

1 

VXSC 

VSL1 

REF 

3 

LAST 

136 

31,2674 

02337 

1 

/LAND/ 

REF 

2 

LAST 

164 

31,2675 

03543 

0 

STORE 

L ANDTEMP 

31,2  676 

51451 

0 

VSU 

A B V A L 

REF 

7 

LAST 

792 

31,2677 

03517 

1 

R 

REF 

3 

LAST 

330 

31,2700 

16532 

1 

STOOL 

RANGEDSP 

31, 2701 

77776 

1 

EXIT 

REF 

287 

LAST 

800 

31,2702 

52  155 

1 

DXCH 

M PA  C 

-SLE-F 5—  LAST  806  31,2703  21*551  0 DAS  TTF/8TMP 


REF 

4 

LAST 

805 

31, 2 704 

0 3721 

0 

TC 

FAST  CHNG 

31,2705 

0 0006 

1 

EXTEND 

REF 

6 

LAST 

807 

31,2706 

3 1551 

1 

DC  A 

TTF/8TMP 

REF 

— 5- 

— LAST 

—80  5 — 

31,2707 

53*641 

1 

DXCH 

TTF/  8 

31,2710 

0 0006 

1 

EXTEND 

R E-F 

3 

LAST 

807 

31,2711 

3 1543 

1 

DC  A 

LANDTEMP 

REF 

7 

LAST 

807 

31,2712 

53*633 

1 

DXCH 

LAND 

31,2713 

0 0006 

1 

EXTEND 

REF 

-4- 

-LAST 

807 

31,  2714 

3 1545 

1 

OCA 

1 ANDTEMP 

+ 2 

REF 

8 

LAST 

807 

31,2715 

53*635 

1 

DXCH 

L ANT 

+ 2 

31,2716 

0 0006 

1 

EXTEND 

REF 

5 

L AS  T__ 

807 

31, 2717 

3 1547 

0 

DC  A 

LANDTEMP 

+4 

REF 

9 

LAST 

80  7 

31,2720 

53*637 

0 

DXCH 

LAND 

+ 4 

REF 

— 1— 

31, 2721 

0 3674 

1 

TC 

TDI S PSET 

REF 

5 

LAST 

807 

31,2722 

0 3721 

0 

TC 

FAST  CHNG 

SHIFT  SCALES  DELTA  TIME  TO  2(17)  CSECS 


NOW  HAVE  INCREMENTED  TT<=/8  IN  TTF/8TMP 


SINCE  REDESIG  MAY  CHANGE  L ANDTFMP 
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0265 

02651 

REF 

REF 

9 

1 

LAST 

806 

31. 2723 

31.2724 

51*620 
1 2454 

1 

1 

BPSP0T2 

INDEX 

TCF 

WCHPHASE 

PREGUIDE 

R0266 

R0268 

R0269 

0271 

£ £*  ££  *****  £$$**#***:{:*£***$*«£#**$**  *******  fc  **$*$*£*******$«$*  *=!:$*$*  #*£*$** 

LANDING  SITE  PERTURBATION  EQUATIONS 

* $***;),**:**$****#**#*$******##  **  *$****$***  *******  Hf**^*iLiiL*A*.**JfJf*  $********  $£**:<:«****:(<  £***:{!£*$*******$*  ***$******* 

REF  5 LAST  806  31,2725  3 0102  1 REDESIG  CA  FLAG  WPD6  IS  REDFLAG  SET? 

-i  r c i 11  . J79H  7 4.746  1 MASK  RFDFLBIT 

0273 

31,2727 

0 0006 

1 

EXTEND 

0274 

REF 

5 

LAST 

802 

31,2730 

1 3035 

0 

BZF 

RGVC-CALC 

NO:  SKIP  REDESIGNATION  LOGIC 

0275 

REF 

1 

31, 2731 

3 1664 

1 

CA 

TREDES 

YES:  HAS  TREDES  REACHED  ZERO? 

0276 

31,2732 

0 0006 

1 

EXTEND 

02  7 7 

REF 

6 

L A^T 

8 0 8 

31  , 2 733 

1 3035 

0 

BZF 

R GV  G CALC 

YES:  SKIP  REDESIGNATION  LOGIC 

0278 

31,2734 

0 0004 

0 

INHINT 

027Q 

REF 

3 

L AR  T 

1 h 5 

31 ,2735 

3 1642 

0 

CA 

FI  INCR1 

0280 

REF 

2 

LAST 

164 

31, 2736 

55' 552 

0 

TS 

EL  I NCR 

0281 

REF 

2 

LAST 

16  5 

31,2737 

3 1643 

1 

CA 

AZINCR1 

02  ft? 

REF 

2 

LAST 

164 

31,2740 

55*554 

0 

TS 

AZINCR 

0283 

REF 

6 

LAST 

807 

31, 2741 

0 3721 

0 

TC 

FAST  CHNG 

^ L t 2 742 

T 47  SR 

CA 

l £ ELD. 

0285 

REF 

4 

LAST 

808 

31, 2743 

5 5 ' 642 

1 

TS 

ELINCPl 

0286 

REF 

3 

LAST 

808 

31,2744 

55*643 

0 

TS 

AZINCP1 

T j T 7 745 

n noo3 

1 

RFI  TNT 

0288 

REF 

3 

LAST 

808 

31, 2746 

55*553 

1 

TS 

ELINCR  +1 

0289 

REF 

3 

LAST 

808 

31,2747 

55 ' 5 55 

1 

TS 

AZINCR  +1 

0290 

REF 

19 

LAST 

612 

31, 2750 

3 0120 

1 

CA 

F IX  L OC 

SET  PD  TO  0 

0291 

REF 

6 

LAST 

614 

31, 2751 

54  166 

1 

TS 

PUSHLOC 

0292 

REF  ] 

L 1 9 

LAST 

807 

31, 2752 

0 6036 

1 

TC 

I NT  P PET 

0293 

31,2753 

52375 

1 

VLOAD 

VSU 

0294 

-REF 

10 

LAST 

807 

31,2754 

03633 

1 

LAND 

0295 

REF 

8 

LAST 

807 

31,2755 

03517 

1 

R 

- 

02  96 

31,2756 

41434 

1 

RTB 

PUSH 

PUSH  DOWN  UNIT  (LAND  - R) 

0297 

REF 

3 

L AST 

807 

31,2757 

21700 

0 

NOPMUNIT 

0298 

31,2760 

76435 

1 

VXV 

VSL1 

0299 

REF 

2 

LAST 

130 

31,2761 

02154 

0 

YNB  P IP 

- 

0300 

31, 2762 

65361 

0 

vxsc 

PDD  L 

PUSH  DOWN  - EL  I NCR ( YNB  * UNITILAND  - R)> 

0301 

RFF 

4 

LAST 

808 

31,2763 

03553 

1 

ELINCR 

0302 

REF 

4 

LAST 

80  8 

31, 2764 

03555 

1 

AZINCR 

0303 

31,2  765 

52361 

1 

vx  sc 

VSU 

0304 

REF 

3 

LAST 

808 

31,2  766 

021  54 

0 

Y NB P IP 

0305 

31, 2767 

41455 

0 

VAD 

PUSH 

RESULTING  VECTOR  IS  1/2  REAL  SIZE 

0306 

31,2770 

45345 

1 

DLOAD 

DSU 

MAKE  SURE  RE DE S I GNA T I ON  IS  NOT 

0307 

31, 2771 

00001 

0 

0 

TOO  CLOSE  TO  THE  HORIZON 
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0308 

0309 
(vi  i n 

REF 

D CC 

1 

31.2772 

31.2773 
31,  2 774 

23762 

71240 

62777 

0 

1 

1 

BMN 

DEPRCRIT 

DLDAD 

RFDES1 

U J 1 u 

0311 

IX  L » 

REF 

2 

LAST 

809 

31,2775 

23762 

0 

DEPRCRIT 

0312 

31,2776 

00001 

0 

STORE 

0 

31,2777 

45345 

1 REDESL 

DLOAD 

DSU 

0313 

0314 

REF 

11 

LAST 

808 

31,3000 

03633 

1 

LAND 

0315 

REF 

9 

LAST 

808 

31,3001 

03517 

1 

R 

03 1 6 

31,3002 

74271 

0 

DOV 

VXSC 

0317 

31,3003 

00001 

0 

0 

0318 

31, 3004 

53455 

0 

VAD 

UNIT 

0319 

REF 

10 

LAST 

809 

31,3  005 

035  17 

1 

B 

0320 

31, 3006 

76561 

1 

VXSC 

VSL1 

0321 

REF 

4 

LAST 

807 

31,3007 

02337 

1 

/LAND/ 

0322 

REF 

6 _ 

LAST 

80  7 

31,3010 

03543 

0 

STORE 

LANDTEMP 

0323 

31,3011 

77776 

1 

EXIT 

LOOKANGL  WILL  BE  COMPUTED  AT  RGVGCALC 

0324  REF  7 LAST  808  31,3012  0 3721  0 TC FAST CHNG 


0325 

REF 

7 

LAST 

809 

31.3013 

31 . 3014 

0 0006 
3 1543 

l 

l 

EXTEND 
DC  A 

LANDTEMP 

0327 

REF 

12 

LAST 

809 

31, 3015 

5 3 ' 6 33 

l 

OXCH 

LAND 

0328 

31,3016 

0 0006 

l 

EXTEND 

0329 

REF 

8 

LAST 

80  9 

3 1 , 3-017 

3 1545 

l 

DC  A 

LANT  TEMP 

+2 

0330 

REF 

13 

LAST 

809 

31, 3020 

53 ' 63  5 

l 

DXCH 

LAND 

+ 2 

0331 

31,3021 

0 0006 

l 

EXTEND 

0332 

REF 

9 

LAST 

80  9 

31, 3022 

3 1547 

0 

DC  A 

LANDTEMP 

+4 

0333 

REF 

14 

LAST 

809 

31,3023 

53*637 

0 

DXCH 

LAND 

+4 

0334 

D CLF 

7 

1 ACT 

on  « 

7 1 ^ 7A9A 

1 7H7R 

n 

TP  F 

r r,\ir,  CMC 

R0335 

<s  *£$*$$$$##*  **>|!  ***.- fc*:*^*##*#  if  if  if  if  if  * if  if  if  $ if  if  $if  if  if%if  if*  if  %if  if  *if  if  if  if  if  **  if  if  ifif  if  if  if  If  ifififififificifififif 

R 0337 

rrwPUTF 

91  AT  F 

tm  nmnANr  p r nnRn 

R0338 

$***#  $$*#*##$>!!!>::):  jrt*****  * # ^***  *****  il1*******^  if***  if  if  if  if  if  if  if  ififififififififififlfif*  if  if  if  if  if  if  if  if  if  *if  * if  i<  $ if  if  & if  if  if* 

R 0340  RGVGCALC  COMPUTATIONS  ARE  AS  FOLLOWS:- 

R0341  VELOCITY  RELATIVE  TO  THE  SURFACE: 


R0342  - - 

R 0343  ANGTERM  = V + R * WM 


R0344  STATE  IN  GUIDANCE  COORDINATES: 

R0345  * 

R0346  RGU  = CG  (R  - LAND) 


R0347 

R0348 


VGU 


jfc — 

CG  (V 


WM  * R) 


GAP  : 

L 

RO  349 

R0350 

R0351 

R0352 
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R0353 

i OOKANGI 

= ARCS  IN7UNJT (R  - LAND1.XMBPIP) 

03541 

03642 

REF 

120 

LAST 

808 

31, 3025 
3 1 , 3026 

0 6036 
643  75 

1 

1 

CALCRGVG  TC 

VLOAD 

INTPRET 

MXV 

IN  IGNALG,  COMPUTE  V FROM  INTEGRATION 
OUTPUT  AND  TRIM  CORRECTION  TFRM 

03543 

REF 

13 

LAST 

79  1 

31, 3027 

00025 

0 

VATT  1 

COMPUTED 

LAST  PASS 

AND  LEFT  IN  UNFC/2 

03544 

REF 

25 

LAST 

790 

31, 3030 

01734 

0 

REFSMMAT 

0354  5 

31, 3031 

53362 

0 

VSR1 

VAD 

0 3 546 

REF 

6 

LAST 

792 

31, 3032 

032  52 

1 

UNFC /2 

03547 

REF 

4 

LAST 

792 

31,3033 

03525 

0 

STORE 

V 

03548  31,3034  77776  I EXIT 


0355 
03  66 

REF 

121 

LAST 

810 

31, 3035 
3 ] T 303^ 

0 6036 
4-73  75 

1 

o 

RGVGCALC  TC 

VL  OAD 

INTPRET 
V Xtf 

ENTER  HERE  TO  RECOMPUTE  RG  AMD  VG 

0357 

REF 

11 

LAST 

809 

31, 3037 

03517 

1 

R 

0358 

REF 

3 

LAST 

807 

31,3040 

02331 

1 

WM 

0359 

31 ,3041 

70455 

1 

VAD 

VSR-2 

RESCALE  TO  UNITS  OF  2(6)  M/CS 

0360 

REF 

5 

LAST 

810 

31, 3042 

03525 

0 

V 

0361 

REF 

2 

LAST 

13  5 

31, 3043 

02305 

0 

STORE 

ANGT ERM 

0362 

31,3044 

77721 

0 

MXV 

0363 

REF 

5 

LAST 

790 

31, 3045 

02510 

1 

C G 

NO  SHIFT  SINCE  ANGTERM  IS  DOUBLE  SIZED 

0364 

REF 

7 

LAST 

804 

31,3046 

03625 

0 

STORE 

VGU 

0365 

31, 3047 

55525 

0 

PDDL 

VD£F 

FORM  ( 0 , VG  , VG  ) IN  UNITS  OF  2(10)  M/CS 

0366 

REF 

14 

LAST 

790 

31, 3050 

06424 

0 

ZERPVECS 

2 1 

0367 

31,3051 

52446 

0 

ABVAL 

SL3 

0368 

REF 

3 

LAST 

33  0 

31, 3052 

26267 

0 

STOVL 

VHDP  I Z 

VH0RI7  FOR  DISPLAY  DURING  P65,  P66,  P67 

0369 

REF 

12 

LAST 

810 

31, 3053 

03517 

1 

R 

0370 

31,3054 

41451 

1 

vsu 

PUSH 

PUSH  DOWN  R - LANO 

0371 

REF 

15 

LAST 

80  9 

31, 3055 

03633 

1 

LAND 

0372 

31,3056 

76521 

0 

MXV 

VSL  1 

0373 

REF 

6 

LAST 

810 

31,3057 

02510 

1 

CG 

0374 

REF 

5 

LAST 

79  1 

31, 3060 

26544 

0 

STOVL 

RGU 

0375 

31,3061 

50234 

1 

RTB 

DOT 

NOW  IN  MPAC  IS  SINE(LOOKANGL) /4 

0376 

REF 

4 

LAST 

808 

31, 3062 

21700 

0 

NORMUNIT 

0377 

REF 

2- 

-LAST 

130 

31, 3063 

02146 

0 

XN3 P I P 

0376 

31,3064 

77776 

1 

EXIT 

0378  1 

RFF 

20 

L AST 

80  8 

31 , 3065 

3 0120 

1 

C A 

f j x i nr 

RESET  PUSH  DOWN  POINTER 

03782 

REF 

7 

LAST 

808 

31, 3066 

54  166 

1 

TS 

PUSH  LOC 

0379 

REF 

2 88 

LAST 

807 

31,3067 

3 0154 

1 

CA 

MPAC 

COMPUTE  LOOKANGL  ITSELF 

0380 

31,3070 

6 0000 

1 

DOUBLE 

0381 

RFF 

220 

LAST 

804 

31,3071 

0 4616 

1 

TC 

BANKCALL 
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0382 

REF 

1 

31 , 3072 

61643 

1 

CADR 

SPAR  CSIN 

-1 

0383 

REF 

1 

31,3073 

6 3742 

0 

AD 

1/2DEG 

3 1 , 3074 

0 0006 

1 

EX  TEND 

0385 

REF 

1 

31,3075 

7 3741 

1 

MP 

1 80DEGS 

0386 

REF 

1 

31, 3076 

55 1 665 

1 

TS 

LOOKANGL 

LOOKANGL  FOR  DISPLAY  DURING  P64 

0387 

REF 

10 

LAST 

808 

31,3077 

5 1 ' 620 

1 

BRSP0T3 

INDEX 

WCHPHASF 

0388 

REF 

1 

31, 3100 

1 2462 

1 

TCF 

WHAT  GUI  0 

R 03  89 

jjssjcaji  # **#$  £ *$£  I***#  $***  # $ # *****  * ^ 4: 4c^c  * * ^ £ 4:4:  * ❖ £ * $ $ * * $ # £ # # * ❖ ***  * £ £ £ # * ^ * £ £ £ # £ * 

R0391 

LINEAR  i 

GUICANCE  EQUATION 

R 0 3 9 2 

0394 

REF 

2 

LAST 

806 

31,  3101 

0 3667 

0 

L INGUID 

TC 

I NTPRETX 

0395 

31t  3102 

743  75 

0 

VLOAD 

VXSC 

— — — 

0396 

REF 

3 

LAST 

806 

31,3103 

02277 

1 

JL  ING 

ACG  = ADG  + JLING  TTF 

0397 

REF 

6 

LAST 

807 

31, 3 104 

03641 

1 

TTF/8 

0398 

31,3105 

52132 

0 

VSL3 

GCTO 

PICK  UP  THE  VAD*  AT  AFC  CALC 

0399 

REF 

1 

31,3106 

63171 

0 

AFCC ALC 

R 0400 

*********************************************************************************************************$****** 

R0402 

TTF/4  COMPUTATION 

R0403 

*$**$*£***$##* £**  $ £ £ $ # *:  # * $ #3*  £ £ £ * £ £ ajc  * * $ £ # £*  **  jjc  # # * £ # * * # $$  # ##  # * £ # * * # * £ * ##  # 5*e $:  # 

0405 

REF 

3 

LAST 

81  1 

31,3107 

0 3667 

0 

TTF /8CL 

TC 

INTPRFTX 

0406 

31,  3110 

77743 

1 

DLOAO* 

0407 

REF 

1 

3 1 T 3111 

02431 

0 

JDG2TTF, 1 

0408 

REF 

3 

LAST 

164 

31,3112 

23567 

1 

STOOL  * 

TABL  TTF 

+6 

A ( 3 ) = 8 JDG  TO  TABLTTF 

0409 

REF 

1 

31,3113 

02427 

1 

ADG2TTF,  1 

2 

04  10 

REF 

4 

LAST 

8 11 

31,3114 

17565 

-1 

STODL 

TAB  L TTF 

+ 4 

A ( 2 ) = 6 ADG  TO  TABLTTF 

0411 

REF 

8 

LAST 

810 

31,3115 

036  31 

0 

VGU 

+4 

2 

0412 

31,3116 

42605 

l 

DM  P 

DAD* 

0413— 

REF 

— 1 

31, 3117 

23755 

1 

3/4DP 

0414 

REF 

1 

31,3120 

02425 

0 

VDG2TTF, 1 

0415 

REF 

5 

LAST 

811 

31,3121 

23563 

0 

STODL* 

TABL  TTF 

+2 

All)  = (6  VGU  + 18  VDG  ) /8  TO  TABLTTF 

0416 

REF- 

1 

31,3  122 

02407 

JQ 

RDG  +4,1 

2 2 

0417 

31,  3 123 

41225 

1 

DSU 

D MP 

0418 

REF 

6 

LAST 

810 

31, 3124 

02  5 50 

0 

R GU 

+4 

0419 

REF 

1 

31,3125 

23753 

1 

3/SDP 

0420 

REF 

6 

LAST 

81  1 

31,3126 

03561 

0 

STORE 

TABL  TTF 

A 1 0 ) = -24IRGU  - RDG  ) /64  TO  TABLTTF 

0421 

31,3127 

77776 

1 

EXIT 

2 2 

0422 

REF 

28 

LAST 

62  3 

31, 3130 

3 4744 

1 

CA 

BITS 

0423 

REF 

7 

LAST 

8 1 1 

31,3131 

55 ' 570 

0 

TS 

TABLTTF 

+10 

FRACTIONAL  PRECISION  FOR  TTF  TO  TABLE 

0424 

31,3132 

0 0006 

1 

EXTEND 

0425 

REF 

7 

LAST 

81  1 

31, 3133 

3 1641 

0 

OCA 

TTF/8 

0426 

REF  289 

LAST 

810 

31,3134 

52  155 

1 

DXCH 

MPAC. 

LOADS  TTF/8  (INITIAL  GUESS)  INTO  MPAC 

0427 

REF 

47 

LAST 

806 

31,3135 

3 4752 

0 

CAF 

TWO 

DEGREE  - ONE 

0428 

REF  ; 

L 09 

LAST 

78  1 

31, 3136 

54  001 

1 

TS 

L 
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0429 

REF 

1 

31, 3137 

3 3733 

0 

CAF 

TABLTTFL 

0430 

REF 

1 

31,3140 

0 3543 

0 

TC 

ROOTPSRS 

YIELDS  TTF / 8 IN  MPAC 

n a.  ^ i 

REF 

/f 

LAST 

468- 

31*3141 

-0  56  52 

0 

TC 

POOD  CO 

BAD  RETURN . 

Utji 

0432 

31, 3142 

01406 

1 

OCT 

01406 

0433 

31,3  143 

0 0006 

1 

EXTEND 

GOOD  RETURN 

0434 

R EF 

290 

L AST- 

8 1 1 

SI ,3144 

3 0155 

0 

DC  A_ 

mpac 

FETCH  TTF/ 8 KEEPING  IT 

0435 

REF 

B 

LAST 

81  1 

31 , 3145 

53 1 641 

1 

DXCH 

TTF  / 8 

CORRECTED  TTF/8 

nz.  i a 

ore 

o 

1 AQ  T 

80  7 

31,3 146 

0 3674 

_4 

TC 

TDISPSFT 

Ut  5 O 

A0437 

IVUr 

C 

(CONTINUE 

TO  QUADGUID) 

R043  8 **************************************************************************************************************** 

R 0440  MAIN  GUIDANCE  EQUATION 

R0441  ******  ***********  ************  **************  ***********  ******  ******  ************  ****  ******  *************  *********** 


R0443  AS  PUBL  l SHED:  - 


R0444  - - 

R0445  - - 6 ( V DG  + VG ) 12IRDG  - RG) 

R0446  ACG  = ADG  + + 

R0447  TTF  (TTFI(TTF) 


R0448  AS  HERE  PROGRAMMED:- 


R0449 

R0450 

3 

(1/4IRDG 

- RG) 

_ 

R0451 

- 

( 

+ 

VDG  + VG 

R04B? 

4 

i TTF/A 

R0453 

ACG  = 

R0454 

TTF/8 

0455 

REF 

1 

31,3147 

3 3732 

i 

QUADGUID 

CAF 

30SEC+17 

0456 

REF 

9 

LAST 

812 

31,3150 

6 1640 

i 

AD 

TTF/8 

0457 

31,3151 

0 0006 

1 

EXTEND 

0458 

REF 

1 

31,3  152 

6 31  55 

0 

BZMF 

q**[>g**D 

0459 

REF 

45 

LAST 

786 

31,  3 153 

0 5504 

0 

TC 

UPFL  AG 

0460 

REF 

3 

LAST 

806 

31,3154 

00142 

0 

ADRES 

POUTFLAG 

0461 

REF 

4 

LAST 

81  l 

31,3155 

0 3667 

0 

q**DG**D 

TC 

INTPRETX 

0462 

31, 3156 

52373 

1 

VLOAD* 

VSU 

0463 

REE 

2 

LAST 

811 

31 , 3 15  7 

02403 

1 

PDG,  1 

0464 

REF 

7 

LAST 

811 

31,3160 

02544 

0 

RGU 

0465 

31,3161 

70541 

0 

V/ SC 

VSR2 

0466 

REF 

10 

LAST 

812 

31,3162 

03641 

l 

TTF/8 

0467 

31, 3163 

53253 

0 

V AD* 

VAD 

0468 

REF 

1 

31,3164 

0241  l 

1 

VDG  , 1 

0469 

REF 

9 

LAST 

8 1 1 

31,3165 

03625 

0 

VGU 

0470 

31, 3166 

74341 

1 

V/SC 

VX  SC 

0471 

REF 

11 

LAST 

812 

31,3167 

03641 

1 

TTF/8 

PULSF-OUTS  ARE  INHIBITED  WHENEVER 
TTF  < 30  SECONDS,  REGARDLESS  OF 
THE  DURATION  OF  LINEAR  __G  U_  I DAN  C E 


GAP 
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04  72 

REF 

2 

LAST 

81  1 

31,3170 

23755 

1 

3/4DP 

0473 

31,3171 

776  53 

1 

AFC  CAL  C 

VAD* 

_ 

3 1 1 3 172 

024  l 7 

1 

AD3  , 1 

CURRENT  TARGET  ACCELERATION 

0474 

0475 

REF 

3 

LAST 

806 

31, 3173 

02271 

1 

STORE 

ACG 

0476 

31,3174 

765  05 

0 

AFCCALC1 

VXM 

VS  L 1 

VERTGUID  COMES  HERE 

7 

L a<;  t 

r 1 n 

31*3175 

025  10 

1 

_ CG 

0478 

31, 3176 

703  15 

1 

PD  VL 

V/SC 

0479 

REF 

6 

LAST 

790 

31,3177 

01237 

0 

GDT/2 

Q4  8 0 

REF 

1 

31 , 3200 

23751 

0 

GSC  A LF 

0481 

3 1,3201 

45445 

0 

BVSU 

STADR 

0482 

REF 

7 

LAST 

8 10 

31 , 3202 

74525 

0 

STORE 

UNFC/2 

UNFC/2  NEED  NOT  BE  UNITIZED 

0483 

31,3203 

77646 

0 

A8VAL 

0484 

REF 

2 

LAST 

797 

31, 3204 

03574 

1 

AFCCALC2 

STORF 

/A-C/ 

MAGNITUDE  OF  AFC  FOP  THROTTLE 

0485 

31, 3205 

71214 

0 

BON 

DLOAD 

0486 

REF 

1 

31, 3206 

03306 

1 

2 PH A SFIG 

0487 

REF 

1 

31,3207 

63231 

1 

AFCC  LEND 

0488 

REF 

8 

LAST 

813 

31,3210 

03252 

1 

UNFC/2 

VERTICAL  COMPONENT 

04i*9 

31,3211 

653  16 

0 

DSQ 

PDDL 

0490 

REF 

9 

LAST 

813 

31,3212 

032  54 

1 

UNFC/2  +2 

OUT-OF-PL ANF 

0491 

31,3213 

65316 

0 

DSQ 

PDDL 

0492 

REF 

1 

31,3214 

23735 

1 

HIGHESTF 

0493 

31, 3215 

63471 

0 

DDV 

DSQ 

0494 

REF 

6 

LAST 

800 

31,3216 

01245 

0 

MASS 

2 2 2 

0495 

31,3217 

45225 

0 

DSU 

DSU 

AMAXHORIZ  = SQRTIATOTAL  - A - A ) 

04951 

31, 3220 

71244 

0 

BP  L 

DLOAD 

1 0 

04952 

REF 

1 

31, 3221 

63223 

1 

AFCC ALC3 

0495  3 

REF 

1 5 

last 

810 

31, 3222 

06424 

0 

ZERO VECS 

0496 

31, 3223 

43366 

0 

AFCCALC3 

SORT 

DAD 

0497 

REF 

10 

LAST 

8 1 3 

31, 3224 

03256 

0 

UNFC/2  +4 

0498 

31,3225 

44244 

0 

BPL 

BDSU 

0499 

REF 

2 

LAST 

813 

31, 3226 

63231 

1 

AFCC  LEND 

0500 

REF 

11 

LAST 

81  3 

31, 3227 

03256 

0 

UNFC/2  +4 

0501 

REF 

12 

LAST 

813 

31, 3230 

03256 

0 

STORE 

UNFC/2  +4 

0502 

31,  3231 

77776 

1 

AFC  CL  END 

EX  IT 

0503 

REF 

8 

LAST 

809 

31, 3232 

0 3721 

0 

TC 

FAST  CHNG 

05031 

REF 

11 

LAST 

8 1 1 

31, 3233 

3 1620 

1 

CA 

WCHPHASE 

PREPARE  FOR  PHASE  SWITCHING  LOGIC 

05032 

REF 

4 

LAST 

804 

31, 3234 

55 ' 6 1 7 

1 

TS 

W C H P HOLD 

0503  3 

REF 

4 

L AST 

80  5 

31,3235 

25' 621 

0 

INCP 

FLPA  SSO 

INCREMENT  PASS  COUNTER 

0504 

REF 

12 

LAST 

813 

31, 3236 

51*620 

1 

BRSP0T4 

INDEX 

WCHPHASF 

0505 

REF 

1 

31.3237 

1 24  70 

1 

TC  F 

AFTR  GUI D 

R0506 

***** ************ **** ******************* 

***  *****************  * * * * * * * $ * * * * * **  * * * * * **  * * * **  * * * * * * * * **  * **  * **  **  ajc  **  £ ** 

R0508 

ERECT 

GUIDANCE- 

-STABLE 

MEMBER 

TRANSFORMATION  MATRIX 

R0509 

*£***$$**#  *❖  ****❖  ****  * **  * * ***  * ****  ❖❖4= 

******************************* 

*****  ************************************** 

05 1 1 

RFF  122 

LAST 

8 10 

31,  3240 

0 6036 

i 

CGCALC 

TC 

I NT P RET 

0512 

31, 3241 

53575 

0 

VLOAD 

UNIT 

0513 

REF 

16 

LAST 

810 

31,3242 

036  33 

1 

LAND 
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0514 

REF 

8 

LAST 

813 

31, 3243 

26510 

1 

STOVL 

CG 

0515 

REF 

3 

LAST 

8 10 

31,3244 

02305 

0 

ANGTERM 

31t  3245 

53361 

0 

VXSC 

VAD 

0517 

REF 

12 

LAST 

812 

31, 3246 

03641 

1 

T TF  / 8 

0518 

REF 

17 

LAST 

813 

31, 3247 

03633 

1 

LAND 

31 1 3 75D 

47051 

0 

vsu 

R T E 

0520 

REF 

13 

LAST 

8 10 

31, 3251 

03517 

1 

R 

0521 

REF 

5 

LAST 

810 

31,3252 

21700 

0 

NORMUNIT 

31  f 3 753 

47035 

1 

vxv 

P TB 

0523 

REF 

18 

LAST 

814 

31, 3254 

03633 

1 

LAND 

0524 

REF 

6 

LAST 

814 

31,3255 

21700 

0 

NORMUNIT 

REF 

9 

L A$  T 

ft  1 4 

3 1 , 3756 

26516 

1 

STOVL 

CG  +6 

0526 

REF 

10 

LAST 

814 

31,3257 

02510 

1 

CG 

0527 

31 , 3260 

76435 

1 

VXV 

VS  L 1 

08  7ft 

RFF 

Li 

L £ST 

814 

31 1 3261 

02516 

1 

CG  +6 

0529 

REF 

12 

LAST 

814 

31,3262 

02524 

0 

STORE 

CG  +14 

0530 

31, 3263 

77776 

1 

EXIT 

FIRST  ROW 

REMEMBER  THAT  ANGTERM  IS  DOUBLE-SIZED 


SECOND  ROW 


A0531  (CONTINUE  TO  EXTLOGIC) 

R0532  *******************************  ********************************************************************************* 

RO 534  PREPARE  TO  EXIT 

R0535  **************************************************************************************************************** 


R0537 

DECIDE 

( 1 ) HOW 

TO 

EXIT,  AND 

(2)  WHETHER 

TO  SWITCH  PHASES 

0 5 38 

REF  13 

LAST 

8 13 

31, 3264 

11*620  0 

f xti  n<vi  r rr  ft 

WCHPHASE 

0539 

REF  235 

LAST 

80  5 

31,3265 

50  000  1 

INDEX 

A 

WCHPHASE  = +2 

APPRQUAD 

A = 1 

0540 

REF  3 

LAST 

287 

31, 3266 

3 1425  0 

CA 

TENDBRAK 

WCHPHASE  = +0 

BRAKQU AD 

A = 0 

0541  REF  - 1 31,3267 1 3271  1 TCF  EXSP-0T1  -1  WCHPHASE  = -1  IGNALG  A = 0 


0542 

REF 

1 

31,3270 

3 

3727 

0 

LINXLOGC 

CA 

3 S E C * 1 7 

0543 

REF 

13 

LAST 

814 

31,3271 

6 

1640 

1 

AD 

T TF/  8 

0551 

31,3272 

0 

0006 

1 

EX  S POT  1 

EXTEND 

0552 

RE-F — 

14- 

L AST 

—814 

31,3  273 

5 

1620 

1 

INDEX 

WCHP  BASF 

0553 

RFF 

1 

3 1 , 3 2 74 

6 

2476 

0 

BZMF 

WHAT  EX  IT 

0554 

REF 

— 9— 

L AST- 

813 

31, 3275 

0 3721 

0 

TC 

F ASTCHNC 

0555 

REF 

5 

LAST 

813 

31, 3276 

3 1617 

0 

CA 

WCHP  HOLD 

0556 

R EF 

-88 

LAST 

800 

31,3277 

6 4753 

1 

AD 

ONE 

0557 

31,3300 

22  007 

0 

ZL 

+ 0 

0558 

REF 

15 

LAST 

814 

31,3301 

5 3 ' 62  1 

1 

DXCH 

WCHPHASE 

ADVANCING  WCHPHASE  AND  RESETTING  FLPASSO 

0559 

REF 

6 

LAST 

814 

31, 3302 

51*617 

0 

INDEX 

WCHP  HOLD 

0560 

REF 

2 

LAST 

8 1 4 

31, 3303 

1 2476 

1 

TCF 

WHAT  EXIT 

R0561  **********  *******  **************************  ************  *********  *************************************  *******  * **  * 

R0563  ROUTINES  FOR  EXITING  FROM  LANDING  GUIDANCE 


GAP: 

L ' 

R0564 

R0566 

R0568 
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l . EXGSUB  IS  THE  RETURN  WHEN  GUIDSUB  IS  CALLED  BY  THE  IGNITION  ALGORITHM. 

2.  EXBRAK  IN  THE  EXIT  USED  DURING  THE  BRAKING  PHASE.  IN  THIS  CASE  UNITIRI  IS  THE  WINDOW  POINTING  VECTOR. 


R0570 

3. 

EXNORM  IS 

THE  EXIT 

USED  AT 

OTHER  TIMES 

DURING 

THE  BURN. 

t F vn\/Fi  nw 

IQ  A Q 1 IRRm  IT  TMF  HF 

FXBRAK  AND 

EXNORM 

CALL  ED  WHEN- 

OVERFLOW  OCCURRED  ANYWHERE  IN  GUIDANCE.) 

0573 

REF 

123 

LAST 

81  3 

31, 3304 

0 6036 

1 

EXGSUB 

TC 

INTPRET 

COMPUTE  TRIM  VELOCITY  CORRECTION  TERI 

31 t B 305 

47  1 75 

1 

VLOAD 

RTB 

05732 

REF 

13 

LAST 

813 

31,3306 

03252 

1 

JNFC /2 

05733 

REF 

7 

LAST 

814 

31, 3307 

21700 

0 

NCR  MUN I T 

057b  4 

31,3310 

74361 

0 

VXSC 

VXSC 

05735 

REF 

5 

LAST 

792 

31,3311 

03425 

1 

ZOOMTIME 

05736 

REF 

1 

31,3312 

22001 

0 

TRIM  ACCL 

OS  7 1 7 

REF 

14 

LAST 

8 15 

31,3313 

03252 

J. 

STORE 

UNFC/2 

05738 

31,3314 

77776 

1 

EXIT 

QR  7^  9 

R E F 

3 

LAST 

80  3 

31,3315 

1 1 » 645 

o 

CCS 

NGUI DSUB 

0574 

REF 

i 

31, 3316 

1 2520 

6 

TC  F 

GUIDSUB 

0575 

REF 

3 

LAST 

791 

31,3317 

1 1 ' 644 

l 

CCS 

NIGNLOOP 

0576 

31, 3320 

1 3323 

i 

TC  F 

+ 3 

0577 

REF 

31 

LAST 

779 

31,3321 

0 5567 

0 

TC 

ALARM 

0578 

31, 3322 

01412 

1 

OCT 

01412 

0579 

REF 

44 

LAST 

793 

31,3323 

0 4635 

0 

+ 3 

TC 

POST  JUMP 

0580 

REF 

1 

31, 3324 

65075 

0 

CADR 

DOUMCALC 

0585 

REF 

124 

LAST 

815 

31, 3325 

0 6036 

1 

EXBRAK 

TC 

INTPRET 

0586 

31, 3326 

77775 

1 

VLOAD 

0587 

REF 

2 

LAST 

16  2 

31, 332  7 

03535 

1 

UNI T /R7 

0588 

REF 

2 

LAST 

15  1 

31,3330 

03260 

0 

STORE 

UNWC /2 

0589 

31,3331 

77776 

1 

EXIT 

05  90 

REF 

1 

31, 3332 

1 3405 

1 

TC  F 

STEER? 

0591 

REF 

125 

LAST 

8 1 5 

31, 3333 

0 6 0 36 

1 

EXNORM 

TC 

I NTPRET 

0592 

31, 3334 

52375 

1 

VLOAD 

VSU 

0593 

REF 

19 

LAST 

8 1 4 

31, 3335 

03633 

1 

LAND 

0594 

REF 

14 

LAST 

814 

31,3336 

03517 

1 

R 

0595 

31,3337 

77634 

0 

RTB 

0596 

REF 

8 

LAST 

8 15 

31,3340 

21700 

0 

NOPMUNIT 

0597 

REF 

3 

LAST 

815 

31,3341 

03260 

0 

STORE 

UNWC /2 

UNITILAND  - R)  IS  TENTATIVE  CHOICE 

0598 

31,  3342 

50235 

0 

VXV 

DOT 

0599 

REF 

3 

LAST 

8 1 0 

31, 3343 

02146 

0 

XNBP  IP 

0600 

REF 

13 

LAST 

8 1 4 

31,3344 

02516 

1 

C G +6 

0601 

31,3345 

77776 

1 

EXIT 

WITH  PROJ  IN  MPAC  1/8  REAL  SIZF 

0602 

REF 

291 

LAST 

812 

31,3346 

4 0154 

0 

CS 

MPAC 

GET  COEFFICIENT  FOR  CG  +14 

GAP:  A SSFMBL  E REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25,1963  FLY 

L LUNAR  LANDING  GUIDANCE  EQUATIONS  USER'S  PAGE  NO. 


» 109  PAGE  816 
15  E 7 S3 


0603 

0604 

REF 

REF 

1 

16 

LAST 

800 

31,3347 

31,3350 

6 3763 
6 4733 
44.  1 TO 

0 

1 

1 

AD 

AD 

TS 

PRDJ  MAX 

POSMAX 

BUF 

0605 

06  06 

REF 

51 

LAST 

816 

31,3352 

4 0130 

1 

cs 

BUF 

0607 

REF 

52 

LAST 

8 16 

31, 3353 

26  130 

1 

ADS 

BUF 

RESULT  IS  0 IF  PROJMAX  - PROJ  NEGATIVE 

0608 

REF 

1 

31, 3354 

4 3764 

0 

CS 

PROJ MIN 

GET  COEFFICIENT  FOP  UN  I T 1 L AND  - R) 

0609 

REF 

292 

LAST 

8 1 5 

31,3355 

6 0154 

1 

AD 

MPAC 

06 1 n 

REF 

1 7 

| AST 

o 1 6 

31 1 3356 

6 4733 

1 

AD 

POSMAX 

0611 

REF 

53 

LAST 

8 16 

31,3357 

54  131 

0 

TS 

BUF  +1 

0612 

REF 

54 

LAST 

816 

31,3360 

4 0131 

0 

CS 

BUF  +1 

06  1 3 

REF 

55 

LAST 

816 

31,3361 

26  131 

0 

AOS 

BUF  +1 

RFSULT  IS  0 IF  PROJ  - PROJMIN  NEGATIVE 

0614 

REF 

15 

LAST 

804 

31, 3362 

3 4751 

0 

CAF 

FOUR 

061  ^ 

REF 

1 6 

| AST 

7 3 3 

31 1 3363 

7 6241 

1 

UNWCLOOP 

MASK 

SIX 

0616 

REF 

158 

LAST 

800 

31, 3364 

54  002 

1 

TS 

Q 

0617 

REF 

6 

LAST 

797 

31, 3365 

3 5014 

1 

CA 

EEANK5 

0618 

REF 

22 

| AST 

79  8 

31 1 3366 

54  003 

0 

TS 

E BANK 

0619 

REF 

14 

LAST 

815 

E 5 , 1 507 

E8 ANK= 

CG 

0620 

REF 

56 

LAST 

816 

31,3367 

3 0130 

0 

CA 

BUF 

06  21 

31 , 3370 

0 0006 

1 

EX  TEND 

0622 

REF 

199 

LAST 

816 

31,3371 

5 0002 

0 

INDEX 

Q 

0623 

REF 

15 

LAST 

816 

31,3372 

7 1523 

0 

MP 

CG  +14 

0624 

REF 

19 

LAST 

75  7 

31 , 3 373 

24  006 

1 

INCR 

BBANK 

0625 

REF 

4 

LAST 

81  5 

F6, 1657 

EBANK= 

UNWC /2 

0626 

REF 

200 

LAST 

8 16 

3 l , 3 3 74 

50  002 

0 

INDEX 

3 

0627 

REF 

5 

L AST 

816 

31 , 3375 

53' 660 

1 

DXCH 

UNWC /2 

0628 

31,3376 

0 0006 

1 

EXTEND 

0629 

REF 

57 

LAST 

816 

31,3377 

7 0131 

0 

MP 

BUF  +1 

0630 

REF 

201 

LAST 

816 

31 , 3400 

5 0 0 02 

0 

I NDE  X 

Q 

0631 

REF 

6 

LAST 

816 

31, 3401 

21' 660 

1 

DAS 

UNWC /2 

0632 

REF 

202 

LAST 

816 

31,3402 

10  002 

1 

CCS 

Q 

0633 

REF 

1 

3 1 ,3403 

1 3363 

0 

TCF 

UNWC  LOOP 

0634 

REF 

20 

LAST 

816 

31, 3404 

24  006 

1 

INCR 

BBANK 

0635 

-R  E F 

11 

LAST 

800 

F 7 , 1610 

EB ANK= 

P IF 

0636 

REF 

19 

LAST 

76  8 

31 , 3405 

3 0076 

0 

STEER? 

CA 

F LAGWRO? 

IF  STEERSW  DOWN  NO  OUTPUTS 

0637 

REF 

1 - 

31 f 3406 

7 4741 

o 

MA  SK 

STEE  RBI T 

0638 

31,3407 

0 0006 

1 

EXTEND 

0639 

REF 

1 

31,3410 

1 3416 

0 

BZF 

RATE  STOP 

0640 

REF 

1 

31,3411 

3 0121 

0 

EXVERT 

CA 

□VF 1 ND 

IF  OVERFLOW  ANYWHERE  IN  GUIOANCE 

0641 

31, 3412 

0 0006 

1 

EXTEND 

DON'T  CALL  THROTTLE  OR  FINDCDUW 

0642 

31,3413 

1 3421 

1 

BZF 

+ 6 

0643 

0644 

REF  32 

LAST 

815 

31.3414 

31.3415 

0 5567 
01410 

0 

0 

FXOVFLOW 

TC 

OCT 

ALARM 
0141  0 

SOUND 

THE 

ALARM  NON- 

•ABORTIVELY. 

0645 

REF  221 

LAST 

8 10 

31,3416 

0 4616 

1 

R ATESTOP 

TC 

BANKCALL 

CLEAN 

UP 

AFTER  LAST 

FINDCDUW 

GAP 
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0646 

REF 

5 

LAST 

80  4 

31, 3417 

40165 

1 

CADR 

STOPRATE 

8 1 f 34?0 

1 34  76 

o 

Tf  F 

f)  I S p E X I T 

0648 

REF 

1 

31,3421 

0 2247 

1 GDUMPl 

TC 

THROTTLE 

P EF 

1 2 6 

| AST 

8 1 5 

8 1 f 34?? 

0 6036 

1 

TC 

INTPRET 

0650 

31,  3423 

77624 

1 

CALL 

0651 

REF 

3 

LAST 

779 

31, 3424 

61062 

1 

FINDCDUW  - 

0652 

31, 3425 

—77776 

1 

EXIT 

A0653 


(CONTINUE  TO  DISPFXIT) 


R06  54-  ***#juM***JW-***fc*  **************  tftnJfUftfiHf  #*$*=X*4  4Xt*X=4*«4*4$*4** 

R 0656  GUICANCE  LCOP  DISPLAYS 

R06  57  4=*^*  * «*=):  **^  # Jjc##*  $$$:{!*  %&&$###  $ $ $*$$#$=!!*  #4=  X=X=  $ 4 * 4 *4  * <=£  * 4 4*4  4 4 * # £ £4  * * 4 **  * 4 


0659 
06591 
0659  2 

REF 

-REF 

13 

2 

LAST 

LAST 

752 
22  9 

31. 3426 

31.3427 
31, 3430 

0 0006 
3 4755 
52  757 

i 

i 

0 

DISPEXIT 

EXTEND 
DC  A 
DXCH 

i 

NEGO 

-PHASE3 

KILL  GROUP  3:  DISPLAYS  WILL  BE 

RESTORED  BY  NEXT  GUIDANCE  CYCLE 

0660 

REF 

9 

LAST 

746 

31,3431 

4 

01  04 

0 

CS 

FLAG  WRD8 

IF  FLUNDISP  SET,  NO  DISPLAY  THIS  PASS 

0661 

R FF 

2 

1 AST 

746 

31 1 3432 

7 

4742 

0 

MASK 

FI  UM  OBIT 

0662 

31, 3433 

0 

0006 

1 

EXTEND 

0663 

REF 

i 

31, 3434 

1 

3444 

1 

BZF 

ENDL  LJOB 

TO  PICK  UP  THE  TAG 

0664 

REF 

7 

LAST 

814 

31,3435 

5 1 1 6 1 7 

0 

INDEX 

WC  H P HOLD 

0665 

REF 

1 

31, 3436 

1 

2502 

0 

TC  F 

WHATDI SP 

0665  1 

REF 

57 

LAST 

804 

31, 3437 

0 

5353 

1 

-2 

TC 

PHASCHNG 

KILL  GROUP  5 

06652 

31, 3440 

00035 

1 

OCT 

00035 

0666 

REF 

1 

31, 3441 

3 

3765 

0 

P63DI SPS 

CAF 

V06N63 

0667 

REF 

222 

LAST 

816 

31,3442 

0 

46  16 

1 

DISPCOMN 

TC 

BANKCALL 

0668 

REF 

1 

31,3443 

- _20346 

1 

CADR 

REGCDSPR 

0669 

REF 

128 

LAST 

792 

31, 3444 

1 

5155 

1 

ENDLL JOB 

TC  F 

ENDOFJOB 

0670 

REF 

2 

LAST 

808 

31,3445 

3 

1664 

1 

P64DISPS 

CA 

TREDES 

HAS  TREDES  REACHED  ZERO? 

0671 

31, 3446 

0 

0006 

1 

EXTEND 

0672 

REF 

— 1_ 

31,3447 

1 

3471 

1 

BZF 

R ED- OVER 

YES:  CLEAR  RE DE S I GNA T I ON  FLAG 

0673 

REF 

6 

LAST 

808 

31,3450 

4 

0102 

0 

CS 

FLAGWPD6 

MO:  IS  REDFLAG  SET? 

0674 

REF 

2 

LAST 

-80  8 

31 , 3451 

7 

4746 

1 

MASK 

R EOF  LB  IT 

0675 

31,3452 

0 

0006 

1 

EXTFND 

0676 

REF 

1 

31, 3453 

1 

3473 

0 

BZF 

REDE  S-OK 

YES:  DO  STATIC  DISPLAY 

0677 

REF 

1 

31,3454 

3 

3766 

0 

CAF 

V 06  N 64 

OTHERWISE  USE  FLASHING  DISPLAY 

0678 

REF 

223 

LAST 

817 

31,3455 

0 

46  1 6 

1 

TC 

BANKCALL 
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0679 

REF 

2 

LAST 

762 

31, 3456 

20340 

1 

CADR 

REFL ASHR 

0680 

REF 

36 

LAST 

796 

31,3457 

1 

6001 

1 

TCF 

GOTOPOOH 

06  81 

REF 

l 

31,3460 

1 

3463 

1 

TCF 

P64CEED- 

0682 

REF 

3 

LAST 

803 

31, 3461 

1 

3445 

0 

TCF 

P64D  ISPS 

06  83  REF 2 — LAST  817  31,3462  1 3444  1 TCF ENDLLJOB 


06  84 

OARS 

REF 
R FF 

146 

5 

LAST 
1 AST 

808 
80  8 

31. 3463 

31 . 3464 

3 4755 
55 ' 642 

1 P64CEED 
1 

CAF 

TS 

ZERO 

ELINCR1 

06  86 

REF 

4 

LAST 

808 

31, 3465 

55*643 

0 

TS 

AZINCP1 

0687 

REF 

46 

LAST 

87^2 — 

31, 3466 

-0 — 5-504 

0 

TC — 

EIRE  LAG — 

0688 

REF 

4 

LAST 

806 

31,3467 

00143 

1 

ADRES 

REDFLAG 

0689  -REF  129  LAST  817  31,-3470  1 5155  1 TCF  END0FJ08 


0690 

REF 

72 

LAST 

806 

31,3471 

0 

5516 

0 

RED-OVER 

TC 

DOWNFLAG 

06  91 

Ef 

— 5— 

LAST 

-84rB- 

31, 3472 

00143 

■1. . 

ADRES 

—REDFLAG 

0692 

REF 

2 

LAST 

817 

31, 3473 

3 

3766 

0 

REDES-OK 

CAF 

V06N64 

06  93 

REF 

1 

31,3474 

1 

3442 

1 

TCF 

D I SPCOMN 

0694 

REF 

1 

31, 3475 

3 

3767  1 

VERTDISP  CAF 

V06N60 

06  95 

REF 

2-  LAST  818 

31,3476 

1 

3442  1 

TCF 

_D  I SPCOMN 

TERMINATE 

PROCEED  PERMIT  REDESIGNATIONS 
RECYCLE 

TO  PICK  UP -THE  TAG 


ENABLE  RED  ES I GNAT  I ON  LOGIC 


R0698  GUIDANCE  FOR  VERTICAL  DESCENT 


0701  REF  3 LAST  805  31,3477  11'645  0 VERTGUID  CCS  WCHVERT 

0702  REF  2 LAST  817  31,3500  1 3426  0 TCF  DISPEXIT  POSITIVE  P67,  WHICH  SKIPS  ALL  GUIDANCE 

0703  REF  1 31,3501  1 3516  1 TCF  P66VFPT  +0 

R0704  THE  P 6 5 GUIDANCE  EQUATION  IS  AS  FOLLOWS:- 

R0705 

R0706  - VDGVFRT  - VGU 

R0707  ACG  , WHERE  VDGVERT  = l-3FPS,0,0) 

P 0 7 0 8 TAUVERT 


0709 

0710 

0711 

0712 

REF 

REF 

REF 

1 

2 

127 

LAST 

LAST 

804 

—817 

3 L-,  35502 

31.3503 

31. 3504 

31. 3505 

0 0006 

4 3760 

5 3 ' 6 4 3 
0 6036 

1 

1 

0 

1 

0713 

31, 3506 

65375 

0 

0714 

REF 

16 

LAST 

8 1 3 

31,3507 

06424 

0 

0715 

REF- 

—3_ 

LAST 

-817) 

31,3510 

03643 

o 

0716 

31,3511 

52266 

1 

0717 

REF 

10 

LAST 

812 

31,3512 

03625 

0 

EXTEND 

DCS 

DXCH 

TC 

VLOAD 


+ 3EPS 
VDGVERT 
I NT  P P FT 
PDDL 

Z ERO VECS 
VDGVERT 
V SU 
VGU 


NEGATIVE 


VDEF 


FORM  (VDGVERT, 0,0) , LEAVING  DP  0 IN  P DL 


nc  A rr  ODnrOAM  IIIMTMARY  RY  MA<;A  POP!  117-011 

19:0?  NOV.  25,1968  FLY  .109  PAGF  819 
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0718 

31,3513 

52141 

1 

v/sc 

GOTO 

0719 

REF 

1 

31, 3514 

23745 

0 

TAUVERT 

R 1 - R ^ 1 5 

681  74 

0 

AFCC  ALC1 

n cmiATinw  IQ  A Q 

fri  1 ims.*  — 

R0722 

/AFC / ” 

( VDGVERTX 

- VGUX ) /TAUVERT 

- GMOON 

R0724 

UNIT/R/  . XN8 

REF 

LAST 

80  A 

3 3 ,-3  510 

57*644 

0 

P66VERT  XCH 

RODCCUNT 

RESTART  COULD  CAUSE  ROCCOUNTS  Tn  BE  LOST 

0726 

31,3517 

0 0006 

1 

EXTEND 

0727 

REF 

1 

31,3520 

7 3756 

1 

MP 

+ 1FPS 

0728 

RFF 

4 

LAST 

818 

31,3521 

21 ’ 643 

0 

DAS 

VDGVERT 

0729 

REF 

10 

LAST 

814 

31, 3522 

0 3721 

0 

TC 

FAST  CHNG 

0730 

REF 

128 

LAST 

818 

31, 3523 

0 6036 

1 

TC 

I NTPPFT 

073 1 

31 ,3  524 

45345 

1 

DLOAD 

DSU 

0732 

REF 

5 

LAST 

819 

31, 3525 

036  43 

0 

VDGVERT 

0733 

REF 

11 

LAST 

8 l 8 

31,3526 

03625 

0 

VGU 

07  34. 

31 , 3577 

4527  1 

1 

DDV 

DSU 

0735 

REF 

1 

31, 3530 

23747 

1 

TAUROD 

0736 

REF 

1 

31,3531 

22010 

0 

MOONG 

0737 

31 9 3 532 

503  15 

0 

PDVL 

am 

HAVE  ACC  IN  UNITS  OF  2 ( -2 ) M/CS/CS 

0738 

REF 

4 

LAST 

815 

31,3533 

02146 

0 

XNBP  IP 

0739 

REF 

3 

LAST 

815 

31,3534 

03535 

1 

UNIT  /R/ 

0740 

31, 3535 

45465 

1 

BDDV 

STADP 

0741 

REF 

3 

LAST 

813 

31,  3536 

74203 

0 

STORE 

/AFC  / 

0742 

31,3537 

77404 

1 

BO  VB 

EXIT 

0743 

REF 

1 

31 , 3540 

634  L4 

0 

EXCVFLOW 

0744 

REF 

2 

LAST 

817 

31, 3541 

0 2247 

1 

TC 

THROTTLE 

0745 

REF 

3 

LAST 

818 

31, 3542 

1 3426 

0 

TC  F 

DISPFXIT 

R0746 

❖ $#$$$$$;£  $:  # # # # # ####  $£$$$$  $$$$  * * # j{c  * ajt  * # 2$:  ajc  $ 251  sjs###  $#$$ $$$$$$ $ 

R 074-8 

R FPF<;  TPNA  TFR  TRAP 

R0749 

# * ********  £*£#*#*##*#**#*#*  ##*#*:«£  * £ ^ * £ a*:#*  * * ;*<  # ^ £ # * a{c  $:  # # >■<  ***  £ ❖ **  *£  * % *:  * # * # $ # # $ £ # # # # # a}e  # * * **  * * «:  * * # :£  * * 

0751 

7 1,7  000 

RANK 

2 1 

0752 

REF 

1 

21 ,2000 

SETLOC 

F2DP  S*21 

0753 

21,2006 

BANK 

0754 

REF 

1 

COUNT* 

$*/F2DPS 

0755 

REF 

A 

L AST 

566 

? 1, 2006 

56  016 

0 

PITFALL  XCH 

BANK  RUPT 

0756 

21, 2007 

0 0006 

1 

EXTEND 

0757 

REF 

4 

LAST 

566 

21,2010 

22  012 

1 

QXCH 

QRUPT 

0758 

REF 

7 

LAST 

805 

21,  2011 

0 5321 

1 

TC 

CHEC  KMM 

IF  NOT  IN  P64 , NO  REASON  TO  CONTINUE 

0759 

21,2012 

00100 

0 

DFC 

64 
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0760 

REF 

18 

LAST 

568 

21,2013 

1 52  70 
n nnnA 

0 

TCF 

F XTFMD 

R ESUMF 

0762 

REF 

5 

LAST 

805 

21,2015 

00  031 

0 

READ 

CHAN  31 

0763 

21, 2016 

4 0000 

0 

COM 

Pit  2 0 1 7 

7 20  77 

1 

MASK 

ALL4  BITS 

0765 

REF 

5 

LAST 

169 

21,2020 

55*645 

0 

TS 

F L V I R A 

0766 

REF 

48 

LAST 

811 

21, 2021 

3 4752 

0 

CAF 

TWO 

0767 

P E F 

LAST 

1 /%  s 

2 1 f 2 022 

55*644 

1 

TS 

ZERL INA 

0768 

REF 

15 

LAST 

732 

21, 2023 

3 4756 

1 

CAF 

FIVE 

0769 

REF 

23 

LAST 

785 

21, 2024 

0 5173 

1 

TC 

TWI DDLE 

0770 

RFF 

1 

2 1 ,2025 

02032 

1 

ADRES 

REDESMON 

0771 

REF 

19 

LAST 

820 

21, 2026 

1 52  70 

0 

TCF 

RESUME 

R0772 

RECES  IGNAT  ION 

MON  ITOF 

' ( I NIT  I ATED  BY 

PITFALL  ) 

0773 

REF 

5 

LAST 

820 

21,2027 

55*644 

1 

PREM0N1 

TS 

ZEPL INA 

0774 

REF 

9 

LAST 

566 

21, 2030 

3 4757 

0 

PRFM0N2 

CAF 

SEVEN 

0775 

REF 

7 

LAST 

786 

21, 203  1 

0 5224 

0 

TC 

VAPDELAY 

0776 

21, 2032 

0 0006 

1 

REDESMON 

EXTEND 

0777 

21,2033 

00  031 

0 

READ 

31 

0778 

2 1 , 2034 

4 0000 

0 

COM 

0779 

REF 

2 

LAST 

320 

21, 2035 

7 2077 

1 

MASK 

ALL4  BITS 

0780 

REF 

6 

LAST 

820 

21,2036 

57*645 

1 

XCH 

ELVIRA 

07  R ] 

RFF 

1 1 0 

1 AST 

8 1 1 

2 1 , 2037 

54  001 

1 

TS 

L 

0782 

REF 

7 

LAST 

82  0 

21,2040 

11*645 

0 

CCS 

ELVIRA 

DO  ANY  BITS  APPEAR  THIS  PASS? 

0783 

REF 

1 

21, 2041 

1 2030 

1 

TCF 

PREM0N2 

Y:  CONTINUE  MONITOR 

0784 

REF 

1 11 

LAST 

82  C 

21,2042 

10  001 

1 

CCS 

L 

N:  ANY  LAST  PASS? 

0785 

REF 

1 

21,  2043 

1 2052 

0 

TCF 

COUNT*  EM 

Y:  COUNT  ’EM,  RESET  RU°T , TERMINATE 

0786 

REF 

6 

LAST 

8 2 0 

21 , 2044 

1 1 '644 

1 

CCS 

ZERL  INA 

N:  HAS  ZERLINA  REACHED  ZERO  Y FT ? 

0787 

REF 

i 

21,2045 

1 2027 

1 

TCF 

PR  FM  ONI 

N:  DIMINISH  ZERLINA,  CONTINUE 

0788 

REF 

39 

LAST 

806 

21, 2046 

3 4740 

0 

RESETRPT 

CAF 

B I T 1 2 

Y:  RESET  RUPT,  TERMINATE 

0789 

2 1,2047 

0 0006 

1 

EXTEND 

0790 

REF 

16 

LAST 

806 

21, 2050 

05  013 

0 

WOR 

CHAN  13 

0791 

REF 

53 

LAST 

786 

21,2051 

1 5261 

0 

TCF 

T ASKCVER 

0792 

REF 

1 12 

LAST 

820 

21, 2052 

3 0001 

0 

COUNT' EM 

CA 

L 

0793 

REF 

1 

21,  2053 

7 4746 

1 

MASK 

-AZB IT 

0794 

REF 

236 

LAST 

314 

21,2054 

10  000 

0 

CCS 

A 

0795 

REF 

1 

21,2055 

4 2100 

0 

-AZ 

cs 

AZEACH 

0796 

REF 

5 

LAST 

8 1 8 

21, 2056 

2 7 ' 643 

0 

ADS 

AZINCRl 

0797 

REF- 

113 

—LAST 

82  0 

21, 2057 

3 0001 

0 

CA 

L 

0798 

REF 

1 

21,2060 

7 4747 

0 

MASK 

+ AZB  IT 

0799 

REF 

237 

LAST 

820 

21, 2061 

10  000 

0 

CCS 

A 

0800 

RFC- 

— 2- 

LAST 

820 

2 1, 2062 

3 2100 

1 

+ AZ 

CA 

AZE  A CH 

0801 

REF 

6 

LAST 

820 

21, 2063 

27' 643 

0 

ADS 

AZINCRl 

0802 

REF 

1 14 

LAST 

820 

21, 2064 

3 0001 

0 

CA 

L 

GAP 
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0803 

REF 

1 

21,2065 

7 4753 

0 

MASK 

-ELB  IT 

0804 

REE 

238 

LAST 

820 

21,2066 

10  000 

0 

CCS 

A 

REF 

1 

2 1,2067 

4 2101 

1 

-EL 

cs 

ELEACH 

0806 

REF 

6 

LAST 

818 

21, 2070 

27' 642 

1 

ADS 

ELINCR1 

0807 

REF 

115 

LAST 

820 

21, 2071 

3 0001 

0 

CA 

L 

OftOft 

REF 

1 

21,2072 

7 47  5 2 

1 

MASK 

+ ELBIT 

0809 

REF 

239 

LAST 

82  1 

21,2073 

10  000 

0 

CCS 

A 

0810 

REF 

2 

LAST 

82  1 

21,  2074 

3 2101 

0 

♦ EL 

CA 

ELEACH 

08  1 1 

REF 

. 7 

LAST 

82  1 

21,2075 

27*  642 

1- 

ADS 

ELINCR1 

0812 

REF 

1 

21,2076 

1 2046 

0 

TCF 

R ESETRPT 

R0813 

THESE 

EQUI VALENCI  ES 

ARE  BASED  ON  GSOP 

CHAPTER  4, 

REVISION  16  OF  P64LM 

0814 

REF 

43 

LAST 

723 

4752 

+ELBIT 

= 

B I T 2 

-PITCH 

0815 

REF 

41 

LAST 

767 

4753 

-ELBIT 

- 

BIT1 

♦PITCH 

0816 

REF 

36 

LAST 

804 

4747 

+AZBIT 

= 

B IT5 

0817 

REF  41  LAST  793 

4 746 

-AZBIT 

BIT6 

0818 

21,2077 

00063  1 

ALL4BITS  OCT 

00063 

0819 

21, 2 100 

01074  0 

AZEACH  DEC 

.03491  2 OEGREES 

0820 

21,2  101 

00217  0 

ELEACH  DEC 

.00873  1/2  DEGREE 

R0821 

R0823 

R0824 

R.C.D.  TRAP 

08242 

08244 

REF 

1_ 

20,2115 
2.0,2  000 

BANK  20 

SETLOC  RODTRAP 

08246 

20,2115 

BANK 

08248 

REF 

1 

COUNT*  $ $/ F 2DPS 

* * * * * £ * * * * * * * * * * * * # * * * * * * * * * * * * * * * # * # * * 55s 

0826 

REF 

32 

LAST 

574 

20,2115 

7 4745 

1 

DESCRITS  MASK 

B I T7 

COME  HERE  FROM  MARKRUPT  COOING  WITH  BIT 

0827 

REF 

240 

LAST 

82  1 

20,2116 

10  000 

0 

CCS 

A 

7 OR  6 OF  CHANNEL  16  IN  A;  8IT  7 MEANS 

082a 

REF 

49- 

LAST 

820— 

20,  2 117 

4 47  52 

1 

CS 

TWO 

- RATE  INCREMENT,  8IT  6 ♦ INCREMENT 

0829 

REF 

89 

LAST 

814 

20,2 120 

6 47  53 

1 

AD 

ONE 

0830 

REF 

3 

LAST 

819 

20,2121 

2 7 ' 644 

1 

ADS 

RODC  OUNT 

GAP: 

L 

0831 


0832 

0833 

0834 

0835 

R0836 

R0838 

R0839 

R0841 

R0842 

R0844 

R-0846 

A0848 

A0849 

A0850 

A0851 

A0852 

A0853 

A0854 

R0855 

R0857 

R0859 

R086G 

R0862 

R0864 

RQ866 

R0868 

R0870 

R0872 
R0  874 
R 08  76 

R0877 

R0879 

R0881 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25t1968  FLY  .109  PAGE  822 

LUNAR  LANDING  GUIDANCE  EQUATIONS  USER'S  PAGE  NO.  21  E7  S3 

REF  20  LAST  820  20,2122  1 5270  0 TCF  RESUME  TRAP  IS  RESET  WHEN  SWITCH  IS  RELEASED 


31,3543  BANK  31 

REF  4 LAST  795  31,2000  SETLOC  F2DPS*31 

31,3543  BANK 

REF  5 LAST  80  5 TO  819:  483  5374  COUNT 4 $I/F2DPS 


##  **  * $3(c$  * I*#*##**  * #***##£**  jfc**#**#****#**#*  £ * # & * # # * ❖ # 

DOUBLE  PRECISION  ROOT  FINDER  SUBROUTINE  (BY  ALLAN  KLUMPP) 

444444 4 444 44 44 44 4444 44 444444444444444444 4 44444444444444 44 *4 44444 44 4444444 44 4 4 44444 44 44 444444444 44444444444 44 4 4 44 


N N-l 

RCOTPSRS  FINDS  ONE  ROOT  OF  THE  POWER  SERIES  A X + A X + . ...  + A M * A 

N N-l  10 


USING  NEWTCN'S  METHOD  STARTING  WITH  AN  INITIAL  GUESS  FOR  THE  ROOT.  THE  ENTER  ING-  DA TA  MUST  BE  AS  FOLLOWS: 

A SP  LOC-3  ADRES  FOR  REFERENCING  PWR  COF  TABL 

L SP  N-l  N IS  THE  DEGREE  OF  THE  POWER  SERIES 

MP AC  DP  X INITIAL  GUESS  FOR  ROOT 

L0C-2N  DP  A 1 0 ) 

LOC  DP  AIN) 

LOC+2  SP  PRECROOT  PREC  ROD  OF  ROOT  (AS  FRACT  OF  1ST  GUESS) 


THE  DP  RESULT  IS  LEFT  IN  MPAC  UPON  EXIT,  AND  A SP  COUNT  OF  THE  ITERATIONS  TO  CONVERGENCE  IS  LEFT  IN  MPAC+2. 

RETURN  IS  NORMALLY  TO  LOG  ( TC  ROOTP SRS  ) +3.  IF  ROOTPSRS  FAILS  TO  CONVERGE  IN  32  PASSES,  RETURN  IS  TO  LOC+1  AND 

OUTPUTS  ARE  NOT  TO  BE  TRUSTED. 

PRECAUTION:  ROOTPSRS  MAKES  NO  CHECKS  FOR  OVERFLOW  OR  FOR  IMPROPER  USAGE.  IMPROPER  USAGE  COULD 
PRECLUDE  CONVERGENCE  OR  REQUIRE  EXCESSIVE  ITERATIONS.  AS  A SPECIFIC  EXAMPLE,  ROOTPSRS  FORMS  A DERIVATIVE 
COEFFICIENT  TA8LE  BY  MULTIPLYING  EACH  All)  BY  I,  WHERE  I RANGES  FROM  1 TO  N.  IF  AN  ELEMENT  OF  THE  DERIVATIVE 
COEFFICIENT  TABLE  = 1 OR-  > 1 IN  MAGNITUDE,  ONLY  THE  EXCESS  IS  RETAINED.  ROOTPSRS  MAY  CONVERGE  ON  THE  CORRECT 
ROCT  NONETHELESS,  BUT  IT  MAY  TAKE  AN  EXCESSIVE  NUMBER  OF  ITERATIONS.  THFREFORE  THE  USER  SHOULD  RECOGNIZF: 

1.  USER' S RESPONS IBILITY  TO  ASSURE  THAT  I X All)  < 1 IN  MAGNITUDE  FOR  ALL  I. 

2.  USER'S  RESPONSIBILITY  TO  ASSURE  OVERFLOW  WILL  NOT  OCCUR  IN  EVALUATING  EITHER  THE  RESIDUAL  OR  THE  DERIVATIVE 

-POWER  SERIES.  THIS  OVERFLOW  WOULD  BE  PRODUCED  BY  SUBROUTINE  POWRSERS,  CALLED  BY  ROOTPSRS,  AND  MIGHT  NOT 
PRECLUDE  EVENTUAL  CONVERGENCE. 


3.  AT  PRESENT,  ERASABLF  LOCATIONS  AR F RESERVED  ONLY  FOR  N UP  TO  5.  AN  N IN  EXCESS  OF  5 WILL  PRODUCE  CHAOS. 
ALL  ERASABLES  USED  BY  ROOTPSRS  ARE  UNSWITCHED  LOCATED  IN  THF  REGION  FROM  MPAC-33  OCT  TO  MPAC+7. 

4.  THE  ITERATION  COUNT  RT  TURN  ED  IN  MPAC  + 2 MAY  BE  USED  TO  DETECT  ABNORMAL  PERFORMANCE.— 


A0883 


STORE  ENTERING  DATA,  INITLIZE  PRASABLES 


GAP 
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0884 

0885 

0886 

REF 

REF 

1 

1 

31. 3543 

31.3544 

31 . 3545 

0 0006 
22  132 
54  117 

1 

1 

ROOTPSR  S EXTEND 

QXCH  RETRCOT 

TS  .PWRPTR- 

RETURN  ADRES 
PWR  TABL  POINTER 

0887 

REF 

293 

LAST 

816 

31,3546 

52  160 

1 

DXCH 

MPAC 

+ 3 

PWR  TABL  ADRES,  N- 

1 

0888 

REF 

1 

31,  3547 

3 3666 

1 

CA 

DEPT  ABLL 

no  oq 

REF 

— 1— 

31-,  3 550- 

54  141 

1- 

TS 

-DERPTR 

DEP  TABL  POINTER 

U00  7 

0890 

REF 

294 

LAST 

82  3 

31, 3551 

54  161 

0 

TS 

MPAC 

+ 5 

DER  TABL  ADRES 

0891 

REF 

295 

LAST 

82  3 

31, 3552 

10  160 

l 

CCS 

MPAC 

+4 

NO  POWER  SERIES  OF 

DEGREE 

l OR  LESS 

0892 

REF 

296 

LAST 

82  3 

31, 3553 

5-4  162 

_Q_ 

TS 

MPAC 

+6 

N-2 

0893 

REF 

147 

LAST 

8 18 

31, 3554 

3 4755 

1 
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CA 

VFL  SHBIT 

0030 

REF 

13 

LAST 

829 

21, 2130 

7 

0107 

0 

MASK 

FI GWRD11 

0031 

21,2131 

0 

0006 

1 

EXTEND 

0032 

REF 

2 

LAST 

829 

21,2132 

1 

2136 

0 

BZF 

10,  1 1 

0033 

REF 

2 

LAST 

623 

21, 2133 

3 

4751 

0 

CA 

VLITE 

00  34 

REF 

120 

LAST 

829 

21, 2 134 

54 

001 

1 

TS 

L 

0035 

REF 

2 

LAST 

82  9 

21,2135 

46  06 

0 

TC 

FLIP 

0036  REF  -3  LAST  746  21,2136  3 0105  0 10,  11  CA  FLAG  WRD9 


0037 

REF  2 LAST  746 

21,2137 

7 

4743 

1 

MASK 

LETABBIT 

0038 

21,2140 

0 

0006 

1 

EXTEND 

0039 

REF  1 

21,2141 

1 

2340 

0 

BZF 

LAND  ISP 

0040 


REF  12  LAST  692 


21,2  142  4 1011  1 P7 1 NOW?  CS 


MOOR  EG 
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IS  SERVICER  STILL  RUNNING? 

LET  AVGEND  TAKE  CARE  OF  GROUP  2. 
LAST  PASS.  CALL  LRHTASK. 


TF  LAMP  TEST,  DO  NOT  CHANGE  LR  LITES. 

CIA)  = 1 = HFLASH  BIT 
H FLASH  OFF,  SO  LEAVE  ALONE 

FLIP  H LITE 

VFLASHBIT  MUST  BE  BIT  2. 

V FLASH  OFF 

FLIP  V LITE 

IS  THE  LETABORT  FLAG  SET  ? 

NQ,_._  PROCEED  TO  RIO. 

YES.  ARE  WE  IN  ?71  NOW? 
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P70-P71 


0041 

REF 

1 

21, 2 143 

6 2272 

1 

AD 

MODE  71 

0042 

21,2144 

0 0006 

1 

EXTEND 

nn/u  ^ 

REF 

2 

LAST 

82  9 

21,2145 

1 2340 

0 

BZF 

LAND  ISP 

UU't  D 

0044 

21, 2 146 

0 0006 

1 

EXTEND 

0045 

TTEF 

LAST 

804 

21,2  147 

00  030 

_L_ 

READ 

CHAN  30 

0046 

_ 

21, 2150 

4 0000 

0 

COM 

0047 

REF 

121 

LAST 

829 

21,2151 

54  001 

1 

TS 

L 

0048 

REF 

35 

LAST 

8 2 6 

21,2  152 

7 4750 

0- 

MASK 

BIT4 

0049 

REF 

244 

LAST 

829 

21,2153 

10  000 

0 

CCS 

A 

0050 

REF 

2 

LAST 

256 

21,2154 

1 2172 

0 

TCF 

P 71  A 

0051 

REF 

13 

LAST 

829 

21,2155 

4 1011 

1 

P70N0W? 

CS 

MODE  EG 

0052 

REF 

1 

21,2156 

6 2270 

0 

AD 

MODE  70 

nn  c t 

21,2157 

0 0006 

1 

EXTEND 

UU  D D 

0054 

REF 

3 

LAST 

830 

21,2160 

1 2340 

0 

BZF 

LAND  ISP 

00  55 

RE  F 

122 

LAST 

8 30 

21,2161 

3 0001 

0-  - 

CA 

L 

0056 

REF 

43 

LAST 

829 

21,2162 

7 4753 

0 

MASK 

R I T 1 

0057 

REF 

245 

LAST 

830 

21,2163 

10  000 

0 

CCS 

A 

0058 

REF 

2 

LAST 

25  6 

21,2  164 

1 2167 

1 

TCF 

P 70  A 

0059 

REF 

4 

LAST 

830 

21,2165 

1 2340 

0 

TCF 

LANDISP 

0060 

REF 

1 

COUNT  4 

$$/p  70 

0061 

REF 

1 

21, 2166 

0 22  74 

1 

P 70 

TC 

LEGA  L? 

0062 

#REF 

149 

LAST 

82  5 

21,2167 

4 4755 

o 

P70  A 

CS 

ZERO 

0063 

21,2  170 

1 2173 

1 

TCF 

+ 3 

0064 

REF 

2 

LAST 

830 

21,2  171 

0 2274 

1 

P 7 1 

TC 

LEGA  L? 

0065 

REF 

52 

LAST 

82  3 

21 ,2172 

3 4752 

o 

P71  A 

CAF 

TWO 

0066 

REF 

204 

LAST 

825 

21,2173 

54  002 

1 

+ 3 

TS 

Q 

0067 

2 1 , 2 1 74 

0 0004 

0 

INHINT 

0068 

REF 

— j_ 

21,2 175 

3 22  00 

4 

CAF 

ABP  T JADE 

0069 

REF 

1 

21,2176 

54  017 

0 

TS 

BRUF  T 

0070 

21,2177 

5 0017 

1 

RESUMF 

0071 

REF 

1 

21, 2200 

1 2201 

1 

ABRTJADR 

TCF 

ABET JASK 

0072 

REF 

— i — 

21,2201 

3 22  71 

A RR  T 1 A Qk 

CAF 

nr  t a i 71 

0073 

REF 

2C5 

L A S 1 

830 

21,2202 

6 0002 

0 

RDn  1 J M O 

AD 

UTl,  1 F'  Lt  1 
0 

0074 

REF 

123 

LAST 

830 

21, 2203 

54  001 

1 

TS 

L 

0075 

21, 2204 

4 0000 

0 

COM 

0076 

REF 

6 

LAST 

755 

21,2205 

52  761 

0 

DXCH 

-PHA  SE4 

0077 

REF 

206 

LAST 

830 

21, 2 20  6 

50  002 

0 

INDEX 

Q 

0078 

REF 

2 

LAST 

830 

21, 2207 

3 2270 

0 

CAF 

MODE  70 

0079 

REF 

14 

LAST 

83  0 

21, 2210 

5 5 ' 0 1 1 

1 

TS 

MODF FG 

0080 

REF 

23 

LAST 

764 

21,  221 1 

55' 163 

-0 

TS 

DISPDEX 

0081  *RFF  2C7  LAST  830 


21,2212 


10  002  1 


CCS 


Q 
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NO.  ARE  WE  IN  P70  NOW? 

YES.  PROCEED  TO  RIO. 

NO.  IS  AN  ABORT  COMMANDED? 

YES. 

NO.  PROCEED  TO  RIO. 


INSURE  DISPDEX  IS  POSITIVE. 


SET  APSFLAG  IF  P71 
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L 

P7C- 

P71 

0082 

REF 

14 

LAST 

764 

21, 2213 

4 0106 

1 

cs 

FLGWRD10 

0083 

REF 

10 

LAST 

764 

21,2214 

7 4737 

1 

MASK 

A PS  F LB  I T 

n ^ , 

LAST 

^3  1 

2 1 1 2 2 15 

? 6 1Q6 

l 

ADS 

F LGWRD10 

0085 

*REF 

1 

21, 2216 

4 2273 

1 

cs 

DAPE ITS 

0086 

REF 

27 

LAST 

767 

21,2217 

7 0111 

1 

MASK 

DAPBOOLS 

0087 

REF 

26 

1 AST 

ST  1 

2 I » 2 220 

54  111 

1 

TS 

DAPBOOLS 

0088 

REF 

22 

LAST 

767 

21, 2221 

4 0101 

0 

cs 

FLAGWRD5 

qqqq 

REF 

5 

l AST 

76  7 

2 It  2222 

7 4745 

1 

MASK 

ENGGNBIT 

0090 

REF 

23 

LAST 

83  1 

21,2223 

26  101 

0 

ADS 

FLAGWRD5 

REF 

3 

EAST 

7A  7 

21 r 2 2 24 

4 4T  55 

L 

CS 

PRI0  30 

0092 

21,2225 

0 0006 

i 

EXTEND 

0093 

REF 

26 

LAST 

767 

21,2226 

02  Oil 

0 

RAND 

DSALMGUT 

0094 

REF 

36 

LAST 

805 

21, 2227 

6 4737 

0 

AD 

BIT1  3 

0095 

21,2230 

0 0006 

1 

EXTEND 

0096 

REF 

27 

LAST 

8 3 1 

21,2231 

01  Oil 

0 

WR  I TE 

DSALMGUT 

0097 

REF 

4 

LAST 

5 6 6 

21,2232 

3 4735 

1 

CAF 

LRBY  BIT 

0098 

REF 

14 

LAST 

829 

21, 2233 

54  107 

0 

TS 

FLGWRD11 

0099 

REF 

24 

LAST 

60  2 

21,2234 

4 0074 

0 

CS 

FL AGWRDO 

0100 

REF 

1 

21,2235 

7 4752 

1 

MASK 

R10F  LB I T 

0101 

REJ^ 

25 

LAST 

83  1 

21, 2236 

26  074 

0 

AXIS 

F LAG  WPDO 

A01  02 

A0103 

0104 

21,2237 

0 0006 

1 

EXTEND 

0105 

REF 

24 

LAST 

769 

21,2240 

3 0025 

0 

DC  A 

T IME2 

0106  REF  6 LAS  I 76  7 21,2241  53*3.45.  .0  _ DXCH T EVE  NT 


0107 

21,2242 

0 0006 

1 

EXTEND 

0108 

REF 

1 

21, 2243 

3 2267 

0 

DC A SVEX  ITAD 

0109 

REF 

3 

LAST 

747 

21, 2244 

5 3 ' 2 53 

0 

OXCH  AVGEXIT 

0110 

? 1 t ?45 

0 0006 

1 

FX  T END 

0111 

REF 

14 

LAST 

817 

21,2246 

3 4755 

1 

DC  A NEGO 

0112 

REF 

4 

LAST 

744 

21, 2247 

52  753 

1 

DXCH  -PHASE1 

0113 

21,2250 

0 0006 

1 

EXTEND 

0114 

REF 

15 

LAST 

83  1 

21, 2251 

3 4755 

1 

DC A NEGO 

0115  REF  3 LAST  817  21,2252  _52  75.7  0 DXCH  -PHASE3 


0116 

0117 

REF- 

16 

LAST 

83-1 

21.2253 

21.2254 

0 0006 
3 4755 

1 

1 

EXTEND 
DC  A 

NEGO 

0118 

REF 

3 

LAST 

75  2 

21,2255 

52  765 

l 

DXCH 

-PHASF6 

0119 

REF 

26 

LAST 

__74.-4 

21, 2256 

3 62  44 

0 

CAF 

THREE 

0120 

REF 

124 

LAST 

830 

21, 2257 

54  001 

1 

TS 

L 

0121 

21, 2260 

4 0000 

0 

COM 

USER'S  PAGE  NO.  3 E7  S3 

SET  APS  FL  AG  PRIOR  TO  THE  ENFMA. 


OAPBITS  = OCT  640  = BITS  6,  8,  9 

(TURN  OFF:  ULLAGE,  DRIFT,  AND  XOVINHIB  ) 


SET  ENGONFLG. 


INSURE  THAT  THE  ENGINE  IS  ON,  IF  ARMED. 


TERMINATE  R12. 


SET  R10FLAG  TO  SUPPRESS  OUTPUTS  TO  THE 
CROSS-POINTER  DISPLAY. 

THE.  FOLLOWING  ENEMA  WILL  REMOVE  THE 
DISPLAY  INERTIAL  DATA  OUTBIT  AND 
DISABLE  THE  RR  ERROR  CTRS  FOR  US. 


LOAD  TEVENT  FOR  THE  DOWNLINK. 


SET  UP  4.3SP0T  FOR  GOABORT 
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L P7C-P71 


0122 

REF 

7 

LAST 

830 

21, 2261 

52  761 

0 

DXCH 

-PHASE4 

3 77  27 

\ 

CAF 

nr  T 3 7774 

0124 

REF 

2 

LAST 

234 

21,2263 

54  030 

0 

TS 

T I ME  5 

o 

TC 

pn^T.niMP 

0126 

REF 

1 

21,2265 

12766 

0 

CADR 

ENEMA 

£ R A N K ~ 

n v r m t r 

0128 

REF 

6 

LAST 

769 

21,2266 

03525 

0 

SVEXITAD 

2C  ADR 

SERVEXIT 

0128 

21,2267 

76067 

1 

n i 2Q 

?\ f 2 270 

00106 

0 

MDDE70 

OEC 

70 

0130 

21,2271 

00027 

1 

0CTAL27 

OCT 

27 

0131 

21,2272 

00107 

1 

M0DE71 

DEC 

71 

0132 

21, 2273 

00640 

0 

DAPBITS 

OCT 

00640 

013^ 

^ 2 » 3-2  6 7 

RANK 

32 

0134 

REF 

2 

LAST 

53 

32, 2000 

SETLOC 

ABORTS 

0135 

32,3257 

BANK 

0136 

REF 

2 

LAST 

53  TO 

54: 

8 

8* 

COUNT* 

$ $/  P 70 

COA  RflliT 

TC 

I NT  P RFT 

0138 

L 8 J 1 

32,3260 

77624 

1 

CALL 

0139 

REF 

2 

LAST 

742 

32, 3261 

61055 

0 

I NI TCPUW 

o i 40 

32T  3 262 

77  776 

1 

FX  I T 

0141 

REF 

16 

LAST 

816 

32, 3263 

3 4751 

0 

CAF 

FOUR 

0142 

REF 

29 

LAST 

832 

32,3264 

55' 513 

0 

TS 

DVCNTR 

0143 

REF 

1 

32,3265 

3 3607 

0 

CAF 

WHICHADR 

0144 

REF 

27 

LAST 

789 

32, 3266 

55’ 453 

0 

TS 

WHICH 

0145 

REF 

73 

LAST 

818 

32,3267 

0 5516 

0 

TC 

DOWN  FLAG 

0146 

REF 

1 

32,3270 

00214 

0 

ADRES 

FLRC  S 

0147 

REF 

74 

LAST 

832 

32, 3271 

0 5516 

0 

TC 

DOW  1 FLAG 

0148 

REF 

4 

LAST 

754 

32, 3272 

00175 

1 

ADRES 

FLUNDISP 

0149 

REF 

75 

LAST 

832 

32,3273 

0 5516 

0 

TC 

DOWNFLAG 

0150 

REF 

5 

LAST 

769 

32, 3274 

00161 

1 

ADRES 

I DL  E FLAG 

0151 

REF 

47 

LAST 

818 

32, 3275 

0 5504 

0 

TC 

UPFL  AG 

0152 

REF 

1 

32, 3276 

00307 

0 

ADRES 

ACC4-2FL 

0153 

REF 

8 

LAST 

819 

32, 3277 

0 5321 

1 

TC 

CHEC.  KMM 

0154 

32,3300 

00106 

0 

700  EC 

DEC 

70 

0155 

R£|T_ 

— L- 

32,3301 

1 3525 

JL 

TC  F 

P71P.ET 

0156 


REF  131  LAST  832 


32,3302  0 6036  1 P70INIT  TC 


I NTPRFT 
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SET  T5RUPT  TO  CALL  DAPTDLER  IN 
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INSURE  4-JET  TRANSLATION  CAPABILITY 
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L 

P7C- 

-P71 

0157 

32,3303 

77624 

1 

CALL 

0158 

REF 

1 

32,3304 

65555 

1 

TGCCCMP 

32, 3 305 

54345 

DLOAD 

SL 

0160 

REF 

1 

32, 3306 

34003 

0 

MOOT  DPS 

0161 

32,3307 

20205 

1 

4D 

32,  3310 

77665 

1 

BDDV 

0163 

REF 

7 

LAST 

81  3 

32,3311 

01245 

0 

MASS 

0164 

REF 

2 

LAST 

135 

32, 3312 

16265 

1 

STOOL 

TBUP 

0165 

REF 

8 

LAST 

833 

32,3313 

01245 

0 

MASS 

0166 

32,3314 

70471 

1 

DDV 

SRI 

0167 

REF 

1 

32, 3315 

24003 

1 

K ( 1/ DV) 

oi  68 

REF 

2 

LAST 

16  7 

32, 3 316 

03633 

L 

STORE 

1/DV  1 

0169 

REF 

2 

LAST 

167 

32,3317 

03635 

l 

STORE 

1/CV2 

0170 

REF 

2 

LAST 

167 

32, 3320 

03637 

0 

STORE 

1/DV3 

0171 

32*  3 321 

77665 

_i 

BDDV 

0172 

REF 

1 

32, 3322 

25606 

0 

K<  AT  ) 

0173 

REF 

3 

LAST 

215 

32,3323 

16257 

0 

STOOL 

AT 

01  74 

REF 

1 

32, 3324 

-34005 

0 

DTDECAY 

0175 

32, 3325 

54276 

0 

DCOMP 

SL 

0176 

32,3326 

20214 

1 

1 ID 

0177 

REF 

2 

LAST 

135 

32, 3327 

022  63 

1 

STORE 

TTO 

0178 

32,  3330 

57535 

0 

SLOAD 

DCOMP 

0179 

REF 

2 

LAST 

76  1 

32,3331 

26002 

1 

DPS V EX 

0180 

32, 3332 

77702 

1 

SR2 

0181 

REF 

2 

LAST 

13  5 

32, 3333 

02261 

0 

STORE 

VE 

0182 

32, 3334 

45014 

0 

SET 

CALL 

0183 

REF 

1 

32, 3335 

0446  7 

0 

FLAP 

0184 

REF 

1 

32,3336 

602  30 

0 

COMMINIT 

0185 

32,  3337 

77650 

1 

INJTARG  GOTO 

0186 

REF 

1 

32,3340 

65371 

1 

UPTHPOT 

A0187 

DLOAD 

DSU 

A0188 

TGO 

A01  89 

50SE  CS 

A0190 

BPL 

EXIT 

A0191 

UPTHROT 

0192 

REF 

9 

LAST 

832 

32,3341 

0 5321 

1 

TC 

CHEC KMM 

0193 

32,3342 

00106 

0 

DEC 

70 

0194 

REF 

1 

32, 3343 

3 3572 

1 

CAF 

DEC2  99 

0195 

REF 

44 

LAST 

830 

32, 3344 

6 4753 

1 

AD 

BIT1 

0196 

REF 

2 

LAST 

167 

32,3345 

5 5 ' 6 44 

1 

TS 

ENGOFFOT 

0197 

REF 

25 

LAST 

829 

32, 3346 

0 5173 

1 

TC 

TWIDDLE 

0198 

REF 

1 

32,3347 

03356 

1 

ADRES 

ZONE  ZERO 

0199 

REF 

58 

LAST 

817 

32, 3350 

0 5353 

1 

TC 

PHAS  CHNG 

0200 

32, 3351 

47014 

1 

OCT 

4701  4 

0201 

REF 

3 

LAST 

833 

32,3352 

76133 

1 

-GENADP 

ENGOFFOT 

0202 

REF 

30 

LAST 

83  2 

E7 , 15L3- 

EBANK= 

DVCNTR 

0203 

REF 

2 

LAST 

833 

32, 3353 

03356 

1 

2C  ADR 

ZONE  ZERO 

0203 

32,3354 

64067 

1 
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L 

P7C- 

■P71 

USER'S  PAGE  NO. 

6 

E7  S3 

0204 

REF 

130 

LAST 

8 1 8 

32, 3355 

1 5155 

1 

TC  F 

ENDOFJOB 

0205 

REF 

37 

LAST 

792 

32, 3356 

0 4674 

0 

ZONEZERO 

TC 

I BNKCALL 

0206 

REF 

1 

32, 3357 

75551 

1 

CADR 

ENG  I N0F2 

0207 

REE 

1 

32,3360 

3 3407 

1 

CAF 

ZERE  TAD 

0208 

REF 

2 

LAST 

243 

32,3361 

55*260 

0 

TS 

OUTR  CUTE 

0209 

REF 

76 

LAST 

832 

32,3362 

0 5516 

0 

TC 

DOWN  FLAG 

0210 

REF 

5 

LAST 

721 

32, 3363 

00163 

0 

ADRES 

AVEGFLAG 

0211 

REF 

77 

LAST 

834 

32,3364 

0 5516 

0 

TC 

DOWN  FLAG 

0212 

REF 

1 

32,3365 

00162 

1 

ADRES 

V37F  LAG 

0213 

REF 

59 

LAST 

833 

32,3366 

0 5353 

1 

TC 

PHASCHNG 

0214 

32,3367 

00004 

0 

dct 

00004 

0215 

REF 

55 

LAST 

829 

32, 3370 

1 5261 

0 

TC  F 

TASK  OVER 

12  r 3^71 

774  1 4 

o 

I IPTHRDT 

S FT 

FX  IT 

0217 

REF 

1 

32, 3372 

04461 

0 

FLVR 

0218  4REF  1 32,3373  0 3564  0 TC  THRCTUP 


0219 

REF 

60 

LAST 

834 

32, 3374 

0 5353 

1 

TC 

PHASCHNG 

0 220 

32, 3375 

04024 

-0 

OCT 

0402  4 

0221 

*REF 

224 

LAST 

817 

32,3376 

0 4616 

1 

-3 

T C. 

BANKCALL 

VERIFY  THAT  THE  ° ANEL  SWITCHES 

0222  7TET  2 LAST  741  32,3377  73707  0 CADR  P40AUTO  ARE  PROPERLY  SET. 


0223 

*REF 

2 LAST  834 

32,3400 

0 

3564 

0 

TC 

THRO  TUP 

0224 

32,3401 

0 

0006 

1 

UPTHROT 1 EXTEND 

SET  SERVICER  TO  CALL  ASCENT  GUIDANCE. 

0225 

REF 

1 

32,3402 

3 

36  11 

1 

DC  A 

ATMAGAD 

0226  REF  4 LAST  831  32,3403  53'253  0 DXCEL  AVG£XIT 


0227 

0228 

REF 

61 

LAST 

834 

32.3404 

32.3405 

0 5353 
00004 

1 

0 

GRP40FF 

TC 

OCT 

PHASCHNG 
0000  4_ 

TERMINATE  USE  OF  GROUP  4. 

0229 

REF 

131 

LAST 

834 

32,3406 

1 5155 

1 

TC  F 

ENDOFJOB 

0230 

REF 

1 

32, 3407 

65410 

l 

ZERETAD 

CADR 

ZONEORET 

0231 

REF 

11 

LAST 

769 

32,3410 

0 5327 

1 

ZONEORET 

TC 

2PHSCHNG 

0232 

32,3411 

00002 

0 

OCT 

00002 

0233 

32, 3412 

05024 

1 

OCT 

05024 

0234 

32,3413 

25000 

0 

OCT 

25000 

0235 

REF 

132 

LAST 

83  2 

32, 3414 

0 6036 

1 

TC 

I NTPRFT 

0236 

32,3415 

43234 

0 

RTB 

DAD 

GAP: 

ASSEMBLE 

REV  IS  ION  069 

OF  A GC  PR 

:OGRAM  LI 

J MIN ARY  BY  N 

ASA  202 

1112-011 

L 

P70 

-P71 

0237 

REF 

19 

LAST 

73  7 

32,3416 

21462 

1 

LOADTIME 

0238 

REF 

1 

32, 3417 

25576 

1 

90SEC 

REF 

8 

1 AST 

80  5 

32 » 3420 

03557 

0 

STORE 

P I PT  IME1 

0240 

REF 

50 

LAST 

792 

32, 3421 

34041 

0 

STCALL 

TDEC  1 

0241 

REF 

10 

LAST 

790 

32, 3422 

27057 

0 

LEMPREC 

32 , 3423 

77775 

1 

VLOAD 

0243 

REF 

22 

LAST 

773 

32, 3424 

00007 

0 

VATT 

0244 

REF 

3 

LAST 

743 

32, 3425 

03551 

0 

STORE 

VN1 

n 

32 » 3426 

76521 

0 

MX  V 

VSL  1 

0246 

REF 

26 

LAST 

810 

32, 3427 

01734 

0 

REFSMMAT 

0247 

REF 

6 

LAST 

8 10 

32,3430 

27525 

0 

STOVL 

V 

0748 

REF 

28 

LAST 

77  3 

32,3431 

00001 

0 

P ATT 

0249 

REF 

3 

LAST 

164 

32, 3432 

03543 

0 

STORE 

RN1 

0250 

32, 3433 

52521 

0 

MX  V 

V S L 6 

0251 

REF 

27 

L AST 

835 

32,3434 

01  734 

0 

REFSMMAT 

0252 

REF 

15 

LAST 

8 15 

32,  3435 

37517 

0 

STCALL 

R 

0253 

REF 

3 

LAST 

790 

32,3436 

67162 

0 

MUNG  PAV 

0254 

32,3437 

45014 

0 

SET 

CALL 

0255 

REF 

1 

32,3440 

04471 

1 

FLZONEO 

0256 

REF 

1 

32,3441 

60313 

0 

ASCENT 

0257 

32, 3442 

77776 

1 PPEBRET1 

EX  IT 

0258 

REF 

62 

LAST 

834 

32, 3443 

0 5353 

1 

TC 

PHASCHNG 

0259 

32,3444 

04024 

0 

OCT 

04024 

0260 

REF 

l 3 3 

LAST 

834 

32, 3445 

0 6036 

1 

TC 

1 NT  P RET 

0261 

32,3446 

77214 

0 

CLEAR 

V LDA  D 

0262 

RFF 

2 

LAST 

83  5 

32,3447 

04671 

0 

FLZONEO 

0263 

R EF 

3 

LAST 

215 

32, 3450 

03646 

0 

VGVECT 

0264 

32,3451 

76505 

0 

VXM 

VSL  1 

0265 

REF 

28 

LAST 

83  5 

32,3452 

01734 

0 

REFSMMAT 

0266 

REF 

16 

LAST 

772 

32, 3453 

03654 

0 

STORE 

DEL  V SIN 

0267 

32,3454 

77646 

0 

ABVAL 

0268 

RFF 

5 

LAST 

772 

32, 3455 

27662 

0 

STOVL 

D EL  V SAB 

0269 

REF 

4 

LAST 

83  5 

32, 3456 

03543 

0 

R.N1 

0270 

REF 

12 

LAST 

776 

32, 3457 

27640 

0 

STOVL 

RTIG 

0271 

REF 

4 

LAST 

83  5 

32,3460 

03551 

0 

VN1 

0272 

REF 

9 

LAST 

776 

32, 3461 

17646 

0 

STODL 

VTIG 

0273 

REF 

9 

LAST 

83  5 

32,3462 

03557 

0 

PIPT  I N <=  1 

02  74 

REF 

39 

LAST 

792 

32, 3463 

03440 

1 

STORE 

TIG 

0275 

32,3464 

43014 

0 

SET 

CLFAR 

0276 

REF 

9 

LAST 

778 

32,3465 

01067 

1 

X DEL  VFLG 

0277 

REF 

2 

LAST 

79  5 

32,3466 

04666 

0 

LETABORT 

0278 

32, 3467 

77776 

1 

EX  I T 

0279 

REF 

17 

LAST 

816 

32,  3470 

3 6241 

0 

CAF 

SIX 

0280  REF 4 — LAST  377  32,  3471  55'325_Q TS  R ATF  TNDX 


0281 

REF 

2 

LAST 

75  3 

32,3472 

3 5023 

0 

CAF 

PRIO  13 

0282 

REF- 

11 

LAST 

764 

32,3473 

0 5146 

J 

TC 

PRIOCHNG 

0283 

REF 

1 

32,3474 

3 3612 

1 

CAF 

ORBMANAD 

0284 

REF 

7 

LAST 

244 

32,3475 

54  332 

1 

TS 

DNLSTCOD 
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STORE  TEMPORARILY  IN  PIPTIME1. 


STORE  VTIG  TEMPORARILY  IN  VN1. 


STORF  RTIG  TEMPORARILY  IN  RN1 • 


SET  UP  R60  FOP  A 10  OEG/SEC  MANUV.  RATE. 


REDUCE  PRIORITY  TO  LEVEL  EXPECTED  BY 
P40  AND  P42 . 

INITIALIZE  FOR  ORBITAL  MANEUVERS  LIST 


GAP:  ASSEMBLE  REVISION  069  OF--AGC  PROGRAM  LUMINARY  BY  NASA  202III2-011 

L P70-P71 


0285 

REF 

Odd 

5 

1 A 

LAST 

1 A C T 

244 

q a dl 

32, 3476 

■2  o . 2.  A.77 

55’ 324 
0 5321 

1 

4 

TS 



AGSW  CRD 
CHECK  MM 

02  86 

■■"Ktr 

1 u 

L A 3 1 

ODD 

JC  1 3 t 1 1 

0287 

32,3500 

001  06 

0 

DEC 

70 

0288 

REF 

1 

32,3501 

l 3515 

1 

TC  F 

42SET 

0289 

r_EF 

1 

32,3  502 

3 3521 

J- 

40SET 

CAP 

P4JC  ADR_ 

0290 

REF 

1 

32,  3503 

55’ 566 

1 

TS 

C ADP SAVE 

0291 

REF 

1 

32, 3504 

3 3523 

0 

CAF 

DEC  4 0 

0292 

R F F 

32, 3505 

55’ 567 

_0~ 

CCMMSET 

TS 

MMSAVE 

0293 

REF 

63 

LAST 

83  5 

32,3506 

0 5353 

1 

TC 

PHA  SCHNG 

0294 

32,3507 

05024 

1 

OCT 

05024 

0295  32,  3 510  13000-0 — OCT  13000 


0296 

REF 

2 

LAST 

836 

32,3511 

3 

1567 

1 

CA 

MMS A VF 

02  97 

REF 

3 

LAST 

39  0 

32, 3512 

0 

53  14 

1 

TC 

_NEWM  ODEA 

0298 

REF 

2 

LAST 

836 

32,  3 513 

3 

1566 

0 

CA 

C ADP SAVE 

0299  REF  14 LAST  75  5 32,3514  0 4640-1  TC  BANK  JUMP 


0300 

REF 

1 

32,3515 

3 3522 

1 

42  SET 

CAF 

P42C ADR 

0301 

REF 

3- 

LAST 

8-36 

32, 3516 

55' 566 

1 

TS 

CADR  SAVE 

0302 

REF 

1 

32,3517 

3 3524 

1 

CAF 

DEC42 

0303 

REF 

1 

32,  3520 

1 3505 

0 

TC  F 

COMMSET 

0304 

REF 

2 

LAST 

248 

32,  352  1 

75147 

1 

P40CADR 

CADR 

P43LM 

0305 

REF 

2 

LAST 

248 

32,3522 

75410 

0 

P42CADR 

CADR 

P42LM 

0306 

REF 

_2- 

LAST 

16  2 

JET,  1 566 

CADRSAVE 

— 

MASS  1 

0307 

REF 

3 

LAST 

83  6 

E 7 , 1567 

MMSAVE 

= 

MASS1  +1 

0308 

32, 3523 

00050 

1 

DEC40 

DEC 

40 

0309  3E*  3 524  00052  0 DEC42  — DEC 42- 


0310 

REF 

78 

LAST 

834 

32, 3525 

0 5516 

0 

P71RET 

TC 

DOWN  FLAG 

0311 

REF 

3_ 

LAST 

83  5 

32, 3526 

002  1 5 

-1 

ADR  ES 

L ETA  SORT 

0312 

REF 

2 

LAST 

765 

32, 3527 

3 6000 

1 

CAF 

THRE  SH2 

0313 

REF 

-5- 

L AST 

-78  9 

32,  3 530 

55*251 

1 

TS 

D V THRUSH 

0314 

REF 

1 34 

LAST 

835 

32,  3531 

0 6036 

1 

TC 

I NT  P RET 

0315 

32,  3532 

4501  4 

0 

BON-  - 

CALL 

0316 

REF 

2 

LAST 

833 

32, 3533 

047  07 

0 

FLAP 

0317 

REF 

1 

32,  3 534 

65542 

1 

OLDT  IME 

0318 

REF 

2 

LAST 

833 

32,3535 

65555 

1 

TGDC-CMP 

0319 

32,3536 

52131 

0 

SSP 

GCT  0 

0320 

REF 

7 

LAST 

779 

32,3537 

00053 

1 

QPRE  T 

0321 

-REF 

— L- 

32, 3540 

65337 

-0 

CADR 

INJTARG 

0322 

REF 

1 

32,3541 

60204 

1 

P 1 2 I NIT 

0323 

32,3542 

72545 

0 

OLDTIME 

DLOAD 

S LI 

0324 

REF 

1-5 

-LAST 

78  2 

32,3  543 

03515 

0 

TGO 

0325 

REF 

1 

32,3544 

37643 

1 

STCALL 

T GO  1 

0326 

REF 

2 

LAST 

836 

32,3545 

60204 

1 

P 12  I NIT 
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FOR  MODE=  70 , USE  P40, OTHER W I SE  P42 


SET  TV  MON  THRESHOLD  TO  THE  ASCENT  VALUE. 


IF  F L AP=0 , TGO=T-TIG 


WILL  EXIT  P12INIT  TO  INJTARG 
IF  FL  AP= 1 , T G0  = 2 T GO 
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0327 

0328 

REF 

64 

LAST 

836 

32,  3 546 
32,3547 
32,3550 

77776 
0 5353 
04024 

1 

1 

0 

EXIT 

TC 

opt 

PHASCHNG 
0402  4 

0329 

0330 

32, 3551 

0 0006 

1 

EXTEND 

R-EF 

2 

LAST 

836 

32 , 3 552 

3 1643 

1 

DC  A 

TG01 

V J D i 

0332 

REF 

16 

LAST 

836 

32, 3553 

53*515 

0 

DXCH 

T GO 

0333 

*RE  F 

1 

32,3554 

1 33  76 

1 

TC  F 

J P TH  ROT  1 -3 

0334 

REF 

3 

LAST 

33  1 

E7 , 1642 

T GO  1 

= 

APO 

R0335  *****************************  ***i^*J>  ***********  **J»i?.*  *.*-**-*.**•*=(•***  **$****<? 


0336 

21,2274 

BANK 

21 

033  7 

R-CF 

2 LAST  829 

21,2000 

SETLOC 

R 1 1 

0338 

21,2274 

BANK 

0339  REF  2 LAST  830  TO  -832:  70-  70*  COUNT  * $$/P70 


0340 

REF 

10 

LAST 

246 

21, 2274 

4 0775 

0 

LEGAL?  CS 

MMNUMBER 

IS  THE  DESIRED 

PGM  ALREADY  IN  PROGRESS? 

0-14-1 

R F F 

1 5 

I AST 

8 30 

p] f PP 75 

6 1011 

o 

AD 

MCDP  EG 

0342 

21,2276 

0 0006 

1 

EXTEND 

0343 

REF 

i 

21,2277 

1 2310 

0 

BZF 

ABDPTALM 

0344 

REF 

4 

LAST 

829 

21,  2300 

4 0105 

1 

CS 

FLAG  WPD9 

ARE  THE  ABORTS 

ENABLED? 

0345 

REF 

3 

LAST 

829 

21,2301 

7 4743 

1 

MASK 

LET ABBFT 

0346 

REF 

246 

LAST 

830 

21,2302 

10  000 

.0  _ 

CCS 

A 

0347 

REF 

2 

LAST 

83  7 

21,2303 

1 2310 

0 

TC  F 

ABORTALM 

0348 

REF 

16 

LAST 

82  9 

21 , 2 304 

3 0103 

o 

CA 

F L AG HR 07 

IS  SFRVICER  ON 

THE  AIR 2 

0349 

REF 

3 

LAST 

829 

21,2  305 

7 4747 

0 

MASK 

AVEGFBIT 

0350 

REF 

247 

LAST 

837 

21,2306 

10  000 

0 

CCS 

A 

0351 

REF 

2C8 

LAST 

830 

21,2307 

0 0002 

0 

TC 

Q 

YES.  ALL  IS  WELL. 

0352 

REF 

7 

LAST 

509 

21,2310 

0 4364 

1 

ABORTALM  TC 

F ALT  ON 

0353 

REF 

10 

LAST 

47  1 

21,2311 

0 4457 

0 

TC 

RELD  SP 

0354 

REF 

46 

LAST 

832 

21,2312 

0 4635 

0 

TC 

POST  JUMP 

0355 

REF 

5 

LAST 

46  3 

21,2313 

20723 

0 

CADR 

PINBRNCH 

0356 

32, 3555 

BANK 

32 

0357 

REF 

3 

LAST 

832 

32,2000 

SETLOC 

ABORTS 

0358 

32,3555 

BANK 

0359 

REF 

3 

LAST 

832  TO 

837: 

190  198* 

COUNT  * 

$*/P70 

0361 

32, 3555 

45234 

0 

TGOCOMP  RTB 

DSU 

0362 

REF 

20 

LAST 

835 

32, 3 556 

21462 

1 

LOADTIME 

0363 

0364 

REF 

40 

LAST 

83  5 

32, 3557 
32,3560 

03440 

77661 

1 

0 

SL 

TIG 
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0365 

32,3561 

20214 

1 

1 ID 

0366 

REF 

17 

LAST 

837 

32,3562 

03515 

0 

STORE 

TGO 

0 3^  7 

3?. 3 8A3 

776  1 6 

0 

RVO 

R0368 

0369 

*REF 

37 

LAST 

83  1 

32,  3564 

3 4737 

0 

THROTUP 

CAF 

3 I T 1 3 

0370 

*REF 

5 

LAST 

799 

32,3565 

54  0 55 

0 

TS 

THRUST 

3 £, 

LAST 

8 3 0 

3 7 f 3 5AA 

3 4750 

1 

CAF 

B I T 4 

0372 

* 

32,3567 

0 0006 

1 

EXTEND 

0373 

*REF 

ii 

LAST 

799 

32, 3570 

05  014 

1 

WOR 

CHAN  14 

0374 

*R  Ef 

?0Q 

1 AQT 

8 3 7 

33.  3 S 7 1 

n 000? 

0 

TC 

.0  . 

R0375 

##  $ 

: £ # * * * * **************  * * * **  * * * 3jc  * ***$  * 

0376 

32, 3572 

00453 

0 

DEC299 

DEC 

299 

3 2 t 3 873 

ooo  00 

1 

1 OSFf.S 

70Fr 

1 000 

0377 

32, 3574 

01750 

1 

0378 

32, 3575 

00000 

1 

90SEC 

2DEC 

9000 

0378 

32 , 3 576 

21450 

0 

0379 

32,3577 

01161 

0 

50SECS 

2DEC 

5000  B-17 

0379 

32,3600 

00000 

1 

03  80 

3 7*  3 601 

000  2 i 

1 

H INJECT 

2DEC 

18288  B-24 

0380 

32,3602 

33400 

0 

0381 

32,3603 

11021 

1 

(TGO) A 

2DEC 

37000  B-17 

0 3 81 

3 7 T 3 A04- 

00000 

l 

0382 

32,3605 

00507 

0 

MAT) 

2DEC 

.02 

0382 

32, 3606 

25605 

0 

0 38  3 

R ff 

1 

37 .3 AO 7 

07  1 10 

0 

WH  T r M AnR 

R F M AnR 

ARP  T ARI  F 

R0384 

0385 

REF 

31 

LAST 

833 

E7 , 1513 

EBANK= 

DVCNTR 

0386 

REF 

2 

LAST 

756 

32,3610 

03637 

0 

ATMAGAD 

2C  ADR 

ATMAG 

0386- 

32,3611 

70067 

1 

0387 

REF 

5 

LAST 

250 

32,3612 

00003 

1 

ORBMANAO 

ADRES 

OREM ANUV 

60,000  FEET  EXPRESSED  IN  METEPS. 
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0001 

0002 

REF 

2 

LAST 

59 

24,3504 
30,2000 
30, 2006 

BANK 

SETLOC 

BANK 

24 
P 12 

UUU  j 

0004 

REF 

32 

LAST 

83  8 

E7, 1513 

EBANK= 

DVCNTR 

0005  REF  2 LAST-  59  TO 59:.  A A*  COUNT*  $$/P12 


0006 

00062 

REF 

65 

LAST 

837 

30. 2006 

30. 2007 

0 5353 
04024 

1 P12LM 
0 

TC 

OCT 

PHASCHNG 
0402-4 

00064 

0007 

REF 

REF 

225 
— TO— 

LAST 
L AST- 

834 
78  9 

30.2010 

30. 2011 

0 4616 
111  75 

1 

1 

TC 

CADR 

BANKCALL 
R02  BOTH 

CHECK  THE  STATUS  OF  THE  IMU. 

0008 

REF 

48 

LAST 

832 

30,2012 

0 5504 

0 

TC 

UPFL AG 

0009  REF  3 LAST  789  30,  2013  00141  0 ADRES  MUNFLAG 


00  10 

REF 

49 

LAST 

839 

30,2014 

0 5504 

0 

TC 

UPFL AG 

INSURE  4-JET  TRANSLATION 

CAPABILITY. 

00  1 1 

R FF 

2 

1 AST 

83  2 

30t 2015 

00307 

0 

ADRES 

ACC4-2FL 

00112 

REF 

50 

LAST 

83  9 

30, 2016 

0 5504 

0 

TC 

UPFL  AG 

PREVENT  RIO  FROM 

ISSUING 

CROSS-POINTER 

00  114 

REF 

1 

30,2017 

00015 

0 

ADRES 

R10FLAG 

OUTPUTS. 

0012 

REF 

79 

LAST 

836 

30,2020 

0 5516 

0 

TC 

DOWN  FLAG 

CLEAR  RENDEZVOUS 

FLAG  FOR 

P 22 

0013  RE-F  5 LAST-  789  3Q-.-2021  OOOLQ  0 _ADR£S_  RNDVZFLG 


001301 

001302 

REF 

REF 

REF 

REF 

3 

— 6 
17 
33 

LAST 

LAST 

836 

836 

30.2022 

30.2023 

3 6000 
55*251 

1 

1 

CAF 

TS 

THRFSH2 
D VT  H RUSH 

INITIALIZE 

DVMON 

001303 

001304 

LAST 

LAST 

832 
83  9 

30.2024 

30.2025 

3 4751 
55' 513 

0 

0 

CAF 

TS 

FOUR 

DVCNTR 

00131 

REF 

150 

LAST 

830 

30,2026 

3 4755 

1 

CA 

ZFRD 

00132 

REF 

10 

LAST 

767 

30,2027 

55 1 460 

0 

TS 

TR  KM KCNT 

SHOW  THAT 

R2  9 

DOWNLINK  DATA  ISN'T  RFADY . 

0014 

REF 

1 

30,2030 

3 3044 

1 

CAF 

V 06N 33A 

0015 

REF 

226 

LAST 

839 

30,2031 

0 4616 

1 

TC 

BANKCALL 

FLASH  TIG 

0016 

REF 

22 

LAST 

795 

30,2032 

20351 

1 

CADR 

GOFL  ASH 

0017 

REF- 

37 

LAST 

81  8 

30,2033 

1 6001 

1 

TC  F 

GOTCPOOH 

0018 

30,2034 

1 2036 

1 

TC  F 

+ 2 

PROCEED 

0019 

30,2035 

1 2030 

1 

TC  F 

-5 

FNTER 

00192 

REF 

66 

LAST 

839 

30, 2036 

0 5353 

1 

TC 

PHASCHNG 

00194 

30, 2037 

04024 

0 

OCT 

04024 

0020 

REF 

135 

LAST 

836 

30,2040 

0 6036 

1 

TC 

I NT P RET 

0021 

30,2041 

77624 

1 

CALL 

INITIALIZE 

WM 

AND  /LAND/ 

0022 

REF 

2 

LAST 

790 

30,2042 

60264 

1 

GUIT INIT 

0023 

30,2043 

45014 

0 

SET 

CALL 

00235 

REF 

1 

30,2044 

044  64 

0 

FLP  I 

0024 

REE 

3 

LAST 

836 

30,2045 

602  04 

1 

P 121  NIT 

0025 

30,2046 
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0049 

0050 

REF 

REF 

5 

5 

LAST 

LAST 

844 

844 

34.3711 

34. 3712 

34. 3713 

16265 

02261 

56342 

1 

0 

1 

STOOL 

SR.1 

TBUP 

VE 

DDV 

UU  ->  I 

0052 

REF 

6 

LAST 

845 

34,3714 

02265 

1 

TBUP 

0053 

REF 

5 

LAST 

842 

34, 3715 

36257 

1 

STCALL 

AT 

0054 

REF 

4— 

-L  AST 

844 

34,3716 

60313 

0 

ASCENT 
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P0055 

0056 

0057 

REF 

2 

LAST 

54 

30,2313 
30, 2000 
in,  2^1^ 

BANK 

SETLOC 

BANK 

30 

ASENT 

00  5 8 

0059 

REF 

2 

LAST 

54  TO 

54: 

2 

2* 

COUNT  * 

t J/ A SENT 

0060 

30,2313 

51575 

1 ASCENT 

VLOAD 

ABVAL 

0061 

REF 

18 

LAST 

840 

30,  2314 

03517 

1 

R 

REF 

2 

L ART 

1 T 5 

30* 2315 

262  75 

0 

STOVL 

/R/MAG 

0063 

REF 

7 

LAST 

841 

30,2316 

03535 

1 

UNIT /R/ 

UR*2 (-1 ) 

0064 

30, 2317 

53435 

0 

VXV 

UNI  T 

00-6 

REF 

2 

L ART 

ft  4 ? 

30 , 2320 

03716 

1 

.QAXI S 

0066 

REF 

2 

LAST 

136 

30,2321 

02305 

0 

STORE 

Z AX  I SI 

0067 

30, 2322 

72441 

0 

DOT 

SL1 

REF 

g 

LAST 

ft  4 1 

3f>t  2 32  3 

03525 

o 

. V 

Z.V  = ZDOT  *2 ( -3 ) . 

0069 

REF 

2 

LAST 

136 

30,2324 

26317 

0 

STOVL 

ZDOT 

ZDOT  * 2 ( -7 ) 

0070 

REF 

3 

LAST 

846 

30,2325 

02305 

0 

Z AX  I SI 

00  7 1 

30t  2 32  6 

76435 

1 

VXV 

VSL  1 

0072 

REF 

8 

LAST 

846 

30,2327 

03535 

1 

UNIT  /P/ 

Z X UR  = LAXIS*2(-2) 

0073 

REF 

2 

LAST 

136 

30,2  330 

02277 

1 

STORE 

LAXI  S 

LAXIS*2(-1) 

0074 

30 , 2331 

72441 

o 

DOT 

S LI 

0075 

REF 

9 

LAST 

846 

30, 2332 

03525 

0 

V 

L.V  = YDOT  *2 ( — 8 ) . 

0076 

REF 

3 

LAST 

33  1 

30,  2333 

263  15 

1 

STOVL 

YDOT 

YDOT  * 2 ! -7 ) 

0077 

REF 

9 

1 ART 

8 4 6 

30*2  334 

03535 

1 

UNIT  / R / 

0078 

30, 2335 

72441 

0 

DOT 

S LI 

0079 

REF 

10 

LAST 

846 

30, 2336 

03525 

0 

V 

0080 

REF 

2 

LAST 

13  6 

30,2337 

36313 

_ c 

STCALL 

RDQJ 

ROOT  *2 (-7 ) 

0081 

REF 

2 

LAST 

840 

30, 2340 

57316 

1 

YCOMP 

0082 

30,2341 

77775 

1 

VLOAD 

0083 

-REE 

2 

LAST 

162 

30,  2 342 

03561 

0 

GDT 1 /2 

LOAD  GDTl/2*?(-7)M/CS. 

0084 

30,2343 

50341 

1 

V/SC 

DOT 

0085 

REF 

1 

30, 2344 

27201 

1 

2SFC  (18) 

— 0086 

REF 

10 

LAST 

846 

30, 2 345 

035  35 

1 

UNI T /P/ 

G.UP*2(9)  = GP  *2 ! 9 ) . 

0087 

30, 2346 

47315 

0 

PD  VL 

VXV 

STORE  IN  PDL(O)  (2) 

0088 

REF 

11 

LAST 

846 

30,2347 

03535 

1 

UNI T/R/ 

LOAD  UNIT/R/*2(-l ) . 

0089 

REF 

11 

LAST 

84  6 

30, 2 350 

03525 

o 

v 

UR*2 (-1 ) X V*2(-7)  = H / R*  2 ( — 8 ) • 

0090 

30,2351 

56236 

0 

VSQ 

DDV 

H(2)/R(2)*2(— 16). 

0091 

REF 

3 

LAST 

846 

30,2352 

02275 

0 

/P/MAG 

H ( 2 ) /R( 3 ) *21  9 ) . 

0092 

30,2353 

43352 

1 

R|  1 

DAD 

0093 

30, 2354 

77626 

0 

STADR 

0094 

REF 

2 

LAST 

136 

30,2355 

61456 

1 

STOOL 

GEFF 

G EFF#  2(  10)M/CS/CS. 

0095 

REF 

— 5 

LAST 

84  2 

30,2356 

02273 

0 

ZDOT  D 

0096 

30,  2 357 

77625 

0 

DSU 

0097 

REF 

3 

LAST 

846 

30,2360 

02317 

0 

ZDOT 

0098- 

REF 

—2- 

LAST 

-13  6 

30,  2361 

02347 

0 

STORF 

OZDOT 

D ZDOT  = ( Z DOT  D - ZDOT ) * 2 ( 7 ) M/ CS  . 

0099 

30, 2362 

65361 

0 

VX  SC 

POOL 

0100 

REF 

4 

LAST 

846 

30,2363 

02305 

0 

Z AX  I SI 
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o i o i 

REF 

3 

LAST 

842 

30, 2364 

02271 

1 

YDOTD 

0102 

30,2365 

77625 

0 

DSU 

REF 

4 

LAST 

846 

30,2  366 

02315 

1 

YDOT 

0104 

REF 

2 

LAST 

136 

30,2367 

02345 

1 

STORE 

DYDDT 

DYDOT  = (YDOTD  - YDOT) *2( 7 ) M/CS . 

0105 

0106 
0107 

30, 2370 

65361 

0 

VX  SC 

PDDL 

REF 

REF 

LAST- 

LAST 

30,  ? 37  1 

022  77 

1 

LAX  I S 

3 

842 

30,2372 

02267 

0 

RDOTD 

0108 

30, 2373 

77625 

0 

DSU 

R FF 

3 

1 AST 

846 

30, 2 374 

023  13 

1 

RDOT 

0110 

REF 

2 

LAST 

136 

30,2375 

02343 

1 

STORE 

DRDDT 

DRDOT  = (RDOTD  - RDOT ) * 2< 7 ) M/C S . 

0111 

30,2376 

53361 

0 

VX  SC 

VAD 

Oil? 

REF 

12 

LAST 

846 

30,2  377 

03535 

1 

UNIT/R/ 

0113 

30,2400 

76455 

1 

VAD 

VSL1 

0114 

30, 2401 

77626 

0 

STADR 

0115 

REF 

4 

LAST 

8 3 5 

30,2402 

74131 

1 

STORE 

VGVECT 

VG  = ( DRDOT ) R + ( DYDOT ) L + (DZDOT)Z. 

0116 

30,2403 

776  14 

1 

BON 

0117 

REF 

3 

LAST 

83  5 

30, 2404 

04711 

1 

FLZONEO 

0118 

REF 

1 

30, 2405 

65442 

0 

PREBRET1 

0119 

30, 2406 

77624 

1 

CALL 

0120 

REF 

1 

30, 2407 

61011 

0 

A SC  R STPT 

0121 

30,2410 

41345 

0 

DLOAD 

DMP 

LOAD  TGO 

0122 

REF 

20 

LAST 

842 

30,2411 

03515 

0 

T GO 

TGO  GEFF 

0123 

REF 

3 

LAST 

846 

30,2412 

02321 

0 

GEFF 

0 1 24 

30, 2413 

76561 

1 

_V  X SC 

VS  L 1 

0125 

REF 

13 

LAST 

847 

30,2414 

03535 

1 

UNIT/R/ 

TGO  GEFF  UR 

0126 

30, 2415 

77645 

0 

8VSU 

0127 

REE 

5 

1 AST 

84  7 

80,  ? 41  6 

03646 

o 

VGVECT 

COMPFNSATFD  FOR  GEFF 

0128 

REF 

6 

LAST 

84  7 

30,2417 

03646 

0 

STORE 

V GV  F CT 

STORE  FOR  DOWNLINK 

0129 

30, 2420 

76521 

0 

MX  V 

V S L 1 

GET  VGBODY  FOR  N85  DISPLAY 

01 3D 

REF 

5 

L AST 

819 

30,2421 

02146 

. 0 

XNBP  IP 

0131 

REF 

9 

LAST 

764 

30,2422 

27500 

1 

STOVL 

VGBODY 

0132 

REF 

7 

LAST 

847 

30,2423 

03646 

0 

VGVECT 

0133 

30,2424 

43046 

1 

ABVAL 

BOFF 

MAGNITUDE  OF  VGVECT 

0134 

REF 

3 

LAST 

844 

30, 2425 

04745 

0 

FLRC  S 

IF  FLRCS=0 , DO  NORMAL  GUIDANCE 

0135 

REF 

1 

30,2426 

60433 

0 

MAINENG 

0136 

30,-2427 

77671 

1 

DOV 

USE  T GO=VG/AT  WITH  RCS 

0137 

REF 

1 

30,2430 

20001 

1 

AT/RCS 

0138 

REF 

21 

LAST 

847 

30,2431 

37515 

1 

STCALL 

TGO 

THIS  WILL  BE  USED  ON  NEXT  CYCLE 

0139 

REF 

1 

30, 2432 

60763 

0 

ASCTERM? 

0140 

30,2433 

41471 

0 MAINENG 

DDV 

PUSH 

VG/VE  IN  PDL(O) 

( 2) 

0141 

REF 

6 

LAST 

845 

30, 2434 

02261 

0 

VE 

0142  _ 

30^2435 

442  05 

0 

DM  P 

BDSU 

1-KT  VG/VE 

0143 

P E F 

1 

30,2436 

21046 

0 

KT1 

0144 

REF 

1 

30,2437 

17743 

1 

NEARONE 

0145 

30,2440 

41205 

0 

DMP 

DMP 

TBUP  VG( 1-KT  VG/VE  ) / VE 

(0) 

0146 

REF 

7 

LAST 

845 

30,2441 

02265 

1 

T B U P 

= TGO 

0147 

30,2442 

77625 

0 

DSU 

COMPENSATE  FOR  TAILOFF 

0148 

REF 

j4_ 

LAST 

8 4 2 

-30,-2443 

02263 

1 

T TO 

0149 

REF 

22 

LAST 

847 

30, 2444 

03515 

0 

STORE 

TGO 

0150 

30,2445 

57461 

0 

SR 

D COM  P 
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0151 

30, 2446 

20614 

0 

1 ID 

0152 

REF 

22 

LAST 

754 

30,2447 

17452 

1 

STOOL 

TTOGC 

TG0*2 ( -28 ) CS 

0153 

q EF 

23 

{ ART 

84  7 

30f  2 450 

03515 

0 

T GO 

0154 

30,2451 

45214 

1 

BON 

DSU 

0155 

REF 

6 

LAST 

832 

30,2452 

03710 

1 

I DLE  FLAG 

01^6 

REF 

1 

30,  245  3 

60457 

1 

T2TE ST 

0157 

RFF 

1 

30, 2454 

21026 

0 

4SEC  (17) 

( TGO  - 4 )*? (-17ICS. 

0158 

30, 2455 

77640 

0 

BMN 

ni  sq 

R FF 

1 

30 1 -2  456 

57?  12 

1 

ENGOFF 

0160 

30,2457 

77745 

1 

T2TEST 

DLOAD 

0161 

REF 

24 

LAST 

848 

30,2460 

03515 

0 

TGC 

01^2 

30,2461 

50025 

0 

DSU 

3 MN 

IF  TOO  - T?  NEG.,  CO  TO  CMPONENT 

0163 

REF 

1 

30,2462 

21030 

1 

T2  A 

0164 

REF 

1 

30,2463 

60620 

0 

C MPONENT 

0 ] 6 R 

30f  2464 

45345 

1 

OLOAD 

DSU 

0166 

REF 

8 

LAST 

847 

30,2465 

02265 

1 

TBUP 

0167 

REF 

25 

LAST 

848 

30,2466 

03515 

0 

T GO 

0168 

30, 2467 

450  71 

0 

DDV 

CALL 

1-TGQ/TBUP 

0169 

REF 

9 

LAST 

848 

30,2470 

02265 

1 

TBUP 

0170 

REF 

1 

30, 2471 

65613 

0 

LOS  SUB 

0171 

30, 2472 

41461 

1 

SL 

PUSH 

-L  IN  PDL(O) 

( 2 ) 

0172 

30,2473 

20206 

1 

5 

0173 

30,2474 

44265 

0 

BDDV 

BDSU 

-TG0/L*2(-17) 

0174 

REF 

26 

LAST 

848 

30,2475 

03515 

0 

T GO 

0175 

REF 

10 

LAST 

848 

30, 2476 

02265 

1 

TBUP 

TBUP  + TGO/L  = D12*2<-17) 

0176 

30, 2477 

43006 

0 

PUSH 

BON 

STORE  IN  P DL ( 2 ) 

(4) 

— 0177 

REF 

1 

30,2  500 

04703 

1 

F L PC 

IF  FL PC  = 1,  GO  TO  CONST 

0178 

REF 

1 

30, 2501 

60510 

0 

NORATES 

0179 

30,2502 

45345 

1 

DLOAD 

DSU 

— 0480 — 

-RFF 

27 

-LAST 

84  8 

30, 2 503 

03515 

0 

T GO 

0181 

REF 

1 

30, 2504 

21032 

0 

T 3 

0182 

30,2505 

43044 

0 

BPL 

SET 

F L PC=  1 

0183 

REF 

--1— 

30, 2 506 

605  16 

0 

RATES 

0184 

REF 

2 

LAST 

848 

30, 2507 

04463 

1 

F L PC 

0185 

30, 2510 

77745 

1 

NORATES 

DLOAD 

0186 

REF 

10 

LAST 

842 

30,2  511 

06424 

0 

H 16 2 EROS 

0187 

REF 

2 

LAST 

136 

30,2512 

02355 

0 

STORE 

PRATE 

B = 0 

0188 

REF 

2 

LAST 

136 

30,2513 

02357 

1 

STORE 

YR  AT  E 

0 = 0 

0189 

30,2514 

77650 

1 

GOTO 

0190 

REF 

1 

30,2515 

60600 

1 

CONST 

GO  TO  CONST 

0191 

30,2516 

45345 

1 

RATES 

DLOAD 

DSU 

0192 

REE 

28 

LAST 

848 

30,2517 

03515 

0 

T GO 

0193 

30,2520 

00003 

1 

02D 

TGO  - D12  = 021*2 (-17) 

0194 

30,2521 

72406 

0 

PUSH 

SL1 

IN  POL ( 4 ) 

(6) 

0195 

30,2522 

52421 

1 

BDSU 

SL3 

(1/2TG0  - D2  1 ) *2 ( - 1 3 ) = E * 2 ( - 1 3 ) 

0196 

REF 

29 

LAST 

848 

30,2523 

03515 

0 

T GO 

(8) 

0197 

30,2524 

41325 

0 

PDDL 

DMP 

IN  POL ( 6 ) 

0198 

REE 

30 

LAST 

848 

30,2525 

03515 

0 

TGO 

0199 

REF 

4 

LAST 

847 

30,2526 

02313 

1 

ROOT 

ROOT  TGO  * 21-24) 

0200 

30, 2527 

45215 

0 

DAD 

DSU 

R + RDOT  TGO 
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0201 

REF 

4 

LAST 

846 

30,2  530 

02275 

0 

/R/MAG 

0202 

REF 

5 

LAST 

842 

30,2531 

03627 

1 

RCO 

30, 2 532 

41328 

0 

PDDL 

DMP 

0204 

REF 

3 

LAST 

847 

30, 2533 

02343 

1 

DRDOT 

0205 

30,2534 

00005 

1 

04D 

30, 2 535 

62415 

0 

DAD 

SL2 

0207 

30,2536 

56271 

0 

DDV 

DDV 

0208 

30, 2537 

00007 

0 

06D 

f)?f)Q 

REF 

31 

LAST 

84  8 

30,2  540 

035  15 

0 

T GO 

0210 

REF 

3 

LAST 

848 

30,2541 

02355 

0 

STORE 

PRAT  E 

0211 

30,2  542 

71240 

1 

BMN 

DLOAD 

0212 

REF 

1 

30,2543 

60  547 

1 

CHKBMAG 

0213 

REF 

11 

LAST 

848 

30,2  544 

06424 

0 

H 1 6 Z EROS 

0214 

REF 

4 

LAST 

849 

30,2545 

36355 

1 

STCALL 

PRAT  E 

0215 

REF 

1 

30,2546 

60561 

0 

PROK 

0216 

30,2547 

56202 

1 

CHKBMAG 

SR4 

DDV 

0217 

REF 

11 

LAST 

848 

30, 2550 

02265 

1 

TBUP 

02  1 8 

30,2551 

51025 

1 

DSU 

BPL 

0219 

REF 

1 

30,2552 

21050 

1 

PRLI MIT 

0220 

REF 

2 

LAST 

849 

30, 2553 

60561 

0 

PROK 

0221 

30,2  554 

41345 

0 

DLOAD 

DMP 

0222 

REF 

2 

LAST 

849 

30,2555 

21050 

1 

PRLI MIT 

0223 

REF 

12 

LAST 

849 

30, 2556 

02265 

1 

TBUP 

0224 

30, 2 557 

776  12 

1 

SL4 

0225 

REF 

5 

LAST 

849 

30,2  560 

02355 

0 

STORF 

PRAT  E 

0226 

30,2561 

77745 

1 

PRQK 

DLOAD 

0227 

REF 

32 

LAST 

84  9 

30,2  562 

03515 

0 

TOO 

0228 

30, 2563 

43205 

1 

DMP 

DAD 

0229 

RFF 

5 

LAST 

847 

30,2564 

02315 

1 

Y DOT 

0230 

REF 

-3 

LAST 

84  0 

30,2565 

02341 

0 

Y 

0231 

30,2566 

65225 

1 

DSU 

PDDL 

0232 

REF 

4 

LAST 

842 

30,2567 

03631 

0 

YCO 

0233 

- REF 

3 

LAST 

847 

30,2570 

02345 

1 

DYDOT 

0234 

30,2571 

43205 

1 

DMP 

DAD 

0235 

30,2572 

00005 

1 

04D 

0236 

30,2  573 

56271 

0 

DDV 

DDV 

0237 

REF 

33 

LAST 

849 

30,2574 

03515 

0 

TGO 

0238 

30,2575 

40312 

0 

SL2 

SETPD 

02  39 

30,2  576 

00005 

1 

04D 

0240 

REF 

3 

LAST 

848 

30,2577 

02357 

1 

STORE 

Y R AT  E 

0241 

30,2600 

41345 

0 

CONST 

DLOAD 

DMP 

0242 

REF 

6 

LAST 

8 4-9 

30,2601 

02355 

0 

PRAT  F 

0243 

30, 2602 

00003 

1 

0 2D 

0244 

30,  2603 

56325 

0 

PDDL 

DDV 

0245 

REF 

4 

LAST 

849 

30,  2604 

02343 

1 

DRDOT 

0246 

30,2605 

00001 

0 

OOD 

0247 

30, 2606 

45302 

1 

SR2 

DSU 

0248 

30,  2607 

77626 

0 

STADR 

0249 

REF 

2 

LAST 

136 

30, 2610 

61426 

0 

STODL 

PCONS 

0250 

REF 

4 

LAST 

849 

30, 261 1 

023  57 

1 

YRAT  E 

R + ROOT  T GO  - RCO 
M P AC  = - DR*2(-24). 

-DR  IN  POL (8) 

D21  DRDOT  * 2 ( -24 ) 

( D21  DRD0T-DR)*2(-22) 

(D21  OR DOT-DR ) / E*2 ( -9 ) 

B * 2(8) 

B>0  NOT  PERMITTED 


B*2 (4) 

(B  / TAU)  * 2(21) 

( B/  TAU)  * 2(21)  MAX. 


B MAX.  * 2(4) 
BMAX*2( 3) 


Y DOT  T GO 

Y + YOOT  T GO 

Y +■  Y DOT  T GO  - YCO 

MPAC  = - DY*2(-24.)  IN  PDLI8) 

D21  DYDOT  - DY 


(DPI  DYDOT  - DY)/  F TG0*2(6) 
MPAC  = 0*2(8) 


LOAD  B*2 ( 8 ) 

B D 1 2 * 2 ( - 9 ) 

D 12  B IN  P DL ! 4 ) 

LOAD  DRDOT *2 ( -7 ) 

-DRDOT/ L*2(-7) 
(-DRD0T/L-D12  B)=A*2(-9) 


( 10) 
181 


( 10) 
(8) 

(6) 

( 4! 

( 6) 
(4) 


0*2(3) 


GAP 
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0251 

0252 
02  53 

REF 

4 

LAST 

849 

30.2612 

30. 2613 

30.2614 

65205 

60465 

02345 

0 

0 

1 

DM  P 
BDD  V 

PDDL 

SR2 

DYDOT 

0254 

30,2615 

77625 

0 

DSU 

0255 

30,2616 

00001 

0 

000 

c,  A 

RE-F 

2 

LAST 

136 

30,2  617 

02353 

0„ 

STORE 

YXONS  - 

0257 

30,2620 

776  24 

1 

CMPONENT 

CALL 

0258 

REF 

2 

LAST 

847 

30, 2621 

61011 

0 

ASCRSTRT 

n,cQ 

30,  2 622 

71201 

SETPD 

DLOAD 

0260 

30,2623 

00001 

0 

OOD 

0261 

REF 

1 

30,2624 

27201 

1 

1 OOC  S 

0262 

30,2  625 

77605 

J.- 

DMP 

0263 

REF 

7 

LAST 

849 

30,2626 

02355 

0 

PRAT  E 

02  64 

30,2627 

56215 

1 

DAD 

DDV 

0265 

R EF 

3 

LAST 

84  9 

30,2630 

02351 

1 

PC-ON  S 

0266 

REF 

13 

LAST 

84  9 

30, 2631 

02265 

1 

TBUP 

0267 

30, 2632 

45352 

1 

SL1 

DSU 

026S 

REF 

4 

LAST 

847 

3Q, 2633 

02321 

_Q 

GEFF 

0269 

REF 

2 

LAST 

136 

30, 2634 

16363 

0 

STODL 

ATR 

0270 

REF 

2 

LAST 

850 

30,2635 

27201 

1 

100C  S 

0271 

30, 2636 

43205 

1 

DMP 

DAD 

0272 

REF 

5 

LAST 

849 

30, 2637 

02357 

1 

YRAT  E 

0273 

REF 

3 

LAST 

850 

30,2640 

02353 

0 

Y CON  S 

02  74 

30, 2641 

72471 

o 

DDV 

S LI 

0275 

REF 

14 

LAST 

850 

30,2642 

02265 

1 

TBUP 

0276 

REF 

4 

LAST 

84  l 

30, 2643 

02361 

1 

STORF 

ATY 

02  77 

30, 2644 

65361 

o 

VX  SC 

PDDL 

0278 

REF 

4 

LAST 

847 

30,2645 

022  77 

1 

LAX  I S 

0279 

REF 

3 

LAST 

85  0 

30,2646 

02363 

0 

ATR 

02  80 

30, 2647 

53361 

o 

VX  SC 

- V AD 

0281 

REF 

14 

LAST 

847 

30, 2650 

03535 

1 

JNIT/R/ 

0282 

30,2651 

41572 

1 

VSL1 

PUSH 

0283 

30,2652 

652  46 

1 

ABVAL 

PDDL 

02  84 

REF 

6 

LAST 

84  5 

30,2653 

02257 

0 

AT 

0285 

30, 2654 

45316 

1 

DSQ 

DSU 

0286 

30, 2655 

00043 

0 

3 4D 

02  87 

30,2656 

41525 

0 

PDDL 

PUSH 

0288 

REF 

7 

LAST 

850 

30, 2657 

022  57 

0 

AT 

0289 

30, 2660 

45316 

1 

DSQ 

DSU 

0290 

30,2661 

00043 

0 

34D 

02  91 

30,2662 

71240 

1 

BMN 

DLOAD 

0292 

REF 

— 1 

30,2663 

60667 

0 

NO-ATP 

0293 

30,2664 

00011 

1 

8 D 

0294 

30,2665 

52166 

1 

SQRT 

GOTO 

0295 

REF 

1 

30, 2 666 

60675 

o 

AIMER 

0296 

30,2667 

55345 

0 

NO-ATP 

DLOAD 

BDDV 

0297 

30,2670 

00007 

0 

6D 

0298 

-30,2671 

77761 

1 

VX  SC 

0299 

30,2672 

00001 

0 

OOD 

0300 

30,2673 

14001 

0 

STODL 

OOD 
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DIP  D , EXCH  WITH  -L  IN  POLIO) 
-DYD0T/L*2(-9) 

I— DYDOT/L— D12  D)=C*2(-9) 


B ( T— TO ) *2 ( — 9 ) 

I A+BIT-TO) ) *2 (-9) 

I A + B ( T-TO ) ) / TBUP*  2 ( 8 ) 


ATR* 2 I 9 ) 


(C+DIT-TO)  ) * 2 I - 9 ) 


ATY*  2(9) 

ATY  UY*2 I 8 ) 


AH*2 ( 9 ) IN  POL ( 0 ) 
AHl 2 ) IN  PDLI34) 
AHMAG  IN  PDLI6) 

I AT ( 2 ) — AH  I 2 ) ) * 2 I l 8 ) 
= AT  P2*2 1 1 8 ) 


( ATI 2)KR(2 )-AH( 2)  ) *2  I I 8 ) 
= 4TP  3*2  1 1 8 ) 

IF  AT P3  NEG, GO  TO  NO-ATP 
LOAD  ATP2 , IF  AT P3  POS 

ATP*2  I 9 ) 

KR  AT/AH  = KH 

KH  AH* 2 I 9 ) 


(2,2) 


I 6) 

I 0) 

I 6) 

I 3) 

I 12  ) 
I 10) 


I 3) 


STORE  NEW  AH  IN  POLIO) 


ASSEMBLE  REVISION  069  OF  A GC  PROGRAM  LUMINARY  BY  NASA  20211  12-011 


GAP  : 

L ASCENT  GUICANCE 


0301 

REF 

12 

LAST 

849 

30, 2674 

06424 

0 

H I 6Z  EROS 

0302 

30,2  675 

77765 

0 

AIMER 

SIGN 

0303 

REF 

3 

1 AST 

846 

30, 2676 

02347 

.0. 

DZDOT 

0304 

REF 

3 

LAST 

841 

30,2677 

02365 

0 

STORE 

ATP 

0305 

30, 2700 

77761 

1 

VXSC 

n Adfi 

RFF 

5 

1 AST 

84  6 

30, 2701 

02305 

0 

Z AXI SI 

0307 

30, 2702 

53372 

1 

VSL  1 

VAD 

0308 

30, 2703 

00001 

0 

OOD 

03  1 0 

REF 

16 

LAST 

84  1 

30,2704 

0 32  52 

1 

STORE 

J N F C / 2 

0311 

30,2705 

43001 

1 

SETPD 

BON 

0312 

30,2706 

00001 

0 

OOD 

0313 

R FF 

4 

1 AST 

84  2 

30,2  707 

04704 

0 

FLP  I 

0314 

RFF 

i 

30,2710 

60150 

0 

P 1 2 R ET 

0315 

30, 2711 

77624 

1 

CALL 

03  1^ 

REF 

3 

LAST 

as  o 

80,771? 

61011 

0 

ASCH  STPT 

0317 

30, 2713 

776  14 

1 

BON 

0318 

REF 

3 

LAST 

841 

30, 2714 

04701 

0 

FLVR 

0319 

REF 

1 

30,2715 

60774 

0 

CHEC  KALT 

0335 

30,2716 

57575 

1 

MAINLINE 

VLOAD 

VCOMP 

0336 

REF 

15 

LAST 

850 

30,2717 

03535 

1 

UNIT/RZ 

0337 

RFF 

7 

LAST 

8 l 6 

30,2720 

17260 

0 

STOOL 

UNWC /2 

0338 

REF 

3 

LAST 

842 

30,2721 

03654 

0 

TXO 

0339 

30,2722 

51025 

1 

DSU 

8PL 

0340 

RFF 

- 12 

LAST 

79  9 . 

30,2723 

01235 

1 

P IPT IMF 

0341 

REF 

1 

30,2724 

60730 

0 

A SCT  EPM 

0342 

30,2725 

43014 

0 

CLRXFLAG 

CLEAR 

CLEAR 

0343 

REF 

1 

30,2726 

01664 

1 

N0R29FLG 

0344 

REF 

5 

LAST 

80  5 

30,2727 

06666 

1 

XOV I NFLG 

0345 

30, 2730 

77776 

1 

ASCTERM 

EXIT 

0346 

30 ,2731 

0 0006 

1 

03465 

REF 

17 

LAST 

83  1 

30,2732 

3 4755 

1 

DC  A 

NE30 

0347 

REF 

4 

LAST 

83  1 

30,2733 

52  757 

0 

DXCH 

-PHASE3 

0348 

REF 

5 

LAST 

83  7 

30,  2 734 

3 0105 

0 

CA 

FLAG  WRD9 

0349 

REF 

1 

30,2735 

7 4742 

0 

MASK 

FLRC  SBIT 

0350 

REF 

248 

LAST 

83  7 

30, 2 736 

10  000 

0 

CCS 

A 

03  51 

REF 

1 

30, 2737 

1 2766 

0 

TCE 

A SC  T ELRM3 

0352 

REF 

139 

LAST 

844 

30,2740 

0 6036 

1 

TC 

INTPRET 

0353 

30,2741 

77624 

1 

CALL 

0354 

REF 

4 

LAST 

817 

30,2742 

61062 

1 

F INDCDUW 

0355 

30,2743 

77776 

1 

ASCTERM1 

EXIT 

0356 

30, 2744 

0 0006 

1 

+ 1 

EXTEND 

0356  5 

REF 

18 

LAST 

85  1 

30,2745 

3 4755 

1 

OCA 

NF  3 0 

0357 

REF 

5 

LAST 

85  1 

30,2746 

52  757 

0 

DXCH 

-PHASE3 

0358 

REF 

6 

LAST 

85  1 

30,2747 

3 0105 

0 

ABRTDI SP 

CA 

FLAG  WRD9 

0359 

REF 

2 

LAST 

85  1 

30, 2750 

7 4742 

0 

MASK 

FLRC  SBIT 

0360 

REF 

249 

LAST 

85  1 

30,2751 

10  000 

0 

CCS 

A 

0361 

REF 

2 

LAST 

85  1 

30,2752 

1 2766 

0 

TC  F 

A SCT  ERM3 

0362 

REF 

10 

LAST 

817 

30-,  2753 

3 0104 

1 

CA 

FLAG  VJR  08 

0363 

REF 

3 

LAST 

8 1 7 

30, 2754 

7 4742 

0 

MASK 

FLUNDBIT 

0364 

REF 

250 

LAST 

85  l 

30,2755 

10  000 

0 

CCS 

A 
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ATP  ZAXIS  *2(8). 

AT*2 (9) 

WILL  BE  OVERWRITTEN  IF  IN  VERT.  RISE. 


START  R29  IN  ASCENT  PHASE. 
ALLOW  X-AXIS  OVERRIDE 


INSURE  THAT  THE  NOUN  63  DISPLAY  IS 
BYPASSED  IF  we  ARE  IN  THE  RCS  TRIMMING 
MODE  OF  OPERATION 

BYPASS  DISPLAYS  IF  ENGINE  FAILURE  IS 


INDICATED 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L ASCENT  GUI CANCE 


0365 

REF 

3 

LAST 

85  l 

30,2756 

1 2766 

0 

TCF 

ASCTEPM3 

0366 

REF 

1 

30,2757 

3 3042 

1 

CAF 

V06N63* 

d c r 

L AST 

840 

30. ? 760 

0 4616 

1„ 

TC 

B ANKCALL 

Ujd  i 

0368 

tvC  r 

REF 

C.  c.  O 
2 

LAST 

487 

JUf  t.  I Uv 

30,2761 

20327 

0 

C ADR 

GODS  PR 

0369 

REF 

4 

LAST 

852 

30,2762 

1 2 7 66 

0 

TCF 

ASCTFRM3 

0370 

30,2763 

77776 

_1_ 

ASCTERM2 

EXIT 

0371 

REF 

73 

LAST 

844 

30, 2764 

0 5353 

1 

TC 

PHASCHNC 

0372 

30,2765 

00003 

1 

OCT 

00003 

0373 

REF 

1 32 

LAST 

834 

30,  2 766 

1 5155 

L_ 

ASCTERM3 

JXP 

END OF JOB 

0374 

30,2767 

77776 

1 

ASCTERM4 

EXIT 

0375 

30,2770 

0 0004 

0 

INHINT 

0376 

REF 

39 

LAST 

841 

30,2771 

0 46  74 

0 

TC 

I BNKCALL 

0377 

REF 

7 

LAST 

79  5 

30,2772 

40153 

1 

CADR 

ZATTEROR 

0378 

REF 

1 

30,2773 

1 2744 

0 

TCF 

ASCTEPM1 

0379 

30,2774 

45345 

1 

CHECKALT 

DLOAD 

DSU 

03  80 

REF 

5 

LAST 

849 

30,2775 

02275 

0 

/R/MAG 

0384 

REF 

8- 

LAST 

84  3 

30, 2776 

02337 

1 

/LAND/ 

0382 

30, 2777 

50025 

0 

DSU 

BMN 

0383 

REF 

1 

30, 3000 

26732 

0 

2 5KF  T 

03  84 

REF 

1__ 

30, 3001 

57162 

0 

CHEC  KYAW 

0385 

30, 3002 

43345 

1 

EXI TVR 

DLOAD 

DAD 

0386 

REF 

13 

LAST 

85  1 

30,3003 

01235 

1 

P IPT  IMF 

0387 

REF 

j_ 

30, 3004 

2 55  74 

0 

10SECS 

0388 

REF 

4 

LAST 

85  1 

30, 3005 

03654 

0 

STORE 

TXO 

0389 

30,3006 

77614 

1 

CLRGO 

0390 

REF 

4- 

LAST 

85  1 

30,  3 007 

046  21 

0 

PLVR 

0391 

REF 

1 

30,3010 

607  16 

1 

MAINLINE 

0392 

30, 3011 

77420 

_4 

A SC  R STR  T 

STQ 

F X I T 

0393 

REF 

8 

LAST 

843 

30, 3012 

01164 

0 

n J U 1 ' J 1 r>  1 

TEMPR60 

0394 

REF 

1 

30,3013 

3 4741 

1 

CA 

FI  P I BIT 

0395 

REF 

1 

30, 3014 

6 4746 

0 

AD 

F LZONBI T 

0396 

REF 

7 

LAST 

85  1 

30, 3015 

7 0105 

1 

MASK 

FLAG  WRD9 

0397 

REF 

251 

LAST 

85  1 

30,3016 

10  000 

0 

CCS 

A 

0398 

30, 3017 

1 3022 

0 

TCF 

+ 3 

0399 

REF 

74 

LAST 

852 

30, 3020 

0 5353 

1 

TC 

PHAS  CHNG 

0400 

30,3021 

04023 

1 

OCT 

0402  3 

0401 

REF 

140 

LAST 

8 5 1 

30, 3022 

0 6036 

1 

+3 

TC 

INTPRET 

0402 

30, 3023 

77650 

1 

GOTO 

0403 

REF 

9 

LAST 

852 

30,3024 

01164 

0 

TEMPR60 

0404 

27,  3 16? 

BANK 

27 

0405 

REF 

1 

27,2000 

SFTLOC 

A SENT1 

0406 

27,  3 162 

BANK 

0407 

REF 

2 

LAST 

852 

27,3162 

SET  XFL AG 

CHEC  KYAW 

0408 

27,3 162 

77614 

1 

CHECKYAW 

SET 

0409 

REF 

6 

LAST 

85  1 

27, 3163 

06466 

0 

XOV  I NFLG 
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NO  GUIDANCE  THIS  CYCLE  - 
THE  DAP  ATTITUDE  ERRORS. 


IF  H LT  25K  CHECK  Z AXIS 


E7  S3 


- HENCE  ZERO 


ORIENTATION. 


PROHIBIT  X-AXIS  OVERRIDE 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY 


L 

ASCENT 

GUI CANCE 

0410 

27,3164 

74345 

0 

0411 

REF 

5 

LAST 

850 

27, 3165 

02361 

1 

REF 

5 

LAST 

85  0 

417,  3166 

02277 

1 

Ut-  1 c. 

0413 

27,3167 

74325 

0 

0414 

REF 

4 

LAST 

85  1 

27,3170 

02365 

0 

0415 

REF 

6 

LAST 

85  1 

27, 3 171 

023  05 

0 

0416 

27, 3 172 

53455 

0 

0417 

27,3173 

50206 

0 

041 8 

_ R £f 

LAST 

80  8 

27,3174 

02154 

0 

0419 

27,3175 

45246 

0 

0420 

REF 

1 

27, 3 176 

21052 

0 

0421 

27,3177 

71244 

0 

0422 

REF 

1 

27,3200 

57205 

1 

0423 

REF 

5 

LAST 

84  8 

27,  3201 

02313 

1 

0424 

27,3202 

51025 

1 

0425 

REF 

1 

27,3203 

21034 

0 

0426 

REF 

1 

27,3204 

61002 

1 

0427 

27, 3205 

45575 

1 KEEP VR 

042  8 

REF 

8 

LAST 

85  1 

27, 3206 

50517 

1 

0429 

REF 

16 

LAST 

851 

27,3207 

03535 

J 

0430 

REF 

17 

LAST 

85  1 

27,3210 

37252 

0 

0431 

RFF 

2 

LAST 

85  1 

27,3211 

60730 

0 

0432 

0433— 

REF 

22 

L AST 

84  3 

27.3212 

27. 3213 

77634 

21462 

0 

1 

ENGOFF 

0434 

27, 3214 

43225 

0 

0435 

REF 

14 

LAST 

85  2 

27,3215 

01235 

1 

0436 

REF 

2-3- 

LAST 

84C 

27, 3216 

03452 

_L 

0437 

27,3217 

774  76 

1 

043  8 

REF 

11 

LAST 

800 

27, 3220 

0 7256 

1 

0439— 

REF 

7 

LAST 

7-9-8— 

27, 3221 

3 5016 

_0 

0440 

REF 

25 

LAST 

82  5 

27, 3222 

54  003 

0 

0441 

REF 

34 

LAST 

849 

E7 , 1 514 

0442— 

27, 3223 

0 0-004 

_0  _ 

BIT3H 

0443 

REF 

3 14 

LAST 

844 

27, 3224 

10  155 

1 

0444 

27,3225 

l 32  30 

1 

044  5 

27, 3226 

1 32  30 

1 

044  6 

REF 

151 

LAST 

83  9 

27,3227 

3 4755 

1 

0447 

REF 

45 

LAST 

83  3 

27,3230 

6 4753 

1 

0445 

REF 

4— 

LAST 

C3  3 

27,  3 231 

55 ' 644 

-J 

0449 

REF 

26 

LAST 

833 

27, 3232 

0 5173 

1 

0450 

REF 

1 

27, 3233 

03245 

1 

0451 

REF 

75 

LAST 

85  2 

27, 3234 

0 5353 

1 

0452 

27, 3235 

47014 

1 

0453 

REF 

5 

LAST 

853 

27, 3236 

76133 

1 

0454 

REF 

35 

LAST 

-85  3 

E7.1514  _ 

0455 

REF 

2 

LAST 

853 

27,3237 

03245 

1 

0455 

27, 3240 

56  067 

0 
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DLOAD 

VX  SC 
ATY 
LAXI  S 

PODL 

VXSC 

ATP 

Z AX  I SI 

VAD 

PUSH 

UNIT 

DOT 

YNBP  IP 

ABS 

DSU 

S IN5DEG 

BPJL 

DLOAD 
K EE  P VR 
RDOT 

DSU 

BPL 
40FP  S 
E X I T VR 

VLOAD 

STDVL 

STADR  RECALL  LOSVTC  FROM  P1JSHLIST 

JNrtC/2 

JNIT./R/ 

STCALL 

UNFC/2 

ASCTERM 

RTB 

LOADTIME 

DSU 

DAD 

PIPTIME 
T TOG C _ 

DCOMP 

TC 

CAF 

TS 

E8 A NK  = 

INHINT 

CCS 

TCF 

TC  F 

CAF 

AD 

TS 

TC 

ACRES 

TC 

OCT 

-GENADR 
ERANK= 
2C  ADR 

EXIT 

T PAG  REE  FORCE  SIGN  AGREEMENT  ON  MPAC,  MPAC  +1. 

EBAMK7 
E BAM  K 
T GO 

USED  AS  A CONSTANT 

MPAC  +1 

+3  CIA)  = DT  - 1 BIT 

+2  CIA)  = 0 

ZERC  C( A)  = 0 

BIT1  CIA)  = 1 BIT  OR  DT. 

ENGOFFDT 

TWIDDLE 

ENGOFF) 

PHASCHNG 
4701  4 
ENGOFFDT 
T GO 

ENG0FF1 

GAP:  ASSEMBLE  REVISION  069  OF  A&C  PROGRAM  LUMINARY  BY 

L ASCENT  GUICANCE 


0456 

REF 

141 

LAST 

852 

27,3241 

0 6036 

1 

0457 

27,3242 

52014 

0 

A/,  c:  Q 

DEC 

7 

LAST 

84  8 

27, 3 243 

034  70 

-1 

0459 

iscr 

REF 

2 

LAST 

848 

27, 3244 

60457 

1 

0460 

REF 

40 

LAST 

852 

27,  3245 

0 4674 

0 

ENGOFF1 

0461 

REF 

2 

LAST 

834 

27,3246 

75551 

1 

O A A ? 

ucc 

4. 

LAST 

— 7 54 

27, 3247 

3 5027 

-1- 

*T  O C- 

I'Ll 

0463 

REF 

34 

LAST 

768 

27,3250 

0 5105 

0 

0464 

REF 

29 

LAST 

840 

E7 , 1453 

0465 

TLEF 

3 

LAST 

75  4 

27,3251 

03261 

_J 

0465 

27, 3252 

56067 

0 

0466 

REF 

76 

LAST 

853 

27,3253 

0 5353 

1 

0467 

27, 3254 

07024 

J3 

0468 

27, 3255 

17000 

1 

0469 

REF 

36 

LAST 

853 

E7, 1514 

0470 

REF 

4.. 

L AST- 

854 

27,3256 

03261 

_4_ 

0470 

27, 3257 

56067 

0 

0471 

REF 

56 

LAST 

834 

27,3260 

1 5261 

0 

0472 

REF 

51 

LAST 

839 

27, 3261 

0 5504 

0 

CUTOFF 

0473 

REF 

4 

LAST 

847 

27,3262 

002  14 

0 

0474 

REF 

1 

27, 3263 

3 3330 

1 

-5 

0475 

REF 

229 

LAST 

852 

27, 3264 

0 4616 

1 

0476 

REF 

24 

LAST 

84  0 

27,3265 

20351 

1 

0477 

REF 

1 

27, 3266 

1 3306 

0 

0478 

REF 

1 

27, 3267 

1 3271 

1 

0479  27,3270-  1 3263  1 


0480 

0481 

REF 

41 

LAST 

854 

27,  3271 
27, 3272 

0 0004 
0 4674 

0 

0 

CUTOFF1 

0482 

REF 

8 

LAST 

85  2 

27,3273 

40153 

1 

0483 

REF 

42 

LAST 

854 

27, 3274 

0 46  74 

0 

0464 

REF 

- 5_ 

LAST 

76  3 

27, 3275 

401  40 

0 

0485 

REF 

77 

LAST 

854 

27,3276 

0 5353 

1 

0486 

27, 3277 

04024 

0 

0487 

REF 

1 

27, 3300 

3 3331 

0 

-5 

0488 

REF 

230 

LAST 

854 

27, 3301 

0 4616 

1 

0489 

REF 

25 

LAST 

854 

27,3302 

20351 

I 

0490 

REF 

2 

LAST 

854 

27,3303 

1 3306 

0 

0491 

27, 3304 

1 3306 

0 

0492 

27, 3305 

1 3300 

0 

0493 

REF 

78 

LAST 

854 

27, 3306 

0 5353 

1 

TERMASC 

0494 

27, 3307 

04024 

0 

0495 


27, 3310  0 0004  0 


2021 112-011 


19:02  NOV-  25,1968  FLY 
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USER'S  PAGE  NO.  11  F7  S3 


TC 

SET 

I NTPPET 
GOTO 

IDLEFLAG  DISABLE  DELTA-V  MONITOR 

T2TFST 

TC 

CADR 

I BN K CALL  SHUT  OFF  THE  ENGINE. 

ENG  I N0F2 

CAF 

TC 

EB  ANK  = 
2CADR 

PRI01-7  SET  UP  A JOB  FOR  THE  ASCENT  GUIDANCE 

FINDVAC  POSTBURN  LOGIC. 

WHICH 

CUTOFF. 

TC 

OCT 

OCT 

EBANK= 

2CADR 

PHASCHNG 
07024 
1 7000 
T GO 

CUT C FF 

TC  F 

TASKOVER 

TC 

ADRES 

UPFLAG  SET  FLRCS  FLAG. 

FLRC  S 

CAF 

TC 

CADR 
TC  F 
TCF 
TCF 

V 1 b N 63 
BANKCALL 
GOFLASH 
TERMASC 
CUT0FF1 
-=£ 

INHINT 

TC 

CADR 

TC 

CADR 

TC 

OCT 

I BNK CALL  ZERO  ATTITUDE  ERRORS  BEFORE  REDUCING  OB 

ZATT  FROR 

I BNKCALL 

SET  MIND B 

PHASCHNG 

0402  4 

CAF 

TC 

CADR 

TCF 

TCF 

TCF 

V16N85C 
BANKCALL 
GOFL  ASH 
TERMASC 

+2  PROCEED 

-5 

TC 

OCT 

PHASCHNG 

04024 

INHINT 

RESTORE  DEADBAND  DESIRED  BY  ASTRONAUT. 

GAP  : 
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ASCENT  GUICANCE  USER'S  PAGE  NO.  12 


04  96 

REF 

43 

LAST 

854 

27, 3311 

0 46  74 

0 

TC 

I BNK  CALL 

0497 

REF 

7 

LAST 

762 

27, 3312 

40123 

0 

CADR 

REST  ORDB 

LAST 

ft4  l 

2 7,  3313 

0 5516 

0 

TC 

D0WNFLAG 

DISALLOW  ABORTS  AT  THIS  TIME. 

0498 

0499 

REF 

4 

LAST 

83  6 

27,3314 

00215 

1 

ADRES 

LETABORT 

0500 

REF 

39 

LAST 

840 

27,3315 

1 6001 

1 

TC  F 

GOTOPOOH 

0501 

27, 3316 

50375 

0 

YCOMP 

VLOAD 

DOT 

0502 

REF 

17 

LAST 

853 

27,  331  7 

03535 

1 

UNI T/R/ 

REF 

3 

LAST 

846 

27,3320 

03716 

1 

Q AX I S 

0504 

27,3321 

67552 

1 

SL1 

ARCS  IN 

0505 

27,3322 

41205 

0 

OMP 

DMP 

0506 

REF 

6 

LAST 

849 

27,3323 

03627 

1 

RCO 

0507 

REF 

3 

LAST 

593 

27, 3324 

15404 

0 

2 P I / 8 

0508 

27, 3325 

77652 

0 

SL  3 

0 S 0 9 

REF 

4 

LAST 

849 

27, 3326 

02341 

0 

STORE 

Y 

05  10 

27,3327 

77616 

0 

RVQ 

?7f  3 330 

04  07  7 

o 

V 16N63 

VN 

1663 

0512 

27, 3331 

04125 

0 

V16N85C 

VN 

1635 

R0513 

0514 

30,3025 

BANK 

30 

0515 

REF 

3 

LAST 

846 

30,2000 

SETLOC 

ASENT 

0516 

30,3025 

BANK 

GAP: 


P051T 

0518 

0519 

0520 

0520 

0521 

0521 

0522 

0522 

0523 

0523 

0524 

0524 

0525 

0526 
052-6 

0527 

0528 
0529- 

0530 

0530 

0531 

0531 

0532 

0532 

0533 

0533 

0534 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 
ASCENT  GUICANCE 


ASCENT  GUICANCE  CONSTANTS 

REF  2 LAST  846  33, 3200 

REF  1 30,3027 

30. 3025 

30. 3026 

30. 3027 

30.3030 

30.3031 

30.3032 

30.3033 

30.3034 

30.3035 

30.3036 

30.3037 

30. 3040 

30. 3041 

30. 3042 

30. 3043 

30.3044 


30. 3045 

30. 3046 

30.3047 

30. 3050 

30. 3051 

30. 3052 

30.3053 
— 3-0,3  0 54 

LAST  836  E7, 1 566 


l On  cs 

EQUA1  S 

2 SEC (IP) 

T2A 

EQUALS 

2 SEC  (17) 

00062 

0 

4SECI 17) 

2DEC 

400  B-17 

nnnnn 

l 

00031 

0 

2SEC (17) 

2DEC 

200  B-17 

00000 

1 

001  75 

1 

T3 

2DEC 

1000  B-17 

00000 

1 

00017 

1 

40FPS 

2DEC 

.12192  B- 

23305 

0 

00045 

0 

6SEC ( 18 ) 

2DEC 

600  B-18 

20000 

0 

00010  0 BIT4H  QCL  10 


14400 
000  00 

0 

_] 

2SEC ( 9 ) 

2DEC 

200  B-9 

01477 

1 

V06N63* 

VN 

0663 

01514 

0 

V06N76 

VN 

0676 

01441 

1 

V06N33A 

VN 

0633 

20000 

0 

K.T1 

2DEC 

0.5000 

00000 

1 

75751 

0 

PRL IM  IT 

2DEC 

-.0639 

41775 

1 

00545 

o 

SIN  5DEG 

2DEC 

0.08716  B 

00171 

0 

00022 

1 

MINABDV 

2DEC 

. 0356  B-5 

07212 

1 

REF 


l/DVO 


MASS  1 
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40  FT/SEC  EXPRESSED  IN  M/CS. 


( B/T8UP)MIN=-.1FT .SEC (-3) 


10  PERCENT  BIGGFR  THAN  GRAVITY 


GAP: 

L 

P0535 

0536 

0537 

0538 

R0539 

R0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0547 

0548 

0548 

0549 

0549 

0550 

0550 

0551 

0551 

0552 

0552 

0553 

0553 

0554 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0569 
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ASCENT  GUICANCE  USER'S  PAGE  NO.  14 


THE  LOGARITHM  SUBROUTINE 


BANK 

24 

REF  1 

32| 2000 

SETLOC 

FLOGSUB 

32, 3613 

BANK 

INPUT  .. 

IN  MP AC 

OUTPUT  . 

LOG (X) 

IN  MPAC 

32, 3613 

44301 

0 

LOGSUB 

NORM 

BDSU 

REF  315 

LAST 

85  3 

32, 3614 

00163 

0 

MPAC  +6 

REF  ? 

| AST 

84  7 

32,3615 

17743 

1 

NEAP  ONE 

32,3616 

77776 

1 

EX  IT 

REF  1 

32,3617 

0 7221 

1 

TC 

POLY 

32, 3620 

00006 

1 

DEC 

6 

32,3621 

00000 

1 

2DEC 

. 0000000060 

32, 3622 

00002 

0 

32,3623 

76777 

1 

2DEC 

- .03  12514377 

32, 3624 

77175 

1 

32,  3625 

77400 

0 

2DEC 

- .01 55686771 

32,3626 

75416 

0 

32, 3627 

77507 

0 

2DEC 

-.01  12502068 

32,  3630 

65515 

0 

32, 3-631 

77741 

0 

2DEC 

-.0018545108 

32,3632 

63547 

l 

32,3633 

77052 

0 

20EC 

- .02  86607906 

32,3634 

55373 

0 

32, 3635 

01167 

0 

2DEC 

. 038  5598563 

32, 3636 

30361 

0 

32,3637 

76520 

1 

2DEC 

- .04 19361902 

32, 3640 

75267 

0 

REF  152 

LAST 

853 

32,3641 

3 4755 

1 

CAF 

ZERO 

REF  316 

LAST 

857 

32, 3642 

54  156 

L 

TS 

MPAC  +2 

32, 3643 

0 0006 

1 

EXTFND 

REF  1 

32, 3644 

3 3660 

1 

DC  A 

CL3G2/32 

R-EF  317 

LAST 

85  7 

32,3645 

5?  1 55 

1 

DXCH 

MPAC 

REF  59 

LAST 

824 

32,3646 

52  132 

0 

DXCH 

BUF  +1 

REF  318 

LAST 

857 

32,3647 

3 0162 

1 

CA 

MPAC  +6 

REF  8 

LAST 

82  3 

32,3650 

0 7306 

0 

TC 

SHCRTMP 

REF  319 

LAST 

85  7 

32, 3651 

52  156 

1 

DXCH 

MPAC  +1 

RTF  320 

LAST 

857 

32, 3652 

52  155 

1 

DXCH 

MPAC 

REF  60_ 

LAST 

85  7 

32, 3653 

52  132 

0 

DXCH 

BUF  +1 

REF  321 

LAST 

85  7 

32, 3654 

20  155 

1 

DAS 

MPAC 

REF  142 

LAST 

854 

32, 3655 

0 6036 

1 

TC 

I NT  P RET 

32,3656 

43476 

DCOMP 

RVQ 

32,3657 

00542 

1 

CL0G2/32 

2DEC 

. 02 1 6608494 

32,3660 

344 14 

J 

GAP: 

L 

0001 

0002 

0003 

0004 

R0005 

R 0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0014 

0015 

A0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0031 

0032 

0033 

0034 

0035 
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37,3374 

BANK 

37 

REF 

1 

37,2000 

SETLOC 

SEP  V 1 

37  T 3 374. 

BANK 

REF 

35 

LAST 

844 

E7, 1513 

EB ANK= 

DVCNTR 

PREREAO 

$ *£$  if  ****^t«  $ $ ***$$  if  if  *##***  # $***$$£#  **  *#**«£* 

COUNT* 

$ t / s FRV 

REF 

10 

LAST 

820 

37,3374 

3 4757 

0 

PREREAO 

CAE 

SEVEN 

5.7  SPOT  TO  SKIP  LASTBI AS  AFTER 

REF 

1 

37,3375 

0 3515 

0 

TC 

GNUF  AZE5 

RESTART. 

REF 

4 

LAST 

610 

37, 3376 

3 5031 

0 

CAF 

PRI021 

REF 

21 

LAST 

736 

37, 3377 

0 5072 

1 

TC 

NOVAC 

REF 

5 

LAST 

347 

F3 , 1 460 

EB ANK= 

NBDX 

RFF 

i 

37, 3400 

03663 

1 

2CADR 

LASTBI AS 

DO  LAST  GYRO  COMPENSATION  IN  FREE  FALL 

REF 

i 

37, 3401 

14063 

1 

REF 

2 

LAST 

347 

37,3402 

0 3533 

1 

BIBI Bl AS 

TC 

PIPASR  +3 

CLEAR  + READ  PIPS  LAST  TIME  IN  FRF5+F133 

DO  NOT  DESTROY  VALUE  OF  PIPTIME1 

REF 

17 

LAST 

83  7 

37, 3403 

4 0103 

1 

CS 

FLAGWPD7 

REF 

1 

37, 3404 

7 4773 

1 

MASK 

SUPF  R011 

SET  V37FLAG  AND  AVEGFLAG  [BITS  5 AND  6 

REF 

18 

LAST 

85  8 

3 7 t 3405 

26  103 

1 

ADS 

FL AGWR07 

OF  FLAGWRD7 ) 

REF 

2 

LAST 

180 

37,3406 

4 4735 

0 

CS 

DRFTBIT 

REF 

20 

LAST 

816 

37, 3407 

7 0076 

1 

MASK 

FLAGWRD2 

RESFT  DRIFTFLAG 

REF 

21 

LAST 

858 

37,3410 

54  076 

1 

TS 

FLAG  WRD2 

REF 

1 8 

—\_  AST 

R 3 9 

^7  r 3 41  1 

R 4751 

0 

CAF 

FOUR 

TNITJAI  I 7 F nv  MONITOR 

REF 

3 

LAST 

12  3 

37, 3412 

5 5 ' 2 57 

1 

TS 

PIPAGE 

RFF 

— 3__ 

^ 7 T 3 4 1 3 

T 3523 

0 

CAF 

FN[LI  RC  AD 

POINT  OUTR  OUT  F TO  FMO-OF-JOR. 

REF 

3 

LAST 

834 

37, 3414 

55 ' 2 60 

0 

TS 

OUTR  CUTE 

REF 

-3— 

LAST 

^ 4 F 

37  f 3 415 

3 7 707 

0 

P R I 0 22 

REF 

35 

LAST 

854 

37,3416 

0 5105 

0 

TC 

F INDVAC 

TO  FIRST  ENTRY  TO  AVERAGE  G. 

REF 

36 

LAST 

858 

E 7, 1513 

EB ANK= 

DVCNTR 

REF 

— 2 

-LAST 

257 

37,3417 

02421 

1 

2CADR 

NORMLIZE 

37, 3420 

66067 

0 

REF 

-5-3- 

LAS  T 

83  C 

37*  3 4?  1 

3 47  52 

0 

C A 

t wn 

5*75  POT  FOR  R FR  F A OAf  AND  NJORMI  T 7F 

REF 

1 

37, 3422 

0 3511 

1 

GOR  E AOA  X 

TC 

GNUTFAZ5 

REF 

5 

LAST 

616 

37,3423 

3 5000 

1 

CA 

2 SEC  S 

WAIT  TWO  SECONDS  FOR  READACCS 

REF 

8 

-LAST 

820 

37, 3424 

0 5224 

0 

TC 

i/ARDELAY 

GAP  : 

L 

P0036 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

A0045 

A0046 

A0047 

004  8 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 
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SERVICER 

USER*  S PAGE  NO.  2 E7  S3 

4$  *$$**## 

REF  1 37,3425  4 3524  0 

OFF  3 1 AST  83?  37.3426  6 0030  1 

REAOACCS 

PEADACCS 

3#*  $**£:!<*  ^fc***:#*******  iSc*******#*^**#***##:!**:)!***#****  If*  If  if.  If  If 

CS  0CT37771  THIS  PIECE  OF  CODING  ATTEMPTS  TO 

AD  TIME5  SYNCHRONIZE  REAOACCS  WITH  THE  DIGITAL 

REF 

252 

LAST 

852 

37,3427 

10  000 

0 

CCS 

A 

AUTOPILOT  SO  THAT  A PAXIS  RUPT  WILL 

REF 

91 

LAST 

82  3 

37, 3430 

4 4753 

0 

CS 

ONE 

OCCUR  APPROXIMATELY  70  MILLISECONDS 

37,3431 

1 34  33 

_1_ 

TCF 

+ 2 

FOLLOWING  THE  REAOACCS  RUPT.  THE  70  MS 

REF 

92 

LAST 

859 

37,3432 

3 47  53 

1 

CA 

ONE 

OFFSET  WAS  CHOSEN  SO  THAT  THE  PAXIS 

REF 

4 

LAST 

85  9 

37, 3433 

26  030 

0 

+2 

ADS 

T I ME  5 

RUPT  WOULD  NOT  OCCUR  SIMULTANEOUSLY 

WITH  ANY  OF  THE  3 SUBSEQUENT  R10,R11 

INTERRUPTS  — THUS  MINIMIZING  THE  POSS- 

IBILITY OF  LOSING  DOWNRUPTS. 

REF 

3 

LAST 

858 

37,  3434 

0 3530 

1 

TC 

P I PA  SR 

READ  THE  PIPAS. 

REF 

16 

LAST 

8 2 0 

37, 3435 

5 47  56 

1 

PIPSOONE 

CA 

FIVE 

REF 

2 

LAST 

85  8 

37,3436 

0 3515 

0 

TC 

GNUFAZE5 

REF 

93 

LAST 

859 

37, 3437 

3 4753 

1 

RED05.5 

CAF 

ONE 

REF 

4_ 

l AST 

8 58 

37, 3440 

55 '257 

1 

TS 

PIPAGE 

REF 

7 

LAST 

76  7 

37, 3441 

3 4736 

1 

CA 

PRI020 

REF 

36 

LAST 

85  8 

37, 3442 

0 5105 

J0_ 

TC 

FINDVAC 

REF 

37 

LAST 

85  8 

E7 , 1513 

EB ANK= 

DVCNTR 

REF 

2 

LAST 

257 

37,3443 

02200 

1 

2CADR 

SEPV  ICEP 

SET  UP  SERVICER  JOB 

37,3444  66067  0 


REF 

22 

LAST 

753 

37.3445 

37. 3446 

3 4743 
0 0006 

0 

I 

CA 

EXTEND 

B I T9 

REF 

28 

LAST 

83  1 

37, 3447 

05  Oil 

1 

WOR 

DSALMOUT 

TURN  ON  TEST  CONNECTOR  OUTSIT 

REF 

19 

-LA  S T 

85-8- 

837 

37,8  450 

37. 3451 

37. 3452 

3 0103 

o 

CA 

FLAG  WRD7 

REF 

4 

LAST 

7 4747 
0 00  06 

0 

1 

MASK 

EXTEND 

AVEG FBIT 

REF  1 37,3453  1 3503  0 BZF  AVFGOUT  AVEGFLAG  DOWN  - SET  UP  FINAL  EXIT 


REF 

REF 

7 

2 

LAST 

LAST 

817 
20  1 

37.3454 

37. 3455 

3 0102 
7 4744 

1 

0 

CA 

MASK 

FLAG  WRD6 
MUNF  LB  I T 

37, 3456 

0 0006 

1 

EXTEND 

REF 

1 

37,3457 

1 3501 

1 

BZF 

MAKE  ACCS 

MUNFLAG  CLEAR  - 

BYPASS  LR  AND  DISP. 

REF 

2 

LAST 

768 

37,3460 

10  755 

1 

CCS 

PHAS  F2 

REF 

2 

LAST 

859 

37,3461 

1 3501 

1 

TCF 

MAKE  ACCS 

PHASE  2 ACTIVATED  - AVOID  MULTIPLE  RIO. 

REF 

11 

LAST 

85  8 

37,3462 

3 4757 

0 

CAF 

SEVEN 

SET  PIPCTR  FOP 

4X/SEC  RATE. 

REF 

4 

LAST 

829 

37, 3463 

55*056 

1 

TS 

P I PCTR 

REF 

11 

LAST 

799 

37, 3464 

4 0025 

1 

CS 

T IME  1 

SET  TBASE2  .05 

SECONDS  IN  THE  PAST. 

REF 

17 

LAST 

859 

37, 3465 

6 4756 

1 

AD 

F I VF 

REF 

— 2_ 

LAST 

23  5 

37,3466 

6 4734 

0 

AD 

NEG 1 /? 

REF 

3 

LAST 

859 

37, 3467 

6 4734 

0 

AD 

NEG1 /2 

REF 

3 

LAST 

48  8 

37,3470 

57 ' 0 55 

0 

XCH 

TBASE2 

GAP: 

L 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0102 

0103 

0104 

0105 

0106 

0107 

0108 
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SERVICER 


USER'S  PAGF  NO. 


E7  S3 


REF 

3 

LAST 

388 

37, 3471 

3 4361 

1 

CAF 

D EC  1 7 

2.2 1 SPOT  FOP  P 10, R 1 1 

REF 

125 

LAST 

831 

37,  3472 

54  001 

1 

TS 

L 

37, 3473 

4 0000 

0 

COM 

REF 

5 

LAST 

744 

37,3474 

52  755 

1 

OXCH 

-PHA  SE2 

L AS  T 

37t  3476 

3 60  07 

o 

CAF 

OC  T2  4 

FIRST  RIO, Rll  TN  .200  SECONDS. 

REF 

33 

LAST 

767 

37,3476 

0 5203 

0 

TC 

W A I TLIST 

REF 

18 

LAST 

855 

E7 , 1 534 

EB ANK= 

UNIT/P/ 

REJF 

3 

1 AST 

82  9 

37,3477 

02102 

0 

2C  ADR 

RIO, Rll 

37, 3500 

42067 

0 

REF 

19 

LAST 

858 

37,  3501 

3 4751 

0 

MAKEACCS 

CA 

FOUR 

R F F 

1 

3 7,  3 502 

1 3422 

i 

TC  F 

GCRE ADAX 

DO  PHASE  CHANGE  AND  RECALL  READACCS 

3 7,  3 603 

0 0006 

1 

AVEGHUT 

FXTFND 

REF 

1 

37,3504 

3 3522 

1 

DC  A 

AVOUTCAO 

SET  UP  FINAL  SERVICER  EXIT 

REF 

5 

LAST 

834 

37, 3505 

5 3' 2 53 

0 

OXCH 

AVGEXIT 

RFF 

20 

LAST 

860 

37, 3506 

3 4751 

0 

CA 

FOUR 

SET  5.4  SPOT  FOR  REREADAC  AND  SERVICER 

REF 

2 

LAST 

85  8 

3 7,3  507 

0 3511 

1 

TC 

GNUTFAZ5 

IF  REREADAC  IS  CALLED,  IT  WILL  FXIT 

RFF 

57 

1 AS  T 

8 54 

37, 3510 

0 52  61 

1 

TC 

T AS  K OVER 

END  TASK  WITHOUT  CALLING  READACCS 

REF 

12  6 

LAST 

86  0 

37,3611 

6 4 0 0 1 

1 

GWIITF  A7  5 

TS 

-L  - 

SAVF  INPUT  IN  L 

REF 

12 

LAST 

859 

37, 3512 

4 0025 

1 

CS 

T I ME  1 

REF 

1 

37, 3513 

55' 063 

1 

TS 

TBASE5 

SET  TBASE5 

37,3514 

1 35  16 

1 

TC  F 

+ 2 

REF 

127 

LAST 

860 

37,3515 

54  001 

1 

GNUFAZE5 

TS 

L 

SAVE  INPUT  IN  L 

R FF 

1 28 

| AST 

86  0 

37,  3 51 6 

4 0001 

1 

CS 

_] 

-PHASE  IN  A,  PHASE  IN  L 

REF 

2 

LAST 

229 

37,3517 

52  763 

1 

DXCH 

-PHA  SE5 

SET  -PHASE  5, PHASE  5 

REF 

210 

LAST 

838 

37,3520 

0 0002 

0 

TC 

Q 

REF 

38 

LAST 

859 

E7 , 1513 

EBANK  = 

D VC  N TP 

REF 

— t- 

37, 3521 

03661 

0 

AVOUTCAO 

2C  ADR 

AVGEND 

REF 

1 

37, 3522 

64067 

1 

REF 

— 7- 

1 AST 

8 3 2 

37,3523 

776  27 

1 

FWO  I Rf  AO 

r Aor 

SFRU  FY  T T +2 

37, 3524 

37771 

1 

0CT3777 1 

OCT 

3777  1 

33, 2200 

BANK 

33 

REF 

4 

LAST 

59 

33,2000 

SETLOC 

SERV  ICES 

33,2200 

BANK 

REF 

4 

LAST 

59  TO 

60  : 

12  37* 

COUNT  * 

$ f / S ERV 
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0112 

0113 

ni  1 A 

REF 

79 

LAST 

8 5 A 

33. 2200 

33.2201 

33.2202 

0 5353 
16035 
20000 

1 

0 

0 

SERVICER  TC 
OCT 
OCT 

PHASCHNG 
1603  5 
20000 

RESTART  REREADAC  + 

SERV  ICER 

U I I *+ 

0115 

REF 

39 

LAST 

860 

E7, 1513 

EB ANK= 

D VC  N TR 

0116 

REF 

1 

33,2203 

02211 

1 

2CADR 

GETA  BVAL 

0116- 

REF 

1 

33,2204 

66  06  7 

0 

0117 

REF 

3 

LAST 

80  1 

33,2205 

3 7715 

0 

CAF 

PR ID31 

INITIALIZE  1 /P I PADT 

IN  CASE  RESTART  HAS 

0118 

REF 

7 

LAST 

3 A 9 

33,2206 

55*075 

0 

TS 

1/PI PADT 

CAUSED  LASTBIAS  TO 

BE  SKIPPED. 

0119 

REF  231 

LAST 

8 5 A 

33, 2207 

0 A616 

1 

TC 

BANKCALL 

PIPA  COMPENSATION  CALL 

m?n 

R FF  2 

LAST 

39  8 

33, 2210 

15263 

1 

CADR 

1/PI  PA 

0121 

REF  1 A3 

LAST 

857 

33,2211 

0 6036 

1 

GET  ABVAL 

TC 

I NTPRET 

3 S t 2 7 1 7 

51575 

1 

VLOAD 

ABVAL 

0123 

REF  5 

LAST 

210 

33, 2213 

00325 

0 

DEL  V 

0 1 2 A 

33 , 2 21 A 

77776 

1 

EXIT 

012ft 

R FF  ^ 77 

1 AST 

8 ft  7 

33, 22 15 

3 01  5A 

1 

CA 

MPAC 

0126 

REF  A 

LAST 

797 

33, 2216 

5 5*  2 A6 

1 

TS 

ABDELV 

ABDELV  = CM/SEC*2(-1A) . 

0127 

33,2217 

0 0006 

1 

EXTEND 

n ] 2# 

R FF  1 

33,2220 

7 2020 

0 

MB 

KPI  P 

0129 

REF  A 

LAST 

BAA 

33,2221 

53*512 

l 

DXCH 

ABDVCONV 

ABDVCONV  = M/CS  *2 (-5 ) . 

01292 

33,2222 

0 0006 

1 

EXTEND 

0 1 29  A 

R F F 9 

LAST 

833 

33, 2223 

3 12A5 

0 

DC  A 

MASS 

01296 

REF  5 

LAST 

856 

33, 222A 

53' 567 

0 

DXCH 

MASS  1 

INITIALIZE  MASS1  IN  CASE  WE  SKIP  MASSMON 

0130 

REF  1 1 

LAST 

85  1 

33,2225 

A 01  OA 

0 

MASS MON 

cs 

FL AGWRD8 

ARE  WE  ON  THE  SURFACE? 

0131 

REF  6 

LAST 

550 

33,2226 

7 A7AA 

0 

MASK 

SURFFBIT 

0132 

33,2227 

0 0006 

1 

EXTEND 

0133 

REF  1 

33,2230 

1 2251 

1 

BZF 

MOONSPOT 

YES:  BYPASS  MASS  MESS 

013A 

REF  16 

LAST 

83  1 

33, 2231 

3 0106 

0 

CA 

FLGWRD10 

NO:  WHICH  VEX  SHOULD  BE  USED? 

0135 

REF  11 

LAST 

83  1 

33,2232 

7 A737 

1 

MASK 

APSELBIT 

0 136 

REF  253 

L AST 

859 

33,2233 

10  000 

0 

CCS 

A 

0137 

33, 223A 

0 0006 

1 

EXTEND 

IF  EXTEND  IS  EXECUTED,  APSVEX  — > A, 

0138 

REF  3 

LAST 

8 A 2 

33, 2235 

3 2001 

l 

DC  A 

APSVEX 

OTHERWISE  DPSVEX  — > A 

0139  REF  211  LAST  860  33,2236  54-002  1 TS  Q 


0140 

0141 

REF 

5 

LAST 

86  1 

33, 2237 
33, 2240 

0 0006 
3 1512 

1 

0 

EXTEND 

DCA  ABDVCONV 

0142 

33,2241 

0 0006 

1 

EXTEND 

0143 

REF 

212 

LAST 

861 

33,2242 

10  002 

1 

OCT  10002  DV 

Q 

WHERE  APPROPRIATE  VEX  RESIDFS 

0144 

33,2243 

0 0006 

1 

EXTEND 

0145 

REF 

10 

LAST 

86  1 

33, 2244 

7 1244 

0 

MP 

MASS 

0146 

REF 

6 

LAST 

86  1 

33,2245 

53’ 567 

0 

DXCH 

MASS  1 

0147 

33, 2246 

0 0006 

1 

EXTEND 

0148 

REF 

11 

LAST 

86  1 

33, 2247 

3 1245 

0 

DCA 

MASS 

0149 

REF 

7 

LAST 

86  1 

33,2250 

21' 567 

0 

DAS 

MASS  1 
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0150 

REF 

1 

33, 2251 

3 2021 

0 

MOGNSPOT  CA 

KPIP1 

TP  MPAC  = ABDFLV  AT  2114)  CM/SFC 

0151 

REF 

9 

LAST 

857 

33, 2252 

0 7306 

0 

TC 

SHOPTMP 

MULTIPLY  BY  KPIP1  TO  GFT 

n i r? 

DTP 

7 -a 

LAST 

86  1 

33, 2253 

52  155 

l 

OXCH 

MPAC 

ABDELV  AT  217)  M/CS 

U I D c 

0153 

rvc  t 

REF 

J-C.  D 
6 

LAST 

74  1 

33, 2254 

21’ 506 

1 

OAS 

D VTOTAL 

UPDATE  DVTOTAL  FOR  DISPLAY 

n rr 

1 

3 77  1 1 

C A 

PR  I Ci  24 

PROTECT  NBSM  IN  XNBNDX 

Ell  54 
0155 

i<t:r 

REF 

1 

12 

LAST 

83  5 

_>  j i c cZjj 

33, 2256 

0 5146 

1 

TC 

PRICCHNG 

0156  REF  1 33,2257-0  2473  0 TC  TMPTOSPT 


0157 

0158 

0159 
nx  ad 

REF 

232 

— 2- 

144 

LAST 

LAST 

LAST 

86  1 
612 

861 

33,2260 
3 3,2261 

33,2262 
33, 2763 

0 4616 
475?  1 

1 

1 

TC 

CAOR 

BANKCALL 
OU  IC  TRIG 

REF 

0 6036 
45160 

1 

1 

TC 

AXC  , 1 

INTPRET 

CALL 

0161 

REF 

6 

LAST 

847 

33,  2264 

02145 

0 

XNBP  IP 

0162 

REF 

1 

33, 2265 

31271 

1 

XNBNDX 

0163 

33,2266 

77776 

1 

EXIT 

0164 

REF 

8 

LAST 

859 

33,2267 

3 4736 

1 

CA 

PRI020 

RESTORE  PRIO  20 

0165  REF  13  LAST  862  33,2270  0 5146  1 TC  PRICCHNG 


0166 
0 1 67 

REF 

145 

LAST 

862 

33,2271 

33*227? 

0 6036 
45014 

1 

o 

AVER AGEG 

TC 

BON 

INTPRET 
CAL  L 

0168 

REF 

4 

LAST 

839 

33,2273 

03307 

0 

MUNF LAG 

0169 

REF 

1 

33,2274 

67064 

1 

RVBOTH 

01  70 

REF 

1 

33,2  ?75 

67030 

o 

CALC  PVG 

0171 

33, 2276 

77776 

1 

EXIT 

0172 

REF 

1 

33,2277 

0 3535 

1 

GOSERV 

TC 

QUIKFAZ5 

0173 

REF 

1 

33,2300 

0 2456 

1 

COP YCYCL 

TC 

COPY  CYC 

AO  1 74 

C a 

7 F R P 

A T5  7FRP  PM  RFTIIRM  FROM  mPYTYf 

0175 

REF 

1 

33, 2301 

55' 160 

0 

TS 

PIPATMPX 

STILL  UNDER  INHINT 

0176 

REF 

1 

33, 2302 

55' 161 

1 

TS 

PIPATMPY 

0177 

-REE 

— 1— 

33, 2303 

55*162 

1 

TS 

P I PA  TMPZ 

0178 

REF 

2 

LAST 

816 

33,2304 

4 4741 

0 

CS 

STEERBIT 

CLEAR  STEERSW  PRIOR  TO  OVMON. 

0179 

REF 

22 

LAST 

85  8 

33,  2 305 

7 0076 

1 

MASK 

F L AG  F.RD2 

0180 

REF 

23 

LAST 

862 

33,2306 

54  076 

1 

TS 

FLAG  WRD2 

01  8 1 

REF 

3- 

LAST 

769 

53  T ? 3Q7 

3 4745 

Q 

C AF 

T ni  FFRIT 

T 5 THF  ini  F FI  A C,  5FT9 

0182 

REF 

20 

LAST 

859 

33, 2310 

7 0103 

l 

MASK 

F LAGWRD7 

0183 

REF 

254 

LAST 

86  1 

33,2311 

10  000 

0 

CCS 

A 

0184 

REF 

1 

33, 2 312 

1 ? 3 45 

0 

TC  F 

N03V  M0N1 

IDLEFLAG  = 1,  HFNCF  SET  AUXFLAG  TO  0 

0185 

REF 

8 

LAST 

859 

33,2313 

4 0102 

0 

CS 

FLAG  WPD6 

0186 

REF 

— 1— 

33,2  314 

7 4752 

1 

MASK 

AUXF  LBIT 

0187 

REF 

255 

LAST 

86  2 

33,2315 

10  000 

0 

CCS 

A 

0188 

REF 

1 

33,2316 

1 2351 

0 

TC  F 

N0DVM0N2 

AUXFLAG  = 0,  HENCE  SET  AUXFLAG  TO  1. 

862 
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0189 

REF 

7 

LAST 

839 

33, 2317 

4 1251 

1 DVMON 

CS 

DVTHRUSH 

0190 

REF 

5 

LAST 

86  1 

33,  2320 

6 1246 

0 

AD 

ABDELV 

33, 2 321 

0 0006  1 

EXTEND 

0192 

REF 

1 

33,2322 

6 2355 

0 

8ZMF 

LDTHRUST 

0193 

REF 

24 

LAST 

86  2 — 

33,2323 

-4  0076 

1 

-CS 

FLAGWRD2 

0194 

REF 

3 

LAST 

86  2 

33,2324 

7 4741 

0 

MASK 

STEERBIT 

0195 

REF 

25 

LAST 

863 

33,2325 

26  076 

1 

ADS 

FLAG  WRD2 

0196 

REF 

94 

LAST 

859 

33,2326 

3 4753 

1 DVCNTSET 

CAF 

ONE 

0197 

REF 

40 

LAST 

86  1 

33,2327 

55*513 

0 

TS 

DVCNTR 

0198 

REF 

17 

LAST 

86  1 

33, 2330 

3 01  06 

0 

CA 

FLGWRD10 

0199 

REF 

12 

LAST 

86  1 

33,2331 

7 4737 

1 

MASK 

APSFLBIT 

0200 

REF 

256 

LAST 

86  2 

33, 2332 

10  000 

0 

CCS 

A 

0201 

REF 

1 

33,2333 

1 2400 

0 

TCF 

USEJETS 

02  02 

REF 

23 

LAST 

85  9 

33, 2334 

3 4743 

0 

CA 

B I T9 

0203 

33, 2335 

0 0006 

1 

EXTEND 

0204 

REF 

3 

LAST 

206 

33, 2336 

02  032 

1 

RAND 

CHAN  32 

0205 

33, 2337 

0 0006 

1 

EXTEND 

02  06 

REF 

2 

LAST 

86  3 

33,2340 

1 2400 

0 

BZF 

USE J ETS 

0207 

ref 

2 

L a<;t 

76  7 

^ ? 34] 

4 4 7T  6 

n jjsfGTS 

CS 

1 1 S E Q R J T S 

0208 

REF 

29 

LAST 

83  1 

33, 2342 

7 0111 

i 

MASK 

DAPBCOLS 

0209 

REF 

30 

LAST 

863 

33,2343 

54  111 

i 

TS 

DAPBGOl S 

0210  REF  1 33,2344  1 2403  0 TCF  SERVOUT 


0211 

REF 

2 

LAST 

862 

33,2345 

4 

4752 

1 

NODVMON1 

CS 

AUXFLBIT 

0212 

REF 

— 9 

LAST 

86  2 

33,2-346 

0102 

0 

-MASK 

F L AGWRDfc 

0213 

REF 

10 

LAST 

86  3 

33,2347 

54 

102 

0 

TS 

FLAGWRD6 

0214 

REF 

3 

LAST 

86  3 

33,2350 

1 

2400 

0 

TCF 

USE  J FTS 

0215 

REF 

11 

-LAST 

86  3 

33.2351 

33.2352 

4 

0102 

0 

N0DVMQN2 

C-S 

F L AGWRD6 

0216 

REF 

3 

LAST 

86  3 

7 

4752 

1 

MASK 

AUXFLBIT 

0217 

REF 

12 

LAST 

86  3 

33,2353 

26 

102 

0 

ADS 

FLAG  WRD6 

0218  R-EF  4 LAST  86  3 33,2354  1 2400  0 TCF  JSEJEXS 


0219 

0220 

REF 

REF 

2 

41 

LAST 

LAST 

862 
86  3 

33. 2355 

33.2356 

0 3535 
11*513 

1 

0 

LOTHRUST  TC 
CCS 

QUI KFAZ5 
DVCNTR 

0221 

REF 

1 

33,2357 

1 2371 

1 

TCF 

DECC NTR 

0222 

fLEF 

— 1— 

33, 2 360 

l 0 76 1 

Q_ 

XC-S 

PHA  S E4 

02222 

REF 

2 

LAST 

863 

33,2361 

1 2403 

0 

TCF 

SERVOUT 

02224 

RFF 

80 

LAST 

86  1 

33, 2362 

0 5353 

1 

TC 

P HAS  CHNG 

02226 

33,2363 

00374 

1 

□ CT 

00374 

02228 

REF 

— 4 

LAST 

72  4 

33, 2 364 

3 7712 

1 

CAF 

PR I 025 

0223 

REF 

22 

LAST 

858 

33,2365 

0 5072 

1 

TC 

NOV  AC 

02232 

REF 

30 

LAST 

854 

E7 , 1453 

EB ANK= 

WHICH 

19:02  NOV.  25,1963  FLY 
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SET  STEERS  W. 

ALLOW  TWO  PASSES  MAXIMUM  NOW  THAT 
THRUXT  HAS  BEEN  DETECTED. 

BRANCH  IF  APSFLAG  IS  SFT . 


CHECK  GIMBAL  FAIL  BIT 


SET  AUXFLAG  TO  0. 


SET  AUXFLAG  TO  1. 


COMFAIL  JOB  ACTIVE? 

YES  WON'T  NEED  ANOTHER. 


4. 37 SPOT  FOR  COMFAIL 
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02234 

REF 

2 

LAST 

257 

33,2366 

02574 

0 

2C  ADR 

COMF AIL 

02234 

33,2367 

74067 

0 

rx  r 

1 2403 

o 

TC  F 

SFR  V CUT 

0224 

REF 

1 

33,2371 

55' 566 

1 

OECCNTR 

TS 

DVCNTR1 

33t  2 372 

0 3535 

1 

TC 

OUI K FAZ5 

0226 

REF 

2 

LAST 

864 

33, 2373 

3 1566 

0 

CA 

D VC  N TP  1 

0227 

RFF 

42 

LAST 

863 

33,2374 

5 5 ' 5 1 3 

0 

TS 

DVCNTR 

33,7375 

0 0004 

0 

INHINT 

0229 

REF 

44 

LAST 

855 

33, 2376 

0 46  74 

0 

TC 

I BNKCALL 

IF  THRUST  IS  LOW,  NO  STEERING  IS  DONF 

0230 

REF 

6 

LAST 

817 

33, 2377 

40165 

1 

CADR 

STOPPATF 

AND  THE  DESIRED  RATES  ARE  SET  TO  ZERO. 

f)73  1 - 

REF 

3 1 

LAST 

863 

33, 2400 

4 0111 

1 

USEJETS 

CS 

DAP8C0LS 

0232 

REF 

3 

LAST 

863 

33,2401 

7 4736 

0 

MASK 

USFQRJTS 

0233 

REF 

32 

LAST 

864 

33, 2402 

26  111 

1 

ADS 

D APB  COLS 

0734 

33, 2403 

0 00  03 

1 

SERVOUT 

RELINT 

0235 

REF 

233 

LAST 

862 

33,2404 

0 46  16 

1 

TC 

BANKCALL 

0236 

REF 

1 

33, 2405 

404  5 7 

0 

CADR 

1 /ACCS 

0237 

REF 

8 

LAST 

85  3 

33, 2406 

3 5016 

0 

CAF 

EBANK7 

RESTORE  EBANK  AFTER  1/ACCS. 

0238 

REF 

26 

LAST 

853 

33,2407 

54  003 

0 

TS 

EBANK 

02  3Q 

r Ef 

11 

1 AST 

2 84 

3 3,  7410 

3 0167 

1 

CA 

PRIORITY 

0240 

REF 

8 

LAST 

443 

33, 241 1 

7 5004 

1 

MASK 

L0W9 

0241 

REF 

8 

LAST 

810 

33,2412 

54  166 

1 

TS 

PUSHLOC 

0242 

33,2413 

22  007 

0 

2 L 

0243 

REF 

22 

LAST 

825 

33,2414 

52  121 

1 

DXCH 

F IXLOC 

F IXLOC  AND  CVFIND 

0244 

RFF 

4- 

LAST 

8 6 4^ 

33, 2418 

0 88  38 

l 

TC 

OUT  K F A 7 8 

0245 

33,2416 

0 0006 

1 

EXTEND 

FXIT  TO  SELECTED  ROUTINE  WHETHER  THERE 

0246 

REF 

6 

LAST 

860 

33,2417 

3 1253 

1 

DC  A 

AVGEXIT 

IS  THRUST  OR  NOT.  THE  STATE  OF  STFERSW 

0247  REF  21  LAST  76  2-  33,2420  52  006  0 DXCH  1 WILL  CONVEY  THIS  INFORMATION. 


0248 

-0249 

— REF 

1 

32,3661 
32, 2 000 

BANK 

SETLOC 

32 

SERV2- 

0250 

32,3661 

BANK 

0251 

REF 

1 

COUNT* 

$ $ / S ER  V 

0252 

REF 

15 

LAST 

85  3 

32,3661 

3 1235 

1 AVGEND 

CA 

P IPT  IMF  +1 

FINAL  AVERAGE  G EXIT 

0253 

REF 

8 

LAST 

86  1 

32, 3662 

55*  075 

0 

TS 

1 /P I PADT 

SET  UP  FREE  FALL  GYRO  COMPENSATION. 

0254 

REF 

52 

LAST 

854 

32,3663 

0 5504 

0 

TC 

UPFL AG 

SET  DRIFT  FLAG. 

0255 

REF 

1 

32,3664 

00036 

1 

ADRES 

DP  I F TFLG 

0256 

REF 

234 

LAST 

864 

32, 3665 

0 46  16 

1 

TC 

BANKCALL 

0257 

REF 

1 

32,3666 

17263 

0 

CADR 

P IPFREE 

0258 

REF 

24 

LAST 

863 

32,3667 

4 4743 

1 

CS 

R I T9 

0259 

32,3670 

0 0006 

1 

EXTEND 

0260 

REF 

29 

LAST 

859 

32,3671 

03  011_ 

1 

WAND 

DSAL  MOUT 

0261 


REF  12  LAST  834 


32,3672  0 5327  1 


TC 


2PHSCHNG 
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0262 

0263 

32. 3673 

32.3674 

32. 3675 

00005 

05022 

20000 

1 

1 

0 

OCT 

OCT 

OCT 

5 

05022 

20000 

02  64 
0265 

REF 

1 46 

LAST 

862 

32, 3676 

0 6036 

1 

TC 

I NT P RET 

32, 3677 

43014 

3D 

SET 

CLEAR 

02  66 
0267 

REF 

2 

LAST 

85  1 

32,3700 

01464 

0 

N0R29FLG 

0268 

REF 

2 

LAST 

79  5 

32,3701 

03664 

0 

SWANDISP 

32, 3702 

45014 

-0- 

CLEAR 

CALL 

UC07 

0270 

REF 

5 

LAST 

862 

32,3703 

03267 

1 

MUNFLAG 

0271 

REF 

1 

32, 3704 

27513 

0 

AVET  CMID 

0272 

32,3705 

77414 

_0 

CLEAR 

EXIT 

0273 

REF 

2 

LAST 

834 

32,3706 

03671 

1 

V37F LAG 

0274 

REF 

4 

LAST 

85  8 

32, 3707 

3 1260 

1 

AVERTRN  CA 

OUTP TUTE 

0275 

-REF 

15 

LAST 

83  6 

32,3710 

0 4640 

1 

TC 

BANK  JUMP 

0276 

REF 

1 

32,3707 

OUTGOAVE  = 

AVER  TRN 

0277 

REF 

8 

LAST 

86  1 

E7, 1566 

DVCNTR1  = 

MASS1 
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GROUP  5 OFF 
GROUP  2 ON 


SHUT  OFF  R 29  WHEN  SERVICER  ENDS. 
SHUT  OFF  RIO  WHEN  SERVICER  ENDS. 
RESET  MUNFLAG. 


RETURN  TO  DESIRED  POINT 


GAP: 

L 

P0278 

02  79 

0280 

0281 

0282 

0283 

02  84 

0285 

0286 

02  87 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

A0308 

AO  3 09 

A0310 

A0311 

0312 

0313 

0313 

0314 

0315 
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SERVICER 


USER'S  PAGE  MO.  9 F7  S3 


<;pp  \/  r m p pyTPNn 

0 I Sf.DNNFnT 

SERVICER  FROM  ALL  GUIOANCF 

REF 

REF 

1 

7 

LAST 

864 

32.3712 

32. 3713 

3 3747 
53*253 

0 

0 

DC  A 
DXCH 

SVEXTADR 
A VGE XI T 

REF 

REF 

OCf 

21 

4 

22— 

5 

LAST 

LAST 

LAST 

LAST 

862 

862 

866 

83  1 

32.3714 

32. 3715 
IP,  8 71 6 

4 0103 
7 4745 
?6  103 

1 

1 

1 

CS 

MASK 
- ADS 

FLAGWRD7 
I DLEFBIT 
FLAG  WRD7 

DISCONNECT 

THE  DELTA-V  MONITOR 

REF 

32,  3717 

3 4735 

1 

CAF 

LRBY  BIT 

TERMINATE 

R12  IF  RUNNING. 

REF  15  LAST  831  32,  3720  54  107  0 — TS  FLGWRD11 


32, 3721 

0 0006 

1 

EXTEND 

D.  C p 

19^ 

-LAST 

LAST 

85  1 
83  1 

—32,  3722 
32, 3723 

3 4755 

_4 

OCA 

NEGO  - 

■s  l r 

REF 

5 

52  753 

1 

DXCH 

-PHASE1 

REF 

REF 

13 

3 

LAST 

LAST 

86  3 
859 

32 ,37  24 

3 0102 

1 

CA 

FLAGWRD6 

DO  NOT  TURN  OFF  PHASE  2 IF  MUNFLAG  SET. 

32, 3725 

7 4744 

0 

MASK 

MUNFLBIT 

REF 

257 

LAST 

863 

32,3726 

10  000 

0 

CCS 

A 

32,3727  1 3733  1 TCF  +4 


REF 

20 

LAST 

866 

32. 3730 

32. 3731 

0 0006 
3 4755 

1 

1 

EXTEND 

DC  A N F GO 

REF 

6 

LAST 

860 

32, 3732 

52  755 

1 

DXCH 

-PHASE2 

l 2 T 3 7^^ 

n nooA 

l 

FYTFMH 

REF 

21 

LAST 

866 

32,3734 

3 4755 

1 

DC  A 

NEGO 

REF 

6 

LAST 

85  1 

32, 3735 

52  757 

0 

DXCH 

-PHA  SE3 

32,3736 

0 0006 

1 

EXTEND 

REF 

22 

LAST 

866 

32,3737 

3 4755 

1 

DC  A 

NEGO 

REF  —4  LAST  831  32,3740  52  765  1 DXCH  -PHASE6 


REF 

2 

LAST 

239 

32, 3741 

3 4764 

0 

CAF 

DCT33 

4.33SP0T  FOR  GOPODFIX 

REF 

129 

LAST 

860 

32, 3742 

54  001 

I 

TS 

L 

32, 3743 

4 0000 

0 

COM 

REF 

8 

LAST 

832 

32, 3744 

52  761 

0 

DXCH 

-PHA  SE4 

REF 

1 

32, 3745 

1 5644 

0 

TCF 

WHIMPER 

PERFORM  A SOFTWARE  RESTART  AND  PROCEED 

TO  GOTOPOOH  WHILE  SERVICER  CONTINUES  TO 
RUN,  ALBEIT  IN  A GROUND  STATE  WHERE 


ONLY  STATF-VECTOR  DEPENDENT  FUNCTIONS 
ARE  MAINTAINED. 

REF 

REF 

A3 

8 

LAST 

LAST 

864 

860 

E7, 1513 

32.3746 

32.3747 

03525  0 
76067  1 

EB ANK= 

SVEXTADR  2C ADR 

DVCNTR 

SERVEXIT 

REF 

2 

LAST 

85  8 

37,3525 

37,2000 

BANK 

SETLOC 

3 7 

SERV  1 
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0316 

0317 

REF 

2 

LAST 

85  8 TO 

37,3525 
860  : 

89 

89* 

BANK 

COUNT* 

$ $/  S ERV 

0318 

0319 

REF 

REF 

27 

3 

LAST 

LAST 

83  1 
859 

37.3525 

37.3526 

3 6244 
0 3515 

0 

0 

SERVEXI T 

CA 

TC 

THREE 

GNUFAZE5 

0320 

REF 

133 

LAST 

85  2 

37,3527 

1 5155 

1 

+2 

TCF 

ENDOFJOB 



33 » 242 1 

BANK 

3 3 

0322 

REF 

5 

LAST 

860 

33,2000 

SETLCC 

SERV  ICES 

0323 

33,2421 

BANK 

0324 

REF 

5 

LAST 

860  TO 

864: 

145  182* 

COUNT* 

t $ / S FR  V 
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P0325 

NCRMLIZE 

n c c l ~7 

AND  COPY CYCL 

1 ACT  O/LC  in  1 S.n  1 

0 60 36 

F 

NORMLI Z E 

TC 

I NTPPET 

0 326 

r\  TT  r 

L 1 1 

M O 1 

0327 

33,2422 

43175 

0 

VLOAD 

BOFF 

0328 

REF 

5 

LAST 

835 

33, 2423 

03543 

0 

RN1 

DPP 

£ 

I A^T 

86  5 

33, 242  4 

03347 

1 

MUNF LAG 

U.3  £ V 

0330 

K t r 

REF 

1 

HO  J 

33,2425 

66450 

0 

NORMLI Z1 

0331 

33, 2426 

642  52 

0 

VSL6 

MXV 

n -2  n o 

DPP 

33- 

LAST 

-84  3 

33,  2 42 7 

01  734 

o 

REFS-MMAT 

U J DC. 

0333 

f\  C r 

REF 

19 

LAST 

846 

33,2430 

37517 

0 

STCALL 

R 

0334 

REF 

5 

LAST 

840 

33,  2431 

67162 

0 

MUNGPAV 

0335 

33, 2432 

765  75 

_L_ 

VLOAD 

VS  L 1 

0336 

REF 

5 

LAST 

835 

33, 2433 

03551 

0 

VN1 

0337 

33, 2434 

77721 

0 

MX  V 

03373 

_REF 

34 

LAST 

86  8 

33, 2435 

01734 

0- 

REFSMMAT 

0339 

REF 

12 

LAST 

846 

33, 2436 

27525 

0 

STQVL 

V 

0340 

REF 

3 

LAST 

742 

33,  2437 

01726 

0 

V ( CSM) 

054F 

33,2-440 

53435 

-0- 

VXV 

UNIT 

0342 

REF 

3 

LAST 

742 

33, 2441 

01720 

0 

R (CSM) 

0343 

REF 

3 

LAST 

166 

33,2442 

03716 

1 

STORE 

UHYP 

0344 

33, 2 443 

77776 

1 

ASCSPOT 

EXIT 

0345 

33, 2444 

0 0006 

1 

EXTEND 

0346 

REF 

23 

LAST 

866 

33,2445 

3 4755 

1 

DC  A 

NEGO 

0347 

REF 

7 

LAST 

866— 

33, 2446 

52  7 55 

1 

DXCH 

-PHASE2 

0348 

REF 

1 

33,2447 

1 2453 

0 

TC  F 

NORMLI Z2 

0349 

33,2450 

77624 

1 

NORMLIZ1 

CALL 

0350 

REF 

1 

33,2451 

66762 

1 

CALCGRAV 

0351  - 33,2452  77776  1 EXIT 


0352 

REF 

1 

33,2453 

3 

2472 

1 

NORMLIZ2  CA 

E IGHTEFN 

0353 

TLEF 

2 

LAST 

86  2 

33, 2454 

_0 

2457 

0 

TC 

COPY  CYC  +1 

0354 

REF 

134 

LAST 

867 

33,2455 

0 

5155 

0 

TC 

ENDC  FJOR 

0355 

REF 

7 

LAST 

860 

33,2456 

3 6007 

0 

COPYCYC 

CA 

□ CT24 

0356 

33, 2457 

0 0004 

0 

+ 1 

INHINT 

0357 

REF 

4- 

LAST 

346 

33, 2460 

7 7746 

1 

*2 

MASK 

NEG1 

0358 

REF 

31 

LAST 

75  8 

33, 2461 

54  061 

1 

TS 

I TEM  PI 

03  59 

33, 2462 

0 0006 

1 

EXTEND 

0360 

REF 

— 32 

LAST 

86  8 

33, 2463 

5 0061 

0 

INDEX 

I TEM  PI 

0361 

REF 

6 

LAST 

86  8 

33,2464 

3 1543 

1 

DC  A 

RN1 

0362 

REF 

33 

LAST 

86  8 

33, 2465 

50  061 

0 

INDEX 

I TEMPI 

0363 

REF 

11 

LAST 

79  5 

33, 2466 

53' 221 

0 

DXCH 

RN 

0364 

REF 

34 

LAST 

868 

33, 2467 

10  061 

1 

CCS 

I TEMPI 

0365 

REF 

3 

LAST 

86  8 

33, 2470 

1 2460 

0 

TC  F 

COPYCYC  +2 

0366 

REF 

213 

LAST 

86  1 

33,2471 

0 0002 

0 

TC 

_Q 
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MAKE  SURE  GOUP  2 IS  OFF. 


DO  NOT  COPY  MASS  IN  NORMLIZE 


DEC  20 

REDUCE  BY  1 IF  ODD 


RETURN  UNDER  INFIINT 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 

L SERVICER 


19:02  NOV,  25,1968  FLY 
USER*  S PAGE  NO. 


,109  PAGF 
12  E7  S3 


869 


0367 


33,2972 


00022  1 EIGHTEEN  DEC 


18 
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P0368 

$*$=;<#:**$:«**********  PIPA  READER  ***********  ********* 

R0369 

MOD  NO.  00  BY  D.  LICKLY  DEC. 9 1966 

R0370 

FUNCTIONAL  DESCRIPTION 

R0371 

R0373 

R0375 

SUBROUTINE  TO  READ  PIPA  COUNTERS,  TRYING  TO  BE  VERY  CAREFUL  SO  THAT  IT  WILL  BE  RESTARTABLE. 

PIPA  READINGS  ARE  STORED  IN  THE  VECTOR  DELV.  THE  HIGH  ORDER  PART  OF  EACH  COMPONENT  CONTAINS  THE  PIPA  RFADTNG, 
RESTARTS  BEGIN  AT  REREADAC. 

R0376 

R0377 

R0378 

R0379 

AT  THE  END  OF  THE  PIPA  READER  THE  CDUS  ARE  READ  AND  STORED  AS  A 
VECTOR  IN  CDUTEMP.  THE  HIGH  ORDER  PART  OF  EACH  COMPONENT  CONTAINS 
THE  CDU  READING  IN  2S  COMP  IN  THE  ORDER  CDUX,Y,Z.  THE  THRUST 
VECTOR  ESTIMATOR  IN  FINDCDUD  REQUIRES  THE  CDUS  BE  READ  AT  PIPTIME. 

R0380 

CALLING  SEQUENCE  AND  EXIT 

R0381 

CALL  VIA  TC , I SWCALL,  ETC. 

R0382 

EX  IT  IS  VIA  Q. 

R0383 

R0384 

INPUT 

R-0  38  5 

INPUT  IS  THROUGH  THE  COUNTERS  PIPAX,  PIPAY,  PIPAZ,  AND  TIME2. 

R0386 

OUTPUT 

R0387 

R0388 

HIGH  ORDER  COMPONENTS  OF  THE  VECTOR  DELV  CONTAIN  THE  PIPA  READINGS. 
PIPTIME  CGNTAI  NS- -T  I ME  OF  PIPA  READING. 

R 0 3 8 9 

DEBRIS  (ERASABLE  LOC AT I-QNS -DE STROY ED  BY  PROGRAM) 

R0390 

TEMX  TEMY  TEMZ  PIPAGE 

0391 

0392 

0393 

37,3530  BANK  37 

REF  3 LAST  866  37,2000  SETLOC  SERV1 

37,3530  BANK 

0394 

REF  3 LAST  867  TO  867:  3 92*  COUNT  * $$/SFRV 

0395 


37,3530  0 0006  1 PIPASR 


EXTEND 
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0396 

REF 

25 

LAST 

83  1 

37,3531 

3 0025 

0 

DC  A 

T IME2 

0397 

REF 

10 

LAST 

835 

37,3532 

53' 557 

0 

DXCH 

PIPT  I ME1 

RFF 

I 8 8 

L AST 

857 

37, 3533 

4 4755 

0 

+a 

CS 

. ZERO 

0399 

REF 

2 

LAST 

12  1 

37,3534 

55 ' 2 54 

1 

TS 

TEMX 

0400 

REF 

2 

LAST 

12  1 

37, 3535 

55 ' 255 

0 

TS 

TEMY 

RPF 

2 

LAST 

121 

37, 3536 

55' 2 56 

0 

TS 

TEMZ 

0402 

REF 

1 54 

LAST 

87  1 

37, 3537 

3 4755 

1 

CA 

ZERO 

REF 

4 

LAST 

39  7 

3 7*  3 540 

54  330 

0 

TS 

DELVZ 

0404 

REF 

5 

LAST 

397 

37,3541 

54  326 

1 

TS 

DEL  V Y 

0405 

REF 

5 

LAST 

859 

37, 3542 

55' 2 57 

1 

TS 

PIPAGE 

0406 

37,  3543 

0 0006 

1 

REP  IP1 

EXTEND 

0407 

REF 

8 

LAST 

397 

37,3544 

4 0040 

1 

DCS 

PIPAX 

040  ft 

REF 

3 

LAST 

87  1 

37, 3545 

53 ' 2 55 

0 

DXCH 

TEMX 

0409 

REF 

9 

LAST 

871 

37,3546 

52  040 

1 

DXCH 

PIPAX 

0410 

REF 

9 

LAST 

398 

37, 3547 

54  324 

0 

TS 

DEL  VX 

0411 

REF 

6- 

LAST 

871 

37, 3550 

22  326 

0 

LXCH 

DEL  VY 

0412 

REF 

3 

LAST 

39  7 

37,3551 

4 0041 

0 

REP IP3 

CS 

P IP  A Z 

041  8 

RFF 

3 

L AST 

87  1 

37, 3552 

5 7 ' 2 56 

1 

XCH 

TEMZ 

0414 

REF 

4 

LAST 

87  1 

37, 3553 

56  041 

1 

XCH 

PIPAZ 

0415 

REF 

5 

LAST 

87  1 

37,3554 

54  330 

0 

DODELVZ 

TS 

DELV  Z 

0416 

37, 3555 

0 0006 

1 

REP IP4 

EXTEND 

0417 

REF 

11 

LAST 

87  1 

37,3556 

3 15  57 

1 

DC  A 

PIPT  I ME  1 

04  1 8 

REF 

2 

1 AST 

12  1 

37,  3 557 

531 2 50 

0 

DXCH 

PGU I DE 

0419 

37,3560 

0 0006 

1 

EXTEND 

0420 

REF 

16 

LAST 

864 

37,3561 

4 1235 

0 

DCS 

PIPT  IME 

0421  REF  3 LAST  871  37,3562  2 1.' 2 50-0  DAS  PGUIDE 


0422 

0423 

REF 

REF 

13 

1 

LAST 

617 

37,3563 
3 7,3  564 

3 0032 
55' 1 55 

0 

_0 

CA 

TS 

C DUX 
CDJT  EMPX 

0424 

REF 

5 

LAST 

6 1 7 

37, 3565 

3 0033 

1 

CA 

C DU  Y 

0425 

REF 

1 

37,3566 

55' 156 

0 

TS 

CDUT  EMPY 

0426 

— R££ 

LAST 

612 

37, 3 567 

3 0034_ 

J3 

CA 

C DU  Z 

0427 

REF 

1 

37, 3570 

55' 157 

1 

TS 

CDUTEMPZ 

0428 

REF 

10 

LAST 

871 

37, 3571 

3 0324 

1 

CA 

DEL  V X 

0429 

REF 

2 

LAST 

86  2 

37,3572 

55' 160 

0 

TS 

PIPATMPX 

0430 

REF 

7 

LAST 

87  1 

37, 3573 

3 0326 

0 

CA 

DELV  Y 

0431 

REF 

2 

LAST 

86  2 

37,3574 

55*161 

1 

TS 

PIPATMPY 

0432 

REF 

6 

L ASIC 

87J. 

37,3575 

3 0330 

J 

CA 

DELV  Z 

0433 

REF 

2 

LAST 

862 

37,  3576 

55' 162 

1 

TS 

P I PA  TMPZ 

0434 

REF 

214 

LAST 

868 

37,3577 

0 0002 

-0 

JX 

Q 

0435  REF 

0436  REF 


6 LAST  871 
1 


37.3600  1 1 ' 2 5 7 1 REREADAC  CCS 

37.3601  1 3425  0 TCF 


P IP  AGE 
RE  AD  ACCS 
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CURRENT  TIME  POSITIVE  VALUE 
INITIALIZE  THFSE  AT  NEG.  ZFRO. 


OTHER  DELVS  OK  INCLUDING  LOW  ORDER 
SHOW  PIPA  READING  IN  PROGRESS 

X AND  Y PIPS  READ 

PIPAS  SET  TO  NEG  ZERO  AS  READ. 

REPEAT  PROCESS  FOP  Z PIP 


COMPUTE  GUIDANCE  PERIOD 


READ  CDUS  INTO  HIGH  ORDER  CDUTEMPS 


PIP  RF  ADI NG  NOT  STARTED.  GO  TO  BEGINNING 
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0437 
043  8 

REF 

REF 

1 

215 

LAST 

87  1 

37. 3602 

37. 3603 

3 3640 
54  002 

0 

1 

CAF 

TS 

3 ONE  ADR 
Q 

SET  UP  RETURN  FROM  PIPASR 

0439 

REF 

7 

LAST 

87  1 

37,  3604 

10  330 

0 

CCS 

DELV  Z 

0440 

REF 

1 

37, 3605 

1 3555 

0 

TCF 

REP  I P4 

Z DONE,  GO  DO  CDUS 

044 1 

37, 3606 

1 3611 

0 

TCF 

+ 3 

Z-NOT  DONE,  CHFCKJC, 

0442 

REF 

2 

LAST 

872 

37, 3607 

1 3555 

0 

TCF 

REP  I P4 

0443 

REF 

3 

LAST 

872 

37,3610 

1 3555 

0 

TCF 

REPI P4 

0444 

37,3611 

22  007 

0 

ZL 

044  5 

REF 

8 

LAST 

871 

37,3612 

10  326 

1 

CCS 

DELV  Y 

0446 

37,3613 

1 3616 

1 

TCF 

+3 

0447 

REF 

1 

37,3614 

1 3625 

1 

TCF 

CHKTEMX 

Y NOT  DONE,  CHECK  X. 

0448 

37, 3615 

l 3616 

1 

TCF 

+ 1 

0449  RET  5 LAST-  871 37,3616  22  041-1 J.XCH  PIPAZ  t DONE,  ZERO  Z PIP. 


0450 

REF 

4 

LAST 

87  1 

37, 3617 

1 1 ' 2 5 6 

0 

CCS 

TEMZ 

045  1 

REF 

§. 

LAST 

87^ 

37,  3620 

4 12  56 

0 

cs 

TEUZ 

TEMZ  NOT  = -0,  CONTAINS  -PIPAZ  VALUE, 

0452 

REF 

1 

37, 3621 

1 3554 

1 

TCF 

DOOE  LVZ 

0453 

37, 3622 

1 3620 

1 

TCF 

-2 

0454 

REF 

— 8— 

LAST 

87  2 

37, 3623 

22  330 

1 

LXCH 

DELV  Z 

TEMZ  = -0,  L HAS  ZPTP  VALUE. 

0455 

REF 

4 

LAST 

872 

37,3624 

1 3555 

0 

TCF 

REPI P4 

0456 

REF 

4 

L AST 

87  1 

37,  3 625 

11*254 

-1 

CHKTEMX 

CCS 

T-EMX 

HAS  THIS  CHANGED 

0457 

REF 

5 

LAST 

872 

37, 3626 

4 12  54 

1 

CS 

TEMX 

YES 

0458 

37,3627 

1 3632 

1 

TCF 

+3 

YES 

0459 

37, 3630 

1 3626 

1 

TCF 

-2 

YES 

0460 

REF 

1 

37,3631 

1 3543 

1 

TCF 

REPI PI 

NO 

0461 

REF 

11 

LAST 

871 

37,3632 

54  324 

0 

TS 

DELVX 

0462 

REF 

3 

LAST 

87  1 

37, 3633 

4 1255 

0 

CS 

TEMY 

0463 

REF 

9 

LAST 

872 

37,3634 

54  326 

1 

TS 

OELVY 

0464 

REF 

155 

LAST 

87  1 

37,  3635 

4 4755 

0 

CS 

l FRT 

ZERO  X AND  Y PIPS 

0465 

REF 

10 

LAST 

87  1 

37,3636 

52  040 

1 

DXCH 

P IPAX 

L STILL  ZERO  FROM  ABOVE 

0466 

REF 

1 

37,3637 

1 3551 

1 

TCF 

REPI P3 

0467 

REF 

— 1 

37,3640 

03435 

0 

DON  EAOR 

GENADR 

P IPSDONF 

8 72 


GAP : 

L 

0468 

0469 

0470 

0471 

0472 

0473 

04  74 

0475 

0476 

0477 

0478 

R0479 

R0480 

R0481 

R0482 

R0483 

04  84 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0503 

0504 

0505 

0506 

0507 
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33,2473 

BANK 

33 

REF 

6 LAST  867 

33, 2000 

SETLOC 

SERV  ICES 

33,2473  BANK 


REF 

6 

LAST 

86  7 

TO  870 : 

42  224$ 

COUNT  $ 

$ $ / S EP  V 

REF 

2 

LAST 

87  1 

33,2473 

3 1156 

1 

TMPTOSPT 

CA 

CDUT  fmpy 

THIS  SUBROUTINE,  CALLED 

BY 

AN  RTB  FROM 

REF 

1 

33,2474 

54  766 

1 

rs 

C DU  S POTY 

INTERPRETIVE,  LOADS  THE 

C DUS  CORPESPON- 

REF 

2 

LAST 

87  1 

33,2  475 

3 1157 

0 

CA 

CDUTEMPZ 

DING  TO  PIPTIME  INTO  THE  CDUSPOT  VECTOR. 

REF 

i 

33, 2476 

54  770 

0 

TS 

C DUS  POT  Z 

REF 

2 

LAST 

87  1 

33,2477 

3 1155 

1 

CA 

CDUT  EMPX 

REF 

1 

33,2500 

54  772 

1 

TS 

CDUSPOTX 

REF 

216 

LAST 

87  2 

33,2501 

0 0002 

0 

TC 

Q 

r<;  a usiti  tark  rft  ry  rfadaggs  nuR i ng  thf  descent  BRAKING 

PHASE  WHEN  THE 

ALT 

TO  THE  LUNAR  SURFACE 

IS  LESS 

THAN  25 

,000  FT. 

THIS 

TASK 

CLEARS  THE  ALTITUDE  MEASUREMENT 

MADE  DISCRETE  AND 

IN  IT  I ATES 

THE 

i AMDT  Nf. 

RAflAR 

MFAS11RFMFNT  JOB 

( 1 RH.JOB  1 

TO  TAKE  A 

ALTITUDE  MEASUREMENT 

50  MS  PRIOR  TO 

THE 

NEXT  READACCS  TASK. 

? 1 r 2 M 4- 

BANK 

2 1 

REF 

2 

LAST 

57 

21, 2000 

SETLOC 

RIO 

21,  2314 

BANK 

REF 

1 

COUNT* 

$ $/ S ERV 

REF 

1 6 

LAST 

ft  A A 

2 1 1 p ft  ] 4 

4 010  7 

o 

LRHTASK 

c s 

fi  r,  l r n i i 

REF 

6 

LAST 

866 

21,2315 

7 4735 

6 

MASK 

LRBYBIT 

21,2316 

0 0006 

i 

EXTEND 

REF 

1 

21,2317 

1 23  34 

0 

BZF 

GRP2 OFF 

LR  BYPASS  SET  - BYPASS 

ALL 

LR  READING. 

REF 

1 

21,2320 

3 4746 

0 

CA 

READL6IT 

REF 

17 

LAST 

873 

2 1,  2 32 1 

7 01  07 

0 

MASK 

F LGWRD11 

IS  P.FADLR  FLAG  SET? 

21, 2322 

0 0006 

1 

EXTEND 

REF 

2 

LAST 

87  3 

21,2323 

1 2334 

0 

BZF 

GRP20FF 

NO.  BYPASS  LR  READ. 

REF 

18 

LAST 

873 

21, 2324 

4 0107 

0 

CS 

FLGWROll 

REF 

1 

21,2325 

7 4742 

0 

MASK 

NOLRRBIT 

IS  LR  READ  INHIBITED? 

21,2326 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

873 

21,2327 

1 2334 

0 

BZF 

GRP2  OFF 

YES.  BYPASS  LR  READ. 

REF 

— 1- 

21,2  330 

3 7717 

1 

CA 

PR1 G 32 

1 R R FAD  OK  SFT  IOR  TO 

nn 

IT 

REF 

23 

LAST 

863 

21,2331 

0 5072 

1 

TC 

NOVAC 

ABOUT  50  MS  PRIOR  TO  P I PA 

READ 

REF 

3 

LAST 

216 

E 7, 1652 

EBANK= 

HMEAS 

REF 

— 1 — 

21,2332 

03717 

0 

2CA0R 

LRHJOB 

REF 

1 

21, 2333 

70067 

1 

21,2334 

0 0006 

1 

GRP20FF 

EXTEND 

REF 

24 

LAST 

86  8 

21, 2335 

3 4755 

1 

OCA 

NEGO 

REF 

8 

LAST 

868 

21,2336 

52  755 

1 

DXCH 

-PHASE2 

REF 

1 

21, 2337 

1 2115 

1 

TCF 

R 10  , R 1 1 A 
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0508 

0509 
tyc.  i n 

REF 

7 

LAST 

87  3 

33,  2502 
33, 2000 
33, ? 502 

BANK 

SETLOC 

BANK 

33 

SEP  V ICES 

0511 

REF 

7 

LAST 

873  TO 

873  : 

7 

231* 

COUNT  * 

$ $/  S ERV 

R0512  HIGATASK  IS  ENTEREO  APPROXIMATELY  6 SECS  PRIOR  TO  HIGATE  DURING  THE 
R0513  DESCENT  PHASE.  HIGATASK  SETS  THE  HIGATE  FLAG  (BITll)  AMD  THE  LP  INHIBIT 

R0514  FLAG  4 B I T 1 0 » IN  LRSTAT.  THE  HIGATJOB  IS-SET  UP  TO  REPOSITION  THE  LP 

R0515  ANTENNA  FROM  POSITION  1 TO  POSITION  2.  IF  THE  REPOSITIONING  IS 

R0516  SUCCESSFUL  THE  ALT  BEAM  AND  VELOCITY  BEAMS  ARE  TRANSFORMED  TO  THE  NEW 

R0517  ORIENTATION  IN  NB  COORDINATES  AND  STORED  IN  ERASABLE. 


0518 

33,2502 

0 0004 

0 

HIGATASK  INHINT 

OS  1 Q 

REF 

1 o 

L AST 

7 12 

33,  2503 

4 5015 

1 

CS 

PRIC3 

SET  HIGATE  AND  LR  INHIBIT  FLAGS 

0520 

REF 

19 

LAST 

87  3 

33, 2504 

7 0107 

0 

MASK 

FLGWRD11 

0521 

REF 

11 

1 AST 

874 

33,2505 

6 5015 

0 

AD 

PRI03 

0 S ?? 

REP 

2 0 

1 AST 

874 

33, 2 506 

54  107 

0 

TS 

FLGWRril 

0523 

REF 

2 

LAST 

873 

33,2  507 

3 7717 

1 

CAF 

PRI032 

0524 

REF 

37 

LAST 

85  9 

33, 2510 

0 5105 

0 

TC 

F I ND VAC 

SET  LR  POSITIONING  JOB  (P0S2) 

nsps 

R FF 

4 

j AST 

87  3 

F 7,  1652 

EBANK= 

HMEA  S 

0526 

REF 

i 

33,251 1 

03653 

1 

2C  ADR 

HIGATJOB 

0526 

REF 

i 

33,2512 

66067 

0 

0527 

REF 

— 1_ 

33,2513 

1 2573 

0 

TC  F 

CONTSERV 

CONTINUE  SERVICER 

874 


GAP 
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P0528 

MUNRETRN  IS 

THE 

RETURN  LOC 

FROM  SPECIAL  AVE  G 

ROUTINE  ( MUNRVG 

3^,2514 

7777A 

— 1 

MUNRFTRN 

EX  I T 

0529 

0530 

REF 

21 

LAST 

874 

33,2515 

4 

01  07 

0 

cs 

F LGWRD11 

P £F 

7 

last 

873 

33,2516 

7 

4735 

0 

MASK 

LRBYBIT 

0532 

33,2517 

0 

0006 

1 

EXTEND 

0533 

REF 

i 

33,2520 

1 

2601 

0 

BZF 

COPY  CYC  1 

0534 

REF 

2 

LAST 

873 

33,  2521 

3 

4746 

0 

CA 

READLBIT 

0535 

REF 

22 

LAST 

875 

33,2522 

7 

01  07 

0 

MASK 

FLGWRD11 

33,2523 

0 

0006 

l 

EXTEND 

0537 

REF 

1 

33,2524 

1 

2753 

0 

BZF 

35KCHK 

P €F 

2 525 

3 

4743 

o 

CAF 

X OR  F LB  IT 

0539 

REF 

23 

LAST 

875 

33, 2526 

7 

0107 

0 

MASK 

FLGWRD11 

0540 

33,2527 

0 

0006 

1 

EXTEND 

0541 

REF 

1 

33, 2530 

l 

2 74? 

0- 

BZF 

XORC  HK 

0542 

REF 

1 

33,  2531 

3 

4741 

1 

HITEST 

CAF 

PSTHIBIT 

0543 

REF 

24 

L AST 

875 

33,  2 532 

7 

01  07 

0 

MASK 

FLGWR.D11 

0544 

33, 2533 

0 

0006 

1 

EXTEND 

0545 

REF 

i 

33,  2534 

1 

2550 

1 

BZF 

H IGA  TCHK 

0546 

REF 

33 

LAST 

82  1 

33,2  535 

3 

4745 

0 

P0S2CHK 

CAF 

B I T 7 

0547 

33, 2536 

0 

0006 

1 

EXTEND 

0548 

RFF 

22 

LAST 

793 

33,  2537 

02  033 

0 

RAND 

CHAN  33 

0549 

33,  2540 

0 

0006 

1 

EXTEND 

0550 

REF 

1 

33,  2541 

1 

3205 

1 

BZF 

UPDA  TCHK 

0551 

-REF 

38 

LAST 

83  3 

33,2  542 

-3 

4737 

0 

CAF 

BIT13 

0552 

33, 2543 

0 

0006 

1 

EXTEND 

0553 

REF 

50 

LAST 

789 

3 3,  2 544 

02  012 

0 

RAND 

CHAN  12 

0554 

33,2545 

0 

00  06 

1 

EXTEND 

0555 

REF 

1 

33,2546 

1 

2571 

l 

BZF 

LPPOSALM 

0556 

REF 

2 

LAST 

874 

33, 2 547 

1 

2573 

0 

TCF 

C ONT  SERV 

0557 

REF 

16 

LAST 

82  5 

33,2  550 

3 

1640 

1 

HIGATCHK 

CA 

TTF/8 

0558 

REF 

1 

33,  2551 

6 

1427 

1 

AD 

RPCR  TIME 

0559 

33,2552 

0 . 

0006 

1 

EXTEND 

0560 

REF 

1 

33,2553 

6 

2564 

1 

BZMF 

P0S1 CHK 

0561 

REF 

3 

LAS  I 

29  4 

33, 2 554 

3 

4741 

1 

CA 

E BAN K4 

0562 

REF 

27 

LAST 

864 

33,2555 

56 

003 

1 

XCH 

EBANK 

0563 

REF 

130 

LAST 

866 

33,2556 

54 

001 

1 

TS 

L 

05635 

REF 

7 

LAST 

86  2 

E4, 1545 

EB ANK= 

X NB  P I P 

0564 

REF 

8 

LAST 

875 

33,2557 

4 

1545 

0 

CS 

XNBP IP 

056405 

F®L_ 

44 

LAST 

866 

-- £7 , 1513  - 

EB ANK= 

DVCNTR 

05641 

REF 

28 

LAST 

875 

33,2560 

22 

003 

1 

L XCH 

EBANK 

05642 

REF 

1 

33,2561 

6 

1430 

1 

AD 

RPCR  TQSW 
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BYPASS  LR  LOGIC  IF  BIT15  IS  SET. 

SEE  IF  ALT  < 35000  FT  LAST  CYCLF 

ALT  WAS  > 35000  FT  LAST  CVCLE  CHK  NOW 
WERE  WE  BELOW  30000  FT  LAST  PASS? 

NO  - TEST  THIS  PASS 
CHECK  FOP  HIGATE 

NOT  AT  HIGATE  LAST  CYCLE-CHK  THIS  CYCLE 
VERIFY  LR  IN  P0S2 

IT  I S-CHECK  FOR  LR  UPDATE 
NOT  IN  P0S2  — MAY  BE  REPOSITION  I NG 


LR  NOT  IN  POS  2 OR  REPOSITIONING-BAD 
LR  BEING  REPOS  I T I ONED-CONT INUE  SERV 

IS  TTF  > CRITERION?  I TTF  IS  NEGATIVE) 
NO 

MUST  SWITCH  EBANKS 
SAVE  IN  L 

UXBXP  IN  G SOP  CH5 


RESTORE  EBANK 
QSW  - UXBXP 


GAP 
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05643 

33,2562 

0 

0006 

1 

EXTEND 

05644 

REF 

1 

33,2563 

6 

2502 

1 

BZMF 

HIGATASK 

0565 

REF 

42 

LAST 

82  1 

33,  2564 

3 

4746 

0 

P0S1CHK 

CAF 

B IT6 

0566 

33,2565 

0 

0006 

1 

EXTEND 

^ ? f 2 5 h <5 

0?  01^ 

0 

RAND 

33 

0568 

33, 2567 

0 

0006 

1 

EXTEND 

0569 

REF 

2 

LAST 

875 

33,2570 

l 

3205 

1 

BZF 

UP3ATCHK 

0570 

REF 

33 

LAST 

816 

33, 2571 

0 

5567 

0 

LRPOSALM 

TC 

ALAR  M 

0571 

33,2572 

005  1 1 

1 

OCT 

511 

057? 

33,2573 

0 

0004 

0 

CONTSERV 

INHINT 

0573 

REF 

1 

33,2574 

4 

32  04 

0 

cs 

B ITS  4-7 

0574 

REF 

25 

LAST 

875 

33,2575 

7 

0107 

0 

MASK 

FLSWRDll 

0575 

REF 

26 

L AST 

876 

33 , 2 576 

54  107 

0 

TS 

FLGWRD11 

0576 

REF 

45 

LAST 

864 

33,2577 

0 

46  74 

0 

TC 

I BNKCALL 

05761 

REF 

— 1- 

33,2600 

53607 

-0- 

CADR 

R12L  1TES 

19:02  NOV.  25,1968  FLY 


109  PAGE  376 
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IF  UXBXP  > QSW , TH  EN  REPOSITION 
HIGATE  NOT  IN  SIGHT-DO  P0S1  CHK 

LR  IN  POS 1 —CHECK  FOR  LR  UPOATF 

LR  NOT  IN  PROPER  POS-A L AR M-BY PAS S UPDATE 
AND  CONTINUE  SERVICER 

CLEAR  LR  MEASUREMENT  MADE  DISCRETES. 


SET  LR  LITES  PROPERLY 


GAP  : 
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P0577 

0578 

REF 

5 

LAST 

864 

33,2601 

0 

3535 

1 

C0PYCYC1 

TC 

QUIKFAZ5 

0579 

REF 

14 

LAST 

616 

33, 2602 

3 

0077 

1 

R29? 

CA 

FLAG  WRD3 

0580 

REF 

1 

33, 2603 

7 

5014 

0 

MASK 

NR29 CROP 

rjciQl 

REF 

2 58 

LAST 

884 

33,  2 604 

10 

i 0 00 

o 

CCS- 

A 

UJOI 

0582 

REF 

1 

33,  2605 

1 

2617 

1 

TCF 

R 29  N ODES 

A C O p 

REF 

113 

LAST 

-6-2-2 — 

33.2  606 

3 

0110 

_4 

CA 

R ADMCDES 

UZ)  o o 

0584 

REF 

1 

J J f L OuVJ 

33, 2607 

7 

2242 

0 

MASK 

OCT  10002 

0585 

REF 

259 

LAST 

87  7 

33,2610 

10 

000 

0 

CCS 

A 

0586  REF  2 LAST  877  33,2611  1-2617  1 TCL  R29N0DES 


0587 

-0588 

REF 

REF 

114 

4— 

LAST 

LAST 

877 
85  8 

33,  2612 
33,2613 

3 

7— 

0110 

7707 

l 

1 

CA 

MASK 

R ADMODES 
PPIC22 

0589 

REF 

260 

LAST 

877 

33, 2614 

10  000 

0 

CCS 

A 

0590 

REF 

6 

LAST 

609 

33,2615 

1 

2623 

0 

TCF 

N0R29N0W 

0591 

REF 

2 

LAST 

608 

33,2616 

1 

2045 

0 

TCF 

R 29 

0592 

33, 2617 

o 

0004 

o 

R?QMnnF<;  tmhtnt 

0593 

REF 

1 

33,2620 

4 

4742 

0 

cs 

DE SI  GBIT 

0594 

REF 

1 15 

LAST 

877 

33,2621 

7 

0110 

0 

MASK 

R ADMCDES 

0595  REF  116  LAST  877 — 33,  2622  54-110-0  TS  R_  AD  MODES 


0596 

REF 

148 

LAST 

868 

33,2623 

0 6036 

1 

N0R29N0W  TC 

I NT P RET 

0597 

33, 2624 

51575 

l 

VLQAD 

ABVAL- 

0598 

REF 

2 

LAST 

162 

33, 2625 

03571 

1 

R IS 

0599 

33, 2626 

45206 

1 

PUSH 

DSU 

0600 

REF 

9- 

1 AST 

852 

33,-2  62  7 

02337 

1 

/LAND/ 

0601 

REF 

5 

LAST 

330 

33,  2630 

03533 

1 

STORE 

HCALC 

0602 

33,2631 

47075 

0 

DM  PR 

P TB 

06  0 3 

REF 

— 1_ 

33,  2 632 

26026 

_1 

ALTC CNV 

0604 

REF 

3 

LAST 

71  1 

33,  2633 

21516 

0 

SGNAGREF 

0605 

REF 

2 

LAST 

166 

33,2634 

27740 

1 

STOVL 

ALTB  ITS 

0686  - 

REF 

19 

LAST 

—88_0 

33,  2 635 

03535 

1 

UNIT  /P / 

0607 

33,  2636 

76435 

1 

vxv 

VSL1 

0608 

REF 

4 

LAST 

86  8 

33, 2637 

03716 

1 

UHYP 

0609 

REF 

2 

LAST 

166 

33, 2 640 

27724 

0 

STOVL 

UHZP 

0610 

REF 

3 

LAST 

877 

33,2641 

03571 

1 

R IS 

0611 

33,2642 

60505 

1 

VXM 

VSR4 

0612 

REF 

35 

LAST 

-86  8— 

33, 2643 

01  734 

0 

REFSMMAT 

0613 

REF 

7 

LAST 

868 

33, 2644 

27543 

0 

STOVL 

P.N1 

0614 

REF 

4 

LAST 

84  1 

33, 2645 

03577 

1 

VIS 

0615- 

33, 2646 

76505 

0 

VXM 

VSL1 

0616 

REF 

36 

LAST 

67  7 

33,2647 

01734 

0 

REFSMMAT 

0617 

REF 

6 

LAST 

868 

33, 2650 

27551 

0 

STOVL 

V N 1 

0618 

REF 

-20 

LAST 

8 11 

33,2651 

03535 

1 

JNI T /R/ 

0619 

33,2652 

51435 

1 

VXV 

ABVAL 

0620 

REF 

5 

LAST 

877 

33,2653 

03577 

1 

VIS 
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IS  N0R29FLG  OP  READRFL  G SET? 

YES,  SO  DON’T  DESIGNATE. 

NO,  SO  R29  IS  CALLED  FOR. 

IS  THE  RR  NOT  ZEROING  ITS  CDUS,  AND 
IS  THE  RENDEZVOUS  RADAR  IN  AUTO  MODE? 
NO,  SO  DON'T  DESIGNATE. 


IS  RR  REPOSITIONING  OR  REMODI NG? 

YES;  COME  BACK  IN  2 SECONDS  S TRY  AGAIN. 


R 29  NOT  ALLOWED  THIS  CYCLE. 
SHOW  THAT  DESIGNATION  IS  OFF. 


INTPRET  DOES  A RELINT. 

M P AC  = ABVALt  MEW  SM.  POSITION  VFCTOR) 

(2) 


NEW  HCALC*2< 24 ) M. 


ALTITUDE  FOR  RIO  IN  BIT  UNITS. 


DOWNRANGE  HALF-UNIT  VECTOR  FOR  P10. 


TEMP.  REF.  POSITION  VEC TOR* 2 1 29 ) M . 


TEMP.  REF.  VELOCITY  VECT0R*2( 7IM/CS 
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0621 

0622 

0623 

33,2654 
33,  2655 
33,2656 

63552 

77671 

47075 

0 

1 

0 

SL1 

DDV 
DM  PR 

DSO 

RTB 

0624 

REF 

1 

33,2657 

26  0 30 

0 

ARC0NV1 

0625 

REF 

4 

LAST 

877 

33, 2660 

21516 

0 

SGNAGPEE 

06  26 

33,  2 661 

77776 

J. 

C0PYCYC2  EXIT 

0627 

33,  2662 

0 0004 

0 

INHINT 

0628 

REF 

21 

LAST 

877 

33,  2663 

3 1534 

1 

CA 

UNIT/P/ 

062  9 

REF 

2_ 

L AST 

166 

33, 2 664 

55' 741 

0 

TS 

RUNI  T 

0630 

REF 

22 

LAST 

87  8 

33,  2665 

3 1536 

0 

CA 

UNIT/R/  *2 

0631 

REF 

3 

LAST 

878 

33, 2666 

55' 742 

0 

TS 

RUNIT  +1 

06  32 

REF 

2 3 

LAST 

87  8 

33, 2667 

3 1540 

_L_ 

CA 

UN.IT/RV  +4 

0633 

REF 

4 

LAST 

878 

33,2670 

55 '743 

1 

TS 

RUNIT  +2 

0634 

REF 

324 

LAST 

86  2 

33, 2671 

3 0154 

1 

CA 

MPAC 

YJ635 

REF 

— 2- 

LAST 

166 

33,2672 

55*714 

-0— 

TS 

DALTRATE 

0636 

33,2673 

0 0006 

1 

EXTEND 

063  7 

RE  F 

4 

L AST 

_877 

33,  2 674 

3 1571 

0 - 

DC  A 

R 1 S 

0638 

REF 

20 

LAST 

868 

33, 2675 

53' 517 

1 

DXCH 

R 

0639 

33, 2676 

0 0006 

1 

EXTEND 

0640 

REF 

5 

LAST 

878 

33,2677 

3 1573 

J. 

DCA 

R IS  +2 

0641 

REF 

21 

LAST 

878 

33,  2700 

5 3 ' 5 21 

1 

DXCH 

R 4-2 

0642 

33,2701 

0 0006 

1 

EXTEND 

0643 

REF 

6 

LAST 

878 

33,2702 

3 1575 

1 

DCA 

R IS  +4 

0644 

REF 

22 

LAST 

878 

33,2703 

53' 523 

0 

DXCH 

R 4-4 

0645 

33,2704 

0 0006 

1 

EXTEND 

0646 

REF 

6 

LAST 

877 

33,2  705 

3 1577 

0 

DCA 

VIS 

0647 

REF 

13 

LAST 

86  8 

33, 2706 

53' 525 

0 

DXCH 

V 

0648 

33,2707 

0 0006 

1 

EXTEND 

0649 

REF 

7 

LAST 

87  8 

33,3710 

3 1601 

1 

OCA 

VIS  +2 

0650 

REF 

14 

LAST 

878 

33, 2711 

5 3 ' 527 

1 

DXCH 

V +2 

0651 

33, 2712 

0 0006 

1 

EXTEND 

0652 

REF 

-8  - 

LAST 

8 7 8 

33, 2713 

3 1603 

o 

DCA 

VIS  4-4 

0653 

REF 

15 

LAST 

878 

33,2714 

53'  531 

0 

DXCH 

V 4-4 

06  54 

REF 

— 1— 

33,2715 

1 2300 

1 

TCF 

CJDPYCYCL 

19:02  NOV.  25,1968  FLY 


109  PAGF  878 


USER'S  PAGE  NO.  21  E7  S3 


LEAVE  ALTITUDE  RATE  COMPENSATION  IN  MPAC 
UPDATE  RUNIT  FOP  RIO. 


LOAO  NEW  DALTRATE  FOR  RIO. 


COMPLETE  THE  COYPCYCL 


OF  AGC  P 

DnrDAM  1 HMTMARV  RY 

ma<;a  ?i  i i ?-  oi  l 

19:02  NOV.  25,1968  FLY  .109  PAGF  879 

GAPS 

L 

SERVICER 

USER'S  PAGE  NO.  22  E7  S3 

P0655 

ALTCHK  COMPARES 

CURRENT 

ALT  ITUDE 

( IN  HCALC) 

WITH  A 

SPECIFIED  ALTITUDE  FROM  A TABLE  BEGINNING  AT  ALTCRIT. 

R0657 

ITS 

CALLING  SEQUENCE 

IS  AS  FOLLOWS:- 

R0658 

L 

C AF 

N 

R0659 

L + l 

TC 

BANKCALL 

L +2 

r Ano 

A 1 TTWK 

R0661 

L+3 

RETURN  HERE 

IF  HCALC 

STILL  > SPECIFIED 

CRITERION. 

C ( L ) = <-0. 

R0663 

L+4 

RETURN  HERE 

IF  HCALC 

< 

OR  = SPECIFIED  CRITERION. 

CIA)  = C ( L ) = +0 

R0665 

ALTCHK  MUST  BE 

BANKCALLED  EVEN  FROM 

I TS 

OWN  BANK.  N IS  THE  LOCATION,  RELATIVE  TO  THE  TAG  ALTCRIT, 

R0667 

OF 

THE  BEGINNING  GF 

THE  DP  CONSTANT 

TO 

BE  USED 

AS  A CRITERION. 

0668 

33,2716 

0 0006 

1 

ALTCHK 

EXTEND 

0669 

REF 

261  LAST 

877 

33,2717 

5 0000 

1 

INDEX 

A 

0670 

REF 

1 

33,2  720 

3 2732 

0 

OCA 

ALTC  PIT 

06  71 

REF 

325  LAST 

87  8 

33,2721 

52  156 

1 

DXCH 

MPAC  +1 

0672 

33,2722 

0 0006 

1 

EXTEND 

0673 

REF 

6 L AST 

87  7 

33 , 2723 

4 1533 

1 

DCS 

HCALC 

06  74 

REF 

326  LAST 

879 

33, 2724 

20  156 

1 

DAS 

MPAC  +1 

0675 

REF 

1 

33,2725 

0 6726 

1 

TC 

BRANCH  +4 

06  76 

REF 

156  LAST 

87  2 

33, 2726 

3 47  55 

1 

CAF 

ZERO 

BETTER  THAN  A NOOP,  PERHAPS 

0677 

REF 

6 LAST 

50  3 

33,2727 

24  133 

0 

I NCR 

BUF2 

0678 

REF 

4 LAST 

548 

33, 2730 

1 4631 

0 

TC  F 

SWRE TURN 

0679 

REF 

2 LAST 

85  2 

33,2731 

ALTCR IT 

= 

25KFT 

0 6 ft  0 

? 7^  1 

nnnf)7 

n 

? GK  FT 

?DFf 

7620  R-?4 

( 0 ) 

0680 

33, 2732 

16100 

i 

0681 

33,  2733 

00016 

0 

50KFT 

2DEC 

15240  B— 24 

(2) 

0681 

33, 2734 

34200 

1 

0682 

33,2735 

000  00 

1 

50FT 

2DEC 

15.24  B-24 

I 4) 

0682 

33,  2736 

00364 

0 

0683- 

33,2737 

00010 

0 

30KFT 

2DEC 

9144  B-24 

(6) 

068  3 

33,2740 

35600 

1 

0684 

33, 2741 

01414 

l 

2KFT/SEC  DEC 

6.096  B-7 

2000  FT/SEC  AT  2(7)  M/CS 

R0685 

0686 

REF 

16  LAST 

83  5 

33,2742 

3 6241 

0 ... 

XORCHK 

CAF 

S IX 

ARE  WE  BELOW  30000  F T? 

0687 

REF 

235  LAST 

864 

33,2743 

0 4616 

1 

TC 

BANKCALL 

0688 

REF 

1 

33,  2 744 

667  16 

1 

CADR 

ALTCHK 

06  89 

REF 

1 

33,2745 

1 2531 

.0 

TC  F 

H ITEST 

CONTINUE  LR  UPDATE 

0690 

REF 

53  LAST 

864 

33,  2746 

0 5504 

0 

TC 

UPFL AG 

YES:  INHIBIT  X-AXIS  OVERRIDE 

0691 

REF 

7 LAST 

85  2 

33,2747 

00311 

1 

ADRES 

XOVI NFLG 

0692 

REF 

54  LAST 

879 

33,2750 

0 5504 

0 

TC 

UPFL AG 

0693 

REF 

l 

33,2751 

00253 

0 

ADRES 

XOPF  LG 

0694 

REF 

2 LAST 

879 

33,2752 

1 2531 

0 

TC  F 

HITEST 

CONTINUE  LR  UPDATE 

0695 

REF 

54  LAST 

85  8 

33, 2753 

3 4752 

0 

35KCHK 

CAF 

TWO 

ARE  WE  BELOW  35000  FT? 

GAP: 
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0696 

0697 

AA  Q P 

REF 

REF 

D cf 

236 

2 

3 

LAST 

LAST 

LAST 

879 
879 
87  5 

33.2754 

33.2755 

33. 2756 

0 4616 
66716 

1 2573 

1 

1 

0 

TC 

CADR 

TCF 

8 ANK  CALI 
ALTCHK 
CONTSER V 

UO-7  o 

0699 

r\  c r 

REF 

55 

LAST 

879 

33,2757 

0 5504 

0 

TC 

UPFLAG 

0700 

REF 

1 

33,2760 

00256 

0 

ADRES 

REAOLR 

0701 

RE-F 

— 4- 

LAST 

8^0 

33,2761 

1 2573 

0 

TCF 

CONTSERV 
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P0702  *****************  ***************************************************************************** *********** 

R0705 


0706 

0707 

0708 

REF 

24 

LAST 

878 

33.2762 

33.2763 

33. 2764 

41456 
03535 
673  40 

0 

1 

1 

CALCGRAV 

UNIT 
STORE 
LXC  ,1 

PUSH 
UNIT /R/ 
S LC  A C 

SAVE  UNIT/R/  IN  PUSHLIST  (18) 

PTX2  = 0 IF  EARTH  ORBIT,  =2  IF  LUNAR ._ 

0709 

REF 

15 

LAST 

784 

33,2765 

033  76 

0 

P T X 2 

0710 

REF 

16 

LAST 

88  1 

33,2766 

03377 

1 

RTX2 

0711 

33, 2767 

50076 

-0 

DCOMP 

BMN 

0712 

REF 

1 

33, 2770 

67017 

0 

CALCGPV1 

0713 

33, 2771 

50375 

0 

VLOAD 

DOT 

1 12) 

0714 

R EE 

8- 

last 

84  3 

33,2772 

06416 

.1 

UNITZ 

0715 

REF 

25 

LAST 

88  1 

33,2773 

03535 

1 

UNIT/R/ 

0716 

33, 2774 

41552 

0 

SL1 

PUSH 

( 14) 

0717 

33, 2 775 

443  16 

o_ 

DSO 

BDSU 

0718 

REF 

1 

33,2776 

27061 

0 

DP  1 / 20 

0719 

33, 2777 

56325 

0 

PDOL 

DDV 

0720 

REF 

33,3000 

26040 

1 

RESQ 

0721 



33,3001 

00043 

0 

34D 

(RN)SQ 

0722 

33,3002 

00041 

1 

STORE 

32D 

TEMP  FOR  (RE/RN1SQ 

0723 

33, 3003 

41205 

-0 _ 

DMP 

DMP 

0724 

REF 

1 

33,3004 

26042 

0 

2 0 J 

0725 

33,3005 

65361 

0 

VXSC 

PDDL 

072fe 

REF 

26 

LAST 

8 8 1- 

33,3006 

03535 

1 

UNIT/R/ 

0727 

33, 3007 

41205 

0 

DMP 

DMP 

0728 

REF 

1 

33, 3010 

26044 

0 

2 J 

0729 

33,3011 

00041 

1 

320 

0730 

33, 3012 

76561 

1 

VXSC 

VSL  1 

0731 

REF 

9 

LAST 

88  1 

33, 3013 

06416 

1 

UNITZ 

0732 

33-»  3 014  - 

45455 

1 

VAD 

STADP 

0733 

REF 

2 

LAST 

784 

33, 3015 

742  60 

0 

STORE 

UNIT  GOBL 

0734 

33, 3016 

41455 

0 

VAD 

PUSH 

MPAC  = UNIT  GRAVITY  VECTOR.  (IB) 

0735- 

33, 3 017  - 

603  45 

-0 

CALCGRV1 

D-LOAD 

NCR  M 

PERFORM  A NORMALIZATION  ON  RMAGSO  IN 

0736 

33, 3020 

00043 

0 

34D 

ORDER  TO  BE  APLE  TO  SCALE  THE  MU  FOR 

0737 

REF 

13 

LAST 

722 

33, 3021 

00050 

1 

X2 

MAXIMUM  PRECISION. 

0738 

33,3022 

53663 

-J 

B-DDV* 

SLR* 

0739 

REF 

1 

33, 3023 

26032 

1 

-MUD  T, 1 

0740 

33, 3024 

56623 

0 

0 - 2 ID , 2 

0741 

33, 3025 

455  61 

1 

VXSC 

STADP 

0742 

REF 

3 

LAST 

846 

33, 3026 

74216 

1 

STORE 

GDT 1 /2 

SCALED  AT  2 ( +7 ) M/CS 

0743 

33, 3027 

77616 

0 

RVQ 

0744 

33, 3030 

61375 

1 

CALCRVG 

VLOAD 

VXM 

0745 

REF 

6 

LAST 

86  1 

33, 3031 

00325 

0 

DEL  V 

0746 

REF 

37 

LAST 

87  7_ 

33,3032 

01734 

-0 

REFSMMAT 

0747 

33, 3033 

76561 

1 

VX  SC 

V S L 1 

0748 

REF 

2 

LAST 

86  2 

33, 3034 

26022 

0 

X P I PI 

0749 

REE 

6~ 

LAST 

785 

33,3035 

03525 

0 

STORE 

DEL VPEF 

0750 

33, 3036 

41562 

0 

VSP  1 

PUSH 

0751 

33, 3037 

41455 

0 

VAD 

PUSH 

( DV-OL  DGDT ) / 2 TO  PO  SCALED  AT  2(+7)M/CS 

GAP 
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0752 

0753 

REF 

7 

LAST 

813 

33. 3040 

33. 3041 
33,3 04? 

01237 
65255 
ni  ? ?7 

0 

0 

1 

GDT/2 

VAD  PDDL 

- VN  - _ 

0754 

0755 

REF 

REF 

A 

LWi  1 

LAST 

87  1 

33, 3043 

01250 

1 

PGUIDE 

0756 

33, 3044 

742  61 

1 

SL  VXSC 

33t  BOA^ 

POP  07 

0 

6 D 

0757 

0758 

33, 3046 

440  55 

1 

VAD  STQ 

0759 

REF 

12 

LAST 

86  8 

33,3047 

01221 

1 

RN 

33 , 3050 

00037 

0 

3 ID 

0761 

REF 

8 

LAST 

877 

33,3051 

37543 

1 

STCALL  RN1 

0762 

REF 

2 

LAST 

86  8 

33,3052 

66762 

1 

C ALCGRAV 

0763 

33, 3053 

53255 

0 

VAD  VAD 

0764 

33,3054 

77655 

1 

VAD 

0 76^ 

REF 

9 

| AST 

8 ft  ? 

33 » 3 055 

01227 

1 

VN 

0766 

REF 

7 

LAST 

877 

33,3056 

37551 

1 

STCALL  V N 1 

0767 

33,3057 

00037 

0 

3 1 D 

0768 

33,3060 

01463 

1 

DPI/20 

2DEC  0.05 

0768 

33, 3061 

06315 

0 

00010 

0 

SHI  FT  1 1 

2DEC  1 B- 11 

0769 

33, 3063 

00000 

1 
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( 18) 


TEMP  STORAGE  OF  RN  SCALED  2(+29)M 


TEMP  STORAGE  OF  VN  SCALED  2<+7)M/CS 


GAP: 

L 

P 0770 

R0772 

R0773 

R0774 

R0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 

0785 

07  86 

0787 

0788 

0789 

0790 

0791 

0792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 

0803 

0804 

0805 

0806 

0807 

0808 

0809 

0810 

0811 

0812 

0813 

0814 

0815 

0816 

0817 

0818 
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T WTCr.D 

A T t r 

INI  RnilTIMP  IIQFn 

RV  THRUSTING 

PROGRAMS 

WHICH 

FUNCTION  IN  THE  VICINITY 

OF  AN 

ASSUMED  SPHERICAL  MOON. 

THE 

INPUT  AND 

OUTPUT 

QUANTITIES  ARE 

REFERENCED 

TO  THE  STABLE  MEMBER 

* L O I -J 

33,3064 

41575 

0 

RVBOTH 

VLOAD 

PUSH 

7 4 2 

1 7,  06^ 

n?  i ? s 

1 

G(CSM) 

33, 3066 

65255 

0 

VAD 

POOL 

REF 

4 

LAST 

86  8 

33, 3067 

01726 

0 

V (CSM) 

RFF 

5 

1 AST 

R8  P 

33 , 3 070 

01250 

1 

PGUI DE 

33, 3071 

74271 

0 

DDV 

VXSC 

REF 

i 

33,3072 

27063 

1 

SHIFT11 

33,3073 

77655 

1 

VAD 

REF 

4 

LAST 

868 

33, 3074 

01720 

0 

R (CSM) 

REF 

7 

LAST 

878 

33,3075 

37571 

0 

ST  CALL 

R1S 

REF 

. 6 

LAST 

86  8 

33, 3076 

67162 

0 

MUNG PAV 

33, 3077 

53255 

0 

VAD 

VAD 

REF 

5 

LAST 

38  3 

33, 3100 

01726 

0 

V(CSM) 

33, 3 101 

77626 

0 

STADP 

REF 

9 

LAST 

878 

33,3102 

742  00 

0 

STORF 

VIS 

33, 3103 

77776 

1 

EXIT 

REF 

6 

LAST 

877 

33, 3104 

0 3535 

1 

TC 

QUIKFAZ5 

REF 

149 

LAST 

877 

33,3105 

0 6036 

1 

TC 

INTPRET 

33, 3 106 

77775 

1 

VLOAD 

REF 

4 

L AST 

83  I 

33,3107 

035  61 

0 

GDT1/2 

REF 

4 

LAST 

88  3 

33, 3110 

26323 

1 

STOVL 

G(CSM) 

REF 

8 

LAST 

88  3 

33,3111 

03571 

1 

R IS 

REF 

5 

LAST 

88  3 

33, 3112 

25720 

0 

STOVL 

R ( C S M ) 

REF 

10 

LAST 

883 

33,3113 

03577 

1 

VIS 

REF 

6 

LAST 

883 

33, 3114 

01726 

0 

STORE 

V(CSM) 

33,3115 

77776 

1 

EXIT 

REF 

7 

LAST 

883 

33,3116 

0 3535 

1 

TC 

QUI KFAZ5 

REF 

150 

LAST 

88  3 

33,3117 

0 6036 

1 

TC 

I NTPRET 

33,3120 

74375 

0 

MUNRVG 

VLOAD 

VXSC 

REF 

7 

LAST 

88  1 

33, 3 121 

00325 

0 

DELV 

REF 

1 

33,3122 

26024 

0 

K PI  P 2 

33,3123 

532  06 

0 

PUSH 

VAD  1ST  PUSH:  DELV  IN  UNITS  OF  2(8)  M/CS 

REF 

8 

LAST 

882 

33,3124 

01237 

0 

GDT/2 

33, 3125 

53206 

0 

PUSH 

VAD  2ND  PUSH:  (DEIV  + G0T)/2,  UNITS  OF  2(7) 

REF 

16 

LAST 

87  8 

33,3126 

03525 

0 

V (12) 

33, 3127 

56325 

0 

POOL 

DDV 

REF 

6 

LAST 

88  3 

33,3130 

01250 

1 

PGUI DE 

REF 

2 

LAST 

883 

33,3131 

27063 

1 

SHI FT11 

33,  3 132 

77761 

1 

VXSC 

33,3133 

77655 

1 

VAD 

REF 

23 

LAST 

878 

33,3134 

035  17 

1 

R 

REF 

9 

LAST 

88  3 

33,3135 

37571 

0 

STCALL 

R1S  STORE  R SCALED  AT  2(+24)M. 

REF 

7 

LAST 

883 

33,  3 136 

67162 

0 

MUNG  PAV 

STORE  R SCALED  AT  2H-24IM 


;ap: 

0819 

0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

0840 

0841 

0842 

0843 

0844 

0345 

0846 

0847 

0848 

0849 

0850 

0850 

0851 

0851 

0852 

0852 

0853 
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33, 3137 

53255 

0 

VAO 

VAD 

33,3140 

77655 

1 

VAD 

10) 

LAST 

8 8 3 

88,  8 141 

03525 

0 

V 

REF 

11 

LAST 

88  3 

33,3142 

03577 

1 

STORE 

VIS 

STORE  V SCALED  AT  2I+7JM/CS. 

33,3143 

77646 

0 

ABVAL 

R pF 

5 

1 AST 

74  3 

33, 3 144 

27470 

L 

STOVL 

ABVEL 

STORE  SPEED  FOR  LR  AND  DISPLAYS. 

REF 

27 

LAST 

88  1 

33,3145 

03535 

l 

UNI  T/P/ 

33,  3 146 

72441 

0 

DOT 

SL1 

REF 

1 2 

LAST 

4 

88,  8 147 

035  77 

1 

VIS 

REF 

5 

LAST 

330 

33, 3150 

27472 

0 

STOVL 

HDDTDISP 

HDOT  = V.  UNIT ( R) *2 (7) M/CS. 

REF 

10 

LAST 

83  3 

33,3151 

03571 

1 

R1S 

83, 3 152 

72435 

0 

VXV 

V S L 2 

REF 

5 

LAST 

843 

33,3153 

02331 

1 

WM 

REF 

2 

LAST 

166 

33,3154 

17732 

1 

STOOL 

DELVS 

LUNAR  ROTATION  CORRECTION  TER M*2 ( 5 ) m / C S . 

88,8155 

00045 

0 

36D 

33, 3156 

77625 

0 

DSU 

REF 

10 

LAST 

877 

33,3157 

02337 

1 

/LAND/ 

REF 

7 

LAST 

87  9 

33, 3160 

37533 

0 

ST  CALL 

HCALC 

FOP  NOW,  DISPLAY  WHETHER  POS  OR  NEG 

REF 

i 

33,3161 

665  14 

1 

MUNP ETRN 

33,  3162 

77656 

1 

MUNGRAV 

UNIT 

AT  36D  HAVE  ABVAL ( P ) , AT  34D  R.P 

REF 

28 

LAST 

88  4 

33, 3 163 

17535 

1 

STODL 

UNI T/R/ 

33, 3164 

00043 

0 

34D 

33, 3 165 

55261 

1 

SL 

BDDV 

33,3166 

20207 

0 

6D 

REF 

i 

33,3167 

26036 

0 

-MUDTMUN 

33, 3170 

742  05 

0 

DMP 

VXSC 

REF 

3 

L AST 

89  3 

33,3171 

27063 

1 

SHI FT11 

REF 

29 

LAST 

884 

33,3172 

03535 

1 

UNI  T/R/ 

REF 

5 

LAST 

833 

33, 3173 

03561 

0 

STORE 

GOT  1 /2 

1/2GDT  SCALED  AT  2(7)M/CS. 

33,  3174 

77616 

o 

RVQ 

33, 3175 

00303 

1 

1.95SECS 

DEC 

195 

88,81 75 

00005 

1 

7.5 

?DFr 

.07786  P-6 

7.5  FT/SFC  AT  7(6)  M/CS 

33,3177 

332  12 

0 

33,3200 

000  14 

1 

2SECI  18) 

2DEC 

200  B-l 8 

33,3201 

20000 

0 

33,3202 

00000 

1 

2SECI2R ) 

20CT 

00000  00310 

2 SEC  AT  2(28) 

33, 3203 

003  10 

0 

33, 3204 

00110 

J. 

BITS4-7 

OCT 

1 10 

GAP 
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L SERVICER 


P0854 


0855 

REF 

2 

LAST 

873 

33, 3205 

3 4742 

1 

UPDATCHK 

CAF 

NOLRRBIT 

..c. 

QCC 

o 7 

LAST 

8-76 

33, 3206 

7 0107 

0— 

MASK 

FLGWRD1 1 

Uo  z>o 
0857 

K tf 

REF 

262 

LAST 

879 

33, 3207 

10  000 

0 

CCS 

A 

0858 

REF 

5 

LAST 

88  0 

33,3210 

1 2573 

0 

TC  F 

CONTSERV 

0859 

REF 

33, 3211 

3 4750 

_1 

CAF 

RNGECBIT 

0860 

REF 

28 

LAST 

885 

33,3212 

7 0107 

0 

MASK 

FLGWRD11 

0861 

33,3213 

0 0006 

1 

EXTEND 

0862 

REF 

_ j_ 

33,3214 

1 3320 

1 

B2F 

VMEASCHK 

0863 

REF 

151 

LAST 

88  3 

33,3215 

0 6036 

1 

POSUPDAT 

TC 

I NTPRET 

0864 

33, 3216 

54345 

1 

DLOAD 

SL 

0865 

REF 

5 

LAST 

874 

33, 3217 

03653 

1 

HMEAS 

0866 

33, 3220 

20210 

0 

7 

0867 

33,3221 

74205 

J3l_ 

DM  P 

vxsr 

0868 

REF 

1 

33, 3222 

26011 

0 

HSCAL 

0869 

REF 

1 

33,3223 

02313 

1 

HBEAMNB 

0870 

33, 3224 

77705 

0- 

VXM 

0871 

REF 

9 

LAST 

875 

33, 3225 

02146 

0 

XNBPIP 

0872 

33,3226 

45241 

1 

DOT 

DSU 

0873 

R EF 

30 

LAST 

88  4 

33, 3227 

03535 

1 

UNIT/R/ 

0874 

REF 

8 

LAST 

884 

33,  3230 

03533 

1 

HCAL  C 

0875 

REF 

5 

LAST 

790 

33, 3231 

03663 

1 

STORE 

DELT AH 

0876  33,  3232  77776-1 EXIT 


0877 

REF 

29 

LAST 

885 

33, 3233 

3 0107 

1 

CA 

FLGKRD11 

0878 

REF 

2 

LAST 

875 

33,3234 

7 4741 

0 

MA  SK 

PSTH  IBIT 

0879 

33, 3235 

0 0006 

1 

EXTEND 

0880 

REF 

i 

33,3236 

1 3253 

1 

BZF 

NOREASON 

0881 

REF 

152 

LAST 

885 

33,3237 

0 6036 

1 

TC 

I NTPRET 

0882 

33, 3240 

45246 

0 

ABS 

DSU 

0883 

REF 

2 

LAST 

138 

33,3241 

02501 

1 

DELCFIX 

0884 

33, 3242 

45252 

0 

SL3 

DSU 

0885 

REF 

9 

LAST 

885 

33,3243 

03533 

1 

HCALC 

0886  33,3244  77776  1 EXIT 


0887 

REF 

2 

LAST 

165 

33,3245 

2 5 ' 666 

0 

INCR 

LRLCTR 

0888 

R EF 

2- 

LAST 

879 

33, 3246 

0 6722 

0 

TC 

BRANCH 

0889 

REF 

1 

33, 3247 

1 3543 

1 

TC  F 

HFAIL 

0890 

REF 

2 

LAST 

885 

33,3250 

1 3543 

1 

TC  F 

HF  A I L 

0891 

REF- 

82 

LAST 

85  5 

33, 3251 

0 5516 

0 

TC 

_ POWNFLAG 

0892 

REF 

1 

33, 3252 

00263 

0 

ADRES 

HFLSHFLG 

0893 

REF- 

30 

LAST 

88  5 

33, 3253 

4 0107 

0 

NOREASON  CS 

FLGWRD1 1 

0894 

REF 

1 

33, 3254 

7 4744 

0 

MASK 

LR INHBIT 

0895 

REF 

263 

LAST 

885 

33, 3255 

10  000 

0 

CCS 

A 

0896 

REE 

2 

LAST 

88  5 

33,3256 

1 3320 

J. 

TCP 

VMEASCHK 

0897 


REF  153  LAST  885 


33, 3257  0 6036  1 


TC 


INTPRET 


19:02  NOV.  25,1968  FLY 


109  PAGE  885 


USER'S  PAGE  NO.  28  E7  S3 

SEE  IF  LR  UPDATE  INHIBITED. 

IT  I S— NO  LR  UPDATE 

NO  INHIBIT  - SEE  ALT  MEAS.  THIS  CYCLE. 
NO  ALT  MEAS  THIS  CYCLE-CHECK  FOR  VEL 


COMPUTE  SLANT  RANGE 


SLANT  RANGE  AT  2I21IM 

RANGE  VECTOR  IN  N8  COORDINATES  AT  2I22IM 

CONVERT  TO  SM  COORDINATES  AT  2<23)M 

ALTITUDE  AT  2(24)M 
DELTA  H AT  2(24)  M 


DO  NOT  PERFORM  DATA  REASONABLENESS  TEST 
UNTIL  AFTER  HIGATE 


ABS(DELTAH)  - DOFIX  50  FT  NOM 
SCALE  TO  2(21) 

ABS(DELTAH)  - (50  + HCALC/8)  AT  2(21) 


DELTA  H TOO  LARGE 
DELTA  H TOO  LARGE 
TURN  OFF  ALT  FAIL  LAMP 


UPDATE  INHIBITED  - TEST  VELOCITY  ANYWAY 


DO  POSITION  UPDATE 


GAP  : 
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109  PAGE  886 


L SERVICER 


USER’S  PAGE  NO.  29  E7  S3 


0898 

0899 

0900 

REF 

10 

LAST 

885 

33.3260 

33.3261 

33.3262 

40545 

03533 

77776 

1 

1 

1 

DLOAD 

EXIT 

SR4 
HCAL  C 

RESCALE  H TO  2I231M 

0901 

33,3263 

0 0006 

1 

EXTEND 

0902 

REF 

6 

LAST 

885 

33,3264 

3 1663 

0 

DC  A 

3 EL  T AH 

STORE  DELTAH  IN  MPAC  AND 

0903 

REF 

3 27 

LAST 

87  9 

33, 3265 

52  155 

1 

OXCR 

MPAC 

BRING  HCALC  INTO  A,L 

0904 

REF 

1 

33,  3266 

0 7543 

1 

TC 

ALS I GNAG 

0905 

33,3267 

0 0006 

1 

EXTEND 

IF  HIGH  PART  OF  HCALC  IS  NON  ZERO,  THEN 

0906 

33, 3270 

l 32  72 

1 

BZ  F 

+ 2 

HCALC  > HMAX, 

0907 

REF 

3 

LAST 

885 

33,3  271 

1 3320 

1 

TCF 

VMEASCHK 

SO  UPDATE  IS  BYPASSED 

0908 

REF 

328 

LAST 

886 

33, 3272 

54  156 

1 

TS 

MPAC  +2 

FOR  LATER  SHORTMP 

0909 

REF 

131 

LAST 

875 

33,3273 

4 0001 

1 

CS 

L 

-H  AT  2( 14  )M 

0910 

REF 

1 

33,3274 

6 1416 

0 

AD 

LRHM AX 

HMAX  - H 

0911 

33, 3275 

0 0006 

1 

EXTEND 

0912 

REF 

4 

LAST 

886 

33, 3276 

6 3320 

0 

BZMF 

V ME  A SCHK 

IF  H >HMAX,  BYPASS  UPDATE 

0913 

33,3277 

0 0006 

1 

EXTEND 

0914 

REF 

1__ 

33, 3 300 

7 1420 

1 

MP 

LRWH 

WHIHMAX  - Hi 

0915 

33,3301 

0 0006 

1 

EXTEND 

0916 

REF 

2 

LAST 

886 

33, 3302 

11*416 

1 

DV 

LRHM  AX 

WH{ 1 - H/HMAX ) 

0917 

REF- 

4 

LAST 

47  5 

33, 3303 

54  135 

1 

TS 

MPT  E MP 

0918 

REF 

1 

33,3304 

0 7312 

0 

TC 

SH0PTMP2 

DELTAH  ( WH ) ( 1 - H/HMAX)  IN  MPAC 

0919 

REF 

1 54 

LAST 

885 

33, 3305 

0 6036 

1 

TC 

I NT  P RET 

MODE  IS  DP  FROM  ABOVE 

091 9 5 

33,  3 306 

77752 

1 

SL1 

0920 

33,3307 

53361 

0 

vxsc 

VAD 

0921 

REF 

31 

LAST 

885 

33,3310 

03535 

1 

UNIT/R/ 

DELTAR  = DHIWHH1  - H/HMAX)  UNIT/R/ 

0922 

R-gE- 

11 

LAST 

884 

33,  331 1 

03571 

1 

R IS 

0923 

REF 

l 

33,3312 

37655 

0 

STCALL 

GNUR 

0924 

REF 

8 

LAST 

88  3 

33,3313 

67162 

0 

MUNGRAV 

0925  33,3314  77776  1 EXIT 


0926 

REF 

8 

LAST 

883 

33,3315 

0 

3535 

1 

TC 

OLJIK  FAZ5 

0927 

REF 

157 

LAST 

879 

33, 3316 

3 

4755 

l 

CA 

ZERO 

0928 

REF 

1 

33, 331  7 

0 

3517 

1 

TC 

GNUR VST 

0929 

REF 

9 

LAST 

886 

33,3320 

0 

3535 

1 

VMEASCHK 

TC 

QUI K FAZ5 

RESTART  AT  NEXT  LOCATION 

0930 

REF 

31 

LAST 

885 

33,3321 

4 

0107 

0 

CS 

FLGWRD11 

09  31 

REF- 

— 1- 

33, 3322 

—7 

474  5 

1 

MASK 

VELDABIT 

IS  V READING  AVAILABLE? 

0932 

REF 

264 

LAST 

88  5 

33,3323 

10 

000 

0 

CCS 

A 

0933 

REF 

1 

33,3324 

1 

3475 

0 

TCF 

VALTCHK 

NO  SEE  IF  V READING  TO 

BE  TAKEN 

0934 

REF 

3 

LAST 

215 

33,3325 

4 

1647 

1 

VELUPDAT 

CS 

VSEL  FCT 

PROCESS  VELOCITY  OATA 

0935 

REF 

1 32 

LAST 

886 

33, 3326 

54 

001 

1 

TS 

L 

0936 

REF 

1 33 

-LAST 

886 

33, 3327 

26 

001 

1 

ADS 

L 

-2  VS  ELECT  IN  L 

0937 

REF 

134 

LAST 

886 

33, 3330 

6 

0001 

0 

AD 

L 

0938 

REF 

135 

LAST 

886 

33,  3331 

6 

0001 

0 

AD 

L 

-6  VSELECT  IN  A 

093  9 

REF 

23 

LAST 

8i>-4 

33, 3332 

50 

120 

1 

INDEX 

_F  I XL OC 

0940 

REF 

18 

LAST 

82  5 

33, 3333 

52 

047 

0 

DXCH 

X 1 

XI  = -6  VSELECT,  X2  = -2 

VSELECT 

ASSEMBLE  REVISION  069  OE  AGC  PROGRAM  LUMINARY  BY 


GAP  : 


L SERVICER 


0941 

REF 

4 

LAST 

875 

33,3334 

3 4741 

1 

0942 

REF 

29 

LAST 

87  5 

33, 3335 

54  003 

0 

0943  REF  2 LAST  132  E4.1660 


0944 

REF 

2 

LAST 

132 

33,3336 

3 1661 

1 

0945 

REF 

19 

LAST 

6 12 

33,  3 337 

54  766 

1 

0946 

REF 

2 

LAST 

132 

33,3340 

3 1662 

1 

0947 

REF 

20 

LAST 

887 

33, 3341 

54  770 

0 

0948 

REF 

3 

LAST- 

88  7 

33, 3342 

3 1660 

0 

0949 

REF 

21 

LAST 

887 

33, 3343 

54  772 

1 

0950 

REF 

237 

LAST 

880 

33,  3344 

0 4616 

-1- 

0951 

REF 

3 

LAST 

862 

33, 3345 

47521 

1 

0952 

REF 

-24- 

LAST 

88  6 

453, 3346 

3 0120 

0953 

REF 

9 

LAST 

864 

33, 3347 

54  166 

1 

0954 

REF 

1 5 5 

L AST 

g.g  6 

33 i 3350 

0 6036 

_ j_ 

0955 

33,3351 

45173 

0 

0956 

REF 

2 

LAST 

132 

33, 3352 

02235 

1 

0957 

-REF 

— 4- 

L AST 

5-9  1 

33, 3353 

47577 

-1 

0958 

33,3354 

54325 

1 

0959 

REF 

3 

LAST 

216 

33, 3355 

03651 

0 

0960 

33^3356 

20215 

0 

0961 

33, 3357 

41403 

0 

0962 

REF 

1 

33, 3360 

51764 

0 

0963 

33, 3361 

77776 

1 

0964 

REF 

95 

LAST 

863 

33, 3362 

4 4753 

0 

0965 

REF 

12 

LAST 

824 

33, 3363 

54  163 

1 

0966 

REF 

2 

LAST 

13  5 

33,3364 

3 1663 

0 

0967 

33, 3365 

22  007 

0 

0968 

REF 

329 

LAST 

886 

33, 3366 

52  155 

-1- 

0969 

REF 

3 

LAST 

887 

33, 3367 

3 1664 

1 

0970 

33, 3370 

22  007 

0 

0971 

REF 

330 

LAST 

88  7 

33,3371 

52  160 

1 

0972 

REF 

4 

LAST 

88  7 

33, 3372 

3 1 665 

-0 

0973 

33, 3373 

22  007 

0 

0974 

REF 

331 

LAST 

887 

33,3374 

5 2 162 

0 

0975 

REF 

9 

LAST 

864 

33,3375 

3 5016 

0 

0976 

REF 

30 

LAST 

887 

33, 3376 

54  0 03 

0 

0977 

REF 

45 

LAST 

875 

E7, 1513 

0978 

REF 

156 

LAST 

887 

33, 3377 

0 6036 

1 

0979 

33, 3400 

65361 

0 

09  80 

REF 

3 

LAST 

88  1 

33,3401 

260 22 

0 

0981 

REF 

2 

LAST 

132 

33,3402 

022  57 

0 

0982 

33, 3403 

56225 

1 

NASA  2021112-011 


19:02  NOV.  25,1968  FLY 


109  PAGE 


USER'S  PAGE  NO.  30  E7  S3 


CA 

TS 

EBANK= 

EBANK4 
E8ANK 
LRXC  DU 

CA 

LRYCDU 

STORE  LRCDUS  IN  CDUSPOTS 

TS 

C DU  S POT 

CA 

LRZCDU 

TS 

C DU  S POT  +2 

CA 

LRXC  DU 

TS 

C DUS  POT  +4 

TC 

8 ANKCALl 

CADR 

QUICTRIG 

GET  SINES  AND  COSINES  FOR  NBSM 

CA 

F I XL  DC 

TS 

PUSHLOC 

SET  PD  TO  ZERO 

TC 

INTPRET 

VLOAD* 

CALL 

VZBEAMNB, 1 
*NBSM* 

CONVERT  V BEAM  FROM  NB  TO  SM 

POOL 

SL 

STORE  IN  PD  0-5 

VMFAS 

LOAD  VELOCITY  MEASUREMENT 

1 2D 

0MP4 

PUSH 

SCALE  TO  M/CS  AT  2(6) 

EXIT 

VZSCAL.2 

AND  STORE  IN  PD  6-7 

CS 

ONE 

TS 

MODE 

CHANGE  STORE  MODE  TO  VECTOR 

CA 

PIPTEM 

STORE  DELV  IN  MPAC 

ZL 

DXCH  MPAC 


CA 

ZL 

PIPTEM  +1 

DXCH 

MPAC  +3 

CA 

PIPTEM  +? 

ZL 

DXCH 

MPAC  +5 

CA 

F8ANK7 

TS 

EBANK 

RESTORE  EBANK  7 

E3ANK= 

DVCNTR 

TC  INTPRET 

VXSC  PDDL 
KPIPI 
LRVT IME 
DDV 


OSU 


SCALE  DEL V TO  2(7)  M/CS  AND  PUSH 
TIME  OF  DELV  AT  2(28)CS 


GAP:  ASSEMBLE  REVISION  069  OF-  AG G— PROGRAM  LUMINARY  BY  NASA  2021112-011 
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109  PAGE 


L SERVICER 


USER'S  PAGE  NO,  31  E7  S3 


0983 

REF 

17 

LAST 

87  1 

33,3404 

01235 

1 

P IPT IMF 

TU  - TIN-1 ) 

0984 

REF 

1 

33, 3405 

27203 

0 

2 SEC (28) 

769  A 1 

l 

VX  sc 

VSL  1 

GIN-1 ) ( TU  - T (N— 1 ) ) 

09  85 
0986 

REF 

9 

LAST 

883 

33,3407 

01237 

0 

GDT/2 

SCALED  AT  2(7)  M/CS 

0987 

33, 3410 

532  55 

0 

VAD 

VAD 

PUSH  UP  FOR  DEL V 

HEF— 

la 

- LAST 

884 

03575 

0 

V 

VU  = V ( N— 1 ) + DEL VU  + G(N-l)  DTU 

0989 

33,3412 

53352 

0 

VSL2 

VAD 

SCALE  TO  2(5)  M/CS  AND  SUBTRACT 

0990 

REF 

3 

LAST 

884 

33, 3413 

03732 

1 

DEL  V S 

MOON  ROTATION. 

09°  1 

33 * 3414 

51406 

1 

°USH 

ABV  A L 

STORE  IN  PD 

0992 

33, 3415 

43202 

0 

SR  4 

DAD 

ABS ( VM) /8  + 7.5  AT  2(6) 

0993 

REF 

1 

33,3416 

27177 

0 

7.5 

0994 

33, 3417 

24025 

0 

STOVL 

2 OD  ... 

STORE  IN  POD  AND  PICK  UP  VM 

0995 

33,3420 

44241 

0 

DOT 

B DSU 

V(EST)  AT  2(6) 

0996 

33,3421 

00001 

0 

0 

DELTAV  = VMFAS  - V(EST) 

0997 

33 , 3422 

51406 

1 

PUSH 

ABS 

0998 

33,3423 

77425 

1 

DSU 

EXIT 

ABS(DV)  - (7.5  + ABS ( V M )/ 8 ) ) 

0999 

33, 3424 

00025 

0 

2 OD 

1000 

1001 

jnn? 

REF 

REF 

REF 

2 

3 

1 

LAST 

LAST 

166 

885 

33.3425 

33. 3426 
88, 84P7 

25*670 

0 6722 

1 3 5 60 

1 

0 

o 

I NCR 

TC 

TCF 

LRMCTP 
BRANCH 
VF  A I L 

DELTA 

V 

TOO  LARGE  ALARM 

1003 

REF 

2 

LAST 

888 

33, 3430 

1 3560 

0 

TCF 

V F A I L 

DELTA 

V 

TOO  LARGE  ALARM 

1 nn4 

ftfF 

LAST 

885 

33t  343 1 

0 5516 

o 

TC 

nnwNFi  ac 

TURN 

OFF 

VEL  FAIL  LAMP 

1005 

REF 

i 

33,3432 

00262 

1 

ADRES 

VFLSHFLG 

1 0Q6 

REF 

3 2 

L £$  t 

ft#  fy 

^433 

3 010  7 

l 

C A 

1007 

REF 

1 

33,3434 

7 4740 

1 

MASK 

VX  INHBIT 

1008 

33,3435 

0 0006 

1 

EXTFND 

1009-  ft-EF 1 -33,3436  1 3445  0-  BZF  VUPDAT  IF  VX  INHIBIT  RESET,  INCORPORATE  DATA 


1010 

REF 

84 

LAST 

888 

33, 3437 

0 5516 

0 

TC 

DOWN  FLAG 

1011 

REF 

— 1_ 

33, 3440 

002  50 

0 

ADRES 

VX  I NH 

RESET  VX  INHIBIT 

1012 

REF 

4 

LAST 

886 

33, 3441 

3 1647 

0 

CA 

VSEL  ECT 

1013 

REF 

— 4- 

LAST 

50  9 

33, 3442 

6 7745 

o 

A-D 

NEG2 

IF  VSELECT  = 2 (X  AXIS), 

1014 

33, 3443 

0 0006 

1 

EXTEND 

BYPASS  UPDATE 

1015 

REF 

1 

33,3444 

1 3475 

0 

BZF 

ENDVDAT 

1016 

REF 

33 

LAST 

888 

33, 3445 

4 0107 

0 VUPDAT 

CS 

FLGWRD11 

1017 

REF 

2 

LAST 

88  5 

33, 3446 

7 4744 

0 

MASK 

LR INHBIT 

1018 

REF 

265 

LAST 

-866 

33,3447 

10  000 

0 

CCS 

_A 

1019 

REF 

2 

LAST 

886 

33, 3450 

1 3475 

0 

TCF 

VALTCHK 

UPDATE  INHIBITED 

1020 

REF 

332 

LAST 

88  7 

33,3451 

54  155 

1 

TS 

MP  A C +1 

7 FRO  MPAf  ,1  FDR  M1IITTPIY  IATFR 

1021 

REF 

6 

LAST 

884 

33,3452 

4 1467 

1 

CS 

ABVEL 

L.  1 rV-U  1 )r  HU  i l 1 U(\  U/L  1 1 i l_T  L 8 ] L \ 

1022 

REF 

1 

33,3453 

6 1417 

1 

AD 

LRVMAX 

VMAX  - V 

1023 

33,3454 

0 0006 

1 

EX  TEND 

1024 

REF 

3 

LAST 

888 

33, 3455 

6 3475 

1 

BZMF 

VALTCHK 

IF  V > VMAX  BYPASS  UPDATE 

1025 

33,3456 

0 0006 

1 

EXTEND 
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1026 

1027 

REF 

REF 

5 

1 

LAST 

888 

33, 3457 

33.3460 

33 . 3461 

5 1647 
7 1421 
0 00  06 

0 

0 

1 

iUdo 

1029 

REF 

2 

LAST 

888 

33,3462 

11*417 

0 

1030 

REF 

333 

LAST 

888 

33, 3463 

54  154 

0 

1031 

REF 

157 

LAST 

887 

33, 3464 

0 6036 

1 

1032 

33, 3465 

74205 

0 

1033 

33,3466 

53372 

1 

1034 

REF 

13 

LAST 

884 

33, 3467 

03577 

1 

1035 

REF 

1 

33,3470 

03655 

1 

1036 

33,3471 

77776 

1 

1037 

REF 

10 

LAST 

886 

33,3472 

0 3535 

1 

1038 

REF 

19 

LAST 

879 

33,3473 

3 6241 

0 

1039 

REF 

2 

LAST 

886 

33,3474 

0 3517 

1 

1040 

REF 

4 

LAST 

888 

33, 3475 

ENDVDAT 

1041  REF  11  LAST  88  9 33,  3475  0^535  1 VALTCHK 


1042 

REF 

1 

33, 3476 

3 4747 

1 

1043 

REF 

34 

LAST 

8-8  8 

33,-3477 

7 0107 

o 

1044 

REF 

266 

LAST 

888 

33,3500 

10  000 

0 

1045 

REF 

1 

33,3501 

1 3512 

0 

1046 

-REE- 

7__ 

LAST 

84$  8 

33,3502 

4 1467 

1 

1047 

REF 

1 

33,3503 

6 2741 

1 

1048 

33,3504 

0 0006 

1 

1049  REF  6 LAST  885 33, 3505  6 2573  1 


1050 

REF 

56 

LAST 

880 

33,3506 

0 5504 

0 

10  51 

REF 

1_ 

33,3507 

002  57 

1 

1052 

REF 

158 

LAST 

886 

33, 3510 

3 4755 

1 

1053  REF  6 LAST  889  33,3511  55*647-1 


1054 

1055 

REF 

REF 

3 

24 

LAST 

LAST 

874 
87  3 

33. 3512 

33.3513 

3 7717 
0 5072 

1 REAOV 
1 

1056 

REF 

6 

LAST 

885 

E7 , 1652 

1057 

REF 

1 

33,3514 

03601 

0 

1057 

REF 

1 

33,3515 

66067 

jO 

1058 

REF 

7 

LAST 

889 

33, 3516 

l 2573 

0 

1059 

REF 

61 

LAST 

857 

33,3517 

54  130 

1 GNURVST 

1060 

33, 3520 

0 0006 

1 

1061 

REF 

2 

-LAST 

8 86 

33,3521 

3 16  55 

0 

1062 

REF 

62 

LAST 

889 

33,  3522 

50  130 

0 

1063 

REF 

12 

LAST 

886 

33, 3523 

53*571 

1 

SA  2021112-011 
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USER’ S PAGE  NO.  32  E7  S3 


INDEX 

MP 

EXTEND 

VSELECT 
L RWV  Z 

WVIVMAX  - V) 

DV 

TS 

LRVMAX 

MPAC 

WVtl  - V/V MAX) 

STORE  IN  MPAC,  MODE  IS  DP  FROM  ABOVE 

TC 
DM  P 
VSL1 

INTPRET 

VXSC 

VAD 

W (DELTA  VUVBEAMSM)  UP  6-7,  0-5 

STORE 

EXIT 

VIS 
G NU  V 

ADD  WEIGHTED  DELTA  V TO  VELOCITY 

TC 

0UIKFAZ5 

DO  NOT  RE-UPDATE 

CA 

TC 

SIX 

GNURVST 

STORE  NEW  VELOCITY  VECTOR 

= 

VALTCHK 

TC 

QUI K FAZ5 

DO  NOT  REPEAT  ABOVE 

CAF 

MASK 

8EADVBIT 

FLGWRD11 

TEST  READVEL  TO  SEE  IF  VELOCITY  READING 
IS  DESIRED. 

CCS 
TC  F 
CS 

A 

READ  V 
ABVEL 

TES  - READ  VELOCITY 

NO  - SEE  IF  VELOCITY  < 2000  FT/SEC 

AD 

EXTEND 

BZMF 

2 KFT/SEC 
CONT  SERV 

V > 2000  FT/SFC  DO  NOT  READ  VEL 

TC 

ADRES 

UPFL AG 
READ VEL 

V < 2000  FT/SEC  SET  READVEL  AND  READ 

CAF 
TS 

ZERO 

VSELECT 

INITIALIZE  VSELECT 

CAF 

TC 

PR  1032 
NOVAC 

SET  UP  JOB  TO  READ  VELOCITY  BEAMS. 

EBANK= 

2CADR 

HME  AS 
LRV J OB 

TCF 

CONT  SERV 

CONTINUE  WITH  SERVICER 

TS 

EXTEND 
DC  A 

RUF 

GNUP 

STORE  GNUR  (=GNUV)  IN  R1S  OR  VIS 
A = 0 FOR  R,  A = 6 FOR  V 

INDEX 

DXCH 

BUF 

R1S 
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L 

SERVICER 

USER' S PAGE  NO. 

33 

E7  S3 

1 06  A 

33,3524 

0 0006 

1 

EXTEND 

1065 

REF 

3 

LAST 

889 

33, 3525 

3 1657 

1 

DC  A 

GNUR 

+2 

REF 

1 3 

LAST 

ft  ft  q 

33f  35?6 

50  1 30 

0 

INDEX 

BUF 

1067 

REF 

13 

LAST 

889 

33,3527 

53' 573 

0 

DXCH 

R IS 

+ 2 

1068 

33,3530 

0 0006 

1 

EXTEND 

106*3 

R pF 

4 

1 AST 

89  0 

33f  3 531 

3 1661 

1 

DC  A 

GN.UR 

+4 

1070 

REF 

64 

LAST 

890 

33,3532 

50  1 30 

0 

INDEX 

BUF 

1071 

REF 

14 

LAST 

890 

33, 3533 

53' 575 

0 

DXCH 

R1S 

+4 

1 072 

REF 

2 17 

LAST 

873 

33, 3534 

0 0002 

0 

TC 

Q 

1073  REF  -3-  LAS^  823  33,3535  3 5007  0 QUIKFAZ5  CA  EBANK3 


1074 

1075 
ir>7A 

REF 
REF 
R pF 

31 

136 

1 

LAST 

LAST 

887 

886 

33,3536 
33,  3537 
FI, I 446 

56  003 
52  002 

1 

1 

XCH 
DXCH 
FB  ANK  = 

EBANK 

L 

PHSNAME5 

SET  EBANK 
0 TO  A,  A 

3 

TO  L 

1077 

REF 

2 

LAST 

890 

33, 3540 

5 5 1 446 

1 

TS 

PHSN  AME5 

1078 

REF 

32 

LAST 

890 

33,3541 

22  003 

1 

LXCH 

EBANK 

1079 

R PF 

46 

1 AST 

88  7 

F 7 f 1513 

E 8 ANK  = 

D VC T TR 

10  80 

REF 

267 

LAST 

839 

33,3542 

0 0000 

1 

TC 

A 

1081 

REF 

2 

LAST 

166 

33,3543 

4 1667 

0 

HFAIL 

cs 

LRRCTR 

1082 

33,3544 

0 0006 

1 

EXTEND 

1083 

REF 

1__ 

33,  3545 

1 3555 

0 

BZF 

NORLITE 

IF  R = 0,  DO 

NOT  TURN  ON  TRK  FAIL 

1084 

REF 

3 

LAST 

885 

33,3546 

6 1666 

0 

AD 

LRLC  TR 

1085 

REF 

1 

33,3547 

7 7744 

0 

MASK 

NEG3 

1086 

33,3  550 

0 0006 

1 

EXTEND 

IF  L-R  LT  4, 

DO  NOT  TURN  ON  TRK  FAIL 

1087 

33,3551 

1 3553 

c 

BZF 

+ 2 

1088 

REF 

2 

LAST 

890 

33,3552 

1 3555 

0 

TCF 

NORL  ITE 

1089 

REF 

57 

LAST 

889 

33,3553 

0 5504 

0 

TC 

IJPFL  AG 

AND  SET  BIT 

TO  TURN  ON  TRACKER  FAIL  LITE 

1090 

REF 

2 

LAST 

885 

33,3554 

00263 

0 

ADRES 

HFLSHFLG 

1 09  L 

REF 

4 

LAST 

890 

33,3555 

3 1666 

0 

N0RL1 TE 

CA 

LRLC  TR 

1092 

REF 

3 

LAST 

890 

33,3556 

55' 667 

0 

TS 

LRRCTR 

SET  R = L 

1093 

REF 

5 

LAST 

886 

33, 3557 

1 3320 

1 

TCF 

V ME A SCHK 

1094 

RFF 

2 

LAST 

16  6 

33,  3560 

4 

1671 

1 VFAIL 

CS 

LRSCTR 

DELTA  Q LARGE 

1095 

33, 3561 

0 

0006 

1 

EXTEND 

IF  S = 0,  DO  NOT  TURN  ON  TRACKER  FAIL 

1096 

REF 

— 1- 

33,3562 

L 

3572 

0 

BZF 

MOL  I TE 

1097 

REF 

3 

LAST 

83  8 

33,3563 

6 

1670 

1 

AD 

LRMC  TP 

M-S 

1098 

REF 

2 

LAST 

890 

33,3564 

7 

7744 

0 

MASK 

NEG3 

TEST  FOR  M-S  > 3 

1099 

33,3565 

0 

0006 

1 

EXTEND 

IF  M-S  > 3,  THEN  TWO  OR  MORE  OF  THE 

1100 

33,3566 

1 

3570 

1 

8ZF 

+ 2 

LAST  FOUR  V READINGS  WERE  BAD, 

1101 

REF 

2 

LAST 

890 

33, 3567 

1 

3572 

0 

TCF 

NOL I TE 

SO  TURN  ON  VELOCITY  FAIL  LIGHT 

1102 

REF 

58 

LAST 

890 

33,  3570 

0 

5504 

0 

TC 

JPFl AG 

AND  SET  BIT  TO  TURN  ON  TRACKER  FAIL  LITF 

1103 

REF 

2 

LAST 

888 

33,3571 

002  62 

1 

ADRES 

VFLSHFLG 

GAP 
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1104 

1105 

REF 

REF 

4 

3 

LAST 

LAST 

890 

890 

33. 3572 

33. 3573 

3 1670 
5 5' 6 71 

1 NOLITE 
1 

CA 

TS 

LRMCTP 

LRSCTR 

1106 

REF 

7 

LAST 

889 

33, 3574 

1 1 ' 647 

1 

CCS 

(/SELECT 

1107 

REF 

2 

LAST 

88  8 

33, 3575 

1 3475 

0 

TCF 

ENDVDAT 

1108 

REF 

59 

LAST 

890 

33,3576 

0 5504 

0 

TC 

UPFL  AG 

1109 

REF 

2 

LAST 

888 

33,  3 577 

002  50 

0 

ADRES 

V XI  NH 

1110 

REF 

3— 

LAST 

89  1 

33,3600 

1 3475 

0 

TCF 

ENDVDAT 
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USER*  S PAGE  NO.  34  E7  S3 

SET  S = M 


TEST  FOR  Z COMPONENT 

NOT  Z,  DO  NOT  SET  VX  INHIBIT 

Z COMPONENT  - SET  FLAG  TO  SKIP  X 
COMPONENT, AS  ERROR  MAY  BE  DUE  TO  CROSS 
LOBE  LOCK  UP  NOT  DETECTED  ON  X AXIS. 
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L SERVICER  USER'S  PAGE  NO.  35  E7  S3 

P 111 1 ******** ********* *************************************************************************************** 

R 1 1 1 3 LRVJ08  IS  SET  WHEN  THE  LEM  IS  BELOW  15000  FT  DURING  THE  LANDING  PHASE 

R1114  THIS  JOB  INITIALIZES  THE  LANDING  RADAR  READ  ROUTINE  FOP  5 VELOCITY 

R 1 1 1 5 SAMPLES  AND  GOES  TO  SLEEP  WHILE  THE  SAMPLING  IS  DONE-ABOUT  500  MS. 

R 1 1 16  WITH  A GOODEND  RETURN  THE  DATA  IS  STORED  IN  VMEAS  AND  BIT7  OF  LRSTAT 

R1117  IS  SET.  THE  GIMBAL  ANGLES  ARE  READ  ABOUT  MIDWAY  IN  THE  SAMPLING  . 


1118 

REF 

6 

LAST 

460 

4361 

170MS 

EQUALS  ND1 

1119 

REF 

1 

33,3601 

3 43  61 

1 

LRV  JOB 

CA  170MS 

SET  TASK  TO  READ  CDUS  + PIPAS 

1 1 pn 

R FF 

84- 

J AST 

8^0 

33  » 3 60  2 

0 5203 

0 

TC  WAITLIST 

1121 

REF 

3 

LAST 

887 

E4, 1656 

ES ANK=  LPVT  IME 

1122 

REF 

1 

33,3603 

03750 

0 

2CADR  RD3IMS 

ll  PP 

REF 

1 

33,3604 

64064 

1 

1123 

REF 

8 

LAST 

89  1 

33,3605 

1 1 1 647 

1 

CCS  VSELECT 

SEQUENCE  LR  VEL  BEAM  SELECTOR 

1124 

33, 3606 

1 3610 

1 

TC  F + 2 

1125— 

REF 

55 

LAST 

879 

33*3607 

3 4752 

0 

CAF  . TWCL 

IF  ZERO-RESET  TO  TWO 

1126 

33,3610 

6 0000 

1 

DOUBLE 

2 XVSELECT  USED  FOR  V BEAM  INDEX  IN  LR VEL 

1127 

REF 

238 

LAST 

887 

33,3611 

0 4616 

1 

TC  BANKCALL 

GO  INITIALIZE  LR  VEL  READ  ROUTINE 

1128 

REF 

1 

33,3612 

531  07 

1 

CADR  LRV  F L 

1129 

REF 

239 

LAST 

892 

33,3613 

0 4616 

1 

TC  BANKCALL 

PUT  LRVJOB  TO  SLEEP  ABOUT  500  MS 

1130 

REF 

13 

LAST 

617 

33,3614 

17667 

0 

CADR  RADSTALL 

— 1-134 — 

REF 

— 1— 

33,3615 

1 3650 

0 

TCF  VBAD 

1132 

REF 

2 

LAST 

166 

33, 3616 

11*673 

0 

CCS  STILBADV 

IS  DATA  GOOD  JUST  PRESENT? 

1133 

REF 

1 

33,3617 

1 3651 

1 

TCF  VSTILBAD 

JUST  GOOD  - MUST  WAIT  4 SECONDS. 

1134 

33, 3620 

0 0004 

0 

INHINT 

1135 

33,3621 

0 0006 

1 

EXTEND 

GOOD  RETURN-STOW  AWAY  VMEAS 

1136 

REF 

— 8— 

LAST 

53  1 

33,3  622 

3 1102 

0 

DCA  SAMPLSUM 

1137 

REF 

4 

LAST 

887 

33, 3623 

53*651 

0 

DXCH  VMEAS 

113701 

REF 

5 

LAST 

887 

33,3624 

3 4741 

1 

CA  EBANK4 

FOR  DOWNLINK 

113702 

REF 

33 

LAST 

890 

33,3625 

54  003 

0 

TS  EBANK 

113703 

REF 

4 

LAST 

892 

E4, 1656 

EB ANK=  LRVTIME 

11371 

33  f 3626 

0 0006 

l 

FX  T FMD 

11372 

REF 

5 

LAST 

892 

33,3627 

3 1657 

1 

DCA  LRVTIME 

11373 

REF 

2 

LAST 

2 l 5 

33,3630 

53 ' 744 

0 

DXCH  LRVTIMDL 

11374 

33,3631 

0 0006 

1 

EXTEND 

11375 

REF 

4 

LAST 

887 

33,3632 

3 1661 

1 

DCA  LRXCDU 

11376 

REF 

3 

LAST 

216 

33, 3633 

53' 741 

0 

DXCH  LRXCDUDL 

11377 

REF 

— 3— 

LAST 

88  7 

33, 3634 

3 1662 

1 

CA  l RZC DU 

11378 

REF 

3 

LAST 

215 

33, 3635 

55 ' 742 

0 

TS  LRZCDUDL 

113781 

REF 

10 

LAST 

887 

33,  3636 

3 5016 

0 

CA  EBANK7 

113782 

REF 

34 

LAST 

892 

33, 3637 

54  003 

0 

TS  F BAN  K 

113783 

REF 

9 

LAST 

892 

E7, 1647 

EBANK=  VSELECT 

1138 

REF 

35 

LAST 

889 

33,3640 

4 

0107  0 

CS 

FLGWRD11 

SET  BIT  TO 

INDICATE  VELOCITY 

1139 

REF 

2 

LAST 

886 

33, 3641 

7 

4745  1 

MASK 

VFLDABIT 

MEASUREMENT 

MADE. 

Accrum  c n c 

: \l  T C Tf 

1A1  DAI 

3 nc  a nr  Dcnr.DAM  mimtmarv  ry 

na<;a  2d 91  i i 2-.m  i 
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G AP  : 
L 

MOOCnDLC  BXV  1J  lull  KJ 

SERVICER 

USER'S  PAGE 

NO. 

36 

E7  S3 

1140 

REF  36 

LAST 

892 

33,3642 

26  107 

0 

ADS 

FLGWPD11 

1141 

REF  10 

LAST 

892 

33, 3643 

11*647 

1 

ENDLRV 

CCS 

VSELFCT 

UPDATE  VSELECT 

1 1 A? 

33, 3644 

1 3646 

— 1- 

TCF 

+2 

1 i ‘rc 

1143 

REF  56 

LAST 

892 

33,3645 

3 4752 

0 

CA 

TWO 

1144 

REF  11 

LAST 

89  3 

33, 3646 

55*647 

1 

TS 

VSEL  ECT 

1 145 

REF  135 

LAST 

86  8 

33,3647 

1 5155 

1 

TCF 

ENDO  F JOB 

1146 

REF  57 

LAST 

89  3 

33,3650 

3 4752 

0 

VBAD 

CAF 

TWO 

SET  STILBAD  TO  WAIT  4 

SECONDS 

1 147 

Rf  F 3 

LAST 

89  2 

33,3651 

55*673 

0 

VST  I LBAD 

TS 

STILBADV 

1148 

REF  1 

33, 3652 

1 3643 

1 

TCF 

ENDLPV 

R 1 149 

i B unn 

t 

RY  1 RHTA<;K  UlH.FN 

1 FM  15 

RFI nw  25000 

FT 

THIS  JOB 

R 1 1 50 

INITIALIZES  THE  LR 

READ  ROUTINE  FOR  , 

AN 

ALT  MEASUREMENT 

AND  GOES  TO 

R 1 1 51 

SLEEP  WHILE  THE  SAMPLING  IS  DONE-ABOUT 

95  MS. 

WITH  A 

GOODEND  RETURN 

R 1 1 52  THi-ALT  DATA  IS  STORED- I N HMEAS  AND  BIT7  OF  LRSTAT  IS  SET  - 


11521 

34, 3717 

BANK 

34 

11522  R 

1 

34 , 2 000 

SETLOC 

P 12  S TUFF 

11523 

34,3717 

BANK 

11524-  REF  1 COUNT  * $$/SFRV 


1153 

REF 

240 

LAST 

892 

34,3717 

0 4616 

1 

LRH JOB 

TC 

B ANKCALL 

INITIATE  LR  ALT  MEASUREMENT 

1154 

REF 

2 

LAST 

503 

34,  3 720 

530  73 

0 

CADR 

LR  AL  T 

1155 

REF 

2 41 

LAST 

893 

34, 3721 

0 4616 

1 

TC 

BANKCALL 

LRH JOB  TO  SLEEP  ABOUT  95MS 

1156 

REF 

14 

LAST 

892 

34,3722 

17667 

0 

CADR 

R ADSTALL 

1157 

REF 

1 

34, 3723 

1 3746 

0 

TCF 

HBAD 

1158 

REF 

2 

LAST 

166 

34, 3724 

11*672 

1 

CCS 

ST  I L BADH 

IS  DATA  GOOD  JUST  PRESENT? 

1159 

REF 

1 

34, 3725 

1 3756 

1 

TCF 

HSTI LBAD 

JUST  GOOD  - MUST  WAIT  4 SECONDS. 

1160 

34,3726 

0 0004 

0 

INHINT 

1161 

34,3727 

0 0006 

1 

EXTEND 

1162 

REF 

9 

LAST 

89  2 

34,3730 

3 1102 

o 

DC  A 

SAMP  LSUM 

GOOD  RETURN-STORF  AWAY  LRH  OATA 

1 163 

REF 

7 

LAST 

889 

34, 3731 

5 3 ' 6 53 

1 

DXCH 

HME A S 

LRH  DATA  1 .079  FT/BIT 

11631 

34,3732 

0 00  06 

1 

EXTEND 

FOR  DOWNLINK 

11632 

REF 

12 

LAST 

871 

34,3733 

3 1557 

1 

DC  A 

P IPT I ME1 

11633 

REF 

9 

LAST 

617 

34, 3734 

53' 753 

0 

DXCH 

MKT  I ME 

11  63  A 

3Ar  3 736 

0 000/S 

1 

FX  TFN0 

11635 

REF 

3 

LAST 

873 

34, 3736 

3 1157 

0 

DC  A 

CDUT  EMPY 

CDUY.Z  = A I G, AMG 

11636 

REF 

11 

LAST 

617 

34, 3737 

53*456 

0 

DXCH 

A IG 

11637 

REF 

3 

LAST 

873 

34, 3740 

3 1155 

1 

CA 

CDUTFMPX 

C DUX  = AOG 

11638 

REF 

7 

LAST 

617 

34,3741 

55 ' 4 57 

1 

TS 

A OG 

1164 

REF 

37 

LAST 

893 

34,3742 

4 0107 

0 

CS 

FLGWRD11 

SET  BIT  TO  INDICATF  RANGE 

1165 

REF 

2 

LAST 

885 

34, 3743 

7 4750 

0 

MASK 

RNGEDBIT 

MEASUREMENT  MADE. 

1166 

REF 

38 

LAST 

893 

34,3744 

26  107 

0 

ADS 

FLGWRDll 

1167 

REF 

1 36 

LAST 

893 

34,3745 

0 5155 

0 

ENDLRH 

TC 

ENDO  FJOB 

TERMINATE  LRH JOB 
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1168 

REF 

24 

LAST 

83  1 

34, 3746 

3 0101 

1 

HBAD 

CA 

FLAG  WRD5 

1169 

REF 

2 

LAST 

582 

34,3747 

7 4742 

0 

MASK 

RNGSCBIT 

I S 

BAD  RETURN  DUE  TO  SCALE  CHANGE? 

~i  a t 7<%n 

n no  da 

EXTEND 

11(0 

1171 

REF 

2 

LAST 

89  3 

3*t  t 9 ry  v 

34,3751 

u uu  uo 

1 3755 

1 

BZF 

HSTI LEAD  -1 

NO 

RESET 

HST ILBAD 

1172 

REF 

85 

LAST 

888 

34,3752 

0 5516 

0 

TC 

DOW  N FLAG 

YES 

RESET 

SCALE  CHANGE  BIT  AND  IGNORE 

1 1 7-1 

REF 

LAST 
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34*  3 753 

00120 

4. 

ADRES 

RNG SCFLG 

11(3 

1174 

REF 



137 

LAST 

893 

34,3754 

0 5155 

0 

TC 

ENDOFJOB 

1175 

REF 

58 

LAST 

893 

34, 3755 

3 4752 

0 

CAF 

TWO 

SET 

STILBAD 

TO  WAIT  4 SECONDS 

1176 

REF 

3 

LAST 

89  3 

34, 3756 
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1 

HST ILBAD 

TS 

STILBADH 

1177 

REF 
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1 AST 

894 

34,3757 

0 5155 

0 

TC 

ENDOFJOB 

11771 

32,3750 

BANK 

32 

11  772 

REF 

2 

LAST 

864 

32, 2000 

SETLOC 

SERV2 

11773 

32,3750 

BANK 
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1183 

REF 
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3 0025 

0 
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REF 
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LAST 
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1186 

REF 

14 

LAST 

87  1 

32*  3 754 

3 0033 

1 

OCA 

C DUX 
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REF 
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REF 

4 

LAST 
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TS 
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TS 
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5 

LAST 
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33,3713 
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0 

TS 
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3714 
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0 

TS 

LRRCTR. 

1237 

REF 
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LAST 
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33, 3715 
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1 

TS 
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1238 

REF 

1 

33,3716 
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0 

TC 

SETPOS 

CONTINUE  WITH  COMPUTATIONS 
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REF 
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LAST 
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33,3717 
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CA 

LRADRET1 

1240 

REF 
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1 

TC 
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REF 
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REF 
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0 
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TS 
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REF 
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LAST 
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REF 
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LAST 
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1 

CA 
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CONVERT  UNITY! ANTENNA) 
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MB 
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REF 
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1 
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1257 
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2 

LAST 
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0 

STOVL 
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1258 

REF 
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LAST 
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33, 3740 
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0 
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TO 

NB 

1259 

33,3741 
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1 
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A— 
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o 
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1261 

REF 
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0 
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1 
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REF 
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REF 
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REF 
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1267 

REF 
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REF 
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1 
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0001 
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BANK  21 

0002 

REF 

3 LAST 
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SETLOC  RIO 

21, 2 340 

BANK 

0003 

0004 

REF 

32  LAST 

886 

E7,  1534 

EBANK=  UNIT/P/ 

0005  RTF  2 LAST  5 7 TO  57: 6 6*  COUNT  * $$/R10 


0006 

REF 

2 

LAST 

829 

21, 2340 

23' 712 

1 

LANDISP 

LXCH 

PIPCTR1 

UPDATE  TBASF2  AND  PIPCTR  SIMULTANEOUSLY. 

RFF 

13 

1 AST 

86  0 

21, 2341 

4 0025 

1 

CS 

T I ME  1 

0008 

REF 

4 

LAST 
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21,2342 

53*056 

1 

DXCH 

TBASE2 

RE  F 
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L AS  T 

? 1 T ? 343 

4 0103 

1 

CS 

FLAG  WRD7 
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0011 

REF 
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LAST 
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21,2345 
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A 
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RFF 
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1 3237 

0 

TCF 

D I S P P SET 

NO. 

0013 

REF 
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LAST 
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21, 2347 
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0 

CA 

I MOD ES33 

BIT  7 = 0 (DO  ALTRATE),  =1  IDO  ALT.) 
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REF 

35 

LAST 
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21,2350 

7 4745 

1 
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B IT7 
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RFF 
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21,  235  1 
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0 

CCS 

A 
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RFF 

i 

21, 2352 

1 2424 

0 

TCF 

A L TOUT 

0017 

REF 

i 

21,  2353 

0 2510 

1 

ALTROUT 

TC 

DI  SI  NDAT 

CHECK  MOOF  SEIECT  SWITCH  AND  DIDFLG. 

00  IP 

RFF 
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\ AST 
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1 

CS 

I MOD  ES33 
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REF 
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LAST 

897 
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1 

MASK 
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REF 
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LAST 
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21,2356 
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1 
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RFF 
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1 

EXTEND 
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REF 
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21,2361 
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1 

WOR 
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ALTRATE  (BIT2  = l),  ALTITUDE  (BIT2  = 0). 

0024 

REF 
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REF 
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REF 
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REF 
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40 

LAST 

905 

21,3200 

50  065 

1 

INDEX 

ITEMP5 

0425 

REF 

1 1 

LAST 

90  5 

21, 3201 

6 1674 

0 

AD 

LATVMETR 

0426 

21,3202 

4 0000 

0 

COM 

0427 

REF 

7 

LAST 

905 

21,3203 

1 3210 

0 

TCF 

ZEROLSTY 

0428 

REF 

41 

LAST 

905 

21, 3204 

50  065 

1 

LVMINLM 

INDEX 

I TEMP5 

0429 

REF 

12 

LAST 

905 

21, 3205 

4 1674 

1 

CS 

LATVMETR 

0430 

REF 

42 

LAST 

90  5 

21, 3206 

50  065 

1 

INDEX 

ITEMP5 

0431 

REF 

18 

LAST 

905 

21, 3207 

6 1676 

1 

AD 

LATVEL 

0432 

REF 

43 

LAST 

905 

21,3210 

50  065 

1 

ZEROLSTY 

INDEX 

ITEMP5 

0433 

REF 

4 

LAST 

904 

21, 321 1 

56  072 

1 

XCH 

RUPTREG3 

0434 

REF 

L6  5 

LAST 

899 

21, 3212 

3 4755 

1 

CAF 

ZERO 

0435 

REF 

44 

LAST 

905 

21,3213 

50  065 

1 

INOEX 

I TEMP5 

0436 

REF 

5 

LAST 

904 

21, 3214 

55' 700 

0 

TS 

TRAK  LATV 

0437 

REF 

45 

LAST 

905 

21,3215 

50  065 

1 

INDEX 

I TEMP5 

0438 

REF 

5 

LAST 

905 

21,3216 

3 0072 

1 

CA 

RUPTPEG3 

0439 

REF 

25 

LAST 

873 

21,3217 

6 4754 

0 

AD 

NEGO 
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LANDING  ANALOG  DISPLAYS  USER'S  PAGE  NO.  10 


0440 

0441 

REF 

REF 

46 

2 

LAST 

LAST 

905 

547 

21, 3220 
21,  3221 

50  065 
54  053 
c;n  (IAS 

1 

0 

1 

INDEX 

TS 

INDEX 

I TEMP5 
CDUTCMD 
I TEMP5 

0442 

0443 

REF 

REF 

47 

6 

L H O 1 

LAST 

905 

21, 3223 

3 0072 

1 

CA 

RUPTREG3 

0444 

REF 

48 

LAST 

906 

21, 3224 

50  065 

1 

INDEX 

I TEMP5 

LAST 

9 0^ 

21 , ^ ??5 

2 7’ 6 74 

1 

AOS 

LATVMETR 

0446 

REF 

49 

LAST 

906 

21,3226 

10  065 

0 

CCS 

ITEMP5 

FIRST 

MONITOR  FORWARD  THEN  LATERAL  VEL. 

0447 

REF 

1 

21, 3227 

1 3004 

I 

TCF 

V MON  ITOP 

0448 

REF 

1 

21, 3230 

3 5020 

0 

CAF 

B I TS  FT 

DRIVE 

THE  X-POINTEP  DISPLAY. 

0449 

21,3231 

0 0006 

l 

EXTEND 

04  5n 

R f F 

L5 

1 AST 

89  8 

21,3232 

05  014 

1 

WOR 

CHAN  14 

0451 

REF 

5 

LAST 

90  1 

21,3233 

0 1712 

1 

TC 

L ADOSAVF 

GO  TO 

ALTROUT  +1  OR  TO  ALTOUT  +1 

0452 

REF 

166 

LAST 

905 

21,3234 

3 4755 

1 ZERODATA  CAE 

ZERO 

ZERO 

ALTSAVE  AND  ALTSAVE  +1  - - - 

04  ^ ^ 

R PF 

1 ^7 

LAST 

89  0 

21,3235 

54  001 

1 

TS 

L 

NO  NEGATIVE  ALTITUDES  ALLOWED. 

0454 

REF 

1 

21,3236 

1 2454 

1 

TCF 

ZDAT A2 

R0455 

* I*#**  ******  ***********  ******  ***** 

*** 

0456 

REF 

28 

LAST 

LAST 

90  1 
QQ  1 

21, 3237 

21, 0240 

4 0074 
7 47  5? 

0 

1 

DISPRSET 

cs 

MARK 

FLAGWPDO 
R 1 0 F 1 BIT 

ARE  WE  IN  DESCENT  TRAJECTORY? 

045  8 

21, 3241 

0 0006 

1 

EXTEND 

0459 

REF 

1 

21,3242 

1 3253 

1 

BZF 

ABORTON 

NO. 

04  An 

REF 

3 i 

1 AST 

900 

2 1 , 3243 

3 4744 

1 

CAF 

BITS 

YES. 

0461 

REF 

38 

LAST 

900 

21, 3244 

7 1303 

1 

MASK 

I MOD  ES  33 

CHECK  IF  INERTIAL  DATA  JUST  DISPLAYED. 

0462 

REF 

274 

LAST 

90  2 

21,3245 

10  000 

0 

CCS 

A 

04  A 3 

REF 

47 

LAST 

899 

21, 3246 

3 4752 

0 

CAF 

BIT2 

YES.  DISABLE  PR  ERROR  COUNTER 

0464 

REF 

32 

LAST 

906 

21,3247 

6 4744 

1 

AD 

B I T 8 

NO.  REMOVE  DISPLAY  INERTIAL  DATA 

0465 

21, 3250 

4 0000 

0 

COM 

0466 

21, 3251 

0 0006 

1 

FXTEND 

0467 

REF 

53 

LAST 

899 

21,3252 

03  012 

1 

WAND 

CHAN  12 

0468 

REF 

1 

21, 3253 

4 3262 

0 

ABORTON 

CS 

B ITS  8/7 

RESET  INERTIAL  DATA,  INTERLEAVE  FLAGS. 

0469 

REF 

- 39 

LAST 

906 

21 ,3254 

7 1303 

1 

MASK 

I MOD  ES33 

0470 

REF 

40 

LAST 

906 

21,3255 

5 5 ' 303 

l 

TS 

I MOD  ES33 

0471 

REF 

4 

LAST 

899 

21, 3256 

4 4736 

0 

CS 

DIDF  LB I T 

0472 

REF 

26 

LAST 

899 

21, 3257 

7 0075 

1 

MASK 

FLAG  WRD1 

0473 

REF 

27 

LAST 

906 

21,3260 

54  075 

1 

TS 

FL  AGWPD1 

RESET  DIOFLAG. 

0474 

REF 

63 

LAST 

900 

21, 3261 

1 5261 

0 

TCF 

T ASKOVER 

R 0475 

if.  ±t  A*#*#  *£$$$&  * &$#$$$*  A***##***#**  * *******************  * **  * A***  if  if  $****❖ 

0476 

21,3262 

00300 

1 

BITS8/7 

OCT 

00300 

INERTIAL  DATA  AND  INTERLEAVE  FLAGS. 

0477  REF  2 LAST  547  5020  BITSET  = PRI06 

R0478  **♦***#***#***♦*$**:£  $$  $ # * * * * * * $ $ * 4:*  aje  <c  $ £ $ * 3*c  # * £ £ $:  3^  sjt  # « 
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L F INOCDUW  - GUI  CAP  INTERFACE  USER'S  PAGE  NO. 

ROOO I PROGRAM  NAME:  F INOCDUW 

R0002  MGO  NUMBER:  1 68  07  1 5 

R0003  MOD  AUTHOR:  KLUMPP 

R0004  OBJECTS  OF  MOD:  1. 

R0005  2. 

ROOO  6 
R0007 
R0008 
-ROOD  9 

R0010  3. 

R0011 
R 0 0 1 2 
R0013 

R0014  FUNCTIONAL  DESCRIPTION: 

R0015  FINDCDUW  PROVIDES  THE  INTERFACES  BETWEEN  THE  VARIOUS  POWERED  FLITE  GUIDANCE  PROGRAMS 
R00I7  ANC  TEE  DIGITAL  AUTOPILOT-.  THF  INPUTS  TO  FINDCDUW  ARE  THE  THRUST  COMMAND  VECTOR 

R0019  ANC  TEE  WINDOW  COMMAND  VECTOR,  AND  THE  OUTPUTS  ARE  THE  GIMBAL  ANGLE 

R0020  INCREMENTS,  THE  COMMANDED  ATTITUDE  ANGLE  RATES,  AND  THE  COMMANDED 
R 002 1 ATT ITUDE  LAG  ANGLES  (WHICH  ACCOUNT  FOR  THE  ANGLES  BY  WHICH  THE  BGDY  WILL 
R0022  LAG  BEHIND  A RAMP  COMMAND  IN  ATTITUDE  ANGLE  DUE  TO  THE  FINITF  ANGULAR 
R0023  ACCELERATIONS  AVAILABLE). 


R0024  FINDCCUW  ALINES  TEE  ESTIMATED  THRUST  VECTOR  FROM  THE  THRUST  DIRECTION 

R0025  FILTER  WITH  THE  THRUST  COMMAND  VECTOR,  AND,  WHEN  XOVINHIB  SET, 

R0026  ALINE-S  THE  *Z  HALF  OF  THE  LM-  ZX-PLANE  WITH  THE  WINDOW  COMMAND  VECTOR. 


TO  SUPPLY  COMMANDED  GIMBAL  ANGLES  FOR  NOUN  22. 
TO  MAINTAIN  CORRECT  AND  CURRENT  THRUST 
DIRECTION  DATA  IN  ALL  MODES.  THIS  IS  DONE  BY 
FETCHING  FOR  THF  THRUST  DIRECTION  FILTER  THE 
CDUD'S  IN  PNGCS-AUTO,  THE  CDU'S  IN  ALL  OTHER 
MODES. 

TO  SUBSTITUTE  A STOPRATE  FOR  THE  NORMAL 
AUTOPILOT  COMMANDS  WHENEVER 

1)  NOT  IN  PNGCS-AUTO,  OR 

2)  ENGINE  IS  OFF. 


GAP: 

L 

P0027 

R0028 

R0029 


R 00 3-0 
R0031 
R0032 

R0033 

R0034 

R0035 

RG036 

R0037 

R0038 

R0039 

R004Q 

R0042 

R0043 

R0044 

R0045 

R0046 
R0047 
R0048 
R0049 
R0050 
R0052 
R0053 
R0054 
R0055 
R0056 
R0057 
R0058 
R 00  59 
R 0060 
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SPECIFICATIONS: 

INITIALIZATION:  A SINGLE  INTERPRETIVE  CALL  TO  INITCDUW  IS  REQUIRED 
BEFORE  EACH  GUIDED  MANEUVER  USING  FINQCDUW. 

CALL: INTERPRET  IVF  CALL  TO  FINDCDUW  WITH  THE  THRUST  COMMAND 

VECTOR  IN  MP AC.  INTERPRETIVE  CALL  TO  FINDCDUW  -2  WITH 
THE  THRUST  COMMAND  VECTOR  IN  UNFC/2  AND  NOT  IN  MPAC. 


RETURNS:  NORMAL  INTERPRETIVE  IN  ALL  CASES 

-L-. — NORMALLY  ALL  AUTOPILOT  CMOS  ARE  ISSUED. 

2.  IF  NOT  PNGCS  AUTO,  DO  STOPRATE  AND  RETURN 
WITHOUT  ISSUING  AUTOPILOT  CMOS. 

3.  IF  ENGINE  OFF,  DO  STOPRATE  AND  RETURN  WITHOUT 
ISSUING  AUTOPILOT  CMOS. 

ALARMS:  00401  IF  INPUTS  DETERMINE  AN  ATTITUDE  IN  GIMBAL  LOCK. 

FINDCDUW  DRIVES  CDUXD  AND  CDUYD  TO  THE  ROD  VALUES, 
BUT  DRIVES  CDUZD  ONLY  TO  THE  GIMBAL  LOCK  CONF. 
00402  IF  UNFC/2  OR  UNWC/2  PRODUCE  OVERFLOW  WHEN 

UNITIZED  USING  NORMUNIT.  FINDCDUW  ISSUES 
STOPRATE  AS  ONLY  INPUT  TO  AUTOPILOT. 

INPUTS:  — UNFG/-2-  THRUST  COMMAND  VECTOR,  NEED  NOT  BE  SEMI-UNIT. 

UNWC/2  WINDOW  COMMAND  VECTOR,  NEED  NOT  BE  SEMI-UNIT. 
XOVINHIB  FLAG  DENOTING  X AXIS  OVERRIDE  INHIBITED. 

C SMDOCKO  FLAG  DENOTING  CSM  DOCKED. 

STEERSW  FLAG  DENOTING  INSUFF  THRUST  FOR  THRUST  DIR  FLTR . 

OUTPUTS:  - DELCDUX,Y,Z 

0 MEGA  PD , + 1 , +2 
DELPEROR, +1 ,+2 
C PH  I , + 1 , +2  FOR  NOUN 2 2 

DEBRIS:  FINDCDUW  DESTROYS  SINCDUX,Y,Z  AND  COSCDUX,Y,Z  BY 

WRITING  INTO  THESE  LOCATIONS  THE  SINES  AND  COSINES 
OF  THE  CDUD'S  IN  PNGCS-AUTO,  OF  THE  CDU'S  OTHERWISE. 
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L 

FINDCCUW  - GUI  DA P 

I NT  ERF  ACE 

USER'S  PAGF  NO. 

3 

FO  S3 

P0061 

INITIALIZATION  FOR 

FINOCDUW 

30, 3055 

BANK 

30 

0062 

0063 

REF 

1 

30, 2000 

SETLOC 

F C 0 U W 

0064 

30, 3055 

BANK 

0065 

REF 

2 LAST  151 

E6, 1 644 

EBANK= 

ECDUW 

0066  REF  1 COUNT*  $3>/FCDlJW 


0067 
006  R 

REF 

_11 

LAST 

896 

30.3055 

30. 3056 

77775 

06422 

1 

0 

INI TCDUW 

VLOAD 

UNI  TX 

0069 

0070 
9971 

REF 

REF 

5 

9 

LAST 

LAST 

15  1 

853 

30,3057 

30.3060 

30.3061 

03266 

03260 

77616 

0 

0 

0 

STORE 

STORF 

RVQ 

UNFV/2 

UNWC/2 

R0072 

FINDCCUW 

PRELIMINARIES 

0073 

0074 
nn  76 

REF 

18 

LAST 

853 

30. 3062 

30.3063 
30,3  064 

77775 

03252 

40200 

1 

1 

1 

F INDCDUW 

VLOAD 

BOV 

JNFC  n 
SETPD 

F INDCDUW  -2:  ENTRY  WHEN  UNFC/2 
INPUT  VECTORS  NEED  NOT  BE  SEMI- 
F INDCDUW:  ENTRY  WHEN  UNFC/2  IN 

PRF-STORD 
-UNIT 
MP  AC 

0076 

0077 
0978 

REF 

5 

LAST 

85  1 

30. 3065 

30.3066 
3d,  3 06  7 

61064 

00023 

77420 

1 

0 

1 

STQ 

F I NDCDUW 
22 

EXIT 

INTERPRETER  NOW  INITIALIZED 

LOGS  0 THRU  21  FOR  DIRECTION  COSINE  MAT 

0079 

REF 

2 

LAST 

151 

30,3070 

03245 

1 

QCDUWUSR 

SAVE  RETURN  ADDRESS 

R0080  MORE  HAUSKEEPING 


0081 

0082 

REF 

REF 

1 

37 

LAST 

902 

30.3071 

30.3072 

3 3732 
56 _ 003 

1 

1 

CA 

XCH 

ECDUWL 

EBANK 

SET  EBANK 

0083 

REF 

2 

LAST 

15  1 

30, 3073 

5 5 ' 6 44 

1 

TS 

ECDUWUSR 

SAVE  USER'S  EBANK 

O0R4- 

R FF 

8 8 

L £<;  t 

86  4- 

80t  8 074 

8 0 1 1 i 

o 

CA 

o apr  nm  s 

0085 

REF 

6 

LAST 

760 

30, 3075 

7 4737 

l 

MASK 

CSMDOCKD 

CSMDOCKD  MUST  NOT  BE  BIT15 

0086 

REF 

275 

LAST 

906 

30,3076 

10  000 

0 

CCS 

A 

0087 

REF 

101 

LAST 

904 

30,  3077 

3 4753 

1 

CA 

DNE 

INDEX  IF  CSM  DOCKED 

0088 

REF 

2 

LAST 

15  1 

30, 3100 

55*  646 

0 

TS 

NDXCDUW 

0089 

R E F 

1 

80, 8101 

8 4748 

o 

CA 

XOVINHIB 

XGVINHIB  MUST  NOT  BR  BIT15 

0090 

REF 

2 

LAST 

15  1 

30, 3102 

55' 650 

1 

TS 

FLPAUTNO 

SET  TO  POS-NON-ZERO  FLAG  PNGCS  AUTO  NOT 

0091 

REF 

34 

LAST 

9 0 9 

30, 3103 

7 0111 

1 

MASK 

DAPB  OOLS 

0092 

REF 

2 

LAST 

15  1 

30, 3104 

5 5 • 647 

1 

TS 

FLAG  OODW 

FLAGOODW  = ANY  PNZ  NUMBER  IF  XOV  INHIBTD 
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P0093  FETCH  BASIC  DATA 


_ _ _ , 

'KQ1  31Q5 

o 0004 

o 

INHINT 

RELINT  AT  PAUTNO  ( TC  INTPRET) 

0095 

REF 

15 

LAST 

894 

30,  3 106 

3 0032 

0 

CA 

C DU  X 

FETCH  CDU X , CDU Y ,C DUZ  IN  ALL  CASES,  BUT 

8 7^ 

30t  ^ 1 07 

54  77 2 

1 

TS 

C DUS PDTX 

REPLACF  eELOW  IF  PNGCS  AUTO 

0097 

REF 

6 

LAST 

87  1 

30,3110 

3 0033 

1 

CA 

CDUY 

0098 

REF 

2 

LAST 

873 

30, 311 1 

54  766 

1 

TS 

C DU  S POTY 

9 

j_  /\$  t 

ft  q 4 

30f  3 ) 1 2 

3 00  34 

0 

CA 

CDUZ 

0100 

REF 

2 

LAST 

873 

30, 3113 

54  770 

0 

TS 

CDUSPOTZ 

LAST 

g q g 

30  r 3 1 14 

3 4742 

1 

CA 

B I T1  0 

PNGCS  CONTROL  BIT 

0102 

30,3115 

0 0006 

1 

EXTEND 

0103 

REF 

9 

LAST 

899 

30,3116 

02  030 

0 

RAND 

CHAN  30 

n i 04 

R ELF 

2 76 

LAST 

909 

30 , 3 11 7 

10  000 

0 

CCS 

A 

0105 

REF 

i 

30, 3120 

1 3135 

1 

TCF 

PAUTNO 

NOT  PNGCS  (BITS  INVERTED) 

REF 

64 

LAST 

7 ft  q 

30 1 3 121 

3 4735 

1 

CA 

R I T 1 4 

AUTO  MODE  BIT 

0107 

30, 3122 

0 0006 

1 

EXTEND 

0108 

REF 

6 

LAST 

820 

30, 3123 

02  031 

1 

RAND 

CHAN  31 

0109 

REF 

2 77 

LAST 

910 

30, 3 124 

10  000 

0 

CCS 

A 

0110 

REF 

2 

LAST 

910 

30,3125 

1 3135 

1 

TCF 

PAUTNO 

NOT  AUTO  (BITS  INVERTED) 

0111 

REF 

3 

LAST 

QQ  Q 

30  T 3 1 25 

55*550 

1 

TS 

F \ ? & UTNn 

RFSET  FLAG  PNGCS  AUTO  NOT 

0112 

REF 

12 

LAST 

53  1 

30,  3 127 

3 1633 

0 

CA 

C DUX  D 

PNGCS  AUTO:  FETCH  CDUXD ,CDUYD , CDUZD 

Oil** 

REF 

3 

LAST 

Q 1 O 

30  t 3 130 

54  7 72 

1 

TS 

f D | S PPTX 

01  14 

REF 

2 

LAST 

382 

30,3131 

3 1634 

1 

CA 

CDUY  D 

0115 

REF 

3 

LAST 

910 

30, 3132 

54  766 

1 

TS 

C DUS  POTY 

0}  1* 

R EP 

3 

1 AST 

53  0 

30,3133 

3 1635 

o 

CA 

" D U 7 D 

0117 

REF 

3 

LAST 

910 

30, 3134 

54  770 

0 

TS 

CDUSPOTZ 
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P0118 

F ET( 

;h  INPUTS 

159  LAST 

9 LAST 
1 

896 

815 

30,3135 
30,3  136 
30,3137 
30,3 140 

0 6036 
77634 
21700 
24001 

1 PAUTNQ 
0 
0 
0 

TC 

I NTP RET 

ENTERING  THRUST  CMD  STILL  IN  MPAC 

0119 

0120 
0121 
0 1 7 7 

REF 
R FF 

RTB 

STOVL 

NORM  UN  IT 
UNX/2 

SEMI-UNIT  THRUST  CMD  AS  INITIAL  UNX/2 

0123 

REF 

10 

LAST 

909 

30,3141 

03260 

0 

UNWC.  /2 

0124 

30,  3 142 

47034 

0 

RTB 

RTB 

0125 

REF 

10 

LAST 

9 11 

30, 3143 

21700 

0 

NORM  UN  IT 

0126 

REF 

4 

LAST 

887 

30,3144 

47521 

1 

QUICTRIG 

ALWAYS  RQD  TO  OBTAIN  TRIGS  OF  CDUD'S 

0127 

REF 

1 

30, 3145 

24015 

0 

STOVL 

JNZ/  2 

SEMI-UNIT  WINDOW  CMD  AS  INITIAL  UNZ/2 

012ft 

RFF 

8 

1 £ST 

83  3 

30, 3 146 

00325 

0 

D EL  V 

0129 

30,3147 

53404 

1 

BO  VB 

UNIT 

0130 

RFF 

i 

30, 3150 

61721 

1 

NOATTCNT 

AT  LEAST  ONE  FNTERING  CMD  VCT  ZERO 

0 L31 

30,3151 

45000 

0 

BOV 

CALL 

0132 

REF 

i 

30,3152 

61166 

1 

AFTRFLTR 

IF  UNIT  DELV  OVERFLOWS,  SKIP  FILTER 

0133 

REF 

6 

LAST 

896 

30, 3153 

47575 

0 

« SMN  B* 

YIELDS  UN  I T ( DEL V ) IN  VEH  COORDS  FOR  FLTR 

R0134 

THRLST  1 

DIRECTION  FILTFR 

0135  30,3154  77776  1 EXIT 


0136 

REF 

1 

30, 3155 

3 1667 

1 

CA 

UNF  V Y/2 

FOR  RESTARTS,  UNFV/2  ALWAYS  INTACT,  MPAC 

0137 

REF 

3 34 

LAST 

889 

30,3156 

22  157 

1 

LXCH 

MPAC 

+ 3 

RENEWED  AFTER  RETURN  FROM  CALLER, 

0138 

REF 

1 

30,3157 

0 3454 

1 

TC 

FLTR  SUB 

TWO  FILTER  UPDATES  MAY  BE  DONF. 

0139 

REF 

2 

LAST 

91  1 

30, 3160 

55' 667 

0 

TS 

UNF  V Y/2 

UNFV/2  NEED  NOT  BE  EXACTLY  SEMI-UNIT. 

0140 

REF 

1 

30, 3161 

3 1671 

0 

CA 

UNFVZ/2 

0141 

REF 

335 

LAST 

911 

30, 3162 

22  161 

1 

LXCH 

MPAC 

+ 5 

0142 

REF 

2 

LAST 

911 

30, 3163 

0 34  54 

1 

TC 

FLTR  SUB 

0143 

REF 

2 

LAST 

91  1 

30,3164 

55*671 

1 

TS 

UNF V Z/2 

0144  REF  160  LAST  911  30,3165  0 6036  l TC  INTPRET  COMPLETES  FILTER 
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L FINDCDUW  - GUI  DA  P INTERFACE  USER'S  PAGE  NO. 


P0145 

FIND 

A 

SUITABLE  WINDOW  POINTING  VECTOR 

AFTR  FI  TR 

SLOAD 

B H I Z 

IF  XOV  NOT  INHIBITED,  GO  FETCH  ZNB 

0 1 46 
0147 

REF 

3 

LAST 

909 

30, 3167 

032  50 

0 

F LAGOODW 

0148 

REF 

1 

30,3170 

61174 

1 

FETCHZNB 

■*n  T 3171 

451  75 

o 

VLQAD 

CALL 

0150 

REF 

2 

LAST 

91  1 

30, 3 172 

00015 

0 

UNZ/2 

0151 

REF 

1 

30, 3173 

61474 

1 

UNWC TEST 

0152 

30,3 174 

77775 

1 

FETCHZNB 

VLOAD 

0153 

REF 

1 

30,3175 

02162 

0 

ZNBP  IP 

01^4 

REF 

3 

| AST 

91  2 

30,3176 

34015 

l 

STC  ALL 

UNZ/2 

0155 

REF 

2 

LAST 

91  2 

30,3177 

614  74 

1 

UNWC TEST 

•30.3  ?n  o 

575  75 

1 

VLnAD 

VCOMP 

Z AND  -X  CAN'T  BOTH  PARALLEL  UNFC/2 

0157 

REF 

10 

LAST 

885 

30, 3201 

02146 

0 

XNBP IP 

0158 

REF 

4 

LAST 

912 

30,3202 

00015 

0 

STORE 

UNZ/2 

R0159 

COMPUTE 

THE  REQUIRED 

DIRECTION 

COSINE  MATRIX 

3 0 » 3 20  3 

473  75 

0 

DC  M C L 

VLHAn 

VXV 

0161 

REF 

5 

LAST 

912 

30, 3204 

00015 

0 

UNZ/2 

0162 

REF 

2 

LAST 

91  1 

30, 3205 

00001 

0 

UNX/2 

0163 

3 0 1 3 206 

41456 

o 

UN  I T 

PUSH 

UNY/2  FIRST  ITFR4TI0N 

0164 

30, 3207 

76435 

1 

VXV 

VSL1 

0165 

REF 

3 

LAST 

912 

30,3210 

00001 

0 

UNX/2 

0166 

REF 

6 

LAST 

912 

30»  321 1 

00015 

0 

STORE 

UNZ/  2 

-UNZ/2  FIRST  ITERATION 

0167 

30,3212 

63361 

0 

VXSC 

PDVL 

EXCHANGE  -UNFVZ/2  UNZ/2  FOR  UNY/2 

0168 

REF 

3 

LAST 

91  1 

30,3213 

03272 

0 

UNFVZ/2 

MUST  BE  SMALL 

0169 

30, 3214 

51361 

1 

vx  SC 

B VSU 

YIGLOS  -UNFV  Y/2  UNY/2-UNFVZ/2  UNZ/2 

0170 

REF 

3 

LAST 

911 

30,3215 

032  70 

1 

UNFV  Y/2 

MUST  BE  SMALL 

0171 

30, 3216 

53372 

1 

VS  L 1 

VAD 

0172 

REF 

4 

LAST 

9 1 2 

30,3217 

00001 

0 

UNX/2 

0173 

30,3220 

77656 

1 

UNIT 

TOTALLY  ELIMINATES  THRUST  POINTING  FRROR 

0174 

REF 

5 

LAST 

912 

30,3221 

00001 

0 

STORE 

UNX/2 

UNX/2 

0175 

30, 3222 

76435 

1 

VXV 

V SL1 

0176 

REF 

7 

LAST 

912 

30, 3223 

00015 

0 

UNZ/2 

-UNZ/2  WAS  STORED  HERE  REMEMBER 

0177 

REF 

1 

30,3224 

00007 

0 

STORE 

UNY/2 

UNY/2 

0178 

30, 3225 

47276 

1 

vr  DM  P 

VXV 

0179 

REF 

6 

LAST 

912 

30,3226 

00001 

0 

UNX/2 

0180 

30,3227 

77772 

0 

VS  L 1 

0181 

REF- 

--8 

LAST 

ai  2 

30, 3230 

00015 

0 

STORE 

UNZ/2 

l mii2 

GAP : 

L 

P0182 

0183 

0184 

0185 

R 01  86 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202- 

0203 

0204 

0205 

0206 

0207 

02  08 

0209 

0210- 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 
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COMPUTE  THE  REQUIRED  GIMBAL  ANGLES 


REF 

1 

30 , 3 23  L 
30,3232 

77624 

61504 

-4— 

1 

CALL 

NB2CDUSP 

30, 3233 

77776 

1 

EXIT 

LIMIT  THE  MIDDLE  GIMBAL  ANGLE 

£,  COMPUTE 

THE  UNLIMITED  GIMBAL  ANGLE  CHGS 

DPP 

QIJ 

30,  3 234 

3 01  56 

_ o 

CA 

MPAC 

+ 2 

Ktr 

J JO 

L HO  1 

REF 

138 

LAST 

906 

30,  3235 

54  001 

1 

TS 

L 

REF 

1 

30,3236 

3 3744 

0 

CA 

CDUZDLIM 

REF 

30, 323  L- 

0 3700 

CL- 

TC 

LI  MI TSUB 

REF 



337 

LAST 

913 

30,  3240 

56  156 

0 

XCH 

MPAC 

+ 2 

30,3241 

0 0006 

1 

EXTEND 

REF 

338 

LAST 

Q 1 3 

30,3242 

20  156 

1 

MSU 

MPAC 

+2 

30,3243 

0 0006 

1 

EXTFND 

30,3244 

1 3246 

0 

BZF 

+2 

REF 

30, 3245 

1 3727 

1 

TC  F 

ALAR  MMGA 

30,3246 

0 0004 

0 

MGARET 

INHINT 

30, 3247 

22  007 

0 

ZL 

REF 

61 

LAST 

896 

30, 3250 

3 4752 

0 

CA 

TWO 

REF 

4 

LAST 

1 14 

30,3251 

54  142 

JL- 

DELGMBLP 

TS 

TEM2 

REF 

139 

LAST 

913 

30,3252 

3 0001 

0 

CA 

L 

30, 3253 

0 0006 

_1 

EXTEND 

30,3254 

7 0000 

0 

SQUARE 

REF 

5 

LAST 

429 

30, 3255 

6 4350 

0 

AD 

H 1 5 

30,3256 

0 0006 

_1 

EXTEND 

30,3257 

6 3262 

1 

BZMF 

+ 3 

REF 

167 

LAST 

906 

30, 3260 

3 4755 

1 

CA 

ZERO 

REF 

A_ 

LAST 

912 

30,3261 

55 '647 

_J 

TS 

FLAGOODW 

REF 

5 

LAST 

913 

30, 3262 

50  142 

0 

INDEX 

TEM? 

REF 

339 

LAST 

9 13 

30, 3263 

3 0154 

_] 

CA 

MPAC 

REF 

6 

LAST 

91  3 

30,3264 

5 0 142 

0 

INDEX 

TEM2 

REF 

10 

LAST 

529 

30, 3265 

54  321 

0 

TS 

C PH  I 

30 , 3 266 

0 0006 

_J 

EXTEND 

REF 

7 

LAST 

913 

30,3267 

5 0142 

0 

INDEX 

T EM  2 

REF 

13 

LAST 

910 

30, 3270 

21 '633 

1 

MSU 

C DUX  D 

30,3271 

4 0000 

0 

COM 

REF 

8 

LAST 

913 

30,3272 

50  142 

0 

INDEX 

TEM2 

REF 

1 

30,3273 

55'  673 

0 

TS 

-DEL  GMB 

REF 

140 

LAST- 

-9L3 

30,3274 

54  001 

1 

TS 

L 

REF 

9 

LAST 

913 

30,3275 

10  142 

1 

CCS 

TEM2 

REF 

1 

30,3276 

1 3251 

0 

TC  F 

DELGMBLP 

YIELDS  THE  ROD  GIMBAL  ANGLES,  2'S,  PI 


LIMIT  THE  MGA 

CAN'T  LXCH : NEED  UNLIMITED  MGA  FOR  ALARM 

YIELDS  LIMITED  MGA.  1 BIT  ERROR  POSSIBLE 
BECAUSE  USING  ?*S  COMP.  WHO  CARES? 

THIS  BETTER  YIELD  ZERO 


RELINT  AT  TC  INTPRET  AFTER  TCQCDUW 


TO  PREVENT  FALSE  STARTS  ABOUT  X,  ZERO 
FLAGOODW  IF  DELGMBZ  OR  Y TOO  BIG. 

WITHIN  1 BIT  OF  -(45  DEG  SQUARED! 


OUTPUTS  TO  N0UN22 


NO  MATTER  THAT  THESE  SLIGHTLY  DIFFERENT 
FROM  WHEN  WE  INITIALLY  FETCHED  THEM 

-UNLIMITED  GIMBAL  ANGLE  CHGS,  l’S,  PI 
FOR  PRECEDING  TEST  ON  NEXT  LOOP  PASS 
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P0222  BRANCHES  TC  NOATTCNT 


0223 

0224 

REE 

REF 

— 4- 

2 

LAST 

LAST 

910 
91  1 

30,3277 

30,3300 

1 1 1 650 
1 3723 

3 0 1 n 1 

1 

0 

1 

CCS 
TC  F 

CA 

FLPAUTNO 

NOATTCNT 

F 1 ADULRDB 

+ 2 

NOT  PNGCS  AUTO 

0225 

REF 

L M J 1 

0226 

REF 

6 

LAST 

83  1 

30, 3302 

7 4745 

1 

MASK 

ENGONBIT 

0227 

30,3303 

0 0006 

1 

EXTEND 

0228 

REF 

— 3— 

LAS  T 

91  4 

30,3304 

1 3723 

0 

B2F 

NOATTCNT 

+2 

FNGINE  NOT  ON 

.109  PAGE  914 
3 E6  S3 


GAP: 

L 

P0229 

R0230 

R0232 

R0234 

R0236 

R0238 

R0239 

R0240 

R0241 

R0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

025 2 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

02  76 

0277 
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LIMIT  THE  ATTITUDE  ANGLE  CHANGES 

THIS  SECTION  LIMITS  THE  ATTITUDE  ANGLE  CHANGES  ABOUT  A SET  OF  ORTHOGONAL  VEHICLE  AXES  X , Y PR  I ME , ZPRIME . 

THESE  AXES  COINCIDE  WITH  THE  COMMANDED  VEHICLE  AXES  IF  AND  ONLY  IF  CDUXD  IS  ZERO.  THE  PRIME  SYSTEM  IS 

THE  COMMANDED  VEHICLE  SYSTEM  ROTATED  ABOUT  THE  X AXIS  TO  BP  I NG  THE  Z AXIS  INTO  ALINEMENT  WITH  THE  MIDDLE  GIMBAL 

AXIS.  ATTITUDE  ANGLE  CHANGES  IN  THE  PRIME  SYSTEM  ARE  RELATED  TO  SMALL  GIMBAL  ANGLE  CHANGES  BY: 


* 

-DELATTX 

* 

* 

_ 

1 

SIN(CDUZD) 

0 

❖ 

* 

* 

iSL 

-DELGMBX 

* 

* 

-DELATTYPRIME 

* 

= ❖ 

0 

COSt  CDUZD ) 

0 

* 

— DEL  GMBY 

* 

* 

* 

* 

* 

* 

* 

2&L 

-DELATTZPRIME 

* 

*_ 

0 

0 

L 

* 

* 

-DELGMBZ 

❖ 

REF 

2 

LAST 

913 

30, 3305 

2 3 ' 6 75 

1 

LXCH 

-DEL  GMB 

+ 2 

SAME  AS  -DELATTZPRIME  UNLIMITED 

R FF 

3 

LAST 

909 

30, 3306 

51*646 

1 

INDEX 

NDXC  DUW 

REF 

i 

30,3307 

3 3740 

1 

CA 

D AZMAX 

REF 

2 

LAST 

913 

30, 3310 

0 3700 

0 

TC 

LIMI TSUB 

REF 

3 

J AST 

-915 

30,3311 

55 ' 6 75 

0 

TS 

-DELGMB 

+ 2 

-DELGMBZ 

REF 

4 

LAST 

915 

30, 3312 

3 1674 

0 

CA 

-DEL  GMB 

+ 1 

30* 3313 

0 0006 

l 

EX  TFND 

REF 

3 

LAST 

49  1 

30,3314 

7 0 746 

0 

MP 

COSCDUZ 

YIELDS  -DELATTYPR IME/2  UNLIMITED 

REF 

141 

LAST 

913 

30,3315 

54  001 

1 

TS 

L 

R F F 

4 

LAST 

9 15 

30, 3316 

5 1 ' 646 

1 

INDEX 

NDXC  DUW 

REF 

i 

30, 3317 

3 3742 

0 

CA 

DAY/2MAX 

REF 

3 

LAST 

915 

30, 3320 

0 3700 

0 

TC 

LIMITSUB 

30,3321 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

915 

30, 3322 

10  746 

0 

DV 

COSC  DUZ 

REF 

5 

LAST 

915 

30, 3323 

57' 674 

0 

XCH 

-DELGMB 

+ 1 

-DELGMBY,  FETCHING  UNLIMITED  VALUE 

30,3324 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

49  1 

30, 3325 

7 0740 

0 

MP 

S I NIC  DUZ 

30, 3326 

20  001 

1 

DDOUBL 

30, 3327 

4 0000 

0 

COM 

30,3330 

0 0006 

1 

EXTEND 

YIELDS  +DELATTX  UNLIMITD,  MAG  < 180  DEG, 

REF 

6- 

LAST 

9 15 

30, 3331 

21 ' 673 

0 

MS  U 

-DEL  GMB 

BASED  ON  UNLIMITED  DELGMBY. 

REF 

142 

LAST 

915 

30, 3332 

54  001 

1 

TS 

L 

ONE  BIT  FRROR  IF  OPERANDS  IN  MSU 

REF 

5 

LAST 

915 

30,3333 

51 ' 646 

1 

INDEX 

NDXC  DUW 

OF  MIXFD  SIGNS.  WHO  CARES? 

REF 

— 1— 

30, 3334 

3 3740 

1 

CA 

DAXMAX 

REF 

4 

LAST 

915 

30,3335 

0 3700 

0 

TC 

LIMI TSUP 

REF 

7 

LAST 

915 

30, 3336 

5 5 ' 6 73 

0 

TS 

-DELGMB 

SAVE  LIMITED  +DELATTX 

REF 

5 

LAST 

9 13 

30,3337 

1 1 ' 647 

1 

CCS 

F LAG  OODW 

REF 

8 

LAST 

915 

30,3340 

4 1673 

0 

cs 

-DELGMB 

FETCH  IT  BACK  CHGING  SIGN  IF  WINDOW  GOOD 

RFF 

9 

LAST 

9 15 

30, 3341 

55*673 

0 

TS 

-DELGMB 

OTHERWISE  USE  ZERO  FOR  -DELATTX 

REF 

10 

LAST 

915 

30,3342 

4 1674 

l 

CS 

-DELGMB 

+ 1 

30,3343 

0 0006 

1 

FX  TEND 

REF 

4 

LAST 

915 

30, 3344 

7 0740 

0 

MP 

S INC DUZ 

30, 3345 

20  001 

1 

DDOUBL 

YIELDS  -CNTPIB  TO  -DELATTX  FROM  -DELGMBY 

REF 

11 

LAST 

915 

30, 3346 

2 7 ' 6 73 

0 

ADS 

-DELGMB 

-DELGMBX.  NO  OVERFLOW  SINCE  LIMITED  TO 

20DEG ( 1 +S I N ( 70DEG ) /COS ( 70DEG) ) < 180DEG 


GAP: 

L 

P 02  78 

R0279 

R0280 

R0281 

R0282 

R0283 

R0284 

R0286 

R0288 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 
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COMPUTE  COMMANDED  ATTITUDE  RATES 

* CMEGAPD  * * -2  -4  SINCDUZ  +0  ■-*-*  -DELGMBX  * 

£ % # ❖ ❖ 

* CMEGAQD  * = * +0  -8  COSCDUZ  COSCDUX  -4  SINCDUX  * * -DELGMBY  * 

* * * * * * 

* CMECARD  * * +0  +8  COSCDUZ  SINCDUX  -4  COSCDUX  * * -DELGMBZ  * 

ATTITUDE  ANGLE  RATES  IN  UNITS  OF  PI/4  RAD/SEC  = K TRIG  FCMS  IN  UNITS  OF  2 X GIMBAL  ANGLF  RATES  IN  UNITS  OF 
PI/2  RAD/SEC.  THE  CONSTANTS  ARE  BASED  ON  DELGMB  BEING  THE  GIMBAL  ANGLE  CHANGES  IN  UNITS  OF  PI  RADIANS, 

ANC  2 SECONDS  BEING  THE  COMPUTATION  PERIOD  (THE  PERIOD  BETWEEN  SUCCESSIVE  PASSES  THRU  FINDCDUW). 


REF 

12 

LAST 

91  5 

30, 3347 

4 1673 

0 

cs 

-DELGMB 

REF 

6 

LAST 

382 

30,3350 

55*641 

1 

TS 

OMFG APD 

REF 

-43- 

L AST 

916 

TO  r T T 6 1 

4 1674 

1 

cs 

-DEL  GMB 

+ 1 

30,3352 

0 0006 

1 

EXTEND 

REF 

5 

LAST 

915 

30,3353 

7 0740 

0 

MP 

S INCDUZ 

30 1 3 354 

20  001 

1 

DDOUBL 

REF 

7 

LAST 

916 

30, 3355 

2 7 ' 64 1 

1 

ADS 

0 MEG  APD 

REF 

8 

LAST 

916 

30,3356 

27*641 

l 

ADS 

OME  G APD 

REF 

14 

LAST 

916 

30, 3357 

4 1674 

1 

CS 

-DELGMB 

+ 1 

30, 3360 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

49  1 

30, 3361 

7 0750 

1 

MP 

COSC  DUX 

30, 3362 

20  001 

1 

DDOUBL 

30,3363 

0 0006 

1 

EXTEND 

REF 

5 

| AST 

9 1 5 

TO  Y T T64 

7 0746 

o 

MP 

CCSC  DUZ 

REF 

2 

LAST 

382 

30, 3365 

55*642 

1 

TS 

OMEG AOD 

REF 

15 

LAST 

916 

30, 3366 

4 1675 

0 

CS 

-DELGMB 

+ 2 

TO r T T6  7 

0 0006 

1 

EX  TFND 

REF 

3 

LAST 

49  1 

30, 3370 

7 0742 

1 

MP 

S INC  DUX 

REF 

3 

LAST 

916 

30,3371 

27*642 

1 

ADS 

OMEG AOD 

REF 

4 

LAST 

916 

30,  3 372 

2 7' 642 

1 

ADS 

OMEG AOD 

REF 

5 

LAST 

916 

30,  3373 

27*642 

1 

ADS 

OMEG AOD 

REf 

-16 

-LAST- 

916 

30*3  374- 

3 1674 

o 

r a 

-DPI  OMR 

+ 1 

30, 3375 

0 0006 

1 

EXTEND 

REF 

4 

LAST 

9 1 6 

30, 3376 

7 0742 

1 

MP 

SINCDUX 

30,3377 

20  001 

1 

DDOUBL 

30, 3400 

0 0006 

1 

EXTEND 

REF 

6 

LAST 

916 

30, 3401 

7 0746 

0 

MP 

COSC.  DUZ 

R EF- 

— 2— 

LAST 

302 

30, 3402 

55*643 

0 

TS 

OMEG APD 

REF 

17 

LAST 

916 

30, 3403 

4 1675 

0 

cs 

-DELGMB 

+ 2 

30, 3404 

0 0006 

1 

EXTEND 

REF — 

— 5 - 

-LAST 

9 16 

30, 3405 

7 0750 

1 

MP 

CCSC  DUX 

REF 

3 

LAST 

916 

30, 3406 

27*643 

0 

ADS 

OMEG ARD 

REF 

4 

LAST 

916 

30,3407 

27' 643 

0 

ADS 

OMEG ARD 

REF 

-5 

LAST 

916 

30, 3410 

27*643 

-0 

ADS 

OMEGARD 

GAP 
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0325- 

0326 

REF 

REF 

62 

10 

LAST 

LAST 

913- 

913 

30. 341 1 

30. 3412 

-3— 

54 

4752 

142 

-G 

1 

0327 

REF 

11 

LAST 

917 

30, 3413 

50 

142 

0 

REF 

1 8 

LAST 

916 

30,3414 

3 

1673 

1 

0329 

30, 3415 

0 

0006 

1 

0330 

REF 

i 

30,3416 

7 

3745 

0 

0331 

REF 

i 

30,3417 

0 

3714 

0 

0332 

REF 

12 

LAST 

917 

30,3420 

50 

142 

0 

0333 

REF 

4 

LAST 

15  1 

30, 3421 

55 

*636 

1 

0334 

REF 

13 

LAST 

917 

30, 3422 

50 

142 

0 

0335 

REF 

9 

LAST 

916 

30, 3423 

11 

'641 

1 

—REF 

1 0? 

I AST 

909 

30, 3424 

6 

4753 

1 

0337 

30,3425 

i 

3427 

1 

0338 

REF 

1C3 

LAST 

917 

30, 3426 

6 

4753 

1 

0^39 

30, 3427 

0 

00  06 

1 

0340 

REF 

14 

LAST 

917 

30, 3430 

5 

0142 

0 

0341 

REF 

10 

LAST 

917 

30,3431 

7 

1641 

1 

034? 

30 , 3432 

0 

00  06 

1 

0343 

REF 

29 

LAST 

758 

30,3433 

7 

4741 

0 

0344 

30,3434 

0 

00  06 

1 

0345 

REF 

15 

LAST 

917 

30,  3435 

5 

014? 

0 

0346 

REF 

6 

LAST 

380 

30, 3436 

11 

• 530 

1 

0347 

REF 

143 

LAST 

9 l 5 

30, 3437 

54 

001 

1 

0348 

REF 

1 

30, 3440 

3 

3742 

0 

0349 

REF 

5 

LAST 

91  5 

30,3441 

0 

3700 

0 

0350 

REF 

16 

LAST 

917 

30, 3442 

50 

142 

0 

0351 

REF 

3 

L AST 

3 3 2 

30, 3443 

55 

<2  77 

0 

0352 

REF 

17 

LAST 

917 

30,3444 

10 

142 

1 

0353 

REF 

1 

30,3445 

1 

3412 

1 

R0354  HALSKEEPING  AND  RETURN 


0355  REF  3 

0356  REF  38 

0357  -REF  161 

0358 

0359 

0360  REF 


LAST 

909 

30 

LAST 

909 

30 

LAST 

911 

30 

30 

30 

LAST 

909 

30 

3446 

3 1644 

0 

3447 

54  003 

0 

3450 

0 6036 

1 

3451 

52001 

1 

3452 

00001 

0 

345  3 

03245 

1 

CDUWXFR 


TCQCDUW 


3 
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USER' S PAGE  NO.  11  E6  S3 


CA 

TWO 

TS 

TE  M2 

INDEX 

TEM2 

CA 

-DELGMB 

EXTEND 

MP 

DT/DELT 

RATIO  OF  DAP  INTERVAL  TO  CDUW  INTFRVAL 

TC 

ONES  TG2S 

INDEX 

TE  M2 

TS 

DELCDUX 

ANGLE  INTERFACE 

INDEX 

TEN2 

CCS 

OMEGAPD 

AD 

3NE 

TC  F 

+ 2 

AD 

ONE 

EXTEND 

WF  NOW  HAVE  ABS (OMEGAPD, QD,RD) 

INDEX 

TEM2 

MP 

OMEGAPD 

EXTEND 

MP 

BIT1  1 

1/16 

EXTEND 

INDFX 

TEM2 

2 

DV 

l JACC 

UNITS  PI/4  RAD/SEC 

TS 

L 

CA 

DELERLIM 

TC 

LIMITSUB 

INDEX 

TEM2 

TS 

DELPEROR 

LAG  ANGLE  = OMEGA  ABS(0MEGA)/2  ACCEL 

CCS 

TEM2 

TCF 

CDUWXFR 

CA E-CDU  WUSR 

TS  EBANK  RETURN  USER'S  EBANK 


TC  INTPPET 

SETPD  GOTO 


0 

OCDUWUSR 


NORMAL  AND  ABNORMAL  RETURN  TO  USER 


GAP: 

L 

P0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

03  76 

0377 

R0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 
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FIN DCDUW  - GUI OA P INTERFACE  USER'S  PAGF  NO.  12  E6  S3 


THRLST  VECTOR  FILTER  SUBROUTINE 


REF 

18 

LAST 

917 

30,  3454 
30,3455 

0 0006 
2 2 142 

-1— 

0 

FLTRSUB  EXTEND 
QXCH 

TEM2 

REF 

3 

LAST 

114 

30, 3456 

54  143 

0 

TS 

TEM3 

SAVE  ORIGINAL  OFFSET 

30,  3 457 

4 0000 

Q_ 

COM 

ONE  MCT , NO.  WPS,  CAM  BE  SAVED  IF  NEG  OF 

REF 

144 

LAST 

9 l 7 

30,3460 

6 0001 

0 

AD 

L 

ORIG  OFFSET  ARRIVES  IN  A,  BUT  IT'S 

30,3461 

0 0006 

1 

EXTEND 

NOT  WORTH  THE  INCREASED  OBSCURITY. 

REF 

6- 

L AST 

915 

30, 3462 

5 1646 

_L- 

INDEX 

NDXCDUW 

REF 

1 

30,3463 

7 3733 

1 

MP 

GAIN  FLTR 

REF 

145 

LAST 

918 

30,3464 

54  001 

1 

TS 

L 

I NCR  TO  OFFSET,  UNLIMITED 

REF 

] 

30,3465 

3 3735 

JL 

CA 

DUNF VLIM 

SAME  LIMIT  FOR  Y AND  Z 

REF 

6 

LAST 

917 

30,3466 

0 3700 

0 

TC 

LIMI TSUB 

YIELDS  INC R TO  OFFSET,  LIMITED 

REF 

4 

LAST 

918 

30,3467 

6 0143 

1 

AD 

TEM3 

ORIGINAL  OFFSET 

REF 

146 

LAST 

918 

30, 3470 

54  001 

_u 

TS 

L 

TOTAL  OFFSET,  UNLIMITED 

REF 

1 

30,3471 

3 3736 

0 

CA 

UNFVLIM 

SAMF  LIMIT  FOR  Y AND  Z 

REF 

7 

LAST 

918 

30, 3472 

0 3 700 

0 

TC 

LIMI TSUB 

YIELDS  TOTAL  OFFSET,  LIMITED 

REF — 19  LAST  91  8 30,3473  0 0142  0 TC  TEM2 


SUBR 

TO 

TEST  THE  ANGLE  BETWEEN 

THE  PROPOSED  WINDOW  AND 

THPUST  CM D VCTS 

30, 3474 

63441 

0 UNWCTEST 

DOT 

DSQ 

REF 

7 

LAST  912 

30,3475 

00001 

0 

U NX  / 2 

30,3476 

50025 

0 

DSU 

3 MN 

REF 

1 

30,3477 

21740 

1 

DOTS  WFMX 

REF 

1 

30,  3 500 

61203 

1 

DCMC  L 

30,  3 501 

43531 

1 

SSP 

RV  3 

R VO  FOR  ALT 

CHO  ICE 

IF  DOT  MAGN  TOn  LARGE 

REF 

6 

LAST  915 

30,3502 

03250 

0 

FLAG  OODW 

ZEROING 

WINDOW 

GOOD  FLAG 

30,3503 

000  00 

1 

0 

GAP  : 

L 

P0387 

R0389 

R0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 


ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2021112-C11 


19102  NOV.  25,1968  FLY 


109  PAGE  919 


FINDCCUW  - GUIDAP  INTERFACE  USER'S  PAGE  NO.  13  E6  S3 

NB2CDUSP  RETURNS  THE  2'S  COMPLEMENT,  PI,  SP  CDU  ANGLES  X,Y,Z  IN  MPAC,+I,+2  GIVEN  THE  MATRIX  WHOSE  ROW  VECTORS 
ARE  TEE  SEMI-UNIT  NAV  BASE  VECTORS  X,Y,Z  EXPRESSED  IN  STABLE  MEMBER  COORDINATES,  LOCATED  AT  0 IN  THE  PUSH  LIST. 

NB2CDUSP  USES  ARCTRGSP  WHICH  HAS  A MAXIMUM  ERROR  OF  +-4  BITS. 


30. 3504 

30.3505 

63545 

00003 

-0- 

1 

NB2CDUSP  DLOAD 

DSQ 

2 

30, 3506 

51021 

0 

BDSU 

8 PL 

P EF 

last 

6 s 7 

3 0 1 3 507 

06414 

0 

DP1/4TH 

30, 3510 

61513 

1 

+ 3 

30, 3511 

77745 

1 

DLOAD 

R FF 

1 7 

1 AST 

818 

30,3512 

06424 

0 

ZEP.CVECS 

30, 3513 

77566 

1 

SORT 

EXIT 

30 1 3 514 

0 0006 

1 

EXTEND 

REF 

340 

LAST 

913 

30,3515 

3 0155 

0 

DC  A 

MPAC 

30, 3516 

20  001 

1 

DDOUBL 

REF 

3 

LAST 

114 

30,3517 

54  145 

0 

TS 

TEM5 

30, 3520 

1 3523 

1 

TCF 

+ 3 

REF 

20 

LAST 

899 

30, 3521 

3 4733 

1 

CA 

POSMAX 

REF 

4 

LAST 

919 

30, 3522 

54  145 

0 

TS 

TFM5 

REF 

25 

LAST 

88  7 

30, 3523 

50  120 

1 

INDEX 

FIXLOC 

30,  3 524 

3 0002 

0 

CA 

2 

REF 

341 

LAST 

919 

30,3525 

22  154 

1 

LXCH 

MPAC 

REF 

1 

30, 3526 

0 3573 

0 

TC 

ARCTRGSP 

REF  342-  LAST  919  30,  3527  54  156  1 _ TS  MPAC  +2 


REF 

168 

LAST 

913 

30,3530 

3 

4755 

1 

CA 

ZERO 

REF 

1 

30, 3531 

_ 0 

35  51 

_o 

TC 

DVBYCOSM 

REF 

21 

LAST 

860 

30,3532 

3 

4751 

0 

CA 

FOUR 

REF 

2 

LAST 

919 

30, 3533 

0 

3551 

0 

TC 

DVBYCOSM 

-REF 

9_ 

LAST 

349 

30, 3534 

_4. 

0141 

1 

CS 

TEM1 

REF 

2 

LAST 

919 

30,3535 

0 

3573 

0 

TC 

ARCTRGSP 

REF 

343 

LAST 

919 

30, 3536 

54 

155 

1 

TS 

MPAC 

REF 

38 

LAST 

899 

30,  3537 

3 

4750 

1 

CA 

e iT4 

REF 

3 

LAST 

919 

30,3540 

0 

3551 

0 

TC 

DVBYCOSM 

REF 

1 

30,3541 

3_ 

3550 

1 

CA 

1 60C  T 

REF 

4 

LAST 

9 1 9 

30, 3542 

0 

3551 

0 

TC 

DVBYCOSM 

REF 

10 

LAST 

919 

30,3543 

4 

0141 

1 

CS 

T EM  1 

RFF 

3— 

LAST 

919 

30,3544 

0 

3573 

0 

TC 

ARCTRGSP 

REF 

344 

LAST 

919 

30, 3545 

54 

154 

0 

TS 

MPAC 

REF 

162 

LAST 

917 

30 , 3 546 

n 

AO  3 6 

_l 

TC 

I NTP  RET 

30,  3547 

77616 

0 

RVQ 

IN  CASE  SIN  WAS  SLIGHTLY  > 1/2 
YIELDS  COS(CDUZ)  IN  UNITS  OF  2 


OVERFLOW.  FETCH  POSMAX,  MPAC  ALWAYS  POS 
COS(CDUZ)  IN  TEM5 , UNITS  1 


C DU  Z 


C DU  Y 


C DUX 


30, 3550 


00016  0 160CT 


OCT 


16 
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L FINOCDUW  - GU I DAP  INTERFACE  USER'S  PAGE  NO.  14  E6  S3 

P0429  THE  ELEMENTS  OF  THE  NAV  BASE  MATRIX  WHICH  WE  MUST  DIVIDE  BY  COS(MGA) 

R0430  ALREADY  CONTAIN  CCSIMGA1/2  AS  A FACTOR.  THEREFORE  THE  QUOTIENT  SHOULD 
R0431  ORDINARILY  NEVER  EXCEED  1/2  IN  MAGNITUDE.  BUT  IF  THE  MGA  IS  NEAR  PI/2 

P0432  THEN  COS(MGA)  IS  NEAR  ZERO,  AND  THERE  MAY  BE  SOME  CHAFF  IN  THE  OTHER 

R0433  ELEMENTS  OF  THE  MATRIX  WHICH  WOULD  PRODUCE  CHAOS  UNDER  DIVISION. 

R0434  BEFORE  OIVIDING  WE  MAKE  SURE  COSIMGA)  IS  AT  LEAST  ONE  BIT  LARGER 

R0435  THAN  THE  MAGNITUDE  OF  THE  HIGH  ORDER  PART  OF  THE  OPERAND. 

R0436  IF  ONE  OR  MORE  DIVIDES  CANNOT  BE  PERFORMED,  THIS  MEANS  THAT  THE 
R043T  REQUIRED  MGA  IS  VERY  NEARLY  +-PI/2  AND  THEREFORE  THE  OTHER  GIMBAL 
R0438  ANGLES  ARE  INDETERMINATE.  THE  INNER  AND  OUTER  GIMBAL  ANGLES  RETURNED 
R0439  IN  THIS  CASE  WILL  BE  RANDOM  MULTIPLES  OF  PI/2. 


0440 

REF 

26 

LAST 

919 

30,3551 

6 

0120 

1 

DVBYCOSM 

AD 

FI  XL  DC 

n a a i 

DPP 

30, 3552 

54 

1 16 

-0 

TS 

ADDR  WD 

ADRES  OF  OPERAND 

UHHi 

0442 

r\L  r 

REF 

2 

LAST 

920 

30, 3553 

50 

i 116 

1 

INDEX 

ADDP WD 

FETCH  NEG  ABS  OF  OPERAND, 

AD  TEM5 , AND 

0443 

30,  3 554 

3 

0000 

1 

CA 

0 

SKIP  DIV  IDE  IF  RESULT 

NEG  OR  ZERO 

0444 

30,3555 

0 

0006 

1 

EXTEND 

0445 

30,3556 

6 

3560 

1 

BZMF 

+ 2 

0446 

30,3  557 

-4 

0000 

0 

COM 

0447 

REF 

5 

LAST 

919 

30,3560 

6 

0145 

1 

AD 

TEM5 

CIA)  ZERO  OR  NFG,  CITEM5) 

ZERO  OR  POS 

0448 

30, 3561 

0 

0006 

1 

EXTEND 

0449 

REF 

1_ 

30, 3562 

6 

3570 

0 

BZMF 

TSLSTCQ 

DIFFERENCE  ALWAYS  SMALL  IF 

BRANCH 

0450 

30,3563 

0 

0006 

1 

EXTEND 

TEM5  EXCEEDS  ABS  HIGH  ORDER  PART  OF 

045 1 

REF 

3 

LAST 

920 

30, 3564 

-5 

0116 

1 

INDEX 

ADDR  WD 

OPFRAND  BY  AT  LEAST  ONE  BIT. 

0452 

30,3565 

3 

0001 

0 

DC  A 

0 

THEREFORE  IT  EXCEEDS 

THE  DP  OPERAND 

0453 

30, 3566 

0 

0006 

1 

EXTEND 

AND  DIVISION  WILL  ALWAYS  SUCCEED. 

0454 

REF 

6— 

LAST 

920 

30, 3 56  7 

10 

1 45 

0 

DV 

TEM5 

0455 

REF 

147 

LAST 

91  8 

30,3570 

54 

001 

1 

TSLETCQ 

TS 

L 

0456 

REF 

11 

LAST 

919 

30,3571 

22 

141 

0 

LXCH 

TEM  1 

0457 

REF 

2 20 

LAST 

896 

30,3572 

0 

0002 

0 

TC 

Q 

GAP: 

L 

P0458 

R 0460 

R0462 

0464 

046  5 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

04  76 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

04  84 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

04  96 

0497 

0498 

0499 

0500 

0501 

0502 

0503 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25,  1 963  -FLY  .109  PAGE 
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ARCTRCSP  RETURNS  THE  2'S  COMPLEMENT,  PI,  SP  ANGLE  IN  THE  A PEGISTER  GIVEN  ITS  SINE  IN  A AND  ITS  COSINE  IN  L 
UNITS  OF  2.  THE  RESULT  IS  AN  UNAMBIGUOUS  ANGLE  ANYWHERE  IN  THE  CIRCLE,  WITH  A MAXIMUM  ERROR  OF  +-4  BITS. 
THE  ERROR  IS  PRODUCED  BY  THE  SUBROUTINE  SPARCSIN  WHICH  IS  USED  ONLY  IN  THE  REGION  +-45  DEGREES. 


30,3573 

0 0006 

1 

ARCTRGSP 

EXTEND 

p ef 

l 

30t  3 574 

1 3636 

0 

BZF 

S INZERO 

30, 3575 

0 0006 

1 

EXTEND 

r F F 

LX) 

1 AST 

43  3 

30, 3576 

22  144 

0 

QXCH 

TEM4 

REF 

20 

LAST 

91  8 

30, 3577 

54  142 

1 

TS 

TEM2 

REF 

148 

LAST 

920 

30, 3600 

3 0001 

0 

CA 

L 

REF 

5 

L AST 

91  8 

30, 3601 

54  143 

0 

TS 

T EM  3 

REF 

169 

LAST 

919 

30, 3602 

3 4755 

1 

CA 

ZERO 

30, 3603 

0 0006 

1 

EXTEND 

REF 

2 1 

LAST 

921 

30,3604 

10  142 

1 

DV 

TEM2 

30, 3605 

0 0006 

1 

EXTEND 

REF 

i 

30, 3606 

1 3625 

1 

BZF 

USECOS 

REF 

6 

LAST 

92  1 

30, 3607 

10  143 

0 

CCS 

TEM3 

REF 

170 

LAST 

92  1 

30, 3610 

3 4755 

1 

CA 

ZERO 

30  f 361 1 

1 3615 

1 

TC  F 

+ 4 

REF 

22 

LAST 

92  1 

30,3612 

4 0142 

1 

CS 

TEM2 

REF 

23 

LAST 

92  1 

30,3613 

54  142 

1 

TS 

TEM2 

REF 

3 

LAST 

60  8 

30,3614 

3 4735 

1 

CA 

NEGMAX 

REF 

7 

LAST 

92  1 

30, 3615 

54  143 

0 

TS 

TEM3 

REF 

24 

LAST 

92  1 

30, 3616 

3 0142 

0 

CA 

T EM  2 

REF 

2 

LAST 

811 

30,3617 

0 36  43 

0 

TC 

SPARCSIN 

REF 

2 

LAST 

917 

30,3620 

0 3714 

0 

TC 

ONE  S T02S 

30, 3621 

0 0006 

1 

EXTEND 

REF 

8 

LAST 

921 

30,3622 

20  143 

0 

MSU 

T EM  3 

REF 

3 

LAST 

92  1 

30,3623 

0 3714 

0 

1T02&TCQ 

TC 

ONE  S T02S 

REF 

1 1 

LAST 

92  1 

30, 3624 

0 0144 

0 

TC 

TEM4 

REF 

9 

LAST 

92  1 

30, 3625 

4 0143 

0 

USECOS 

CS 

TEM3 

REF 

3 

LAST 

92  1 

30,3626 

0 3643 

0 

TC 

S PARCSIN 

REF 

9 

LAST 

900 

30,3627 

6 4736 

1 

AD 

HALF 

REF 

10 

LAST 

92  1 

30, 3630 

54  143 

0 

TS 

T F M3 

REF 

25 

LAST 

92  i 

30, 3631 

10  142 

1 

CCS 

TEM2 

REF 

1 1 

LAST 

92  1 

30,3  632 

3 0143 

1 

CA 

TFM3 

REF 

1 

30,3633 

1 3623 

1 

TC  F 

1 T02 CTCO 

REF 

12 

LAST 

92  1 

30,3634 

4 0143 

0 

CS 

TEM3 

REF  2 LAST  921  30,3635  1 3623  1 TC F 1 T02 £TCQ 


REF 

REF 

149 

171 

LAST 

LAST 

92  1 
92  1 

30. 3636 

30.3637 

10  001 
3 4755 

1 

1 

SINZERO  CCS 
CA 

L 

ZFRC 

REF 

221 

LAST 

920 

30, 3640 

0 0002 

0 

TC 

Q 

REF 

4 

LAST 

92  1 

30,3641 

3 4735 

1 

CA 

NEGMAX 

REF 

222 

LAST 

921 

30, 3642 

0 0002 

0 

TC 

0 

TO  AVOID  DIVIDING  BY  ZERO 


SIN  IS  SMALLER  OR  FQUAL 


IF  COS  NEG,  REVERSE  SIGN  OF  SIN, 
ANGLE  = P I -A PCS  I N ( SI N ) 

PICK  UP  PI,  2'S  COMPLEMENT 
WE  NO  LONGER  NEED  COS 


COS  IS  SMALLER 

ANGLE  = SIGN(SIN) I P I / 2 — ARCS  I N I COS ) ) 
WE  NO  LONGER  NEED  COS 


921 


IN 


PI,  2'S  COMP 


GAP  : 

L 

P0504 

R0505 

R0506 

R0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

05-2-0- 

0521 

0522 

0523 

0524 

0525 

0 526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 
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SPARCSIN  TAKES  AN  ARGUMENT  SCALED  UNITY  IN  A AND  RETURNS  AN  ANGLE  SCALED 
18C  DEGREES  IN  A.  IT  HAS  BEEN  UNIT  TESTED  IN  THE  REGION  +-.94  ( +-  70 
DEGREES)  AND  THE  MAXIMUM  ERROR  IS  +-5  BITS  WITH  AN  AVERAGE  TIME  OF 
450  MICROSECONDS.  SPARCSIN  -1  TAKES  THE  ARGUMENT  SCALED  TWO. (BOB  CRISP) 


REF 

8 

LAST 

457 

30. 3643 

30. 3644 

6 0000 
54  021 

-i- 

0 

SPARCSIN 

D0U8LF 

TS 

SR 

30, 3645 

1 

36  51 

1 

TCF 

+ 4 

REF 

2 78 

LAST 

-94  0 

^nf  ^ 6 46 

nno 

1 

INDEX 

A 

REF 

i 

30,3647 

4 

4734 

1 

CS 

L IMI TS 

REF 

9 

LAST 

922 

30,3650 

54  021 

0 

TS 

SR 

00,^651 

o 

0006 

1 

EXTEND 

REF 

279 

LAST 

922 

30,3652 

7 

0000 

0 

MP 

A 

REF 

12 

LAST 

920 

30,3653 

54  141 

1 

TS 

T EM  1 

30, 3654 

0 

0006 

1 

EXTEND 

REF 

1 

30,3655 

7 

3677 

0 

MP 

DPL  9 

REF 

1 

30,3656 

6 

3676 

0 

AD 

DPL7 

30,3657 

0 

0006 

1 

EXTEND 

REF 

13 

LAST 

922 

30,3660 

7 

0141 

1 

MP 

T EM  1 

REF 

1 

30,3661 

6 

3675 

0 

AD 

DPL5 

30, 3662 

0 

0006 

1 

EXTEND 

REF 

14 

LAST 

922 

30,3663 

7 

0141 

1 

MP 

TEM 1 

REF 

1 

30,3664 

6 

36  74 

1 

AD 

DPL3 

30 , 3 665 

0 

0006 

1 

EXTEND 

REF 

15 

LAST 

922 

30, 3666 

7 

0141 

1 

MP 

T EM  1 

REF 

1 

30,3667 

6 

3673 

0 

AD 

D PL  1 

30, 3670 

o 

0006 

1 

EXTEND 

REF 

10 

LAST 

922 

30, 3671 

7 

0021 

0 

MP 

SR 

REF 

223 

LAST 

92  1 

30,3672 

0 

0002 

0 

TC 

Q 

30, 3673 

24406 

0 

OPL  1 

DEC 

1 0502 

30,3674 

00660 

1 

DPL  3 

DEC 

432 

30, 3675 

16204 

0 

DPL  5 

DEC 

7300 

30,3676 

50744 

0 

DPL  7 

DEC 

- 1 1803 

30,3677 

203  15 

1 

DPL9 

DEC 

8397 
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L 

FINDCCUW 

- GUIDAP  INTERFACE 

USER'S  PAGE  NO.  17 

E6  S3 

P0537 

R0538 

limitsub 
ARR IV ING 

L IMITS  THE  MAGNITUDE 
IN  L TO  THE  POSITIVE 

OF  THE  POSITIVE  OR  NEGATIVE  V A P I ABLE 
LIMIT  ARRIVING  IN  A. 

R0539  TEE  SIGNED  LIMITED  VARIABLE  IS  RETURNED  IN  A. 


R0540  VERSICN  COLRTESY  HUGH  BLAIR-SMITH 


0541 

0542 

0543 

REF 

REF 

16 

172 

LAST 

LAST 

922 
92  1 

30. 3700 

30.3701 

30.3702 

54  141 
3 4755 
0 0006 

1 

1 

LIMITSUB  TS  TEM1 

CA  ZERO 

EXTEND 

0544 

REF 

17 

LAST 

92  3 

30, 3703 

10  141 

1 

DV 

TEN1 

0545 

REF 

2eo 

LAST 

922 

30,3704 

10  000 

0 

CCS 

A 

0 546 

R E-F 

18 

L AS  T 

92  3 

30, 3705 

22  141 

0 

LXCH 

T EMI 

0547 

30,3706 

1 3710 

0 

TCF 

+ 2 

0548 

30, 3707 

1 3712 

1 

TCF 

+ 3 

0549 

REF 

150 

L AST 

92  1 

30,3710 

3 0001 

-0— 

CA 

L 

0550 

REF 

224 

LAST 

922 

30,3711 

0 0002 

0 

TC 

Q 

0551 

REF 

19 

LAST 

923 

30,3712 

4 0141 

1 

CS 

T EM  1 

0552  REF  225  LAST  92  3 30,3713  0 -0-002-  D IC  _J1 


R0553 

SUBROUTINE  TO 

CONVERT  l'S  COMP  SP  TO 

2' 

S COMP 

0554 

REF 

281 

LAST 

92  3 

30,3714 

10  000 

0 

ONE  ST02  S 

CCS 

A 

0555 

REF 

104 

LAST 

917 

30,3715 

6 47  5 3 

1 

AO 

ONE 

0556 

REF 

226 

LAST 

923 

30,3  716 

0 0002 

0 

TC 

Q 

0557 

REF 

282 

LAST 

923 

30, 3717 

4 0000 

0 

CS 

A 

0558 

REF 

227 

LAST 

92  3 

30,3720 

0 0002 

0 

TC 

0 

R0559 

NO 

ATTITUDE  CONTROL 

0560 

REF 

34 

LAST 

8 7 6 

30, 3721 

0 5567 

o 

NOATTCNT 

TC 

ALARM 

0561 

30, 3722 

00402 

1 

OCT 

00402 

NO  ATTITUDE  CONTROL 

0562 

30, 3723 

0 0004 

_Q_ 

+2 

INHINT 

COME  HERE  FOR  NOATTCNT  WITHOUT  ALARM 

0563 

REF 

46 

LAST 

876 

30, 3724 

0 4674 

0 

TC 

I BN K CA L L 

RELINT  AT  TC  INTPRET  AFTER  TCOCDUW 

0564 

REF 

7 

LAST 

864 

30,3725 

40165 

1 

FC  ADR 

STOP  RATF 

0565  REF  1 30,3726  1 3.446  0 TCF  TCQCDUH  RETURN  TO  USER  SKIPPING  AUTOPtl  OT  CMOS 


R0566 

MICDLE  GIMEAL 

ANGLE 

ALARM 

0567 

REF  35  LAST 

923 

30, 3727 

n 5567 

0 

ALARMMGA  TC 

ALARM 

0568 

30,3730 

00401 

1 

OCT 

0040  1 

0569 

REF  1 

30,3731 

1 3246 

0 

TCF 

MGAP  ET 

GAP: 

L 

P0570 

R0571 

R0572 

R0573 
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$**$!(=**  ifc*##*#*:!:******#***:!':!' £$££*«**#*:*£**>!=$  £**$#*£$**#* 

CONSTANTS 

$*$:>{:$  #$#$***  fc**#  ***#  *****  *#*  ***<<**  ********  **«**X<**<r  *S**»#*^t*^i 

ADCRESS  CONSTANTS 


0574 

REF  3 LAST  909  30,3732 

03244 

0 

ECDUWL 

ECADR 

ECDUW 

R0575 

p QR74 

tuciiqt  n i r rr  t i n\i  fiitfr  rnNKTANT*; 

0577 

30, 3733 

06315 

0 

G A I NFLTR 

DEC 

.2 

GAIN  FILTER  SANS  CSM 

0578 

30, 3734 

03146 

1 

DEC 

. 1 

GAIN  FILTFR  WITH  CSM 

0579 

30,3735 

00071 

1 

DUNFVLIM 

DEC 

.007  B-l 

7 MR  MAX  CHG  IN  F DIR  IN  VEH  IN  2 SFCS. 

AOR  ftO 

THIS  DOES  NOT  ALLOW  FOR  S/C  POT  PATE. 

0581 

30, 3736 

02041 

0 

UNFVL  IM 

DEC 

.129  B-l 

129  MR  MAX  THRUST  OFFSET.  105  MR  TRAVEL 

40*^82 

+ 10MR  DEFL  + 5MR  MECH  MOUNT  +9MR  ABLATION. 

R0583 

R0584 

CONSTANTS  RELATED  TO  GIMBAL  , 

ANGLE  COMPUTATIONS 

0585 

30, 3737 

01673 

1 

DOTSWFMX 

DEC 

.93302  B— 4 

LIM  COLNRTY  OF  UNWC/2  8 UNFC/2  TO  85  DEG 

A0586 

LOWER  PAPT  COMES  FROM  NEXT  CONSTANT 

0587 

30, 3740 

03434 

1 

DAXMAX 

DEC 

.11111111111 

DEL ATTX  LIM  TO  20  DEG  IN  2 SFCS,  l'S,  PI 

0588 

30, 3741 

00266 

0 

DEC 

.0111111111 

2 DEG  WHEN  CSM  DOCKED 

0589 

30, 3742 

01616 

1 

DAY / 2MA  X 

DEC 

.05555555555 

LIKEWISE  FOR  DELATTY 

0590 

30, 3743 

001  33 

0 

DEC 

.0055555555 

0591 

REF  2 LAST  915  30,3740 

DAZMAX 

= 

DAXMAX 

L IKEWISE  FOR  DELATTZ 

0592 

30, 3744 

] 4344 

l 

r ni  1 7 ni  t m 

DEC 

. 3 ft  ft  ft£RR  Rftft 

70  nFP,  1 TMTT  FOR  Mf,A  . 1 PT 

P 0593 

R0594 

CONSTANTS  FOR  DATA  TRANSFER 

0595 

30, 3 74  5 

01463 

1 

DT/DELT 

DEC 

.05 

.1  SEC / 2 SEC  WHICH  IS  THE  AUTOPILOT 

A0596 

CONTROL  SAMPLF  PERIOD/COMPUTATION  PERIOD 

0597 

REF  2 LAST  915  30,3742 

DELERLIM 

= 

DAY/2MAX 

10  DEG  LIMIT  FOR  LAG  ANGLES,  l'S,  PI 

R0598 

***  END  OF  FLY  .109  *** 
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R0001 

R0003 

R0005 

PROGRAM  NAPE-  PROG52  DATE-  JAN  9,  1967 

MCD  NC-  0 LOG  SECTION-  P51-P53 

MOD  I F ICA  T I CN  BY-  LONSKF  ASSEMBLY-  SUNDANCE  REV  46 

R0007 

FUNCTIONAL  DESCRIPTION- 

R0008 

R0010 

ALIGNS  THE  I MU  TO  ONE  OF  THREE  ORIENTATIONS  SELECTED  BY  THE  ASTRONAUT.  THE  PRESENT  I MU  ORIENTATION  IS  KNOWN 
AND  IS  STORED  IN  REFSMMAT . THE  THREE  POSSIBLE  ORIENTATIONS  MAY  BE_ 

R0011 

(A)  PREFERRED  ORIENTATION 

R 00 1 2 
R0014 

AN  OPTIMUM  ORIENTATION  FOR  A PREVIOUSLY  CALCULATED  MANUEVER-  THIS  ORIENTATION  MUST  BE  CALCULATED  AND 
STORED  BY  A PREVIOUSLY  SELECTED  PROGRAM. 

R0015 

(B)  NOMINAL  ORIENTATION 

R 00 1 6 
R0017 

X = UNIT  ( R ) 

— ^SM  ■ 

R0018 

R0019 

Y = UN  IT  (V  X R) 
SM 

R0020 

RQ021- 

Z = UNIT  IX  X Y ) 

SM  SM  SM 

R0022 

R0Q23 

R0025 

WFERE_ 

R - THE  GEOCENTRIC  RADIUS  VECTOR  AT  TIME  T (ALIGN)  SELECTED  BY  THE  ASTRONAUT 

R0026 

R0028 

V = THE  INERTIAL  VELOCITY  VECTOR  AT  TIME  T(ALIGN)  SELECTED  BY  THE  ASTRONAUT 

R0029 

(C>— REFSMMAT  ORIENTATION 

R0029  1 

(C)  LANDING  SITE  - THIS  IS  NOT  AVAILI8LE  IN  SUNDANCE 

R0030 

R0032 

R0034 

THIS  SELECTION  CORRECTS  THE  PRESENT  I MU  ORIENTATION.  THE  PRESENT  ORIENTATION  DIFFERS  FROM  THAT  TO  WHICH  IT 
WAS  LAST  ALIGNED  ONLY  DUE  TO  GYRO  DRIFT! I. E.  NEITHER  GIMBAL  LOCK  NOR  I MU  POWER  INTERRUPTION  HAS  OCCURED 
SINCE  THE  LAST  ALIGNMENT). 

R0035 
R0037 
R0039 
R0041 
R 004-3 
R0045 
R0047 

AFTER  A IMU  ORIENTATION  HAS  BEEN  SELECTED  ROUTINE  S52.2  IS  OPERATED  TO  COMPUTE  THE  GIMBAL  ANGLES  USING  THE 
NEK  ORIENTATION  AND  THE  PRESENT  VEHICLE  ATTITUDE.  CAL52A  THEN  USES  THESE  ANGLES,  STORED  IN  T HET AD , +1 , +2 , TO 
COARSE  ALIGN  THE  IMU.  THE  STAR  SELECTION  ROUTINE,  R56,  IS  THEN  OPERATED.  IF  2 STARS  ARE  NOT  AVAILABLE  AN  ALARM 
IS  FLASHED  TO  NOTIFY  THE  ASTRONAUT.  AT  THIS  POINT  THE  ASTRONAUT  WILL  MANUEVER  THF  VEHICLE  AND  SELECT  2 STARS 
EITHER  MANUALLY  OR  AUTOMATICALLY.  AFTER  2 STARS  HAVE  BEEN  SELECTED  THF  IMU  IS  FINE  ALIGNED  USING  ROUTINE  R51.  IF 
THE  RENDEZVOUS  NAVIGATION  PROCESS  IS  OPERAT ING( INDICATED  BY  RNDVZFLG ) P20  IS  DISPLAYED.  OTHERWISE  POO  IS 
REQUESTED. 

R0048 


CALLING  SECUENCE- 
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R0049 

THE  PROGRAM  IS 

cnonni  tikicc  c p 

CALLED  BY  THE 

ASTRONAUT 

BY  DSKY  ENTRY. 

ROO  50 
R0051 

dUdHULi  llNhb  LALLfcL 

1.  FLAGDOWN 
? rdprdth 

7.  S52.2 

8.  CAL53A 

13. 

L4._ 

NEWMODE  X 
PRIOLARM 

rvU  tEil  6 

R0053 

c • r>  c.  lhj 

3.  G0PERF4 

9.  FLAGUP 

R0054 

4.  MATMOVE 

10.  R 56 

ROO  55 

5 . GOF  LA  SH 

11.  R 51 

ROO  56 

6.  S52.3 

12.  G0PERF3 

R0057  NORMAL  EXIT  MODES- 
R0058  EXITS  TO  ENDO  F JOB 


R0059  ALARM  OR  ABORT  EXIT  MODES- 
R0060  NCNE 

R0061  OLTPUT- 


R0062 

R0063 

R0064 

R0065 

R0066 

R0067 

R0068 

R0069 


TEE  FOLLOWING  MAY  BE  FLASHED  ON 

1.  IMU  ORIENTATION  CODE 

2.  ALARM  CODE  215  -PREFERRED 

3.  TIME  OF  NEXT  IGNITION 

4.  GIMBAL  ANGLES 

5.  ALARM  CODE  405  -TWO  STARS 

6.  PLEASE  PERFORM  POO 

TEE  MODE  DISPLAY  MAY  BE  CHANGED 


THE  DSKY 

IMU  ORIENTATION  NOT  SPECIFIED 

NOT  AVAILABLE 
TO  20 


R0070 

ERASABLE 

INITIALIZATION  REQUIRED- 

R0071 

P FRATFLG 

S HOU  LD 

BE  SET  IF 

A PREFERRED  ORIENTATION  HAS  BEEN  COMPUTED. TF  IT  HAS  BEFN  COMPUTED  IT  IS  STORED  IN 

R0073 

X SMD 

,YSMD 

, ZSMD. 

R0074 

RNDV  ZFLG 

INDI CATES  WHETHER 

THE  RENDEZVOUS 

NAVIGATION  PROCESS 

I S OPERATING. 

R0076 

DEBR  I S- 

R0077 

w r RK 

A RF  A 

0078 

33,3755 

BANK 

33 

0079 

REF 

2 

LAST 

265 

15,2000 

SETLOC 

P 50  S 

0080 

15,2050 

BANK 

0081 

REF 

3 

LAST 

21  1 

E 5 , 1755 

EBANK= 

BEST  I 

0082 

REF 

1 

COUNT  * 

$ $/P  52 

0085 

REF 

245 

LAST 

895 

15,2050 

0 4616  1 PROG52 

TC 

BANKCALL 

0086 

REF 

11 

LAST 

839 

15, 2051 

11175  l 

CADR 

R02  BOTH 

IMU  STATUS  CHECK 

0087 

REF 

— 1_ 

15, 2052 

3 4750  1 

CAF 

PFRA  TBI T 

0088 

REF 

26 

LAST 

86  3 

15,2053 

7 0076  1 

MASK 

FLAGWRD2 

IS  PFRATFLG  SET? 

0089 

REF 

283 

LAST 

923 

15, 2054 

10  000  0 

CCS 

A 
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0090 

REF 

1 

15,2055 

0 2060 

0 

TC 

P 52  A 

YES 

0091 

REF 

48 

LAST 

906 

15,2056 

3 4752 

0 

CAF 

BIT2 

NO 

REF 

2 

L a^T 

Q?  7 

1 % 2 057 

0 70  61 

1 

TC 

P 52  A +1 

0093 

REF 

46 

LAST 

853 

15,2060 

3 4753 

1 

P52  A 

CAF 

B I T 1 

0094 

REF 

7 

LAST 

733 

15,2061 

55' 145 

1 

TS 

OPT  I 0N2 

oo  QS 

R FF 

47 

LAST 

9 2 7 

15,2 062 

3 4753 

1- 

P52B 

CAF 

B I T1 

0096 

REF 

246 

LAST 

926 

15,2063 

0 46  16 

1 

TC 

BANKCALL 

FLASH  OPTION  CODE  AND  ORIENTATION  CODE 

0097 

REF 

1 

15, 2064 

20566 

0 

CADR 

GOPE  RF4R 

FLASH  V04N06 

0098 

REF 

41 

LAST 

895 

15,2065 

0 6001 

0 

TC 

GOTO  POOH 

0099 

15, 2066 

1 2073 

0 

TC  F 

+ 5 

V33-PROCEED 

0100 

REF 

1 

15, 2067 

0 2062 

1 

TC 

P 52  B 

NEW  CODE  - NEW 

ORIENTATION  CODE  INPUT 

0101 

REF 

81 

LAST 

863 

15,2070 

0 5353 

1 

TC 

PHASCHNG 

DISPLAY  RETURN 

0102 

15, 2071 

00014 

1 

OCT 

00014 

0103 

REF 

L42 

LAST 

895 

15,2072 

0 5155 

0 

TC 

ENDOFJOB 

0104 

REF 

8 

LAST 

92  7 

15,2073 

3 1145 

0 

CA 

OPTION? 

0105 

REF 

28 

LAST 

86  7 

15, 2074 

7 6244 

1 

MASK 

THREE 

0106 

REF 

? 84 

LAST 

926 

15,  2075 

5 0 000 

L. 

INDEX 

A 

0107 

15,2076 

0 2077 

0 

TC 

+ 1 

0108 

REF 

1 

15,2077 

0 2105 

1 

TC 

P 52  T 

0109 

R EF 

4 

15,2 100 

0 2166 

1 

TC 

P 52H 

0110 

REF 

2 

LAST 

92  7 

15,2101 

0 2105 

1 

TC 

P 52  T 

0111 

REF 

163 

LAST 

9 19 

15,2  102 

0 6036 

1 

P52E 

TC 

INTPPET 

0112 

15, 2 103 

77650 

1 

GOTO 

0113 

REF 

1 

15,2104 

32162 

0 

P52F 

0114 

15,2105 

0 0006 

1 

P52T 

EXTEND 

0115 

REF 

26 

LAST 

905 

15,2 106 

3 4755 

1 

DC  A 

NEGO 

0116 

REF 

26 

LAST 

73  3 

15,2107 

5 3' 046 

0 

DXCH 

DSPT EMI 

0117 

REF 

1 

15,2110 

3 2172 

1 

CAF 

V06N34* 

01171 

REF 

247 

LAST 

927 

15,2111 

0 4616 

1 

TC 

BANKCALL 

01172 

REF 

26 

LAST 

854 

15,2112 

20351 

1 

CADR 

GOFL ASH 

0118 

REF 

42 

LAST 

92  7 

15,2  113 

0 6001 

0 

TC 

GOTO  POOH 

0119 

15,2114 

0 2116 

0 

TC 

+ 2 

0120 

15,2115 

0 2110 

0 

TC 

-5 

0121 

REF 

27 

LAST 

927 

15,2116 

5 3 ' 046 

0 

DXCH 

DSPT  EMI 

0122 

15,2117 

0 0006 

1 

EXTEND 

0123 

15,2120 

6 2122 

1 

BZMF 

+ 2 

IF  TIME  ZERO  OR 

NEC,  USE  TIME2 

0124 

15,2121 

1 2124 

0 

TC  F 

+ 3 

0125 

15,2  122 

0 0006 

1 

EXTEND 

0126 

REF 

27 

LAST 

894 

15,2  123 

3 0025 

0 

DC  A 

T IME2 

0127 

REF 

3 

LAST 

217 

15,2124 

5 3 ' 7 7 5 

1 

DXCH 

TALI GN 

0128 

REF 

- 9 

LAST 

92  7 

15,2125 

3 1145 

0 

P52  V 

CA 

OPT  I 0N2 

0130 

REF 

49 

LAST 

927 

15,2126 

7 4752 

1 

MASK 

B I T 2 

0131 

REF  285 

LAST 

927 

15,2127 

10  000 

0 . 

CCS 

A 

0132 

REF 

1 

15,2130 

0 2134 

0 

TC 

P 52  W 

0133 

REF  164 

LAST 

92  7 

15,2131 

0 6036 

1 

TC 

INTPPET 

OPTION  4 - GET 

LS  ORIENTATION 

0134 

15,2 132 

77650 

1 

GOTO 

0135 

. REF 

L 

15,2133 

32223 

0__ 

P52LS 
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P0151 

START  ALIGNMENT 

D C C 1 1 ACT  Q 97 

15 ,2 134 

0 60  36 

_1 

P52  W 

TC 

I NTPRET 

0153 

15,2135 

77745 

1 

DLOAD 

0154 

REF 

4 

LAST 

92  7 

15,2136 

02775 

0 

TAL I GN 

ri  1 c K 

15,2  137 

77624 

_1 

CALL 

U i ->  -? 

0156 

REF 

1 

15,  2 140 

31566 

0 

S 52  . 3 

0157 

15,  2141 

77624 

1 

P52D 

CALL 

0158 

REF 

15, 2 14  2 

31  534 

1 

-S52 . 2 

0162 

15, 2143 

77776 

1 

EX  IT 

0163 

REF 

1 

15,2144 

3 2171 

1 

CAF 

V06N22* 

0164 

REF 

248 

LAST 

-92  7 

15,-2  145 

--0--4616 

JU 

TC 

BANKCALL 

0165 

REF 

27 

LAST 

92  7 

15,2 146 

20351 

1 

CADR 

GOFL ASH 

0166 

REF 

43 

LAST 

927 

15,2147 

0 6001 

0 

TC 

GOTOPOCH 

0167 

REF 

1_ 

15,2 150 

1 2174 

3) 

TCF 

COAP  STYP 

0168 

REF 

166 

LAST 

92  8 

15,2151 

0 6036 

1 

TC 

I NTPRET 

0169 

15,  2 152 

77650 

1 

GOTO 

01  70 

REF 

1 

15.  7 1 5 3 

32141 

1 

_ P52D 

0171 

REF 

167 

LAST 

92  8 

15,2154 

0 6036 

1 

REGCOARS 

TC 

I NTPRFT 

0172 

15, 2 155 

77624 

1 

CALL 

0173 

REF 

1— 

15,2  156 

31172 

1 

CAL53A 

0174 

15,2157 

43014 

0 

SET 

CLEAR 

0175 

REF 

2 

LAST 

689 

15, 2160 

01462 

0 

REFSMFLG 

0 176 

R-EF 

2 

LAST 

776 

15,2 161 

01273 

o 

PFRATFLG 

0177 

15, 2162 

77624 

1 

P52F 

CALL 

0178 

REF 

1 

15,2163 

30656 

1 

R 51 

0179 

15,2 164 

77776 

1 

P520UT 

EX  I T 

0180 

REF 

44 

LAST 

92  8 

15,2165 

0 6001 

0 

TC 

GOTOPOOH 

0181 

REF 

168 

LAST 

928 

15,2166 

0 6036 

1 

P52H 

TC 

I NT P PET 

0182 

15, 2167 

77650 

-1 

GOTO 

0183 

REF 

2 

LAST 

92  8 

15, 2 170 

32141 

1 

P 52  D 

0196 

REF 

5 

LAST 

76  9 

5006 

V/RO  FNIOQ 

n 6 M OQ 

0197 

15,2171 

014  2 6 

0 

V DU  J !iU  “ 

V06N22* 

VN 

V U J I't  U 7 
00622 

0198 

15,2 172 

01442 

1 

V06N34* 

VN 

634 

0199 


15,2173 


01531  1 V06N89*  VN 


0689 
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PICK  UP  ALIGN  TIME 
COMPUTE  NOMINAL  I MU 
ORIENTATION 

READ  VEHICLE  ATTITUDE  AND 
COMPUTE  GIMBAL  ANGLES 


DISPLAY  GIMBAL  ANGLES 


V33-PROCEEO,  SEE  IF  GYRO  TORQUE  COARSE 
RECYCLE  - VEHICLE  HAS  BEEN  MANUEVERFD 


DO  COARSE  ALIGN 
ROUTINE 


PREFERRED  OPTION,  GO  COMPUTE  GIMBALS 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L P51-P53 


P0200 

CHECK  FCR  CRRO 

TORQUE  COARSE 

AL  IGNMENT 

0201 

REF 

1 

15 , 2 174 

3 2222 

1 

COARSTYP 

CAF 

0CT1  3 

0202 

REF 

2 49 

LAST 

9 2R 

15,2 175 

-CL  46  16 

-1 

TC 

BANKCALL 

0203 

REF 

5 

LAST 

793 

15,2176 

20476 

0 

CADR 

G0PERF1 

0204 

REF 

45 

LAST 

92  8 

15, 2 177 

1 6001 

1 

TC  F 

GOTO  POOH 

REF 

1 

15,2200 

1 2154 

1 

TC  F 

REGCOARS 

0206 

REF 

169 

LAST 

92  8 

15,2201 

0 6036 

1 

TC 

I NTPPET 

0207 

15, 2202 

64375 

1 

VLOAD 

MXV 

n?08 

REF 

4 

LAST 

164 

15, 2203 

03605 

1 

XSMD 

0209 

REF 

38 

LAST 

88  1 

15,2204 

01734 

0 

REFSMMAT 

0210 

15,2205 

77656 

1 

UNIT 

02  11 

REF 

3 

LAST 

13  8 

15,2206 

266  65 

0 

STOVL 

XDC 

0212 

REF 

3 

LAST 

162 

15,2207 

03613 

0 

YSMD 

0213 

15, 2210 

53521 

1 

MX  V 

UNI  T 

02  14 

R FF 

3_9 

| AST 

92  9 

15,2211 

01734 

0 

REFSMMAT 

0215 

REF 

3 

LAST 

138 

15,2212 

26673 

1 

STOVL 

YDC 

0216 

REF 

3 

LAST 

163 

15,2213 

03621 

1 

ZSMD 

02  1 7 

15,2214 

53521 

1 

MXV 

UNIT 

0218 

REF 

40 

LAST 

929 

15,2215 

01734 

0 

R EFSMMAT 

0219 

REF 

3 

LAST 

138 

15,2216 

36701 

1 

STCALL 

Z DC 

0220 

REF 

1 

15,2217 

31025 

1 

GYCOARS 

02201 

15,2220 

77650 

1 

GOTO 

02202 

REF 

1 

15,2221 

32164 

0 

P 520  UT 

0221 

15,2222 

00013 

0 

0CT13 

OCT 

1 3 
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DISPLAY  V 50N25  WITH  COARSE  ALIGN  OPTION 

V 34-TERM  I N SOE 
V33-N0RMAL  COARSF 
V32-GYR0  TORQUE  COARSE 


GET  SM(DESIREO)  WRT  SMI  PRESENT) 


GAP: 

L 

P0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

02  30 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

02  39 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 
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COMPUTE  LANDING  ORIENTATION  FOR  OPTION  4 


DCC 

A 

1 A^T 

795 
6 6 6 

15. 2223 

15. 2224 

15.2225 

15. 2226 

15.2227 

43014 

01463 

0 P52LS 

1 

SET 

CLEAR 
LUNA  FLAG 

GET  LANDING  SITE  ORIENTATION 

Ktr 

REF 

2 

L /A  ^ I 

LAST 

00662 

77201 

00001 

0 

1 

0 

SFTPD 

EF  AD FLAG 
VLOAD 
0 

TO  PICK  UP  RLS 

REF 

8 

LAST 

843 

15,2230 

02023 

1 

RLS 

PICK  UP  LANDING  SITE  VEC  IN  MF 

15,2231 

41525 

0 

PDOL 

PUSH 

RLS  PD  0-5 

REF 

s 

LAST 

928 

15, 2232 

02775 

0 

TAL I GN 

15,2233 

77624 

1 

CALL 

RFF 

3 

LAST 

843 

15,2234 

51504 

1 

RP-TO-R 

TRANS  RLS  TO  REF 

15, 2235 

77742 

0 

VSR2 

REF 

4 

LAST 

795 

15,2236 

16032 

1 

STODL 

ALPH AV 

INPUT  TO  LAT-LONG 

REF 

6 

LAST 

930 

15,2237 

02775 

0 

TALIGN 

15,2240 

77624 

1 

CALL 

REF 

3 

LAST 

79  5 

15,2241 

26351 

1 

LAT-LONG 

GET  LAT,  LONG,  AND  ALT 

15,2242 

70545 

1 

DLOAD 

SRI 

RESCALE  LONG  TO  DEGREES/2 

REF 

9_, 

LAST 

60^4 

15,2  243 

01123 

0 

LONG 

REF 

3 

LAST 

33  1 

15, 2244 

16711 

1 

STODL 

LANDLONG 

REF 

3 

LAST 

32  9 

15, 2245 

01125 

0 

ALT 

REF 

2— 

LAST 

33  1 

15, 2 246 

16713 

0 

STODL 

L ANDAL  T 

ALT  ALREADY  AT  2(29)  METERS 

REF 

3 

LAST 

329 

15,2247 

01121 

1 

LAT 

REF 

3 

LAST 

33  1 

15,2250 

02707 

0 

STORE 

L ANDLAT 

15,2251  77776  1 EXIT 


REF 

1 

15,2252 

3 2173 

0 LSD  I SP 

CAF 

V 06N 89* 

DISPLAY  LAT, LONG/2,  ALT 

REF 

2 50 

LAST 

92  9 

15,2253 

0 46  16 

1 

TC 

BANKCALL 

REF 

28 

LAST 

928 

15,2254 

20351 

1 

CADR 

GOFL  ASH 

REF 

46 

LAST 

929 

15,2255 

1 6001 

1 

TCF 

GOTO  POOH 

VB34  TERMINATE 

1 5,  2256 

1 22  60 

0 

TCF 

+ 2 

VB33  PROCEED 

REF 

1 

15,2257 

1 2252 

1 

TCF 

LSDI SP 

VB32  RECYCLE 

REF 

170 

-LAST 

929 

15, 2260 

0 6036 

1 

TC 

I NTF  RFT 

15, 2261 

72545 

0 

DLOAD 

SL1 

REF 

4 

LAST 

930 

15,2262 

02711 

l 

LANDLONG 

REF 

10 

LAST 

9 3 0 

15,2  263 

15123 

0 

STODL 

LONG 

REF 

3 

LAST 

930 

15,2264 

02713 

0 

LANDALT 

REF 

4 

LAST 

930 

15, 2265 

15125 

0 

STODL 

ALT 

REF 

4 

LAST 

930 

15,2266 

02707 

0 

LANDLAT 

REF 

4 

LAST 

930 

15,2267 

15121 

1 

STODL 

LAT 

REF 

7 

LAST 

930 

15,2270 

02775 

0 

TALIGN 

15, 2271 

77624 

1 

CALL 

REF 

1 

15,2272 

26422 

1 

L AL  D TOR V 

15,2273 

53575 

0 

VLOAD 

UNIT 

COMPUTE  LANDING  SITE  FIR  IENT  (XSMD) 

REF 

5 

LAST 

930 

15,2274 

02032 

1 

ALPHAV 

REF 

5 

LAST 

929 

15,2275 

37605 

0 

STCALL 

X SMD 

REF 

1 

15,2276 

33647 

1 

L S OR  I ENT 

15,2277 

77650 

1 

GOTO 

REF 

3 

LAST 

92  8 

15,2300 

32141 

1 

P52D 

NOW  GO  COMPUTE  GIMBAL  ANGLES 

GAP 
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L 

P0269 

R0270 

R0271 

R0272 

R0273 

R0274 

R0275 

R0276 

R02  77 
R0278 


R0279 

R0280 


R0281 

R0282 


R0283 

R0284 

R0285 

R0286 

R0287 

R0288 

R0289 

R0290 

R0291 

R0292 


R0293 

R0294 


R0295 

R0296 

R0297 

R0298 

R0299 

R0300 

R0301 

R0302 

R0303 


P 5 1-P  53  USER'S  PAGE  NO.  7 E5  S3 

NAME  -S50  ALIAS  LOCSAM 
BY 

VINCENT 

FUNCTION  - COMPUTE  INPUTS  FOR  PICAPAR  AND  PLANET 
DEF INE 


U = UNIT!  SUN  WRT  EARTH) 

ES 

— U -UN4TI  MOON  UR  T EARTH) 

EM 

R -POSITION  VECTOR  OF  LEM 

L 

R -MEAN  DISTANCE  (384402KM)  BETWFEN  EARTH  AND  MOON 
EM 

P-  -RATIO  R /(DISTANCE  SUN  TO  EARTH)  >.00257125 

EM 

R -EQUATORIAL  RADIUSS  I6378.166KM)  OF  EARTH 
E 

LOCSAM  COMPUTES  IN  EARTH  INFLUENCE 


V SUN = U — 

ES 

VEARTH — ■=  -UNIT  (— R-  -A— 

L 


V MOON  = UN  I T ( R .U  - -R ) 

EM  EM  L 


C SUN  = CCS  90 


CEARTH  = COS ( 5 +ARCS I N( R / M AG ( R ))) 

E L 


CMCON  = COS  5 


INPUT  - TIME  IN  MPAC 
OUTPUT  - LISTED  ABOVE 
SUBROUTINES  -L SPOS , LEMPRE C 
DEBRIS  - VAC  AREA  , T S I GHT 


GAP: 

L 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

03  25 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 
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REF 

REF 

2 

16 

LAST 

LAST 

LAST 

60 
4.0  1 

14,2000 
14,  2347 
P 6. 1 

SETLOC 
BANK 
E BANK  = 

P 5 0 S 1 
XSM 

REF 

2 

60  TO  60: 

8 

8* 

COUNT  * 

% $/LOSAM 

REF 

1 

14, 2347 

S 50 

= 

LOCSAM 

14, 2347 

77620 

0 

LOCSAM 

STQ 

R FF 

2 

LAST 

13  9 

14,2350 

02745 

0 

QMIN 

REF 

2 

LAST 

273 

14, 2351 

37560 

0 

STCALL 

TSIGHT 

REF 

1 

14, 2352 

33663 

1 

LSPOS 

1 4, ? 353 

77745 

1 

□ LOAD 

REF 

3 

LAST 

932 

14,2354 

03560 

1 

TSIGHT 

REF 

52 

LAST 

840 

14, 2355 

34041 

0 

STCALL 

TDEC  1 

REF 

12 

LAST 

84  0 

14,2  356 

27057 

0 

LEMPREC 

14,2357 

61131 

0 

SSP 

T IX  , 2 

REF 

9 

LAST 

729 

14, 2360 

00052 

0 

S 2 

14, 2 36 1 

00000 

1 - 



0 

REF 

1 

14, 2362 

30404 

1 

MOONCNTR 

14,  2 363 

74375 

0 

EAR  TCNTR 

VLOAD 

VXSC 

REF 

3 

LAST 

499 

14, 2 364 

02723 

0 

VMOCN 

REF 

1 

14,2365 

30001 

0 

RSUBEM 

14,2366 

52372 

0 

VS  L 1 

VSU 

REF 

30 

LAST 

840 

14,  2367 

00001 

0 

RATT 

14,2370 

77656 

1 

UNIT 

REF 

4 

LAST 

932 

14,2371 

26723 

0 

STOVL 

VMOON 

REF 

31 

LAST 

932 

14,2  372 

00001 

0 

P ATT 

14,2  373 

57456 

1 

UNIT 

VCOMP 

REF 

3 

LAST 

139 

14,2374 

16707 

0 

STOOL 

VEAP  TH 

REP 

1 

14,  2 375 

30005 

1 

RSUB  E 

14,2376 

77624 

1 

CALL 

REF 

1 

14,2377 

30436 

0 

occos 

REF 

1 

14, 2 400 

14017 

1 

STOOL 

CEAR  TH 

REF 

1 

14,2401 

30445 

1 

CSS5 

REF 

1 

14,2402 

34023 

1 

STCALL 

C MOON 

RE-F 

1 

14, 2403 

30431 

1 

ENDS  AM 

14,  2 404 

74375 

0 

MOONCNTR 

VLOAD 

VXSC 

REF 

5 

LAST 

932 

14,  2405 

02723 

0 

VMOON 

REF 

1 

14,  2 406 

30007 

o 

ROE 

14,2407 

53445 

1 

BVSU 

UNIT 

REF 

2 

LAST 

139 

14,2410 

02715 

0 

VSUN 

REF 

3 — 

LAST 

932 

14,2411 

26  715 

0 

STOVL 

V SUN 

REF 

6 

LAST 

932 

14,2412 

02723 

0 

VMOON 

14,  2413 

53361 

0 

VXSC 

VAO 

REF 

2 

LAST 

932 

14,2414 

30001 

0 

R SUB  EM 

REF 

32 

LAST 

93  2 

14, 2415 

00001 

0 

RATT 

14, 2416 

57456 

1 

UNIT 

VCOMP 

REF 

4 

1 AST 

93  2 

14, 2417 

26707 

0 

STOVL 

V EAR  TH 

REF 

33 

LAST 

932 

14,2420 

00001 

0 

RATT 

14, 2421 

57456 

1 

UNIT 

VCOMP 
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L 

P51- 

P53 

0352 

REF 

7 

LAST 

932 

14,2422 

16723 

0 

STOOL 

V MOON 

0353 

REF 

1 

14, 2423 

30003 

1 

P SUB  M 

14,2  424 

77624 

1 

CALL 

0355 

REF 

2 

LAST 

93  2 

14, 2425 

30436 

0 

OCCOS 

0356 

REF 

2 

LAST 

932 

14,2426 

14023 

0 

STOOL 

CMOON 

03  s 7 

R FF 

2 

LAST 

93  2 

14, 2427 

30445 

1 

CSSS 

0358 

REF 

2 

LAST 

932 

14,2430 

00017 

1 

STORE 

CEARTH 

0359 

14, 2431 

77745 

1 

ENDSAM 

OLOAO 

REF 

1 

14,2432 

30447 

0 

CSSUN 

0361 

REF 

1 

14,2433 

00021 

l 

STORE 

CSUN 

0362 

14, 2434 

77650 

1 

GOTO 

0363 

JUEF 

3 

LAST 

93  2 

14,2435 

02745 

0 

QMIN 

0364 

14,2436 

70471 

1 

OCCOS 

DDV 

SRI 

0365 

14,2437 

00045 

0 

36D 

0366 

14,2440 

43336 

0 

AS  IN 

DAD 

0367 

REF 

1 

14, 2441 

304  51 

1 

5DEGREES 

0368 

14, 2442 

70546 

1 

COS 

SRI 

14, 2 443 

77616 

0 

RVQ 

0370 

0016 

CEARTH 

14D 

0371 

0020 

CSUN 

= 

160 

0^72 

0022 

CMOON 

18D 

0373 

14,2444 

07760 

1 

CSS5 

2DEC 

.249  0475 

0373 

14,2445 

14473 

1 

0374 

1 4,-2446 

04000 

0 

CSSUN 

2DEC 

. 125 

0374 

14,  2447 

00000 

1 

0375 

14,2450 

00343 

0 

5DEGPEFS 

20EC 

. 01 3 888889 

0375 

14,2451 

21616 

0 
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(COS  51/4 
(C0S60I/4 


SCALED  IN  REVS 
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P0380  PROGRAM  NAME  - R56  DATE  DEC  20  66 

R0381  MCC  1 LOG  SECTION  P51-P53 

P0382  ASSEMBLY  SUNDISK  REV40 

R0383  BY  KEN  VINCENT 
R0384 

R0385  FUNCTION 

R0386  THIS  PROGRAM  R E AO  THE  IMU-CDUS  AND  COMPUTES  THE  VEHICLE  ORIENTATION 

R0387  WITH  RESPECT  TO  INERTIAL  SPACE.  IT  THEN  COMPUTES  THE  SHAFT  AXIS  (SAX) 

R0388  WITH  RESPECT  TO  REFERENCE-  INERTIAL.  EACH  STAR  IN  THE  CATALOG  IS  TESTED 

R0389  TO  DETERMINE  IF  IT  IS  OCCULTED  BY  EITHER  THE  EARTH, SUN  OR  MOON.  IF  A 

R0390  STAR  IS  NOT  OCCULTED  THEN  IT  IS  PAIRED  WITH  ALL  STAR  OF  LOWER  INDEX. 

R0391  THE  PAIRED  STAR  IS  TESTED  FOR  OCCULTATION.  PAIRS  OF  STARS  THAT  PASS 

RO 392  THE  OCCULTATION  TESTS  ARE  TESTED  FOR  GOOD  SEPARATION. A PAIR  OF  STARS 

R0393  HAVE  GCOD  SE  PE  RAT  ION  IF  THE  ANGLE  BETWEEN  THEM  IS  LESS  THAN  100  DEGREES 

R0394  AND  MORE  THAN  50  DEGREES.  THOSE  PAIRS  WITH  GOOD  SEPARATION 

R0395  ARE  THEN  TESTED  TO  SEE  IF  THEY  LIE  IN  CURRENT  FIELD  OF  VIEW. (WITHIN 

R0396  50  DEGREESCF  SAX). THE  PAIR  WITH  MAX  SEPARATION  IS  CHOSEN  FROM 

R0397  THCSE  WITH  GOOD  S EP ARAT I ON , AND  IN  FIELD  OF  VIEW. 

R0398 

R 0399  CALLING  SECUENCE 

R0400  L TC  BANKCALL 

R0401  L+l  CADR  R 56 

R0402  L+2  ERROR  RETURN  - NO  STARS  IN  FIELD  OF  VIEW 

R0403  L+3  NORMAL  RETURN 

R0404 

R0405  OUTPUT 

R0406  BESTI  ,BESTJ  -SINGLE  PR  EC , INTE GE RS , ST AR  NUMBERS  TIMES  6 
R0407  VFLAG  - FLAG  BIT  SET  IMPLIES  NO  STARS  IN  FIELD  OF  VIEW 
R0408 

R0409  INITIALIZATION 

R0410  1 ) A CALL  TC  LOCSAM  MUST  BE  MADE 

R0411 

R0412  DEBRIS 
R0413  WCRK  AREA 
R0414  X , Y , ZNB 
R0415  SINCDU.COSCDU 
R0416  STARAC  - STAR  +5 


0417 

0418 

REF 

REF 

1 

1_ 

14, 2452 

R56 

COUNT  * 

PIC  A PAP 
$ $/R 56 

0419 

REF 

12 

LAST 

89  5 

14,2452 

0 4645 

1 

PICAPAR 

TC 

MAKECADR 

0420 

REF 

4 

LAST 

933 

14,2453 

55' 745 

1 

TS 

QMIN 

0421 

REF 

171 

LAST 

930- 

14,2454 

0 6036 

1 

TC 

INTPPET 

0422 

14,2455 

77624 

1 

CALL 

0423 

REF 

4 

LAST 

559 

14, 2456 

47443 

1 

CDUTRIG 

0424- 

14,2457 

77624 

1 

CALL 

0425 

REF 

1 

14,2460 

31267 

0 

CALCSMSC 

0426 

14,2461 

77601 

0 

SETPD 

0427 

14,2462 

00001 

0 

0 

0428 

14,2463 

71214 

0 

SET 

DL3AD 

VFLAG 

0429 

REF 

1 

14,2464 

01465 

1 

VFLAG 

934 


GAP: 


ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY 


L 

P51- 

P 53 

0430 

REF 

I 

14,2465 

22275 

1 

0431 

REF 

4 

LAST 

926 

14, 2466 

26756 

1 

3 

l AS  T 

39  4 

14,  2 467 

02665 

0 

0433 

14, 2470 

63361 

0 

0434 

REF 

i 

14,2471 

22273 

1 

REF 
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CULTED 
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1 
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0 

R51C 

REF 
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REF 
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LAST 
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14, 2663 
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0 

REF 

47 

LAST 
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14, 2664 

0 6001 

0 
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REF 

1 

14, 2666 

0 2712 

1 

REF 
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LAST 

934 

14,2667 

0 6036 

1 

14, 2670 

432  34 

0 

REF 

23 

LAST 

853 

14, 2671 

21462 

1 

REF 

1 

14,2672 

31024 

0 

1 4,  2 673 

776  24 

1 

REF 

2 

LAST 

932 

14, 2674 

30347 

1 

14,2675 

77776 

1 

REF 

2 52 

LAST 

93  8 

14,2676 

0 4616 

1 

REF 

1 

14,2677 

30452 

1 

REF 

1 

14,2700 

0 2702 

0 

REF 

2- 

LAST 

9 3 8 

14,  2 701 

0 2712 

J 

R51F 

REF 

36 

LAST 
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14, 2702 
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0 
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14, 2703 
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0 

REF 

_4_ 
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1 

REF 
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LAST 

938 

14, 2705 

0 4616 

1 

REF 

29 

LAST 
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14,2706 

20351 

1 

RFF 

48 

LAST 
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14, 2707 

0 6001 
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REF 
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LAST 
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14, 2710 
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REF 
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14, 2711 
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REF 
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LAST 
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14,2712 
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REF 
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14, 2713 
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REF 
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LAST 
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1 
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77776 

1 

R51 .3 

REF 
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LAST 
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14,2716 

0 5353 

1 

14, 2717 
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1 

14,2720 

13000 

0 

REF 
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LAST 

938 

14,2721 

0 6036 

1 

14, 2722 

77624 

1 
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l_ 
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14, 2724 
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l 

REF 
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LAST 
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1 

REF 
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REF 
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1 
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14,2734 

0 3006 

1 

TC 
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REF 
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LAST 
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14,2735 
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1 

TC 

I NTPRET 
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14,2736 

77775 
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0613 

REF 

14 

LAST 
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14,2737 

02715 

0 

STAPAD  +6 

0614 

REF 
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LAST 
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14, 2740 

02767 

0 
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0615 
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77776 

_L_ 
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0616 

REF 

83 

LAST 

9 3 8 

14, 2742 
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1 

TC 

PHASCHNG 

0617 
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05024 
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OCT 

05024 
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14, 2744 
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Q_ 
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13000 

0619 

REF 
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LAST 
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14,2745 
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1 

TC 
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14,2746 
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0 

DLOAD 
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REF 
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LAST 
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14,2747 
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1 

T S I G HT 
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REF 
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14,2750 

32540 

1 
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UNIT 
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LAST 

93  5 
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01734 

0 
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REF 
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LAST 
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LAST 
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14,2754 
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14,2756 
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0 
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REF 
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LAST 
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14,2757 
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0 
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STARAD 

0630 

REF 

3- 
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21  1 
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02761 

0 

STAR  SAV1 
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14, 2761 

24007 

0 

STOVL 

6 D 

0632 

REF 

6 

LAST 

939 

14,2762 

02767 

0 

STAR  SAV2 

0633 

14,2763 

34015 

1 

STCALL 

1 2D 

0634 

REF 

1 

14,2  764 

31121 

1 

R 54 

STAR 

DATA  TEST 

0635 

14,2765 

450  14 

0 

BOFF 

CALL 

0636 

REF 

L_ 

14,2  766 

00354 

0 

FREE  FLAG 

0637 

REF 

1 

14,2767 

30775 

1 

R 51  K 

0638 

REF 

1 

14,2770 

47345 

0 

AXISGEN 

06  3 9 

14,2771 

77624 

_L 

CALL 

0640 

REF 

1 

14, 2772 

31066 

0 

R 55 

GYRO 

TORQUE 

0641 

14, 2773 

77614 

1 

CLEAR 

0642 

REF 

3. 

LAST- 
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01273 

0 

P FR  A TEL G 
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14,  2 775 

77776 

1 

R51K 
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REF 

3 

LAST 
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0 

R51P63 

CAF 

0CT14 

0645 

REF 
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LAST 
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14,2777 
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1 

TC 
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064  6 

REF 

7 

LAST 

93  8 

14, 3000 

20476 

0 

CADR 

GOPE  PF1 

0647 

REF 

49 

LAST 
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14, 3001 
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0 

TC 

GOTOPOOH 

0648 

REF 

2 

LAST 

93  8 

14,3002 

0 2661 

1 

TC 

R 5 1 C 

0649 

REF 

1 77 

LAST 

93  9 

14, 3003 

0 6036 

1 

TC 

I NTPRET 

0650 

14,3004 

77650 

1 

GOTO 
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REF 
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LAST 
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14, 3005 
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ID 

QMAJ 

0652 

REF 

1 78 

LAST 

939 
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1 

R51 .4 

TC 

INTPPET 
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14, 3007 

77775 

1 
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0654- 

REF 

17 

LAST 
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02715 

0 

STARAD  +6 

0655 

REF 
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LAST 
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0 

STORF 
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LAST 

9 3 9 

14t  ^ 0]  5 

03552 

0 

STORE 

PLAN VEC 

0660 

14, 3016 

77731 

1 

SSP 

0661 

REF 

5 

LAST 

939 

14, 3017 

02  7 60 

1 

STAR IND 

1 4t  30?0 

00001 

0 

1 

0663 

14, 3021 

77650 

1 

GOTO 

0664 

REF 

l 

14, 3022 

30715 

1 

»51.3 

1 4t  3 0?  3 

00002 

0 TSIGHT1 

2DEC 

36000 

6 MIN  TO  MARKING 

0665 

14,3024 

06240 

l 

940 


GAP  : 
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P0666  GYRC  TORQUE  COARSE  ALIGNMENT 


0667 

14, 3025 

45020 

1 

GYCOARS 

ST  Q 

CALL 

REF  5 

1 AST 

93  9 

14, 3026 

02746 

0 

QFAJ 

0668 

REF  1 

14, 3027 

47151 

1 

CALCGTA 

0669 

14,3030 

43014 

0 

CLEAR 

CLEAR 

REF  2 

[ AST 

86  4 

14,3031 

01260 

1 

DRIFTFLG 

0671 

REF  3 

LAST 

928 

14, 3032 

01662 

1 

REFSMFLG 

0672 

14,3033 

77776 

1 

EX  IT 

0673 

R FF  1 

14, 3034 

3 30  65 

1 

CAF 

V16N20 

MONITOR  GIMBALS 

0674 

REF  257 

LAST 

939 

14,3035 

0 4616 

1 

TC 

BANKCALL 

0675 

REF  3 

LAST 

852 

14,3036 

20327 

0 

CADR 

GODS  PR 

0676 

REF  1 

14,3037 

3 3120 

1 

CA 

R55C  DP 

0677 

REF  258 

LAST 

94  1 

14,3040 

0 4616 

1 

TC 

BANKCALL 

0678 

REF  4 

LAST 

40  1 

14, 3041 

17276 

1 

CADR 

IMUPULSE 

LAST 

941 

1 4t  3042 

0 46  16 

1 

TC 

BANKCALL 

0680 

REF  8 

LAST 

39  1 

14, 3043 

17671 

1 

CADR 

IMUSTALL 

0681 

REF  2 

LAST 

939 

14, 3044 

0 5703 

0 

TC 

CURT  AINS 

D6R2 

REF  84 

LAST 

939 

14, 3045 

0 5353 

1 

TC 

PHASCHNG 

0683 

14, 3046 

05024 

1 

OCT 

05024 

0684 

14, 3047 

13000 

0 

OCT 

1 3000 

06  86 

REF  179 

LAST 

93  9 

14,3050 

0 6036 

1 

TC 

INTPRET 

0686 

14,3051 

75160 

1 

AXC  , 1 

AXC  , 2 

0687 

REF  6 

LAST 

930 

14,3052 

03604 

0 

X SMD 

0688 

RFF  44 

LAST 

9 39 

14, 3053 

01733 

1 

REFSMMAT 

0689 

14, 3054 

77624 

1 

CALL 

STORE  DESIRED  REFSMMAT 

0690 

REF  1 

14,3055 

31237 

0 

MATMOVE 

0691 

l 4,  3 056 

43014 

0 

CLEAR 

SET 

0692 

REF  4 

LAST 

939 

14,3057 

01273 

0 

PFRATFLG 

0693 

REF  4 

LAST 

94  1 

14,3060 

01462 

0 

REFSMFLG 

0694 

14,3061 

77624 

1 

CALL 

0695 

REF  1 

14, 3062 

31523 

1 

NCOARSE 

SET  DRIFT  AND  INITIALIZE  1/PIPADT 

06951 

14,3063 

77650 

1 

GOTO 

0696 

-REF 2 

LAST 

9 3 9 

1 4f  3064 

30775 

1 

R51K 

0697 

14, 3065 

04024 

0 

V16N20 

VN 

1620 

GAP 
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P0698 

R0699 

Q 0*7  no 

R 55  GYRO  TORQUE 

FUNCTION-CCMPUTE  AND  SEND  GYRO  PULSES 

r a i i r n r cc  n r ai  i d r c; 

KUlUU 

R07  01 
R0702 
R0703 

0704 

0705 

0706 

L/HLLl  ITU  JL  a U«LL  S S 

INPUT-  X , Y ,Z  DC-  R EFSMMAT  WRT 
OUTPUT-  GYRO  PULSES 
SUBROUTINES-  C AL C GT A, GOFL ASH, 
RFF  1 

14,3066 

RFF  7 1 4U  (0  7 1 4.3  06  7 

PRESENT 

GOOSPR, 

77620 

02745 

STABLE  MEMBER 

IMUFINE, I MU PULSE, GO PE RE  1 

COUNT*  t $ / R 55 
0 R55  STQ 

0 QMIN 

0707 

14,3070 

77624 

1 

CALL 

0708 

RFF 

2 

LAST 

94  1 

14, 3071 

47151 

1 

C AL  C GT  A 

0709 

14,  3072 

77776 

1 

PULSEM 

EXIT 

0710 

REF 

1 

14, 3073 

3 3117 

0 

R55.1 

CAF 

V06N93 

0711 

REF 

260 

LAST 

94  1 

14,  3 0 74 

0 4616 

1 

TC 

BANKCALL 

0712 

REF 

30 

LAST 

938 

14, 3075 

203  51 

1 

CADR 

GCFL ASH 

0713 

REF 

50 

LAST 

939 

14, 3076 

0 6001 

0 

TC 

GOTOPOOH 

0714 

REF 

1 

14,3077 

0 3101 

1 

TC 

R 55. 2 

0715 

REF 

1— 

14, 3 100 

0 3114 

o 

TC 

R55RET 

0716 

REF 

85 

LAST 

94  1 

14,3101 

0 5353 

1 

R55.2 

TC 

PHASCHNG 

0717 

14,3102 

00214 

0 

OCT 

0021  4 

0718 

REF 

2 

LAST 

94  1 

14,3 103 

3 3120 

-1— 

CA 

R55C  DR 

0719 

REF 

261 

LAST 

942 

14, 3 104 

0 4616 

1 

TC 

BANKCALL 

0720 

REF 

5 

LAST 

94  1 

14,3105 

17276 

1 

CADR 

I MJPULSF 

0721 

REE 

262 

LAST 

94  2 

14,  3 106 

0 46  16 

1 

TC 

BANKCALL 

0722 

REF 

9 

LAST 

94  1 

14,3107 

17671 

1 

CADR 

I MUSTALL 

0723 

REF 

3 

LAST 

941 

14,3110 

0 5703 

0 

TC 

CURTAINS 

0724 

REF 

86 

LAST 

94  2 

14,3111 

0 5353 

1 

TC 

PHASCHNG 

0725 

14,3112 

05024 

1 

OCT 

05024 

0726 

14,3113 

13000 

0 

OCT 

I 3000 

072  7 

REF- 

1-80 

LAST 

94  1 — 

14, 3 114 

0 6036 

1 

R55RET 

TC 

I NTP  RET 

072  8 

14,3115 

77650 

1 

GOTO 

0729 

REF 

8 

LAST 

942 

14, 3 116 

02  745 

0 

OMIN 

0730 

14,3  117 

01535 

0 

V06N93 

VN 

0693 

0731 

REF 

11 

LAST 

40  1 

14,3120 

02737 

0 

R55CDR 

ECADR 

OGC 

0732 

REF 

1 

14, 3121 

R 54 

= 

CHKS  DATA 

R0733 

ROUTINE 

NAME- 

CHKSDATA 

R0735 

MOD 

NC- 

0 

R0737 

MODIFICATION  BY-  LONSKE 

DATE-  JAN  9,  1967 
LOG  SECTION-  P51-P53 
ASSEMBLY- 


R0739  FUNCTIONAL  DESCRIPTION  - CHECKS  THE  VALIDITY  OF  A PAIR  OF  STAR  SIGHTINGS.  WHEN  A PAIR  OF  STAR  SIGHTINGS  ARE  MADE 

R0741  BY  THE  ASTRONAUT  THIS  ROUTINE  OPERATES  AND  CHECKS  THE  OBSERVED  SIGHTINGS  AGAINST  STORED  STAR  VECTORS  IN  THE 

R0743  COMPUTER  TC  INSURE  A PROPER  SIGHTING  WAS  MADE.  THE  FOLLOWING  COMPUTATIONS  ARE  PERFORMED. 


R0745 

R0746 

051 

052 

= 

OBSERVED  STAR  1 VECTOR 
OBSERVED  STAR  2 VECTOR 

R0747 

SSI 

= 

STOREO  STAR  1 VECTOR 

R0748 

SS2 

= 

STORED  STAR  2 VECTOR 

R0749 

Al 

= 

ARC  COS  I OS  1 - 0S2) 

R0750 

A2 

= 

ARCCOS ( SS 1 - SS2) 

R0751 

A 

= 

ABS (2( Al  - A2 ) ) 

GAP  : 

L 

R0752 

R0753 

R0754 

R0756 

R0758 

R0759 

R0760 

R0761 

R0762 

0763 

0764 

0765 

0766 

0767 

0768 

R0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0769 

0790 

0791 

0792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 

0801 

0802 
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TEE  ANGULAR  DIFFERENCE  IS  DISPLAYED  FOR  ASTRONAUT  ACCEPTENSE 
EXIT  MCDE  1.  FREEFLAG  SET  IMPLIES  ASTRONAUT  WANTS  TO  PROCEED 

2.— JTREEFLAG  RESET  IMPLIES  ASTRONAUT  WANTS  TO  RECYCLE  FRANCE) 

OUTPUT  - 1 .VERB  6 .NOUN  3-  DISPLAYS  ANGULAR  DIFFERENCE  BETWEEN  2 SETS  OF  STARS. 

2. STAR  VECTORS  FROM  STAR  CATALOG  ARE  LEFT  IN  6D  AND  12D. 

ERASAELE  INITIALIZATION  REQUIRED  - 

1 .MARK  VECTORS  ARE  STORED  IN  STARAD  AND  STARAD  +6. 

2. CATALOG  VECTORS  ARE  STORED  IN  6D  AND  12D. 

DEBRIS  - 


REF 

1 

COUNT  * 

$$/P  54 

14,3 12 1 

43020 

1 

CHKSDATA 

STQ 

SET 

REF 

9 

LAST 

942 

14, 3122 

02745 

0 

QMIN 

REF 

2 

LAST 

939 

14, 3123 

000  74 

1 

FREEFLAG 

14, 3 124 

77760 

0 

CHK.SAB 

AXC  ,1 

SET  XI  TO  STORE  EPHEMERI S 

DATA 

REF 

18 

LAST 

939 

14,3125 

02706 

1 

STARAD 

14,3126 

47773 

1 

CHKSB 

VL  DAD  * 

DOT* 

CAL.  ANGLE  THETA 

14,3127 

00001 

0 

0,1 

14,3130 

00007 

0 

6,1 

14,3131 

65552 

0 

SL1 

A C OS 

REF 

1 

14,3132 

00025 

0 

STORE 

THETA 

14, 3133 

43014 

0 

BOFF 

INVERT 

BRANCH  TO  CHKSD  IF  THIS  IS 

2ND  PASS 

REF 

— 3- 

CAST 

943 

14, 3134 

00354 

0 

FREEFLAG 

REF 

1 

14, 3 135 

31145 

0 

CHKSD 

REF 

4 

LAST 

943 

14,3136 

00174 

0 

FREEFLAG 

CLEAR  FREEFLAG 

14, 3137 

7L360 

1 

AXC  , 1 

DLOAD 

SET  XI  TO  MARK  ANGLES 

14,3140 

00006 

1 

6 D 

REF 

2 

LAST 

943 

14, 3141 

00025 

0 

THETA 

14, 3 142 

00023 

0 

STORE 

1 8D 

14,3143 

77650 

1 

GOTO 

REF 

1 

14,3144 

31126 

0 

CHKSB 

RETURN  TO  CAL.  2N0  ANGLE 

14,  3 145 

45345 

1 

CHKSD 

DLOAD 

DSU 

REF 

3 

LAST 

943 

14,3 146 

00025 

0 

THETA 

14, 3147 

00023 

0 

18D 

COMPUTE  POS  DIFF 

14, 3150 

47046 

0 

ABS 

RTB 

REF 

5 

LAST 

878 

14, 3151 

21516 

0 

SGNAGREE 

REF 

1 

14, 3 152 

01046 

1 

STORE 

NORM  TEM1 

14, 3153 

77414 

0 

SET 

EXIT 

REF 

5 

LAST 

943 

14, 3154 

00074 

1 

FREE  FLAG 

REF 

1 

14, 3155 

3 3171 

0 

CAF 

VB6N5 

REF 

263 

LAST 

942 

1 4,315  6 

0-46  16 

1 

TC 

BANKCALL 

REF 

31 

LAST 

942 

14, 3157 

20351 

1 

CADR 

GOFL  ASH 

REF 

51 

LAST 

942 

14, 3160 

1 6001 

1 

TCF 

GOTO  POOH 

REF 

— 1 

14,3161 

0 3166 

0 

TC 

CHKSDA 

PROCEED 

REF 

181 

LAST 

942 

14, 3162 

0 6036 

1 

TC 

I NTPPET 

14, 3163 

52014 

0 

CLEAR 

GOTO 

REF- 

6— 

LAST 

943 

14,3164 

00274 

0 

FREEFLAG 

REF 

10 

LAST 

943 

14, 3 165 

02745 

0 

QMIN 

REF 

182 

LAST 

943 

14,  3 166 

0 6036 

1 

CHKSDA 

TC 

I NT  P RET 

GAP: 

& 

0803 

0804 

0805 

R0806 

R0807 

R0808 

R0809 

R0810 

R 08  1 1 

R0812 

0813 

0814 

0815 

0816 

0817 

0818 

0819 

0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

0840 

0841 

0842 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0850 

0851 

0852 
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14,3167  77650  1 GOTO 

RFF  11  LAST  943  14,3170  02745  0 QMIN 

14,3171  01405  1 VB6N5  VN  605 

NAME  - CAL53A 

FUNCTION  -COMPUTE  DESIRED  GIMBAL  ANGLES  AND  COARSE  ALIGN  IF  NECESSARY 
CALLING  SEQUENCE  - CALL  CAL53A 
INFUT  - X , Y , Z SMD  ,CDUX,Y,Z 

OESIRED  GIMBAL  ANGLES  - THETAD,+l,+2 
OUTPUT  - THE  IMU  COORDINATES  ARE  STORED  IN  REFSMMAT 


SUBROUTINES  - 

S52.2, 

IMUCOARSE 

, IMUFINE 

REF 

1 

COUNT  * 

$ $/ R 50 

14,  3 172 

45020 

1 

CAL53A 

STQ 

CALL 

14, 3173 

00035 

1 

29D 

REF 

2 

LAST 

928 

14,  3 174 

31534 

1 

S52.2  MAKE  ONE  FINAL  COMP  OF  GIMBLE  ANGLES 

14,  3175 

66?  34 

1 

RTB 

SSP 

REF 

1 

14,3176 

31253 

1 

RDCDUS  READ  CDUS 

REF 

8 

LAST 

935 

14,3177 

00051 

0 

SI 

1 4, 3200 

00001 

o 

1 

14, 3201 

403  70 

1 

AXT  , 1 

SETPD 

14, 3202 

00003 

1 

3 

14f  3203 

00005 

1 

4 

14,3204 

70543 

1 

CALOOP 

DLOAD* 

SRI 

REF 

10 

LAST 

39  1 

14, 3205 

00325 

0 

THETAD  +3D,  1 

14, 3206 

70523 

1 

PDDL* 

SRI 

14,3207 

00005 

1 

4,1 

14, 3210 

51425 

0 

DSU 

ABS 

14, 3211 

452  06 

1 

PUSH 

DSU 

REF 

1 

14,3212 

31252 

0 

DEGR EE1 

14,3213 

71240 

1 

BMN 

DLOAD 

RFF 

1 

14f  3 2 14 

31226 

o 

CAL00P1 

14,3215 

51025 

1 

DSU 

BPL 

REF 

1 

14, 3216 

31253 

1 

DEG3 59 

REF 

2 

LAST 

9-44 

14,3217 

31226 

0 

CAL00P1 

14, 3220 

77624 

1 

COARFINE 

CALL 

REF 

1 

14,3221 

31506 

0 

COARSE 

14, 3222 

77624 

1 

CALL 

REF 

2 

LAST 

94  1 

14,3223 

31523 

1 

NCOARSE 

14, 3224 

77650 

1 

GOTO 

REF 

— 1— 

14,3225 

31230 

1 

F INECNLY 

14,3226 

77700 

0 

CAL00P1 

T I X , 1 

REF 

1 

14,3227 

31204 

0 

CALOOP 

14,3230 

75160 

1 

F INEONLY 

AXC , 1 

AXC  ,2 

REF 

17 

LAST 

932 

14,3231 

02642 

0 

X SM 

REF 

45 

LAST 

941 

14,3232 

01733 

1 

REFSMMAT 

14,3233 

77624 

1 

CALL 

REF 

2 

LAST 

94  1 

14, 3234 

31237 

0 

MATMCVE 

14,3235 

77650 

1 

GOTO 

14, 3236 

00035 

1 

29D 

14,3237 

77773 

1 

MATMOVE 

VLOAD* 

TRANSFER  MATRIX 

14, 3240 

00001 

0 

0,1 
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0853 

14, 3241 

10001 

1 

STORE 

0,2 

0854 

nocc 

14,  3242 

77773 

1 

VLOAD* 

14,  3243 

00007 

_0— 

6D , 1 

UoDD 

0856 

14,  3244 

10007 

1 

STORE 

6D  , 2 

0857 

14, 3245 

77773 

1 

VLOAD* 

08  58 

14, 3246 

00015 

0- 

12D,J 

0859 

14, 3247 

10015 

1 

STORE 

1 2D  , 2 

0860 

14,3250 

77616 

0 

RVQ 

086 1 

14, 3251 

00056 

1 

DEGREE1 

DEC 

46 

0862 

14,3252 

37722 

1 

DEG359 

DEC 

1633  8 

0863 

14, 3253 

0 0004 

0 

R DC  DUS 

INHINT 

0864 

REF 

16 

LAST 

910 

14, 3254 

3 0032 

0 

CA 

C DU  X 

0865 

REF 

27 

LAST 

920 

14, 3255 

50  120 

1 

INDEX 

F I X L OC 

0866 

14,3256 

54  001 

1 

TS 

1 

0867 

REF 

7 

LAST 

910 

14, 3257 

3 0033 

_1 

CA 

CDUY 

0868 

REF 

28 

LAST 

945 

14, 3260 

50  120 

1 

INDEX 

F IXL  OC 

0869 

14, 3261 

54  002 

1 

TS 

2 

0870 

REF 

10 

LAST 

9 10 

14, 3262 

3-0034 

0 

CA 

CDU2 

0871 

REF 

29 

LAST 

945 

14, 3263 

50  120 

1 

INDEX 

F I X L OC 

0872 

14, 3264 

54  003 

0 

TS 

3 

0873 

14, 3265 

0 0003 

1 

RELINT 

0874 

REF 

1 

14,3266 

0 6060 

1 

TC 

DANZ  1G 

0875 

REF 

1 

COUNT  * 

ii/ I NFLT 

0676 

14,3267 

77760 

0 

CALCSMSC 

AXC  ,1 

0877 

REF 

4 

LAST 

935 

14, 3270 

02664 

1 

XNB 

0878 

1 4,  32  7 1 

41345 

o 

XNBNDX 

DL  OAD 

DMP 

0879 

REF 

3 

LAST 

49  1 

14,  3 2 72 

00737 

1 

SINCDUY 

0880 

REF 

7 

LAST 

916 

14, 3273 

00747 

0 

COSCDUZ 

0881 

14,3274 

776  76 

0 

DCOMP 

0882 

14, 3275 

70525 

1 

PDDL 

SRI 

0883 

REF 

6 

LAST 

916 

14,3276 

00741 

0 

S INC  DUZ 

0884 

14, 3277 

41325 

-0 

PDDL 

DMP 

0885 

REF 

3 

LAST 

49  1 

14, 3300 

00745 

1 

COSCDUY 

0886 

REF 

8 

LAST 

945 

14,3301 

00747 

0 

COSC  DUZ 

0887 

14, 3302 

764  66 

1 

VDEF 

-VSL1 

0888 

14, 3303 

04001 

1 

STORE 

0,1 

0889 

14,3304 

41345 

0 

DLOAD 

DMP 

0890 

REF 

3 

LAST 

916 

14,3305 

00743 

1 

SINC  DUX 

0891 

REF 

7 

LAST 

945 

14,3306 

00741 

0 

S INCDUZ 

0892 

14,3307 

77752 

1 

SL1 

0893 

14,3310 

00033 

_L_ 

STORE 

26D 

0894 

14,  3311 

77605 

1 

DM  P 

0895 

REF 

4 

LAST 

945 

14,3312 

00737 

1 

SINC  DUY 

0896 

14,3313 

41325 

0 

PDDL 

DMP 

0897 

REF 

6 

LAST 

916 

14,3314 

00751 

1 

COSC  DUX 

0898 

REF 

4 

LAST 

945 

14,3315 

00745 

1 

COSC  DUY 

0899 

14,  3 316 

7762  5 

0 

DSU 

0900 

14,  3317 

41325 

0 

PDDL 

DMP 

0901 

REF 

6 

LAST 

945 

14, 3320 

00743 

1 

SINC  DUX 
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1 DEG  SCALED  CDU/2 
359  DEG  SCALED  CDU/2 
READ  C DUS 
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P51- 

P 53 

0902 

0903 

nonzc 

REF 

9 

LAST 

945 

14. 3321 

14. 3322 

14. 3323 

00747 

77676 

41325 

0 

0 

0 

DCOMP 

PDOL 

COSCDUZ 

DMP 

0905 

REF 

7 

LAST 

945 

14,3324 

00751 

1 

COSCDUX 

0906 

REF 

5 

LAST 

945 

14, 3325 

00737 

1 

SINCDUY 

HQ  A7 

14,  3 326 

41325 

0 

PDDL 

DMP 

0908 

REF 

5 

LAST 

945 

14,  3327 

00745 

1 

COSCDUY 

0909 

14,  3330 

00033 

1 

2 6D 

no  i n 

14, 3331 

554  15 

1 

DAD 

VDEF 

UV  1U 

0911 

14,3332 

77772 

0 

VSL  1 

0912 

14, 3333 

04015 

1 

STORE 

14,  1 

09 1 3 

14, 3 334 

76433 

1 

VXV* 

VSL1 

0914 

14,3335 

00001 

0 

0,1 

0915 

14, 3336 

04007 

1 

STORE 

6,1 

0916 

14,3337 

77616 

0 

RVQ 

19:02  NOV.  25,1968  LFMP50S  .103  PAGE 
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USER'S  PAGE  NO 


22 
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GAP: 
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L 

P51-P53 

USER ' S PAGE  NO.  23  E5  S3 

P0917 

R0918 

NAME  - P51  - IMU  ORIENTATION  DETERMINATION 
MOD. NO. 1 23  JAN  67 

MOD  3 Y STURLAUGSON 

LOG  SECTION  - P51-P53 
ASSEMBLY  SUNDANCE  REV56 

R0922 

FUNCTIONAL  DESCRIPTION 

R0923 
R0925 
p r>Q  27 

DETERMINES  THE  INERTIAL  ORIENTATION  OF  THE  IMU.  THE  PROGRAM  IS  SELECTED  BY  DSKY  ENTRY.  THE  SIGHTING 
(ACTMARK)RCUTINE  IS  CALLED  TO  COLLECT  AND  PROCESS  MARKED-STAR  DATA.  AOTMARK ( R53 ) RETURNS  THE  STAR  NUMBER  AND  THE 
R T AP  1 PR  VFPTOR  IN  RTARADF6.  TWO  STARS  ARE  THUS  SIGHTED.  THE  ANGLE  BETWEEN  THF  TWO  STARS  IS  THEN  CHECKED  AT 

R0929 

CHK  SC  ATA ( R 54 ) . REFSMMAT  IS  THEN  COMPUTED  AT 

AXISGEN. 

R0930 

1/  rl  L L 1 n Vj  O L U l l , L/  L 

R0931 

TEE  PROGRAM  IS  CALLED  BY  THE  ASTRONAUT  BY 

DSKY  ENTRY. 

R0932 

SUBROUTINES  CALLEC. 

OHP  FR  FI 

R0934 

R0935 

Rpqqf, 

GOP  ER  F 1 

GODSPR 

IMUCOARS 

R0937 

R0938 

R0939 

IMUFIN20 
ACTMAPKIR53  ) 
CHKSDATAI R54  ) 

R0940 

R0941 

R0942 

MKRELEAS 
AX  I SGEN 
MATMOVE  - 

R0943 

ALARMS 

R0944 

NONE. 

R 0945 

ERASABLE  INITIALIZATION 

R0946 

IMU  ZERO  FLAG  SHOULD  BE  SET. 

R0947 

OUTPUT 

R0948 

REF  SMMAT 

R0949 

REFSMFLG 

R0950 

DEBRIS 

R0951 

R0952 

WORK  AREA 
ST AR AC 

R0953 

R0954 

R0955 

STARIND 

eESTI 

BESTJ 

0956 

REF  1 

COUNT  * $ $/ P 51 

GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  CUMINARY  BY 


L 

P 5 1- 

-P  53 

0957 

0958 

REF 

REF 

264 

1 

LAST 

943 

14. 3340 

14.3341 

0 4616 
33635 

1 

I 

0959 

REF 

1 

14,  3 342 

3 4761 

0 

0960 

REF 

265 

LAST 

948 

14,  3343 

0 4616 

1 

0961 

REF 

S— 

LAST 

93  9 

14,  3 344 

204  76 

0 

0962 

REF 

52 

LAST 

943 

14,3345 

0 6001 

0 

0963 

REF 

1 

14,3346 

1 33  74 

0 

09  64 

REF 

87 

LAST 

942 

14, 3347 

0 5353 

1 

0965 

14, 3350 

05024 

1 

0966 

14,3351 

13000 

0 

0967 

REF 

1 

14, 3352 

3 4755 

JL 

0968 

REF 

11 

LAST 

944 

14, 3353 

54  321 

0 

0969 

REF 

12 

LAST 

948 

14, 3354 

54  322 

0 

0970 

REF 

L3 

LAST 

94  8 

14, 3355 

54  323 

1 

0971 

REF 

1 

14, 3356 

3 3504 

0 

0972 

REF 

266 

LAST 

948 

14,3357 

0 4616 

1 

0973 

REF 

— 3 

LAST 

76  4 

14,3360 

20324 

0 

0974 

REF 

1 

14,3361 

3 3505 

1 

0975 

REF 

267 

LAST 

948 

14,3362 

0 46  16 

I 

0976 

REF 

4 

LAST 

948 

14, 3363 

20324 

0 

0977 

REF 

183 

LAST 

943 

14, 3364 

0 6036 

1 

0978 

14, 3365 

77624 

1 

0979- 

R EF 

2 

LAST 

94  4 

14,  3 366 

31506 

o 

0980 

14,3367 

77776 

1 

0981 

REF 

88 

LAST 

948 

14,3370 

0 5353 

1 

0982 

14, 3371 

05024 

1 

0983 

14,3372 

13000 

0 

0984 

REF 

2 

LAST 

248 

14, 3373 

1 3342 

0 

0985 

REF 

89 

LAST 

948 

14, 3374 

0 5353 

1 

0986 

14,3375 

00014 

1 

0987- 

REF 

1 84 

LAST 

94  8 

14, 3376 

0 6036 

l 

0988 

14,3377 

77624 

1 

0989 

REF 

3 

LAST 

944 

14,3400 

31523 

1 

0990 

14,  3 40  1 

403  3 1 

1 

0991 

REF 

6 

LAST 

940 

14,3402 

02760 

1 

0992 

14, 3403 

00000 

1 

0993 

14, 3 404 

00001 

o 

0994 

14, 3405 

77776 

1 

0995 

REF 

90 

LAST 

94  8 

14, 3406 

0 5353 

1 

0996 

14, 3407 

05024 

1 

0997 

14,3410 

13000 

0 

0998 

REF 

268 

LAST 

94  8 

14, 341 1 

0 4616 

1 

0999 

REF 

mm 

LAST 

93  8 

14,3412 

16000 

0 

1000 

REF 

269 

LAST 

94  8 

14,3413 

0 46  16 

1 

1001 

REF 

1 

14, 3414 

17665 

1 

1002 

REF 

4- 

LAST 

942 

14,3415 

0 5703 

0 

1003 

REF 

7 

LAST 

94  8 

14,3416 

11* 757 

1 

1004 

REF 

1 

14,3417 

1 3425 

0 
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TC 

8 ANKC ALL 

IS  ISS  ON  - IF  NOT,  IMUCHK  WILL  SEND 

CADP 

IMUCHK 

ALARM  CODE  210  AND  EXIT  VIA  GOTOPOOH. 

CAF 

PPFMSTAQ 

TC 

BANKCALL 

CADR 

GOP  E R FI 

TC 

GOTO POOH 

TERM. 

TC  F 

P 51B 

V 33 

TC 

P HAS  CHNG 

GCT 

05024 

OCT 

13000 

CAF 

P51ZER0 

TS 

THET AD 

ZERO  THE  GIMBALS 

TS 

THETAD  +1 

TS 

THETAD  +2 

CAF 

V6N22 

TC 

BANKCALL 

CADR 

GODSPPET 

CAF 

V41K 

NOW  DISPLAY  COARSE  ALIGN  VERB  41 

TC 

BANKCALL 

CADR 

GODS  PRET 

TC 

I NT  P RET 

CALL 

C.OAP  SE 

EXIT 

TC 

P HA  S CHNG 

OCT 

05024 

OCT 

1 3000 

TCF 

P 5 1 +2 

TC 

P HA  S CHNG 

OCT 

00014 

TC 

I NTP  PET 

CALL 

NCDAPSE 

SSP 

SETPD 

STAR  IND 

INDEX-STAR  1 OR  2 

0 

0 


EXIT 

TC 

OCT 

PHA  S CHNG 
05024 

OCT 

13000 

TC 

BANKCALL 

CADR 

AOTM ARK 

R 53 

TC 

BANKCALL 

CADR 

AOTSTALL 

TC 

CURTAINS 

CCS 

STAR  IND 

TCF 

P 5 1 D +1 

GAP: 

L 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 
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REF 

185 

LAST 

948 

14,3420 

0 6036 

1 

TC 

I NT  P R FT 

14, 3421 

77775 

1 

VLOAD 

REF 

19 

LAST 

943 

14, 3422 

02715 

0 

STARAD  +6 

REF 

5 

LAST 

93  9 

14, 3423 

02761 

0 

STORF 

STARSAV1 

14,3424 

77776 

1 

P51D 

EXIT 

REF 

91 

LAST 

94  8 

14, 3 425 

0 53  53 

1 

TC 

PHASCHNG 

14,3426 

05024 

1 

OCT 

05324 

14,3427 

13000 

0 

OCT 

13000 

REF 

8 

LAST 

94  8 

14, 3430 

11*757 

_1 

CCS 

STAR IND 

REF 

1 

14,3431 

1 3446 

0 

TCF 

P51  E 

REF 

92 

LAST 

949 

14,3432 

0 5353 

1 

TC 

PHASCHNG 

14,3433 

05024 

1 

OCT 

05024 

14,3434 

13000 

0 

OCT 

13000 

REF 

1 86 

LAST 

949 

14, 3435 

0 6036 

1 

TC 

I NTPRET 

14,3436 

45145 

JO 

OLOAD 

CALL 

REF 

6 

LAST 

940 

14,3437 

03560 

1 

TSIGHT 

REF 

3 

LAST 

940 

14, 3440 

32540 

1 

PLANET 

REF 

4 

LAST 

94  0 

14,3  441 

03552 

n 

STORE 

PLAN VEC 

14,3442 

77776 

l 

EXIT 

REF 

48 

LAST 

927 

14, 3443 

3 4753 

1 

CAE 

B I T 1 

REF 

g_ 

LAST 

949 

14,3444 

55*757 

I 

TS 

STAR  IND 

REF 

1 

14,3  445 

1 3406 

1 

TCF 

P 5 1C  +1 

DO  SECOND  STAR 

REF 

93 

LAST 

949 

14,3446 

0 5353 

1 

P51E 

TC 

PHASCHNG 

14,3447 

05024 

_L 

OCT 

05024 

14,3450 

13000 

0 

OCT 

13000 

REF 

187 

LAST 

949 

14,3451 

0 6036 

1 

TC 

I NTPRET 

14, 3452 

45 145 

0 

DLOAD 

CALL 

REF 

7 

LAST 

949 

14, 3453 

03560 

1 

T S I G HT 

REF 

4 

LAST 

949 

14,3454 

32540 

1 

PLANET 

14, 3455 

24015 

0 

STOVL 

1 2D 

REF 

5 

LAST 

949 

14,3456 

03552 

0 

PLAN  VFC 

14,3457 

24007 

0 

STOVL 

6 D 

REF 

6 

LAST 

949 

14,3460 

02  761 

0 

STAR  SAV1 

REF 

20 

LAST 

949 

14, 3461 

26707 

0 

STOVL 

STARAD 

REF 

7 

LAST 

939 

14,3462 

02767 

0 

STARSAV2 

REF 

21 

LAST 

949 

14, 3463 

36715 

1 

STC ALL 

STARAD  +6 

REF 

2 

LAST 

942 

14, 3464 

31121 

1 

CHK  S DATA 

CHECK  STAR  ANGLES  IN  STARAD  AND 

14, 3465 

77414 

0 

BON 

EXIT 

REF 

— 7- 

LAST 

943 

14,3466 

00314 

1 

FREE  FLAG 

REF 

1 

14, 3467 

31471 

1 

P51G 

REF 

3 

LAST 

948 

14,3470 

0 3342 

1 

TC 

P51  +2 

14,3471 

77624 

1 

P51G 

CALL 

REF 

2 

LAST 

939 

14,3472 

47345 

0 

AXISGEN 

COME  BACK  WITH  REFSMMAT  IN  XDC 

14,3473 

75160 

1 

AXC , 1 

AXC  , 2 

R EF 

A 

LAST 

929 

14, 3474 

02664 

1 

XDC 

REF 

46 

LAST 

944 

14,3475 

01733 

1 

REFSMMAT 

14, 3476 

77624 

1 

CALL 

REF 

3 

LAST 

9 44 

14,  3 477 

31237 

0 

MATMCVE 

14,3500 

77614 

1 

SET 

REF 

5 

LAST 

941 

14, 3501 

01462 

0 

REFSMFLG 

GAP: 

l 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 
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REF 

REF 

53 

3 

LAST 

LAST 

948 
93  8 

14.3502 

14. 3503 
476  1 

77776 
0 6001 

1 

0 

PRFMSTAQ 

EX  IT 
TC 

GOTOPOOH 
DC  T 1 5 

REF 

174 

LAST 

938 

4755 

P51 ZERO 

= 

ZERO 

REF 

18 

LAST 

859 

4756 

P51FI VE 

= 

FIVE 

14,3504 

01426 

0 

V6N22 

VN 

0622 

14,3505 

12200 

0 

V41K 

VN 

4100 

14, 3506 

77776 

1 

COARSE 

EXIT 

REF 

270 

LAST 

94  8 

14,3507 

0 46  16 

JL 

TC 

BANKCALL 

REF 

4 

LAST 

39  1 

14, 3510 

16753 

1 

CADR 

I MUCOARS 

REF 

271 

LAST 

950 

14,3511 

0 4616 

1 

TC 

BANKCALL 

REF 

10 

LAST 

942 

14, 3512 

17671 

4. 

CADR 

IMUSTALL 

REF 

5 

LAST 

948 

14,3513 

0 5703 

0 

TC 

CURTAINS 

REF 

272 

LAST 

950 

14,3514 

0 4616 

1 

TC 

BANKCALL 

REF 

3_ 

LAST 

39  1 

14,3515 

17163 

o 

CADR 

IMUF  INE 

REF 

273 

LAST 

950 

14,3516 

0 4616 

1 

TC 

BANKCALL 

REF 

11 

LAST 

950 

14,  3 517 

17671 

1 

CADR 

IMUSTALL 

REF 

6 

LAST 

95  0 

14,3520 

0 5703 

a 

TC 

CURTAINS 

REF 

188 

LAST 

949 

14, 3521 

0 6036 

i 

TC 

INTPRET 

14, 3522 

77616 

0 

RVQ 

14, 3523 

77776 

i 

NCOARSE 

EXIT 

REF 

15 

LAST 

900 

14,3524 

3 0025 

0 

CA 

T IMF  1 

REF 

9 

LAST 

864 

14,3525 

55 ' 075 

0 

TS 

1/PIPADT 

REF 

l 89 

LAST 

950 

14, 3526 

0 6036 

1 

TC 

INTPRET 

14, 3527 

77775 

l 

VLOAD 

REF 

3 

LAST 

696 

14,3530 

22275 

1 

ZEROVEC 

REF 

24 

LAST 

396 

14, 3531 

01472 

STORE 

G COM  P 

14,3532 

43414 

1 

SET 

R V9 

REF 

3 

LAST 

94  1 

14,3533 

01060 

0 

DRIFTFLG 

950 


GAP: 
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L 

P51- 

P 53 

P 1084 

NAME 

- S 52 

.2 

R1085 

FUNCT ICN 

-CCMPUTE  GIMBAL  ANGLES  FOR  DESIRED  SM  AND  PRESENT  VEHICLE 

S 5?  • 2 

KlOoo 

RIO  87 

INPLT-  X 

, Y ,ZSMD 

R1088 

OUTPUT- 

OGC, IGC, MGC»THETAD»+1 

, + 2 

ci ib c m it  i NF4-rmrrR  in. rai  r.SMSr. 

MATMOVE 

. C4I  f.GA 

1090 

REF 

1 

COUNT  * 

$ $/  S 52 . 1 

1091 

14,3534 

77620 

0 

S52.2  STQ 

REF 

6 

LAST 

941  14,3535 

02746 

0 

QMAJ 

1093 

14,3536 

77624 

1 

CALL 

1094 

REF 

5 

LAST 

934  14,3537 

47443 

1 

CDUTRIG 

1095 

14,3  540 

77624 

1 

CALL 

1096 

REF 

2 

LAST 

934  14,3541 

31267 

0 

CALCSMSC 

1097 

14, 3542 

66370 

0 

AXT.l 

SSP 

1098 

14,3543 

00022 

1 

1 3D 

1099 

REF 

9 

LAST 

944  14,3544 

00051 

0 

SI 

1100 

14,3545 

00006 

1 

6D 

1101 

14,3546 

61373 

1 

S52.2A  VLOAD* 

V X M 

1102 

REF 

5 

LAST 

945  14,3547 

02  707 

0 

XNB  +18D, 1 

1103 

REF 

47 

LAST 

949  14,3550 

01734 

0 

REFSMMAT 

1 1 f)4 

1 3 551 

77656 

1 

UNIT 

1105 

REF 

6 

LAST 

951  14,3552 

06707 

1 

STORE 

XNB  + 1 8P , 1 

1106 

14, 3553 

77700 

0 

T I X , 1 

1107 

RFF 

1 

1 At  3 55A 

31  5A6 

1 

S52.2A 

1108 

14,3555 

75160 

1 

S52.2.1  AXC  , 1 

AXC,  2 

1109 

REF 

7 

LAST 

941  14,3556 

03604 

0 

X SMD 

1110 

RFF 

18 

LAST 

944  14,3557 

02642 

0 

X SM 

1111 

14,3560 

77624 

1 

CALL 

1112 

REF 

4 

LAST 

949  14,3561 

31237 

0 

MATMOVE 

1113 

14,3562 

77624 

1 

CALL 

1114 

REF 

2 

LAST 

387  14,3563 

47255 

0 

C ALCGA 

1115 

14,3564 

77650 

1 

GOTO 

1116- 

—REF 

7- 

LAST 

951  -J.4,  3565 

02746 

0 

QMAJ 

19:02  NOV.  25,1968  LEMP50S  .103  PAGE 


951 


USER’S  PAGE  NO 


27 


E5  S3 


GAP: 

L 

P1L17 

R1118 

R 1 1 1 9 

R 1120 

R 1 1 2 1 

R 1 1 22 

R 1 12  3 

R 1 1 24 

R 1 1 2 5 

R 1 1 26 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1 140 

1141 

1142 

1143 

1144 

1145 
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P51-P53 


USER'S  °AGE  NO.  28  F5  S3 


NAME-S52.3 

FUNCTION  XSMD=  UNIT  R 

YSMD=  UNIT  IV  X R) 

ZSMD=  UNIT! XSMD  X YSMDI 
CALL  DLOAD  CALL 

T ALIGN 
S 52.3 


INPUT 

TIME 

OF  ALIGNMENT  IN 

MP  AC 

7 qm  n 

SUBROUTINES- 

C SMC  ON  I C 

REF 

1 

COUNT* 

$ $/ S 52 . 3 

1 4,  3 566 

77620 

0 S52.3 

STO 

REF 

8 

LAST 

95  1 

14,3567 

02  746 

0 

QMAJ 

REF 

53 

LAST 

932 

14, 3570 

34041 

0 

STCALL 

TDEC  1 

R ff 

5 

1 AST 

59  9 

1 4,  3 571 

27100 

0 

LEMC CNIC 

14,3572 

77601 

0 

SETPD 

14,3573 

00001 

0 

0 

14,3574 

53575 

0 

VLOAD 

UNIT 

REF 

34 

LAST 

932 

14,3575 

00001 

0 

RATT 

REF 

8 

LAST 

95  1 

14,3576 

27605 

1 

STOVL 

XSMD 

REF 

24 

LAST 

840 

14, 3577 

00007 

0 

VATT 

14,3600 

53435 

0 

VXV 

UNIT 

REF 

35 

LAST 

952 

14,3601 

00001 

0 

RATT 

REF 

4 

LAST 

9 29 

14,3602 

276  1 3 

0 

STOVL 

YSMD 

REF 

9 

LAST 

952 

14, 3603 

03605 

1 

XSMD 

14,3604 

53435 

0 

VXV 

UNIT 

REF 

s 

1 AST 

9 5 2 

14, 3605 

036  1 3 

o 

Y SMD 

REF 

4 

LAST 

929 

14,3606 

37621 

0 

STCALL 

ZSMD 

REF 

9 

LAST 

952 

14,3607 

02746 

0 

QMAJ 
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P1146  NAME  -R52  (AUTCMATIC  OPTICS  POSITIONING  ROUTINE) 

R1147  FUNCTION-PCI  NT  THE  AOT  OPTIC  AXIS  BY  MANEUVERING  THE  LEM  TO  A NAVIGATION 
R1148  STAR  SELECTED  BY  ALIGNMENT  PROGRAMS  OR  DSKY  INPUT 

R1149  CALLING  -CALL  R52 

R 1 1 50  INPUT  -BESTI  AND  BE  ST  J (STAR  CODES  TIMES  6) 

R1151  OUTPUT  -STAR  CODE  IN  BITS1-6,  DETENT  CODE  IN  BITS  7-9 

r 1 1 52  (NO  CHECK  IS  MADE  TO  INSURE  THE  DETENT  CODE  TO  BE  VALID) 

R 1 1 53  PCINTVSM-1/2  UNIT  NAV  STAR  VEC  IN  SM 

R 1 1 54  SCAXIS-AOT  OPTIC  AXIS  VEC  IN  NB  X-Z  PLANE 


R1155  SUBROLT  -R60LEM 


1156 

1157 

1158 

REF 

REF 

1 

1 

14,  3 610 
14,3611 

77420 

03663 

1 R52 

J 

COUNT  * 
STQ 

$ $/ P 52 

EXIT 

SAVQR52 

1159 

REF 

10 

LAST 

949 

14,3612 

5 1 ' 757 

0 

INDEX 

STAR  IND 

1160 

REF 

9 

LAST 

937 

14, 3613 

3 1755 

1 

CA 

BEST  I 

1161 

14,3614 

0 0006 

1 

EXTEND 

1162 

REF 

1 

14, 3615 

7 3706 

1 

MP 

1 /6TH 

1163 

REF 

33 

LAST 

906 

14, 3616 

6 4744 

1 

AD 

B I T 8 

1164  REF  2 LAST  116  14,3617  54  735  1 TS  STARCODE 


1165 

1166 

REF 

REF 

1 

2 74 

LAST 

950 

14,3620 
1 4,  3 62 1 

3 

0 

3707 
46  16 

1 

1 

R52  A 

CAE 

Tf- 

V 0 1 N 7 0 
BANKCALL 

1167 

REF 

32 

LAST 

943 

14, 3622 

20351 

1 

CADR 

GOFL ASH 

1168 

REF 

54 

LAST 

950 

14, 3623 

0 

6001 

0 

TC 

GOTO  POOH 

1 169 

REF 

L_ 

14,3624 

1 

3626 

1 

TCF 

R52B 

1170 

REF 

1 

14,3625 

1 

3620 

1 

TC  F 

R 52  A 

1171 

REF 

87 

LAST 

89  5 

14,3626 

n 

88  1 A 

o 

R52  B 

TC 

DOWN  FLAG 

1172 

REF 

7 

LAST 

761 

14,3627 

00124 

0 

ADRES 

3 AX  I SFLG 

11  73 

REF 

3 

LAST 

953 

14, 3630 

3 

0735 

0 

CA 

STARCODE 

1174 

REF 



LAST 

6 92 

14,3631 

7 

7743 

1 

MASK 

HIGH9 

1175 

14,3632 

0 

0006 

1 

EXTEND 

1176 

REF 

2 

LAST 

953 

14, 3633 

6 

3620 

0 

BZMF 

R 52  A 

1177 

REF 

25 

LAST 

864 

14,  3 634 

7 

4743 

1 

MASK 

B I T9 

1178 

REF 

286 

LAST 

927 

14, 3635 

10  000 

0 

CCS 

A 

1179 

REF 

1 

14,3636 

1 

3655 

0 

TCF 

GETAZEL 

1180 

REF 

18 

LAST 

275 

E7, 1 547 

EBANK= 

X YMARK 

1181 

REF 

12 

LAST 

902 

14, 3637 

3 

5016 

0 

CA 

EBANK7 

1182 

REF 

39 

LAST 

917 

14,3640 

54  003 

0 

TS 

EBANK 

1183 

REF 

4 

LAST 

953 

14,3641 

3 

7 743 

0 

CAF 

HIGH9 

1184 

REF 

4 

LAST 

953 

14,3642 

7 

0735 

1 

MASK 

STARCODE 

1185 

14, 3643 

0 

0006 

1 

EXTEND 

1186 

REF 

26 

LAST 

953 

1 4,  3 644 

7 

4743 

1 

MP 

BITS 

1187 

REF 

287 

LAST 

953 

14, 3645 

50  000 

1 

INDEX 

A 

1188 

REF 

4 

LAST 

262 

14,  3646 

3 

1403 

1 

CA 

AGTAZ  -1 

USER'S  PAGE  NO.  29  E5  S3 


PICK  UP  STARCODE  DETERMINED  BY  R56 


SET  DETENT  POSITION  2 
SCALE  AND  STORE  IN  STARCODE 


DISPLAY  STARCODE  AND  WAIT  FOR  RESPONSE 
V 34-T  ERM I NATE 
V 33-PRQCEED  TO  ORIENT  LEM 
ENTER-SELECT  NEW  STARCO DE-R EC YCL E 


BIT6  OF  FLAGWRD5  ZERO  TO  ALLOW  VECPOINT 
GRAB  DETENT  CODE 


DONT  ALLOW  ZERO  CODE-RECYCLE 
SEE  IF  CODE  4 OR  5 

CODE  4 OR  5-GET  CALIBRATION  A Z EL 


FORWARD  DETENT,  INDEX  DETENT  AND  GRAB 
AZIMUTH  ANGLE  AND  ELV  = 45  DEG 

SHIFT  DETENT  TO  BITS1-2  FOR  INDEX 


PICK  UP  AZ  CORRESPONDING  TO  DETENT 


GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 


19:02  NOV.  25,1968  LEMP50S  .103  PAGE  954 


P51- 

• P 5 3 

1189 

REF 

151 

LAST 

92  3 

14,3647 

54  001 

1 

TS 

L 

1190 

REF 

19 

LAST 

95  1 

E 5 , 1 642 

E8ANK= 

XSM 

1 1 Q1 

D p C 

7 

LAST 

816 

14,3  650 

3 50 14 

1 

XA 

EBANK5 

1 1 7 1 

1192 

I'Ll 

REF 

40 

LAST 

953 

14,3651 

54  003 

0 

TS 

EBANK 

1193 

REF 

39 

LAST 

875 

14,3652 

3 4737 

0 

CA 

BIT13 

1 1 QA 

D CC 

1 go 

LAST 

954 

14, 3653 

56  001 

0 

XCH 

L 

1195 

tscr 

REF 

L A 
1 

14,3654 

1 3665 

0 

TCF 

AZEL 

net 

| 

1 CC  K 

3 3710 

_J 

GET  AZEL 

CAF 

V 06N  87 

1 196 

K tr 

1 

I *T  t ->  0-2  2 

1197 

REF 

275 

LAST 

953 

14,  3656 

0 4616 

1 

TC 

BANKCALL 

1198 

REF 

33 

LAST 

953 

14,3657 

20351 

1 

CADR 

GOFL ASH 

1 199 

REF 

55 

LAST 

9 5 3 

14,3660 

0 6001 

0 

rc_ 

GOTOPOCH 

1200 

14,3661 

1 3663 

0 

TCF 

+ 2 

1201 

REF 

2 

LAST 

953 

14,3662 

1 3655 

0 

TCF 

GETAZEL 

1202 

14,3663 

0 0006 

1 

EXTEND 

1203 

REF 

4 

LAST 

33  1 

14, 3664 

3 13  50 

0 

DC  A 

AZ 

1 ? 04. 

REF 

30 

LAST 

94  5 

1 4t  3 56 5 

50  120 

1— 

AZEL 

INDEX 

F IXL  DC 

J.  C.  T 

1205 

14,3666 

52  Oil 

0 

DXCH 

8 D 

1206 

REF 

150 

LAST 

950 

14,3667 

0 6036 

1 

TC 

I NTPRET 

1207 

14,3  670 

776  24 

1 

CALL 

1208 

REF 

2 

LAST 

263 

14, 3671 

13370 

1 

OANB 

1209 

14, 3672 

45034 

1 

RTB 

CALL 

1210 

REF 

24 

LAST 

938 

14, 3673 

21462 

-X  - 

LOADTIME 

1211 

REF 

5 

LAST 

949 

14, 3674 

32540 

1 

PLANET 

1212 

14,  3675 

53521 

1 

MXV 

UNIT 

1213 

REF 

48 

LAST 

95  1 

14, 3676 

01734 

0 

R EF  S MM AT 

1214 

REF 

7 

LAST 

7 9 2 

14, 3677 

03767 

1 

STORE 

POINTVSM 

1215 

14,3  700 

777  76 

_4 

EX  IT 

1216 

REF 

276 

LAST 

954 

14, 3701 

0 4616 

1 

TC 

BANKCALL 

1217 

REF 

6 

LAST 

793 

14, 3702 

54101 

0 

CADR 

R60L  EM 

1218 

REF 

191 

LAST 

954 

14,3703 

0 6036 

1 

TC 

INTPRET 

1219 

14,  3704 

77650 

1 

GOTO 

1220  REF  2 LAST  953 14,3705  03663  I SAV0R52 


1221 

14,3  706 

05253 

0 

1/6TH 

DEC 

. 1666667 

1222 

14,3707 

00306 

1 

V01 N70 

VN 

0170 

1223 

14,3710 

01527 

0 

V06N87 

VN 

687 

USER'S  PAGE  NO.  30  E7  S3 


CHANGE  TO  EBANK5  BUT  DONT  DISTURB  L 

SET  ELV  TO  45  DEG 

SET  C ( A ) = AZ » Cl L) =45  DEG 

GO  COMP  OPTIC  AXIS 

CODE  4 OR  5-GET  AZ  AND  EL  FROM  ASTRO 


V34-TERMINATE 
PROCEED-CALC  OPTIC  AXIS 
ENTER-RECYCLE 


PICK  UP  AZ  AND  EL  IN  SP  2S  COMP 
JAM  AZ  AND  EL  IN  3 AND  9 OF  VAC 


GO  COMPUTE  OPTIC  AXIS  AND  STORE  IN 
S C AX  IS  IN  NB  COORDS 


STORE  FOR  VECPOINT 


GO  TORQUE  LEM  OPTIC  AXIS  TO  STAR  LOS 
RETURN  FROM  KALCMANU 
RETURN  TO  CALLER 
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USER'S  PAGE  NO.  31  E5  S3 


P 1224 

LUNAR 

SURF  ACE 

STAR 

AQUIS ITION 

15,2301 

BANK 

1 5 

1225 

1226 
1227 

REF 

3 LAST 

926 

15, 2000 
15,2301 

SETLOC 

BANK 

P 50  S 

1228  REF  2 LAST  265  TO  266:  40  .40*  COUNT*  t$/R59 


1228  1 

REF 

15 

LAST 

877 

15,2301 

4 0077 

0 R59 

CS 

FLAG  WRD3 

3 

LAST 

2 Z R 

1 5 f 2 30  2 

7 4737 

1 

MASK 

RE  F S MB  I T 

IF  REFSMMAT  FLAG  CLEAR  BYPASS  STAR  AQUIR 

12283 

REF 

288 

LAST 

953 

15,2303 

10  000 

0 

CCS 

A 

12284 

REF 

1 

15,2304 

1 2523 

0 

TCF 

R59DUT 

NO  REFSMMAT  GO  TO  AOTMARK 

1229 

REF 

1 

15,2305 

3 2531 

1 

CAF 

V01 N70* 

SELECT  STAR  CODE  FOR  ACQUISITION 

1230 

REF 

277 

LAST 

954 

15,2306 

0 46  16 

1 

TC 

BANKCALL 

1 ? ^ 1 

REF 

34 

L AST 

954 

15,2307 

20351 

1 

C A OR 

GOFL  ASH 

1232 

REF 

56 

LAST 

954 

15,2310 

0 6001 

0 

TC 

SOTO  POOH 

V34-TERMINATE 

1233 

REF 

1 

15,2311 

1 2313 

0 

TCF 

R 59  A 

V33-PR0CEED 

1234 

REF 

1 

15, 2312 

1 2301 

0 

TCF 

R 5 9 

V32-RECYCLE 

1235 

REF 

5 

LAST 

953 

15,2313 

4 7743 

1 R59  A CS 

HIGH9 

GRAB  STARCOOE  FOR  INDEX 

\ ? 

REF 

9 

LAST 

3 3 0 

15*2314 

7 0735 

1 

MASK 

AOTCCDE 

1237 

15,2315 

0 0006 

1 

EXTEND 

1238 

REF 

2 

LAST 

307 

15,2316 

7 6241 

1 

MP 

REVCNT 

JUST  6 

12  39 

REF 

1 53 

LAST 

95  4 

15,2317 

56  001 

0 

XCH 

L 

1240 

REF 

ii 

LAST 

953 

15,2320 

51 ' 757 

0 

INDEX 

STAR  IND 

1241 

REF 

10 

LAST 

953 

15,2321 

55' 755 

0 

TS 

BFST  I 

1 242 

REF 

3 1 

LAST 

95  4 

15, 2322 

50  120 

1 

INDEX 

F I X L OC 

1243 

REF 

20 

LAST 

935 

15,2323 

54  046 

1 

TS 

XI 

CODE  X 6 FOR  CATLOG  STAR  INDEX 

1244 

15,2324 

0 0006 

1 

EXTEND 

1245 

REF 

2 

LAST 

9 5 5 

15,2325 

1 2523 

0 

BZF 

R590UT 

BYPASS  AQUISITIPN  IF  NOT  CATLOG  STAR 

1246 

15,2326 

4 0000 

0 

COM 

1247 

REF 

i 

15,2327 

6 2625 

1 

AD 

DEC227 

1248 

15,2  330 

0 00  06 

1 

EXTEND 

1249 

REF 

3 

LAST 

955 

15, 2331 

6 2523 

1 

BZMF 

R 590  UT 

12  50 

REF 

192 

L AST 

95  4 

] 5*  ? 332 

0 6036 

1 

TC 

I NTP  RET 

1251 

15,2333 

77624 

1 

CALL 

1252 

REF 

6 

LAST 

95  1 

15,2  334 

47443 

1 

CDUTRIG 

GET  CDU  JAZZ  FOR  SMNB 

1253 

15,2335 

64373 

1 

VLOAD* 

MX  V 

1254 

REF 

11 

LAST 

937 

15, 2336 

30347 

1 

CATLOG.l 

GRAB  STAR  VECTOR 

1255 

REF 

49 

LAST 

954 

15,2337 

01734 

0 

REFSMMAT 

TRANSFORM  TO  SM 

1256 

15, 2340 

45056 

0 

UNIT 

CALL 

1257 

REF 

7 

LAST 

9 1 1 

15,2341 

47575 

0 

*SMNB* 

TRANSFORM  TO  N8 

1258 

REF 

4 

LAST 

256 

15,2342 

02731 

0 

STORE 

STAR 

TEMP  STORE  STAR  VEC(NB) 

1259  15,2343  77776  1 EXIT 


1260 

REF 

49 

LAST 

949 

15,2344 

3 4753 

1 

CAF 

BIT  1 

INITIALIZE  POS  TO  ONE 

1261 

REF 

2 

LAST 

33  1 

15,2345 

55' 052 

0 

TS 

POSCODE 

1262 

REF 

1 

15,2346 

4 2537 

0 

CS 

0EG60 

A S ( N ) TO  -60  DEG 

12621 

REF 

12 

LAST 

944 

15, 2347 

55*745 

1 

TS 

QMI  N 
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USER'S  D AGE  NO.  32  E5  S3 


1263 
1263  1 
1 2 63  2 

REF 

REF 

289 

37 

LAST 

LAST 

955 
89  9 

15,  2350 
15,2351 
15,2  352 

54  000 
1 2354 
3 4735 

0 

0 

STORPOS  TS 
TCF 
CAF 

A 

*■  3 

BIT15 

DETECT  OVF  AZ 
NO  OVF 

OVF  SKIP-ADD 

= -120 
NEGMAX  TO 

OVF 

CORRECT  QMIN 

12633 

REF 

13 

LAST 

955 

15,2353 

27 ' 745 

1 

ADS 

Q MI  N 

1264 

REF 

40 

LAST 

954 

15,2354 

3 4737 

0 

CAF 

e iti  3 

E L V = 45  DEG 

1 265 

REF 

154 

LAST 

9 5 5 

15,2355 

54  001 

1 

TS 

L 

1266 

REF 

14 

LAST 

956 

15,2356 

3 1745 

0 

CA 

QMIN 

1267 

REF 

32 

LAST 

955 

15,2357 

50  120 

1 

INDEX 

FI  XL  OC 

1268 

15,2360 

52  Oil 

0 

DXCH 

8 D 

JAM  AZ  IN  3D, 

45  DEG  IN 

90 

FOR  OANB 

1269 

REF 

193 

LAST 

955 

15,2361 

0 6036 

1 

TC 

I NT P RET 

1 2 70 

15,  2 362 

77624 

4, 

CALL 

1271 

REF 

3 

LAST 

954 

15, 2363 

13370 

1 

OANB 

GO  CALC  OPTIC 

AXIS  WRT 

NB 

1272 

15,2364 

50375 

0 

VLOAD 

DOT 

1273 

REF 

g 

LAST 

95  5 

15,2  365 

02731 

o 

STAR 

DOT  STAR  WITH 

OA 

1274 

REF 

22 

LAST 

792 

15, 2366 

03761 

1 

SC AX  IS 

1275 

15,2367 

65552 

0 

SL1 

ARCCOS 

1276  15,2370  00031  0 STORE  2 AD  TEMP  STORE  ARCCOS ( ST AR . OP T A X I S I 


1277 

1278 

REF 

2 

LAST 

266 

15,2371 
15,2  372 

51025 

32534 

1 

1 

DSU 

BPL 
DEG3  0 

SEE  IF  STAR  IN  AOT  F I EL D- OF-V I E W 

1279 

REF 

1 

15, 2373 

32455 

1 

NX  AX 

NOT  IN  FIELD  - TRY  NEXT  POSITION 

1280 

15, 2374 

45345 

1 

DLOAD 

DSU 

SEE  IF  STAR  AT  FIELD  CENTER 

1281- 

15,2375 

00031 

0 

2 4D 

1282 

REF 

1 

15,2376 

32536 

0 

DEG.  5 

1283 

15,2377 

71240 

1 

BMN 

DLOAD 

CALC  SPIRAL  AND  CURSOR 

1284 

REF 

L 

15,2400 

32450 

1 

ZSPCR 

GO  ZERO  CURSOR  AND  SPIRAL 

1285 

15,2401 

00031 

0 

2 4D 

GET  SPIRAL 

1286 

15,2402 

42405 

0 

DMP 

SL4 

1287 

REF 

j_ 

15,  2 403 

23710 

o 

3 / 4 

12  SCALED  AT  16 

1288 

15, 2404 

24031 

0 

STOVL 

2 4D 

12IARCC0SI AO. STAR})  SCALED  IN  REVS 

12  89 

REF 

23 

L AS  T 

95  6 

15,2  405 

03761 

STAX  IF 

0 A 

1290 

15, 2406 

53435 

0 

VXV 

3 1/8  A 1 J 

UNIT 

1291 

REF 

3 

LAST 

36 

15,2407 

22273 

1 

XUN I T 

1292 

15,2410 

47206 

o 

PUSH 

VXV 

OA  X UNIT  X PD  0-5 

1293 

REF 

24 

LAST 

956 

15, 2411 

03761 

1 

SCAX  IS 

1294 

15,2412 

77676 

0 

VCOMP 

1295 

15,2413 

63256 

0 

UNIT 

PDVL 

UNITIOA  XI OA  X UNITXI)  PO  6-11 

1296 

REF 

25 

LAST 

956 

15, 2414 

03761 

l 

SCAX  IS 

1297 

15, 2415 

53435 

0 

VXV 

UNIT 

1298 

REF 

6 

LAST 

956 

15,2416 

02731 

0 

STAR 

1299 

15, 2417 

50206 

0 

PUSH 

DOT 

1/2I0A  X STAR)  PD  12-17 

1300 

15,2420 

00001 

0 

0 

DOT  WITH  1/2I0A  X UNITX)  FOR  Y ROT 

1301 

15,2421 

65552 

0 

SLl 

ARCCOS 

1302 

15,2422 

24033 

1 

STOVL 

3 6 D 

STORE  THET  SCALED  IN  REVS 

1303 

15,2423 

77641 

DO  T 

UP  12-17,  UP  6-11  FOR  C2 

1304 

15,2424 

71244 

0 

BPL 

DLOAD 

IF  THET  NEG-GET  360-THET 

1305 

REF 

1 

15,2425 

32432 

0 

R59D 

GAP: 

ASSEMBLE 

REVISION  069 

OF  AGC  PROGRAM  LUMINARY  BY 

L 

P 5 1 

-P  53 

1306 

REF 

2 

LAST 

265 

15,  2426 

32047 

0 

1307 

15, 2427 

77625 

0 

15, 2430 

00033 

_1— 

1308 

1309 

15,2431 

00033 

1 

lain 

15,2432 

70535 

o 

R 590 

I D 1 U 

1311 

REF 

15 

LAST 

956 

15,2433 

02746 

0 

1312 

15,2434 

41415 

1 

1313 

15,2435 

00033 

_1_ 

1314 

15,2436 

77634 

0 

1315 

REF 

2 

LAST 

386 

15,2437 

21520 

0 

1316 

REF 

3- 

LAST 

331 

15, 2440 

15046 

1 

1317 

15,2441 

00031 

0 

1318 

15, 2442 

77615 

0 

1319 

15,2443 

77634 

a 

1320 

REF 

3 

LAST 

957 

15,2444 

21520 

0 

1321 

REF 

3 

LAST 

33  1 

15,2445 

01047 

0 

1 322 

15,2  446 

77776 

1 

1323 

REF 

1 

15,2447 

1 2476 

1 

1 324 

15, 2450 

77776 

x 

ZSPCR 

1325 

REF 

175 

LAST 

950 

15,2451 

3 4755 

1 

1326 

REF 

4 

LAST 

957 

15, 2452 

55' 045 

0 

1327 

REF 

4 

LAST 

957 

15,  2453 

55*046 

0 

1328 

REF 

2 

LAST 

95  7 

15,2454 

1 24  76 

1 

1329 

15,  2455 

777  76 

x 

NXAX 

1330 

REF 

3 

LAST 

955 

15, 2456 

25'052 

1 

1331 

REF 

4 

LAST 

957 

15, 2457 

4 1052 

0 

1332 

RE  F 

12 

L AST 

85  9 

15,-2460 

6 4757 

_0 

1333 

15,2461 

0 0006 

1 

1334 

REF 

1 

15,2462 

6 2466 

1 

1335 

REF 

2 

LAST 

95-5  _ 

15,2463 

3 2537 

1 

1336 

REF 

16 

LAST 

957 

15,2464 

27*745 

1 

1337 

REF 

1 

15,2465 

1 2350 

1 

1338 

REF 

37 

L AS  T 

93-E- 

15,2466 

0 5567 

0 

R59ALM 

1339 

15,2467 

00404 

1 

1340 

REF 

2 

LAST 

938 

15,2470 

3 5006 

1 

1341 

REF 

2 78 

LAST 

95  5 

15,2471 

0 4616 

1 

1342 

REF 

35 

LAST 

95  5 

15,2472 

20351 

1 

1343 

REF 

57 

LAST 

955 

15,2473 

1 6001 

1 

1344 

REF 

4- 

LAST 

955 

15,2  474 

1 25-23 

0 

1345 

REF 

2 

LAST 

95  5 

15,2475 

1 2301 

0 

1346  REF  1 15,2  476  3 25  32  1 7-90 1 SP 


1347 

REF 

279 

LAST 

957 

15,2477 

0 4616 

1 

1348 

REF 

36 

LAST 

957 

15,2500 

20351 

1 

1349 

REF 

58 

LAST 

957 

15,2501 

1 6001 

J. 

1350 

REF 

1 

15,2502 

1 2504 

0 

1351 

REF 

3 

LAST 

957 

15,2  503 

1 2301 

0 
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ABOUTONE 

DSU 

2 6D 

STORE 

2 6D 

SLOAD 

SRI 

QMIN 

DAD 

PUSH 

26D 

RTB 

1ST02S 

STODL 

CURSOR 

24D 

DAD 

RTB 

1 STEJ2S 

STORE 

EXIT 

SPIR  AL 

TCF 

79DI SP 

EXIT 

CAF 

ZERO 

TS 

CURSOR 

TS 

SPIRAL 

TCF 

7 90 I SP 

EXIT 

INCR 

POSCODE 

cs 

POSCODE 

AD 

SEVEN 

EXTEND 

BZMF 

R59ALM 

CAF 

DEG60 

ADS 

QMI  N 

TCF 

STDR POS 

J-C 

ALARM 

OCT 

404 

CAF 

VB05N09 

TC 

BANKCALL 

CADR 

GOFL  ASH 

TCF 

GOTOPOOH 

TCF 

B 591  UT 

TCF 

R 5 9 

TC 

B AN  K CAL l 

CADR 

GOFL  ASH 

TCF 

GOTOPOOH 

TCF 

R 5 9 F 

TCF 

R 5 9 

360-THET  SCALED  IN  REVS 


RESCALE  AZIN)  TO  REVS 
PUSH  VROT  + AZIN)  REVS 


YROT  IN  1/2  REVS 
LOAD  SROT  IN  REVS 
12ISEP)  + YROT 


SROT  IN  1/2  REVS 

GO  DISPLAY  CURSOR-SPIRAL-POS  CODE 

STAR  ALMOST  OPTIC  AXIS, ZERO  CURSOR 
AND  SPIRAL  ANGLES 


THIS  STAR  NOT  AT  ANY  POSITION 

ADVANCE  AZIN)  BY  60  DEG 

IF  OVF , QMIN  CONTAINS  OVF  CORRECTED 

THIS  STAR  CANT  BE  LOCATED  IN  AOT  FIELD 

DISPLAY  ALARM 


V334-TERMINATE 

VB33-PR0CEED , GO  WITHOUT  AQUIRE 
VB32-RECYCLE  AND  TRY  ANOTHER  STAR 

DISPLAY  CURSOR,  SPIRAL  AND  POS  CODE 


V34-TEPM1NATE 

V33-PROCEED  TO  MARK  ROUT l NF 
V32-RECYCL  E TO  TOP  OF  R59  AGAIN 


GAP: 

L 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

13  74 

1375 

1375 

1376 

1376 

1377 

1378 

1379 

1380 
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REF 

36 

LAST 

90  1 

15,2504 

3 4751 

0 

R59E 

CAF 

B I T 3 

GET  DETENT  CORRESPONDING  TO  POSITION  COD 

REF 

5 

LAST 

957 

15,  2505 

7 1052 

0 

MASK 

POSCCDE 

KEYED  IN  POS  CODE 

15,2  506 

0 0006 

1 

EXTEND 

15,2507 

1 2511 

1 

BZF 

♦ 2 

FORWARD  DETENT 

15,2510 

1 2513 

0 

TCF 

+ 3 

ITS  REAR  DETENT,  4 ALREADY  IN  (A) 

LAST 

9 5 7 

1 5t  ? 5]  1 

3 4757 

0 

CAF 

SEVEN 

GET  FORWARD  DETENT 

REF 

6 

LAST 

95  8 

15,2512 

7 1052 

0 

MASK 

POSCODE 

15, 2513 

0 0006 

1 

EXTEND 

39 

LAST 

R9  9 

] 5,  2 5 1 4 

7 4745 

1 

MP 

B I T 7 

REF 

155 

LAST 

956 

15,2515 

56  001 

0 

XCH 

L 

REF 

17 

LAST 

957 

15,2516 

55*  745 

1 

TS 

QMIN 

REF 

L A's  T 

95  5 

1 5 , 2 5 1 7 

4 7743 

1 

cs 

HIGH9 

REF 

10 

LAST 

955 

15,2520 

7 0735 

1 

MASK 

AOTCODE 

REF 

18 

LAST 

95  8 

15, 2 521 

6 1745 

0 

AD 

QMIN 

R FF 

H 

I AST 

9 5 8 

15, 2522 

54  735 

1 

TS 

AOTCODE 

STORE  DETENT  IN  7-9 

REF 

280 

LAST 

95  7 

15, 2523 

0 4616 

1 

R590UT 

TC 

BANKCALL 

GO  TO  AOTMARK  FOR  SIGHTING 

REF 

3 

LAST 

94  8 

15, 2 524 

16000 

0 

CADR 

AOTMARK 

REF 

281 

LAST 

95  8 

15,2525 

0 46  16 

1 

TC 

BANK  CALL 

REF 

2 

LAST 

948 

15,2526 

17665 

1 

CADR 

A OTS  TALL 

SLEEP  TILL  SIGHTING  DONE 

REF 

7 

L AST 

950 

15, 2527 

0 5703 

0 

TC 

CURT  AINS 

BADEND  RETURN  FROM  AOTMARK 

REF 

i 

15,2530 

1 3123 

0 

TCF 

P59R  ET 

RETURN  TO  1 STAR  OR  2STAR 

1 5 t 2 ^3 1 

OD3  Q5 

l 

VOl N7  0# 

VN 

I 70 

15,2532 

01517 

0 

V06N79 

VN 

6 79 

15, 2533 

02525 

1 

DEG30 

2DEC 

.083333333 

30  DEGRESS 

15,2534 

1 2525 

o 

15,2535 

00026 

0 

DEG. 5 

2DEC 

.001 38888 

.5  DEGRESS  SCALED  IN  REVS 

15,2536 

30131 

1 

1 5, 2 537 

12525 

o 

DEG60 

OC  T 

1252  5 

60  DEG  CDU  SCALING 

REF 

28 

LAST 

927 

1045 

CURSOR 

EQUALS 

DSP  T EMI 

REF 

29 

LAST 

95  8 

1046 

SPIRAL 

EQUALS 

DSPTFM1  +1 

REF 

13 

LAST 

394 

1052 

POSCODE 

EQUALS 

DSPTEM2  +2 

GAP  : 

L 

P1381 

R1382 

R 1383 

R 1384 

R1385 

R1386 

R 1387 

R 13  88 

R 1389 

R 1 390 

R 139  1 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 
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NAME  - PLANET 

FUNCTION  -TO  PROVIDE  THE  REFERENCE  VECTOR  FOR  THE  SIGHTED  CELESTIAL 
BODY.  STARS  ARE  FETCHED  FROM  THE  CATALOG , SUN , EAR TH  AND 
MOON  ARE  COMPUTED  BY  LOC S AM , PL ANE T VECTORS  ARE  ENTERED 


CALL  - 

BY  DSDY  INPUT 
CALL 

INPIT  - 

ni  TPiiT  - 

PLANET 

TIME  IN  MP AC 
VECTOR  IN  MP AC 

SUBROUTINES  - LOCSAM 

DEBRIS  - VAC  , ST  A RAD  - STARAD  +17 

REF  4 

LAST  955  15,2000 

15,2540 

SETLOC  P50S 
BANK 

REF  1 COUNT  * $ $/ P 51 


REF 

8 

LAST 

949 

15.2540 

15.2541 

03560 

77420 

1 

- L- 

PLANET 

STORE 

STQ 

T SIGHT 
EXIT 

REF 

4 

LAST 

264 

15, 2542 

02736 

1 

GCTR 

REF 

7 

LAST 

958 

15, 2543 

4 7743 

1 

CS 

H IGH9 

REF 

_ 12 

LAST 

95  8 

15,2544 

7 0735 

1 

MASK 

AOTCODE 

15,2545 

0 0006 

1 

EXTEND 

REF 

3 

LAST 

955 

15,2546 

7 6241 

1 

MP 

REVCNT 

REF 

1 56- 

LAST 

95  8 

15,2547 

_ 56-  001 

0 

XCH 

-L 

REF 

12 

LAST 

955 

15,2550 

51 ' 757 

0 

INDEX 

STAR IND 

REF 

11 

LAST 

955 

15,2551 

55*755 

0 

TS 

BEST  I 

REF 

290 

LAST 

95  6 

15,2552 

10  000 

0 

CCS 

A 

REF 

1 

15,  2553 

1 2567 

0 

TCF 

NOTPLAN 

REF 

1 

15,  2554 

3 2626 

1 

CAF 

VNPL ANV 

REF 

2 82 

LAST 

958 

15,2555 

0 4616 

1 

TC 

BANKCALL 

REF 

37 

LAST 

957 

15,2556 

20351 

1 

CADR 

GOFL ASH 

15,2557 

0 2554 

1 

TC 

-3 

15, 2560 

0 2562 

1 

TC 

+ 2 

15,2561 

0 2554 

1 

TC 

-5 

REF 

194 

LAST 

956 

15,2562 

0 6036 

1 

TC 

INTPRET 

15,2563 

53575 

Q 

VLOAD 

UNIT 

REF 

22 

LAST 

949 

15, 2564 

02707 

0 

STAR  AD 

15,2565 

77650 

1 

GOTO 

REF 

5 — 

LAST 

959 

15,2566 

02736 

-L- 

GCTP 

REF 

2 91 

LAST 

959 

15,2567 

4 0000 

0 

NOTPLAN 

CS 

A 

REF 

2 

LAST 

955 

15,2570 

6 2625 

1 

AD 

DEC  2 27 

15,2571 

0 0006 

-JL 

EXTEND 

REF 

1 

15,  2 572 

6 2603 

0 

BZMF 

CALS  AMI 

REF 

13 

LAST 

959 

15,2573 

51' 757 

0 

INDEX 

STAR IND 

REF- 

JL2 

LAST 

959 

15,2574 

3 1755 

L 

CA 

BEST  I 

REF 

33 

LAST 

9 56 

15,2575 

50  120 

1 

INDEX 

F IXLOC 

REF 

21 

LAST 

955 

15,2576 

54  046 

1 

TS 

XI 

REF 

195 

LAST 

9 5 9- 

15,2577 

0 6036 

1 

TC 

I NTPRFT 

15,2600 

52173 

0 

VLOAD* 

GOTO 

REF 

12 

LAST 

955 

15,2601 

30347 

1 

C AT l OG,  1 

GAP 
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1429 

REF 

6 

LAST 

959 

15,2602 

02736 

i 

GCTR 

1430 

REF 

196 

LAST 

95  9 

15,2603 

0 6036 

i 

CAL  SAMI 

TC 

I NT  P RET 

1 5T  2 AO 4 

45145 

0 

CAL  SAM 

DLOAD 

CALL 

1 43  1 
1432 

REF 

9 

LAST 

959 

15, 2605 

03560 

i 

TSIGHT 

1433 

REF 

3 

LAST 

938 

15,2606 

30347 

i 

L DC  S AM 

1 5, 2 607 

77340 

0 

LXC  , 1 

VLOAD 

1435 

REF 

14 

LAST 

959 

15,2610 

02757 

0 

STAR  IND 

1436 

REF 

5 

LAST 

932 

15,2611 

02707 

0 

VEARTH 

15,2612 

24001 

0 

STOVL 

OD 

1438 

REF 

4 

LAST 

932 

15,2613 

02715 

0 

V SUN 

1439 

REF 

6 

LAST 

96  0 

15,2614 

26707 

0 

STOVL 

VEARTH 

1440 

15,2615 

00001 

0 

OD 

1441 

REF 

5 

LAST 

960 

15,2616 

02715 

0 

STORE 

VSUN 

1442 

15,2617 

70143 

0 

DLOAD* 

LXC,  1 

144^ 

R FF 

13 

LAST 

95  9 

15,2620 

02756 

1 

BEST  I ,1 

1444 

REF 

347 

LAST 

936 

15,2621 

00154 

1 

MPAC 

1445 

15,2622 

521  73 

0 

VLOAD* 

GOTO 

1446 

R EF 

2^ 

\ AST 

9 5 9 

1 5,  2 62  3 

02343 

1 

STARAD  -228D.1 

1447 

REF 

7 

LAST 

960 

15,2624 

02736 

1 

GCTR 

1448 

15,2625 

00343 

0 

DEC227 

DEC 

227 

1 5, 2 626 

01530 

o 

VNPL  ANV 

VN 

068e 

1450 

REF 

4 

LAST 

859 

37,3533 

PIPSRINE 

PIPASR  +3  EBANK  NOT  4 SO  DONT  LOAD  PIPTIME1 

GAP:  ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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P1451  GRAVITY  VECTOR  DETERMINATION  ROUTINE 

R1452  BY  KEN  VINCENT 

r 1 453  FOR  DETAILED  DESCRIPTION  SEE  504GSOP  5. 6. 3.2. 5 
R 1454  THIS  PROGRAM  FINDS  THE  DIRECTION  OF  THE  MOONS  GRAVITY 

r 1455  WHILE  THE  LM  IS  ON  THE  MOONS  SURFACE.  IT  WILL  BE  USED 

R1456  FOP  LUNAR  SURFACE  ALIGNMENT.  THE  GRAVITY  VECTOR  IS 
r 1457  DETERMINED  BY  READING  THE  PIPAS  WITH  THE  IMU  AT  TWO 
R 1458  PARTICULAR  OR  I QNT AT  IONS.  THE  TWO  READINGS  ARE  AVERAGED 
R 1459  AND  UNITIZED  AND  TRANSFORMED  TO  NB  COORDINATES.  THE  TWO 
R 1 460  ORIENTATION  WERE  CHOSEN  TO  REDUCE  BIAS  ERRORS  IN  THE 

R 146 1 READINGS. 

R 1462 

R 1463  CALL- 

R 1464  TC  BANKCALL 

R 1465  CADR  GVDETER 

R 1466  INPUT  S— 

R 1467  PIPAS, CDUS 

R 146  8 OUTPUT  S- 


R1469  STARS AV 1 = UNIT  GRAVITY 

R 1470  GSAV  = DITTO 

R 147 1 GRAVBIT  a 1 

R 1472  SUBROUTINES— 

R 1473  PIP  A SR,  I MUCOAPS  , IMUF  INE,  I MUST  ALL  ,1/P  IP  A , DE  L A Y J03  , C D UTRI G , 

R1474  *NBSM*  , *SNMB* , CALCGA ,FOFLASH 

R1475  DEBRIS- 

R1476  VAC, SAC  , ST AR AD , X SM , X NB , TH ET AD ,DE LV , COSCDU , S INCDU 


14-77 

REF 

41  1 AST 

956 

1 5 t 2627 

4 

4717  ! GVDFTFR  CS 

B IT  1 3 

JAM  45  DEG  IN  DESIRED  GIMBAL  ANGLES 

1478 

REF 

14  LAST 

948 

15,  2630 

54 

322  0 

TS 

THFTAD  +1 

1479 

15,  2631 

4 

0000  0 

COM 

1480 

REF 

15  LAST 

96  1 

1 5, 2632 

54 

3 23  1 

TS 

THETAD  +2 

1481 

REF 

16  LAST 

96  1 

15, 2633 

54 

321  0 

TS 

THETAD 

1482 

REF  1 

57  LAST 

960 

15,2634 

0 

6036  1 

TC 

INTPRET 

1483 

15,2635 

45014  0 

CLEAR 

CALL 

14  84 

REF 

6 LAST 

949 

15,2636 

01662  1 

REFSMFLG 

1485 

REF 

1 

15,2637 

32734  0 

LUNG 

R 1 486 

FIND 

GIMBAL  ANGLES 

WHICH  ROTATE 

SM  180DEG 

ABOUT  G VFC 

R 1487 

R 1488 

DEFINE  G COOR 

SYS 

R 1489 

— 

R 1490 

X UNIT 

G 

R 149  1 

* 

- 

- 

R 1492 

M= 

Y = UNI TEZSM  * X ) 

R 1493 

- 

- 

- 

R 1494 

Z UNITIX 

* Y ) 

R 1495 

THEN 

ROTATED 

SM 

WRT  PRESENT 

IS 

R 1496 

R 1497 

R149B 

1 , 0,0 

R 1499 

* 

*T 

* 

* 

* 

R 1 500 

X SM  = 

M 

0,  -1  , 0 

M 

= 2 (XX 

) - 1/2  I 

& 

GAP: 

L 

R 150 1 

R1502 

R1503 

R 1504 

R 1 505 

R 1 506 

R 1 507 

R 1508 

R 1509 

R 1 5 1 0 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1 536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 
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0,  0 ,-l 


I J 


ALSO  NB  WRT  PRES  SM  IS 


* * * 

XNB  = NBSM  I 

* * 

GIMBAL  ANGLES  = CALCGA ( XSM  , XNB  ) 


REF 

5 

LAST 

959 

15,2000 

SETLOC 

P 50  S 

15,7  640 

BANK 

REF 

1 

COUNT* 

$ $/P  57 

15,2640 

66370 

0 

AXT , 1 

SSP 

Xl  = 18 

15,7641 

00022 

1 

18D 

SI  = 6 

REF 

10 

LAST 

95  1 

15,2642 

00051 

0 

SI 

X 2 , -2 

15,2643 

00006 

1 

6 D 

15,2  644 

77744 

0 

LXC  ,2 

REF 

11 

LAST 

962 

15, 2645 

00050 

1 

SI 

15,2646 

45173 

0 GRAVEL 

VLOAD* 

CALL 

RFF 

4 

1 AST 

9 5 6 

1 5,7  647 

555  12 

1 

XUN I T -6,2 

REF 

5 

LAST 

887 

15,2650 

47577 

1 

*NBS  M* 

SIN  AND  COS  COMPUTED  IN  LUNG 

RFF 

7 

LAST 

95  l 

15,2651 

06707 

1 

STORE 

XNB  +180,1 

15,2  652 

77775 

1 

VLOAD 

REF 

7 

LAST 

956 

15,2653 

02731 

0 

STAR 

15, 2654 

73744 

1 

LXC, 2 

VXSC* 

COMPLEMENT-  UNITX  ARE  BACKWARD  - 

REF 

14 

LAST 

88  l 

1 5,2655 

00047 

1 

X 2 

REF 

8 

LAST 

96  2 

15,2656 

75040 

1 

STAR  +6,2 

OUTER  PRODUCT 

15,2657 

71152 

1 

VSL2 

LXC  , 2 

REF 

15 

LAST 

96  2 

15, 2660 

00047 

1 

X2 

15, 2661 

63047 

1 

VSU* 

I NCR  ,2 

REF 

5 

LAST 

96  2 

15, 2662 

55512 

1 

XUN I T -6,2 

) 5,  7 66 T 

00002 

o 

2D 

REF 

20 

LAST 

954 

15, 2664 

06665 

1 

STORE 

XSM  +180,1 

15, 2665 

45100 

1 

TI  X,  1 

CALL 

REF 

1 

15,2  666 

32646 

1 

GP AV  EL 

REF 

3 

LAST 

95  1 

15,2667 

47255 

0 

CALCGA 

15,2670 

74575 

0 

VLOAD 

V SR  1 

REE 

1 

15,2671 

02715 

0 

GOUT 

REF 

24 

LAST 

960 

15,2672 

36723 

1 

STC ALL 

STARAD  + 1 2 D 

REF 

2 

LAST 

96  1 

15,2673 

32734 

0 

LUNG 

15,2674 

74575 

0 

VLOAD 

VSR  1 

REF 

2 

LAST 

962 

15,2675 

02715 

0 

GOUT 

15,2676 

53455 

0 

VAD 

UNIT 

REF 

25 

LAST 

962 

15,2677 

02723 

0 

STAR  AD  +12D 

REF 

7 

LAST 

949 

15,2700 

02761 

0 

STORE 

STAR  S AVI 

15,2701 

77641 

1 

DOT 

REF 

— 6— 

LAST 

796 

15,2702 

02235 

1 

G S A V 

15,  2703 

65552 

0 

SL1 

ACOS 

REF 

30 

LAST 

95  8 

15,2704 

01046 

1 

STORE 

DSPTEM1 

GAP  : 

V 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

15S3 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 
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REF  88  LAST  953 

15,2705 
15,  2706 

77776  1 
0 5516  0 

EX  IT 
TC 

DOW  N FLAG 

CLEAR  FREEFLAG  IN  CASE  OF  RECYCLE 

REF  8 LAST  949  15,2707  00014  1 ADRES  FREEFLAG 


REF  1 

15,2710 

3 3040 

0 

CA 

D I SGRVER 

REF 

| AST 

95  9 

15, 2 71 1 

0 4616 

1 

TC 

BANK  CALL 

REF  38 

LAST 

95  9 

15,2712 

20351 

1 

CADR 

GOFL ASH 

REF  59 

LAST 

957 

15,2713 

0 6001 

0 

TC 

GOTO  POOH 

REF  1 

15,2714 

1 2717 

0 

TC  F 

PROGRAV 

V B33-PR0CE  ED 

REF  60 

LAST 

89  1 

15,2715 

0 55  04 

0 

TC 

UPFLAG 

VB32-RECYCLE— STORE  GRAV  AND 

DO  IT  AGAIN 

REF  9 

LAST 

963 

15,2716 

00014 

1 

ADRES 

FREEFLAG 

AND  SET  FREEFLAG  TO  SHOW  RECYCLE 

REF  94 

LAST 

949 

15,2717 

0 5353 

1 

PROGRAV 

TC 

PHASCHNG 

15,2720 

05024 

1 

OCT 

05024 

1 5, 2 72  1 

13000 

0 

OCT 

l 3000 

RFF  198 

LAST 

96  1 

15,2722 

0 6036 

1 

TC 

I NTPRET 

15,  2723 

77775 

1 

VLOAD 

REF  P 

1 AST 

96  ? 

1 5 f ?1?<* 

02761 

0 

STAR  SAV1 

RFF  7 

LAST 

962 

15,2725 

02235 

1 

STORE 

GSAV 

15, 2726 

77776 

1 

EXIT 

REF  1 

15t  2727 

3 4751 

0 

CAF 

FREEFBIT 

IF  FREEFLAG  SFT,  RF-COMPUTE 

GRAVITY. 

REF  29 

LAST 

906 

15, 2730 

7 0074 

0 

MASK 

FLAGWRDO 

REF  292 

LAST 

959 

15, 2731 

10  000 

0 

CCS 

A 

REF  1 

15,2732 

1 2627 

TC  F 

GVDETER 

SET 

REF  1 

15,2733 

1 3535 

0 

TC  F 

A TTC  HK 

EXIT  FROM  GVDETER 

1 ? 734 

11?  70 

1 

L UNG 

STO 

VLOA  D 

REF  19 

LAST 

95  8 

15,2735 

02745 

0 

QMIN 

REF  4 

LAST 

950 

15,2736 

22275 

1 

ZEPOVEC 

REF  1 

15,2737 

07  7 07 

0 

STORE 

G AC  C 

15,2740 

77776 

1 

EX  IT 

REF  95 

LAST 

963 

15,2741 

0 5353 

1 

TC 

PHASCHNG 

15,2  742 

05024 

1 

OCT 

05024 

15,2743 

13  000 

0 

OCT 

1 3000 

REF  284 

LAST 

963 

15,2744 

0 4616 

1 

TC 

BANKCALL 

REF  5 

LAST 

950 

15,2745 

16753 

1 

CADR 

I MUCOARS 

REF  285 

LAST 

96  3 

15,2  746 

0 46  16 

1 

TC 

BANKCALL 

REF  12 

LAST 

950 

15,2747 

17671 

1 

CADR 

l MUS  TALL 

REF  8 

LAST 

958 

15,2750 

0 5703 

0 

TC 

CURTAINS 

REF  286 

LAST 

963 

15,2751 

0 4616 

1 

TC 

BANKCALL 

REF  4 

LAST 

950 

1 5,  2752 

17163 

0 

CADR 

I MUF INE 

REF  287 

LAST 

963 

15,2753 

0 4616 

1 

TC 

BANKCALL 

REF  13 

LAST 

963 

15,2754 

17671 

1 

CADR 

IMUSTALL 

REF  9 

LAST 

963 

15,  2755 

0 5703 

0 

TC 

CURTAINS 

REF  L 

15,2756 

3 3037 

0 

CA 

T/2S  FC 

REF  8 

LAST 

960 

15, 2757 

55' 736 

0 

TS 

GCTP 

REF  4 

LAST 

86  1 

15,2760 

3 7715 

0 

CA 

PRIO  31 

REF  10 

LAST 

950 

15,2761 

5 5 ' 0 75 

0 

TS 

1 /PI  PADT 

REF  288 

LAST 

96  3 

15,2762 

0 46  16 

1 

TC 

BANKCALL 

REF  1 

15,2763 

15701 

0 

CADR 

GCOMPZFP 

INITIALIZE  COMPENSATION 

GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


19:02  NOV.  25,1968  LEMP50S  .103  PAGE  964 


P5 1- P 5 3 USER'S  PAGE  NO.  40  E5  S3 


1598 

REF  96 

LAST 

96  3 

15, 2764 

0 5353 

1 

TC 

PHASCHNG 

1599 

15,2765 

05024 

1 

OCT 

05024 

1 St  2 766 

13000 

0 

OCT 

13000 

1601 

REF  289 

LAST 

963 

15, 2767 

0 4616 

1 

TC 

BANKCALL 

DONT  NEED  TO  INHINY 

THIS  USED  TO 

1602 

REF  1 

15,2770 

77533 

1 

CADR 

PIPSRINE 

INITIALIZE  PIPAS  DONT  USE  DATA 

LAST 

q fy^ 

IS, 2 771 

0 6036 

1 

TC 

INTPRET 

1604 

15,2772 

77776 

1 GREED 

EXIT 

= MASK  7776  IN  BASIC 

SO  DONT  CAPE 

1605 

REF  6 

LAST 

85  8 

15,2773 

3 5000 

1 

CAF 

2 SEC  S 

RE  F 28 

LAST 

8Q  q 

1 s, 2774 

0 5 173 

1 

TC 

TWI DDLF 

SET  UP  2 SEC  TASK  TO 

READ  PIPAS 

1608 

REF  1 

15,2775 

02777 

1 

ADRES 

GRAB  GR AV 

1609  REF  143  LAST  927  15,2776  0 5155  0 TC  END OF JOB 


1610 

1611 

RFF 

REF 

47 

2 

LAST 
1 AST 

92  3 
9 64 

15,2777 
1 5, 3000 

0 46  74 
77533 

0 

1 

GRA8GRAV 

TC 

CADR 

I BNKCALL 
PIPS  RINE 

16141 

REF 

3 

LAST 

835 

15,3001 

3 5023 

0 

CAF 

PRI013 

RE-ESTABLISH  MAINLINE  JOB 

16142 

REF 

38 

LAST 

874 

15, 3002 

0 5105 

0 

TC 

F INDVAC 

1614  3 

REF 

26 

L AST 

962 

F 5, 1 706 

EBANK= 

STAR  AD 

16144 

REF 

i 

15,3003 

03006 

1 

2CADR 

ADDGPAV 

16144 

REF 

i 

15,3004 

32065 

0 

16145 

REF 

64 

LAST 

906 

15,3005 

0 5261 

1 

TC 

TASKOVER 

1614^ 

RE  F 

2 qn 

LAST 

Q./V4 

1 S, 3006 

n 46  16 

l 

4 POOR AV 

TC 

RANKf  Al  1 

16147 

REF 

3 

LAST 

86  1 

15,3007 

15263 

1 

CADR 

l/PI PA 

16148 

REF 

9 

LAST 

963 

15,3010 

2 5 ' 736 

1 

I NCR 

GCTR 

1615 

Q EF 

2 00 

LAST 

q A 4 

1-5 1 30  1 1 

0 60  R6 

1 

TC 

INTPRET 

1616 

15,3012 

53375 

0 

VLOAD 

VAD 

1617 

REF 

9 

LAST 

911 

15,3013 

00325 

0 

DEL  V 

1618 — 

REF 

2— 

LAST 

96  3 

1 5,  3 014 

02707 

0 

G ACC 

1619 

REF 

3 

LAST 

964 

15,3015 

02707 

0 

STORE 

G ACC 

ACCUMULATE  G VECTOR 

1620 

15,3016 

50135 

0 

SLOAD 

BMN 

1621 

REF 

— ID— 

LAST 

964 

15,3017 

02737 

0 

GCTR 

1622 

REF 

1 

15,3020 

32772 

1 

GREF  D 

1623 

15,3021 

53575 

0 

VLOAD 

UNIT 

1624 

REF 

4 

LAST 

96  4 

1 5,  3 022 

02707 

0 

G ACC 

1625 

REF 

9 

LAST 

962 

15,3023 

36731 

1 

STCALL 

STAR 

1626 

REF 

7 

LAST 

955 

15,3024 

47443 

1 

CDUTRIG 

TRANSFORM  IN  N3  COOR  AND  STORE 

1627 

1 5,3025 

77624 

1 

CALL 

IN  OUTPUT 

1628 

REF 

8 

LAST 

955 

15,3026 

47575 

0 

*SMNB* 

1629 

REF 

3 

LAST 

96  2 

15,3027 

02715 

0 

STORF 

GOUT 

1630 

15, 3030 

77776 

1 

EXIT 

1631 

REF 

97 

LAST 

964 

15,3031 

0 5353 

1 

TC 

PHASCHNG 

1632 

15,3032 

05024 

1 

OCT 

05024 

1633 

1 5, 3033 

13000 

0 

OCT 

1 3000 

1634 

REF 

201 

LAST 

964 

15, 3034 

0 6036 

1 

TC 

I NTPPET 

1635 

15, 3035 

77650 

1 

GOTO 

1636 

REF 

20 

-LAST 

963 

15,3036 

02745 

0 

QMI  N 

1637 

15,3037 

77751 

1 

T/2SEC 

DEC 

-22 

1638 

15,3040 

01404 

0 

DISGRVER 

VN 

0604 
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P 1639  NAME  GYROTRIM 
R 1640 

R1641  THIS  PROGRAM  COMPUTES  AND  SENDS  GYRO  COMMANDS  WHICH  CAUSE  THE  CDUS 

r 1642  TO  ATTAIN  A PRESCRIBED  SET  OF  ANGLES.  THIS  ROUTINE  ASSJMES  THE 

R 1 6 43  VEHICLES  ATTITUDE  REMAINS  STATIONARY  DURING  ITS  OPERATION. 

R 1 644 

R 1 645  CALL  CALL 

R 1646  GYROTRIM 

R 1 647 

R1648  INPUT  THETAD,+  l,  + 2 = DESIRED  CDU  ANGLES 

R 1649  COUX,CDUY,CDUZ 

R 1 650 

R 165 1 OUTPUT  - GYRO  TORQUE  PULSES 

R 16  52 

R1653  SUBROUTINES-  T RG* NBSM , *NB SM* , CDUTR IG , AX  ISGEN , CALCGTA , IMUF INE 
R1654  IMPULSE, IMUSTALL 


R1655 

- 

- 

- 

£ 

- 

R16  56 

n f r r i <;  - 

mu  spot 

. STINirnil  .CO  SC  DU  . 

STARAD  .VAC 

, XDC  , 

OGC 

1657 

REF 

2 

LAST 

962 

TO  965: 

129  129* 

COUNT  * 

$ $/ P 57 

1658 

15,3041 

71220 

1 

GYROTRIM 

STQ 

DLOAD 

1659 

REF 

21 

LAST 

964 

15,3042 

02745 

0 

QMIN 

1660 

REF 

17 

LAST 

96  1 

15,3043 

00322 

l 

THET AD 

1661 

15,3044 

65325 

0 

PDDL 

PDDL 

1662 

REF 

18 

LAST 

965 

15,3045 

00324 

1 

THFTAD  +2 

1663 

REF 

19 

LAST 

96  5 

15,3046 

00323 

0 

THETAD  +1 

1664 

15, 3047 

77666 

1 

VDEF 

1665 

REF 

25 

L AST 

896 

15,3050 

24767 

1 

STOVL 

CDUS  POT 

1666 

REF 

6 

LAST 

962 

15, 3051 

22273 

1 

X UN  I T 

1667 

15,3052 

77624 

1 

CALL 

1668 

REF 

5 

LAST 

59  0 

15»  3053 

47570 

0 

TPG*NBSN 

1669 

REF 

27 

LAST 

964 

15, 3054 

26707 

0 

STOVL 

STAR  AD 

1670 

REF 

2 

LAST 

36 

15, 3055 

22271 

0 

YUNI  T 

-1-67-1 

15,3056 

77624 

1 

CALL 

1672 

REF 

6 

LAST 

96  2 

15, 3057 

47577 

1 

*NBS  M* 

1673 

REF 

28 

LAST 

96  5 

15,3060 

36715 

1 

STC ALL 

STARAD  +6 

1674 

REF 

8 

LAST 

964 

15,3061 

47443 

1 

C DUT  P IG 

1675 

15, 3062 

77624 

1 

CALL 

1676 

REF 

3 

LAST 

95  1 

15, 3063 

31267 

0 

CALCSMSC 

1677 

15, 3064 

77775 

1 

VLOAD 

1678 

REF 

8 

LAST 

962 

15,3065 

02665 

0 

XNB 

1679 

l 5, 3066 

24007 

0 

STOVL 

6 D 

16  80 

REF 

3 

LAST 

38  7 

15, 3067 

02673 

1 

Y MB 

1681 

15,3070 

34015 

1 

STCALL 

1 2D 

1682 

REF 

3 

LAST 

94  9 

15,3071 

47345 

0 

AXISGEN 

16  83 

15,3072 

77624 

1 

CALL 

1684 

REF 

3 

LAST 

942 

15,3073 

47151 

1 

CALCGTA 

1685 

15,3074 

77776 

1 

JUSTTRIM 

EXIT 

1686 

REF 

291 

LAST 

96  4 

15, 3075 

0 46  16 

1 

TC 

BANK  CALL 

1687 

REF 

5 

LAST 

963 

15,3076 

17163 

0 

CADR 

IMUF INE 

1688 

REF 

292 

LAST 

965 

15,3077 

0 4616 

1 

TC 

B AN K CALL 

965 
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16  89 

REF 

14 

LAST 

963 

15, 3100 

17671 

1 

CAOR 

I MUS  TALL 

1690 

REF 

10 

LAST 

963 

15,3101 

0 5703 

0 

TC 

CURTAINS 

n r-  t- 

15  t 3 102 

3 3 113 

1 

CA 

GYRCDR  _ _ 

16  9 1 
1692 

REF 

293 

LAST 

96  5 

15,3 103 

0 4616 

1 

TC 

BANKCALL 

1693 

REF 

6 

LAST 

942 

15,3104 

17276 

1 

CADR 

IMUPULSE 

15t  3 105 

n 46  16 

1 

TC 

BANKCALL 

1695 

REF 

15 

L W J • 

LAST 

966 

15,3106 

17671 

1 

CADR 

IMUSTALL 

1696 

REF 

11 

LAST 

966 

15, 3107 

0 5703 

0 

TC 

CURTAINS 

L /\$  T 

Q6  4 

15t  3 1 1 0 

0 60  36 

1 

TC 

INTPRET 

1698 

15,3111 

77650 

1 

GOTO 

1699 

REF 

22 

LAST 

965 

15,3112 

02745 

0 

OMI  N 

1700 

REF 

12- - 

LAST 

94 2 

15,3113 

02737 

0 GYRCDR 

ECADR 

OGC 
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P1701 

PERFORM 

STAR 

AQUISITION  AND 

STAR  SIGHTINGS 

l_  <;  t 

9 5 7 

15,3114- 

3 47  55 

1 

? ST AR  S 

C AF 

ZERO 

INITALIZE  STAPIND 

1702 

1703 

15,3115 

1 3117 

1 

TCF 

+ 2 

ZERO  FOR  1ST  STAR,  ONE  FOR  2ND  STAR 

1704 

REF 

50 

LAST 

955 

15,3116 

3 4753 

1 

ISTAR 

CAF 

BIT1 

p ef 

L5 

1 AST 

96  0 

15,3117 

55 • 757 

1 

TS 

STAR IND 

17051 

*REF 

58 

LAST 

964 

15,3120 

0 5353 

1 

TC 

PHASCHNG 

1705  2 

15,3121 

04024 

0 

OCT 

04324 

1706 

REF 

4 

LAST 

957 

15,3122 

1 2301 

0 

TCF 

R 5 9 

GO  DO  STAR  AQUIPE  AND  ADTMARK 

1707 

REF 

16 

LAST 

967 

15,3123 

3 1757 

0 

R59RET 

CA 

STAR  IND 

BACK  FROM  SURFACE  MARKING 

1708 

15,3124 

0 0006 

1 

EXTEND 

17C9  REF  1 15,3125  1 3144  1 BZF  ASTAR  1ST  STAR  MARKED 


1710 

REF 

203 

LAST 

966 

15, 3126 

0 6036 

1 

TC 

I NTPRET 

2ND  STAR  MARKED 

1711 

15, 3127 

77775 

1 

VLOAD 

1712 

REF 

29 

LAST 

965 

15, 3 130 

02715 

0 

STAPAD  +6 

1713 

REF 

8 

LAST 

949 

15,3131 

02767 

0 

STORE 

STAR  SAV2 

2ND  STAR  IN  SM 

1714 

15,3132 

77776 

1 

EXIT 

1715 

REF 

99 

LAST 

96  7 

15,3133 

0 5353 

1 

TC 

PHASCHNG 

1716 

15,3134 

05024 

1 

OCT 

05024 

1717 

15, 3 135 

13000 

0 

OCT 

1 3000 

1718 

RFF 

? 04 

LAST 

Q5  7 

1 5 r 3 136 

0 6036 

1 

TC 

I NT P RET 

1719 

15, 3137 

451  45 

0 

DLOAD 

CALL 

1720 

REF 

10 

LAST 

960 

15,3140 

03560 

1 

T SIGHT 

TIME  OF  2ND  MARK 

1721 

REF 

6 

-L  AST 

954 

15,3141 

32540 

1 

PLANET 

1722 

REF 

i 

15,3142 

36731 

1 

STCALL 

VEC2 

STORE  2ND  CATALOG 

VEC  I REF) 

1723 

REF 

i 

15,3143 

33156 

0 

SURFLINE 

1724 

REF 

2 C 5 

LAST 

967 

15,3144 

0 6036 

1 

ASTAR  TC 

I NTPRET 

1725 

15,3145 

77775 

l 

VLOAD 

172-6- 

REF 

30 

LAST 

967 

15,3146 

02  715 

0 

STARAD  +6 

1727 

REF 

9 

LAST 

96  3 

15,3147 

02761 

0 

STORE 

STAR  SAV 1 

1ST  OBSERVED  STAR 

( SM) 

1728 

15,3150 

45145 

0 

DLOAD 

CALL 

1729 

REF 

11 

LAST 

967 

15,3151 

03560 

1 

T SIGHT 

TIME  OF  1ST  MARK 

1730 

REF 

7 

LAST 

967 

15,3152 

32540 

1 

PLANET 

1731 

REF 

1 

15, 3 153 

02723 

0 

STORE 

V EC1 

STORE  1ST  CATALOG 

VEC  (REF) 

1732 

15,3154 

77776 

1 

EXIT 

1733 

REF 

1 

15,3155 

1 3116 

0 

TCF 

ISTAR 

GO  GET  2ND  STAR  SIGHTING 

967 


GAP 
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PI  734 

DO 

FINE 

OR  COARSE 

ALIGNMENT  1 

3F  IMU 

77131 

1 

SIIR  FI  INF 

SSP 

A XT  , 2 

1735 

1736 

REF 

11 

LAST 

93  5 

15,3  157 

00052 

0 

S2  ' 

1737 

15,3160 

00006 

1 

6 

1738 

15,3161 

000  14 

1 

1 2D 

1739 

15,3162 

64373 

1 

WRTDESIR 

VLOAD* 

MX  V 

1740 

REF 

2 

LAST 

967 

15,3163 

75040 

1 

V EC  1 +12  D , 2 

PICK  UP  VEC  IN  RFF,  TRANS  TO  DESIRED  SH 

1741 

P EF 

10 

L £ST 

Q5  2 

15,3  164 

03605 

1 

X SMD 

1742 

15,3165 

77656 

1 

UNIT 

1743 

REF 

31 

LAST 

967 

15,3166 

12723 

1 

STORE 

STAR  AD  + 1 2 D, 2 

VEC  IN  SM 

15*3167 

77773 

1 

VLOAD* 

1745 

REF 

10 

LAST 

967 

15,3170 

75002 

1 

ST AP  SAV 1 + 12D , 2 

PICK  UP  VEC  IN  PRESENT  SM 

1746 

15,3171 

10023 

1 

STORE 

1 8 D , 2 

1 5t  3 1 72 

431  04 

o 

T I X , 2 

B ON 

1748 

REF 

1 

15,3173 

33162 

1 

WRTDESIR 

17481 

REF 

1 

15,3174 

04315 

1 

INITALGN 

IF  INITIAL  PASS  (OPTION  0)  BYPASS  R54 

1 7 4 p.  2 

R FF 

1 

1 5,  3 i 75 

33203 

0 

INI  TBY 

1749 

15,3176 

77624 

1 

DOAL IGN 

CALL 

1750 

REF 

2 

LAST 

939 

15,3177 

31121 

1 

R 54 

DO  CHKSDAT A 

1751 

1 5,3  200 

776  14 

1 

BOFF 

1752 

REF 

10 

LAST 

963 

15,3201 

003  54 

0 

FRFF  FLAG 

1753 

REF 

1 

15, 3202 

33264 

1 

P57P0ST 

ASTRO  DOES  NOT  LIKE  DATA  TEST  RESULTS 

1753  1 

15, 3203 

77624 

1 

INI TBY 

CALL 

1754 

REF 

4 

LAST 

965 

15,3204 

47345 

0 

A X I S GEN 

GET  DESIRED  ORIENT  WRT  PR E S. X DC , YDC , Z DC 

1755 

15, 3205 

77624 

1 

CALL 

1 756 

REF 

4 

1 AST 

96  5 

15,  3 206 

47151 

1 

CALC  GT  A 

GET  GYRO  TORQ  ANGLES,  OGC,IGC,MGC 

1757 

15,3207 

77776 

1 

EXIT 

17571 

REF 

i 

15,3210 

3 4752 

c 

CAF 

INHABIT 

IF  INITIAL  PASS  BYPASS  NOUN  93  DISPLAY 

17572 

R FF 

L 2 

1 AST 

86  1 

15,321 1 

7 0104 

0 

MA  SK 

F L AG  WRD8 

17573 

REF 

293 

LAST 

963 

15,3212 

10  000 

0 

CCS 

A 

17574 

REF 

1 

15, 3213 

1 3222 

1 

TCF 

5DEG  TEST 

1758 

RE_F 

1 

15, 3214 

3 33  16 

0 

CAF 

D ISP  GYRO 

DISPLAY  GYRO  TORQ  ANGLES  V 06N93 

1759 

REF 

295 

LAST 

966 

15,3215 

0 46  16 

1 

TC 

BANKCALL 

1760 

REF 

39 

LAST 

963 

15,3216 

20351 

1 

CADR 

GOFL ASH 

1761 

R FF 

60 

LAST 

96  3 

15,3217 

0 6001 

0 

TC 

GOTO  POOH 

V34-TEPMIN ATE 

1762 

REF 

2 

LAST 

968 

15, 3220 

1 3222 

1 

TCF 

5 DE  G TEST 

VB33-PROCEED  TO  COARSE  OR  FINE 

1763 

REF 

2 

LAST 

96  8 

15, 3221 

1 3265 

1 

TCF 

P57P0ST  +1 

V832-RECYCLE,  MAYBE  RE-ALIGN 

1764 

REF 

206 

LAST 

96  7 

15,32 22 

0 6036 

1 

5DEGTEST 

TC 

I NT  P PET 

IF  ANGLES  GREATER  THAN  5 DEGS , DO  COARSE 

1765 

15, 3223 

401  75 

0 

VLOAD 

BOV 

1766 

REF 

13 

LAST 

966 

15,3224 

02740 

0 

OGC 

1767 

REF 

1 

15, 3225 

33226 

1 

SURFSUP 

1768 

REF 

2 

LAST 

139 

15, 3226 

02750 

1 

SURFSUP 

STORE 

OGCT 

1769 

15, 3227 

40141 

1 

V/ SC 

BOV 

1770 

REF 

2 

LAST 

933 

15,3230 

30451 

1 

5DECREFS 

1771 

REF 

1 

15,3231 

33273 

1 

COATPIM 

17  72 

15,3232 

52131 

0 

SSP 

GOTO 

1773 

REF 

23 

LAST 

966 

15,3233 

02  746 

0 

OMI  N 

1774 

REF 

1 

15,3234 

33236 

0 

SURFDISP 

GAP 
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1775 

REF 

1 

15,3235 

330  74 

1 

JUSTTRIM 

1 ST T7T6 

77776 

1 

SUR  FD I SP 

F X I T 

17  76 
1777 

REF 

100 

LAST 

967 

15,3237 

0 5353 

1 

TC 

PHASCHNG 

1778 

15,3240 

05024 

1 

OCT 

05024 

15, 3 241 

13000 

0 

OCT 

13000 

1780 

REF 

207 

LAST 

96  8 

15, 3242 

0 6036 

1 

TC 

I NT  P R FT 

1781 

15,3243 

75160 

1 

AXC , 1 

AXC,  2 

1 7 fi  ? 

R FF 

11 

LAST 

96  8 

15, 3244 

03604 

0 

XSMD 

1783 

REF 

50 

LAST 

955 

15,3245 

01733 

1 

REFSMMAT 

1784 

15, 3246 

45014 

0 

SFT 

CALL 

1785 

REF 

7 

LAST 

96  1 

15, 3247 

01462 

0 

R E F S MFLG 

1786 

REF 

5 

LAST 

95  1 

15, 3250 

31237 

0 

MATMOVE 

1787 

15,3251 

77776 

1 

EXIT 

] IP, 9, 

R ELF 

10 

] AST 

9?  7 

15, 3252 

11*145 

1 

CCS 

OPT  I 0N2 

1789 

REF 

1 

15,3253 

1 3255 

1 

TCF 

B2F8 

1790 

REF 

3 

LAST 

968 

15, 3254 

1 3265 

1 

TC  F 

P57P0ST  +1 

1791 

REF 

2 

LAST 

96  8 

15,3255 

3 4752 

0 

B2F8 

CAF 

IN  IT  ABIT 

1792 

REF 

13 

LAST 

96  8 

15,3256 

7 0104 

0 

MASK 

F 1A3WRDR 

1 7Q^ 

R F F 

2 94 

| AST 

94  ft 

1 ^ ?57 

1 0 000 

o 

CCS 

A 

1794 

*REF 

i 

15,3260 

1 3543 

1 

TCF 

P 57  J UMP 

1795 

REF 

2 C 8 

LAST 

969 

15,3261 

0 6036 

1 

TC 

I NTPRET 

1796 

15,3262 

77624 

1 

CALL 

1797 

REF 

2 

LAST 

796 

15, 3263 

33470 

1 

REFMF 

1798 

15, 3264 

77776 

1 

P57  POST 

EXIT 

1799 

R F F 

4 

LAST 

939 

1 5,3265 

3 5742 

0 

CAF 

OCT  1 4 

1800 

REF 

296 

LAST 

968 

15, 3266 

0 4616 

1 

TC 

B’ANKCALL 

1801 

REF 

9 

LAST 

948 

15, 3267 

20476 

0 

CADR 

G0PERF1 

1 802 

REF 

61 

LAST 

96  8 

15,3270 

1 6001 

1 

TCF 

GOTO  POOH 

1803 

*REF 

2 

LAST 

969 

15,3271 

1 3543 

1 

TCF 

P57JUMP 

1304 

REF 

62 

LAST 

969 

15,3272 

1 6001 

1 

TCF 

GOTOPOOH 
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P 1805  COARSE  AND  FINE  ALIGN  IMU 


1806 

15,3273 

75160 

1 

COATRIM 

AXC,  1 

AXC  , 2 

1^07 

REF 

5 

1 AST 

949 

15, 3274 

02664 

-1 

XDC 

1808 

REF 

21 

LAST 

962 

15,3275 

02642 

0 

XSM 

1809 

15,3276 

77624 

1 

CALL 

18  10 

RFF 

6 

1 AST 

96  9 

15,3277 

312  37 

0 

MATMQVE 

1811 

15,3300 

77624 

1 

CALL 

1812 

REF 

9 

LAST 

965 

15,3301 

47443 

1 

CDUTRIG 

18  13 

15,3302 

77624 

l 

CALL 

1814 

REF 

4 

LAST 

965 

15,3303 

31267 

0 

CALCSMSC 

1815 

15,3304 

776  24 

1 

CALL 

1816 

RE  F 

4 

LAST 

962 

15, 3305 

472  55 

0 

CALCGA 

1817 

15, 3306 

77624 

1 

CALL 

1818 

REF 

3 

LAST 

948 

15, 3307 

31506 

0 

COARSE 

1819 

15, 3310 

77624 

1 

CALL 

1820 

REF 

4 

LAST 

948 

15,3311 

31523 

1 

NCOARSE 

1821 

15,3312 

77624 

1 

CALL 

1822 

REF 

- 1 

15,3313 

33041 

1 

GYRO  TP IM 

1823 

15,3314 

77650 

1 

GOTD 

1824 

REF 

2 

LAST 

96  8 

15,3315 

33236 

0 

SURFDISP 

18  25 

' - - ■ ■■■-  ' 

15,3316 

01535 

0 

0 1 SPGYRO 

VN 

0693 
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P 1 826 

lunar  SURFACE 

IMU 

ALIGNMENT 

PROGRAM 

o c C 

9Q7 

LAST 

96  9 

15,3317 

0 46  16 

_4 

P57 

Tf 

8 ANKCALL 

IS  I SS  ON  - IF  NOT,  IMUCHK  WILL  SEND 

1827 

1828 

K b r 
REF 

C.  7 1 
2 

LAST 

948 

15,3320 

33635 

1 

CADR 

IMUCHK 

ALARM  CODE  210  AND  EXIT  VIA  GOTOPOOH. 

1 Q9Q 

REF 

209 

L AST 

969 

15,  3 321 

0 6036 

_1_ 

T-C— 

I NTP  RET 

1830 

15,3322 

77745 

1 

DLOAD 

1831 

REF 

42 

LAST 

840 

15,  3323 

03440 

1 

TIG 

LOAD  ASCENT  TIME  FOR  DISPLAY 

1832 

REF 

11 

LAST 

962 

15,3324 

01046 

1 

P57A 

STORE 

DSPTEM1 

1833 

15,3325 

77776 

1 

EXIT 

1834 

REF 

2 

LAST 

927 

15,3326 

3 2172 

1 

P57AA 

CAF 

V06N34* 

DISPLAY  TALIGN,  TALIGN  : DSPTEM1 

1835 

REF 

2 98 

LAST 

97  1 

15,3327 

0 4616 

1 

TC 

BANKCALL 

1836 

*REF 

9 

LAST 

766 

15,3330 

20510 

1 

CADR 

GOFL ASHR 

1837 

REF 

63 

LAST 

969 

15,3331 

1 6001 

1 

TCF 

GOTO  POOH 

V 34-TERM  I N ATE 

183^8 

& 

15,3332 

1 33  37 

1 

TCF 

+ 5 

1839 

REF 

1 

15,3333 

1 3326 

1 

TCF 

P 5 7 A A 

VB32-RECYCLF 

1839  1 

*REF 

101 

L AST 

969 

15, 3334 

0 53  53- 

1 

TC 

PHASCHNG 

18392 

* 

15,3335 

00014 

1 

OCT 

0001  4 

18393 

*REF 

144 

LAST 

964 

15, 3336 

0 5155 

0 

TC 

ENDOFJOB 

1340 

REF 

2 10 

LAST 

97  1 

15, 3337 

0 6036 

1 

TC 

I NTP RET 

1841 

15, 3340 

50145 

1 

DLOAD 

BMN 

1842 

REF 

-32 

LAST 

971 

15,3341 

01  046 

1_ 

DSPTEM1 

1843 

REF 

1 

15,3342 

33367 

0 

PACKOPTN  -1 

NEG  TIME-PREF  ORIENT  IN  XSMD  MATRIX 

1844 

15,3343 

65234 

1 

RTB 

PDDL 

1845 

REF 

25 

LAST 

954 

15,3344 

214  62 

1 

LOADTIME 

PUSH  CURRENT  TIME  AND  PICK  UP  KEY  IN 

1846 

REF 

33 

LAST 

97  1 

15,3345 

01046 

1 

DSPTEM1 

1847 

15,3346 

65254 

1 

BZE 

PDDL 

184-8 

REF 

— 1— 

15,  3 347 

33357 

0 

P57C 

IF  KEY  IN  TIME  ZERO-T AL IGN=CURRENT  TIME 

1849 

15, 3350 

51025 

1 

DSU 

8 PL 

NOT  ZERO  SO  EXCHANGE  PD  WITH  DSPTEM1 

1850 

REF 

34 

LAST 

971 

15,3351 

01046 

1 

DSPTEM1 

1851 

REF 

— 2— 

LAST 

97  1 

15, 3352 

33357 

0 

P57C 

1852 

15, 3353 

45545 

1 

DLOAD 

STADR 

IF  KEYIN  TIME  GPE ATFR  THAN  CURRENT  TIME 

18521 

REF 

43 

LAST 

97  1 

15, 3354 

74337 

0 

STORE 

T IG 

STORE  IT  IN  TIG 

18522 

REF 

— 8- 

L AS-T- 

930 

15, 3355 

36775 

1 

STCALL 

TALI GN 

18523 

REF 

1 

15,3356 

33361 

0 

P57D 

18524 

15,  3357 

45545 

1 

P57C 

DLOAD 

STADR 

18525 

REF 

9- 

LAST 

97  1 

15,3360 

75002 

-1 

STORE 

TALI  C.N 

18526 

REF 

54 

LAST 

952 

15,3361 

34041 

0 

P570 

STCALL 

TOEC  1 

1853 

REF 

13 

LAST 

932 

15, 3362 

27057 

0 

LEMPREC 

COMPUTE  DESIRED  IMU  ORIENTATION  STORE 

1854 

15, 3363 

535  75 

0 

VLOAD 

UNIT 

IN  X , Y , ZS  MD 

1855 

REF 

36 

LAST 

95  2 

15,3364 

00001 

0 

R ATT 

1856 

REF 

12 

LAST 

969 

15, 3365 

37605 

0 

STCALL 

XSMD 

1857 

REF 

2 

LAST 

930 

15,3366 

33647 

-1 

L SDR  I ENT 

1858 

15,3367 

77776 

l 

EX  IT 

1859 

REF 

177 

LAST 

96  7 

15, 3370 

3 47  55 

1 

PACKOPTN 

CAF 

ZERO 

PACK  FLAG  BITS  FOR  OPTION  DISPLAY 

1860 

REF 

3_ 

LAST 

733 

15,3371 

55' 145 

-1 

TS 

OPT  I ONI  +1 

JAM  ZERO  IN  ALIGNMENT  OPTION 

1861 

REF 

4 

LAST 

97  1 

15,3372 

55' 146 

1 

TS 

OPT  I ONI  +2 

INITIALIZE  FLAG  BIT  CONFIGURATION 

1862 

REF 

4 

LAST 

955 

15, 3373 

3 4737 

0 

CAF 

REFSMBIT 

GAP 
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1863 

REF 

16 

LAST 

955 

15,3374 

7 0077 

0 

MASK 

FLAGWRD3 

REFSMFLG 

1864 

REF 

295 

LAST 

969 

15,3375 

10  000 

0 

CCS 

A 

LAST 

9 ft  8 

1 ftf  ft  8 7ft 

3 4745 

0 

CAF 

0 I T 7 

SET 

1866 

REF 

5 

LAST 

97  1 

15,3377 

27' 146 

1 

ADS 

0PT1CN1  +2 

CLEAR-JUST  ZERO 

1867 

REF 

1 

15, 3400 

3 4753 

1 

CAF 

ATTFLBIT 

LAST 

86  f, 

1 ftt  ft AO  1 

7 0102 

0 

MASK 

FLAGWRD6 

ATTFLG 

1869 

REF 

2 86 

LAST 

972 

15,3402 

10  000 

0 

CCS 

A 

1870 

REF 

39 

LAST 

919 

15, 3403 

3 4750 

1 

CAF 

BIT4 

SET 

1 ft  71 

rff 

6 

L AS  T 

972 

15,3404 

27' 146 

1 

ADS 

OPT  I ONI  +2 

CLEAR-ZERO  IN  A 

1872 

REF 

40 

LAST 

972 

15,3405 

3 4750 

1 

CAF 

3IT4 

1873 

REF 

7 

LAST 

972 

15,3406 

55' 144 

0 

TS 

OPTI ONI 

JAM  00010  IN  OPT  I ONI  FOR  CHECK  LIST 

1874 

REF 

1 

15,3407 

3 3634 

0 DSPOPTN 

CAF 

VB05  N06 

DISPLAY  OPTION  CODE  AMD  FLAG  BITS 

1875 

REF 

299 

LAST 

97  1 

15,3410 

0 4616 

1 

TC 

BANKCALL 

1 876 

REF 

AD 

LAST 

96  8 

1 5 f 3 41 1 

20351 

1 

CADR 

GOFL  ASH 

1877 

REF 

64 

LAST 

97  1 

15,3412 

1 6001 

1 

TCF 

GOTO  POOH 

VB34-TERMINATE 

1878 

15,3413 

1 3415 

0 

TCF 

+ 2 

V 33-PROCEE  D 

1879  - REF  1-  15,3414  1 3407  0 TCF  DSPOPTN  V 32-RECYCLE 


1880 

REF 

102 

LAST 

97  1 

15,3415 

0 5353 

1 

TC 

PHASCHNG 

1ft  f 34 1 ft 

050  24 

GC  T 

0 502  4 

1882 

15,3417 

13000 

0 

gct 

1 3000 

1883 

REF 

5 

LAST 

97  1 

15, 3420 

3 4737 

0 

CAF 

refsmbit 

1884 

RFF 

1 7 

| AST 

9 7 2 

1 ft  t 3421 

7 0077 

o 

MASK 

FLAG  WRD3 

1885 

REF 

297 

LAST 

97  2 

15,3422 

10  000 

0 

CCS 

A 

1886 

REF 

1 

15, 3423 

1 3523 

1 

TCF 

GFTL MATT 

SET,  GO 

COMPUTE  LM  ATTITUDE 

] ft 87 

REF 

2 

1 AST 

97  2 

15,  3424 

3 4753 

1 

CAF 

ATTFLBIT 

CLEAP-CHECK  ATTFLAG  FOR  STORED  ATTITUDE. 

1888 

REF 

15 

LAST 

97  2 

15, 3425 

7 0102 

0 

MASK 

FLAGWRD6 

1889 

REF 

298 

LAST 

972 

15, 3426 

10  000 

0 

CCS 

A 

1890 

REF 

1 

15, 3427 

1 3527 

0 

TCF 

BYLMATT 

ALLFLG 

SET,  CHK  OPTION  FOR  GRAVITY  COMP 

1891 

REF 

50 

LAST 

927 

15,3430 

3 4752 

0 

CAF 

B IT2 

SEE  IF 

OPTION  2 OR  3 

1892 

REF 

11 

LAST 

96  9 

15, 3431 

7 1145 

1 

MASK 

OPT  I CN2 

1893 

REF 

299 

LAST 

972 

15,3432 

10  000 

0 

CCS 

A 

1894 

REF 

2 

LAST 

97  2 

15, 3433 

1 3527 

0 

TCF 

BYLMATT 

OPTION 

2 OR  3 BUT  DONT  HAVE  ATTITUDE 

1895 

REF 

38 

LAST 

957 

15, 3434 

0 5567 

0 

TC 

ALAR  M 

OPTION 

INCONSISTANT  WITH  FLAGS-ALARM  701 

1896 

15, 3435 

00701 

1 

OCT 

701 

1897 

RFF 

3 

LAST 

957 

15,3436 

3 5006 

1 

CAF 

VB05N09 

DISPLAY 

ALARM  FOR  ACTION 

1898 

REF 

300 

LAST 

972 

15,3437 

0 4616 

1 

TC 

BANKCALL 

1899 

REF 

41 

LAST 

972 

15, 3440 

20351 

1 

CADR 

GOFL  ASH 

1900 

REF 

65 

LAST 

972 

15,3441 

1 6001 

1 

TCF 

GOTO  PF1  OH 

V334-TERMINATE 

1901 

REF 

2 

LAST 

972 

15,3442 

1 3407 

0 

TCF 

DSPOPTN 

V33-PR0CEED  * *******t EM PORA R Y 

1902 

R-E-F 

3— 

LAST 

9 72 

15,3443 

1 3407 

0 

TCF 

DSPOPTN 

V B32-RECYC  LE  TO  OPTION  DISPLAY  V 05N06 
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TRANSFORM  VEC1 

,2  FROM  MOON  FIXED  TO 

REF 

AND  JAM 

BACK  IN 

VEC1 ,2 

IQ]  C 

15, 3444 

402  20 

_ 0 

MFREF 

STQ 

SETPO 

l7i!) 

1916 

REF 

10 

LAST 

95  2 

15, 3445 

02  746 

0 

QMA  J 

1917 

15,3446 

00001 

0 

0 

1 Q 1 O 

15, 3447 

77634 

0 

RTB 

! 7 1 o 

1919 

REF 

26 

LAST 

97  1 

15,  3450 

21462 

1 

LOADTIME 

1920 

REF 

12 

LAST 

967 

15,3451 

27560 

1 

STOVE 

TSIGHT 

1920  1 

REF 

3 

LAST 

96  8 

15,3452 

02723 

_a_ 

V EC  1 

1921 

15,3453 

41525 

0 

PDDl 

PUSH 

1921  1 

RFF 

13 

LAST 

973 

15,3454 

03560 

l 

TSIGHT 

1921  2 

15,3455 

77624 

l 

CALL 

1922 

REF 

4 

LAST 

930 

15,3456 

51504 

l 

RP-TC-R 

1923 

REF 

4 

LAST 

973 

15,3457 

26723 

0 

STOVL 

VEC  1 

1924 

REF 

_2 

LAST 

967 

15,3460 

02731 

_Q 

VEC2 

1925 

15,3461 

65201 

1 

SETPD 

PDDL 

1926 

15,3462 

00001 

0 

0 

1927 

REF 

J.4 

LAST 

97  3 

15, 3463 

03560 

1 

TSIGHT 

1928 

15,3464 

45006 

0 

PUSH 

CALL 

1929 

RFF 

5 

LAST 

97  3 

15,3465 

51504 

1 

RP-TC-R 

1930 

REF 

3 

LAST 

97  3 

15, 3466 

36731 

1 

STCALL 

VFC2 

1931 

REF 

11 

LAST 

973 

15,3467 

02746 

0 

QMA  J 
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PI  947 

COMPUTE 

LM  ATTITUDE 

IN  MOON 

FIXED  COORDINATES 

USING  REFSMMAT  AND 

R 1948 

STORE 

: IN 

YNBSAV  AND 

ZNBSAV 

1949 

15, 3470 

45020 

1 REFMF 

STQ 

CALL 

1950 

REF 

12 

LAST 

973 

15,3471 

02746 

0 

QMAJ 

1 q ^ 1 

RFF 

LO 

1 AST 

970 

15,3472 

47443 

1 

CDUT  PIG 

. GET  SIN  AND  COS  OF  CDUS 

1952 

15,3473 

40234 

0 

RTB 

SETPD 

1953 

REF 

27 

LAST 

973 

15,3474 

21462 

1 

L 0 AD  T IMF 

1 q S4 

15, 3475 

00001 

0 

0 

1955 

REF 

15 

LAST 

973 

15,3476 

37560 

0 

STCALL 

TSIGHT 

1956 

REF 

5 

LAST 

970 

15,3477 

31267 

0 

CALCSMSC 

GET  YNB  IN  SM 

iqS7 

15*  3500 

61375 

1 

VLOAD 

VXM 

1958 

REF 

4 

LAST 

965 

15, 3501 

02673 

1 

YNB 

1959 

REF 

51 

LAST 

969 

15,3502 

01734 

0 

REFSMMAT 

YNB  TO  REF 

1 9E0 

15*  3 503 

652  56 

0 

UNIT 

PDDL 

1961 

REF 

16 

LAST 

974 

15,3504 

03560 

1 

T S I G HT 

1962 

15,3505 

45006 

0 

PUSH 

CALL 

1963 

REF 

2 

-L  AST 

79  5 

15, 3506 

51531 

1 

R-TG-RP 

1964 

REF 

3 

LAST 

217 

15, 3507 

26243 

0 

STOVL 

YNBS AV 

YNB  TO  MF 

1965 

REF 

4 

LAST 

935 

15, 3510 

02701 

0 

ZNB 

1966 

15, 3511 

53505 

1 

VXM 

UNI  T 

1967 

REF 

52 

LAST 

974 

15,3512 

01734 

0 

REFSMMAT 

ZNB  TO  REF 

1968 

15,3513 

41525 

0 

PDDL 

PUSH 

1969 

REF 

17 

LAST 

974 

15,3514 

03560 

1 

TSIGHT 

1970 

15,3515 

77624 

1 

CALL 

1971 

REF 

3 

LAST 

974 

15, 3516 

51531 

1 

R-TO-RP 

ZNB  TO  MF 

1972 

RFF 

-1 

15,3517 

02251 

0 

STORF 

ZNBSAV 

1973 

15,3520 

77614 

1 

SETGO 

19731 

REF 

1 

15, 3521 

03036 

1 

ATTFLAG 

1973  2 

REF 

13 

LAST 

974 

15, 3522 

02  746 

-0 

QMAJ 
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P 1974 

BRANCH  TO  ALIGNMENT 

OPTION 

n re  911  1 KT 

97  1 

15,3523 
15,  3524 
15, 3525 

0 6036 
77624 
33470 

-l— 

1 

1 

GETLMATT  TC 

I NTPPET 

1976 

1976 

1977 

Ktr  c 1 1 Lhj l 

REF  3 LAST 

969 

CALL 

REFMF 

1978  15,3526  77776  1 EXIT 


1981 

REF 

61 

LAST 

963 

15,3527 

0 5504 

0 

BYLMATT 

TC 

UPFL AG 

\QH2 

R FF 

2 

1 AST 

96  8 

1 5,  3 53  0 

002  05 

0 

ADRES 

INITALGN 

1983 

REF 

51 

LAST 

967 

15,3531 

3 4753 

1 

CAF 

BIT1 

1984 

REF 

12 

LAST 

972 

15,3532 

7 1145 

1 

MASK 

OPT  I 0N2 

1985 

REF 

300 

LAST 

972 

15, 3533 

10  000 

0 

CCS 

A 

1986 

REF 

2 

LAST 

963 

15,3534 

1 2627 

1 

TC  F 

GVDE  TER 

19ft  A 1 

*R 

103 

| AST 

97  2 

1 5f 3535 

0 5353 

1 

ATTCHK 

TC 

PHASCHNG 

19862 

❖ 

15,3536 

04024 

0 

OCT 

0 4024 

1 987 

AjcR  E F 

LAST 

9 7 2 

] 5t  3 S3  7 

3 4753 

1 

CAF 

A T T F L B I T 

1988 

REF 

16 

LAST 

97  2 

15,3540 

7 0102 

0 

MASK 

F LAGWPD6 

1989 

REF 

3C1 

LAST 

975 

15,3541 

10  000 

0 

CCS 

A 

1990 

REF 

1 

15 , 3542 

1 3557 

1 

TC  F 

P57C  PTO 

19901 

*REF 

104 

LAST 

975 

15,3543 

0 5353 

1 

P 57  JUMP 

TC 

PHASCHNG 

19902 

❖ 

15,3544 

04024 

0 

OCT 

04024 

1991 

REF 

89 

LAST 

96  3 

15, 3545 

0 55  16 

0 

TC 

DOWN  FLAG 

1992 

REF 

3 

LAST 

975 

15, 3546 

00205 

0 

ADRES 

I NITALGN 

1993 

❖REF 

29 

LAST 

92  7 

15, 3547 

3 6244 

0 

CAF 

THREE 

1994 

REF 

13 

LAST 

975 

15,3550 

7 1145 

1 

MASK 

OPT  I 0N2 

1995 

REF 

302 

LAST 

975 

15,3551 

50  000 

1 

INDEX 

A 

1996 

15,  3 552 

1 3553 

0 

TC  F 

+ 1 

1997 

REF 

2 

LAST 

975 

15, 3553 

l 3557 

1 

TC  F 

P 570  PTO 

1998 

REF 

1 

15,3554 

1 3600 

0 

TC  F 

P570PT1 

1999 

REF 

1 

15,3555 

1 36  16 

1 

TC  F 

P570PT? 

2000 

REF 

1 

15,  3556 

1 3617 

0 

TC  F 

P570PT3 
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GO  TRANSFORM  TO  MF  IN  YNBSAV, ZNBSAV 
SET  INITIAL  ALIGN  FLAG 

SEE  IF  OPTION  1 OR  3 
OPTION  1 OR  2,  GET  GRAVITY 


NOT  1 OR  3,  CHECK  ATTFLAG 


GET  ALIGNMENT  VECS  FOR  OPTION  0 


ATTFLG  CLEAR-RESET  TNTALIGN  FLAG 


BRANCH  ON  OPTION  CODE 


OPTION  IS  0 
OPTION  IS  1 
OPTION  IS  2 
OPTION  IS  3 


GAP 
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L 

P51- 

■P  5 3 

USFR*  S PAGE  NO. 

52 

E 5 S3 

P2001 

OPTION  0 

, GET 

TWO  i 

ATTITUDE  VECS 

1 5 T 3 r r 7 

0 £0  26 

1 

P570PT0 

TC 

I NTP  RFT 

2003 

15,3560 

77775 

1 

VLOAD 

2006 

REF 

4 

LAST 

974 

15, 3561 

02243 

0 

YNBS  AV 

Y AND  Z ATTITUDE  WILL 

BE 

PUT  IN  REF 

REF 

5 

LAST 

Q7  3 

1 Sf 1 562 

26723 

0 

STOVL 

V EC  1 

2006 

REF 

2 

LAST 

974 

15, 3563 

02251 

0 

7.NBS  AV 

2007 

REF 

4 

LAST 

973 

15, 3564 

36731 

1 

STC  ALL 

VEC2 

REF 

l 1 

LAST 

q 7 4 

] 3 565 

47442 

1 

CDUT  RIG 

20072 

15,  3566 

77624 

1 

CALL 

2008 

REF 

6 

LAST 

974 

15, 3567 

31267 

0 

CALCSMSC 

COMPUTE  SC  AXIS  WRT  PRESENT  SM 

200°) 

1 5 , 5 570 

77775 

1 

VLOAD 

2010 

REF 

5 

LAST 

974 

15,3571 

02673 

1 

YNB 

2011 

REF 

11 

LAST 

96  8 

15,  3572 

26761 

0 

SAMETYP 

STOVL 

STAR  SAV1 

Y SC  AXIS  WRT  PRESENT 

SM 

2012 

REF 

5 

LAST 

974 

15, 3573 

02701 

0 

ZNB 

2013 

REF 

9 

LAST 

967 

15, 3574 

36767 

1 

STCALL 

STAR  SAV2 

Z SC  AXIS  WRT  PRESENT 

SM 

2014 

REF 

1 

15,3575 

33444 

0 

MFRE  F 

TRANSFORM  VEC1.2  FROM 

MF 

TO  REF 

2017 

15,3  576 

77650 

1 

GOTO 

2018 

REF 

2 

LAST 

967 

15,3577 

33156 

0 

SURF  LINE 

R2019  O-PTION  1,  GET  LANDING  SITE  AND  Z-ATTITUDE  VEC 


2020 

2021 

REF 

2 13 

LAST 

976 

15.3600 

15.3601 

0 6036 
535  75 

1 

o 

P570PT1  TC 

VLOAD 

INTPRET 
UNI  T 

2022 

REF 

9 

LAST 

930 

15,3602 

02023 

1 

RLS 

LANDING  SITE  VEC 

2023 

REF 

6 

LAST 

976 

15, 3603 

26723 

0 

STOVL 

VEC  1 

2024- 

R F F 

3 

1 AST 

9 76 

1 5,  3604 

022  5 1 

o 

ZNBS  AV 

Z ATTITUDE  VEC 

2025 

REF 

5 

LAST 

976 

15,3605 

36731 

1 

STCALL 

VEC2 

2025  1 

REF 

12 

LAST 

976 

15,3606 

47443 

1 

CDUTP IG 

20252 

15,3  607 

77624 

1 

CALL 

2026 

REF 

7 

LAST 

976 

15, 3610 

31267 

0 

CALCSMSC 

GET  ZNB  AXIS  WRT  PRES 

SM 

FOR 

STARSAV2 

2027 

15, 3611 

45175 

0 

VLOAD 

CALL 

2028 

REF 

8 

LAST 

96  3 

15,3612 

02235 

1 

GSA  V 

TRANS  GS AV  FROM  NR  TO 

SM 

FOR 

STAR  SAV1 

20281 

REF 

2 

LAST 

7 1 3 

15,3613 

47565 

1 

C DU*  NBSM 

2029 

15, 3614 

77650 

1 

GOTO 

2030 

REF 

— 1- 

15,36X5 

335  72 

1 

SAMETYP 

NOW  DO  SAME  AS  OPTION 

0 

ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2021112-011 


GAP  : 


L 

P51-P53 

P 20  3 1 

OPTICA  2,  GET  TWO  STAR  SIGHTINGS 

2032  REF  1 15,3616  1 3114  1 P570PT2  7TF  2STARS 


R2033 

OPTION  3 

, GET 

LANCING 

, SITE  VEC 

AND  ONE 

STAR  SIGHTING 

2034 

REF 

214 

LAST 

976 

15,3617 

0 6036 

1 

P570PT3  TC 

INTPRET 

2035 

15, 3620 

53575 

0 

VLOAD 

UNIT 

2036 

REF- 

10 

L AST 

97  6 

15,3621 

02023 

1 

RLS 

2037 

REF 

7 

LAST 

976 

15,3622 

02723 

0 

STORE 

VEC  1 

2038 

REF 

6 

LAST 

976 

15, 3623 

26731 

0 

STOVL 

V EC  2 

2039 

R EF 

g_ 

LAST 

976 

15,  3 624 

02235 

1 

GSAV 

2040 

15,  3625 

77624 

1 

CALL 

2041 

REF 

3 

LAST 

976 

15,  3626 

47565 

1 

CDU*NBSM 

2042 

REF- 

12 

L AST 

976 

1 5,  3 62  7 

36761 

1 

STCALL 

STAR  SAV1 

2043 

REF 

2 

LAST 

976 

15,  3630 

33444 

0 

MFPF  F 

2047 

15,  3631 

77776 

1 

EXIT 

2048  REF 2 LAST  967  15, 3632  1 3116  0 _ — TCF  1STAR 


2049 

15, 3633 

00701  1 

BADOPT 

OCT 

0070  1 

2050 

15, 3634 

01206  1 

VB05N06 

VN 

506 
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00  SIGHTING  ON  2 STARS 


LANOING  SITE  VEC 

DUMMY  VEC 2 FOR  2ND  CATALOG  STAR 
GRAVITY  VEC  NB 

TRANS  GSAV  FROM  NB  TO  SM  FOR  STARSAV1 
STARSAV2  IS  STORED  AS  2ND  OBSERVED  STAR 
1 STAR  GET  VEC2,STARSAV2  ,GOFS  TO  SURFLINE 
TEMP 
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P2051  CHECK  I M0DES30  TO  VAR1FY  IMU  IS  ON 
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2052 

2053 

2054 

Trt  CC 

REF 

REF 

REF 

46 

27 

3C3 

LAST 

LAST 

LAST 

48  3 
953 
975 

15.3635 

15. 3636 
15,  3637 
1 5-^3  640 

4 1302 
7 4743 
10  000 
1 3644 

0 IMUCHK 

1 
0 
o 

cs 

MASK 
CCS 
TCF 

I MOD  ES30 
8 I T9 
A 

*4 

IS 

YES 

IMU  ON 

£ U 2-> 
2056 

REF 

39 

LAST 

972 

15, 3641 

0 5567 

0 

TC 

ALARM 

NO, 

SENO 

ALARM 

90  57 

15,3  642 

002  10 

_1 

OCT 

210 

cU  J 1 

2058 

REF 

66 

LAST 

972 

15, 3643 

0 6001 

0 

TC 

GOTOPOOH 

oriRQ 

one 

LAST 

9 7 5 

15,3  644 

0 5504 

o 

TC 

U PFL  AG 

21  U D 7 
20  60 

rV  L i 

REF 

C c. 

5 

LAST 

40  1 

15,3645 

00007 

0 

ADRES 

IMUSE 

SET 

IMUSE 

FLAG 

2061  REF  5 LAST  879  15,  3646  0 4631  1 — TC  SWRE  TURN 


2062 

15,  3647 

77220 

1 

LSORIENT  STQ 

VLOAD 

REF 

14 

LAST 

9 7 4 

1 5t  3 65  f) 

02  746 

o 

OMA  J 

2064 

REF 

6 

LAST 

842 

15, 3651 

01555 

0 

RRECTCSM 

2065 

15,3652 

47235 

0 

VXV 

VXV 

REF 

2 

LA$T 

R42 

1 5f  3 653 

01  563 

o 

VREC  TCSM 

2067 

REF 

13 

LAST 

97  1 

15, 3654 

03605 

1 

X SMO 

2068 

15, 3655 

77656 

1 

UNIT 

206  q 

REF 

5 

1 AST 

95  2 

1 5f  3656 

03621 

l 

STORF 

ZSMD 

2073 

15,  3657 

53435 

0 

VXV 

UNI  T 

2074 

REF 

14 

LAST 

978 

15,  3660 

03605 

1 

X SMD 

?075 

REF 

6 

1 AST 

9 5 2 

1 5, 3 66  L 

376  1 3 

1 

STC ALL 

YSMD 

2076 

REF 

15 

LAST 

978 

15, 3662 

02746 

0 

OMA  J 

978 
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L 

R200C 
R 2002 
R2Q04 

R2006 

R2007 
R2009 
R 20  1 1 
R2012 
R2013 
R2014 

R2015 
R2016 
R 20 1 7 
R2019 
R2020 
R2021 
R2022 
R 2023 
R2024 
R2025 
R2026 
R2028 
R2029 
R2031 

R 20  33 
R2035 
R2037 
R2039 

R2041 

R2042 

R2043 

R2045 
R2046 
R2048 
R2050 
R2051 
R 20  52 
R2054 
R2055 
R2057 
R2059 


LUNAR  AND  SOLAR  EPHEMERIDES  SUBROUTINES  USER'S  PAGE  NO.  1 EO  S3 

NAME  - LSPCS  - LOCATE  SUN  AND  MOON  DATE  - 25  OCT  67 

MCD  NC.l 

MOD  BY  NEVILLE  ASSEMBLY  SUNDANCE 

FUNCTIONAL  DESCRIPTION 

COMPUTES  UNIT  POSITION  VECTOR  OF  THE  SUN  AND  MOON  IN  THE  BASIC  REFERENCE  SYSTEM.  THE  SUN  VECTOR  S IS 
LOCATED  VIA  TWO  ANGLES.  THE  FIRST  ANGL E < OBL I QU I T Y ) IS  THE  ANGLE  BETWEEN  THE  EARTH  EQUATOR  AND  THE  ECLIPTIC.  THE 
SECOND  ANGLE  IS  THE  LONGITUDE  OF  THE  SUN  MEASURED  IN  THE  ECLIPTIC. 

TEE  POSITION  VECTOR  OF  THE  SUN  IS 

S= I COS  I LOS ) , COSIOBL l*SIN(LOS) , S1N( OBL ) *S IN ( LOS ) ) , WHERE 

LOS=LOS  + LOS  *T-(C  * S I N ( 2P I * T ) / 365 . 24  +C  *COS  ( 2 P I *T ) /36 5.24 ) 

0 R 0 1 

LOS  (RAD)  IS  THE  LONGITUDE  OF  THE  SUN  FOR  MIDNIGHT  JUNF  30TH  OF  THE  PARTICULAR  YEAR. 

0 

LCS  (RAD/DAY)  IS  THE  MEAN  RATE  FOR  THE _P_ART I CUL AR  YEAR. 

R 

LCS  AND  LCS  ARE  STORED  AS  LOSO  AND  LOSR  IN  RATESP. 

C R 

COS(OBL)  AND  SIN(CBL)  ARE  STORED  IN  THE  MATRIX  KONMAT. 

T,  TIME  MEASURED  IN  DAYS  I 24  HOURS),  IS  STORED  IN  TIMEP. 

C AND  C ARE  FUDGE  FACTORS  TO  MINIMIZE  THE  DEVIATION.  THEY  ARE  STORED  AS  ONE  CONST ANT ( CM OD ) , SINCE 
01  221/2 
C *SIMX1  + C *COS(X)  CAN  BE  WRITTEN  AS  (C  +C  ) *SIN(X+PHI),  WHERE  PHI=ARCTAN(C  /C  ). 

0 1 0 1 10 

THE  MCON  IS  LOCATED  VIA  FOUR  ANGLES.  THE  FIRST  IS  THE  OBLIQUITY.  THE  SECOND  IS  THE  MEAN  LONGITUDE  OF  THE  MOON, 
MEASURED  IN  THE  ECLIPTIC  FROM  THE  MEAN  EQUINOX  TO  THE  MEAN  ASCENDING  NODE  OF  THE  LUNAR  ORBIT,  AND  THEN  ALONG.  THE 
ORBIT.  THE  THIRD  ANGLE  IS  THE  ANGLE  BETWEEN  THE  ECLIPTIC  AND  THE  LUNAR  ORBIT.  THE  FOURTH  ANGLE  IS  THE  LONGITUDE 
OF  THE  NODE  OF  THE  MOON,  MEASURED  IN  THE  LUNAR  ORBIT.  LET  THESE  ANGLES  BE  OBL,LOM,IM,  AND  LON  RESPECTIVELY. 


THE  SIMPLIFIED  POSITION  VECTOR  OF  THE  MOON  IS 

M=l CCS (LOM),  CQS(OBL)*S INI LOMl-SINI OBL)*S I N ( I M ) *S I N< LOM-LON) , S I N ( 0 BL ) * S I N ( LOM ) +COS ( 0 BL )«SIN(  IM)*SIN( LOM-LON) ) 
WHERE 

LCM  = LCM  + LOM  *T-(A  *SIN  2P I*T/27. 5545  + A *C0 S( 2 P I *T / 2 7. 5 545 ) +B  *SIN  2PI*T/32+B  *C0S ( 2 P I *T/ 3 2 ) ),  AND 
0 R 0 1 0 1 

LCN=LCN  + LON 
— 0 — R 

A , A , B AND  B ARE  STORED  AS  AMOD  AND  BMOD  (SEE  DESCRIPTION  OF  CMOD,  ABOVE).  CnS(CBL),  S I N ( OBL ) *S I N ( I M ) , 

0 10  1 

SIN'  (OBL)  * AND  COS  (OBL ) *S  I N(  I M ) ARE  STORED  IN  KONMAT  AS  Kl  , K2,  K3  AND  K4 , RESPECTIVELY.  LOM  , LOM  , LON  , LON 
ARE  STORED  AS  LOMO,  LOMR , LONO,  AND  LONR  IN  RATESP.  0 D 0 R 

THE  THREE  PHIS  ARE  STORED  AS  AARG,  BARG,  AND  CARG(SUN).  ALL  CONSTANTS  ARE  UPDATED  BY  YEAR. 


R2061 


CALLING  SECUENCE 


GAP 
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R2062 

CALL  L S PCS . RETURN  IS  VIA  QPRET . 

R2063 

R2064 

NCNE 

R2065 

ERASABLE  INITIALIZATION  REQUIRED 

TCDUCU  time:  cdpim  MIDNICWT  1 llll  V PRFC.FDrNG  THF  1 AIINC.H 

TO  THE  TIME  OF  THE  LAUNCH  (WHEN  THE  AGC  CLOCK  WENT 

R2068 

R2069 

TO  ZERO).  TEPHEM  IS  TP  WITH  UNITS  OF  CENT  I- S ECONDS . 

TIME2  AND  T I ME  1 ARE  IN  MPAC  AND  MPAC  +1  WHEN  PROGRAM  IS 

CALLED. 

R2070  OUTPUT 

R2Q71  UNIT  POSITIONAL  VECTOR  OF  SUN  IN  VSUN.  (SCALED  B— 1 ) 

R2072  UNIT  POSITIONAL  VECTOR  OF  MOON  IN  VMOON.  (SCALED  B- 1 ) 


R2073  SUBROUTINES  USED 


R2074  NONE 

R2075  DEER  IS 


R 2 07  6 CURRENT 

2077 

CORE  SET, WORK  AREA  AND  FREEFLAG 
04,  2750 

BANK 

04 

207701  REF  1 

15,2000 

SETLCC 

EPHFM 

207702  15,3663  BANK 


2078 
20  78  5 

REF 
R Ef 

6 

LAST 

96  C 

E 5 , 1714 

EB ANK= 
rniiNT* 

VSUN 
$ $/E  PHFM 

20786 

REF 

2 

LAST 

932 

15, 3663 

LUNPOS 

EQUALS 

L SPCS 

2 07  Q 

1 r'  T 3 66  3 

54  p 0 1 

o 

L SPOS 

$£  y pp 

SR 

2080 

15, 3664 

00001 

0 

0 

2082 

15,3665 

206  17 

0 

14D 

TP 

2083 

l 5t  3666 

56371 

1 

TAD 

DDV 

2084 

REF 

3 

LAST 

258 

15, 3667 

01  707 

0 

TEPHEM 

TIME  OF  LAUNCH 

2086 

REF 

1 

15,3670 

12024 

1 

C STP  PAY 

24  HOURS -8 64 0000  CENT I-SECS/DAY  B-33 

2087 

REF 

1 

1 5,  3671 

00031 

0 

STORE 

T IMF  P 

T IN  DAYS 

2088 

15,3672 

77170 

1 

AXT , l 

AXT, 2 

2089 

15,  3673 

00000 

1 

0 

2090 

15,3674 

00000 

1 

0 

2091 

15, 3675 

77614 

1 

CLEAR 

2092 

REF 

11 

LAST 

96  8 

15,3676 

002  74 

0 

FREEFLAG 

SWITCH  BIT 

2093 

15,  3 677 

77745 

l 

POSITA 

DLOAD 

2094 

REF 

1 

15,3700 

12004 

0 

KONMAT  +2 

ZEPOS 

2095 

REF 

1 

15,  370  1 

00027 

1 

STORE 

GTMP 

2096 

15, 3702 

40745 

0 

POS  I TB 

DLOAD 

D MP* 

2097 

REF 

2 

LAST 

980 

15,3703 

000  31 

0 

T IMF  P 

T 

2098 

REF 

1 

15,3704 

12050 

1 

VAL67  +4,1 

1/27  OR  1/32  OR  1/365 
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2099 

15,3705 

42661 

0 

SL 

DAD* 

2100 

15, 3706 

202  11 

1 

8D 

2 

LAST 

98  0 

15, 3707 

12046 

0 

VAL67  +2,1 

AARG 

? 1 0? 

15,3710 

40756 

1 

SIN 

DMP* 

S INIT/27  + PHI ) OR  T/32  OR  T/365 

2103 

REF 

3 

LAST 

98  1 

15,3711 

12044 

1 

V AL  6 7 , 1 

(A0**2+A1**2)**1/2SIN(X+PHIA) 

15, 3712 

620  15 

L 

DAD 

I NC  R , 1 

PLUS 

2105 

REF 

2 

LAST 

980 

15, 3713 

00027 

1 

GTMP 

(B0**2+81**2)**1/2SIN(X+PHIB) 

2106 

15,3714 

77771 

0 

DEC 

-6 

2 1 07 

RFF 

3 

LAST 

98  1 

15,3715 

00027 

1 

STORE 

GTMP 

OR  <C0**2+C1**2)**1/2SIN(X+PFUC) 

2108 

15,3716 

776  14 

1 

BOFSET 

2109 

REF 

12 

LAST 

980 

15,3717 

00054 

0 

FREEFLAG 

2110 

REF 

1 

15,3720 

33702 

1 

POS I T8 

2111 

15,3721 

40745 

0 

POSITD 

DLOAD 

DMP* 

2112 

REF 

3 

LAST 

980 

15,3722 

00031 

0 

T IMFP 

T 

2113 

REF 

1 

15,3723 

65747 

0 

PATE  SP , 2 

LOMP , LOSR , LONR 

2114 

15, 3724 

42661 

0 

SL 

DAD* 

2115 

15,  3725 

20206 

1 

5D 

2116 

R EF 

2 

LAST 

98  1 

15*  3 726 

65741 

0 

RATESP  +6,2 

LOMO.LOSO, LONO 

2117 

15,  3727 

77625 

0 

DSU 

2118 

REF 

4 

LAST 

98  1 

15,3730 

00027 

1 

GTMP 

2 1 1 Q 

R EF 

1 

15,3731 

10021 

0 

STORE 

STMP  ,2 

L OM , LOS , L ON 

2120 

15, 3732 

63135 

0 

SLOAD 

I NC R ,2 

2121 

REF 

16 

LAST 

962 

15,3733 

00050 

1 

X 2 

2 1 22 

15,3  734 

77775 

1 

DEC 

-2 

2123 

15, 3735 

53015 

0 

DAD 

BZE 

2124 

REF 

1 

15, 3736 

12026 

0 

RCB-  13 

PLUS  2 

2125 

REF 

1 

15,3  737 

33767 

1 

POSI TE 

2ND 

2126 

15,3740 

77644 

1 

BPL 

2127 

REF 

1 

15, 3741 

33677 

1 

POSI TA 

1ST 

2128 

15,3742 

453  45 

1 

POSI TF 

DLOAD 

DSU 

3RD 

2129 

REF 

2 

LAST 

98  1 

15,  3743 

00021 

1 

STMP 

LOM 

2130 

REF 

3 

LAST 

98  1 

15,3744 

00025 

0 

STMP  +4 

LON 

2131 

15, 3 745 

65356 

1 

SIN 

POOL 

S I N ( L OM-LON ) 

2132 

REF 

4 

LAST 

98  1 

15, 3746 

00021 

1 

STMP 

2133 

15, 3747 

65356 

1 

SIN 

POOL 

SIN  LOM 

2134 

REF 

5 

LAST 

98  1 

15,3750 

000  21 

1 

STMP 

2135 

15,3751 

55546 

0 

COS 

VDEF 

COS  LOM 

2136 

15,3752 

53521 

1 

MX  V 

UNIT 

2137 

REF 

2 

LAST 

98  0 

15,3753 

12002 

0 

KONMAT 

K1,K2,K3,K4, 

2138 

REF 

8 

LAST 

933 

15,  3754 

02723 

0 

STORE 

V MOO  N 

2139 

15, 3755 

65345 

0 

DLOAD 

POOL 

2 1 40  - 

REF 

3 

LAST 

98  1 

15,3756 

12004 

0 

KONMAT  +2 

ZERO 

2141 

REF 

6 

LAST 

98  1 

15,3757 

00023 

0 

STMP  +2 

2142 

15, 3760 

65356 

1 

SIN 

POOL 

SIN  LOS 

2143 

REF 

7 

LAST 

98  1 

15,3761 

00023 

0 

STMP  +2 

2144 

15, 3762 

55546 

0 

COS 

VDEF 

COS  LOS 

2145 

15, 3763 

53521 

1 

MX  V 

UNI  T 

2146 

REF  _ 

4 

LAST 

98  1 

15,3764 

12002 

0 

KONMAT 

2147 

REF 

7 

LAST 

980 

15,3765 

02715 

0 

STORE 

VSUN 

2148 

15, 3766 

77616 

0 

RVO 

981 
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2149 

2150 

REF 

REF 

5 

s 

LAST 
L T 

98  1 
q A ] 

15,3767 
1 5,3770 
is, 3771 

77745  1 
12004  0 
00027  l 

POSITE 

OLOAD 

STORE 

KONMAT  +2 
GTMP 

ZEROS 

2152 

15,3772 

77650  1 

GOTO 

2153 

REF 

i 

15,3773 

33721  0 

p ns i to 

1 ^ 774 

77616  0 

LUNVEL 

RVQ 

TO  FOOL  INTEGRATION 

21536 

REF 

2 

LAST 

67 

05,2000 

SETLOC 

EPHEMl 

21537 

05,3430 

BANK 

21538 

REF 

2 

LAST 

67  TO 

68: 

52  52* 

COUNT* 

$ $ / E PHEM 

STMP 

FOI 1 Al  <; 

1 6D 

2164 

0026 

GTMP 

EQUALS 

22D 

2165 

0030 

TIMEP 

EQUALS 

24D 

***  END  OF  LEMP50S  .103  *** 
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R0001 

R0002 

R0004 

R0006 

R0008 

R0010 

R0011 

R0012 

R0013 

R0014 

R 00 1 5 

R0016 

R0017 

R0018 

R0019 

R0020 

R0021 

R0022 

R0023 

R0024 

R0025 

R0026 

R0027 

R0028 

R0029 

R0030 

R0031 

R0032 

R0033 

R0034 

R0036 

R0038 

R0040 

R0042 

R0043 

R0047- 

R0048 

R0049 

R0050 

R0051 

R0052 

ROO  522 

R00525 

ROO  52  6 

ROO  53 

R0054 

R0055 

ROO  56 

R0058 

R0059 


PROGRAM  NAME-  DOWN  TELEMETRY  PROGRAM 

MOD  NO.-  0 TC  COMPLETELY  REWRITE  THE  DOWN  TELEMETRY  PROGRAM  AND  DOWNLINK  ERASABLE  DUMP  PROGRAM  FOR  THE 

PURPOSE  OF  SAVING  APPROXIMATELY  150  WORDS  OF  CORE  STORAGE. 

THIS  CHANGE  REQUIRES  AN  ENTIRELY  NEW  METHOD  OF  SPECIFYING  DOWNLINK  LISTS. REFER  TO  DOWNLINK 
LISTS  LOG  SECTION  FOR  MORE  DETAILS.  HOWEVER  THIS  CHANGE  WILL  NOT  AFFECT  THP  GROUND  PROCESSING 
OF  DOWN  TELEMETRY  DATA. 

MCC  BY-  KILROY,  SMITH,  DEWITT 
DATE-  020CT67 

AUTHORS-  KILROY,  SMITH,  DEWITT,  DEWOLF,  FAGIN 
LOG  SECTION-  DOWN-TELEMETRY  PROGRAM 

FUNCTIONAL  DESCRIPTION-  THIS  ROUTINE  IS  INITIATED  BY  TELEMETRY  END 

PULSE  FROM  THE  DOWNLINK  TELEMETRY  CONVERTER.  THIS  PULSE  OCCURS 
AT  50  TIMES  PER  SECIEVERY  20  MS)  THEREFORE  DODOWNTM  IS 
EXECUTED  AT  THESE  RATES.  THIS  ROUTINE  SELECTS  THE  APPROPRIATE 
AGC  DATA  TO  BE  TRANSMITTED  DOWNLINK  AND  LOADS  IT  INTO  OUTPUT 
CHANNELS  34  AND  35.  THE  INFORMATION  IS  THEN  GATED  OUT  FROM  THE 
LC-C  IN  SERIAL  FASHION. 

THIS  PROGRAM  IS  CODED  FOR  A 2 SECOND  DOWNLIST.  SINCE  DOWNRUPTS 
OCCUR  EVERY  20MS  AND  2 AGC  COMPUTER  WORDS  CAN  BE  PLACED  IN 
CHANNELS  34  AND  35  DUPING  EACH  DOWNRUPT  THE  PROGRAM  IS  CAPABLE 
OF  SENDING  200  AGC  WORDS  EVERY  2 SECONDS. 

CALLING  SECUENCE-  NONE 

PROGRAM  IS  ENTERED  VIA  TC F DODOWNTM  WHICH  IS  EXECUTED  AS  A 
RESULT  OF  A DOWNRUPT.  CONTROL  IS  RETURNED  VIA  TC  F RESUME  WHICH 
IN  EFFECT  IS  A RESUME. 

SUBROUTINES  CALLED-  NONF 
NORMAL  EXIT  MODE-  TCF  RESUME— 

ALARM  OR  ABORT  EXIT  MODE-  NONE 
RESTART  PROTECTION: 

ON  A FRESH  START  AND  RESTART  THE  'SJARTSUB*  SUBROUTINE  WILL  INITIALIZE  THE  OOWNLIST  PO INTER ( ACTU ALL Y 
DNTMGOTO ) TO  THE  BEGINNING  OF  THE  CURRENT  DOWNL I ST  ( I . E . CURRENT  CONTENTS  OF  DNLSTADR).  THIS  HAS  THE 
EFFECT  OF  IGNORING  THE  REMAINDER  OF  THE  DOWNLIST  WHICH  THE  DOWN-TELEMETRY  PROGRAM  WAS  WORKING  ON  WHEN 
THE  REST  ART ( OR  FRESH  START)  OCCURRED  AND  RESUME  DOWN  TELEMETRY  FROM  THE  BEGINNING  OF  THE  CURRENT 
DCWNL  1ST  . 

ALSO  OF  INTEREST  IS  THE  FACT  THAT  ON  A RESTART  THE  AGC  WILL  ZERO  DOWNLINK  CHANNELS  13,  34  AND  35. 
DOWNLINK  LIST  SELECTION: 

THE  APPROPRIATE  DOWNLINK  LISTS  ARE  SELECTED  BY  THE  FOLLOWING: 

1.  FRESH  START 

2.  V37EXXE  WHERE  XX  = THE  MAJOR  MODE  BEING  SELECTED. 

3.  UPDATE  PROGR AM ( P2 7 ) 

4.  N0N-V37  SELECTABLE  TYPE  PROGRAMS ( E. G.  AGS  I N IT l AL I ZAT I ON ( SUNDANCE , LUMI NARY ) AND  P61-P62 
TRANSI II  ONI  COLOSSUS ) ETC.). 

DOWNLINK  LIST  RULES  AND  LIMITATIONS: 

READ  SEC  T I ON ( S ) WHICH  FOLLOW  'DEBRIS'  WRITEUP. 

OUTPUT-  EVERY  2 SECONDS  100  DOUBLE  PRECISION  WORDS! I. E.  200  LGC 
COMPUTER  WORDS)  APE  TRANSMITTED  VIA  DOWNLINK. 

ERASAELE  INITIALIZATION  REQUIRED-  NONE 

'DNTMGOTO'  AND  'DNLSTADR'  ARF  INITIALIZED  BY  THE  FRESH  START  PROGRAM. 

DEBRI S (ERASABLE  LOCATIONS  DESTROYED  BY  THIS  PROGRAM)- 

LDATALST  ,DNTMBUFF  TO  DNTMBIJFF  +2  ID  , T M INDEX  , ON  Q . 
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L 

P0065 

R0066 

R0067 

R0068 

R0069 

R0070 

R0075 

R0076 

R0077 

R0078 

R0079 

Rooeo 

R0081 

R0082 

R0083 

R0084 

R0085 

R0086 

R0087 

R0088 

R0089 

R0090 

R0091- 

R0092 

R0093 

R0094 

R0095 

R0096 

R0097 

R0098 

R0100 

R 0 101 

R0103 

R0104 

R0106 

R0107 

R0109 

R0110 
R01 1 1 
R01  13 

R 0 1 1 4 
R0116 

R0118 


DOWN-TELEMETRY  PROGRAM  USER'S  PAGE  NO.  3 EO  S3 

DCCOWNTM  IS  ENTERED  EVERY  20  MS  BY  AN  INTERRUPT  TRIGGERED  BY  THE 
RECEIPT  OF  AN  ENDPULSE  FROM  THE  SPACECRAFT  TELEMETRY  PROGRAMMER. 

NOTES  REGARDING  DOWNLINK  LISTS  ASSOCIATED  WITH  THIS  PROGRAM: 

1.  DOWNLISTS.  - DOWNLISTS  MUST  BE  COMPILED  IN  THE  SAME  BANK  AS  THE 
DOWN-TELEMETRY  PROGRAM.  THIS  IS  DONE  FOR  EASE  OF  CODING,  FASTER 
EXECUTION. 

2.  EACH  DOWNLINK  LIST  CONSISTS  OF  A CONTROL  LIST  AND  A NUMBER  OF 
SUBLISTS. 

3.  A SUBLIST  REFERS  TO  A SNAPSHOT  OR  DATA  COMMON  TO  THE  SAME  OR  OTHER 
DOWNLINK  LISTS.  ANY  SUBLIST  CONTAINING  COMMON  DATA  NEEDS  TO  BE 
CODED  ONLY  ONCE  FOR  THE  APPLICABLE  DOWNLINK  LISTS. 

4.  SNAPSHOT  SUBLISTS  REFER  SPECIFICALLY  TO  HOMOGENOUS  DATA  WHICH  MUST  BE 
SAVED  IN  A BUFFER  DURING  ONE  DOWNRUPT. 

5.  THE  1 ON ADR  FOR  THE  1ST  WORD  OF  SNAPSHOT  DATA  IS  FOUND  AT  THE  END 

OF  EACH  SNAPSHOT  SUBLIST,  SINCE  THE  PROGRAM  CODING  SENDS  THIS  DP  WORD 
IMMEDIATELY  AFTER  STORING  THE  OTHERS  IN  THE  SNAPSHOT  BUFFER. 

6.  ALL  LISTS  ARE _ COMB INAT IONS  OF  CODED  ERASABLE  ADDRESS  CONSTANTS 
CREATED  FOR  THE  DOWNLIST  PROGRAM. 

A.  1DNACR  1-WORD  DOWNLIST  ADDRESS. 

SAME  AS  ECADR,  BUT  USED  WHEN  THE  WORD  ADDRESSED  IS  THE  LEFT 
HALF  OF  A DOUBLE-PRECISION  WORD  FOR  DOWN  TELEMETRY. 

B.  2DNADR  - 6DNADR  N-WORD  DOWNLIST  ADDRESS,  N = 2 - 6. 

SAME  AS  1DNADR,  BUT  WITH  THE  4 UNUSED  BITS  OF  THE  ECADR  FORMAT 
FILLED  IN  WITH  0001-0101.  USED  TO  POINT  TO  A LIST  OF  N DOUBLF- 
PRECISION  WORDS,  STORED  CONSECUTIVELY,  FOR  DOWN  TELEMETRY. 

C.  CNCHAN  DOWNLIST  CHANNEL  ADDRESS. 

SAME  AS  1DNADR,  BUT  WITH  PREFIX  BITS  0111.  USED  TO  POINT  TO 
A PAIR  OF  CHANNELS  FOR  DOWN  TELFMETRY- 
- D.  DNPTP  DOWN  TELEMETRY  SUBLIST  POINTER. 

SAME  AS  CAF  BUT  TAGGED  AS  A CONSTANT.  USED  IN  CONTROL  LIST  TO  POINT  TO  A SUBLIST. 

CAUTION A DNPTR  CANNOT  BE  USED  IN  A SUBLIST. 

7.  THE  WORD-ORDER  CODE  IS  SET  TO  ZERO  AT  THE  BEGINNING  OF  EACH  DOWNLIST  (I.E.  CONTROL  LIST)  AND  WHEN 
A '1DNADR  TIME2*  IS  DETECTED  IN  THE  CONTROL  LIST! ONLY)  . 

8.  IN  THE  SNAPSHOT  SUBLIST  ONLY,  THE  DNADR' S CANNOT  POINT  TO  THE  FIRST  WORD  OF  ANY  EBANK. 

DOWNLINK  LIST  RESTRICTIONS: 

(THE  FOLLOWING  POINTS  MAY  BE  LISTEO  ELSEWHERF  BUT  ARE  LISTED  HERE  SO  IT  IS  CLEAR  THAT  THESE  THINGS  CANNOT  BE 
CCNF) 

1.  SNAPSHCT  DOWNLIST: 

(A)  CANNCT  CONTAIN  THE  FOLLOWING  ECADRSU.E.  lDNADR'S):  0,  400,  1000,  1400,  2000,  2400,  3000,  3400. 

(B)  CAN  CONTAIN  ONLY  lDNADR'S 

2.  ALL  DOWNLINKED- DATA! EXCEPT  CHANNELS)  IS  PICKED  UP  BY  A <DCA<SO  DOWNLINK  LISTS  C ANNOT  CONTA I N THE 
EQUIVALENT  OF  THE  FOLLOWING  ECADRSU.E.  IDNADRS):  377,  777,  1377,  1777  , 2377,  27777,  3377,  3777. 

( NCTE : THE  TERM.  EQUIVALENT  ' MEANT  THAT  THE  IDNADR  TO  6DNA0P  WILL  BE  PROCESSED  LIKE  1 TO  6 ECADRS) 


R0I20 


3 


CONTROL  LISTS  AND  SUBLISTS  CANNOT  HAVE  ENTRIES 


OCTAL  00000  OR  OCTAL  77777 


GAP: 

L 

R0122 

R0124 

R 0 1 2 5 

R0126 

R0127 

R0128 


R0129 
R0130 
R0132 
R0134 
R0136 
R0137 
R0138 
R 0 139 
R0140 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 


0164 

0165 
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4.  THF  ' 1DNADR  TIME2'  WHICH  WILL  CAUSE  THE  DOWNLINK  PROGRAM  TO  SET  THE  WORDER  CODE  TO  3 MUST  APPEAR  IN  THE 
CONTROL  SECTION  OF  THE  DOWNLIST. 

5.  ' DNCHAN  O'  CANNOT  BE  USED. 

6.  'DNPTR  O'  C ANN CT  BE  USED. 

7.  DNPTR  CANNOT  APPEAR  IN  A SUBLIST. 


EE  AN  K SETTINGS 

IN  THE  PROCESS  OF  SETTING  THE  EBANK I WHEN  PICKING  UP  DOWNLINK  DATA)  THE  DOWN  TELEMETRY  PROGRAM  PUTS 
'GARBAGE'  INTO  BITS15-12  OF  EBANK.  HUGH  3LAIR-SMITH  WARNS  US  THAT  BITS15-12  OF  EBANK  MAY  BECOME 
SIGNIFICANT  SOMEDAY  IN  THE  FUTURE.  IF/WHEN  THAT  HAPPENS,  THE  PROGRAM  SHOULD  INSURE ( BY  MASKING  ETC.) 
THAT  BITS15-12  OF  EBANK  ARE  ZERO. 

INITIALIZATION  REQUIRED-  TO  INTERRUPT  CURRENT  LIST  AND  START  A NEW  ONE.. 

1.  ACRES  OF  DOWNLINK  LIST  INTO  DNLSTADR 

2.  NEGONE  INTO  SUBLIST 

3.  NEGONE  I NTO  DNEC ADR 


22,3647 

BANK 

22 

REF 

2 LAST  208 

05,2000 

SETLOC 

DOWNTELM 

05, 3430 

BANK 

REF  17  -LAST  21 9 0340  EBANK—  DNTMBUFF 


REF 

REF 

1 

— §_ 

LAST 

819 

-05, 3430 

54  016 

1 

COUNT* 
DODOWNTM  TS 

$$/DPROG 
BANK  RUPT 

05,3431 

0 0006 

1 

EXTEND 

REF 

5 

LAST 

819 

05, 3432 

22  012 

1 

QXCH 

QRUPT 

SAVE  Q 

REF 

41 

LAST 

97  2 

05, 3433 

3 4745 

0 

CA 

8 I T7 

SET  WORD  PRDFR  CODE  TO 

1.  EXCEPTION-  AT 

05,3434 

0 00  06 

1 

EXTEND 

THE  BEGINNING  OF 

EACH 

LIST  THE  WORD 

REF 

17 

LAST 

820 

05, 3435 

05  013 

0 

WOR 

CHAN  13 

CODE  WILL  BE  SET 

BACK 

TO  0. 

REF  4 LAST  303  05,3436  0 0335  1 TC  DNTMGOTO  GO  TO  APPROPRIATE  PHASE  OF  PROGRAM 


REF 

2 

LAST 

234 

05, 3437 

3 7746 

0 

DNPHASE1 

CA 

NEGONE 

INITIALIZE  ALL  CONTROL  WORDS 

REF 

1 

05, 3440 

54  337 

1 

TS 

SUBL  1ST 

WORDS  TO  MINUS  ONE 

REF 

1 

05, 344 l 

54  336 

0 

TS 

DNFC ADR 

REF 

1 

05, 3442 

3 3562 

0 

CA 

L0NPHAS2 

SET  DNTMGOTO  =0  ALL  SUBSEQUENT  DOWNRUPTS 

REF 

5— 

LAST 

986 

05,3443 

54  335 

0 

TS 

DNTMGOTO 

GO  TO  DNPHASE2 

REF 

1 

05,3444 

1 34  60 

1 

TC  F 

NFWL  1ST 

REF 

2 

LAST 

986 

05, 3445 

10  336 

0 

DNP  HAS  E 2 

CCS 

DNEC ADR 

SENDING  OF  DATA  IN  PROGRESS 

RFF 

1 

05,3446 

0 3575 

0 

DODNADR 

TC 

F ETC  H2WD 

YES  - THEN  FETCH  THE  NEXT  2 SP  WORDS 

REF 

28 

LAST 

92  7 

05,3447 

77753 

0 

MINT  I ME2- 

-1DNADR 

T I ME  2 

NEGATIVE  OF  TIME2  1DN ADR 

05, 3450 

1 3451 

0 

TCF 

+ 1 

(ECADR  OF  3776  + 74001  = 77777) 

REF 

2 

LAST 

93  6 

05,  3451 

10  337 

1 

CCS 

SUBL 1ST 

IS  THE  SUBLIST  IN  CONTROL 

REF 

1 

05, 3452 

1 3610 

1 

TCF 

NEXT INSL 

YES 

GAP 
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0166 

05,  3453 

74001 

0 

DNADRDCR 

OCT 

74001 

n s, 34^4 

3 03  34 

0 

CHK 1 I ST 

CA 

CTL I ST 

0 167 

0168 

05, 3455 

0 0006 

1 

EXTEND 

0169 

REF  2 

LAST 

986 

05,3456 

6 3460 

0 

BZMF 

NEWL  1ST 

REF  1 

05,3457 

1 3465 

_1 

TCF 

NEXT  INCL 

0171 

REF  8 

LAST 

835 

05, 3460 

50  332 

0 

NEWLIST 

INDEX 

DNLSTCOD 

0172 

REF  1 

05,3461 

3 2441 

1 

CA 

DNTABLF 

0173 

REF  2 

LAST 

98  7 

05,3462 

54  334 

1 

TS 

CTL  I ST 

0174 

REF  9 

LAST 

987 

05,3463 

4 0332 

1 

CS 

DNLS  TCOD 

0175 

REF  1 

05,3464 

1 3700 

1 

TCF 

SENDID  ♦ 3 

0177 

REF  3 

LAST 

93  7 

05, 3465 

50  334 

0 

NEXT INCL 

INDEX 

CTL I ST 

0178 

05,3466 

3 0000 

1 

CA 

0 

0179 

REF  304 

LAST 

978 

05,  3467 

10  000 

0 

CCS 

A 

0180 

REF  4 

LAST 

98  7 

05,3470 

24  334 

0 

INCR 

CTL  I ST 

0181 

05,3471 

1 3475 

0 

TCF 

+ 4 

0182 

REF  5 

LAST 

987 

05, 3472 

56  334 

0 

XCH 

CTL I ST 

0 1 83 

05,3473 

4 0000 

0 

COM 

0184 

REF  6 

LAST 

987 

05,3474 

56  334 

0 

XCH 

CTL I ST 

0185 

RFF  3C5 

LAST 

987 

05, 3475 

24  000 

1 

+4 

INCR 

A 

m 86 

R FF  3 

ART 

98  6 

05, 3476 

54  3 36 

0 

TS 

DNEC ADR 

0187 

REF  1 

05,3477 

6 3447 

0 

AD 

MINT  I ME2 

0188 

REF  3C6 

LAST 

98  7 

05,3500 

10  000 

0 

CCS 

A 

01  89 

REF  1 

0 5,  3 501 

1 3505 

0 

TCF 

SETWO  +1 

0190 

05, 3502 

47777 

0 

MINB1314 

OCT 

47777 

0191 

REF  2 

LAST 

937 

05, 3503 

1 3505 

0 

TCF 

SETWO  +1 

0192 

REF  1 

05,3504 

0 3527 

1 

SETWO 

TC 

WOZF  RO 

0193 

REF  4 

LAST 

987 

05,3505 

3 0336 

1 

+ 1 

CA 

DNEC ADR 

0194 

REF  1 

05,3  506 

6 3502 

0 

+ 2 

AD 

MINE  1314 

0195 

05,3507 

0 0006 

1 

EXTEND 

0196 

REF  2 

LAST 

986 

05,  3510 

6 3575 

0 

BZMF 

F ETC  H2WD 

0197 

REF  1 

05,  3511 

6 7740 

0 

AD 

MINR12 

0198 

05,3512 

0 0006 

1 

EXTEND 

0199 

REF  1 

05,3513 

6 3533 

1 

BZMF 

DODNPTR 

npnn 

OS-,3  SI  4 

o nnns 

1 

nnnME  HANJ 

Tf 

5 

0201 

REF  5 

LAST 

987 

05,3515 

50  336 

1 

INDEX 

DNEC  ADR 

0202 

05,  3516 

44 ' 0 00 

1 

INDEX 

0 -4000 

0203 

REF  157 

L AST 

959 

05,3517 

54  001 

1 

TS 

L 

0204 

05, 3520 

0 0006 

1 

TC 

6 

0205 

REF  6 

LAST 

98  7 

05,3521 

50  336 

1 

INDEX 

DNEC ADR 

0206 

05,3522 

43' 777 

1 

INDEX 

0 -4001 

0207 

REF  7 

LAST 

987 

05,3523 

54  336 

0 

TS 

DNFC  ADR 

0208 

REF  3 

LAST 

986 

05,  3 524 

3 7746 

0 

CA 

NEGONE 

0209 

REF  8 

LAST 

907 

05,3525 

56  336 

1 

XCH 

DNEC ADR 

0210 

REF  1 

05, 3526 

1 3623 

1 

TCF 

DNTMEXIT 

0211 

REF  42 

LAST 

936 

05,3527 

4 4745 

1 

WOZERO 

CS 

B I T7 

0212 

05,3530 

0 0006 

1 

EXTEND 

0213 

REF  18 

LAST 

986 

05,  3531 

03  013 

0 

WAND 

CHAN  13 

19:02  NOV-  25,1968  SKIPPER  .070  PAGE  987 


USER'S  PAGE  NO.  5 EO  S3 

DNADR  COUNT  AND  EC ADR  DECREMENTER 

IT  WILL  BE  NEGATIVE  AT  END  OF  LIST 

INITIALIZE  CTLIST  WITH 

STARTING  ADDRESS  OF  NEW  LIST 


SET  °0 1 NTF R TO  PICK  UP  NEXT  CTLIST  WORD 
ON  NEXT  ENTRY  TO  PROG.  (A  SHOULD  NOT  =0 ) 
SET  CTLIST  TO  NEGATIVE  AND  PL  AC E ( COD  I NG ) 
UNCOMPLEMENTED  DNADR  INTO  A.  (FOR  LA) 

(ST  IN  ) 
(CTLIST) 

SAVE  DNADR 

TEST  FOR  T I ME  2 (NEG.  OF  ECADR ) 

DON'T  SET  WORD  ORDER  CODE 

MINUS  BIT  13  AND  14  (CAN'T  GET  HERE) 

DON'T  SET  WORD  ORDER  CODE 

GO  SET  WORD  ORDER  CODE  TO  ZERO. 

RELOAD  A WITH  THE  DNADR. 

IS  THIS  A REGULAR  DNADR? 


YES.  (A  MUST  NEVER  8E  ZERO) 

NO-  IS  IT  A POINTER  (DNPTR)  OR  A 
CHANNEL! DNCHAN) 

IT'S  A POINTER.  (A  MUST  NEVER  BE  ZERO) 

(EXECUTED  AS  EXTENDJ  IT  S A CHANNEL 

(EXECUTED  AS  READ) 

(EXECUTED  AS  EXTEND) 

(EXECUTED  AS  READ) 

SET  ONECAOR 
TO  MINUS 

WHILE  PRESERVING  A. 

GO  SEND  CHANNELS 


SET  WORD  ORDER  CODE  TO  ZERO 


GAP: 

L 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

R0224 

R 02  26 

R0228 

R0230 

R0232 

R0233 

R 0 2 34 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

02  54 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 
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REF 

228 

LAST 

923 

05,3532 

0 00  02 

0 

TC 

Q 

RETURN  TO  CALLER 

1 ACT 

Q Q "7 

50  336 

1 DODNPTR 

I NDEX 

DNEC ADR 

DNECADR  CONTAINS  ADRES  OF  SUBLIST 

REF 

9 

L A b i 

^7  O 1 

U | J JD  d 
05,3534 

0 0000 

1 

0 

6 

CLEAR  AND  ADD  LIST  ENTRY  INTO  A. 

REF 

307 

LAST 

987 

05, 3535 

10  000 

0 

CCS 

A 

IS  THIS  A SNAPSHOT  SUBLIST 

R EF 

1 0 

L AST 

9 8 8 

05, 3536 

3 0336 

1 

CA 

DNEC ADR 

NO,  IT  IS  A REGULAR  SUBLIST. 

REF 

1 

05,3537 

1 3607 

1 

TCF 

DOSUBLST 

A MUST  NOT  BE  ZERO. 

n c C 

1 ACT 

QO  O 

nc  ^ c ao 

56  336 

L 

XCH 

ONE  C ADR 

YES,  IT  IS  A SNAPSHOT  SUBLIST. 

K tr 

REF 

rl — 

3 

L fib  1 

LAST 

MOO 

986 

05, 3541 

54  337 

1 

TS 

SUBL  1ST 

C ( DNECADR ) INTO  SUBLIST 

REF 

178 

LAST 

97  1 

05,3542 

3 4755 

l 

CAF 

ZERO 

A INTO  A 

REF 

— 3- 

LAST 

11  5 

05,3543 

56  336 

-0 — 

XCH 

T MI NDEX 

(NOTE..  T M INDEX  = DNECADR) 

THE  FOLLOWING  CODING  (FROM  SNAPLOOP  TO  SNAPENDIIS  FOR  THE  PURPOSE  OF  TAKING  A SNAPSHOT  OF  12  DP  RFGISTERS. 
THIS  IS  DONE  BY  SAVING  11  DP  REGISTERS  IN  DNTMBUFF  AND  SENDING  THE  FIRST  DP  WORD  IMMEDIATELY. 

THE  SNAPSHOT  PROCESSING  IS  THE  MOST  TIME  CONSUMING  AND  THEREFORE  THE  CODING  AND  LIST  STRUCTURE  WERE  DESIGNED 
TO- MINIMIZE  TIME.  THE  TIME  OPTIMIZATION  RESULTS  IN  RULES  UNIQUE  TO  THE  SNAPSHOT  PORTION  OF  THE  DOWNLI ST . 
THESE  RULES  ARE 


1. 

ONLY 

lDNADR'S 

CAN  APPEAR 

IN  THE 

SNAPSHOT  SUBLIST 

2. 

T HE 

1 DNADR ' S 

CANNOT  1 

RFFFP  TO  THE 

FIRST 

L3CAT  ION  IN  ANY 

BANK. 

P EF 

41 

L AST 

q S 4 

0 S t "3 544 

S4  00^ 

o 

sna  pi  nnp 

TS 

E BAN  K 

S FT  FBANK 

REF 

5 

LAST 

799 

05,3545 

7 43  57 

0 

MASK 

L0W8 

ISOLATE  RELATIVE  ADDRESS 

05, 3546 

0 0006 

1 

EXTEND 

R FF 

3C8 

LAST 

98  8 

05 1 3547 

5 0000 

1 

INDEX 

A 

E3, 1401 

EBANK= 

1401 

05, 3550 

3 1402 

0 

DC  A 

1401 

PICK  UP  2 SNAPSHOT  WORDS. 

R F F 

1 8 

1 AST 

9 8 6 

0 340 

E8 ANK= 

DNTMBUFF 

REF 

4 

LAST 

988 

05,3551 

50  336 

1 

INDEX 

TMINDEX 

REF 

19 

LAST 

988 

05,  3552 

52  341 

0 

DXCH 

DNTMBUFF 

STORE  2 SNAPSHOT  WORDS  IN  BUFFER 

REF 

5 

L AST 

98  8 

05, 3553 

24  336 

1 

I NC  R 

TMI h DEX 

SET  BUFFER  INDEX  FOR  NEXT  ? WORDS. 

REF 

6 

LAST 

98  8 

05,3554 

24  336 

1 

INCR 

TMINDEX 

REF 

4 

LAST 

98  8 

05,  3555 

24  337 

0 

SNAPAGN 

I NCR 

SUBL  1ST 

SET  POINTER  TO  NEXT  2 WORDS  OF  SNAPSHOT 

REE 

5 

LAST 

98  8 

05, 3556 

50  337 

0 

INDEX 

SUBL  1ST 

05, 3557 

0 0000 

1 

0 

0 

= CA  SSSS  (SSSS  = NEXT  ENTRY  IN  SUBLIST) 

REF 

3C9 

LAST 

98  8 

05, 3560 

10  000 

0 

CCS 

A 

TEST  FOR  LAST  TWO  WORDS  OF  SNAPSHOT. 

REF 

1 

05,3561 

1 3544 

0 

TC  F 

SNAPLOOP 

NOT  LAST  TWO. 

REF 

1 

05,3562 

03445 

1 

LDNPHAS2 

GENADR 

DNPH  ASE2 

REF 

6 

LAST 

988 

05,  3563 

54  337 

1 

TS 

SUBL  1ST 

YES,  LAST.  SAVE  A. 

REF 

-4 

LAST 

98  7 

05, 3 564 

3 7746 

o 

CA 

NEGONE 

SFT  DNECADR  AND 

REF 

12 

LAST 

988 

05, 3565 

54  336 

0 

TS 

DNFC  ADR 

SUBLIST  POINTERS 

REF 

7 

LAST 

988 

05, 3566 

56  337 

0 

XCH 

SUBL  1ST 

TO  NEGATIVF  VALUES. 

REF 

42 

LAST 

98  8 

05, 3567 

54  003 

0 

TS 

EBANK 

REF 

6 

LAST 

988 

05,3570 

7 4357 

0 

MASK 

LOWS 

05,  3571 

0 0006 

1 

EXTEND 

REF 

310 

LAST 

9-8-8-- 

05, 3572 

5 0000 

1 

INDEX 

-A_ 

E 3 , 1401  FBANK=  1401 

05,3573  3 1402  0 DC A 140] 


PICK  UP  FIRST  2 WORDS  OF  SNAPSHOT 
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0263 

0264 

REF 

REF 

20 

2 

LAST 

LAST 

98  8 
987 

0 340 
05,3574 

1 3623 

1 

EB ANK= 

SNAPEND  TCF 

DNTMBUFF 

DNTMEXIT 

0265 

REF 

13 

LAST 

988 

05, 3575 

3 0336 

l 

FETCH2WD  CA 

DNEC ADR 

0266 

REF 

43 

LAST 

938 

05,3576 

54  003 

0 

TS 

EBANK 

0267 

REF 

7 

LAST 

9 8 8 

05,3577 

7 43  57 

_Q_ 

MASK 

LOW  8 

0268 

REF 

158 

LAST 

987 

05, 3600 

54  001 

1 

TS 

L 

0269 

REF 

1 

05,3601 

3 3453 

0 

CA 

DNADRDCR 

0270 

REF 

14 

-LAST 

9-8  9- 

05,3602 

26  336 

0 

ADS 

DNEC ADR 

0271 

05, 3603 

0 0006 

1 

EXTEND 

0272 

REF 

1 59 

LAST 

98  9 

05,3604 

5 0001 

0 

INDEX 

L 

0273 

E3, 1400 

EBANK= 

1400 

0274 

05, 3605 

3 1401 

0 

DC  A 

1 400 

0275 

REF 

21 

LAST 

939 

0340 

EB  ANK  = 

DNTMBUFF 

0276 

REF 

3 

LAST 

98  5 

05, 3606 

1 3623 

_1_ 

TCF 

DNTMEXIT 

0277 

REF 

8 

LAST 

938 

05, 3607 

54  337 

1 

DOSUBLST  TS 

SURL 1ST 

0278 

REF 

g 

LAST 

9-8  9 

05, 3610 

50  337 

0 

NEXT I NSL  INDEX 

SUBL  1ST 

0279 

05, 3611 

0 0000 

1 

0 

0 

0280 

REF 

3 11 

LAST 

988 

05, 3612 

10  000 

0 

CCS 

A 

0281 

REF 

10 

LAST 

989 

05,3613 

24  337 

0 

INCR 

SUBL  1ST 

0282 

05,3614 

1 3620 

l 

TCF 

+ 4 

0283 

REF 

11 

LAST 

989 

05, 3615 

54  337 

1 

TS 

SUBL  1ST 

02  84 

REF 

5 

LAST 

988 

05,3616 

3 7746 

0 

CA 

NEGONE 

0285 

REF 

12 

LAST 

93  9 

05, 3617 

56  337 

0 

XCH 

SUBL  1ST 

0286 

REF 

312 

LAST 

939 

05,  3620 

24  000 

1 

+4  INCR 

A 

0287 

REF 

15 

LAST 

98  9 

05,3621 

54  336 

0 

TS 

DNEC ADR 

0288 

REF 

3 

LAST 

987 

05,  3622 

1 3506 

0 

TCF 

SETWO  +2 

A0289 

A0290 


0291 

05, 3623 

0 

0006 

1 

DNTMEXIT 

EXTEND 

0292 

REF 

1 

05 , 3624 

0 1 

034 

1 

WRITE 

D-NT  M 1 

0293 

REF 

160 

LAST 

98  5 

05, 3625 

3 

0001 

0 

CA 

L 

02  94 

05, 3626 

0 

00  06 

1 

TMEXI TL 

EXTEND 

0295 

REF 

1 

05,3627 

01 

035 

0 

WR  ITE 

DNTM2 

0296 

REF 

21 

LAST 

822 

05, 3630 

1 

52  70 

0 

TMRESUME 

TCF 

R ESUME 

0297 

R EF 

2 

1 AST 

53  9 

7 740 

M INR  1 ? 

F QUA | S 

-1/8 

0298 

REF 

7 

LAST 

988 

0336 

DNECADR 

EQUALS 

T MI  N DEX 

0299 

REF 

2 

LAST 

115 

0334 

CTL I ST 

EQUALS 

LDAT ALST 

0300 

REF 

2 

LAST 

115 

0337 

SUBL I ST 

EQUALS 

DNQ 
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NOW  GO  SFND  THEM. 


SET  EBANK 

ISOLATE  RELATIVF  ADDRESS 
DECREMENT  COUNT  AND  ECADR 


PICK  UP  2 DATA  WORDS 
NOW  GO  SFND  THEM. 

SET  SUBLIST  POINTER 

= CA  SSSS  (SSSS  = NEXT  ENTRY  IN  SUBLIST) 

IS  IT  THE  END  OF  THE  SUBLIST 

NO- 


SAVE A. 

SET  SUBLIST  TO  MINUS 
RETRIEVE  A. 

SAVE  DN ADR 

GO  USE  COMMON  CODI NGI PROBLEMS  WOULO 
OCCUR  IF  THE  PROGRAM  ENCOUNTERED  A 
DNPTR  NOW) 

DOWN-TELEMETRY  EXIT 

Ifl  SEND  A + L TO  CHANNELS  34  + 35 

RESPECT IVELY 


EXIT  TELEMETRY  PROGRAM  VIA  RESUME 


GAP: 

L 

P0301 

R0302 

R0304 

R0306 

R0308 

R0310 

R0312 

R0313 

R0315 

R0316 

R0317 

R0319 

R0320 

R0321 

R0322 

R0323 

R0324 

R0325 

R0326 

R0327 

R0328 

R0329 

R0331 

R0333 

R0335 

R0336 

R0338 

R0339 

R0340 
R0342 
R0344 
R0346 
R0347 
R 0 349 
R0351 
R0353 
R0354 
R 035  5 
R0356 

R0358 
R0359 
R0360 
R0361 
R0363 
R0  365 
R0366 
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DCWN-TELEM  ETRY  PROGRAM  USER'S  PAGE  NO.  8 EO  S3 

SLEPOLTINE  NAME-  DNOUMP 

FUNCTIONAL  DESCRIPTION  - TO  SEND(OUMP)  ALL  ERASABLE  STORAGE  *N'  TIMES. (N  = 1 TO  4).  BANKS  ARE  SENT  ONE  AT  A TIME 
EACH  BANK  IS  PRECEEDEO  BY  AN  ID  WORD,  SYNCH  BITS,  E CADR  AND  TIME1  FOLLOWED  BY  THE  256D  WORDS  OF  EACH 
EBANK.  EBANKS  ARE  DUMPED  IN  ORDER! I. E.  EBANK  0 FIRST,  THEN  F BANK  1 ETC.) 

CALLING  SEQUENCE-  THE  GROUND  OR  ASTRONAUT  BY  KEYING  V74E  CAN  INITIALIZE  THE  DUMP. 

AFTER  KEYING  IN  V74E  THE  CURRENT  DOWNLIST  WILL  BE  IMMEDIATELY  TERMINATED  AND  THE  DOWNLINK  ERASABLE  DUMP 
WILL  BEGIN. 

ONCE  INITIATED  THE  DOWNLINK  ERASABLE  DUMP  CAN  BF  TERMINATED  (AND  INTERRUPTED  DOWNLIST  REINSTATED)  ONLY 
BY  THE  FOLLOWING: 

1.  A FRESH  START 

2.  COMPLETION  OF  ALL  DOWNLINK  DUMPS  REQUESTED  (ACCORDING  TO  BITS  SET  IN  DU M PC NT ) . NOTE  THAT  DUMPCNT 
CAN  BE  ALTERED  BY  A V21N01. 

3.  AND  INVOLUNTARILY  BY  A RESTART. 

NORMAL  EXIT  MODE-  TCF  DNPHASE1 

ALARM  OR  AeORT  MODE-  NONE 
^SUBROUTINES  CALLED-  NONE. 

ERASAELE  INITIALIZATION  REQUIRED- 

DUMPCNT  OCT  -20000  IF  4 COMPLETE  ERASABLE  DUMPS  ARE  DESIRED 

DLMPCNT  OCT  10000  IF  2 COMPLETE  ERASABLE  DUMPS  ARE  DESIRED 

DUMPCNT  OCT  04000  IF  1 COMPLETE  ERASABLE  DUMP  IS  DESIRED 

DEBRIS-  DUMPLOC,  DUMPSW,  DNTMGOTO,  EBANK  AND  CENTRAL  REGISTERS 

TIMING-  T I ME ( I N SECS)  = ( ( NO . DUM PS ) * ( NO. E B ANKS )*  (WDSPEREB ANK  + NO.IDWDS))  / NO.WDSPERSEC 

T I ME ( I N SECS)  = ( 4 )*(  8 )*  ( 256  + 4 ) / 100 


THUS  TIMEIIN  SECS  TO 

REND  DUMP 

OF 

ERASABLE  ■ 

4 

TIMES  VIA 

rnwNL ink ) = 

83.2 

SECONDS 

STRUCTURE  CF  ONE  EBANK  AS 

IT 

IS  SENT  BY 

DOWNLINK 

PROGRAM- 

f £ F M I Nn  FR  — T HI  DMI  Y DF  I RF  DNF  DF 

THF  8 FRANKS  X 4 (DUMPS)  = 

32  FRANKS 

WHICH  WILL 

BE 

SENT  BY 

DNOUMP ) 

DOWNLI ST 

W 

WORD 

TAKEN  FROM 

CONTENTS 

OF 

EXAMPLE 

0 

COMMENTS 

1 

ERASID 

0177X 

0 

DOWNL 1ST 

I.D.  FOR  DOWNLINK  ERASABLE 

DUMP  ( X=7  CSM , 6 LM) 

2 

LOWIDCOD 

77340 

I 

DOWNLINK 

SYNCH 

BITS. 

( SAME 

ONE  US FD  IN  ALL  OTHER 

DOWNL I ST S ) 

3 

DUMPLOC 

1 3400 

1 

(SFF  NOTES  ON  DUMPI0C1  1 = 

3RD  FRAS  DUMP. 

340  0=  FC ADR  OF 

5TH  wn 

4 

T I ME  1 

14120 

1 

TIME  IN 

CENT  I SECONDS 

5 

FIRST  WORD 

OF 

EBANK 

X 

03400 

1 

IN  THIS 

EXAMPLE 

THIS 

WORD 

= CONTENTS 

OF 

E 7 , 1400 

( ECADR 

3400) 

6 

2ND  WORD 

OF 

EBANK 

X 

00142 

1 

IN  THIS 

EXAMPLE 

THIS 

WORD 

= CONTENTS 

OF 

F 7 , 1401 

( ECADR 

3401  ) 

7 

3RD  WORO 

OF 

EBANK 

X 

00142 

1 

1 

1 

IN  THIS 

EXAMPLE 

THIS 

WORD 

= CONTENTS 

OF 

E 7 , 1402 

( ECADR 

3402  ) 

260D 

256TH  WORD 

OF 

EBANK 

X 

03777 

1 

1 

IN  THIS 

EXAMPLE 

THIS 

WORD 

= CONTENTS 

OF 

FT,  1777 

( ECADR 

3777  ) 

NOTE-  DUMPLOC 

CONTAINS  THE 

COUNTER 

AND 

ECADR  FOR 

EACH  WORD  BEING  SENT. 

THE  BIT 

STRUCTURE  OF 

DUMPLOC 

IS  FOLLOWS 

X 

= NOT  USED 

X ABC 

EEE  RRRRRRRR 

ABC 

= ERASABLE 

DUMP  COUN  TER ( I . E 

. ABC 

= 0, 

1,2  OR  3 WHICH 

MEANS  THAT 

COMPLETE  ERASABLE  DUMP  NUMBER  1,2,3  OR  4 RESPECTIVELY  IS  IN  PROGRESS) 
EEE  = EBANK  BITS 

RRRRRRRR  = RELATIVE  ADDRESS  WITHIN  AN  EBANK. 
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0368 

0369 
ni  70 

REF 
REF 
R EF 

179 

1 

2 

LAST 
LAS  T 

98  8 
98  7 

05. 3631 

05.3632 

05. 3633 

3 4755 
54  336 
0 -3675 

1 

0 

Jl 

DNDUMPI 

+2 

CA 

IS 

Tr. 

ZERO 
DUMP  LOC 
SEND  ID 

INITIALIZE  DOWNLINK 

ERASABLE  DUMP 

GO  SEND  ID  AND  SYNCH  BITS 

U 0 i 

0371 

REF 

1 

05,3636 

3 3643 

0 

CA 

LDNDUMP1 

SET  DNTMGOTO 

0372 

REF 

6 

LAST 

986 

05,3635 

54  335 

0 

TS 

DNTM  GOTO 

TO  LOCATION  FOR  NEXT  PASS 

REF 

1-6— 

LAST 

95  0 

05,3636 

3 0025 

0__ 

Q-A 

TIME  1 

PLACE  T I ME  1 

U j 1 3- 

0374 

REF 

161 

LAST 

989 

05,  3637 

56  001 

0 

XCH 

L 

I NT  0 L 

0375 

REF 

2 

LAST 

99  1 

05,3640 

3 0336 

1 

CA 

DUMPLOC 

AND  ECADR  OF  THIS  EBANK  INTO  A 

0376 

-REF- 

4 

LAST 

98  9 

05,3641 

1 36-2i 

TCF 

DNTM EXIT 

SEND  DUMPLOC  AND  TIMEl 

0377 

REF 

1 

05, 3642 

03644 

1 

LDNDUMP 

AORES 

DNDUMP 

0378  REE-  1 05+^643—  0365  7 0 LDNDUMP1  AORES  DNDUMP1 


0379 

REF 

63 

LAST 

917 

05, 3644 

3 4752 

0 

DNDUMP 

CA 

TWO 

INCREMENT  ECADR  IN  DUMPLOC 

03  ft  0 

R FF 

3 

I ART 

99  1 

05, 3645 

2 6 33  6 

0- 

ADS 

DUMPLOC 

TO  NEXT  DP  WORD  TO  BE 

0381 

REF 

8 

LAST 

989 

05, 3646 

7 4357 

0 

MASK 

LOW  8 

DUMPED  AND  SAVE  IT. 

0382 

REF 

3 13 

LAST 

98  9 

05,  3647 

10  000 

0 

CCS 

A 

IS  THIS  THE  BEGINNING  OF  A NEW  EBANK 

03H3 

REF 

1 

05,3  650 

1 3661 

1 

TCF 

DNDUMP2 

NO-  THEN  CONTINUE  DUMPING 

03  84 

REF 

4 

LAST 

99  1 

05,  3651 

3 0336 

1 

CA 

DUMPLOC 

YES-  IS  THIS  THE  END  OF  THE 

0385 

REF 

2 

LAST 

22  6 

05,3652 

7 0333 

0 

MASK 

DUMPCNT 

N THIN  = 1 TO  4)  COMPLETE  ERASABLE 

0386 

R P F 

I 

05,3653 

7 7721 

0 

MASK 

PR  1 0 34 

DUMP ( 8 I T 14  FOR  4,  BIT13  FOR  2 OR  BIT12 

0387 

REF 

314 

LAST 

99  1 

05,  3654 

10  000 

0 

CCS 

A 

FOR  1 COMPLETE  ERAS ABL  F DUMP(S)). 

0388 

REF 

2 

LAST 

237 

05, 3655 

1 3437 

0 

TCF 

DNPH ASE1 

YES-  START  SENDING  INTERRUPTED  DOWNLIST 

A 03ft9 

AGAIN 

0390 

REF 

2 

LAST 

303 

05,3656 

1 3633 

0 

TCF 

DNDUMPI  +2 

NO-  GO  BACK  AND  INITIALIZE  NEXT  BANK 

03Q  1 

RFF 

1 

n s t 3 6 5 7 

T T64? 

1 

DNDUMPI 

CA 

L DNDUMP 

SET  DNTMGOTO 

0392 

REF 

7 

LAST 

99  1 

05, 3660 

54  335 

0 

TS 

DNTMGOTO 

FOR  WORDS  3 TO  256D  OF  CURRENT  EBANK 

039  3 

REF 

5 

1 AST 

99  1 

0 3661 

3 03  36 

1 

DNOIJM  P? 

CA 

DUMPLOC 

0394 

REF 

44 

LAST 

989 

05, 3662 

54  003 

0 

TS 

EBANK 

SET  EBANK 

0395 

REF 

9 

LAST 

991 

05, 3663 

7 4357 

0 

MASK 

LOW  8 

ISOLATE  RELATIVE  ADDRESS. 

0396 

RFF 

229 

LAST 

988 

05, 3664 

54  002 

1 

TS 

a 

(NOTE:  MASK  INSTRUCTION  IS  USED  TO  PICK 

0397 

REF 

27 

LAST 

927 

05, 3665 

3 4754 

0 

CA 

NEGO 

UP  ERASABLE  REGISTERS  SO  THAT  EDITING 

0398 

REF 

162 

LAST 

99  1 

05, 3666 

54  001 

l 

TS 

L 

REGISTERS  20-23  WILL  NOT  BE  ALTERED. I 

0399 

REF 

230  - 

LAST 

991 

05,3667 

-5  0 002 

0 - 

INDEX 

a 

0400 

E3, 1400 

EBANK= 

1400 

PICK  UP  LOW  ORDER  REGISTER  OF  PAIR 

0401 

05,  3670 

7 1401 

1 

MASK 

1431 

OF  ERASABLE  REGISTERS. 

0402 

REF 

163 

LAST 

991 

05,3671 

56  001 

0 

XCH 

L 

0403 

REF 

231 

LAST 

991 

05, 3672 

50  002 

0 

INDEX 

0 

PICK  UP  HIGH  ORDER  REGISTER  OF  PAIR 

0404 

0 5,  3673 

7 1400 

0 

MASK 

1 400 

OF  ERASABLE  REGISTERS. 

0405 

REF  - 

22 

LAST 

989 

0340 

EB ANK= 

DNTM  BUFF 

0406 

REF 

5 

LAST 

99  1 

05, 3674 

1 3623 

1 

TCF 

DNTM  EXIT 

GO  SEND  THEM 

0407 

0408 

0409 

REF  8 

Rt  F 1 

LAST 

991 

05,  3675 

05.3676 

05 .3677 

0 0006 
22  335 
3_  5011 

1 SENDID 
1 

A 

EXTEND 

QXCH 

CAF 

DNTMGOTO 
ERAS  ID 

**FNTRANCE  USED  BY  ERASABLE  DUMP  PROG.** 
SET  DNTMGOTO  SO  NEXT  TIME  PROG  WILL  GO 
TO  LOCATION  FOLLOWING  : TC  SENDID: 

0410 

REF  164 

LAST 

99  l 

05,3700 

54  001 

1 

TS 

L 

**ENTRANCE  USED  BY  REGULAR  DOWNLINK  PG** 
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041 1 

REF 

2 

LAST 

98  7 

05,3701 

0 3527 

1 

TC 

WOZERC 

GO  SET  WORO  ORDER 

CODE  TO 

ZERO 

0412 

REF 

1 

05,3702 

3 2065 

0 

CAF 

LOW  I DCOD 

PLACE  SPECIAL  ID 

CODE  INTO 

L 

0413 

0414 

—REF 

REF 

165 

6 

LAST 

q q i 

OS* 3703 

56  0 Cl 

0 

XCH 

L 

AND  ID  BACK  INTO 

A 

LAST 

99  1 

05^3704 

1 3623 

1 

TC  F 

DNTMFXIT 

SEND  DOWNL 1ST  ID 

CODE! S ) . 

99? 
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R0001  the  FOLLOWING  ROUTINE  CAN  BE  USED  TO  CALL  A SUBROUTINE  IN  ANOTHER  BANK.  IN  THE  BANKCALL  VERSION,  THE 

R 0003  CADR  OF  THE  SUBROUTINE  IMMEDIATELY  FOLLOWS  THE  TC  BANKCALL  INSTRUCTION,  WITH  CIA)  AND  CIL)  PRESERVED. 


0005 

4616 

BLOCK 

02 

00055 

REF  1 

COUNT  * 

$$/ B ANK 

REF  7 

| ART 

87  9 

4616 

52  134 

0 

BANKCALL 

DXCH 

BUF2 

SAVE  INCOMING  A , L . 

0007 

REF  232 

LAST 

99  1 

4617 

50  002 

0 

INDEX 

Q 

PICK  UP  CADR. 

0008 

4620 

3 0000 

1 

CA 

0 

QOOQ 

R F F 7 13 

1 ART 

QQ  ? 

462  1 

24  002 

0 

I NCR 

Q 

SO  WE  RETURN  TO  THE  LOC.  AFTER  THF  CADR. 

R0010 

SWCALL  IS 

IDENT ICAL 

TO  BANKCALL 

, EXCEPT 

THAT  THE  CADR  ARRIVES 

IN  A. 

0012 

REF  166 

LAST 

992 

4622 

54  001 

1 

SWCALL 

TS 

L 

0013 

REF  3 

LAST 

477 

4623 

22  004 

0 

LXCH 

FRANK 

SWITCH  BANKS,  SAVING  RETURN. 

0014 

REF  8 

LAST 

75  8 

4624 

7 5012 

0 

MASK 

L0W10 

GET  SUB-ADDRESS  OF  CADR. 

0015 

REF  234 

LAST 

99  3 

4625 

56  002 

0 

XCH 

0 

A , L NOW  CONTAINS  DP  RETURN. 

0016 

REF  8 

LAST 

993 

4626 

52  134 

0 

DXCH 

BUF2 

RESTORING  INPUTS  IF  THIS  IS  A BANKCALL. 

0017 

REF  735 

LAST 

99  3 

4627 

50  002 

0 

INDEX 

Q .. 

0018 

4630 

0 2000 

0 

TC 

10000 

SETTING  0 TO  SWRETURN. 

on  i o 

R FF  9 

\ AST 

90  3 

463  1 

56  134 

1 

SWRETURN 

XCH 

BUF2  + 1 

COMES  HERE  TO  RETURN  TO  CALLER.  CIA.L) 

0020 

REF  4 

LAST 

993 

4632 

56  004 

0 

XCH 

F BANK 

ARE  PRESERVED  FOR  RETURN. 

0021 

REF  10 

LAST 

99  3 

4633 

56  134 

1 

XCH 

9 UF  2 +1 

0022 

REF  11 

LAST 

993 

4634 

0—04.33 

4) 

TC 

8UF2 

R007  3 

THF 

fhi  i nwrwr. 

RDIITTMF  HAM  RF 

1J S F n AS  A 

i J M T 1 AT  FR  A 1 

J UMP 

WITH  C ( A , L ) PRESERVED  AMD  THE  CADR  IMMEDIATELY 

R0025 

FOLLOWING  THE 

TC  POSTJUMP  INSTRUCTION. 

— 0076 

RFF 

5 36 

1 AST 

99  3 

4635 

56  007  0 

POST  JUMP 

XCH 

Q 

SAVF  INCOMING  C(A). 

0027 

REF 

315 

LAST 

99  1 

4636 

50  000  1 

INDEX 

A 

GET  CADR. 

0028 

4637 

3 0000  1 

CA 

0 

R 0029 

BANK JUMP  IS  THE  SAME 

AS  POSTJUMP,  EXCEPT  THAT 

THE 

CADR 

ARRIVES  IN  A. 

00  31 

— REF 

5 

LAST 

99  3 

4640 

54  004  1 

RANK J UMP 

TS 

FRANK 

0032 

REF 

9 

LAST 

993 

4641 

7 5012  0 

MASK 

LOWl  0 

0033 

REF 

237 

LAST 

993 

4642 

56  002  0 

XCH 

Q 

RESTORING  INPUT  CIA)  IF  THIS  WAS  A 

0034 

REF 

738 

LAST 

99  3 

4643 

50  002  0 

0+10000 

INDEX 

Q 

POSTJUMP. 

0035 

4644 

1 2000  1 

PR  1 01 2 

TCF 

10000 

PR  I 0 I 2 = TCF  10000  = 12000 

10000 


12000 
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P0036  THE  FOLLOWING  ROUTINE  GETS  THE  RETURN  CADR  SAVEO  BY  SWCALL  OR  BANKCALL  ANO  LEAVES  IT  IN  A. 


0038 

0039 

RLF 

REF 

10 

12 

LAST 

LAST 

99  3 
99  3 

4645 
4 646 

3 

7 

5012 

0133 

1 

1 

MAKECAOR  CAF 
MASK 

LOW  10 
BUF2 

0040 

REF 

13 

LAST 

994 

4 64  7 

6 

0134 

1 

AD 

BUF2  +1 

0041  REF  239 — LAST — 953 4-650  0 0002  -0 TC  _Q 


DPP 

5 

L jA  s T 

8 ft  6 

4AS  1 

54  1 35 

1 

SUPDACAL  TS 

mpte mp 

0047 

REF 

6 

LAST 

99  3 

4652 

56  004 

0 

XCH 

FBANK 

SET  FBANK  FOR  DATA. 

00475 

4653 

0 0006 

1 

EXTEND 

004ft 

R £ F 

1 1 

L AST 

566 

04  007 

1 

ROR 

SUPE  PBNK 

SAVE  FBANK  IN  BITS  15-11,  AND 

00485 

REF 

6 

LAST 

994 

4655 

56  135 

0 

XCH 

MPTE  MP 

SUPERBANK  IN  BITS  7-5. 

0049 

REF 

11 

LAST 

994 

4656 

7 5012 

0 

MASK 

L0K1  0 

00495 

REF 

167 

LAST 

99  3 

4657 

56  001 

0 

XCH 

L 

SAVE  REL.  ADR.  IN  BANK,  FFTCH  SUPERBITS. 

0050 

4660 

0 0004 

0 

INHINT 

BECAUSE  RUPT  DOFS  NOT  SAVE  SUPEPBANK. 

00505 

4661 

0 0006 

1 

EXTEND 

0051 

REF 

12 

LAST 

994 

4662 

01  007 

1 

WRITE 

SUPERBNK 

SET  SUPEPBANK  FOR  DATA. 

0052 

REF 

168 

LAST 

994 

4663 

50  001 

0 

INDEX 

L 

00525 

4664 

3 2000 

0 

CA 

10000 

PINBALL  (FIX  MEM  DISP)  PRFVENTS  DCA  HERE 

0053 

REF 

7 

LAST 

994 

4665 

56  135 

0 

XCH 

MPTEMP 

SAVE  1ST  WD,  FETCH  01 D FBANK  AND  SBANK. 

00534 

4 666 

0 0006 

1 

EXTEND 

00535 

REF 

13 

LAST 

99  4 

4667 

01  007 

1 

WR  ITF 

SUPERBNK 

RESTORE  SU°ERBANK. 

00^4 

4670 

0 00  0 3 

1 

RF  L I NT 

00545 

REF 

7 

LAST 

994 

4671 

54  004 

1 

TS 

FBANK 

RESTORE  FBANK. 

0055 

REF 

8 

LAST 

994 

4672 

3 0135 

0 

CA 

MPTF  MP 

RECOVER  FIRST  WORD  OF  DATA. 

00555 

4673 

0 0002 

0 

RETURN 

24  WDS . DATACALL  516  MU,  SUPDACAL  432  MU 
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GAP  : 

L 

P0056 

0058 

0059 

0060 
0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

R 0090 

A0092 

A0093 

A0094 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 


INTER-BANK  COMMUNICATION  USER'S  PAGE  NO.  3 EO  S3 

THE  FOLLOWING  ROUTINES  ARE  IDENTICAL  TO  BANKCALL  AND  SWCALL  EXCEPT  THAT  THEY  ARE  USEO  IN  INTERRUPT. 


REF 

REF 

— 7- 

240 

LAST 

LAST 

90  6 
994 

4 674 
4675 

52  073 
5 0 0 02 

-4 — 

0 

I BNKCALL 

DXCH 

INDEX 

RUPTREG3 

0 

USES  RUPT REG 3 ,4  FOR  DP  RETURN  ADORES: 

4676 

3 0000 

1 

CAF 

0 

REF 

241 

LAST 

QQ  5 

4677 

24  002 

.0 

I NCR 

0 

REF 

169 

LAST 

994 

4700 

54  001 

1 

I SWCALL 

TS 

L 

REF 

8 

LAST 

994 

4 701 

22  004 

_Q 

LXCH 

F BANK 

REF 

12 

LAST 

994 

4702 

7 5012 

0 

MASK 

LOW  10 

REF 

242 

LAST 

995 

4703 

56  002 

0 

XCH 

0 

REF 

8 

last 

99  5 

4 704 

5 2 0 73 

_1 

DXCH 

RUPTPEG3 

REF 

243 

LAST 

99  5 

4705 

50  002 

0 

INDEX 

Q 

4706 

0 2000 

0 

TC 

10000 

REF 

3 

LAST 

1 1 1 

4707 

56  073 

0 

I SWRETRN 

XCH 

PUPTRFG4 

REF 

9 

LAST 

995 

4710 

56  004 

0 

XCH 

FBANK 

REF 

4 

LAST 

99  5 

4 711 

56  073 

0-  - 

_XCH 

RUPTREG4 

REF 

9 

LAST 

995 

4712 

0 0072 

1 

TC 

RUPTREG3 

2-t 1 

i QDDf  An p Arrp<;<;F<; 

T MTP  RPRFTT  \/F  mniNf 

. TN  flTHFR  THAN! 

THE  USER'S 

FBANK.  THE  CALLING  SEQUENCE  IS  AS  FOLLOWS: 

L 

TC 

USPRCADR 

L + l 

CADR 

I NT P PET X 

INTPRETX  IS  THE  INTERPRETIVE  CODING 

RETURN  IS  TO  L + 2 

REF 

— §_ 

LAST 

471 

4713 

54  164 

-0  — 

USPRCADR 

TS 

LOC 

SAVE  A 

REF 

34 

LAST 

953 

4714 

3 4744 

1 

CA 

BITE 

REF 

7 

LAST 

466 

4715 

54  023 

1 

TS 

E DO  P 

EXIT  INSTRUCTION  TO  EDOP 

REF 

21 

LAST 

81-6 

4 7 16 

3 0006 

_1 

CA 

BBANK 

REF 

1 

4717 

54  165 

1 

TS 

BANK  SET 

USER'S  BBANK  TO  BANKSET 

REF 

244 

LAST 

99  5 

4720 

50  002 

0 

INDEX 

0 

4721 

3 0000 

-X  — 

CA 

0 

REF 

10 

LAST 

99  5 

4722 

54  004 

1 

TS 

FBANK 

INTERPRETIVE  BANK  TO  FBANK 

REF 

13 

LAST 

995 

4723 

7 5012 

0 

MASK 

LOW  10 

YIELDS  INTERPRETIVE  RELATIVE  ADDRESS 

REF- 

245 

LAST 

995  — 

4 724 

56  002 

_0 

XCH 

Q 

I NTERPRFT I VE  ADDRESS  TO  Q,  FETCHING 

REF 

6 

LAST 

995 

4725 

56  164 

1 

XCH 

LOC 

L+l  TO  LOC,  RETRIEVING  ORIGINAL  A 

REF 

1 

4726 

1 4643 

0 

TC  F 

Q+10000 
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R0138 
RO 142 
R0144 


INTER-BANK  COMMUNICATION 


USER'S  PAGE  NO. 


EO  S3 


P01 17 

THERE  ARE 

FOUR 

POSSIBLE 

SETTINGS 

FOR  CHANNEL  07. 

(CHANNEL 

07  CONTAINS  THE 

SUPERBANK  SETTING.) 

R0119 

PSEUDO- 

FIXED 

OCTAL  PSEUDO 

5_R  F(%  _ 

VAI  OF 

A DDP.FSS  ES 

R0I21 



2000  — 

3777 

-_g£-  = 

37 

70000  - 1 07777 

(WHERE  XX  CAN  BE  ANYTHING  AND 

R 0 124 

WILL  USUALLY  BE  SEEN  AS  11) 

RO  126 

SUPERBANK 

4 

1 00 

2000  - 

3777 

40  - 

47 

1 10000  - 127777 

(AS  FAR  AS  IT  CAN  BE  SEEN, 

ONLY  BANKS  40-43  WILL  FVER  BF 

R0130 

AND  ARE  PRESENTLY  AVAILABLE) 

RO  1 32 

SUPERBANK 

5 

101 

2000  - 

3777 

50  - 

57 

130000  - 147777 

(PRESENTLY  NOT  AVAILABLE  TO 

Q 0 1 34 

THE  USER) 

R0136 

SUPERBANK 

6 

1 10 

2000  - 

3777 

60  - 

67 

150000  - 167777 

(PRESENTLY  NOT  AVAILABLE  TO 

THE  USER) 

***  THIS  ROUTINE  MAYBE  CALLED  BY  ANY  PROGRAM  LOCATED  IN  BANKS  00  - 27.  I.E.,  NO  PROGRAM  LIVING  IN  ANY 

SUPERBANK  SHOULD  USE  SUPERSW.  *** 


R0145  SUPERSW  MAYBE  CALLED  IN  THIS  FASHION: 


R0146  CAE  ABBCON  WHERE  — ABBCON  BBCON  SOMETHIN  — 

R0147  — TCR  SUPERSW  (THE  SUPERBNK  BITS  ARE  IN  THE  BBCON) 

R0148  ...  ... 


R 01  49 
R0150 


R0151  OR  IN  THIS  FASHION  : 

WHERE  SUPERSET  IS  ONE  OF  THE  FOUR  AVAILABLE 
SUPERBANK  BIT  CONSTANTS: 

SUPER011  OCTAL  60 
S UP F R 1 00  OCTAL  100 
SUPER101  OCTAL  120 
SUPER110  OCTAL  140 


R0152 

R0154 

R0155 

R0157 

R0159 

R0I61 


CAF 

TCR 


SUPERSET 

SUPERSW 


0163 
— 0164 

— REF 

—1-4- 

L AST 

9-9-4- 

4727 
4 730 

0 0006 
01  007 

1 

1 

SUPERSW  EXTEND 
WRITE 

SUPERBNK 

WRITE  BITS  7-6-5  OF  THE  ACCUMULATOR 

A 01  6 5 
0166 

REF 

246 

LAST 

995 

4731 

0 0002 

0 

TC 

Q 

CHANNEL  07 

TC  TO  INSTRUCTION  FOLLOWING 

A0167  TC  SUPERSW 
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R0001  SECTION  1 DISPATCHER 


R0002 
R0004 
R 0006 
R 0008 
R0010 


ENTRY  TO  THE  INTERPRETER.  INTPRET  SETS  LOC  TO  THE  FIRST  INSTRUCTION,  BANKSET  TO  THE  B BANK  OF  THE 
OBJECT  INTERPRETIVE  PROGRAM,  AND  INTSIT15  TO  THE  BIT15  CONTENTS  OF  FBANK.  INTERPRETIVE  PROGRAMS  MAY  BE  IN 
VIRTUALLY  ALL  BANKS  PRESENT  UNDER  ANY  SUPER-BANK  SETTING,  WITH  THE  RESTRICTION  THAT  PROGRAMS  IN  HIGH  BANKS 
(BIT15  OF  FBANK  = I)  DO  NOT  REFER  TO  LOWBANKS,  AND  VICE-VERSA.  THE  INTERPRETER  DOES  NOT  SWITCH  SUPERBANKS. 
E-BANK  SWITCHING  OCCURS  WHENEVER  GENERAL  ERASABLE  (100  - 3777)  IS  ADDRESSED. 


0012 

6036 

BLOCK 

03 

R EF 

l 

COUNT* 

$}/ INTER 

00135 

6036 

0 0003 

1 

INTPRET 

RFLINT 

0014 

6 037 

0 0006 

1 

EXTEND 

SET  LOC  TO  THE  WORD  FOLLOWING  THE  TC . 

no  i s 

REF 

7 

1 AST 

90  5 

6040 

22  164 

1 

QXCH 

LOC 

0016 

REF 

22 

LAST 

99  5 

6041 

3 0006 

1 

+2 

CA 

BBANK 

INTERPRETIVE  BRANCHES  FINISH  HERE. 

0017 

REF 

2 

LAST 

99  5 

6 042 

54  165 

A 

TS 

BANK  SET 

0018 

REF 

38 

LAST 

956 

6043 

7 4735 

0 

MASK 

B I T 1 5 

GET  l 5TH  BIT  FOR  INDEXABLE  ADDRESSES 

0019 

REF 

5 

LAST 

1 1 2 

6 044 

54  L 1 5 

0 

TS 

I NT B I T 1 5 

0020 

REF 

8 

LAST 

995 

6045 

54  023 

1 

TS 

E DC  P 

MAKE  SURE  NO  INSTRUCTIONS  LEFT  OVER 

0021 

REF 

1 A0A7 

l 

TCF 

N E W-0  PS 

PICK  UP  OP  CODE  PAIR  ANO  BEGIN. 

00  2? 

REF 

23 

1 AST 

99  7 

6047 

2 2 006 

1 

I NTRSM 

L XCH 

BBANK 

RESUME  SUSPENDED  INTERPRETIVE  JOB 

0023 

REF 

215 

LAST 

977 

6050 

1 6041 

0 

TCF 

INTPRET  +3 

R0024 

DLOAD 

LOADS 

MPAC,  MP AC  +1,  1 

LEAVING  ZERO 

IN  MPAC 

+ 2. 

0025 

6051 

0 0006 

1 

DLOAD 

EXTEND 

0026 

REF 

4 

LAST 

920 

6052 

5 0116 

1 

INDEX 

ADDPWD 

0027 

6053 

3 0001 

0 

DC  A 

0 

LOAD  DP  C ( C ( ADDRWD ) ) INTO  MPAC,MPAX 

0028 

REF 

348 

LAST 

960 

6054 

52  155 

1 

SL0AD2 

DXCH 

MPAC 

0029 

REF 

180 

LAST 

99  1 

6055 

3 4755 

1 

CAF 

ZERO 

ZERO  MPAC  +2 

GAP 
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INTERPRETER 


POO  30 

AT  THE  END 

OF  MOST  INSTRUCTIONS,  CONTROL  IS  GIVEN  TO  DA 

54  164 

1 

TS 

MPAC  +2 

0032 

REF 

L A j 1 

0033 

REF 

13 

LAST 

837 

6057 

54  163 

1 

NEWMODE 

TS 

MODE 

0034 

REF 

3 

LAST 

99  7 

6060 

3 0165 

0 

DANZIG 

CA 

BANKSET 

0035 

REF 

24 

LAST 

997 

6 061 

54  006 

0 

TS 

BBANK 

0036 

REF 

9 

LAST 

99  7 

6062 

10  023 

1 

NOI BNKSW 

CCS 

EDOP 

0037 

REF 

1 

6063 

1 6076 

1 

TCF 

OPJUMP 

0039 

REF 

5 

LAST 

725 

6064 

10  067 

1 

CCS 

NEWJOB 

1 

6 046 

1 61  26 

o 

TCF 

CHANG 2 

0041 

REF 

8 

LAST 

99  7 

6066 

24  164 

1 

I NCR 

LOC 

T TD  AT  F 1 1 ) 

j n 

mp  wn.P  s *• . 

0043 

REF 

9 

LAST 

99  8 

6067 

50  164 

1 

NEWOPS 

INDEX 

LOC 

0044 

6070 

3 0000 

1 

CA 

0 

Q044 

R££ 

3 16 

1 AST 

99  3 

6071 

10  000 

0 

CCS 

A 

0046 

REF 

i 

6072 

1 6361 

1 

TCF 

DOSTORF 

6 073 

On  i 77 

o 

L nw  7 

nr  t 

1 77 

0048 

REF 

10 

LAST 

998 

6074 

54  023 

1 

TS 

EDOP 

or>4Q 

REF 

6 

1 AST 

46  6 

6075 

7 6073 

1 

MASK 

LOW  7 

0050 

REF 

13 

LAST 

473 

6076 

54  020 

1 

OPJUMP 

TS 

C YR 

00  6 1 

REF 

14 

L A^T 

qqfl 

6 077 

10  0 ?0 

1 

CCS 

C YR 

0052 

REF 

i 

6 100 

1 6246 

0 

TCF 

0PJUMP2 

0053 

REF 

— i— 

6101 

1 6742 

1 

TCF 

EXIT 

USER'S  PAGE  NO.  2 EO  S3 

TO  DISPATCH  THE  NEXT  OPERATION. 

AND  DECLARE  DP  MODE 

PROLOGUE  FOR  MODE-CHANGING  INSTRUCTIONS. 

SET  BBANK  BEFORE  TESTING  NEWJOS  SO  THAT 
IT  MAY  BE  SAVED  DIRECTLY  BY  CHANJOB. 


SEE  IF  AN  ORDER  CODE  IS  LEFT  OVER  FROM 
THE  LAST  PAIR  RETRIEVED.  IF  SO,  EXECUTE. 
EDOP  IS  SET  TO  ZERO  ON  ITS  RE-EDITING. 


SEE  IF  A JOB  OF  HIGHER  PRIORITY  IS 
PRESENT,  AND  JJE  SO^  CHANGE  JOBS. 

ADVANCE  THE  LOCATION  COUNTER. 

ENTRY  TO  BEGIN  BY  PICKING  OP  CODE  PAIR. 
MAY  BE  AN  OPCODE  PAIR  OR  A STORE  CODE. 
TEST  SIGN  AND  GET  DABS! A). 

PROCESS  STORE  CODE. 


OP  CODE  PAIR.  LEA VF  THE  OTHER  IN  EDOP 
WHERE  CCS  EDOP  WILL  HONOR  IT  NEXT. 

LOWWD  ENTERS  HERE  IF  A RIGHT-HAND  OP 
CODE  IS  TQ  BE  PROCESSED.  TEST  PREFICES, 
TEST  SECOND  PREFIX  BIT. 

+0  OP  CODE  IS  EXIT. 


GAP: 

L 

POO  54 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 
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INTERPRETER 


USER'S  PAGE  NO.  3 EO  S3 


PROCESS  ADDRESSES  WHICH  MAY 

BE 

o 

DIRECT, 
A OHR  F 

INDEXED 

MASK 

, OR  REFFRENCE 
B IT  1 

THE  PUSHDOWN  LIST. 

SEE  IF  ADDRFSS  IS  INDFXED. 

CYR 

CONTAINED 

REF 

REF 

3 17 

LAST 

998 

6 103 

10  000 

0 

CCS 

A 

400 XX , SO  BIT  1 IS  NOW  AS 

IT  WAS  IN  CYR. 

REF 

1 

6104 

1 6145 

0 

TCF 

INDEX 

FORM  INDEXED  ADDRESS. 

REF 

10 

LAST 

998 

6105 

50  164 

1 

DIRADRES 

INDEX 

LOC 

LOOK  AHEAD  TO  NEXT  WORD  TO 

SEE 

IF 

6106 

4 0001 

1 

OCT4000 1 

CS 

1 

ADDRESS  IS  GIVEN. 

REF 

3 18 

LAST 

99  9 

6 L07 

10  000 

0 

CCS 

A 

RFF 

i 

6110 

1 6214 

1 

TCF 

PUSHUP 

IF  NOT. 

6111  77773  1 NEG4  OEG  =4 — 


RFF 

11 

LAST 

999 

6 112 

24 

164 

1 

INCR 

LOC 

IF  SO,  TO  SHOW  WE  PICKED  UP  A WORD. 

REF 

--5- 

LAST 

997 

6 113 

54 

116 

0 

TS 

A DDR  WD 

GAP:  ASSEMBLE  REV  IS  ION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  20  244-1-2-011 
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P0066 

R0068 

R0070 


0072 

0073 

0074 

0075 

00  76 

0077 

0078 

0079 

0080 
0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 
009  2 

0093 

0094 


I NT  ER  P RET ER 


USER'S  PAGE  NO.  4 EO  S3 


FINAL  DIGESTION  OF  DIRECT  ADDRESSES  OF  OP  CODES  WITH  01  PREFIX  IS  DONE  HERE.  IN  EACH  CASE,  THE 
REQUIRED  12-BIT  SUB-ADDRESS  IS  LEFT  IN  AODRWD,  WITH  ANY  REQUIRED  E OR  F BANK  SWITCHING  DONE.  4DDRFSSES  LFSS 
THAN  45D  ARE  TAKEN  TO  BE  RELATIVE  TO  THF  WORK  AREA.  THE  OP  CODE  IS  NOW  IN  BITS  1-5  OF  CYR  WITH  BIT  14  = 1. 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


— 1— 

119 

1 

1 — 

34 

6 

LAST 

999 

0 It'*- 
6115 
6 116 
611 7 

0 

10  000 
6 7742 

1 6124 

-y 

0 

1 

1 

MU 

CCS 

AD 

tce 

— CIM  U V H v/ 

A 

-ENDERAS 
I ERASTST 

IF  NOT,  SEE  IF  IN  GENERAL 

ERASABLE. 

LAST 

LAST 

959 
99  9 

6120 
6 1 2-1 

3 0120 
26  116 

1 

0 

NETZERO 

CA 

ADS 

F IXLOC 
ADDRWD 

IF  SO,  LEAVE  THF  MODIFIED 
ADDRWD  AND  DISPATCH. 

ADDRESS  IN 

15 

LAST 

998 

6122 

50  020 

0 

ITR15 

INDEX 

CYR 

THIS  INDEX  MAKES  THE  NEXT 

INSTRUCTION 

6123  7 6272  1 


INDJUMP  -1 


TCF  INDJUMP  + OP,  EDITING  CYR. 


REF 

1 

6124 

6125 

0 0006 
6 6135 

1 

0 

IERASTST 

EXTEND 

BZMF 

GEADDR 

GO  PROCESS  GENERAL-ERASABLE 

ADDRESS. 

REF 

14 

LAST 

995 

6126 

7 5012 

0 

MASK 

LOU  0 

FIXED  BANK  ADDRESS.  RESTORE 

AND  ADD  B 15 . 

REF 

15 

LAST 

1000 

6127 

6 5012 

1 

AD 

LOW  10 

SWITCH  BANKS  AND  LEAVE  SUBADDRESS  IN 

ref 

7 

l AST 

1000 

6 130 

56  116 

I 

XCH 

ADDRWD 

ADDRWD  FOR  OPERAND  RETRIEVAL 

. (THIS 

REF 

6 

LAST 

997 

6 131 

6 0115 

1 

AD 

INTB  ITI5 

METHOD  PRECLUDES  USE  OF  THE 

LAST 

REF 

11 

LAST 

99  5 

6132 

54  004 

1 

TS 

FBANK 

LOCATION  IN  EACH  FBANK.) 

REF 

\ h 

LAST 

100  0 

6 133 

50  020 

o 

ITR12 

INDEX 

CYR 

REF 

2 

LAST 

1000 

6134 

7 6272 

1 

7 

INDJUMP  -l 

LAST 

6 1 3 S 

7 43  5 7 

o 

a one? 

mask 

L OW  ft 

REF 

3 

LAST 

473 

6136 

6 5007 

0 

ad’ 

OCTl 400 

REF 

8 

LAST 

1000 

6 137 

56  1 16 

1 

XCH 

A DDR  WD 

REF 

45 

LAS  T 

qq  1 

6140 

54  0 03 

o 

TS 

FBANK 

REF 

17 

LAST 

100  0 

6 141 

50  020 

0 

ITR10 

INDEX 

C YP 

REF 

3 

LAST 

1000 

6142 

7 6272 

1 

7 

INDJUMP  -1 

-GAP  : 

L 

P0095 

R0097 

R 0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

01 18 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126- 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 
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INTERPRETER 


USER'S  0 AGE  NO. 


FO  S3 


THE  FOLLOWING  ROUTINE  PROCESSES  INTERPRETIVE  INDEXEC  ADDRESSES.  AN  INTERPRETER  INDEX  REGISTER  MAY 
CONTAIN  THE  ADDRESS  OF  ANY  ERASABLE  REGISTER  (0-42  BEING  RELATIVE  TO  THE  VAC  AREA)  OR  ANY  INTERPRETIVE  PROGRAM 
BANK,  OR  ANY  INTEGER  IN  THAT  RANGE. 


REF 

1 

6143 

3 7732 

0 

DODLOAD* 

CAF 

DLOAD* 

STOOL#  COMES  HERE  TO  PROCESS  LOAD  ADR. 

REF 

1 8 

LAST 

ion  o 

6 ] 44 

54  020 

l 

TS 

CYR 

( STOVL#  ENTERS  HERE) . 

REF 

35 

LAST 

1000 

6 145 

3 0120 

1 

I ND  E X 

CA 

F I X L OC 

SET  UP  INDEX  LOCATION. 

R FF 

1 

6146 

54  130 

1 

TS 

I NDE  XLOC 

REF 

12 

LAST 

999 

6147 

24  164 

1 

INCR 

LOC 

(ADDRESS  ALWAYS  GIVEN). 

REF 

13 

LAST 

100  1 

6 150 

50  164 

1 

INDEX 

LOC 

6 151 

4 0000 

0 

CS 

0 

REF 

320 

LAST 

1000 

6152 

10  000 

0 

CCS 

A 

INDEX  2 IF  ADDRESS  STORED  COMPLEMENTED. 

REF 

2 

LAST 

100  1 

6153 

24  130 

0 

INCR 

I NDE  XLOC 

6154 

16  155 

1 

NOOP 

REF 

9 

LAST 

1000 

6 155 

54  1 16 

0 

TS 

ADDPWD 

14  BIT  ADDRESS  TO  ADDRWD. 

R FF 

1 

615  6 

7 7741 

0 

MASK 

H IGH4 

IF  ADDRESS  GREATER  THAN  2K,  ADD  INTBIT15 

6157 

0 0006 

1 

EXTEND 

REF 

1 

6 160 

1 6163 

1 

BZF 

INDEX2 

REF 

7 

L AST 

10  0 0 

6 16  1 

3 0115 

1 

CA 

INTBJT15 

REF 

10 

LAST 

100  1 

6162 

26  116 

0 

ADS 

ADDRWD 

Rf  F 

3 

1 AST 

1 OO  1 

6 163 

50  1 30 

o 

TN0EX2 

INDEX 

I NDF  XLOC 

REF 

22 

LAST 

95  9 

6 164 

4 0046 

1 

CS 

X 1 

REF 

11 

LAST 

100  1 

6165 

26  116 

0 

ADS 

ADDRWD 

DO  AUGMENT,  IGNORING  AND  CORRECTING  OVF. 

REF 

8 

LAST 

959 

6166 

7 7743 

1 

MASK 

HIGH9 

SEE  IF  ADDRESS  IS  IN  WORK  AREA. 

6 167 

0 0006 

1 

EXTEND 

REF 

1 

6170 

1 6203 

1 

BZF 

I NDWCRK 

REF 

2 

LAST 

100  l 

6171 

7 7741 

0 

MASK 

HIGH4 

SEE  IF  IN  FIXED  BANK. 

6 172 

0 0006 

1 

EXTEND 

REF 

1 

6173 

1 62  05 

1 

BZF 

I NDE  RASE 

REF 

12 

LAST 

100  1 

6 174 

3 0116 

1 

CA 

A DDR  WD 

IN  FIXED  - SWITCH  BANKS  AND  CREATE 

REF 

12 

LAST 

100  0 

6 175 

54  004 

1 

TS 

FBAN  K 

SUB-ADDRESS. 

REF 

16 

LAST 

1000 

6176 

7 5012 

0 

MASK 

LOW  1 0 

REF 

1 

6177 

6 4741 

1 

AD 

2 K 

REF 

13 

LAST 

100  1 

6200 

54  116 

0 

TS 

A DDR  WD 

REF 

19 

LAST 

100  1 

6201 

50  020 

0 

ITRll 

INDEX 

CYR 

RFF 

4 

LAST 

1000 

6202 

3 6272 

0 

3 

INDJUMP  -1 

REF 

36 

LAST 

100  1 

6203 

3 0120 

1 

INDWORK 

CA 

F I X L PC 

MAKE  ADDRWD  RELATIVE  TO  WORK  AREA. 

REF 

1 

6204 

1 62  11 

1 

TCF 

I TR1 3 -1 

REF 

4 

LAST 

1000 

6205 

3 5007 

0 

INDERASE 

CA 

OCT  1 400 

REF 

14 

LAST 

100  1 

6206 

56  116 

1 

XCH 

A DDR  WD 

-R-EE 

4 6 

LAST 

100  0 

6 207 

54  003 

0 

TS 

ERANK 

REF 

ii 

LAST 

1000 

6210 

7 4357 

0 

MASK 

LOW  8 

REF 

15 

LAST 

100  1 

6211 

26  116 

0 

-1 

ADS 

A DDR  WD 
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L 

0139 

01^0 


INTERPRETER 


USER’S  PAGE  NO.  6 EO  S3 


REF  20  LAST  1001  6212  50  020  0 ITR13  INDEX  CYP 

REF  5 LAST  1001  6213  3 6272  0 3 INDJUMP  -1 


GAP 
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INTERPRETER 


USER*  S PAGE  NO. 


EO  S3 


P0141 
R0143 
o m ar 

PUSH-UP  ROUTINES.  WHEN  NO  OPERAND  ADDRESS  IS  GIVEN,  THF  APPROPRIATE  OPERAND  IS  TAKEN  FROM  THE  PUSH-DOWN 
LIST.  IN  MOST  CASES  THE  MODE  OF  THE  RESULT  (VECTOR  OR  SCALAR)  OF  THE  LAST  ARITHMETIC  OPERATION  PERFORMED 
1C  TUP  CiMP  A K THF  TYPF  OF  OP  FR  AND  DFSIRED  (ALL  ADD/SUBTRACT  ETC.).  EXCEPTIONS  TO  THIS  GENERAL  RULE  ARE  LISTED 

KUl  HD 

R0147 

BELOW  (NOTE  THAT  IN 

EVERY  CASE  THE  MODE 

REGISTER 

IS  LEFT  INTACT) : 

V/Ycr  AMn  \//Qf  UANT  TNP 

nppn<;rTF  typf  df  fipframd.  F.G.. 

IF 

THE  LAST  OPERATION  YIELDED  A VECTOR 

R 0 1 48- 
R0150 

RESULT, 

vx  sc 

WANTS 

A SCALAR. 

oni  ci 

9 

tup  idad  rnnp<;  SHniu  n i had 

THF  AT  r 1 1MI 1 1 ATDR 

I NDEPENDENT 

OF 

THE  RESULT  OF  THF  LAST  OPERATION.  THIS 

KUl  i 

R0153 

INCLUDES 

VLOAD,  D LOAD , TLOAD, 

PDDL  , 

AND 

PDVL  < NO 

PUSHUP 

WITH  SLOAD) 

RO 1 54 

9 

ARITHMFTir 

HP  FRAT  I DNK 

RFQ11  FRF 

A K T AN  DAR  n TYPF  OF 

OPERAND  REGARni  FSS  OF  THF  PREVIOUS  OPFRAT I ON. 

R0156 

THIS  INCLUDES 

SIGN 

WANTING  DP 

AND  TAD  REQUIRING 

TP. 

0 1 5 7 

REF 

? 

LAST 

-7-5  5 

6 214 

3 43  60 

— 0- 

PUSHUP 

CAF 

0CT2  3 

IF  THE  LOW  5 BITS  OF  CYR  ARE  LESS  THAN 

0158 

REF 

21 

LAST 

100  2 

6215 

7 0020 

1 

MASK 

C YR 

20,  THIS  OP  REQUIRES  SPECIAL  ATTENTION. 

0159 

REF 

1 

6216 

6 6221 

0 

AD 

-OCT  10 

(NO  -0 ) . 

0 160 

REE 

321 

LAST 

100  1 

6217 

10  000 

0. 

CCS 

A 

0161 

REF 

1 

6220 

1 6232 

0 

TCP 

REGUP 

FOR  ALL  CODES  GREATFR  THAN  OCT  7. 

0162 

6 221 

77767 

1 

-OC  T10 

OCT 

- 10 

0163 

REF 

1 

6222 

6 6111 

0 

AD 

NEG4 

WE  NOW  HAVE  7 - OP  C0DE(M0D4).  SEE  IF 

0164-  - 

REF 

3 22 

LAST 

100  3 

6223 

l 0 000 

Q 

CCS 

A 

THE  Op  COnE  (M0D4)  IS  THREE  (REVFPSE). 

0165 

REF 

323 

LAST 

100  3 

6224 

50  000 

1 

INDEX 

A 

MO  - THE  MnDE  IS  DEFINITE.  PICK  UP  THE 

0166 

REF 

1 

6225 

4 6243 

0 

CS 

NO. WDS 

0167 

REF 

_ -2 

L AST 

100  3 

6226 

1 6234 

o 

TCF 

REGUP  +2 

0168 

REF 

14 

LAST 

998 

6227 

50  163 

0 

INDEX 

MODE 

FOR  VXSC  AND  V/ SC  WE  WANT  THE  REQUIRED 

0169 

REF 

4- 

LAST 

95  9 

6230— 

4 6241 

1 

CS 

REVCNT 

PUSHLOC  DECREMENT  WITHOUT  CHANGING  THE 

0170 

REF 

3 

LAST 

1003 

6231 

1 62  34 

0 

TCF 

REGUP  +2 

(ODE  AT  THIS  TIME. 

0171 

REF 

— 1-5 — 

LAST 

100  3 

— 6-232 

50  1 63 

_Q 

REGUP 

INDEX 

MOD  F 

MOST  ALL  OP  COOES  PUSHUP  HERE.— 

0172 

REF 

2 

LAST 

1003 

6233 

4 6243 

0 

CS 

MO. WDS 

0173 

REF 

10 

LAST 

887 

6234 

26  166 

1 

+2 

ADS 

PUSHLOC 

0174 

REF 

16 

LAST 

100 1 

6235 

54  116 

0 

TS 

ADDP WD 

0175 

REF 

22 

LAST 

10  0 3 

6236 

50  020 

0 

ITR14 

INDEX 

C YP 

0176 

REF 

6 

LAST 

1002 

6237 

7 6272 

1 

7 

INDJUMP  -1 

(THE  INDEX  MAKES  THIS  A TCF.) 

0177 

6240 

00002 

0 

OCT 

2 

REVERSE  PUSHUP  DECREMENT.  VECTOR  TAKES  2 

0178 

6241 

00006 

1 

REVCNT 

OCT 

6 

WORDS,  SCALAR  TAKES  6. 

0179 — 

6242 

00006 

-i 

OCT 

6 

0180 

6243 

00002 

0 

NO. WDS 

OCT 

2 

CONVENTIONAL  DECREMENT  IS  6 WORDS  VECTOR 

0181 

6 244 

00003 

1 

0CTAL3 

OCT 

3 

2 IN  DP,  AND  3 IN  TP. 

0182 

6245 

00006 

1 

OCT 

6 
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P0183  TEST  THE  SECCNO  PREFIX  BIT  TC  SEE  IF  THIS  IS  A MISCELLANEOUS  OR  A UNARY/SHORT  SHIFT  OPERATION. 


0185 
01  86 

REE 

REF 

23  LAST  1003  6246 

1 6247 

10  020 
1 6262 

-1 

0 

0PJUMP2  CCS 
TC  F 

C YR 

0PJUMP3 

TEST 

TEST 

SECOND  PREFIX  BIT. 

THIRD  BIT  TO  SEE  IF  UNARY  OR  SHIFT. 

0187 

6250 

77722 

0 

-ENDVAC  DEC 

- /f  5 

R0188  THE  FOLLOWING  ROUTINE  PROCESSES  ADDRESSES  OF  SUFFIX  CLASS  10.  THEY  ARE  BASICALLY  WORK  AREA  ADDRESSES 

R 0190  IN  THE  RANGE  0 - 52,  ERASABLE  ECADR  CONSTANTS  FROM  100  - 3777,  AND  FCADRS  ABOVE  THAT.  ALL  15  BITS  ARE  AVAILABLE 

R0192  IN  CONTRAST  TO  SUFFIX  1,  IN  WHICH  ONLY  THE  LOW  ORDER  14  ARE  AVAILABLE. 


n i 

&EF 

]-4 

1 AST 

1001 

1 

?4  1 64 

1 

15BITADR  I NCR  - 

LOG 

(ENTRY  HERE  FROM  STCALL5. 

0194 

REF 

15 

LAST 

1004 

6252 

50  164 

1 

INDEX 

LOC 

PICK  UP  ADDRESS  WORD. 

0195 

6253 

3 0000 

1 

CA 

0 

0196  REF  6 LAST  114  6254  54  117  1 TS  POL  I SH  WE  MAY  NFFD  A SUBADDRESS  LAIFR. 


0197 

0198 

REF 

REE 

1 

— 18- 

LAST 

1004 

6255 

6256 

3 5013 
54  004 

0 

-1- 

CAF 

TS 

L0W7+2K 
FB  ARK 

THESE  INSTRUCTIONS  ARE  IN  BANK  1. 

0199 

REF 

24 

LAST 

10  0 4 

6257 

7 0020 

1 

MASK 

C YR 

0200 

RFF 

324 

LAST 

100  3 

6260 

50  000 

1 

I TR  7 

INDEX 

A 

0201 

RFF 

— 1^- 

6261 

l 6333 

0 

TC  F 

MISC JUMP 

GAP:  ASSEMBLE ■ R-EV  IS  IGN-0-69  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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P0202 

— REF- 

COMPLETE  THE  DISPATCHING  OF 

UNARY  AND  SHORT  SHIFT  OPERATIONS. 
1 no  IIIMD  R T<;  FRANK 

CALL  IN  BANK  0 (BITS  11-15  OF  A ARE  0.) 

0203 

1 4 

R0204 

I TRACE  ( 6) 

REFERS  TO 

"0PJUMP3" 

• 

0705 

REF 

25 

LAST 

1004 

6263 

10  020 

1 

CCS 

CYR 

TEST  THIRD  PREFIX  BIT. 

3 ? q 

LAST 

10  n 4 

6 764 

50  000 

1 

INDEX 

A 

THE  DECREMENTED  UNARY  CODE  IS  IN  BITS 

02  07 

REF 

i 

6265 

1 2000 

1 

TCF 

UNA J UMP 

1-4  OF  A (ZERO,  EXIT,  HAS  BEEN  DETECTED ) 

10  1 6^ 

ff  s 

MOD  E 

ITS  A SHORT  SHIFT  CODE.  SEE  IF  PRESENT 

0208 

0209 

REF 

1 

Lfl  j 1 

6267 

1 2017 

1 

TCF 

SHOR  TT 

SCALAR  OR  VECTOR. 

0210 

RFF 

2 

LAST 

100  5 

6270 

1 2017 

1 

TCF 

SHOR  TT 

07  1] 

REF 

1 

6271 

1 2121 

0 

TCF 

SHORTV 

CALLS  THE  APPROPRIATE  ROUTINE. 

4^sn 

FBANKMSK 

EQUAL  S 

BANKMASK 

0213 

REF 

34 

LAST 

614 

6272 

00122 

0 

LVBUF 

ADRES 

VBUF 

1AP : 

502 14 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

(1227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

02  48 
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THE  FOLLOWING  IS  THE  JUMP  TABLE  FOR  OP  CODES  WHICH  MAY  HAVE  INDEXABLE  ADDRESSES  OR  MAY  PUSH  UP. 


6 273 

x 

65  04 

1 

I NO JUMP  TCF 

V L 3 A D 

00 

_ 

LOAD  MPAC  WITH  A VECTOR. 

REF 

1 

6274 

1 

7070 

0 

TCF 

TAD 

01 

- 

TRIPLE  PRECISION  ADD  TO  MPAC. 

REF 

1 

6275 

1 

7654 

0 

TCF 

SIGN 

02 

- 

COMPLEMENT  MPAC  (V  OR  SC)  IF  X MEG. 

REF 

A276 

1 

7400 

0 

TCF 

VXSC 

03 

_ 

VECTOR  TIMES  SCALAR. 

REF 

1 

6277 

1 

6702 

0 

TCF 

C GOT  0 

04 

- 

COMPUTED  GO  TO. 

REF 

2 LAST  370 

6300 

1 

6467 

0 

TCF 

TL3AD 

05 

- 

LOAD  MPAC  WITH  TRIPLE  PRECISION. 

REF 

30  1 

1 

6051 

1 

TCF 

DLO  A D 

06 

_ 

LOAD  MPAC  WITH  A D°  SCALAR. 

REF 

1 

6302 

1 

7623 

0 

TCF 

v/sc 

07 

- 

VECTOR  DIVIDED  BY  SCALAR. 

REF 

A 30  3 

x 

65  00 

0 

TCF 

SLOA  D 

1 0 

LOAD  MPAC  IN  SINGLE  PRECISION. 

REF 

1 

6304 

1 

6617 

0 

TCF 

SSP 

11 

- 

SET  SINGLE  PRECISION  INTO  X. 

REF 

1 

6305 

1 

6522 

0 

TCF 

PDDL 

12 

- 

PUSH  DOWN  MPAC  AND  RE-LOAD  IN  DP. 

RJEF 

1 

6306 

x 

7333 

1 

TCF 

MX  V 

13 

— 

MATRIX  POST-MULTIPLIED  Bv  VECTOR. 

REF 

1 

6307 

1 

6556 

0 

TCF 

PDVL 

14 

- 

PUSH  DOWN  AND  VECTOR  LOAD. 

REF 

1 

6310 

1 

6625 

1 

TCF 

CCAL  L 

15 

- 

COMPUTED  CALL. 

REF 

1 

6311 

1 

7336 

1 

TCF 

VXM 

16 

— 

MATRIX  PRE— MULTIPLIED  BY  VECTOR. 

REF 

1 

6312 

1 

7615 

0 

TCF 

TSLC 

17 

- 

NORMALIZE  MPAC  (SCALAR  ONLY). 

REF 

l 

A 3 X 3 

x 

75  73 

0 

TC  F 

DMPR 

20 

OP  MULTIPLY  AND  ROUND* 

REF 

1 

6314 

1 

7576 

0 

TCF 

DDV 

21 

- 

DP  DIVIDE  BY. 

REF 

1 

6315 

1 

76  02 

0 

TCF 

BDDV 

22 

- 

DP  DIVIDE  INTO. 

REF 

l 

6 316 

1 

76  2 0 

0 

TC  F 

GSH I FT 

23 

_ 

GENERAL  SHIFT  INSTRUCTION. 

REF 

1 

6317 

1 

6750 

1 

TCF 

V AO 

24 

- 

VECTOR  ADD. 

RFF 

1 

6320 

1 

6 746 

0 

TCF 

VSU 

25 

~ 

VECTOR  SUBTRACT. 

R FF 

x 

6 321 

1 

7035 

x 

TCF 

R vs  u 

26 

_ 

VECTOR  SUBTRACT  FROM. 

REF 

1 

6322 

1 

7330 

1 

TCF 

DOT 

27 

- 

VECTOR  DOT  PRODUCT. 

REF 

x 

6 32  3 

x 

74^7 

x 

TCF 

V X V 

30 

VECTOR  CROSS  PRODUCT  T 

REF 

1 

6324 

1 

7424 

0 

TCF 

V PRO  J 

31 

- 

VECTOR  PROJECTION. 

REF 

l 

6325 

1 

7004 

0 

TCF 

DSU 

32 

- 

OP  SUBTRACT. 

REF 

x 

6 326 

l 

7061 

0 

TC  F 

BDSU 

33 

_ 

DP  SUBTRACT  FROM. 

REF 

1 

6327 

1 

6774 

1 

TCF 

DAD 

34 

- 

DP  ADD. 

6330 

1 

6330 

0 

TCF 

35 

AVAILABLE 

REF 

1 

-6  33  1 

1 

7571 

1 

TCF 

DMP1 

36 

_ 

DP  MULTIPLY. 

REF 

1 

6 332 

1 

76  12 

1 

TCF 

SETPD 

37 

- 

SET  PUSH  DOWN  POINTER  (DIRECT  ONLY) 

CG0E4  10  AND  14  MUST  NOT  PUSH  UP.  CODE  04  MAY  BE  USED  FOR  VECTOR  DECLARE  BFFORE  PUSHUP  IF  DESIRED. 


GAP:- 

L 

P0250 

02  52 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 
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TEE  FOLLOWING  JUMP  TABLE  APPLIES  TO  INDEX,  BRANCH,  AND  MISCELLANEOUS  INSTRUCTIONS. 


4 33  3 

l 

7 341 

l 

MTSr.JlJMP  Tf  F 

AX  T 

00 

_ 

ADDRFSS  TO  INDEX  TRUE. 

REF 

1 

6334 

1 

2346 

0 

TCF 

A XC 

01 

- 

ADDRESS  TO  INDEX  COMPLEMENTED. 

REF 

1 

6335 

1 

2351 

0 

TCF 

LXA 

02 

- 

LOAD  INDEX  FROM  ERASABLE. 

REF 

1 

6336 

1 

2355 

1 

TCF 

LXC 

03 

— 

LOAD  INDEX  PROM  COMPLEMENT  OF  ERAS 

REF 

1 

6337 

1 

2361 

0 

TCF 

SXA 

04 

- 

STORE  INDEX  IN  ERASABLE. 

REF 

1 

6 340 

1 

2367 

0 

TCF 

XCHX 

05 

- 

EXCHANGE  INDEX  WITH  FRASABLE. 

REF 

1 

6341 

1 

2403 

0 

TCF 

I NCR 

06 

- 

INCREMENT  INDEX  REGISTER. 

REF 

1 

6342 

1 

2412 

0 

TCF 

T IX 

07 

- 

TRANSFER  ON  INDEX. 

REF 

A 34-3 

1 

7 3 75 

o 

TCF 

X AD 

1 0 

INDEX  REGISTER  ADD  FROM  ERASABLE. 

REF 

i 

6344 

1 

2406 

0 

TCF 

XSU 

11 

- 

INDEX  SUBTRACT  FROM  ERASARLE. 

REF 

i 

6345 

1 

2464 

1 

TCF 

B ZE / GOTO 

12 

BRANCH  ZERO  AND  GOTO. 

RFF 

1 

6346 

1 

24  71 

0 

TCF 

BPL/BMN 

13 

- 

BRANCH  PLUS  AND  BRANCH  MINUS. 

REF 

i 

6347 

1 

2444 

0 

TCF 

R T 8 / BH I Z 

14 

- 

RETURN  TO  BASIC  AND  BRANCH  HI  ZERO 

REF 

i 

6350 

1 

2 5 04 

0 

TCF 

CALL/ITA 

15 

- 

CALL  AND  STORE  QPRET. 

REF 

1 

6351 

1 

2513 

0 

TCF 

SW/ 

16 

— 

SWITCH  INSTRUCTIONS  AND  AVAILABLE. 

REF 

i 

6352 

1 

2454 

1 

TCF 

R 0 V ( B) 

17 

- 

BRANCH  ON  OVERFLOW  TO  BASIC  OR  I NT 

GAP 
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P0268  THE  FOLLOWING  JUMP  TABLE  APPIES  TO  UNARY  INSTRUCTIONS. 


_ 

. . 

> 2 0 5* 

rniiNT  * 

& %/ I NTER 

02  69 

REP 

tr 

L A b 1 

0270 

00,2000 

BANK 

0 

00 

EXIT  - DETECTED  EARLIER. 

0271 

REF 

i 

00,2000 

1 

3207 

0 UNAJUMP 

TCF 

SORT 

01 

SQUARE  ROOT. 

nn  t 2 on i 

1 

3 5 30 

o 

TCF 

S INE 

02 

— 

SIN. 

0273 

REF 

i 

00,2002 

1 

3517 

0 

TCF 

COSI NE 

03 

- 

COS. 

0274 

REF 

i 

00,2003 

1 

3610 

1 

TCF 

ARCS  IN 

04 

ARC  SIM. 

02  7^ 

R EF 

1 

00* 2004 

1 

3612 

0 

TCF 

APCCOS 

05 

— 

ARC  COS. 

0276 

REF 

i 

00,2005 

1 

3174 

1 

TCF 

DSQ 

06 

- 

DP  SQUARE. 

0277 

REF 

i 

00,2006 

1 

2116 

1 

TCF 

ROUND 

07 

— 

ROUND  TO  DP. 

0278 

REF 

i 

00,2007 

1 

7667 

0 

TCF 

COMP 

10 

- 

COMPLEMENT  VECTOR  OR  SCALAR. 

0279 

REF 

i 

00,2010 

1 

32  32 

0 

TCF 

VOEF 

11 

VECTOR  DEFINF. 

02  gn 

REF 

2 

1 AST 

—64  2 — 

00  * 2 0 1 1 

1 

3023 

1 

TCF 

UNI  T 

12 

— 

UNIT  VECTOR. 

0281 

RFF 

i 

00,2012 

1 

31  76 

0 

TCF 

ABVA  LABS 

13 

- 

LENGTH  OF  VECTOR  OR  MAG  OF  SCALAR. 

0282 

REF 

i 

00,2013 

1 

3245 

0 

TCF 

V SO 

14 

SQUARE  OF  LENGTH  OF  VECTOR. 

REF 

00T  2 0 1 4 

1 

63  53 

o 

TCF 

STADP 

15 

_ 

PUSH  UP  ON  S TOR F CODE. 

02  84 

REF 

i 

00,2015 

1 

3274 

1 

TCF 

R VO 

16 

- 

RETURN  VIA  QPRET . 

0285 

REF 

i 

00, 2016 

1 

3247 

1 

TCF 

PUSH 

17 

- 

PUSH  MP AC  DOWN. 

GAP: 
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L 

P0286 

R0287 

R0289 

R0291 

R0293 

R0295 

R0297 

R0299 

R0301 

R0303 


0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 


INTERPRETER  USER'S  PAGE  NO.  13  EO  S3 

SFCTICN  2 LOAD  AND  STORE  PACKAGE. 

A SET  OF  EIGHT  STORE  CODES  IS  PROVIOED  AS  THE  PRIMARY  METHOD  OF  STORING  THE  MULTI-PURPOSE 
ACCUMULATOR  (MPAC).  IF  IN  THE  DANZIG  SECTION  LOC  REFERS  TO  AN  ALGEBRAICALLY  POSITIVE  WORD,  IT  IS  TAKEN  AS  A 
STCRE  CODE  WITH  A CORRESPONDING  ERASABLE  ADDRESS.  MOST  OF  THESF  CODES  ARE  TWO  ADDRESS,  SPECIFYING  THAT  THE  WORD 
FOLLOWING  THE  STORE  CODE  IS  TO  BE  USED  AS  AN  ADDRESS  FROM  WHICH  TO  RE-LOAD  MPAC.  FOUR  OPTIONS  ARE  AVAILABLE: 

1.  STORE  STORE  MPAC.  THE  E ADDRESS  MAY  BE  INDEXED. 

2.  STODL  STORE  MPAC  AND  RE-LOAD  IT  IN  DP  WITH  THE  NEXT  ADDRESS  (THE  LOAD  MAY  BE  INDEXED). 

3.  STOVL  STORE  MPAC  AND  RE-LOAD  A VECTOR  (AS  ABOVE). 

4.  STCALL  STORE  AND  DO  A CALL  (BOTH  ADDRESSES  MUST  BE  DIRECT  HERE). 


STODL 

AND 

STOVL  WILL 

TAKE  FROM 

THE  PUSH- 

-DOWN  LIST  IF  NO  LOAD 

ADDRESS  IS  GIVEN. 

6353 

BLOCK 

3 

RF  F 

3 

i act  imo  th  l nncj  • 

i r n* 

COUNT  * 

$$/ I NTER 

REF 

4 

LAST 

998 

6353 

3 0165 

0 

STADR 

CA 

BANK  SET 

THE  STADR  CODE  (PUSHUP  UP  ON  STORE 

REF 

15 

LAST 

100  5 

6354 

54  004 

1 

TS 

FRANK 

ADDRESS)  ENTERS  HERE. 

r E F 

16 

1 AST 

100  4 

6 355 

2 A 164 

1 

I NCR 

LOC 

REF 

17 

LAST 

1009 

6356 

50  164 

1 

ITR1 

INDEX 

LOC 

THE  STORECODE  WAS  STORED  COMPLEMENTED  TO 

6357 

4 0000 

0 

CS 

0 

MAKE  IT  LOOK  LIKE  AN  OPCODE  PAIR. 

Rf  F 

6 

1 AST 

98  9 

6 360 

6 7746 

0 

AD 

MEG ONE 

(YUL  CANT  REMOVE  1 BFCAUSE  OF  EARLY  CCS) 

REF 

17 

LAST 

100  3 

6361 

54  116 

0 

DOSTORE 

TS 

A DDR WD 

REF 

7 

1 AST 

474 

6 86? 

7 43  56 

1 

MASK 

L OW  1 1 

ENTRY  FROM  DISPATCHER . SAVE  THE  FRASABLE 

REF 

18 

LAST 

1009 

6363 

56  116 

1 

XCH 

A DDR  WC 

ADDRESS  AND  JUMP  ON  THE  STORE  CODE  NO. 

REF 

1 

6364 

7 7721 

0 

MASK 

B 12T  14 

6 36  5 

0 0006 

1 

EXTEND 

REF 

37 

LAST 

82  1 

6366 

7 4747 

0 

MP 

BIT5 

EACH  TRANSFER  VECTOR  ENTRY  IS  TWO  WORDS. 

REF 

326 

LAST 

100  5 

6367 

50  000 

1 

ITRO 

INDEX 

A 

REF 

1 

6370  _ 

1 6371 

0 

TCF 

STOP  JUMP 

GAP 
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P0321 

STORE 

CODE 

JUMP  TABL 

E • 

CALLS  THE 

APPROPRI ATE 

STORING  ROUTINE 

AND  EXITS  TO  DANZIG  OR  TO 

ADDRESS  WITH 

R0323 

A SUPPLIED  OPERAT ION 

CODE. 

R03231 

STORE 

STORE 

,1  AND  STORE, 2 RETURN 

TO  DANZIG, 

THUS  RESETTING  THE  EBANK  TO  ITS  STATE  AT  INTPRET. 

n cmo  niMD  t r 

STOR  E 

S TORF . 

0325 

REF 

2 

LAST 

945 

6372 

i 

6060 

0 

TCF 

DANZ  IG 

PICK  UP  NEW  OP  CODE ( S ) . 

0326 

REF 

1 

6373 

0 

6413 

1 

TC 

STORE, l 

032  7 

REF 

3 

l T 

10  10 

6 374 

1 

6060 

0 

TCF 

DANZ  IG 

0328 

REF 

i 

6375 

0 

64  16 

1 

TC 

STORE, 2 

0329 

REF 

4 

LAST 

101  0 

6376 

1 

6060 

0 

TCF 

DANZ  IG 

0330 

REF 

2 

LAST 

101  0 

6377 

0 

6421 

0 

TC 

STOR  E 

STODL. 

0331 

REF 

1 

6400 

1 

6457 

0 

TCF 

DODLOAD 

0332 

REF 

3 

LAST 

101  0 

6401 

0 

6421 

0 

TC 

STOR  E 

STODL  WITH  INDEXED  LOAD 

ADDRESS. 

0333 

REF 

1 

6402 

1 

6143 

0 

TCF 

DODLOAD* 

0334 

REF 

4 

LAST 

101  c 

6403 

0 

6421 

0 

TC 

STOR  E 

STOVL . 

0335 

REF 

1 

6 404 

1 

6462 

0 

TCF 

DOVLOAD 

0336 

REF 

5 

LAST 

10  10 

6405 

0 

6421 

0 

TC 

STOR  E 

STOVL  WITH  INDEXED  LOAD 

ADDRESS. 

0337 

REF 

1 

6406 

l 

64  65 

1 

TCF 

DOVL  OAD* 

0338 

REF 

6 

LAST 

1010 

6407 

0 

6421 

0 

TC 

STOR  E 

STOTC. 

0339 

REF 

2 

LAST 

294 

6410 

3 

4766 

1 

CAE 

CALLCODE 

0340 

REF 

26 

LAST 

1005 

6411 

54 

r 020 

1 

TS 

C YR 

0341 

REF- 

— 1 — 

6412 

-1- 

6251 

0 

TCF 

15BI TADR 

GET  A 15  BIT  ADDRESS. 

GAP  : 
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P0342 

n rr 

■27 

STORE  CODE  ADDRESS  PROCESSOR, 
i Ad.  mm  a l. l o.  ^ n i on  1 

STORE , 1 

INDEX 

F I X L OC 

0343 

0344 

Ktr 

REF 

23 

LAST 

100  1 

6414 

4 0046 

1 

CS 

XI 

0345 

REF 

1 

6415 

1 6420 

0 

TCF 

PRESTORE 

0346 

REF 

38 

LAST 

101  1 

6416 

50  120 

1 

STORE, 2 

INDEX 

F IX  L CC 

0347 

REF 

17 

LAST 

98  1 

6417 

4 0047 

0 

CS 

X2 

0348 

REF 

19 

LAST 

100  9 

6 420 

26  116 

0 

PRESTORE 

ADS 

ADDR  WD 

0349 

REF 

20 

LAST 

101  1 

6421 

4 0116 

0 

STORE 

CS 

A DDR  WD 

0350 

REF  - 

1 

6 422 

6 4772 

1 

AD 

DEC45 

0351 

REF 

327 

LAST 

1009 

6423 

10  000 

0 

CCS 

A 

0352 

REF 

39 

LAST 

101  1 

6424 

3 0120 

1 

CA 

FIXLOC 

0353 

REF  - 

1 

6 425 

1 6432 

0 

TCF 

AHEAD5 

0354 

REF 

5 

LAST 

100  1 

6426 

3 5007 

0 

CA 

OCT  1 400 

0355 

REF 

21 

LAST 

101  1 

6427 

56  116 

1 

XCH 

A DDR  WD 

03  56 

REF 

47 

LAST 

100  1 

6430 

54  003 

n 

TS 

EBANK 

0357 

REF 

12 

LAST 

100  1 

643  1 

7 4357 

0 

MASK 

L0W8 

0358 

REF 

22 

LAST 

101  1 

6432 

26  1 16 

0 

AHEAD5 

ADS 

ADD  R WD 

19:02  NOV.  25,1968  SKIPPFR  .070  PAGE  1011 


USER*  S PAGE  NO.  15  EO  S3 


RESULTANT  ADDRESS  IS  IN  ERASABLE. 

DOES  THE  ADDRESS  POINT  TO  THE  WORK  AREA? 
YES. 

NO.  SET  EBANK  E MAKE  UP  SUBADDRESS. 


GAP  : 


P0359 

0360 

R0361 

0362 

0363 

0364 

03  65 
03  66 

0367 

0368 

0369 

0370 

0371 

037-2- 

0373 

0374 
03  75 

0376 

0377 

0378 

0379 

0380 
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STORING  ROUTINES.  STCRE  DP, 

TP 

, OR  VECTOR  AS  INDICATED  BY  MODE. 

6 4-^1 

0 00  OA 

1 

STARTSTO  EXTEND 

M P AC , + 1 MUST  BE  STORED  IN  ANY  EVFNT. 

I TRACE  (5) 

REFERS  TO 

"STARTSTO 

•1 

REF 

350 

LAST 

998 

6434 

3 0155 

0 

DC  A 

MP  AC. 

— REF 

- 2 -3  - 

LAST 

10  1 1 

6435 

50  116 

1 

INDEX 

ADDRWD 

6436 

52  001 

1 

DXCH 

0 

R FF 

17 

l ART 

10  0 s 

10  1 AT 

1 

cc  s 

MODE 

REF 

i 

6440 

1 6453 

1 

TC  F 

TSTORE 

REF 

247 

LAST 

996 

6 44  1 

0 0002 

0 

TC 

Q 

6442 

0 0006 

1 

VSTORE  EXTEND 

REF 

351 

LAST 

101  2 

6 443 

3 0160 

0 

DC  A 

MPAC  +3 

REF  - 

24 

LAST 

10  1 2 

50  116 

1 

INDEX 

ADDRWD 

6445 

52  003 

0 

DXCH 

2 

6446  0 0006  1 — EXTENO 

REF  352  LAST  10  1 2 6447  3 0162  1 DC  A MP6C  +5 

REF  25  LAST  1012  6450  50  116  1 INDEX  ADDRWD 

6451  52  005  0 DXCH  4 

REF  248  LAST  1012  6452  0 0002  0 TC  0 


REF  353 
REF  26 


LAST  1012 
LAST  1012 


6453 

6454 

3 0156 
50  116 

0 TSTORE 

1 

CA 

INDEX 

MPAC  +? 
ADDRWD 

6455 

54  002 

1 

TS 

2 

6456 

0 0002 

0 

TC 

- 0 

REF  249 


LAST  1012 


GAP  : 
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USER'S  PAGE  NO.  17  EO  S3 


P0381 

R0383 

ITSELF. 

ROUTINES  TO 

BEGIN  PROCESSING 

OF  THE  SECOND 

ADDRESS  ASSOCIATED 

WITH  ALL  STORE-TYPE  CODES  EXCEPT  STORE 

0384 

0385 

REF 

REF 

REF 

1 

27 

1 

LAST 

101  0 

6457 

6460 

6461 

3 7731 
54  020 
1 6105 

0 

1 

X 

DODLOAD 

CAF 

TS 

TCF 

DLOADCOD 

CYP 

DIRADRES 

GO  GET  A DIRECT  ADDRESS. 

0387 

0388 

0389 

REF 

REF 

REF 

1 

28 

2 

LAST 

LAST 

10  13 

6462 

3 4735 
54  020 

1 

1 

DOVLOAD 

CAF 

TS 

V L 0 A DCOD 
C YR 

101  3 

6464 

1 6105 

1 

TCF 

DIRADRES 

A466 

3 61  06 

n 

nnvi  had^ 

CAF 

VL-OAD* 

0391 

REF 

2 

LAST 

1010 

6 466 

1 6144 

i 

TCF 

DODLOAD*  +1 

PROLOGUE  TO  INDEX  ROUTINE. 

GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L INTERPRETER 


P0392  TEE  FOLLOWING  LOAD  INSTRUCTIONS  ARE  PROVIDED  FOR  LOADING 


0394 

REE 

27 

LAST 

101  2 

6467 

5 0 116 

-1 

TLOAD 

INDEX 

A DDR  WD 

0395 

6470 

3 0002 

0 

CA 

2 

0396 

REF 

354 

LAST 

1012 

6471 

54  156 

1 

TS 

MPAC  +2 

6472 

0 00  06 

1 

FXT  END 

0398 

REF 

28 

LAST 

1014 

6473 

5 0116 

1 

INDEX 

A DDR  WD 

0399 

6474 

3 0001 

0 

DC  A 

0 

0400 

REF 

3 

1 AST 

1014 

6475 

52  155 

1 

DXCH 

MPAC 

0401 

REF 

1C5 

LAST 

92  3 

6476 

3 4753 

1 

TMODE 

CAE 

ONE 

0402 

REF 

1 

6477 

1 6057 

1 

TCE 

NEWMODE 

0403 

6500 

22  007 

0 

SLOAD 

ZL 

0404 

REF 

29 

LAST 

1014 

6501 

50  116 

1 

INDEX 

ADDP  WD 

04  n s 

6502 

3 00  00 

1 

CA 

0 

0406 

REF 

1 

6503 

1 6054 

1 

TCF 

SL3AD2 

6 S04 

n nnoA 

1 

VI  DAD 

F X Tf=Nn 

0408 

REF 

30 

LAST 

101  4 

6505 

5 0116 

1 

INDEX 

A DDR  WD 

0409 

6506 

3 0001 

0 

DC  A 

0 

0410 

REF 

356 

LAST 

10  1 4 

6 507 

52  155 

1 

DXCH 

MPAC 

0411 

6510 

0 0006 

1 

END VLO AD 

EXTEND 

041? 

R p F 

3 1 

1 AST 

10  14 

6511 

5 0116 

1 

I NDFX 

ADDRWD 

0413 

6512 

3 0003 

1 

DC  A 

2 

0414 

REF 

357 

LAST 

101  4 

6 513 

52  160 

1 

DXCH 

MPAC  +3 

0415 

6514 

0 0006 

1 

+4 

EXTEND 

0416 

REF 

32 

LAST 

101  4 

6515 

5 0116 

1 

INDEX 

ADDRWD 

0417 

6516 

3 0005 

1 

DC  A 

4 

0418 

REF 

358 

LAST 

1014 

6517 

52  162 

0 

DXCH 

MPAC  +5 

04 1 Q 

RF  F 

10** 

L A^T 

10  1 4 

A s 2 0 

4 4 7 S T 

0 

vMnnp 

cs 

ONE 

0420 

REF 

2 

LAST 

101  4 

6521 

1 6057 

I 

TCF 

NEWMODE 

19:02  NOV.  25,1963  SKIPPER  .070  PAGE  1014- 


USER'S  PAGE  NO.  18  EO  S3 


THE  MULTI-PURPOSE  ACCUMULATOR  MPAC. 


LOAD  A TRIPLE  PRECISION  ARGUMENT  INTO 
THE  FIRST  THREE  MPAC  REGISTERS,  WITH  THE 
CONTENTS  OF  THE_  OTHER  FOUR  IRRELEVANT. 


DECLARE  TRIPLE  PRECISION  MODE. 

LOAD  A SINGLE  PRECISION  NUMBER  INTO 
MPAC,  SETTING  MPAC+1,2  TO  ZERO.  THE 
CONTENTS  OF  THE  REMAINING  MPAC  REGISTERS 
ARE  IRRELEVANT. 

LOAD  A DOUBLE  PRECISION  VECTOR  INTO 
MPAC,+lr  MPAC+3,4,  AND  MPAC+5,6.  THE 
CONTENTS  OF  MPAC  +2  ARE  IRRELEVANT. 


PDVL  COMES  HERE  TO  FINISH  UP  FOR  DP,  TP. 


TPDVL  FINISHES  HERF. 


DECLARE  VECTOR  MODE 


GAP  : 
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USER'S  PAGE  NO.  19  EO  S3 


P0421 

THE 

FOLLOWING 

INSTRUCTIONS 

ARE 

PROV  IOED 

FOR  STORING  OPERANDS 

IN  THE  PUSHDOWN 

LIST: 

p US  H 

pi  j SHnnwN 

an  n 

Nin 

I nAn. 

R0423 

R0424 

2. 

PDDL 

PUSHDOWN 

AND 

DOUBLE  PRECISION  LOAD. 

R0425 

3. 

POVL 

PUSHDOWN 

AND 

VECTOR  LOAD. 

0426 

6 52  2 

0 0006 

1 

PDDL 

EXTEND 

0427 

REF  33 

LAST 

101  4 

6523 

5 0116 

1 

INOEX 

A DDR  WD 

LOAD  MPAC , +1 » 

PUSHING 

THE 

FORMER 

6 5 24 

3 0001 

0 

DC  A 

0 

CONTENTS  DOWN. 

04  29 

REF  359 

LAST 

101  4 

6525 

52  155 

1 

DXCH 

M P AC 

0430 

REF  11 

LAST 

1003 

6526 

50  166 

0 

INDEX 

PUSHLOC 

043.1 

6527 

52  001 

1 

DXCH 

0 

0432 

REF  18 

LAST 

101  2 

6530 

50  163 

0 

INDEX 

MODE 

ADVANCE  THE  PUSHDOWN 

POINTER  APPRO- 

n433 

REF  3 

LAST 

100  3 

6531 

3 6243 

1 

CAF 

NO.WDS 

PRI ATELY. 

0434 

REF  12 

LAST 

101  5 

6532 

26  166 

1 

ADS 

PUSHLOC 

043  3 

REF  10 

LAST 

in  i s 

6633 

in  163 

1 

CCS 

MODE 

0436 

REF  1 

6534 

1 6551 

1 

TCF 

ENDTPUSH 

0437 

REF  1 

6535 

1 6547 

0 

TCF 

E NDD  PUSH 

0438 

REF  20 

LAST 

101  5 

6536 

54  163 

1 

TS 

MODE 

NOW  OP. 

0439 

REF  360 

LAST 

101  5 

6537 

54  156 

1 

ENDVPUSH 

TS 

MP AC  +2 

0440 

REF  361 

LAST 

101  5 

52  160 

1 

DXCH 

M P AC  +3 

PUSH  DOWN  THE 

REST  OF 

THE 

VECTOR  HERE. 

0441 

REF  13 

LAST 

101  5 

6541 

50  166 

0 

INDEX 

PUSHLOC 

0442 

6542 

51' 775 

0 

DXCH 

0 -4 

0443 

REF  362 

LAST 

101  5 

6 543 

5 2 162 

0 

DXCH 

MPAC  +5 

0444 

REF  14 

LAST 

101  5 

6 544 

50  166 

0 

INDEX 

PUSHLOC 

0445  6545  51'777  1 ..  OXCH 0 -2 


0446 

REF 

5 

LAST 

101  0 

6 546 

1 6060 

0 

TCF 

DANZ  IG 

0447 

REF 

363 

LAST 

101  5 

6547 

54  156 

1 

ENDDPUSH 

TS 

MPAC  +2 

SET  MPAC 

+2  TO  ZERO  AND 

EXIT  ON  DP. 

0448 

REF 

6 

LAST 

101  5 

6550 

1 6060 

0 

TCF 

DANZ  IG 

0449 

REF 

21 

LAST 

101  5 

6551 

54  163 

1 

ENDTPUSH 

TS 

MODE 

0450 

REF 

364 

LAST 

101  5 

6552 

56  156 

0 

XCH 

MPAC  +2 

ON  TRIPLE 

, SFT  MPAC  +2 

TO  ZERO,  PUSHING 

04  51 

REF 

15 

LAST 

1015 

6553 

50  166 

0 

+ 2 

INDEX 

PUSHLOC 

DOWN  THE 

OLD  CONTENTS 

0452 

6554 

53' 777 

0 

TS 

0 -1 

0453 

REF 

7 

LAST 

10  1 5 

6555 

1 6060 

0 

TCF 

DANZ  IG 

GAP 
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L INTERPRETER 


USER'S  PAGE  NO.  20  FO  S3 


P0454  PDVL  - PUSHDOWN  AND  VECTOR  LOAD. 


0455 

6556 

0 0006 

1 PDVL 

EXTEND 

0456 

REF 

34 

LAST 

101  5 

6557 

5 0116 

1 

INDEX 

ADDRWD 

0457 

6560 

3 0001 

0 

DCA 

0 

0458 

REF 

365 

LAST 

101  5 

6561 

52  155 

1 

DXCH 

. MPAC 

0459 

REF 

16 

LAST 

101  5 

6562 

50  166 

0 

INDEX 

PUSHLOC 

0460 

6563 

52  001 

1 

DXCH 

0 

0461 

REF 

22 

LAST 

101  5 

6564 

50  163 

0 

INDEX 

MODE 

0462 

REF 

4 

LAST 

101  5 

6565 

3 6243 

l 

CAF 

NO.WDS 

0463  REF  17  LAST  1016  -6566  26  166  L ADS  PUSHLOC 


0464 

REF 

23 

LAST 

101  6 

6567 
A 570 

10  163 
1 6607 

1 

1 

CCS 

TCF 

MODE 

TPDVL 

0466 

REF 

i 

6571 

1 6510 

1 

TCF 

ENrv LOAD 

6*^72 

Q 0006 

1 VPDVl 

FXTFND 

0468 

REF 

35 

LAST 

1016 

6573 

5 0116 

i 

INDEX 

ADDP  WD 

0469 

6574 

3 0003 

i 

OCA 

2 

0470 

REF 

^ f h 

LAST 

10  1 6 

6575 

52  160 

1 

DXCH 

MPAC  +3 

0471 

REF 

18 

LAST 

101  6 

6576 

50  166 

0 

INDEX 

PUSHLOC 

0472 

6577 

51' 775 

0 

DXCH 

0 -4 

0473 

6600 

0 0006 

1 

EXTEND 

0474 

REF 

36 

LAST 

101  6 

6601 

5 0116 

1 

INDEX 

A DDR  WD 

047S 

6602 

3 0005 

1 

DCA 

4 

0476 

REF 

367 

LAST 

1016 

6603 

52  162 

0 

DXCH 

MPAC  +5 

0477 

REF 

19 

LAST 

101  6 

6604 

50  166 

0 

INDEX 

PUSHLOC 

0478  6605  51*777  1 DXCH  0 -2 


0479 

REF 

8 

LAST 

101  5 

6606 

1 6060 

0 

TCF 

DANZ  IG 

0480 

6607 

0 0006 

1 TPOVL 

EXTEND 

0481 

REF 

37 

LAST 

1016 

6610 

5 0116 

1 

INDEX 

ADDP  WD 

0482 

6611 

3 0003 

1 

DCA 

2 

0483 

REF 

368 

LAST 

101  6 

6612 

52  160 

1 

DXCH 

MPAC 

+3 

04  84 

REF 

REF 

369 

20 

LAST 

LAST 

1016 
101  6 

6 613 
6614 

3 0156 

0 

CA 

MP&r 

4-? 

0485 

50  166 

0 

INDEX 

PUSHLOC 

0486 

6615 

53' 777 

0 

TS 

0 -1 

0487  REF  2 LAST  101  6 6616  1 6514  0 TCF  E ND V LOAD  +4 


R0488 

SSP 

( STORE 

SINGLE  PRECISION) 

IS  EXECUTED 

HERE. 

0489 

REF 

18 

LAST 

1009 

6617 

24  164 

1 SSP 

I NCR 

LOC 

0490 

REF 

19 

LAST 

101  6 

6620 

50  164 

1 

INDEX 

LOC 

0491 

6621 

3 0000 

1 

CA 

0 

0492 

REF 

38 

LAST 

10  1 6 

6622 

50  116 

1 ST0RE1 

INDEX 

ADDRWD 

0493 

6623 

54  000 

0 

TS 

0 

RELOAD  MP AC  AND  °USH  DOWN  ITS  CONTFNTS . 


ADVANCE  THE  PUSHDOWN  POINTER. 


TEST  PAST  MODE. 

JUST  LOAD  LAST  FOUR  REGISTERS  ON  DP. 
PUSHDOWN  AND  RE-LOAD  LAST  TWO  COMPONENTS 


ON  TP,  WE  MUST  LOAD  THE  Y COMPONFNT 
BEFORE  STORING  MPAC  +2  INCASE  THIS  IS  A 
PUSHUP. 


IN  DP. 


PICK  UP  THE  WORD  FOLLOWING  THE  GIVEN 
ADDRESS  AMD  STORE  IT  AT  X. 


SOME  INDEX  AND  MISCELLANEOUS  OPS  END 
HERE. 


GAP: 
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L 

0496 


INTERPRETER 

REF  9 LAST  1016  6624  1 6060  0 TCF  DANZIG 


USER'S  PAGE  NO.  21  FO  S3 


GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25,1960  SKIPPER  .070  PA-GE  1018 


L INTERPRETER  USER'S  PAGE  NO.  22  EO  S3 


P049  5 

SEQUENCE 

CHANGING  AND  SUBROUTINE  CALLING  OPTIONS. 

, BRANCHING,  AND  CALLING  SUBROUTINES: 

R0498 

i. 

GOTO 

GO  TO. 

CALL 

_ CM  1 

<;i]RRniIT  IMF 

SETTING 

QPRFT. 

R0500 

3. 

CGOTO 

COMPUTED  GO  TO. 

R0501 

4. 

CCA  L L 

COMPUTED  CALL. 

7 m 

R PI 

BRANCH 

IF  MP AC 

POSIT  I V F 

OR  ZERO. 

R0503 

8. 

BZE 

BRANCH 

IF  MPAC 

ZERO. 

R0504 

9. 

BMN 

BRANCH 

IF  MPAC 

NEGATIVE 

NON- ZERO. 

0505 

REF 

20 

LAST 

1016 

6625 

2 4 164 

1 

CC  ALL 

I NCR 

LOC 

MAINTAIN  LOC  FOR  QPRET  COMPUTATION. 

0506 

REF 

21 

LAST 

101  8 

6626 

50  164 

1 

INDEX 

LOC 

0507 

6627 

3 0000 

l 

CAF 

0 

GET  BASE  ADDRESS  OF  CADR  LIST. 

0508 

REF 

39 

LAST 

1016 

6630 

50  116 

1 

INDEX 

ADDPWD 

0509 

6631 

6 0000 

1 

AD 

0 

ADD  INCREMENT. 

0510 

REF 

16 

LAST 

100  9 

6632 

54  004 

1 

TS 

E BANK 

SELECT  DESIRED  CADP. 

0511 

REF 

17 

LAST 

100  1 

6633 

7 5012 

0 

MASK 

L0W1  0 

0512 

REF 

328 

LAST 

101  1 

6634 

50  000 

1 

INDEX 

A 

— 0513 

6635 

3 2000 

0 

CAF 

10000 

0514 

REF 

7 

LAST 

1004 

6636 

54  117 

1 

TS 

POL  I SH 



— -ft-Ef-- 

5 — 

L AS  T 

ino  Q 

AAR  7 

r 016^ 

0 

C^LL 

C A 

RANK  SET 

FDR  ANY  RF  THF  f AM  HP  TTflNK.  MAKF  1 IP  THF 

0516 

REF 

2 

LAST 

1005 

6640 

7 43  50 

1 

MASK 

BANKMASK 

ADDRESS  OF  THE  NEXT  OP-CODE  PAIR/STORE 

0517 

REF 

3 

LAST 

101  8 

6641 

6 4350 

0 

AD 

BANKMASK 

CODE  AND  LEAVE  IT  IN  QPRET.  NOTE  THAT 

0518 

REF 

2? 

LAST 

10  1 8 

6642 

6 0164 

1 

AD 

L OC 

BANKMASK  = -(2000  - 1). 

0519 

REF 

40 

LAST 

101  1 

6643 

50  120 

1 

INDEX 

F I X L OC 

0520 

REF 

10 

LAST 

936 

6644 

54  052 

1 

TS 

QPRET 

0521 

REF 

8 

LAST 

101  8 

6 645 

3 0117 

0 

GOTO 

CA 

POL  I SH 

BASIC  BRANCHING  SEQUENCE. 

0522 

REF 

3 

LAST 

100  1 

6 646 

7 7741 

0 

+ 1 

MASK 

H I GH4 

052% 

0 0006 

1 

EXTEND 

0524 

REF 

1 

6650 

1 6661 

i 

BZF 

GOTOERS 

SEE  IF  ADDRESS  POINTS  TO  FIXFD  OR  ERAS. 

0525 

REF 

6 

LAST 

101  8 

6651 

3 0165 

0 

+4 

CA 

BANKSET 

SET  EBANK  PART  OF  BBANK.  NFXT , SET  UP 

0526— 

REF 

25 

LAST 

.99.8 

E652 

5 4 0 06 

0 

TS 

BBANK 

F BANK . THE  COMBINATION  IS  PICKED  UP  8 

0527 

REF 

9 

LAST 

101  8 

6653 

3 0117 

0 

CA 

POL  I SH 

PUT  INTO  BANKSET  AT  INTPRET  +2. 

0528 

REF 

17 

LAST 

10  1 8 

6654 

54  004 

1 

TS 

F BANK 

0529 

REE 

—1-8—- 

LAST 

-101  8 

6655 

7 5012 

0 

MASK 

L0W10 

0530 

REF 

2 

LAST 

100  1 

6 656 

6 4741 

1 

AD 

2 K 

0531 

REF 

23 

LAST 

101  8 

6657 

54  164 

0 

TS 

LOC 

0532 

-REE- 

216 

LAST- 

1 6041 

0 

TCF 

INTPRET  +3 

0533 

E3, 1400 

FBANK= 

1400 

SO  YUL  DOESN'T  CUSS  THE  "CA  1400"  BELOW. 

0534  REF  10  LAST  1018  6661  3 0117  0 GOTOERS  CA  POLISH  THE  GIVEN  ADDRESS  IS  IN  ERASABLE  - SEE 

0535  REF  2 LAST  1000  6662  6 6250  0 AD  -FNDVAC  IF  RELATIVE  TO  THE  WORK  ARFA. 

0536  REF  329  LAST  10  1 8 6663  10  000—0 r.r.C  A 


0537  REF  11  LAST  1018  6664  3 0117  0 CA  POLISH 

0538  REF  1 6665  1 6674  0 TCF  GOTOGE 


GENERAL  ERASABLE 


GAP 


ASSEMBLE  REVISION  069  OE  AGG  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L INTERPRETER 


0539 

REF 

41 

LAST 

101  8 

6666 

3 0120 

1 

CA 

F IXLOC 

0540 

REF 

12 

LAST 

101  8 

6 667 

6 0117 

0 

AD 

POL  1 SH 

AC/,  1 

o pc 

3 30 

LAST 

10  1 8 

6670  - 

50  000 

INDEX 

A 

0542 

tr 

6671 

3 0000 

1 

CA 

0 

0543 

REF 

13 

LAST 

101  9 

6672 

54  117 

i 

TS 

POL  I SH 

q 

REF 

6673 

1 6646 

_1_ 

TEE 

GOTO  +1 

0545 

REF 



48 

LAST 

1011 

66  74 

54  003 

0 

GOTOGE 

TS 

EBANK 

0 546 

REE 

13 

LAST 

10  1 1 

6675 

7 4357 

-0 

MASK 

LOWS 

0547 

REF 

331 

LAST 

101  9 

6676 

50  000 

1 

INDEX 

A 

0548 

6677 

3 1400 

1 

CA 

1400 

0549 

REF 

14 

LAST 

10  1 9- 

6-700 

54  117 

JL_ 

TS 

POL  I SH 

0550 

REF 

2 

LAST 

1019 

6701 

1 66  46 

1 

TC  F 

SOTO  +1 

0551 

REE- 

24 

LAST 

1018 

6702 

50  164 

-1  . 

CGOTO 

INDEX 

L OC 

0552 

6703 

3 0001 

0 

CA 

1 

0553 

REF 

40 

LAST 

101  8 

6704 

50  l 16 

1 

INDEX 

A DDR  WD 

0554 

6 705 

6 0000 

1 

AD 

0 

0555 

REF 

18 

LAST 

10  1 8 

6706 

54  004 

1 

TS 

F BAN  K 

0556 

REF 

19 

LAST 

101  8 

6707 

7 5012 

0 

MASK 

LDW10 

0557 

REF 

332 

LAST 

10  1 9 

6 71 0 

50  000 

J 

INDEX 

A 

0558 

6711 

3 2000 

0 

CA 

1 0000 

0559 

REF 

15 

LAST 

101  9 

6712 

54  117 

1 

TS 

POLISH 

0560  REF  3 LAST  101-9-  6713  1 6646  1 TC  F GOTO  +1 


0561 

0562 

REF 
R E F 

7 

19 

LAST 

LAST 

101  8 
101  9 

6714 

6715 

3 0165 
54  004 

0 

1 

SWBRANCH  CA 
TS 

BANK  SET 
F BAN  K 

0563 

REF 

25 

LAST 

1019 

6716 

50  164 

1 

INDEX 

LOC 

0564 

6717 

3 0001 

0 

CA 

1 

0565 

EEE 

16 

LAST 

1019 

- -6  7-20 

54  1 1 7 

,..1 

TS 

POL  I SH 

0566 

REF 

4 

LAST 

101  9 

6721 

1 6646 

1 

TC  F 

GOTO  +1 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1019 
USER'S  PAGE  NO.  23  E3  S3 

WORK  AREA. 

USE  THE  GIVEN  ADDRFSS  AS  THE  ADDRESS  OF 
THE  BRANCH  ADDRFSS. 

ALLOWS  ARBITRARY  INDIRECTNESS  LEVELS. 

USE  THE  GIVEN  ADDRESS  AS  THE  ADDRESS  OF 
THE  BRANCH  ADDRESS. 


COMPUTED  GO  TO.  PICK  UP  ADDRESS  OF  CADR 
LIST. 

ADD  MODIFIER. 

SELECT  GOTO  ADDRESS. 


WITH  ADDRESS  IN  A. 


SWITCH  INSTRUCTIONS  WHICH  ELECT  TO 
BRANCH  COME  HERE  TO  DO  SO. 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-C11 

L INTERPRETER 


P0567 

TRIPLE  PRECISION  BRANCHING 

ROUTINE.  IF 

CALLING 

TC  I S AT 

T c rn  CATCO  TUA 

M 7FRD. 

R0569 

11  i : ' A 

R0570 

L+2 

IF  MP AC 

IS  EQUAL 

TO  +0 

OR  -0. 

R0571 

L+3 

IF  MP AC 

IS  LESS 

THAN  ZERO. 

0572 

REF 

370 

LAST 

101  6 

6722 

10  154 

0 BRANCH 

CCS 

MPAC 

P E F 

2 50 

L T 

in  i ? 

6 723 

0 0002 

0 

TC 

-Q 

0574 

6724 

1 6726 

0 

TCF 

+ 2 

0575 

REF 

1 

6725 

1 6740 

0 

TCF 

NEG 

0576 

RFF 

371 

LAST 

10  2 0 

6726 

10  155 

1 

CCS 

MPAC  +1 

0577 

REF 

251 

LAST 

10  2 0 

6727 

0 0002 

0 

TC 

Q 

0^  7P 

6730 

l 673? 

0 

TCF 

+ 2 

0579 

REF 

2 

LAST 

10  2 0 

6 731 

1 6740 

0 

TCF 

NEG 

-673? 

10  1^6 

GO  S 

p a C +2 

0581 

REF 

252 

L WO  1 

LAST 

10  2 0 

6733 

0 0002 

0 

TC 

Q 

0582 

6734 

1 6736 

1 

TCF 

+ 2 

-0583 REF 3 LAST  102  0 6735  4—6740  45  TCF  NEG 


0586 

06 

REF 

253 

LAST 

1020 

6736 
6 737 

50  002 
o non i 

o c 

Q + l 

INDEX 

TC 

0 

1 

0586 

REF 

254 

LAST 

10  2 0 

6740 

50  002 

0 

NEG 

INDEX 

Q 

0587  6741  0 0002  0 TC  Z 


0588 

R0589 

-REF 

— 4- 

LAST  10  2 0 
ITRACE  I 3) 

6 740 

REFERS  TO 

"EXIT". 

Q + 2 

NEG 

0590 

REF 

8 

\ £<;  T 10  19 

6 742 

3 01  65 

0 

EXIT 

CA 

BANK  SET 

0591 

REF 

26 

LAST  1018 

6743 

54  006 

0 

TS 

BBANK 

0592 

REF 

26 

LAST  1019 

6 744 

50  164 

1 

INDEX 

LOC 

—0593— 

— 6 74-5- 

0 00  01 

0 

— TC 

_J 

19:02  NOV.  25,1963  SKIPPER  .070  PAGE  1020 
USER' S PAGE  NO.  24  E3  S3 


RFTURN  IS  AS  FOLLOWS: 


ON  ZERO. 


IF  FIRST  NON-ZERO  REGISTER  WAS  NEGATIVE. 


RESTORE  USER'S  BANK  SETTING,  AND  LEAVE 
INTERPRETIVE  MODE. 


GAP  : 

L 

P0594 

R0595 

R0597 

R0598 

R0599 

R0600 

R0601 

R0602 

R0603 

R0604 

R0605 


0607 

0608 

0609 

0610 
0611 
0612 

0613 

0614 

0615 

0616 
0617- 

0618 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 


ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25 » 1-9-68  SKIPPER  .070  PAGE  1021 

INTERPRETER  USER'S  PAGE  NO.  25  63  S3 

SECTICN  3 - AOD/SUBTRACT  PACKAGE. 

TEE  FOLLOWING  OPERATIONS  ARE  PROVIDED  FOR  ADDING  TO  AND  SUBTRACTING  FROM  THE  MUL T I -PURPO SF  ACCUMULATOR 

MPAC: 


1.  DAD  DOUBLE  PRECISION  ADD. 

2.  DSU  DOUBLE  PRECISION  SUBTRACT. 

3.  BDSU  DOUBLE  PRECISION  SUBTRACT  FPOM. 


4. 

TAD 

TRIPLE  PRECISION  ADD. 

5 . 

V AD 

VECTOR  ADD. 

6. 

vsu 

VECTOR  SUBTRACT. 

7. 

BVSU 

VFCTOR  SUBTRACT  FROM. 

TEE  INTERPRETIVE  OVERFLOW 

INDICATOR  OVFIND  IS  SET  NON-ZERO  IF  OVERFLOW  OCCURS  IN  ANY  OF  THE  ABOVE. 

REF 

39 

LAST 

997 

6746 

6747 

3 4735 
1 6751 

1 

0 

vsu 

C AF 
TC  F 

BIT]  5 
*2 

CHANGES  0 TO  DCS. 

REF 

9 

LAST 

83  1 

6750 

3 4355 

0 

VAD 

CAF 

PRI030 

CHANGES  0 TO  DC  A. 

REF 

41 

LAST 

101  9 

6751 

26  1 16 

0 

ADS 

A DDR  WD 

0 0006 

1 

EXTEND 

REF 

42 

LAST 

10  2 1 

6753 

5 0116 

1 

INDEX 

A DDR  WD 

REF 

2 

LAST 

394 

6754 

00  003 

1 

READ 

HI  SC  ALAR 

DCA  2 OR  DCS  2 

R ELF 

3 73 

LAST 

10  2 0 

6755 

20  160 

1 

DAS 

MPAC  +3 

6756 

0 0006 

1 

EXTEND 

CHECK  OVERFLOW. 

6757 

1 6761 

0 

BZF 

+ 2 

REF  1 6760  0 7013  1 TC  O.VERF.LWY 


6 761 

0 0006 

1 

EXTEND 

REF 

43 

LAST 

10  2 1 

6 76  2 

5 0116 

1 

INDEX 

ADDRWD 

REF 

2 

LAST 

227 

6763 

00  005 

1 

READ 

CHAN  5 

DCA 

4 

OR 

DCS 

4 

REF 

374 

LAST 

102  1 

6764 

20  162 

0 

DAS 

MPAC  +5 

6 765 

0 0006 

\ 

EXTEND 

6 766 

1 6770 

0 

BZF 

+ 2 

REF 

1 

6 767 

0 7010 

1 

TC 

OVERFLWZ 

6770 

0 0006 

1 

EXTEND 

REF 

44 

LAST 

102  1 

6 771 

5 0116 

1 

INDEX 

A DDR  WD 

REF 

15 

LAST 

750 

6772 

00  001 

0 

READ 

LCHAN 

DCA 

0 

OR 

DCS 

0 

REF 

1 

6773 

1 6777 

1 

TCF 

ENDVXV 

REF 

45 

LAST 

102  1 

6775 

5 

0116 

1 

INDEX 

AODf WD 

6 776 

3 

0001 

0 

DCA 

0 

RE-F- 

-375 

LAST- 

10  2J 

6777 

20 

155 

1 ENDVXV 

DAS 

MPAC 

VXV  FINISHES  HERE. 

7000 

0 

0006 

1 

EXTEND 

REF 

10 

LAST 

1017 

7001 

l 

6060 

0 

BZF 

DANZ  IG 

GAP: 

L 

0635 

0636 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1022 

INTERPRETER  USER'S  PAGE  NO.  26  E3  S3 

REF  1 ' 7002  0 7016  1 SETOVF  TC  OVERFLOW 

REF  11  LAST  1021  7003  1 6060  0 TCF  DANZIG 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


I NTERPRETER 


0637 

7004 

0 0006 

1 

DSU 

EXTEND 

0638 

REF 

46 

LAST 

10  2 1 

7005 

5 0116 

1 

INDEX 

ADDR  WD 

7006 

4 0001 

1 

DCS 

0 

0640 

REF 

2 

LAST 

102  1 

7007 

1 6777 

1 

TCF 

ENDVXV 

REF 

L 7 0 

LAST 

QQ  5 

7010 

5 4 0 01 

l 

OVERFLWZ 

TS 

L 

0642 

REF 

19 

LAST 

950 

7011 

3 4756 

1 

CAF 

FIVE 

0643 

7012 

1 7015 

0 

TCF 

+ 3 

0644 

REF 

171 

LAST 

102  3 

7013 

54  001 

1 

OVERFLW Y 

TS 

L 

0645 

REF 

30 

LAST 

975 

7014 

3 6244 

0 

CAF 

THREE 

0646 

REF 

172 

LAST 

102  3 

7015 

56  001 

0 

XCH 

L 

0647 

REF 

333 

LAST 

10  19 

7016 

50  000 

1 

OVERFLOW 

INDEX 

A 

064-8 

REF 

2 

J AST 

9 7 2 

7017 

4 4734 

1 

CS 

L IMI TS 

0649 

REF 

65 

LAST 

890 

7020 

54  130 

1 

TS 

8UF 

0650 

7021 

0 0006 

1 

EXTEND 

06  8 1 

R F F 

3 34 

LAST 

TO  ? 3 

7 022 

24  000 

1 

AUG 

A 

0652 

REF 

173 

LAST 

102  3 

7023 

50  001 

0 

INDEX 

L 

0653 

REE 

376 

LAST 

102  1 

7024 

26  155 

1 

ADS 

MP4C  +1 

0664 

7075 

54  007 

1 

TS 

7 

0655 

REF 

181 

LAST 

997 

7026 

3 4755 

1 

CAF 

ZERO 

0656 

REF 

66 

LAST 

1023 

7027 

6 0130 

0 

AD 

BUF 

0657 

REF 

1 74 

LAST 

107  3 

7 030 

50  001 

0 

INDEX 

L 

0658 

REF 

3 77 

LAST 

102  3 

7031 

26  154 

0 

ADS 

MPAC. 

0659 

7032 

54  007 

1 

TS 

7 

0660 

RFF 

255 

LAST 

102  0 - 

7 033 

0 0002 

0 

TC 

Q 

0661 

RFF 

1 

7034 

1 7151 

1 

TCF 

SETCVF2 

066  2 

70^5 

0 00  06 

l 

BVSH 

EXTEND 

0663 

REF 

47 

LAST 

10  2 3 

7036 

5 0116 

1 

INDEX 

A DDR  WD 

0664 

7037 

3 0003 

1 

DC  A 

2 

0665 

REF 

378 

LAST 

102  3 

7040 

52  160 

1 

dxch 

MPAC  +3 

0666 

7041 

0 0006 

1 

EXTEND 

0667 

7042 

4 0001 

1 

DCOM 

0668 

REF 

379 

LAST 

102  3 

7 043 

20  160 

1 

DAS 

MPAC  +3 

0669 

7044 

0 00  06 

1 

EXTEND 

0670 

7045 

1 7047 

1 

BZF 

+ 2 

0671 

REF 

2 

LAST 

102  1 

7 046 

0 7013 

1 

TC 

OVER  FLWY 

0672 

7047 

0 0006 

1 

EXTEND 

0673 

REF 

- -48 

LAST 

102  3 

7 050 

5 0116 

1 

INDEX 

ADDR  WD 

06  74 

7051 

3 0005 

1 

DC  A 

4 

0675 

REF 

380 

LAST 

102  3 

7052 

52  162 

0 

DXCH 

MPAC  +5 

0676 

7053 

0 0006 

1 

EXTEND 

06  77 

7054 

4 0001 

1 

DCOM 

0678 

REF 

381 

LAST 

10  2 3 

7055 

20  162 

0 

DAS 

MPAC  +5 

0679 

7056 

0 0006 

1 

EXTEND 

0680 

7057 

1 7061 

0 

BZF 

+ 2 

0681 

REF 

2 

LAST 

102  1 

7060 

0 7010 

1 

TC 

OVERFLWZ 

19:02  NOV.  25,1963  SKIPPER  .070  PAGE  1023 


USER'S  PAGE  NO.  27  E3  S3 


ENTRY  FOR  THIRD  COMPONENT. 


ENTRY  FOR  SECOND  COMPONENT. 


ENTRY  FOR  1ST  COMP  OR  DP  <L=0). 
PICK  UP  POSMAX  OR  NEGMAX. 


FORCE  OVERFLOW. 


NO  OVERFLOW  EXIT. 
SET  OVFIND  AND  EXIT 


GAP:  ASSFMBLE  REVISION  06R  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L INTERPRETER 


0682 
06  8 3 
06  84 

REF  49 

LAST 

10  2 3 

7061 

7062 

7063 

0 0006 
5 0116 
3 0001 

1 BDSU 
1 
0 

EXTEND 

INDEX 

DCA 

0685 

REF  382 

LAST 

10  2 3 

7 064 

52  155 

1 

DXCH 

06  86 

7065 

0 0006 

1 

EXTEND 

n a ft  7 

7066 

4 0001 

1 

DCOM 

\J  O O f 
0688 

REF  3 

LAST 

1023 

7067 

1 6777 

1 

TCF 

A DDR  WD 
0 

M PAG 


ENDVXV 


19:02  NOV.  25,1963  SKIPPER  .070  PAGE  1024 


USER'S  PAGE  NO 


28 


E3  S3 


ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112=011 


GAP  : 


L INTERPRETER 

P06 89  TRIPLE  PRECISION  ADD  ROUTINE. 


0690 

0691 

0692 

REF 

50 

LAST 

102  4 

7070 

7071 

7072 

5 

3 

0006 

0116 

0002 

-1 — TAD 
1 
0 

EXTEND 
INDEX 
DC  A 

ADDRWD 

1 

0693 

-RE6 

-3  83 

LAST 

LAST 

10_2  4 

7 073 

20 

156 

1 

DAS 

MPAC  +1 

0694 

REF 

51 

102  5 

7074 

50 

1 16 

1 

INDEX 

ADDRWD 

0695 

7075 

6 

0000 

1 

AD 

0 

0696 

REF 

3 84 

LAST 

10  2 5 

7 076 

_ 6 

0154 

_1 

AD 

MPAC 

0697 

REF 

385 

LAST 

10  2 5 

7077 

54 

154 

0 

TS 

MPAC 

0698 

REF 

12 

LAST 

102  2 

7100 

1 

6060 

0 

TCF 

DANZ  IG 

0699  REF 


l 


7101  1 7002  0 


TCF 


SETOVF 


19102  NOV.  25,1968  SKIPPER  .070  PAGE  102 


USER’ S PAGE  NO.  29  E3  S3 


ADD  MINOR  PARTS  FIRST. 


SET  OVFIND  IF  SUCH  OCCURS 


GAP: 

L 

P0700 

R0701 
R0703 
R0705 
R0707 
R 07  09 
R0710 
R0712 


0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 
0 725 


0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011  19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1026 

INTERPRETER  USER'S  PAGE  NO.  30  E3  S3 

ARITHMETIC  SUBROUTINES  REQUIRED  IN  FIXED-FIXED. 

1.  DMPSUB  DOUBLE  PRECISION  MULTIPLY.  MULTIPLY  THE  CONTENTS  OF  MPAC,+1  BY  THE  OP  WORD  WHOSE  ADDRESS 

IS  IN  ADDRWD  AND  LEAVE  A TRIPLE  PRECISION  RESULT  IN  Mt>AC. 

2.  ROUNDSUB  ROUND  THE  TRIPLE  PRECISON  CONTENTS  OF  MPAC  TO  DOUBLE  PRECISION. 

3.  DOTSUB  TAKE  THE  DOT  PRODUCT  OF  THE  VECTOR  IN  MPAC  AND  THE  VECTOR  WHOSE  ADDRESS  IS  IN  ADDRWD 

AND  LEAVE  THE  TRIPLE  PRECISION  RESULT  IN  MPAC. 

4.  poly  USING  THE  CONTENTS  OF  MPAC  AS  A DP  ARGUMENT,  EVALUATE  THE  POLYNOMIAL  WHOSE  DEGREE  AND 

COEFFICIENTS  IMMEDIATELY  FOLLOW  THE  TC  POLY  INSTRUCTION  (SEE  ROUTINE  FOR  DETAILS.) 


LAST 

10  2 3 

7 102 

so  0 02 

o 

DMP 

I NDFX 

Q. 

BASIC  SUBROUTINE  FOR. USE  BY  PINBALL,  ETC 

7103 

3 0000 

1 

CAF 

0 

ADRES  OF  ARGUMENT  FOLLOWS  TC  DMP  . 

REF 

257 

LAST 

102  6 

7 104 

24  002 

0 

I NCR 

0 

REF 

52 

LAST 

10  2 5 

7 105 

54  116 

0 

-i 

TS 

ADDRWD 

(PROLOGUE  FOR  SETTING  ADDRWD.) 

REF 

53 

LAST 

10  2 6 

7 106 

50  116 

1 

DMPSUB 

INDEX 

ADDRWD 

GET  MINOR  PART  OF  OPERAND  AT  C ( ADDRWD ) . 

7 107 

3 0001 

o 

CA 

1 

REF 

386 

LAST 

1025 

7 no 

54  156 

1 

TS 

MPAC  +2 

THIS  WORKS  FOR  SQUARING  MPAC  AS  WELL. 

REF 

182 

LAST 

1023 

7 111 

3 4755 

1 

CAF 

ZERO 

SET  MPAC  +1  TO  ZERO  SO  WE  CAN  ACCUMULATE 

REF 

3 ft  7 

l AST 

10  2ft 

7 LI  2 

56  1 55 

0 

XCH 

MPAC  +1 

THF  PARTIAL  PRODUCTS  WITH  DAS 

REF 

9 

LAST 

994 

7 113 

54  135 

1 

TS 

MPTEMP 

INSTRUCTIONS. 

7114 

0 0006 

1 

EXTEND 

REF  388  LAST  1026  7115  7 0156  1 MP  MPAC  +2  MINOR  OF  MPAC  X MINOR  OF  C( ADDRWD) 


REF 

389 

LAST 

10  2 6 

7116 

7117 

56  156 
0 0006 

0 

1 

XCH 

EXTEND 

MPAC  +2 

DISCARD  MINOR  PART 
FORM  MAJOR  OF  MPAC 

OF  ABOVE  RESULT  AND 
X MINOR  OF  C( ADDRWD) . 

REF 

i 9 C 

LAST 

10  2 6 

7120 

7 0154 

0 

MP 

MPAC 

REF 

391 

LAST 

102  6 

7121 

20  156 

1 

DAS 

MPAC  +1 

GUAR ANTEFD  NO  OVERFLOW. 

REF 

54 

LAST 

1026 

7122 

50  116 

1 

INDEX 

ADDRWD 

GET  MAJOR  PART  OF 

ARGUMENT  AT  C( ADDRWD). 

7123 

3 0000 

1 

CA 

0 

REF 

10 

LAST 

10  2 6 

7 124 

56  135 

0 

-XCH 

MPTEMP 

SAVE  AND  BRING  OUT 

MINOR  OF  MPAC. 

7125 

0 0006 

1 DMPSUB2 

EXTEND 

REF 

11 

LAST 

10  2 6 

7126 

7 0135 

1 

MP 

MPTF  MP 

MAJOR  OF  C ( ADDRWD ) 

X MINOR  OF  MPAC. 

REF  392  LAST  1026  77127  20  156  1 DAS  MPAC  tl  ACCUMULATE,  SETTING  A TO.  NET  OVERFLOW. 


REF 

353 

LAST 

10  2 6 

7130 

7131 

56  154 
0 0006 

1 

4 

XCH 

EXTEND 

MPAC 

SETTING  MPAC 

TO  0 OR  +-1. 

REF 

12 

LAST 

1026 

7132 

7 0135 

1 

MP 

MPTEMP 

MAJOR  OF  MPAC 

X MAJOR  OF  C(ADDRWD). 

REF 

394 

LAST 

1026 

7 133 

20  155 

I 

DAS 

MPAC 

GUARANTEED  NO 

OVERFLOW . 

RFF 

2 58 

LAST 

10  2 6 

7134 

0 0002 

0 

TC 

Q 

49  MCT  = . 573 

MS.  INCLUDING  RETURN. 

GAP 
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L 

INTERPRETER 

USER ' S PAGE  NO.  31 

E3 

S3 

P074I 

RCUNC 

l MP  AC 

TO  DOUBLE 

PRECISION 

, SETTING 

OVEIND 

ON  THE  RARE 

EVENT  OF  OVERFLOW. 

IQ  7 (y 

7 s 

^ 4755 

1 

RDUNDSUR 

CAF 

7 FR  0 

SET  MPAC  +2=0  FOR  SCALARS 

AND 

CHANGE 

0743 

0744 

REF 

24 

LAST 

1016 

7136 

54  163 

1 

+i 

TS 

MODE 

MODE  TO  DP. 

7 137 

66  166 

o 

URfUiMn 

xr  h 

MPAC  -*-2 

BUT  WE  NEE ONT  TAKE  THE  TIME 

FOR 

VECTORS. 

0745 

0746 

7140 

6 0000 

1 

DOUBLE 

0747 

REF 

175 

LAST 

1023 

7 141 

54  001 

1 

TS 

L 

R FF 

? 59 

{ AST 

102  6 

7142 

0 0002 

0 

TC 

0 

0749 

REF 

396 

LAST 

1027 

7143 

6 0155 

0 

AD 

MPAC  +1 

ADD  ROUNDING  BIT  IF  MPAC  +2 

WAS 

GREATER 

0750 

RFF 

} 97 

1 AST 

102  7 

7 144 

54  155 

1 

TS 

MPAC  +1 

THAN  .5  IN  MAGNITUDE. 

0751 

REF 

260 

LAST 

10  2 7 

7145 

0 0002 

0 

TC 

0 

07  52 

REF 

LAST 

10  2 7 

7 146 

6 0 154 

1 

AO 

MPAC 

PROPAGATF  INTERFLOW. 

0753 

REF 

399 

LAST 

102  7 

7147 

54  154 

0 

TS 

MPAC 

0754 

REF 

261 

LAST 

10  2 7 

7150 

0 0002 

0 

TC 

0 

0755 

REF 

2 

LAST 

8 16 

7151 

54  121 

1 

SET0VF2 

TS 

OVF IND 

( RARE) . 

0756 

REF 

262 

LAST 

1027 

7152 

0 0002 

0 

TC 

Q 

GAP: 

L 

P0757 

R0759 

R0761 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0789 

0790 

0791 

0792 

0793 

0794 

0795 
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INTERPRETER  USER'S  PAGE  NO.  32  E3  S3 

THE  DOT  PRODUCT  SUBROUTINE  USUALLY  FORMS  THE  DOT  PRODUCT  OF  THE  VECTOR  IN  MPAC  WITH  A STANDARD  SIX 
REGISTER  VECTOR  WHOSE  ADDRESS  IS  IN  ADDRWD.  IN  THIS  CASE  C(DCTINC)  AR F SET  TO  2.  VXM,  HOWEVER,  SETS  CIDOTINC)  TO 
6 SO  THAT  COTSUB  DOTS  MPAC  WITH  A COLUMN  VECTOR  OF  THE  MATRIX  IN  QUESTION  IN  THIS  CASE. 


net 

4 A 

« ACT 

Q Q 1 

7 I Cl 

3 47  52 

0 

PREOOT 

CAF 

T WO 

PROLOGUE  TO  SET  DOTINC  TO  2. 

Her 

REF 

c H 

4 

L/Jj  1 

LAST 

77  1 

113 

f 135 

7154 

54  136 

1 

TS 

DOT  I NC 

71  qc: 

0 0006 

1 

DOT  SUB 

EXTEND 

REF 

5 

LAST 

1 1 3 

f 1 j -> 

7156 

U uuuu 

22  137 

1 

OXCH 

DDTRET 

SAVE  RETURN. 

REF 

1 

7 157 

0 7106 

1 

TC 

DMPSUB 

DOT  X COMPONENTS. 

REF 

400 

LAST 

102  7 

7 160 

52  1 60 

1 

-DXCH 

MPAC  +3 

POSITION  Y COMPONENT  OF  MPAC  FOR 

REF 

4C1 

LAST 

10  2 8 

7161 

52  155 

1 

DXCH 

MPAC 

MULTIPLICATION  WHILE  SAVING  RESULT  IN 

REF 

67 

LAST 

102  3 

7 162 

52  131 

0 

DXCH 

BUF 

THREE  WORD  BUFFER,  BUF. 

REF 

402 

LAST 

102  8 

7 163 

3 0156 

0 

CA 

MPAC  +2 

REF 

68 

LAST 

102  8 

7164 

54  132 

0 

TS 

BUF  +2 

REF 

§- 

L AST 

1028 

7165 

3^  0136 

o 

CA 

DOT  I NG 

ADVANCE  ADDRWD  TO  Y COMPONENT  OF 

REF 

55 

LAST 

10  2 6 

7166 

26  116 

0 

ADS 

ADDRWD 

OTHER  ARGUMENT. 

REF 

2 

LAST 

102  8 

7 167 

0 7106 

1 

TC 

DMPSUB 

REF 

403 

LAST 

10  2 8 

7 170 

52  1 56 

1 

DXCH 

MPAC  +1 

ACCUMULATE  PARTIAL  PRODUCTS. 

RFF 

69 

LAST 

102  8 

7171 

20  132 

0 

DAS 

PUF  +1 

REF 

404 

LAST 

10?  8 

7172 

6 0154 

1 

AO 

MPAC 

RET 

70 

LAST 

102  8 

7173 

6 01  30 

0 

AD 

BUF 

REF 

71 

LAST 

102  8 

7174 

54  130 

l 

TS 

BUF 

7 175 

1 7177 

0 

TC  F 

+ 2 

REF 3 CA^T  102  7 7176  54  121  1 TS  OVFIND  IF  OVERFLOW  OCCURS. 


REF 

405 

LAST 

102  8 

7177 

5 2 162 

0 

DXCH 

MPAC  +5 

MULTIPLY  Z COMPONENTS. 

REF 

406 

LAST 

102  8 

7 200 

52  155 

1 

DXCH 

MPAC 

REF 

6 

LAST 

102  8 

7201 

3 0136 

0 

CA 

DOT  I NC 

REF 

56 

LAST 

102  8 

7 202 

26  116 

0 

ADS 

ADDRWD 

REF 

3— 

LAST 

10  2 8 

7 203 

Q 7106 

1 

TC 

DMP  S UB 

REF 

72 

LAST 

102  8 

7204 

52  132 

0 ENDDOT 

DXCH 

BUF  +1 

LEAVE  FINAL  ACCUMULATION  IN  MPAC. 

REF 

407 

LAST 

102  8 

7205 

20  156 

1 

DAS 

MPAC  +1 

REE 

408 

LAST 

102  8 

7206 

6 0154 

1 

AD 

MPAC 

REF 

73 

LAST 

102  8 

7207 

6 0130 

0 

AD 

BUF 

REF 

409 

LAST 

102  8 

7210 

54  154 

0 

TS 

MPAC 

REF  6 LAST  1028  7211  0 0137  1 TC  DOTFFT 


REF 

2 

LAST 

10  2 2 

7212 

0 

7016  1 

TC 

OVFR  FLOW 

ON  OVERFLOW  HFRE. 

REF 

7 

LAST 

102  8 

7213 

0 

0137  1 

TC 

DOTP.ET 

GAP 
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L INTERPRETER 

P0796  DOUBLE  PRECISION  POLYNOMIAL  EVALUATOR 


USER'S  PAGE  NO.  33  E3  S3 


R 0797 
R0798 

THIS  ROUTINE 

N 

EVALUATES  A X 

+ 

N— 1 

A X 

+ . . . + 

A X + A 

LEAVING  THE  DP  RESULT  IN  MPAC 

ON  EXIT. 

R0800 

N 

N— 1 

1 0 

R 08  01 

THE 

ROUTINE  HAS  TWO  ENTRIES 

1 CMTftV  TUQI1 

pnURRFR^.  THF 

rnFFFir may  rf  either 

IN  FIXED  OR  FRASABLE,  THE  CALL 

IS  BY 

R0804 

TC  POWRSERS,  AND 

THE  RETURN 

IS  TO  LOCITC  P OWR  SEP  S ) +1 

. THE  ENTERING  DATA  MUST  BF  AS 

FOLLOWS 

A flftHA 

A 

SP 

L 0C-3 

ADDRESS  FOR  REFERENCING 

COEF  TABLE 

A0807 

L 

SP 

N-l 

N IS  THE  DEGREE  OF  THE 

POWER  SERIES 

A0808 

MPAC 

DP 

X 

ARGUMENT 

A0809 

L0C-2N 

DP 

A (0  ) 

A0810 

. • • 

a n r 1 1 

j no 

DP 

AIN) 

R0812 

2.  ENTRY  THRU 

POLY. 

THE  CALL  TO  POLY  AND  THE  ENTERING  DATA  MUST  BE  AS  FOLLOWS 

A0814 

MPAC 

DP 

X 

ARGUMENT 

A Q8 1 R 

i nr 

TC 

POI  Y 

A0816 

LOC  + l 

SP 

N-l 

A0817 

LOC+2 

DP 

A10) 

A0818 

A0819 

L0C+2N+2 

DP 

AIN) 

RETURN  IS  TO  L0C+2N+4 

ORPO 

7 ? ] 4 

n no  06 

4 

PflWRSFR  S 

FXTFND 

0821 

REF 

1 

7215 

22  141 

0 

QXCH 

POLY  RET 

RETURN  ADDRESS 

0822 

REF 

17 

LAST  1019 

7216 

54  117 

1 

TS 

POL  I SH 

POWER  SERIES  ADDRESS 

0823 

REF 

1 

7217 

27  140 

1 

LXCH 

POLYCNT 

N-l  TO  COUNTER 

0824 

REF 

1 

7220 

1 7231 

1 

TC  F 

POLY  COM 

SKIP  SET  UP  BY  POLY 

0825 

REF 

263 

LAST-  102  7 

7221 

50  002 

0 

POL  Y 

I NDEX 

0 

0826 

7222 

3 0000 

i 

CAE 

0 

0827 

REF 

2 

LAST  1029 

7223 

54  140 

0 

TS 

POLYCNT 

N-l  TO  COUNTER 

0828 

7224 

6 0000 

1 

DOUBLF 

0829 

REF 

264 

LAST  1029 

7225 

6 0002 

0 

AD 

Q 

0830 

REF 

18 

LAST  1029 

7226 

54  117 

1 

TS 

POL  I SH 

L I AIN)  1-3  TO  POLISH 

0831 

REF 

20 

LAST  1023 

7227 

6 4756 

1 

AO 

F IVE 

0832 

REF 

2 

LAST  1029 

7230 

54  141 

1 

TS 

POLYRET 

STORE  RETURN  ADDRFSS 

0833 

REF 

1 

7 231 

3 62  72 

o 

POLYCOM 

CAF 

L VBU  F 

T NJf  DM  T MO  X WTM  RF  MOVFD  TO  V RIJF  , SR 

0834 

REF 

57 

LAST  1028 

7232 

54  116 

0 

TS 

A DDR  WD 

SET  AODRWD  SO  DMPSUB  WILL  MPY  BY  VBUF. 

0835 

7233 

0 0006 

1 

EXTEND 

0836 

RFF 

19 

LAST  1029 

7234 

5 0117 

0 

INDEX 

POI I SH 

0837 

7235 

3 0004 

0 

DC  A 

3 
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GAP: 

L INTERPRETER 


0838 

REF 

410 

LAST 

10  2 8 

7236 

52 

155  l 

DXCH 

MPAC 

0839 

REF 

35 

LAST 

1005 

7237 

52 

123  0 

DXCH 

VBUF 

0840  1 7-240  1 7244  0 TCF  POLY 2 


0841 

REF 

3 

LAST 

102  9 

7 241 

54  140 

0 

POLYLOOP 

TS 

POLYCNT 

08-42 

REF 

65 

LAST 

10  2 8 

7 242 

4 4752 

1 

cs 

T W3 

0843 

REF 

20 

LAST 

1029 

7243 

26  117 

1 

ADS 

POL  I SH 

QCC 

4. 

10  2 8 

7 244 

0 71 06 

T 

POL  Y2 

TC 

DMP  S UB 

WOtH 

0845 

t\cr 

L Hj  ‘ 

7245 

0 0006 

1 

EXTEND 

0846 

REF 

21 

LAST 

1030 

7246 

5 0117 

0 

INDEX 

POL  I SH 

0847 

7247 

3 0002 

0 

DCA_ 

1 

0848 

REF 

All 

LAST 

10  3 C 

7250 

20  155 

1 

DAS 

MPAC 

0849 

RF  F 

4 

LAST 

10  3 0 

7 251 

10  140 

o 

CCS 

POLYCNT 

0850 

REF 

1 

7252 

1 7241 

0 

TCF 

POLY  LOOP 

0851 

REF 

3 

LAST 

1029 

7253 

0 0141 

0 

TC 

PCLYRET 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1030 

USER'S  PAGE  NO.  34  E3  S3 

LOAD  AIN)  INTO  MPAC, 

SAVING  X IN  VBUF 

SAVE  DECREMENTED  LOOP  COUNTER 
REGRESS  COEFFICIENT  POINTER 
MULTIPLY  BY  X 

ADD  IN  NEXT  COEFFICIENT 

USERS  RESPONSIBILITY  TO  ASSURE  NO  OVFLOW 


RETURN  CALLER 


GAP 
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L INTERPRETER 


P0852 

M ISCELLANEOUS 

MULTI - 

PRECISION 

ROUT INES 

REQUIRED  IN  FIXED- 

085398  REF 

184 

CAST 

102  7 

7254 

3 4755 

-7- 

DPAGREE 

CAE 

ZERO 

085399  REF 

412 

LAST 

1030 

7255 

54  156 

1 

TS 

MPAC  +2 

fJQ  CLS.  OCP 

2 65 

LAST 

102  9 

7256 

22  002 

0 

TP AGREE 

LX  CH 

Q 

U O ('Ll 

0855  REF 

4 

LAST 

888 

7257 

0 6722 

0 

re 

BRANCH 

0856  REF 

1 

7260 

1 72  64 

1 

TCF 

ARG  + 

-0857 R-6E 1 7261  1 7304  0 TCP  ARGZERO 


0858 

REF 

21 

LAST 

919 

7262 

4 4733 

0 

CS 

POSMAX 

0A59 

7263 

1 72  65 

0 

TCF 

-1-2 

0860 

REF 

22 

LAST 

103  1 

7264 

3 4733 

1 

ARG  + 

CAF 

POSMAX 

0«  A1 

REF 

266 

LAST 

] o 1 1 

7 ?65 

54  002 

1 

TS 

Q 

0862 

7266 

0 0006 

1 

EXTEND 

0863 

REF 

335 

LAST 

10  2 3 

7267 

24  000 

1 

AUG 

A 

0864 

REF 

4 13 

LAST 

103  1 

7270 

6 0156 

0 

AD 

MPAC 

+2 

0865 

REF 

4 14 

LAST 

10  3 1 

7271 

54  156 

1 

TS 

MPAC 

+2 

0866 

REF 

185 

LAST 

103  1 

7272 

3 4755 

1 

CAF 

ZERO 

0867 

REF 

26  7 

LAST 

103  1 

7273 

6 0002 

0 

AD 

Q 

0868 

REF 

415 

LAST 

10  3 1 

7274 

6 0155 

0 

AD 

MPAC 

+ 1 

0869 

REF 

416 

LAST 

10  3 1 

7275 

54  155 

1 

TS 

MPAC 

+ 1 

0870 

REF 

186 

LAST 

10  3 1 

7276 

3 4755 

1 

CAF 

ZFRO 

0871 

REF 

2 68 

LAST 

10  3 1 

7277 

6 0002 

0 

AD 

Q 

0872 

REF 

4 17 

LAST 

103  1 

7300 

6 0154 

1 

AD 

MPAC 

0873 

REF- 

4 18 

LAST 

103  1 

7301 

54  154 

0 

ARGZFR02 

TS 

MPAC 

0874 

REF 

419 

LAST 

103  1 

7302 

54  155 

1 

TS 

MPAC 

+ 1 

0875 

REF 

176 

LAST 

102  7 

7 303 

0 0001 

0 

TC 

L 

0876 

REF 

420 

LAST 

10  3 1 

7 304 

54  156 

l 

ARGZERO 

TS 

MPAC 

+2 

0877 

REF 

1 

7305 

1 7301 

0 

TCF 

ARGZER02 

R0878 

SHORTMP  MULTIPLIES  THE  TP  CONTENTS  OF  MPAC  BY 

THE  SINGLE 

0880 

REF 

13 

IASI 

1076 

7^06 

54  115 

1 

SHORTMP 

TS 

MPTFMP 

0881 

7307 

0 0006 

1 

EXTEND 

0882 

REF 

421 

LAST 

10  3 1 

7310 

7 0156 

1 

MP 

MPAC 

+2 

0883 

RFF  ■ 

422 

LAST 

103  1 

731 1 

54  156 

1 

TS 

MPAC 

+ 2 

0884 

REF 

187 

LAST 

103  1 

7312 

3 4755 

1 

SH0RTMP2 

CAF 

ZERO 

0885 

REF  423 

LAST 

103  1 

7313 

56  155 

0 

XCH 

MPAC 

+ 1 

0886 

-REF 

J 

7314 

1 7125 

J 

TCF 

DMPS  UB2 
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USER'S  PAGE  NO.  35  F3  S3 

FIXED  BUT  NOT  USED  BY  THE  INTERPRETER. 

DOUBLE  PRECISION  ENTRY  - 
ZERO  LOW-ORDER  WORD 

FORCE  SIGN  AGREEMENT  AMONG  THE  TRIPLE 
PRECISION  CONTENTS  OF  MP4C.  RETURNING 
WITH  SIGNUM  OF  THE  INPUT  IN  A. 


IF  NEGATIVE. 


FORMS  +-1.0. 


0 STILL  HAS  POSMAX  OR  NEGMAX  IN  IT. 
ALWAYS  SKIPPING  UNLESS  ARGZERO. 

RETURN  VIA  L. 

SET  ALL  THREE  MPAC  REGISTERS  TO  ZFRO. 

PRECISION  NUMBER  ARRIVING  IN  A. 


SO  SUBSEQUENT  DAS  WILL  WORK 


GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202III2-011 
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L INTERPRETER 


USER'S  PAGE  NO.  36  E3  S3 


P0887  DMPNSUB  MULTIPLIES  THE  DP  FR ACT  I CN  ARRIVING  IN  MPAC  BY  THE  SP 

R0888  INTEGER  ARRIVING  IN  A.  THE  DP  PRODUCT  DEPARTS  BOTH  IN  MPAC  AND  IN 

R0889  A AND  L.  NOTE  THAT  DMPNSUB  NORMALLY  INCREASES  THE  MAGNITUDE  OF  THE 

R0890  CONTENTS  OF  MPAC.  THE  CUSTOMER  MUST  INSURE  THAT  B( A ) X B I MP AC , MP AC+ 1 > 

R0891  AND  8(A)  X BIMPACI  ARE  LESS  THAN  1 IN  MAGNITUDE,  WHERE  B,  AS  IS  OBVIOUS, 

R0892  INDICATES  THE  AR R IV  I NG  CONTENTS  . 


0893 

0894 

REF 

1 

7315 

7316 

54  135 
0 0006 

1 

DMPNSUB  TS 

EXTEND 

DMPNTFMP 

0895 

REF 

424 

LAST 

10  3 1 

7317 

7 0155 

1 

MP 

MPAC  +1 

0896 

REF 

425 

LAST 

1032 

7320 

52  155 

1 

DXCH 

MPAC 

LOW  PRODUCT  TO  MPAC, 

HIGH 

FACT! 

0897 

7321 

0 0006 

1 

EXTEND 

0898 

REF 

2 

LAST 

10  3 2 

7322 

7 0135 

1 

MP 

DMPN  TEMP 

0899 

REF 

177 

LAST 

10  3 1 

7323 

3 0001 

0 

CA 

L 

0900 

REF- 

426 

LAST 

1032 

7324 

26  154 

0 

ADS 

MPAC 

COMPLETING  THE  PRODUCT  IN 

MPAC 

0901 

7325 

0 0006 

1 

EXTEND 

0902 

REF 

427 

LAST 

1032 

7326 

3 0155 

0 

DC  A 

MPAC 

BRINGING  THE  PRODUCT 

INTO 

A ANI 

0903 

RE3= 

269 

LAST 

10  31 

7 327 

0 0002 

0 

TC 

Q 

GAP: 

L 

P0904 

R0905 

R0906 

R0907 

R0908 

R0909 

R0910 

R0911 


0912 

0913 

0914 


0915 

0916 

0917 

0918 

0919 

0920 
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INTERPRETER  USER'S  PAGE  NO.  37  E3  S3 

MISCELLANEOUS  VECTOR  OPERATIONS.  INCLUDED  HERE  ARE  THE  FOLLOWING: 

1.  DOT  DP  VECTOR  DOT  PRODUCT. 

2.  VXV  DP  VECTOR  CROSS  PRODUCT. 

3.  VXSC  DP  VECTOR  TIMES  SCALAR. 

4.  V/ SC  DP  VECTOR  DIVIDED  BY  SCALAR. 

5.  v PRO J DP  VECTOR  PROJECTION.  ( (MPAC.X)MPAC  ). 

6.  VXM  DP  VECTOR  POST-MULTIPLIED  BY  MATRIX. 

7.  M XV  DP  VECTOR  P RE-MULTI  PL  I ED  BY  MATRIX. 


DCC 

7330 

_ o 

7153 

_4_ 

DOT 

TC 

P RE  DOT 

DO  THF  DOT  PRODUCT  AND  EXIT. 

CHANGING 

r\  c r 

REF 

188 

LAST 

1031 

7331 

3 

4755 

1 

DMODE 

CAF 

ZERO 

THE  MODE  TO  DP  SCALAR. 

REF 

3 

LAST 

101  4 

7332 

1 

6057 

1 

TC  F 

NEWMODE 

REF 

66 

LAST 

1030 

7333 

3 

4752 

0 

MXV 

CAF 

TWO 

SET  UP  MAT  INC  AND  DOTING 

FOR 

ROW 

REF 

6 

LAST 

114 

7334 

54 

140 

_Q_ 

TS 

MAT 1 NC 

VECTORS. 

REF 

1 

7335 

1 

73  4 1 

1 

TC  F 

V XM/ MXV 

GO  TO  COMMON  PORTION. 

REF 

7 

L A s T 

80  5 

7 336 

4 

4363 

1 

VXM 

cs 

TEN 

SET  MATINC  AND  DOTINC  TO 

REFER  TO  MATRIX 

REF 

7 

LAST 

10  3 3 

7337 

54 

140 

0 

TS 

MAT  I NC 

AS  THREE  COLUMN  VECTORS. 

REF 

20 

LAST 

889 

7 340 

3 

6241 

0 

CAF 

SIX 

GAP  : 

L 

P0921 

0922 

R0923 

0924 

0925 

0926 

092  7 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 
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I NTERPRETER  USER'S  PAGE  NO.  38  E3  S3 


COMMON  P CRT  I ON  OF  MXV  AND  VXM. 


REF 

1- 

LAST 

10  2 8 

7341 

54  136 

1 VXM/MXV 

— T-S- 

DOT  I NC 

I TRACE  (2) 

REFERS  TO 

"VXM/MXV". 

REF 

2 

LAST 

612 

7 342 

0 7531 

1 

TC 

MPAC VBUF 

SAVE  VECTOR  IN  MPAC  FOR  FURTHER  USE. 

REF 

1 

7343 

0 7155 

1 

TC 

DOTSUB 

GO  DOT  TO  GET  X COMPONENT  OF  ANSWER. 

7 344 

0 0006 

1 

EXTEND 

REP 

16 

L AST 

10  3 C 

7345 

3 0123 

1 

DC  A 

VBUF 

MOVE  MPAC  VECTOR  BACK  INTO  MPAC,  SAVING 

REF 

428 

LAST 

10  3 2 

7 346 

52  155 

1 

DXCH 

MPAC 

NEW  X COMPONENT  IN  BUF 2 . 

REF 

14 

LAST 

994 

7347 

52  134 

0 

DXCH 

BUF2 

7350 

0 0006 

1 

EXTEND 

REF 

37 

LAST 

10  3 4 

7351 

3 0125 

1 

DC  A 

VBUF  +2 

REF 

429 

LAST 

1034 

7352 

52  160 

1 

DXCH 

MPAC  +3 

7 36  3 

0 0006 

1 

EXTEND 

REF 

38 

LAST 

1034 

7354 

3 0127 

0 

DC  A 

VBUF  +4 

REF 

430 

LAST 

1034 

7355 

52  162 

0 

DXCH 

MPAC  +5 

REF 

8 

\ AST 

10  T T 

7356 

3 0140 

1 

CA 

MAT  I NC 

INITIALIZE  ADDRWD  FOR  NEXT  DOT  PROOUCT. 

REF 

58 

LAST 

102  9 

7357 

26  116 

0 

ADS 

A DDR  WD 

FORMS  BASE  ADDRESS  OF  NEXT  COLUMN(ROW). 

REF 

o 

LAST 

10  3 4 

7 360 

0 71^ 

l 

Tf 

n p.t  s i ir 

REF 

39 

LAST 

10  3 4 

7361 

52  123 

0 

DXCH 

VBUF 

MOVE  GIVEN  VECTOR  BACK  TO  MPAC,  SAVING  Y 

REF 

431 

LAST 

10  3 4 

7362 

52  155 

1 

DXCH 

MPAC 

COMPONENT  OF  ANSWER  IN  VBUF  +2. 

REF 

40 

LAST 

103  4 

7363 

52  125 

0 

DXCH 

VBUF  +2 

REF 

432 

LAST 

1034 

7364 

52  160 

1 

DXCH 

MPAC  +3 

REF 

41 

LAST 

1034 

7365 

52  127 

1 

DXCH 

VBUF  +4 

REF 

433 

LAST 

10  3 4 

7366 

52  162 

0 

DXCH 

MPAC  +5 

REF 

9 

LAST 

10  3 4 

7367 

3 0140 

I 

CA 

MATI NC 

FORM  ADDRESS  OF  LAST  COLUMN  OR  ROW. 

REF 

59 

LAST 

1034 

7370 

26  116 

0 

ADS 

A DDR  WD 

REF 

3 

LAST 

10  3 4 

7371 

0 7155 

1 

TC 

DOTSUB 

REF 

15 

LAST 

1034 

7372 

52  134 

0 

DXCH 

BUF2 

ANSWER  NOW  COMPLETF.  PUT  COMPONENTS  INTO 

RFF 

434 

L AST 

1034 

7373 

52  155 

1 

DXCH 

MPAC 

PROPFR  MPAC  REGISTFRS. 

REF 

435 

LAST 

1034 

7374 

52  162 

0 

DXCH 

MPAC  +5 

REF 

42 

LAST 

1034 

7375 

52  125 

0 

DXCH 

VBUF  +2 

REF 

4 36 

LAST 

1034 

7376 

52  160 

1 

DXCH 

MPAC  +3 

REF 

13 

LAST 

102  5 

7377 

1 6060 

0 

TCF 

DAN7  IG 

EXIT. 

Gap 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L INTERPRETER 


P0954 

VXSC 

- VECTOR 

TI  MES 

SCALAR. 

p PP 

LAST 

IQ  2 1 

7400 

10  163 

_j__ 

VXSC 

CCS 

MODE 

0955 

0956 

Ktr 

REF 

C J 

i 

7401 

1 7427 

0 

TCF 

DVXSC 

0957 

REF 

2 

LAST 

103  5 

7402 

1 7427 

0 

TCF 

DVXSC 

0958 

REF 

5 

LAST 

10  3 0 

7403 

0 7106 

l 

vvxsc 

TC 

DMPS  UB 

0959 

REF 

1 

7404 

0 7137 

0 

TC 

VROUND 

0960 

REF 

437 

LAST 

10  3 4 

7 405 

-52  160 

_L_ 

DXCH 

MPAC  +3 

0961 

REF 

438 

LAST 

103  5 

7406 

52  155 

1 

DXCH 

MPAC 

0962 

REF 

439 

LAST 

10  3 5 

7407 

52  160 

1 

DXCH 

MPAC  +3 

0963 

REF 

6 

LAST 

10  3 5 

7410 

0 7106 

1 

TC 

DMPSUB 

0964 

REF 

2 

LAST 

10  3 5 

7411 

0 7137 

0 

TC 

VRDUND 

0965 

REF 

440 

LAST 

103  5 

741 2 

52  162 

a - 

DXCH 

MPAC  +5 

0966 

REF 

441 

LAST 

10  3 5 

7413 

52  155 

l 

DXCH 

MPAC 

0967 

REF 

442 

LAST 

10  3 5 

7414 

52  162 

0 

DXCH 

MPAC  +5 

0968 

REF 

7 

LAST 

1035 

7415 

0 7106 

l 

TC 

OMPSUB 

0969 

REF 

3 

LAST 

10  3 5 

7416 

0 7137 

0 

TC 

VROUND 

0970 

REF 

443 

LAST 

103  5 

741 7 

52  155 

-L— 

VROTATEX 

DXCH 

MPAC 

0971 

REF 

444 

LAST 

103  5 

7420 

5 2 162 

0 

DXCH 

MPAC  +5 

0972 

REF 

445 

LAST 

103  5 

7421 

52  160 

1 

DXCH 

MPAC  +3 

0973 

REF 

446 

LAST 

10  3 5 

7422 

52  155 

1 

DXCH 

MPAC 

0974 

REF 

14 

LAST 

1034 

7423 

1 6060 

0 

TCF 

DANZ IG 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1035 


USER' S PAGE  NO.  39  E3  S3 


TEST  PRESENT  MODE. 

SEPARATE  ROUTINE  WHEN  SCALAR  IS  IN  MPAC. 


COMPUTE  X COMPONENT 
AND  ROUND  IT. 

PUT  Y COMPONENT  INTO  MPAC  SAVING  MPAC  IN 
MPAC  +3. 


DO  SAME  FOR  Y AND  Z COMPONENTS. 


EXIT  USED  TO  RESTORE  MPAC  AFTER  THIS 
TYPE  OF  ROTATION.  CALLED  BY  VECTOR  SHIFT 
RIGHT,  V/SC,  FTC. 


GAP:  ASSEMBLE- REV  IS  ION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L INTERPRETER 


P0975 

no7L 

ore 

DP  VECTOR 

1 ACT  1099 

PROJECTION 

7424 

ROUT INE 
0 7153 

j 

VPROJ  TC 

P RE  D CT 

U V f o 
0977 

Kfcr 

REF 



22 

LHJ  1 

LAST 

919 

7425 

4 4751 

1 

CS 

FOUR 

0978 

REF 

60 

LAST 

1034 

7426 

26  1 16 

0 

ADS 

ADDRWD 

R0979 

VXSC 

WHEN 

SCALAR  ARRIVES  IN 

MPAC  AND  VECTOR  IS 

AT  X. 

740  7 

n non  a 

nvx  sr  FX  TFN  O 

0980 

1 *TC.  1 

\J  Uv  UO 

0981 

REF 

447 

LAST 

103  5 

7430 

3 0155 

0 

DC  A 

MPAC 

0982 

REF 

448 

LAST 

1036 

7431 

52  160 

1 

DXCH 

MPAC  +3 

0983 

REF 

8 

LAST 

10  3 5 

7432 

0 7106 

_1_ 

TC 

DMPSUB 

0984 

REF 

4 

LAST 

103  5 

7433 

0 7137 

0 

TC 

V ROUND 

flQOC 

nrr 

A ~7 

i act 

10  3 3 

7 434 

3 47  52 

o 

C AF 

TWO 

Ktr 

C f 

L 6*  -J  I 

0986 

REF 

61 

LAST 

1036 

7435 

26  1 16 

0 

ADS 

ADDP WD 

0987 

7436 

0 0006 

1 

EXTEND 

0988 

REF 

4 49 

LAST 

1036 

7 437 

3 0160 

0 

DC  A 

MPAC  +3 

0989 

REF 

450 

LAST 

1036 

7440 

52  155 

1 

DXCH 

MPAC 

0990 

REF 

451 

LAST 

1036 

7441 

52  162 

0 

DXCH 

MPAC  +5 

099 1 

REF 

9 

LAST 

10  3 6 

7442 

0 7106 

1 

TC 

DMPSUB 

0992 

REF 

5 

LAST 

10  3 6 

7443 

0 7137 

0 

TC 

VROUND 

(\Q  Q -X 

pep 

A fl 

1 ACT 

1A1A 

7 444 

3 47  52 

o 

CAF 

TWO 

LTV  V o 

Ktr 

C O 

LHJ  1 

1U  J o 

0994 

REF 

62 

LAST 

1036 

7445 

26  1 16 

0 

ADS 

ADDR WD 

0995 

REF 

452 

LAST 

10  3 6 

7446 

52  160 

1 

DXCH 

MPAC  +3 

0996 

REF 

4 53 

LAST 

103-6 

7447 

52  15  5 

1 

DXCH 

MPAC 

0997 

REF 

454 

LAST 

10  3 6 

7450 

52  160 

l 

DXCH 

MPAC  +3 

0998 

REF 

10 

LAST 

1036 

7451 

0 7106 

1 

TC 

DMPSUB 

0999  REF  6 LAST  1014  7452  0 7137  0 TC  VROUNO 


1000 

REF 

455 

LAST 

10  3 6 

7453 

52  155 

1 

DXCH 

MPAC 

l no  i 

REF 

4 56 

| AST 

10T6 

7454 

5?  16? 

o 

DXCH 

MPAC  +5 

1002 

REF 

457 

LAST 

10  3 6 

7455 

52  155 

1 

DXCH 

MPAC 

1003 

REF 

ir- 

7456 

1 6520 

1 

TC  F 

VMODE 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1036 


USER'S  PAGE  NO.  AO  E3  S3 


( HP AC . X > MP AC  IS  COMPUTED  AND  LEFT  IN 
MPAC.  DO  DOT  AND  FALL  INTO  DVXSC. 


SAVE  SCALAR  IN  MPAC  +3  AND  GET  X 
COMPONENT  OF  ANSWER. 


ADVANCE  ADDRWD  TO  Y COMPONENT  OR  X. 


PUT  SCALAR  BACK.  INTO  MPAC  AND  SAVE 
X RESULT  IN  MPAC  +5. 


TO  Z COMPONENT. 

BRING  SCALAR  BACK,  PUTTING  Y RESULT  IN 
THE  PROPER  PLACE. 


PUT  Z COMPONENT  IN  PROPER  PLACE,  ALSO 
POSITIONING  X. 


MODE  HAS  CHANGED  TO  VECTOR. 


GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  202-1112-011 
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L INTERPRETER  USER'S  PAGE  NO.  41  E3  S3 

P1004  THE  VECTOR  CROSS  PRODUCT  ROUTINE  CALCULATES  I X M - X M , X M -X  M , X M -X  M ) WHERE  M IS  THE  VECTOR  IN 

R 1006  32  23  13  31  21  12 

R1008  MPAC  AND  X THE  VECTOR  AT  THE  GIVEN  ADDRESS. 


1009 

1010 

REF 

458 

LAST 

1036 

7452 

7460 

0 0006 
3 0162 

-1  VXV 
1 

EXTEND 
DC  A 

MPAC  +5 

FORM  UP  M 3 X 1 , LEAVING  Ml  IN  VBUF. 

1011 

REF 

459 

LAST 

103  7 

7461 

52  155 

1 

DXCH 

MPAC 

1012 

REF 

43 

LAST 

103  4 

7462 

52  123 

0 

DXCH 

VBUF 

1013 

REF 

11 

LAST 

1036 

7463 

0 7106 

1 

TC 

DMPSUB 

BY  XI  . 

10 14 

74*v4 

o no oa 

x 

F X TFND 

1015 

REF 

460 

LAST 

1037 

7465 

4 0160 

I 

DCS 

MPAC  +3 

CALCULATE  -XIM2,  SAVING  X1M3  IN  VBUF  +2. 

1016 

REF 

461 

LAST 

10  3 7 

7 466 

52  155 

1 

DXCH 

MPAC 

in  17 

RFF 

44 

| AST 

10  3 7 

7 467 

5 2 125 

o 

DXCH 

VBUF  +2 

1018 

REF 

12 

LAST 

1037 

7470 

0 7106 

1 

TC 

DMPSUB 

1 o ]Q 

RFF 

6 9 

| AST 

103  6 

7 47  1 

3 4752 

o 

CAF 

TWO 

ADVANCE  ADDRWD  TO  X2. 

1020 

REF 

63 

LAST 

10  3 6 

7472 

26  1 16 

0 

ADS 

A DDR  WD 

1021 

7473 

0 0006 

1 

EXTEND 

102  2 

RFF 

462 

LAST 

103  7 

7474 

4 0162 

0 

DCS 

MPAC  +5 

PREPARE  TO  GET  -X2M3,  SAVING  -X1M?  IN 

1023 

REF 

463 

LAST 

10  3 7 

7475 

52  155 

1 

DXCH 

MPAC 

MPAC  +5. 

1024 

REF 

464 

LAST 

10  3 7 

7476 

5 2 162 

0 

DXCH 

MPAC  +5 

1025  RFF  13  LAST  1037  7477  0 7106  1 TC  DMPSUB 


1026 

1027 

— REF 

45 

LAST 

10  3 7 

7500 

7501 

0 0006 
3 0123 

1 

1 

EXTEND 
DC  A 

VBUF 

GET  X2M1 , SAVING  -X2M3  IN  VBUF  +4. 

1028 

REF 

465 

LAST 

103  7 

7502 

52  155 

1 

DXCH 

MPAC 

1029 

REF 

46 

LAST 

103  7 

7503 

52  127 

1 

DXCH 

VBUF  +4 

1QBQ  REF  14  -LAST  103  7-  7504  0 7106  1 TC  DMPSUB 


1031 

1032 

REF 

RFF 

70 

64 

LAST 

LAST 

10  3 7 
1Q3-7- 

7505 

7506 

3 47  52 
26  116 

0 

71 

CAF 

ADS 

TWO 

Annp  wn 

ADVANCE  ADDRWD  TO  X3. 

1033 

7507 

0 0006 

1 

EXTEND 

1034 

REF 

47 

LAST 

1037 

7510 

4 0123 

0 

DCS 

VBUF 

GET  -X3M1 , ADDING  X2M1  TO  MPAC  +5  TO 

10  35 

REF 

466 

LAST 

10B7 

7511 

52  155 

1 

DXCH 

w P A C 

COMPLFTE  THE  Z COMPONENT  OF  THE  ANSWER. 

1036 

REF 

467 

LAST 

103  7 

7512 

20  162 

0 

DAS 

MPAC  +5 

1037 

7 51 3 

0 0006 

1 

F Y TFMD 

1038 

7514 

1 7516 

c 

BZF  ' 

+2 

1039 

REF 

3 

LAST 

10  2 3 

7515 

0 7010 

1 

TC 

OVER  FL  WZ 

1040 

REF 

15 

LAST 

103  7 

7516 

0 7106 

1 

TC 

DMPSUB 

1041 

REF 

48 

LAST 

10  3 7 

7517 

52  125 

0 

DXCH 

VBUF  +2 

MOVE  X 1 M3  TO  MPAC  +3  SETTING  UP  FOR  X3M2 

1042 

REF 

468 

LAST 

1037 

7 520 

52  160 

1 

DXCH 

MPAC  +3 

AND  ADD  -X3M1  TO  MPAC  +3  TO  COMPLFTE  THE 

1043 

REF 

469 

LAST 

10  3 7 

7521 

52  155 

1 

OXCH 

MPAC 

Y COMPONENT  OF  THE  RESULT. 

1044 

REF 

470 

LAST 

10  3 7 

7522 

20  160 

1 

DAS 

MPAC  +3 

1045 

1046 


7523  0 0006  1 

7524  1 7526  0 


EXTEND 
BZF  +2 


GAP: 

L 

1047 

1048 

1049 

1050 

R 10  5 1 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

R1063 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

10  77 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 
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REF 

3 

LAST 

10  2 3 

7525 

0 

7013 

1 

TC 
t r 

OVER  FLWV 

DMp  s 1 JR 

REF 

49 

L H 1 

LAST 

10  3 7 

7527 

52 

127 

1 

dxch 

VBUF  +4 

GO  ADO  -X2M3  TO 

X 3M2  TO 

COMPLETF  THE  X 

REF 

4 

LAST 

1024 

7530 

1 

6777 

1 

TCF 

E NO V XV 

COMPONENT  (TAIL 

END  OF 

DAD). 

THE  MPACVBUF  SUBROUTINE  SAVES  THE  VECTOR  IN  MPAC  IN  VBUF  WITHOUT  CLOBBERING  MPAC. 


REF 

471 

LAST  1037 

7531 

7532 

0 00  06 
3 0155 

-1 

0 

MPACVBUF  EXTEND 
DC  A 

MPAC 

CALLED  BY  MXV,  VXM,  AND  UNIT. 

REF 

50 

LAST  1038 

7533 

52  123 

0 

DXCH 

VBUF 

7534 

0 0006 

1 

EXTEND 

REF 

472 

LAST  1038 

7535 

3 0160 

0 

OCA 

MPAC  +3 

REF 

51 

LAST  1038 

7536 

52  125 

0 

DXCH 

VBUF  +2 

7537 

0 00  06 

1 

EXTEND 

REF 

473 

LAST  10  3 8 

7540 

3 0162 

1 

DC  A 

MPAC  +5 

REF 

52 

LAST  1038 

7541 

52  127 

1 

DXCH 

VBUF  +4 

REF 

270 

LAST  10  3 2 

7542 

0 00  02 

n 

TC 

0 

RETURN  TO  CALLER. 

nm  1 Rl  F P R FT  T 

unw  a/irpp 

QniITTWF  ARRT\/F  LITTM  INPUT 

IN  A + L • OUTPUT  IS  l N A + L . 

REF 

336 

LAST  10  3 1 

7 54  3 

10  000 

0 

ALSIGNAG  CCS 

A 

TEST  UPPER  PART. 

R FF 

1 

7 544 

1 7550 

1 

TC  F 

UPPOS 

IT  IS  POSITIVE 

REF 

271 

LAST  1038 

7545 

0 0002 

0 

TC 

0 

ZERO 

REF 

1 

7546 

1 75  60 

1 

TCF 

UPNFG 

NEGATIVE 

REF 

27? 

LAST  1038 

7547 

0 0002 

0 

TC 

0 

ZERO 

REF 

178 

LAST  1032 

7550 

56  001 

0 

UPPOS  XCH 

L 

SAVE  DECREMENTED  UPPER  PART. 

REF 

1C 

LAST  921 

7 551 

6 4736 

1 

AD 

HAL  F 

REF 

11 

LAST  103  8 

7552 

6 47 36 

1 

AD 

HALF 

REF 

337 

LAST  1038 

7553 

54  000 

0 

TS 

A 

SKIPS  ON  OVERFLOW 

7554 

1 7556 

1 

TCF 

+ 2 

REF 

179 

LAST  1038 

7555 

24  001 

0 

INCR 

L 

RESTORE  UPPER  TO  ROIGINAL  VALUE 

REF 

180 

LAST  1038 

7556 

56  001 

0 

XCH 

L 

SWAP  A + L BACK. 

REF 

27  3 

LAST  10  J 8 

7557 

0 0002 

0 

TC 

Q 

REF 

181 

LAST  1038 

7560 

56  001 

0 

UPNEG  XCH 

L 

SAVE  COMPLEMENTED  + DECREMENTED 

REF 

5 

LAST — 921 

7 561 

6 4735 

1 

AD 

NFGM AX 

REF 

7 

LAST  1009 

7562 

6 7746 

0 

AD 

NEGONE 

REF 

338 

LAST  1038 

7563 

54  000 

0 

TS 

A 

7564 

1 7566 

1 

TCF 

+ 2 

DONT  INCREMENT  IF  NO  OVERFLOW. 

REF 

182 

LAST  1038 

7565 

24  001 

0 

INCR 

L 

REF 

183 

LAST  1038 

7566 

56  001 

0 

XCH 

L 

7567 

4 0000 

0 

COM 

MAKE  NEGATIVE  AGAIN. 

REF 

274 

LAST  1038 

7570 

0 0002 

0 

TC 

Q 
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P 1087 

INTERPRETIVE 

INSTRUCTIONS  WHOSE  EXECUTION  CONSISTS  OF  PRINCIPALLY  CALLING  SUBROUTINES. 

n CC 

1 7 

LAST 

10  3 8 

7 571 

7 1 06 

1 

DMP  1 

DMP SUB 

DMP  INSTRUCTION. 

1089 

1090 

Ktr 

REF 

i f 

15 

LAST 

10  3 5 

7572 

1 6060 

0 

TCF 

DANZ  IG 

1 A Q 1 

DEC 

18- 

LAST 

10  3 9 

7 573 

0 7106 

. i 

DWR 

TC 

DMPSUB 

IU  VI 
1092 

tscr 

REF 

1 

7574 

0 7136 

1 

TC 

ROUNDSUB  +1 

(CIA)  = +0 ) . 

1093 

REF 

16 

LAST 

10  3 9 

7575 

1 6060 

0 

TCF 

DANZ  IG 

1094 

7576 

0 0006 

1 

DDV 

EXTEND 

1095 

REF 

65 

LAST 

10  3 7 

7577 

5 0116 

1 

INDEX 

ADDR  WD 

MOVE  DIVIDEND  INTO  BUF. 

1096 

76  00 

3 0001 

0 

DCA 

0 

1097 

REF 

2 

LAST 

1006 

7601 

1 7606 

1 

TCF 

BDDV  +4 

1098 

7602 

0 0006 

-1— 

BDDV 

EXTEND 

MOVE  DIVISOR  INTO  MPAC  SAVING  MPAC,  THE 

1099 

REF 

66 

LAST 

1039 

7603 

5 0116 

1 

INDEX 

A OOP WD 

DIVIDEND,  IN  BUF. 

1100 

7604 

3 0001 

0 

DCA 

0 

1101 

RFF 

4 74 

LAST 

10  3 8 

7605 

52  155 

I 

DXCH 

M PA  C 

1102 

REF 

74 

LAST 

102  8 

7606 

52  131 

0 

+4 

DXCH 

BUF 

1103 

REF 

189 

LAST 

10  3 3 

7607 

3 4755 

1 

CAF 

ZERO 

DIVIDE  ROUTINES  IN  BANK  0. 

-1104 

REF 

—20 

LAST 

10  1 9 

7610 

54  004 

1 

TS 

F BANK 

1105 

REF 

2 

LAST 

824 

761  1 

1 2353 

1 

TCF 

DDV/ BDDV 

1106 

REF 

-67 

L AS  T 

10  3 9 

7 612^ 

3 0116 

_1_ 

SET  PO 

_ CA 

A DD  R WD 

MUST  SET  TO  WORK  AREA,  OR  E8ANK  TROUBLE. 

1107 

REF 

21 

LAST 

101  6 

7613 

54  166 

1 

TS 

PUSHLOC 

1108 

REF 

1 

7614 

1 6062 

1 

TCF 

NOIBNKSW 

NO  FRANK  SWITCH  REQUIRED. 

1109 

REF 

190 

LAST 

1039 

7615 

3 4755 

1 

TSLC 

CAF 

ZERO 

SHIFTING  ROUTINFS  LOCATED  IN  BANK  00. 

1110 

REF 

21 

LAST 

1039 

7616 

54  004 

1 

TS 

F BANK 

1111 

REF 

— 1— 

7617 

— 1 — 21  72 

TCF 

TSLC  2 

1112 

REF 

7 

LAST 

998 

7620 

3 6073 

0 

GSHIFT 

CAF 

L0W7 

USED  AS  MASK  AT  GENSHIFT.  THIS  PROCESSES 

1113 

REF 

—22 

LAST 

1039 

762 1 

54  004 

J. 

TS 

F B A 1 K 

ANY  SHIFT  INSTRUCTION  (EXCEPT  TSLC)  WITH 

1114 

REF 

1 

7622 

1 22  14 

0 

TCF 

GENSHIFT 

AN  ADDRESS  (ROUTINES  IN  BANK  0). 

GAP: 


P 1 1 1 5 
R 1 1 1 7 
R1119 


1126 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 


1138 

1139 


1140 

1141 

1142 

1143 

1144 
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THE  FOLLOWING  IS  THE  PROLOGUE  TO  V/ SC.  IF  THE  PRESENT  MODE  IS  VECTOR,  IT  SAVES  THE  SCALAR  AT  X IN  BUF 
AND  CALLS  THE  V/SC  ROUTINE  IN  BANK  0.  IF  THE  PRESENT  MODE  IS  SCALAR,  IT  MOVES  THE  VECTOR  AT  X INTO  MPAC,  SAVING 
THE  SCALAR  IN  MPAC  IN  BUF  BEFORE  CALLING  THE  V/SC  ROUTINE  IN  BANK  0. 


REF 

26 

LAST 

10  3 5 

762  3 

10  163 

-4— 

V/SC 

CCS 

MODE 

REF 

1 

7624 

1 7635 

1 

TCF 

DV/SC 

MOVE  VECTOR  INTO  MPAC. 

REF 

2 

LAST 

1040 

7625 

1 7635 

L 

TC  F 

DV/SC 

7626 

0 00  06 

1 

vv/sc 

EXTEND 

REF 

68 

LAST 

10  3 9 

7627 

5 0116 

1 

INDEX 

ADDPWD 

7610 

3 0001 

o 

DC  A 

0 

REF 

75 

LAST 

1039 

7 631 

52  131 

0 

V/ SCI 

DXCH 

BUF 

IN  BOTH  CASES,  VECTOR  IS  NOW  IN  MPAC  AND 

REF 

191 

LAST 

1039 

7632 

3 4755 

1 

CAF 

ZERO 

SCALAR  IN  BUF. 

REF 

21 

1 AST 

10  3 9 

7633 

54  0 04 

1 

TS 

FBANK 

REF 

i 

7634 

1 2654 

0 

TCF 

V/SC  2 

7615 

0 00  06 

l 

o V / sc 

F X TFND 

REF 

69 

LAST 

1040 

7636 

5 0116 

1 

INDEX 

A DDR WD 

7637 

3 0003 

1 

DC  A 

2 

RFF 

475 

LAST 

103  9 

7640 

52  1 60 

1 

DXCH 

MPAC  +3 

7641 

0 0006 

1 

EXTEND 

REF 

70 

LAST 

1040 

7642 

5 0116 

1 

INDEX 

ADDR  WD 

7643 

3 0005 

1 

DC  A 

4 

REF 

476 

LAST 

1040 

7 644 

52  162 

0 

DXCH 

MPAC  +5 

REF 

1 C 7 

LAST 

in  1 4 

7 64  5 

4 47  5 3 

o 

cs 

ONE 

CHANGE  MODE  TC  VECTOR. 

REF 

27 

LAST 

1040 

7 646 

54  163 

1 

TS 

MODE 

764  7 

n nnn6 

l 

EXTEND 

REF 

71 

LAST 

1040 

7650 

5 0116 

1 

INDEX 

A DDR  WD 

7651 

3 0001 

0 

DC  A 

0 

REF 

477 

LAST 

104C 

7652 

52  155 

1 

DXCH 

MPAC 

REF  1 7653  1 7631  0 TC F V/SC  1 


FINISH  PROLOGUE  AT  COMMON  SECTION 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY 


GAP: 


L INTERPRETER 


P 1 145 

SIGN 

AND 

COMPLEMENT 

INSTRUCTIONS. 

7 7 

LAST 

10  40 

7654 

50  1 16 

_4— 

SIGN 

1 146 

1147 

REF 

nf- 

7655 

1 0 000 

0 

1148 

REF 

17 

LAST 

1039 

7656 

1 6060 

0 

J657 

l 76  61 

0 

1 149 

1150 

REF 

2 

LAST 

1008 

7660 

1 7667 

0 

1 1 Cl 

DPP 

72 

LAST 

10  4 1 

766 1 

50  116 

-1_. 

1 1 D 1 

Ktr 

1 J 

1152 

7662 

10  001 

1 

CCSL 

1153 

REF 

18 

LAST 

1041 

7663 

1 6060 

0 

1154 

REF 

19 

LAST 

1041 

7664 

1 6060 

0 

1155 

REF 

3 

LAST 

10  41 

7665 

1 7667 

0 

1156 

REF 

20 

LAST 

10  41 

7666 

1 6060 

0 

1157 

766  7 

0 0006 

_L_ 

COMP 

1158 

REF 

478 

L AST 

1040 

7670 

4 0155 

1 

1159 

REF 

479 

LAST 

10  41 

7671 

52  155 

1 

1160 

REF 

28 

LAST 

1040 

7672 

10  163 

1 

1161 

REF 

1 

7673 

1 7704 

1 

1162  REF  2 LAST  1041  7674 L-7704  1 


1163 

7675 

0 0006 

1 

1 1 A4 

R FF 

t+PO 

1 AST 

104  1 

7676 

4 0160 

1 

1165 

REF 

481 

LAST 

1041 

7677 

52  160 

1 

1166 

7700 

0 0006 

1 

L 167 

RFF 

4 82 

L AST 

104  1 

7 701 

4 0162 

0 

1168 

REF 

4 83 

LAST 

10  4 1 

7702 

52  162 

0 

1169 

REF 

21 

LAST 

1041 

7703 

1 6060 

0 

1170 

REF 

484 

LAST 

1041 

7704 

4 0156 

1 DCOMP 

1171 

REF 

485 

LAST 

10  4 1 

7705 

54  156 

1 

1172 

RFF 

— 22 

LAST 

104  1 

7706 

1 60  60 

0 

NASA  2021112-011 
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I NDEX 

A DDR  WD 

CALL  COMP  INSTRUCTION  IF  WORD  AT 

X I s 

CCS 

TCF 

ICF 

0 

DANZIG 

*2 

NEGATIVE  NON-ZERO. 

TCF 

COMP 

DO  THE  COMPLEMENT. 

INDEX 

A DDF  WD 

CCS 

TCF 

TCF 

1 

DANZ  IG 
DANZ  IG 

TCF 

TCF 

EXTEND 

COMP 
DANZ  IG 

COMPLEMENT  DP  MPAC  IN  EVERY  CASE. 

DCS 

OXCH 

MPAC 

MPAC 

CCS 

TCF 

TCF 

MODE 

DCOMP 

DCOMP 

FITHER  COMPLEMENT  MPAC  +3  OR  THE 
THE  VECTOR  ACCUMULATOR. 

REST 

EXTEND 

DCS 

MPAC  +3 

VECTOR  COMPLEMENT. 

DXCH 

EXTEND 

DCS 

MPAC  +3 
MPAC  +5 

DXCH 

TCF 

MPAC  +5 
DANZ  IG 

CS 

TS 

TCF 


MPAC  +2 
MPAC  +2 
DANZ  IG 
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INTERPRETER  USER'S  PAGE  NO.  46  F3  S3 


P 1 1 73 

THE  FOLLOWING  SHORT 

SHIFT  CODES  REQUIRE  NO  ADDRESS  WORD: 

QT  A 1 AD 

SHIFT  R I OHT - 

R 1 174 
R1175 

2.  SRI R TO 

SR4R 

SCALAR 

SHIFT  RIGHT  AND 

ROUND  . 

R 1 1 76 

3.  SL1  TO 

SL4 

SCALAR 

SHIFT  LEFT. 

L.  SI  1R  Tfl 

SI  4R 

Sf  A!  AR 

FHIFT  1 FFT  AND 

ROJND. 

R 1 178 

5.  V SR  1 TO 

VSR8 

VECTOR 

SHIFT  RIGHT  (ALWAYS  ROUNDS). 

a wsi  l rn 

\/Sl  R 

\/p  r t n r 

CHIFT  1 FFT  INFWFR  ROUNDS). 

R 1 1 80 

THE  FOLLOWING  CODES 

REQUIRE  AN  ADDRESS  WHICH 

MAY  BE  INDEXED: 

* 

R 1 1 81 

1 . SR 

SCALAR 

SHIFT  RIGHT. 

R 1 1 82 

2 . SRR 

SCALAR 

SHIFT  RIGHT  AND 

ROUND  . 

R 1 1 83 

3 - 91 

SCALAR 

SHIFT  LFFT. 

R 1 1 84 

4.  SLR 

SCALAR 

SHIFT  LEFT  AND 

ROUND. 

R 1 1 ft  5 

5.  VSR  

VF  F TflR 

SHIFT  R I GHT , 

Rll  86 

6.  VSL 

VECTOR 

SHIFT  LEFT. 

R 1 1 87 

* 

TP  TWF 

AnnopQQ  iq 

T Ain  P YFn 

y A Nf)  THF 

TNHFX  Mnn  I F T f AT  \ ON  RFSIJITS  IN  A 

NEGATIVF  SHIFT  COUNT,  A SHIFT  OF  THF 

R 1 1 89 

ABSOLUTE 

VALUE  OF  THE  COUNT 

is  DONE  IN 

THE  OPPOSITE  DIRECTION. 

1190 

00,2017 

SANK 

00 

DCC 

1 

rniIMT  * ti/T  KTPR 

1192 

REF 

21 

LAST  1033 

00,2017 

3 6241  0 

SHORTT  CAF 

SIX 

SCALAR  SHORT  SHIFTS  COME  HERE.  THE  SHIFT 

1193 

REF 

29 

LAST  1013 

00,2020 

7 0020  1 

MASK 

C YR 

COUNT-1  IS  NOW  IN  BITS  2-3  OF  CYR.  THE 

1 194 

ref 

LI 

1 AST  92  2 

00, 2 02 1 

54  02 1 0 

TS 

SR 

ROUNDING  BIT  IS  IN  BIT!  AT  THIS  POINT. 

1195 

REF 

30 

LAST  1042 

00, 2022 

10  020  1 

CCS 

C YR 

SEE  IF  RIGHT  OR  LEFT  SHIFT  DESIRED. 

1196 

REF 

1 

00,2023 

1 2101  1 

TCF 

TSSL 

SHIFT  LEFT. 

1197 

00,2024 

00024  l 

SRDDV  DFC 

20 

MPT EMP  SETTING  FOR  SR  BEFORE  DDV . 

1198 

REF 

12 

LAST  1042 

00,2025 

50021  1 

TSSR  INDFX 

SR 

GET  SHIFTING  BIT. 

1199 

REF 

65 

LAST  910 

00, 2026 

3 4736  1 

CAF 

BIT14 

1200 

REF 

14 

LAST  1031 

00,2027 

54  135  1 

TS 

MPTF  MP 

1201 

REF 

31 

LAST  1042 

00,2030 

10  020  1 

CCS 

CYR 

SEE  IF  A ROUND  IS  DESIRED. 

1202 

REF 

1 

00,2031 

0 2050  0 

RIGHTR  TC 

M p AC SRNC 

YES  - SHIFT  RIGHT  AND  ROUND. 

1203 

REF 

4 

LAST  1033 

00,2032 

1 6057  1 

TCF 

NFWMODE 

S FT  MODF  TO  OP  <C< A)  = 0)  . 

1204 

REF 

15 

LAST  1042 

00,2033 

3 0135  0 

MPACSHR  CA 

M PTE  MP 

DO  A TRIPLE  PRECISION  SHIFT  RIGHT. 

1205 

00, 2034 

0 0006  1 

FX  TFND 

1206 

REF 

486 

LAST  1041 

00,2035 

7 0156  1 

MP 

M P AC  +2 

1207 

REF 

487 

LAST  1042 

00,2036 

54  156  1 

+ 3 TS 

MPAC  +2 

(EXIT  FROM  SORT  AND  ABVAL ) . 

1208 

REF 

16 

LAST  1042 

00, 2037 

3 0135  0 

CA 

MPTF  MP 

1209 

00,2040 

0 0006  1 

EXTEND 

1210 

REF 

488 

LAST  1042 

00,2041 

7 0154  0 

MP 

MPAC 

SHIFT  MAJOR  PART  INTO  A , L AND  PLACE  IN 

GAP 
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L 

INTERPRETER 

1211 

REF  489 

LAST 

1042 

00,2042 

52  155 

1 

DXCH 

MPAC 

1212 

REF  17 

LAST 

1042 

00,2043 

3 0135 

0 

CA 

MPTEMP 

1917 

00, 2044 

0 0006 

_l 

EXTEND 

Lc.  I 3 

1214 

REF  184 

LAST 

10  3 8 

00,2045 

7 0001 

1 

MP 

L 

1215 

REF  450 

LAST 

1043 

00,2046 

20  156 

i 

DAS 

MPAC  +1 

1216  — REE  23  EAST  1041  00,2047  1 6060  0 TCF  ._DANZ  IG 


R 12 17 

MPAC 

SHI  FT 

RIGHT  AND 

ROUND 

SUBPOUT INES . 

1218 

REF 

491 

LAST 

1043 

00,2050 

3 0156 

0 

MPACSRND 

CA 

MPAC 

+2 

1219 

00,2051 

0 0006 

1 

EXTEND 

1220 

REF 

18 

LAST 

1043 

00,2052 

7 0135 

_] 

MP 

MPTEMP 

1221 

REF 

492 

LAST 

1043 

00,  2053 

56  155 

0 

XCH 

MPAC 

+ 1 

1222 

00,2054 

0 0006 

1 

EXTEND 

1223 

REF 

19 

LAST 

104  3 

00,2  055 

7 0135 

1 

MP 

MPTFMP 

1224 

REF 

493 

LAST 

1043 

00,2056 

56  155 

0 

XCH 

MPAC 

+ 1 

1225 

REF 

185 

LAST 

1043 

00,2057 

6 0001 

0 

AD 

L 

1226 

00,2060 

6 0000 

1 

VSHR2 

DOUBLE 

1227 

REF 

494 

LAST 

1043 

00,2061 

54  156 

1 

TS 

MPAC 

+ 2 

1228 

00,2062 

_1  2064 

0 

TCF 

+2 

1229 

REF 

495 

LAST 

1043 

00,2063 

26  155 

1 

ADS 

MPAC 

+ 1 

1230 

REF 

-192 

LAST 

104  0 - 

00, 2064 

3 4755 

_1__ 

CAE 

Z ERO 

1231 

REF 

496 

LAST 

1043 

00,2065 

54  156 

1 

TS 

MPAC 

+ 2 

1232 

REF 

497 

LAST 

1043 

00,2066 

56  154 

1 

XCH 

MPAC 

1233 

00,2067 

0 0006 

1 

EXTEND 

1234 

REF 

20 

LAST 

1043 

00,2070 

7 0135 

1 

MP 

MPTEMP 

1235 

REF 

498 

LAST 

10  4 3 

00, 2071 

20  155 

1 

DAS 

MPAC 

1236  REF  2/5  LAST  1038  00,2072  0 0002  0 TC  Q 


1237 
1 2 38 

REF 

21 

LAST 

1043 

00,2073 
00, 2 074 

3 0135 
0 0006 

0 

1 

VSHRRND  CA 

EXTEND 

MPTEMP 

1239 

REF 

499 

LAST 

104  3 

00,2075 

7 0155 

1 

MP 

MPAC  +1 

1240 

REF 

500 

LAST 

1043 

00,2076 

54  155 

1 

TS 

MPAC  +1 

1241 

REF 

186 

LAST 

1043 

00,2077 

56  001 

0 

XCH 

L 

1242 

REF 

1 

00,2100 

1 2060 

1 

TCF 

VSHR2 

USER'S  PAGE  NO.  47  E3  S3 


MPAC , +1 . 


ORIGINAL  CIMPAC  4-1). 
GUARANTEED  NO  OVERFLOW. 


WE  HAVE  TO  DO  ALL  THREE  MULTIPLIES  SINCE 
MPAC  +1  AND  MPAC  +2  MIGHT  HAVE  SIGN 
DISAGREEMENT  WITH  A SHIFT  RIGHT  OF  1. 


TRIAL  MINOR  PART. 

(FINISH  VECTOR  COMPONENT  SHIFT  RIGHT 
AND  ROUND. 

GUARANTEED  NO  OVERFLOW. 


SETTING  TO  ZERO  SO  FOLLOWING  DAS  WORKS. 
AGAIN  NO  OVERFLOW. 

ENTRY  TO  SHIFT  RIGHT  AND  ROUND  MPAC  WHEN 
MPAC  CONTAINS  A VECTOR  COMPONENT. 


GO  ADD  ONE  IF  NFCESSAPY  AND  FINISH 


GAP 
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L INTERPRETER 


P1243 

Q rr 

1 2 

ROUTINE  FOR  SHOR 

1 ACT  TEW.-)  nn  o 

1 244 

Ktr 

1 D 

L H O 1 

iu*r  c. 

y c. 

1245 

REF 

22 

LAST 

1043 

00,  2 
on  9 

1 246 

UU  f 21 

1247 

REF 

501 

LAST 

1043 

00,  2 

1248 

REF 

5C2 

LAST 

1044 

00,2 

^ 2 49 

REF 

503 

LAST 

1044 

00,  2 

1250 

REF 

504 

LAST 

1044 

00,2 

1251 

REF 

505 

LAST 

1044 

00,2 

12  52 

00,2 

1253 

REF 

4 

LAST 

102  8 

00,2 

A 12  54 

1255 

REF 

23^ 

LAST 

1044 

00,2 

1256 

REF 

2 

LAST 

1042 

00,  2 

1 2 57 

RFF 

32 

LAST 

104-2 

00,  2 

1258 

REF 

2 

LAST 

1039 

00,2 

1259 

REF 

24 

LAST 

1043 

00,2 

1260 

REF 

25 

LAST 

-104-4 

00,2 

ALAR  SHIFT 

LEFT 

(AND  MAYBE 

ROUND). 

3 00  21 

T SS  L 

C A 

S R 

54  135 

1 

+ 1 

TS 

MPTE  MP 

r»  nnn/s 

+ 2 

extend 

U UU  Uu 

3 0156 

0 

DC  A 

M P AC  +1 

20  156 

1 

DAS 

MPAC  +1 

6 0154 

_1 

AD 

MPAC 

6 0154 

1 

AD 

MPAC 

54  154 

0 

TS 

MPAC 

1 21 13 

J. 

IDE 

+2 

54  121 

1 

TS 

OVF I ND 

10  135 

JL_ 

CDS 

MPTEMP 

1 2102 

1 

TCF 

TSSL  +1 

1 0 020 

_L 

CCS 

CYR 

0 7135 

1 

ROUND 

TC 

ROUNDSUB 

1 6060 

0 

TCF 

DANZ  IG 

1 6060 

0 

TCF 

DANZ  IG 

T SC 

-1-0-1 

102 

103 

104 

105 

106 

107 

110 

111 

112 

113 

114 

115 

116 

117 

120 
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GET  SHIFT  COUNT  FOR  SR. 


ENTRY  HERE  FROM  SL  FOR  SCALARS. 
SHIFTING  LEFT  ONE  PLACE  AT  A TIME  IS 
FASTER  THAN  DOING  THE  WHOLE  SHIFT  WITH 
MULTIPLIES  ASSUMING  THAT  FREQUENCY  OF 
SHIFT  COUNTS  GOES  DOWN  RAPIDLY  AS  A 
FUNCTION  OF  THEIR  MAGNITUDE. 

OVERFLOW.  (LEAVES  OVERFLOW-CORRECTED 
RESULT  ANYWAY). 

LOOP  ON  DECREMENTED  SHIFT  COUNT. 


SEE  IF  ROUND  WANTED. 

YES  - ROUND  AND  EXIT. 

SL  LFAVES  A ZERO  IN  CYR  FOR  NO  POUND. 
NO  - EXIT  IMMEDIATE! 


GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY 


L INTERPRETER 


P 126 1 

VECTOR 

SFIFTING  ROUTINES. 

L AS 7 

24  7 

00,  2 121 

3 4757 

o 

SHORTV 

1263 

REF 

33 

LAST 

1044 

00,2122 

7 0020 

1 

1264 

REF 

24 

LAST 

1044 

00,2  123 

54  135 

1 

34 

LAST 

104  5 

00 1 2 124 

10  020 

1 

1266 

REF 

i 

00,2125 

1 2145 

1 

1267 

00,2126 

00176 

1 

0CT176 

1268 

REF 

25 

LAST 

1045 

00,2  127 

50  135 

0 

VSSR 

1269 

REF 

66 

LAST 

1042 

00,2130 

3 4736 

1 

\?7  0 

_R_EE 

26 

L AST 

1045 

00,2 13  1 

54  135 

1 

1271 

REF 

i 

00,2132 

0 2073 

1 

P F F 

LAST 

1044 

00,2133 

5 2 155 

1 

1273 

REF 

507 

LAST 

1045 

00,2134 

52  160 

1 

1274 

REF 

5C8 

LAST 

1045 

00,2  135 

52  155 

1 

1275 

REF 

2 

LAST 

L04  5 

00,  2 136  - 

0 2073 

1 

1276 

REF 

5C9 

LAST 

1045 

00,2137 

52  155 

1 

1277 

REF 

5 10 

LAST 

1045 

00,2 140 

52  162 

0 

1278 

REF 

511 

LAST 

1045 

00,2141 

52  155 

1 

1279 

REF 

3 

LAST 

104  5 

00, 2142 

0 2073 

1 

1280 

REF 

1 

00,2143 

1 7417 

0 
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CAF 

MASK 

TS 

CCS 

LOW  3 

SAVE  3 BIT  SHIFT  COUNT  - 1 WITHOUT 

CYR 

MPTF MP 

CYR 

EDITING  CYR. 

SEE  IF  LEFT  OR  RIGHT  SHIFT. 

TCF 

OCT 

VSSL 

176 

VECTOR  SHIFT  LEFT. 

USED  IN  PROCESSED  SHIFTS  WITH  - COUNT 

INDEX 

CAF 

TS 

M PTE MP 
B IT  1 4 
MPTEMP 

(ENTRY  FROM  SR).  PICK  UP  SHIFTING  BIT 
MPTEMP  CONTAINS  THE  SHIFT  COUNT  - 1. 

TC 

V SHR  RND 

SHIFT  X COMPONENT. 

OXCH 

MPAC 

SWAP  X AND  Y COMPONENTS. 

DXCH 

DXCH 

TC 

M P AC  +3 
MPAC 
V SHR PND 

SHIFT  Y COMPONENT. 

DXCH 

DXCH 

MP  AC 
M P A C +5 

SWAP  Y AND  Z COMPONENTS. 

DXCH 

TC 

MPAC 
V SHR  RND 

SHIFT  Z COMPONENT. 

TCF 

VROT ATEX 

RESTORE  COMPONENTS  TO  PROPER  PLACES. 

ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY 


GAP: 


L INTERPRETER 


P 12  81 

VECTOR 

SHIFT 

LEFT  - 

DONE  ONE 

PLACE  AT 

A TIME 

126  2 

REF 

L Ab  1 

1283 

00,2145 

0 0006 

l VSSL 

1284 

-REF 

512 

LAST 

1045 

00,2146 

3 0155 

0 

1285 

REF 

5 13 

LAST 

1046 

00,2  147 

20  155 

1 

1286 

00,2150 

0 0006 

1 

12#7 

00f  2 151 

1 2153 

0 

1288 

REF 

3 

LAST 

102  8 

00,2152 

0 70  16 

1 

00  T 2 1 ^ ^ 

0 0006 

l 

1290 

REF 

514 

LAST 

1046 

00,2154 

3 0160 

0 

1291 

REF 

515 

LAST 

1046 

00, 2155 

20  160 

1 

12^2 

00,2156 

0 0006 

1 

1293 

00,2157 

1 2161 

1 

1294 

REF 

4 

LAST 

1038 

00,2  160 

0 7013 

1 

1295 

00,2161 

0 0006 

1 

1296 

REF 

516 

LAST 

1046 

00, 2162 

3 0162 

1 

1297 

REF 

517 

LAST 

1046 

00,2163 

20  162 

0 

1298 

00,2164 

0 0006 

1 

1299 

00,2165 

1 2167 

1 

i3G0  .REF  4 LAST  L03  7 -00,2166  0 7010  1 


1301 

REF 

28 

LAST 

1046 

00,2 167 

10 

135 

1 

1302 

RFF 

— 2 

LAST 

104  5 

00,-2  170 

l- 

2144 

0 

1303 

REF 

26 

LAST 

1044 

00,2171 

1 

6060 

0 
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TS 

EXTEND 
DC  A 

MPTFI 
MP  AC 

MP 

DAS 

MPAC 

EXTEND 

BZF 

+ 2 

TC 

OVERFLOW 

FX  TFND 

DC  A 

MPAC 

+3 

DAS 

EXTEND 

MPAC 

+ 3 

BZF 

+ 2 

TC 

□VERFLWY 

EXTEND 
DC  A 

MPAC 

+5 

DAS 

MPAC 

+ 5 

EXTFND 

BZF 

+ 2 

TC  OVEFFLWZ 


CCS 

MPTEMP 

TC  F 

VSSL  -1 

TC  F 

DANZ IG 

SHIFTING  LOOP. 


LOOP  ON  DECREMENTED  SHIFT  COUNTER. 
EXIT. 


GAP:  ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L INTERPRETER 


P 1 304 
R1306 

THE 

TSLC 

COMPLEMENT 

- TRIPLE  SHIFT 
OF  THE  NUMBER 

LEFT  AND  COUNT.  SHIFTS 
OF  SHIFTS  REQUIRED  IN  X 

MP AC  LEFT  UN 

1307 

REF 

29 

LAST 

1046  00,2172 

54  135  1 TSLC2 

TS 

MPT  E MP 

1308 

REF 

5 

LAST 

1031  00,2173 

00,2 174 

0 6722  0 

1 21 76  1 

TC 
TC  F 

BRANCH 

+ 2 

i jU  7 

1310 

REF 

1 

00,2175 

1 2212  0 

TC  F 

ENDTSLC 

1311  REF  12  LAST  -853  00,2176  0 72  56  i-  TC  T PAG  REE 


1312 

1313 

REF 

REF 

518 

1 

LAST 

1046 

00,2177 

00,2200 

3 0154 
1 2207 

1 

1 

CA 
TC  F 

MPAC 

TSLC  TEST 

1314 

REF 

30 

LAST 

1047 

00,2201 

24  135 

0 

T SLCLOOP 

I NCR 

MPTEMP 

1315 

00, 2 202 

0 0006 

1 

EXTEND 

1316 

REF 

5 19 

LAST 

1047 

00,2203 

3 0156 

0 

DC  A 

MPAC  +1 

1317 

REF 

520 

LAST 

1047 

00,2204 

20  156 

1 

DAS 

MPAC  +1 

1318 

REF 

5 21 

LAST 

10  47 

00,2205 

6 0154 

-J 

AD 

MPAC 

1319 

RFF 

522 

LAST 

104  7 

00,2206 

26  154 

0 

ADS 

MPAC 

1320 

00,2207 

6 0000 

1 

TSLCTEST 

DOUBLE 

135 1 

00,2210 

54  000 

0 

OVSK 

1322 

REF 

1 

00,2211 

1 2201 

1 

TC  F 

T SLC LOOP 

1323 

1324 


REF 

RFF 


31  LAST  1047 
1 


00,2212 4 0135  l ENDTSLC  CS 

00,2213  1 6622  0 TC F 


MPTFMP 
S TOR  E 1 
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GREATER  THAN  .5  IN  MAGNITUDE,  LEAVING 

START  BY  ZEROING  SHIFT  COUNT  (IN  A NOW). 
EXIT  WITH  NO  SHIFTING  IF  ARGUMENT  ZERO. 

STORES  ZERO  SHIFT  COUNT  IN  THIS  CASE. 

MAY  CAUSE  UPSHIFT  OF  ONE  EXTRA  PLACF. 

BEGIN  NORMALIZATION  LOOP. 

INCREMENT  SHIFT  COUNTER. 


SEE  IF  (ANOTHER)  SHIFT  IS  REQUIRED. 

YES  - INCREMENT  COUNT  AND  SHIFT  AGAIN. 

STORE  SHIFT  COUNT  AND  RETURN  TO  DANZIG. 


GAP 
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L 

INTERPRETER 

USER' S PAGE  NO.  52 

E 3 S3 

P1325 
R 1 32  7 

TEE  FOLLOWING  ROUTINES  PROCESSES  THE  GENERAL  SHIFT 
TEE  GIVEN  ADDRESS  IS  DECODED  AS  FOLLOWS: 

INSTRUCTIONS 

SR,  SRR,  SL,  AND  SLR. 

R 1328 
R 1 329 

BITS  1-7 
BIT  8 

SHIFT  COUNT  (SUBADDRESS)  LESS  THAN  125 
PSEUDO  SIGN  BIT  (DETECTS  CHANGE  IN  SIGN 
0 FOR  LEFT  SHIFT,  AND  1 FOR  RIGHT  SHIFT 

DECIMAL. 

IN  INDEXED 

SHI FTS)  . 

R 1 3 32 
R 1 333 

BIT  10 
BITS  11-13 

BIT  14 

1 FOR  TERMINAL  ROUND  ON  SCALAR  SHIFTS, 

0. 

I . 

0 OTHERWISE. 

R1335 

BIT  15 

0. 

R1336 

-THE 

ABOV 

E ENC( 

3DING 

IS  DONE  BY 

THE  YUL 

SYSTEM. 

1 3 3 7 

RE  F 

74 

LAST 

104  1 

nnT 2214 

7 0116 

o 

GEN  SHIFT 

MASK 

ADDR  WD 

GET  SHIFT  COUNT,  TESTING  FOR  ZERO. 

1338 

REF 

339 

LAST 

1038 

00,2215 

10  000 

0 

CCS 

A 

(ARRIVES  WITH  C ( A ) = L0W7). 

1339 

REF 

1 

00,2216 

1 2224 

0 

TCF 

GENSHFT2 

IF  NQN-ZFRO,  PROCEED  WITH  DECREMENTED  CT 

1340 

REF 

43 

LAST 

910 

00,2217 

3 47  42 

l 

CAF 

B I T1  0 

ZERO  SHIFT  COUNT.  NO  SHIFTS  NEEDFD  BUT 

1341 

REF 

75 

LAST 

104  8 

00,2220 

7 0116 

0 

MASK 

ADDR  WD 

WE  MIGHT  HAVE  TO  ROUND  MPAC  ON  SLR  AND 

1^4? 

REF 

3 AO 

last 

104  8 

00*  22? 1 

1 0 000 

0 

CCS 

A 

SRR  (SCALAR  ONLY). 

1343 

REF 

3 

LAST 

1044 

00,2222 

0 7135 

1 

TC 

ROUNDSUB 

1344 

REF 

27 

LAST 

1046 

00,2223 

1 6060 

0 

TCF 

DANZ  IG 

1345 

RFF 

32 

LAST 

104  7 

00,2224 

54  135 

1 

GENSHFT  2 

TS 

MPTF  MP 

DECREMENTED  SHIFT  COUNT  TO  MPTEMP . 

1346 

REF 

35 

LAST 

995 

00,2225 

3 4744 

1 

CAF 

B I T 8 

TEST  MEANING  OF  LOW  SEVEN  BIT  COUNT  IN 

1 347 

00t  2 226 

0 0006 

1 

EXTEND 

MPTFMP  NOW. 

1348 

REF 

76 

LAST 

1048 

00,2227 

7 0116 

0 

MP 

ADDR  WD 

1349 

REF 

1 

00,2230 

7 6244 

1 

MASK 

LPW2 

JUMPS  ON  SHIFT  DIRECTION  (BITS)  AND 

] 350 

REF 

3A1 

LAST 

104  8 

00,2231 

50  000 

1 

INDEX 

A 

1351 

00, 2232 

1 2233 

0 

TCF 

+ 1 

ORIGINAL  SHIFT  DIRECTION  (BIT  9). 

1352 

REF 

i 

00,2233 

l 2332 

0 

TCF 

RIGHT- 

NEGATIVE  SHIFT  COUNT  FOR  SL  OR  SLR. 

1353 

REF 

i 

00 ,2234 

1 2342 

1 

TCF 

LEFT 

SL  OR  SLR. 

1354 

RFF 

i 

00,2235 

1 2336 

1 

TCF 

LEFT- 

NEGATIVE  SHIFT  COUNT  WITH  SR  OR  SRR. 

GAP:  ASSEMBLE  REVTS -HJN  0A9  0F  AGE  PROGRAM  LUMINARY  BY  NASA  2G211  12-011 

L INTERPRETER 


P 1 3 55 

GENERAL  SHIFT  RIGHT. 

LAST 

104  1 

on. 7 7 36 

1 n 163 

x 

R [ OHT 

res 

MOO  F 

1 3 36 
1337 

REF 

1 

00,2237 

1 2277 

0 

TCF 

GENSCR 

1358 

REF 

2 

LAST 

1049 

00, 2240 

1 2277 

0 

TCF 

GENSCR 

1359 

RFF 

33 

LAST 

1048 

00,2241 

3 0135 

0 

CA 

MPTEMP 

1360 

REF 

1 

00,2242 

6 3733 

0 

VRIGHT2 

AD 

NEG1  2 

1 36  1 

00,2243 

0 0006 

1 

EXTEND 

1362 

REF 

1 

00,2244 

6 2127 

1 

BZMF 

VSSR 

REf- 

g 

LAST 

10  3ft 

on  T 2 245 

6 7 746 

n 

AO 

NEGONE 

1364 

REF 

34 

LAST 

1049 

00,2246 

54  135 

i 

TS 

MPTEMP 

1365 

REF 

193 

LAST 

1043 

00,2247 

3 4755 

i 

CAF 

ZERO 

1366 

REF 

1 R7 

1 AST 

104  3 

0 0*  2 250 

54  001 

i 

TS 

L 

1367 

REF 

523 

LAST 

1047 

00,2251 

56  154 

i 

XCH 

MPAC 

1368 

REF 

524 

LAST 

1049 

00,2252 

56  155 

0 

XCH 

MPAC  +1 

1 369 

REF 

1 

00,2253 

0 2272 

1 

TC 

SET ROUND 

1370 

RFF 

525 

LAST 

1049 

00,2254 

20  155 

1 

DAS 

MPAC 

A1371 

1 3 7? 

RFF 

526 

LAST 

1049 

00,2255 

56  157 

1 

XCH 

MPAC  +3 

1373 

REF 

527 

LAST 

1049 

00,2256 

56  160 

0 

XCH 

MPAC  +4 

1374 

REF 

2 

LAST 

1049 

00,2257 

0 2272 

l 

TC 

SFTRCUND 

1375 

REF 

528 

LAST 

L04  9 

00,2260 

20  160 

_L 

DA  S 

MPAC  +3 

1376 

REF 

529 

LAST 

1049 

00,2261 

56  161 

1 

XCH 

MPAC  +5 

13  77 

REF 

530 

L AST 

104  9 

00, 2262 

56  162 

1 

XC  H 

MPAC  +6 

1378 

REF 

3 

LAST 

1049 

00,2263 

0 2272 

1 

TC 

SETROUND 

13  79 

REF 

531 

LAST 

1049 

00,2264 

20  162 

0 

DAS 

MPAC  +5 

1380 

REF 

35 

LAST 

1049 

00, 2265 

10  135 

1 

CCS 

MPTEMP 

1381 

REF 

36 

LAST 

1049 

00,2266 

54  135 

1 

TS 

MPTEMP 

1382 

R EF 

1 

00,2267 

1 2242 

0 

TCF 

VP IG HT2 

1383 

00,2270 

04604 

1 

BI ASLO 

DEC 

.2974  B-: 

1384 

REF 

^28 

LAST 

1048 

00*2271 

1 6060 

o 

TCF 

DAM 7 JO 

1 3 ft  5 

no  * ? 27? 

6 nnoo 

1 

SFTRnnivn 

nmiRi  f 

13  86 

REF 

532 

LAST 

1049 

00,2273 

54  156 

1 

TS 

MPAC  +2 

1387 

REF 

194 

LAST 

1049 

00,2274 

3 4755 

l 

CAF 

ZERO 

1388- 

RE  F 

1 88 

LAST 

1049 

00,2275 

56  001 

0 

XCH 

L 

1389 

REF 

276 

LAST 

1043 

00,2276 

0 0002 

0 

TC 

Q 
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SEE  IF  VECTOR  OR  SCALAR. 


SEE  IF  SHIFT  COUNT  LESS  THAN  140. 


IF  SO,  BRANCH  AND  SHIFT  IMMEDIATELY. 

IF  NOT,  REDUCE  MPTEMP  BY  A TOTAL  OF  14, 
AND  DO  A SHIFT  RIGHT  AND  ROUND  BY  14. 
THE  ROUND  AT  THIS  STAGE  MAY  INTRODUCE  A 
ONE  BIT  ERROR  IN  A SHIFT  RIGHT  15D. 


X COMPONENT  NOW  SHIFTED,  SO  MAKE  UP  THE 
ROUNDING  QUANTITY  (0  IN  A AND  0 OR  +- 1 
IN  L ) . 

REPEAT  THE  ABOVE  PROCESS  FOR  Y AND  Z. 


NO  OVERFLOW  ON  THESE  ADDS. 


SEE  IF  DONE,  DOING  FINAL  DECREMENT. 


SQRT  CONSTANT 


MAKES  UP  ROUNDING  QUANTITY  FROM  ARRIVING 
CIA).  L IS  ZERO  INITIALLY. 


RETURN  AND  DO  THE  DAS,  RESETTING  L TO  0 


GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY 


L INTERPRETER 


PI  390 

PROCESS  SR 

AND  SRR  1 

F C'R 

SCALAR 

1 Q O 1 

ncc 

3 7 

L ACT 

104  9 

00 , 2277 

— 3 

0135 

0 

I 37  i 

Ktr 

L R j t 

1392 

REF 

2 

LAST 

1049 

00,2300 

6 

3733 

0 

1393 

00,2301 

0 

0006 

1 

1394 

REF 

X 

00,2302 

6 

2322 

0 

1395 

REF 

9 

LAST 

1049 

00,2303 

6 

7746 

0 

1 396 

REF 

3 g 

LAST 

10  5 0 

00,2  304 

54 

135 

-1 

1397 

REF 

195 

LAST 

1049 

00, 2305 

3 

4755 

1 

1398 

REF 

533 

LAST 

1049 

00,2306 

56 

154 

1 

1399- 

REF 

5 34 

LAST 

1050 

00,2  307 

56 

155 

0 

1400 

REF 

535 

LAST 

1050 

00, 2310 

54 

156 

1 

1401 

REF 

39 

LAST 

1050 

00, 2311 

10 

135 

1 

1402 

REF 

40 

LAST 

105  0 

00,2  312 

54 

135 

_1 

1403 

REF 

3 

LAST 

1049 

00,2313 

0 

2300 

0 

1404 

00,2314 

22650 

1 

1405 

REF 

44 

LAST 

1048 

00,2315 

3 

4742 

1 

1406 

RFF 

77 

LAST 

1048 

00,2316 

7 

01  16 

0 

1407 

REF 

342 

LAST 

1048 

00,2317 

1 0 

000 

0 

1408 

REF 

4 

L AS  T 

104  8 

00, 2 320 

o 

7135 

1 

1409 

REF 

29 

LAST 

1049 

00,  2321 

1 

6060 

0 

1410 

REF 

4 1 

LAST 

10  5 0 

00, 2 322 

5 0 

135 

o 

1411 

REF 

67 

LAST 

1045 

00, 2323 

3 

4736 

1 

1412 

REF 

42 

LAST 

1050 

00, 2 324 

54 

135 

1 

1413^ 

REF 

45 

LAST 

105  0 

00, 2325 

3 

4742 

l 

1414 

REF 

78 

LAST 

105  0 

00,2326 

7 

01  16 

0 

1415 

REF 

343 

LAST 

1050 

00, 2327 

10 

000 

0 

1416 

REF 

1 

00,2  330 

1 

2031 

0 

1417 

REF 

1 

00,2331 

1 

2033 

1 

GENSCR 

+ 1 


+4 


SLOPEHI 


DOSSHFT 
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CA 

MPTFMP 

AD 

EXTEND 

NFG  1 2 

BZMF  OOSSHFT 


AD 

NFGONE 

TS 

MPTE  MP 

CAF 

ZERO 

XCH 

MPAC 

XCH 

MPAC  +1 

TS 

MPAC  +2 

CCS 

MPTF  MP 

T_S 

M PTE  MP 

TC 

GENSCR  +1 

DEC 

. 5884 



R IT  1 C 

MASK 

ADDRWD 

CCS 

A 

TC 

RCUN  DSUB 

TC  F 

DAMZ  IG 

INDEX 

M PT  E MP 

CAF 

BIT14 

TS 

M PT  E MP 

CAF 

BIT10 

MASK 

ADDRWD 

CCS 

A 

TC  F 

_RIGHTR 

TC  F 

MPACSHR 

SEE  IF  THF  ORIGINAL  SHIFT  COUNT  WAS  LESS 
THAN  140. 


DO  THE  SHIFT  IMMEDIATELY  IF  SO. 


IF  NOT,  DECREMENT  SHIFT  COUNT  BY  140  AND 
SHIFT  MPAC  RIGHT  14  PLACES. 


SEE  IF  FINISHED,  DO  FINAL  DECREMENT. 
SQRT  CONSTANT. 

FINISHED  WITH  SHIFT.  SEE  IF  ROUND 
WANTED. 

DO  SO  AND/OP  EXIT. 

PICK  UP  SHIFTING  BIT. 

SEE  IF  TERMINAL  ROUND  DESIRED. 

Y F S . 

JUST  SHIFT  RIGHT. 


GAP 


ASSEMBLE  REVTS  K3N  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L INTERPRETER 


P 141  8 

PROCESS  THE 

RIGHT- 

(SL(R)  WITH 

A NEGATIVE  COUNT),  LEFT- 

DEC 

A ^ 

LAST 

10  5 0 

00,  2 332 

4 0135 

_1 

RIGHT- 

CS 

MPTE  MP 

1420 

1421 

Ktr 

REF 

l 

00,2333 

6 2126 

0 

AD 

0CT1 76 

1422 

REF 

44 

LAST 

10  5 1 

00,2334 

54  135 

1 

TS 

MPTE  MP 

REF 

00,2335 

1 22  36 

_Q_ 

TCF 

RIGHT 

1424 

REF 

2 

LAST 

10  51 

00,2336 

4 2126 

1 

LEFT- 

CS 

0CT1 76 

1 A O C. 

RGF 

—4-5 

LAST 

10  5 1 

00, 2337 

-6  01  35 

_0 

AD 

MPTE  MP 

i*T  C-J 

1426 

00,2340 

4 0000 

0 

COM 

1427 

REF 

46 

LAST 

1051 

00,2341 

54  135 

1 

TS 

MPTFMP 

1428 

REF 

30 

LAST 

1049 

00, 2342 

10  163 

1 

LEFT 

CCS 

MODE 

1429 

REF 

1 

00,2343 

1 2346 

0 

TCF 

GFNSCL 

1430 

RGE 

2 

LAST 

105  1 

00, 2344 

1 2346 

0 

TCF 

GENS  CL 

1431 

REF 

3 

LAST 

1046 

00,2345 

1 2145 

1 

TCF 

V SSL 

1432 

REF 

79 

LAST 

105  0 

00,2  346 

4 G1 1-6 

Q 

GENS CL 

CS 

A DDR  WD 

1433 

00,2347 

0 0006 

1 

EXTEND 

1434 

REF 

44 

LAST 

899 

00,2350 

7 4746 

1 

MP 

B I T6 

1435 

REE 

35 

LAST 

104  5 

00,2351 

54  020 

_L 

TS 

CYR 

1436 

REF 

3 

LAST 

1044 

00,2352 

1 2103 

0 

TCF 

TSSL  +2 
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AND  LEFT  OPTIONS. 

GET  ABSOLUTE  VAI UE  - l OF  SHIFT  COUNT 
UNDERSTANDING  THAT  BIT3  (PSEUDO-SIGN) 

HAS  1 INITIALLY. 

DO  NORMAL  SHIFT  RIGHT. 

SAME  PROLOGUE  TO  LFFT  FOR  INDEXED  RIGHT 
SHIFTS  WHOSE  NET  SHIFT  COUNT  IS  NEGATIVE 


SINCE  LEFT  SHIFTING  IS  SONE  ONE  PLACE  AT 
A TIME,  NO  COMPARISON  WITH  14  NEED  BE 
DONE.  FOR  SCALARS,  SEE  IF  TERMINAL  ROUND 
DESIRED.  FOR  VECTORS,  SHIFT  IMMEDIATELY. 

PUT  ROUND  I NG  BIT  (BIT  10  OF  ADDRWD ) INTO 
BIT  15  OF  CYR  WHERE  THE  ROUNDING  BTT  OF 
A SHORT  SHIFT  LFFT  WOULD  BE 


DO  THE  SHIFT 
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P 1437  SCALAR  DIVISION  INSTRUCTIONS,  DDV  AND  BDDV , ARE  EXECUTED  HERF. 

R1439  AND  THE  DIVISOR  IN  BUF. 


1440 

1441 
1442- 
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1C8 

l 

1 

LAST 

1040 

00,2353 

00,2354 

00,2355 

4 4753 
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TS 
TS 
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D VS  I GN 
DVNORMCT 

1443 
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1 

00,2356 

54  140 

0 

TS 
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DCC 

76 

L AST 

10-40- 

00, ? 35 7 
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_4_ 
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BUF 

1445 

r\  C r 

REF 

1 

00,2360 

1 2516 

0 

TCF 
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00, 2361 

1 2363 

1 

TCF 

+ 2 

14-47  PEF  -4 00,2  362  1 2531  jO TCP  BUFNEG 


1448 
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536 
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10  5 C 

00,2363 

54  156 

1 
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TS 
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1449 

REF 

13 
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104  7 
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0 72  56 

TC 

TPAGPEF 

1450 
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00,2365 

10  154 

0 

CCS 

MPAC 



REF 
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l 2414 
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1 H- J 1 
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1453 
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2 

LAST 

1052 
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1 2413 

1 

TCF 

DVF+  -1 

1454 

REF 

77 

LAST 

10  5 2 

00,2371 

5 6 131 

1 

XCH 

BUF  +1 

1455 

REF 

78 

LAST 

1052 

00,2372 

56  130 

0 

XCH 

BUF 

1456 

REF 

5 38 

LAST 

10  5 2 

00,2  373 

56  155 

0 

XCH 

MPAC  +1 

1457 

REF 

539 
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10  5 2 

00,2374 

56  154 

1 

XCH 

MPAC 

1458 
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79 
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1052 

00,2375 

10  130 

1 

CCS 

BUF 

1459 

REF 

7 

00-»  2 376 

1 2422 

0 

TCF 
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1460 

00,  2 377 

1 2401 

1 

TCF 

+ 2 

1461 

REF 

I 

00, 2400 

1 2416 

1 

TCF 

BUF- 

1462 

REF 

540 

LAST 

1052 

00,2401 

4 0154 

0 

CS 

M P AC 

1463 

00,2402 

0 0006 

1 

SGNOVQVF 

EXTEND 

1464 

00,2403 

6 2405 

-1- 

BZMF 

+ 2 

1465 

REF 

2 

LAST 

1052 

00,2404 

24  136 

0 

I NCR 

DVS I GN 

1466 

REF 

23 

LAST 

103  1 

00,2405 

3 4733 

1 

DVQVF 

CAF 

POSMAX 

1467 

REF 

54  1 

L AST- 

1052 

00,  2406 

5 4 154 

0 

TS 

MPAC 

1468 

REF 

1 

00, 2407 

0 2630 

0 

TC 

FINALDV  + 

1469 

REF 

109 

LAST 

1052 

00, 2410 

3 4753 

1 

CAF 

ONE 

1470 

REF 

5 — 

LAST 

1044 

00,241 1 

54  121 

1 

TS 

OVFI ND 

1471 

REF 

30 

LAST 

105  C 

00,2412 

0 6060 

1 

TC 

DANZIG 

1472 

1473 

1474 

REF 

REE 

REF 

3 

80 

_L_ 

LAST 

LAST 

1052 

1052 

00,2413 

00,2414 

00,2415 

24  136 
4 0131 
1 2402 

0 

0 

_L 

-1 

OVF  +■ 

INCR 

CS 

TCF 

DVS I GN 
BUF  +1 
SGND VOVF 

1475 

00,2416 

0 0006 

1 

BUF- 

EXTEND 

1476 

REF 

81 

LAST 

105  2 

00,2417 

4 0131 

0 

DCS 

BUF 

1477 

REF 

82 

LAST 

10  5 2 

00,2420 

52  131 

0 

DXCH 

BUF 

1478 

REF 

4 

LAST 

1052 

00,2421 

24  136 

0 

INCR 

DVS I GN 

AT  THIS  POINT,  THE  DIVIDEND  IS  IN  MPAC 


INITIALIZATION. 

+-1  FOR  POSITIVE  QUOTIENT  - -0  FOR  NEG. 
DIVIDEND  NORMALIZATION  COUNT. 

NEAR-ONE  DIVIDE  FLAG. 

FORCE  BUF  POSITIVE  WITH  THE  MAJOR  PART 
NON-ZERO. 


ZERO  THIS. 

FORCE  SIGN  AGREEMENT  BEFORE  OVERFLOW 

TEST  TO  SEE  IF  MPAC  NON-ZFRO.  (TOO  BIG) 
MAJOR  PART  OF  DIVIDEND  IS  POSITIVE  NON-O 

MAJOR  PART  OF  DIVIDEND  IS  NEG.  NON-ZERO 

SHIFT  DIVIDEND  AND  DIVISOR  LEFT  14. 


TRY  AGAIN  ON  FORMER  MINOR  PART. 

OVERFLOW  ON  ZERO  DIVISOR. 

SIGN  OF  MPAC  DETERMINES  SIGN  OF  RESULT. 

NFGMAX  IN  MPAC  PERHAPS. 

ON  DIVISION  OVERFLOW  OF  ANY  SORT,  SET 
SET  DP  MPAC  TO  +-DOSMAX. 

SET  OVERFLOW  INDICATOR  AND  EXIT. 


LOAD  LOWER  ORDER  PART  OF  DIVISOR. 
GET  SIGN  OF  RESULT. 


IF  BUF  IS  NEGATIVE,  COMPLEMENT  TT  ANO 
MAINTAIN  D VS  I GN  FOP  FINAL  QUOTIENT  SIGN. 


NOW  -0 
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1479 

1480 

REF 

REF 

542 

1 

LAST 

10  5 2 

00,2422 
00,2423 
On, 2424 

10  154 
1 2437 
1 24  26 

0 

1 

1 

BUF  + 

CCS 

TCF 

TCF 

MPAC 
MPAC  + 
+ 2 

14-51 

1482 

REF 

1 

00,2425 

1 2433 

0 

TCF 

MPAC- 

1483 

REF 

543 

LAST 

1053 

00,2426 

10  155 

1 

CCS 

MPAC  +1 

REF 

2 

| AST 

10  5 3 

00, 2427 

1 2437 

1 

TCF 

MPAC  + 

1485 

REF 

31 

LAST 

10  5 2 

00,2430 

1 6060 

0 

TCF 

DANZ  IG 

1486 

REF 

2 

LAST 

1053 

00,2431 

1 2433 

0 

TCF 

MPAC- 

1 4 87 

RFF 

32 

LAST 

105  3 

00,2432 

1 60  60 

0 

TCF 

DANZ  IG 

1488 

00,2433 

0 0006 

1 

MPAC- 

EXTEND 

1 4 89 

REF 

544 

LAST 

1053 

00,2434 

4 0155 

1 

DCS 

MPAC 

1490 

REF 

545 

LAST 

10  5 3 

00,2435 

52  155 

1 

DXCH 

MPAC 

1491 

REF 

5 

LAST 

1052 

00,2436 

24  136 

0 

INCR 

DVS I GN 
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FORCE  MP AC  POSITIVE,  CHECKING  FOR  ZFRO 
DIVIDEND  IN  THE  PROCESS. 


EXIT  IMMEDIATELY  ON  ZERO  DIVIDEND. 


FORCE  MPAC  POSITIVE  AS  BUF  IN  BUF-. 


NOW  +1  OR  -0 


GAP 
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1492 

REF 

546 
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1053 

00,2437 

4 

0154 

0 
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10 
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7746 

0 
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6- 
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0 
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REF 
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0 
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1 
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1 
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1 

3 

2446 

4736 

1 

-1 
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00,2447 
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1 

1501 

REF 
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00,2450 

6 

01  55 

0 

1502 

RE-F 
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54  155 

1 
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3 

4755 

1 

1504 
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24 

LAST 

105  2 

00, 2453 
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4733 

1 

1505  REF  -54-9-  LAST  1054  00,2454  26  1 54  0 


1506 

REF 

13 

LAST 

10  5 4 

00,2455 

3 

4736 

1 

1507 

00, 2456 

6 

0000 

1 

1508 

REF 

84 

LAST 

10  5 4 

00,2457 

6 

0131 

1 

1509 

REF 

85 

LAST 

1054 

00, 2460 

54 
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1^10 
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1 97 

1 AST 

1 0 S 4 

00,7461 

4755 

1 

1511 

REF 

25 

LAST 

1054 

00,2462 
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4733 

1 

1512 

REF 
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LAST 

1054 

00, 2463 

26 

130 

1 

1513 

REF 

550 

LAST 

1054 

00, 2464 

4 

01  54 

0 

1514 

REF 

87 

LAST 

10  5 4 

00,2465 

6 

0130 

0 

[SIS 

REF 

V4S 

\ AST 

) o 54 

00 , 7 466 

1 0 

000 

o 

1516 

REF 

2 

LAST 

1054 

00,2467 

1 

2505 

1 

1517 

REF 

16 

LAST 

1034 

00,2470 

00133 

0 

1518  — REF  1 — DO-,2471  1 2405  0 


1519 

1520 

REF 
- RFF- 

2 

551 

LAST 

LAST 

10  5 2 
4.0  64 

00,2472 
00, 2473 

54  140 
4 0155 

0 

1 

1521 

REF 

88 

LAST 

1054 

00,2474 

6 

0131 

1 

1522 

00,2475 

0 

0006 

1 

1523 

ref 

2- 

LAST 

10  54, 

00,2476 

6 

2405 

1 

1524 

REF 

3 

LAST 

10  5 4 

00,2477 

1 

2505 

1 

MPAC  + 


-1/2+2 


LBUF2 
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CS 

AD 

AD 

MPAC 

NEGGNE 

BUF 

CHECK  FOR  DIVISION  OVERFLOW.  IF  THE 
MAJOR  PART  OF  THE  DIVIDEND  IS  LESS  THAN 
THE  MAJOR  PART  OF  THE  DIVISOR  BY  AT 

CCS 

TCF 

OCT 

A 

DVNORM 
6000  1 

LEAST  TWO,  WE  CAN  PROCEED  IMMEDIATELY 
WITHOUT  NORMALIZATION  PRODUCING  A DVMAX. 
USED  IN  SORT  SUB . 

TCF 

CAF 

+ 1 

HALF 

IF  THE  ABOVE  DOES  NOT  HOLD,  FORCE  SIGN 
AGREEMENT  IN  NUMFRATOR  AND  DENOMINATOR 

DOUBLE 

AD 

TS 

MPAC  +1 
.MPAC  +1 

TO  FACILITATE  OVERFLOW  AND  NEAR-ONE 
CHECKING. 

CAF  ZERO 

AO  PCSMAX 

ADS  MPAC 


CAF 

DOUBLE 

HAL  F 

SAME  FOR  BUF. 

AD 

BUF  +1 

TS 

BUF  +1 

CAF 

ZERO 

AD 

POSMAX 

ADS 

BUF 

CS 

MPAC 

CHECK  MAGNITUDE  OF  SIGN-CORRECTED 

AD 

BUE 

OPERANDS. 

CCS 

A 

TCF  DVNORM  DIVIDE  OK  - WILL  NOT  BECOME  MAXDV  CASE. 

ADRES  BUF2 

TCF  -D-.mV.-E DIVISOR  NOT  LFSS  THAN  DIVIDEND  - OVF. 

TS  MAXDVSW  IF  THE  MAJOR  PARTS  OF  THE  DIVIDEND  AND 


Lb 

AD 

BKflL  +1 

BUF  +1 

UlVlbUK  AKt  tWUAL,  A bKtUlttL 

T ION  IS  USED  (PROVIDED  THE  DIVISION  IS 

EXTEND 

POSSIBLE,  OF  COURSE) . 

3ZMF 

DVOVF 

TCF 

DVNORM 

IF  NO  OVERFLOW. 
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CA 
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EXTEND 
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BUF- 

1555 

REF 

15 

LAST 

1055 
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4736 
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CS 
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REF 
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TCF 

BUFPOS  +6 
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ADD  -1  TO  AUGMENT  SHIFT  COUNT  AMD  SHIFT 
LEFT  ONE  PLACE. 


SEE  IF  DIVISOR  NORMALIZED  YET. 

NO  - SHIFT  LEFT  ONF  AND  TRY  AGAIN. 

CALL  DIVIDEND  NORMALIZATION  SEQUENCE 
PRIOR  TO  DOING  THE  DIVIDE. 

RETURNS  WITH  DIVISION  DONF  AMD  CIA)  = 0. 


TO  BUF  + IF  BUF  IS  GREATER  THAN  +1. 

IF  BUF  IS  +1,  FORCING  SIGN  AGREEMENT 
MAY  CAUSE  BUF  TO  BECOME  ZERO. 

BRANCH  IF  SIGNS  AGREE. 

SIGNS  DISAGREE.  FORCE  AGREEMENT. 


TO  BUF-  IF  BUF  IS  LESS  THAN  -1. 

IF  BUF  IS  -1,  FORCING  SIGN  AGREEMENT 
MAY  CAUSE  BUF  TO  BECOME  ZERO. 

BRANCH  IF  SIGNS  AGREE. 

SIGNS  DISAGREE.  FORCE  AGREEMENT. 


GAP 
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REF 
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10  140  0 
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MAXTEST 
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IN  A AND  L BEFORE  THE  DIVIDE. 

SPECIAL  PROLOGUE  f-QP  UNIT  WHEN  THF 
LENGTH  OF  THE  ARGUMENT  WAS  NOT  LESS  THAN 
.5.  IN  THIS  CASE,  EACH  COMPONENT  MUST  BE 
SHIFTED  RIGHT  ONE  TO  PRODUCE  A HALF-UNIT 
VECTOR. 

WITH  DP  DIVIDEND  IN  A , L . 

PROLOGUE  WHICH  NORMALIZES  THE  DIVIDEND 
WHEN  IT  IS  KNOWN  THAT  NO  DIVISION 
OVERFLOW  WILL  OCCUR. 


0 IF  MAJORS  MIGHT  BE  =,  -1  OTHEPWISF. 
SORT  CONSTANTS 


CHECK  TO  SEE  IF  THEY  ARE  NOW  EQUAL 
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P 1 5 83 
R 1585 

R 1 5 86 

R 1 5 87 
R 1 5 89 

R 1591 
R1593 
R1595 
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THE  FOLLOWING  IS  A GENERAL  PURPOSE  DOUBLE  PRECISION  DIVISION  ROUTINE.  IT  DIVIDES  MPAC  BY  BUF  AND  LEAVES 
THE  RESULT  IN  MPAC.  THE  FOLLOWING  CONDITIONS  MUST  BE  SATISFIED: 

1.  THE  DIVISOR  (BUF)  MUST  BE  POSITIVE  AND  NOT  LESS  THAN  .5. 

2.  THE  DIVIDEND  (MPAC)  MUST  BE  POSITIVE  WITH  THE  MAJOR  PART  OF  MPAC  STRICTLY  LESS  THAN  THAT  OF  BUF 
(A  SPECIAL  APPROXIMATION,  MAXDV , IS  USED  WHEN  THE  MAJOR  PARTS  ARE  EQUAL). 

UNDERSTANDING  THAT  A/8  = Q + S(R/8)  WHERE  S = 2 C — 1 A ) AND  Q AND  R ARE  QUOTIFNT  AND  REMAINDER,  RESPEC- 
TIVELY, THE  FOLLOWING  APPROXIMATION  IS  OBTAINED  BY  MULTIPLYING  ABOVE  AND  BELOW  BY  C - SO  AND  NEGLECTING  TERMS  OF 
ORDER  S-SQCARED  (POSSIBLY  INTRODUCING  ERROR  INTO  THE  LOW  TWO  BITS  OF  THE  RESULT).  SIGN  AGREEMENT  IS  UNNECESSARY. 


R 1 597 

A + 

SB  . 

(R  - 

QD) 

A + S3 

R 1 599 

= Q 

+ S< 

--)  WHERE 

Q 

AND  R 

ARE  QUOTIENT  AND 

REMAINDER  OF  RESPECTIVELY. 

r i 

c 

SO 

( c 

) 

C 

REF 

555 

LAST 

1056 

nnT  2 670 

5?  155 

1 

GFNDD V 

OXCH 

MPAC- 

WE  NEED  A AND  B ONLY  FOR  FIRST  DV. 

1604 

00,2571 

0 0006 

1 

+i 

EXTEND 

(SPECIAL  UNIT  PROLOGUE  ENTERS  HERE). 

1605 

REF 

56 

LAST 

1055 

00,2572 

10  130 

1 

DV 

BUF 

A NOW  CONTAINS  Q AND  L,  R. 

] 606 

REF 

556 

L AST 

10  5 7 

00,2573 

52  155 

1 

DXCH 

MPAC 

1607 

REF 

557 

LAST 

105  7 

00, 2574 

4 0154 

0 

cs 

MPAC 

FORM  DIVIDEND  FOR  MINOR  PART  OF  RESULT. 

1 a 

00 , 2 575 

0 0006 

1 

EX  TFND 

1609 

REF 

57 

LAST 

105  7 

00,2576 

7 0131 

0 

MP 

BUF  +1 

1610 

REF 

558 

LAST 

105  7 

00,2577 

6 0155 

0 

AD 

MPAC  +1 

OVERFLOW  AT  THIS  POINT  IS  POSITIVE  SINCE 

16 1 1 

00,  2 600 

54  000 

o 

OVSK 

R IS  POSITIVE  IN  EVERY  CASE. 

1612 

00,2601 

1 2606 

1 

TCF 

+ 5 

1 A 1 ^ 

00-J2  60  2 

0 00  H6 

l 

EXT  FNO 

OVERFLOW  CAN  RFMOVED  BY  SUBTRACTING  C 

1614 

REF 

98 

LAST 

105  7 

00,2603 

60  130 

0 

su 

BUF 

(BUF)  ONCE  SINCE  R IS  ALWAYS  LESS  THAN  C 

1615 

REF 

559 

LAST 

10  5 7 

00,2604 

24  154 

1 

I NCR 

MPAC 

IN  THIS  CASE.  INCR  COMPENSATES  SUBTRACT. 

1616 

REF 

— 1— 

00,2605 

— L 2610 

0 

TCF 

+D_OW  N 

(SINCE  C ( A ) IS  STILL  POSITIVE). 

REF 


00,2606  0 0006  1 +5  FXTEND  C(A>  CAN  BE  MADE  LESS  THAN  C IN  MAGNT- 

00,2607  6 2620  1 BZMF  -UP  TUDE  BY  DIMINISHING  IT  BY  C (SINCE  C IS 

NOT  LESS  THAN  .5)  UNLESS  CIA)  = 0. 


1617 

1618 
A 16 1 9 
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1620 

00,2610 

0 

0006 

1 

+ DOWN 

EXTEND 

1621 

REF 

99 

LAST 

1057 

00,2611 

6C 

1 130 

0 

SU 

BUF 

IF  POSITIVE,  REDUCF 

ONLY  IF  NECESSARY 

1 6?2 

00,2612 

0 

0006 

1 

EXTEND 

SINCE  THE  COMPENSATING  INCR  MIGHT  CAUSE 

1623 

00, 2613 

1 

2616 

0 

8ZF 

+ 3 

OVERFLOW. 

1624 

00,2614 

0 

0006 

1 

EXTEND 

OONT  SUBTRACT  UNLESS  RESULT  IS  POSITIVE 

\h?  5 

REF 

1 

- 00,2615 

6 

2624 

0 

BZMF 

ENDMAXDV 

OR  ZERO. 

1626 

REF 

560 

LAST 

105  7 

00,2616 

24 

154 

1 

+3 

I NCR 

M P AC 

KEEP  SUBTRACT  HERE 

AND  COMPENSATE. 

1 A 2 7 

REF 

2 

1 AST 

10  5 2 

00, 2617 

1 

2625 

0 

TCF 

F INA LDV 

1628 

00,2620 

0 

0006 

1 

-UP 

EXTEND 

IF  ZERO,  SET  MINOR 

PART  OF  RESULT  TO 

1^2  Q 

REF 

3 

LAST 

1 05  P 

not  2^7  1 

1 

2630 

1 

BZF 

FINALDV  4-3 

7 ERO  . 

1630 

00,2622 

0 

0006 

1 

EXTEND 

IF  NEGATIVE,  ADD  C 

TO  A,  SUBTRACTING  ONE 

1 A 3 } 

REF 

1 

LAST 

105  8 

0 0 » 2 6 2 3 

26 

1 54 

0 

DIM 

MPAC 

TO  COMP  FNS  AT  F . DIM 

IS  OK  HFRF  SINCF  THE 

1632 

REF 

100 

LAST 

10  5 8 

00, 2624 

6 

01  30 

0 

ENDMAXOV 

AD 

BUF 

MAJOR  PART  NEVER  GOES  NEGATIVE. 
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1633 

1634 

DPP 

1 n i 

LAST 

105  R 

00,2625 
00,2626 
00, 2 627 

22  007 
0 0006 
10  130 

0 

1 

_4 

FINALDV 

ZL 

EXTEND 

-TUF- 

BUF 

1 63  5 
1636 

Ktr 

REF 

1 vl 

562 

LAST 

105  8 

00,2630 

54  155 

1 

+ 3 

TS 

M P AC  +1 

-DPP 

A 

1 T 

10  5 3 

on. 

10  136 

_4 

CCS 

D VS  I GN 

1 63  7 
1638 

— K t r 
REF 

O 

277 

Lhj  • 

LAST 

1049 

00,2632 

0 0002 

0 

TC 

Q 

1639 

REF 

278 

LAST 

1055 

00,2633 

0 0002 

0 

TC 

Q 

1640  -R-EF  2 T9  LAST— LO  59  00,2634  0 0002  0-  TC  0 


1641 

1642 

REF 

563 

LAST 

10  5 9 

00,2635 

00,2636 

0 0006 
4 0155 

1 

1 

EXTEND 

nr.s  m p ac 

1643 

REF 

564 

LAST 

1059 

00,2637 

52  155 

1 

OXCH 

MPAC 

1644 

REF 

199 

LAST 

1055 

00, 2640 

3 4755 

1 

CAF 

ZERO 

1645 

REF 

280 

LAST 

1059 

00,2641 

0 0002 

0 

TC 

Q 
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DO  DV  TO  OBTAIN  MINOR  PART  OF  RESULT. 


LEAVE  RESULT  POSITIVE  UNLESS  C(DVSIGN)= 

-0. 


SO  WE  ALWAYS  RETURN  WITH  CIA) 


0 
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P1646  IF  THE  MAJOR  PARTS  OF  THE  DIVISOR  AND  DIVIDEND  ARE  EQUAL,  BUT  THE  MINOR  PARTS  ARE  SUCH  THAT  THE 

R1648  DIVIDEND  IS  STRICTLY  LESS  THAN  THE  DIVISOR  IN  MAGNITUDE,  THE  FOLLOWING  APPROXIMATION  IS  USED.  THE  ASSUMPTIONS 

r 16  50  ARE  THE  SAME  AS  THE  GENERAL  ROUTINE  WITH  THE  ADDITION  THAT  SIGN  AGREEMENT  IS  NECESSARY  IBLC,  C D POSITIVE). 


R 1652  C + SB  . (C  + B - D) 


R 1653  = 37777  * SI ) 

R 16  54  C + SD  ( C ) 


r 165 5 - — THE  DIVISION  MAY  BE  PERFORMED  IMMEDIATELY  SINCE  B IS  STRICTLY  LESS  THAN  D AND  C IS  NOT  LESS  THAN  .5. 


1657 

1658 

1659 

1660 

REF 

REF 

5 65 
1C2 

LAST 

LAST 

1059 

1059 

00,2642 
00, 2643 
00,2644 
00, 2645 

— 4- 

6 

0 

-1- 

0154 

0130 

0006 

2647 

0 

0 

1 

1 

MAXDV 

cs 

AD 

EXTEND 

B2F 

MPAC 

BUF 

+ 2 

SPE  IF  MAXDV  CASE  STILL  HOLDS  AFTER 
NORMALIZATION. 

1661 

REF 

2 

LAST 

1056 

00,2646 

1 

2 5 70 

0 

TCF 

GENDDV 

MPAC  NOW  LESS  THAN  BUF  - DIVIDF  AS  USUAL 

1 A A R 

D Cf 

26 

LAST 

10  5 4 

no.  2 647 

_4 

+ 2 

GAF 

PDSM  AX 

SET  MAJOR  PART  OF  RESULT. 

iOUA 

1663 

ivl  r 

REF 

566 

LAST 

1060 

00,2650 

54  154 

0 

TS 

MPAC 

1664 

REF 

103 

L AST 

106  0 

00 .2651 

0131 

o 

CS 

BUF  +1 

FORM  DIVIDEND  OF  MINOR  PART  OF  RESULT. 

1665 

REF 

567 

LAST 

1060 

U V f C-  J L 

00, 2652 

6 

01  55 

0 

AD 

MPAC  +1 

1666 

REF 

2 

LAST 

1058 

00,2653 

1 

2624 

1 

TCF 

FNDMAXDV 

GO  ADD  C AND  DO  DIVIDE,  ATTACHING  SIGN 

A 1 667  BEFORE  EXITING. 
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L INTERPRETER 

p 1668  VECTOR  DIVIDED  BY  SCALAR,  V/SC,  IS  EXECUTED  HERE.  THE  VEC 


D C C 

1 1 A 

i a<;t 

10  5 2 

00 • ? 654 

4 4753 

0 V/SC 2 

GS 

ONE 

16  70 
1671 

Ktr 

REF 

1 1\7 

4 

L H J 1 

LAST 

1055 

00,2655 

54  137 

0 

TS 

DVNOPMCT 

1672 

REF 

53 

LAST 

10  3 8 

00,2656 

54  127 

1 

TS 

VBUF  +5 

1673 

REF 

1 

00,2657 

0 3010 

0 

TC 

VECAGREE 

R F^ 

1 04 

LAST 

106  0 

00, 2460 

5 2 1 31 

o 

DXCH 

BUF 

i O 1 *T 

16  75 

lALI 

REF 

2 

LAST 

886 

00,2661 

0 7543 

1 

TC 

ALS I GNAG 

1676 

REF 

105 

LAST 

106  1 

00,2662 

52  131 

0 

DXCH 

BUF 

1677 

REF 

1 06 

last 

106-1 

00,  266  3 

ID  1 30 

1 

C£S 

mif 

1678 

REF 

1 

00,2664 

1 2721 

0 

TCF 

/ BUF  + 

1679 

00,2665 

1 2667 

0 

TCF 

+2 

1680  REF  I 00,2666  1 2715  1 TCF  /BUF- 


1681 

REF 

107 

LAST 

106  1 

00,2667 

56  131 

1 

XCH 

BUF  +1 

16ft? 

R FF 

1 Oft 

1 AST 

106  1 

00 ,2670 

56  130 

0 

XCH 

BUF 

1683 

REF 

568 

LAST 

10  6 C 

00,2671 

56  155 

0 

XCH 

MPAC  +1 

1684 

REF 

569 

LAST 

10  6 1 

00, 2672 

56  154 

1 

XCH 

MPAC 

1685 

00,2673 

0 0006 

1 

EXTEND 

1686 

00,2674 

1 2676 

0 

BZF 

4-2 

1687 

REF 

3 

LAST 

1054 

00, 2675 

1 2405 

0 

TCF 

DVOVF 

1688 

REF 

570 

LAST 

10  6 1 

00,2676 

56  160 

0 

XCH 

MPAC  4-4 

1689 

REF 

571 

LAST 

1061 

00,2677 

56  157 

1 

XCH 

MPAC  4-3 

1690 

00,2700 

0-  00  06 

1 

EXTEND 

1691 

00,2701 

1 2703 

0 

BZF 

4-2 

1692 

REF 

4 

LAST 

106  1 

00,2702 

1 2405 

0 

TCF 

DVOV  F 

1693 

REF 

572 

LAST 

106  1 

00,2703 

56  162 

I 

XCH 

MPAC  4-6 

1694 

REF 

573 

LAST 

106  1 

00,2704 

56  161 

1 

XCH 

MPAC  4-5 

1695 

OOf  2 705 

0 0006 

1 

EXTEND 

1696 

00,2706 

1 2710 

1 

BZF 

4-2 

1697 

REF 

5 

LAST 

1061 

00,2707 

1 2405 

0 

TCF 

DVDVF 

1698 

REF 

109 

LAST 

106  1 

00,2710 

10  130 

1 

CCS 

BUF 

1699 

REF 

2 

LAST 

106  1 

00,2711 

1 2721 

0 

TCF 

/BUF4- 

1700 

REF 

6 

LAST 

1061 

00,2712 

1 2405 

0 

TCF 

DVOVF 

1701 

REF 

2 

LAST 

106  1 

00,2713 

1 2715 

1 

TCF 

/BUF- 

1702 

REF 

7 

LAST 

106  1 

00,2714 

1 2405 

0 

TCF 

DVOVF 

1703 

00,2715 

0 0006 

1 /BUF- 

EXTEND 

1704 

REF 

no 

LAST 

106  1 

00,2716 

4 0131 

0 

DCS 

BUF 

1705 

REF 

in 

LAST 

1061 

00,2717 

52  131 

0 

DXCH 

BUF 

1706 

REF 

54 

LAST 

106  1 

00,2720 

24  127 

0 

I NCR 

VBUF  4-5 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1061 

USER'S  PAGE  NO.  65  E3  S3 

IS  NOW  IN  MPAC  WITH  SCALAR  IN  BUF. 

INITIALIZE  DIVIDEND  NORMALIZATION  COUNT 
AND  DIVISION  SIGN  REGISTER. 

FORCE  SIGN  AGREEMENT  IN  VECTOR 

SIGN  AGREE  BUF 

FORCE  DIVISOR  POSITIVE  WITH  MAJOR  PART 
NON-ZERO  (IF  POSSIBLE). 

SHIFT  VECTOR  AND  SCALAR  LEFT  14. 

CHECK  FOR  OVERFLOW  IN  EACH  CASE. 


ZERO  DIVISOR  - OVERFLOW. 


ON  NEGATIVE,  COMPLEMENT  BUF  AND  MAINTAIN 
DVSIGN  IN  VBUF  +5. 


GAP 
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1707 

00,2721 

0 0006 

1 

/BUF+ 

EXTEND 

1708 

REF 

112 

LAST 

1061 

00,2722 

3 0131 

1 

DC  A 

BUF 

LEAVE  ABSIORIG  DIVISOR)  IN  BUF2 

1 ACT 

10  5 4 

QOt  2 723 

5?  1 34 

o 

DXCH 

RUF2 

<=0R  OVERFLOW  TFSTING 

1710 

REF 

1 

00,2724 

1 2732 

1 

TCF 

/NORM 

NORMALIZE  DIVISOR  IN  BUF. 

1 

/NOR  M2 

FXTFND 

IF  LESS  THAN  .5,  AUGMENT  DVNORMCT  AND 

1711 

1712 

REF 

5 

LAST 

1061 

00,2726 

24  137 

1 

AUG 

DVNOPMCT 

DOUBLE  DIVISOR. 

1713 

00,2727 

0 0006 

1 

EXTEND 

1714 

REF 

1 1 3 

| AST 

106  2 

00, 2730 

3 0131 

1 

DC  A 

BUF 

1715 

REF 

1 14 

LAST 

1062 

00,2731 

20  131 

0 

DA  S 

BUF 

last 

106  2 

OOf  2 732 

3 0130 

o 

/NORM 

CA 

BUF 

SEE  IF  DIVISOP  NORMALIZED. 

1717 

00,2733 

6 0000 

1 

DOUBLE 

1718 

00,2734 

54  000 

0 

OVSK 

1 7 1 Q 

REF 

l 

00t 2735 

1 2725 

1 

TCF 

/NOR  M2 

DOUBLF  AND  TRY  AGAIN  IF  NOT. 

1720 

REF 

1 

00,2736 

0 2750 

1 

TC 

V / SC DV 

DO  X COMPONENT  DIVIDE. 

1721 

R EF 

S 74 

LAST 

106  1 

00,2737 

52  1 60 

1 

DXCH 

M P AC  +3 

SUPPLY  ARGUMENTS  IN  USUAL  SEQUENCE. 

1722 

REF 

575 

LAST 

1062 

00,2740 

52  155 

1 

DXCH 

M P AC 

1723 

REF 

576 

LAST 

1062 

00,2741 

52  160 

1 

DXCH 

MPAC  +3 

1724 

REF 

2 

LAST 

1062 

00,2742 

0 2750 

1 

TC 

V/SC  DV 

Y COMPONENT. 

1725 

REF 

577 

LAST 

1062 

00,2743 

52  162 

0 

DXCH 

MPAC  +5 

1726 

R F F 

578 

579 

LAST 

LAST 

106  2 

00,2744 

52  155 

1 

DXCH 

MPAC 

1727 

REF 

1062 

00,2745 

52  162 

0 

DXCH 

MPAC  +5 

P F F 

LAST 

106  2 

OH  . 9 7AA 

0 2 7 50 

1 

TC 

V/SC  PV 

Z COMPONENT* 

1729 

REF 

2 

LAST 

1045 

00,2747 

1 7417 

0 

TCF 

VROT ATEX 

GO  RE-ARRANGE  COMPONENTS  BEFORE  EXIT 

GAP  : 
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L INTERPRETER 


P 1730 

SUB  ROUT  I NE 

USED  BY 

V/SC  TO 

DIVIDE  VECTOR  COMPONENT  IN  Ml 

DCC 

55- 

LAST 

10  6 1 

00,2750 

3 0127 

0 V/SCDV 

CA 

VBUF  +5 

1732 

1733 

K t T 

REF 

7 

LAST 

1059 

00,2751 

54  136 

l 

TS 

D VS  I GN 

1 71  /, 

REF 

5 80— 

LAST 

106  2 

00,2752 

10  154 

_Q 

GCS 

MPAC 

1 

1735 

REF 

1 

00,2753 

1 27  67 

1 

TCP 

/MPAC+ 

1736 

00,2754 

1 2756 

0 

TCF 

+ 2 

1 737 

REF 

T 

00,2755 

1 2763 

0 

TCF 

/ MP AC- 

1738 

REF 

581 

LAST 

10  6 3 

00,2756 

10  155 

1 

CCS 

MPAC  +1 

1739 

REF 

2 

L AST- 

10  6-3 

00,-2-757 

1 27  67 

1 

TCF 

7MPAC  + 

1740 

REF 

281 

LAST 

10  5 5 

00,2760 

0 0002 

0 

TC 

Q 

1741 

REF 

2 

LAST 

1063 

00,2761 

1 2763 

0 

TCF 

/MPAC- 

1742  REF  282  LAST  1063  00,2762  0 0002  0 IC  9 


1743 

1744 

RE-E 

582 

LAST 

1063 

00,2763 
00, 2 76)4 

0 0006 
4 0155 

1 

1 

/MPAC- 

EXTEND 

DCS 

MPAC 

1745 

REF 

583 

LAST 

1063 

00,2765 

52  155 

1 

DXCH 

“PAC 

1746 

REF 

8 

LAST 

1063 

00,2766 

24  136 

0 

INCR 

DVSI GN 

1747 

REF 

111 

LAST 

106  1 

00,2767 

4 4753 

0 

/MP AC+ 

CS 

ONE 

1748 

REF 

4 

LAST 

10  5 6 

00,2770 

54  140 

0 

TS 

MAXDVSW 

1749 

REF 

584 

LAST 

1063 

00,2771 

4 0154 

0 

CS 

MPAC 

1750 

REF 

18 

LAST 

1062 

00,2772 

6 0133 

0 

AD 

BUF  2 

1751 

REF 

348 

LAST 

10  5 5 

00,2  773 

1 0 000 

0 

CCS 

A 

1752 

REF 

1 

00,2774 

1 3004 

1 

TCF 

DDVC A L L 

1753 

00,2775 

1 2777 

0 

TCF 

+ 2 

17  54 

REF 

8_ 

LAST 

106  1 

00,2  776 

1 2405 

0 

ICE 

DVDV  F 

1755 

REF 

5 

LAST 

1063 

00,2777 

54  140 

0 

TS 

MAXDVSW 

1756 

REF 

585 

LAST 

1063 

00,3000 

4 0155 

1 

CS 

MPAC  +1 

1757 

REF 

19 

LAST 

1063 

00,300 1 

6 0134 

1 

_AD 

BUF  2 +1 

1758 

00,3002 

0 0006 

1 

EXTEND 

1759 

REF 

9 

LAST 

1063 

00, 3003 

6 2405 

1 

BZMF 

DVOVF 

1760 

REF 

586 

LAST 

106  3 

00, 3004 

52  155 

1 

DDVC ALL 

DXCH 

MPAC 

1761 

REF 

6 

LAST 

1062 

00,3005 

50  137 

1 

INDEX 

DVNORMCT 

1762 

REF 

_ 2 

LAST 

10  5 5 

00,3006 

1 25  65 

1 

TCF 

maxtfst 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1063 
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<-1  BY  THE  SCALAR  GIVEN  IN  BUF. 

REFLECTS  SIGN  OF  SCALAR. 

FORCE  MPAC  POSITIVE,  EXITING  ON  ZERO. 


USUAL  COMPLEMENTING  AND  SETTING  OF  SIGN. 


INITIALIZE  NEAR-ONE  SWITCH. 


CHECK  POSSIBLE  OVERFLOW. 
UNNORMALI ZED  INPUT  DIVISOR. 

NOT  NEAR-ONE 

+0  IS  JUST  POSSIBLE 

NO  HOPE 

SIGNAL  POSSIBLE  NEAR-ONE  CASE 
SEE  IF  DIVISION  CAN  BE  DONE 


CALL  PRE-OIVIDE  NORMALIZATION 
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L INTERPRETER 


1763 

00,3007 

32506 

0 

SLGPEL0 

DEC 

.8324 

O rr 

TOO 

1 A Q T 

AO.  Ifll  A 

56  002 

G- 

V FT  AGR  FF 

XC  H 

Q 

1 7 64 

Ktr 

£.  C D 

L A*  o 1 

iU  O D 

vui JO 1U 

1765 

REF 

587 

LAST 

1063 

00,301 1 

52  155 

1 

DXCH 

MPAC 

1766 

REF 

3 

LAST 

1061 

00,3012 

0 7543 

1 

TC 

ALS  I GNAC- 

1767 

R E F 

5 88- 

L AST 

106  4 

00, 3013 

52  155 

_L_ 

DXCH 

MPAC 

1768 

REF 

589 

LAST 

1064 

00,3014 

52  160 

1 

DXCH 

MPAC  +3 

1769 

REF 

4 

LAST 

1064 

00,3015 

0 7543 

1 

TC 

ALSI GNAG 

1 770 

REF 

590 

L AS  T 

1064 

00, 3016 

52  160 

1 

DXC  EL 

MPAC  +3 

1771 

REF 

591 

LAST 

1064 

00,3017 

52  162 

0 

DXCH 

MPAC  +5 

1772 

REF 

5 

LAST 

1064 

00,3020 

0 7543 

1 

TC 

ALSI GNAG 

1 7 73 

R EF 

5 9 2 

L AST 

106  4 

CO, 302 1 

52  1 62 

_Q_ 

DXCH 

MPAC  +5 

1774 

REF 

349 

LAST 

1063 

00,3022 

0 0000 

1 

TC 

A 

USER'S  PAGE  NO.  68  E3  S3 

SAVE  Q IN  A 
SIGNAGREE  MPAC 

SIGN  AGREE  MPAC  +3 

SIGNAGREE  MPAC  +5 


GAP:  ASSEMBLE  REV  IS ION  069  OF  AGC  PROGRAM  LUMINARY  BY 


L INTERPRETER 

p 1 7 75  THE  FOLLOWING  ROUTINE  EXECUTES  THE  UN 


1777 

REF 

— 2 

LAST 

106  1 

00, 3023 

0 3010 

0 UNIT 

1778 

REF 

3 

LAST 

1034 

00, 3024 

0 7531 

1 

1779 

REF 

200 

LAST 

1059 

00,3025 

3 4755 

1 

1780 

R EE 

6 

FAST 

10  5 2 

00, 3026 

56  121 

0 

1781 

REF 

20 

LAST 

92  3 

00,3027 

54  141 

l 

1782 

REF 

1 

00,3030 

0 3317 

1 

1783 

REF 

21 

LAST 

106  5 

00, 303 1 

3 0141 

0 

1784 

REF 

7 

LAST 

1065 

00,3032 

56  121 

0 

1785 

00,3033 

0 0006 

1 

1786 

00,3034 

1 3036 

0 

1787 

REF 

10 

LAST 

1063 

00,3035 

1 2405 

0 

1788 

00, 3036 

0 00  06 

1 

1789 

REF 

5 93 

LAST 

1064 

00,3037 

3 01  55 

0 

1790 

REF 

42 

LAST 

101  9 

00,3040 

50  120 

1 

1791 

REF 

1 

00,3041 

52  043 

1 

1792 

REF 

1 

00,3042 

0 3343 

0 

^793 

REF 

594 

FAST 

106  5— 

00^3043 

10  154 

-0 

1794 

00,3044 

1 30  51 

1 

1795 

REF 

191 

LAST 

1056 

00,3045 

54  001 

1 

1796 

RTEE- 

43 

LAST 

10  6 5 

00, 3046 

50  120 

-1 

1797 

REF 

1 

00,3047 

52  045 

1 

1798 

REF 

11 

LAST 

1065 

00,3050 

1 2405 

0 

1799 

REF 

2 

LAST 

573 

00,  3051 

4 4317 

1 

1800 

REF 

47 

LAST 

10  5 1 

00,3052 

6 0135 

0 

1801 

—REF 

3 50 

LAST- 

106  4 

00,3053 

10  000 

-0 

1802 

00,3054 

4 0000 

0 

1803 

REF 

1 

00,3055 

1 3133 

1 

1804 

REF 

1 

I-8-Q5 — 

REF 

I 

1806 

REF 

48 

LAST 

1065 

1807 

REF 

595 

LAST 

106  5 

1808 

REF 

192 

LAST 

1065 

1809 

REF 

2 C 1 

LAST 

1065 

1810  REF  1 


1811 

REF 

49 

LAST 

1065 

1812 

REF 

1 

1813 

REF 

1 

1814 

REF 

50 

FAST 

1065 

1815 

1816 


00,3056  1 3065  0 

00,3057  4 4761  1 

00,3060  54  135  1 

00,3061  3 0154  1 

00,3062  54  001  1 SMALL2 

00,3063  3 4755  1 

00,3064  1 3112  1 

00,3065  10  135  1 LARGE 

00,3066  1 3074  0 

00,3067  4 2024  1 

00,3070  54  135  1 

00,3071  0 0006  1 

00,3072  3 0155  0 


REF  596  LAST  1065 
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USER'S  PAGE  NO.  69  E3  S3 


T INSTRUCTION,  WHICH  TAKES  THE  UNIT  OF  THE  VECTOR  IN  MPAC. 


TC 

Y FC  A GRFE 

FORCE  SIGN  AGRFEMFNT  IN  VFCTOR 

TC 

CAF 

XCH 

MPAC VBUF 
ZERO 
OVFI ND 

SAVE  ARGUMENT  IN  VBUF 

MUST  SENSE  OVERFLOW  IN  FOLLOWING  DOT. 

TS 

TC 

CA 

TEM  1 
VSQSUB 
TEM  1 

DOT  MPAC  W ITH  ITSELF. 

XCH 

EXTEND 

BZF 

DVF I ND 

+ 2 

TC  F 

EXTENO 
DC  A 

DVCIV  F 
MPAC 

LEAVF  THE  SQUARE  OF  THE  LENGTH  OF  THE 

INDEX 

DXCH 

F I X L OC 
L VSOUARE 

ARGUMENT  IN  LVSQU ARE. 

TC 

SORTSUB 

GO  TAKE  THE  NORMALIZED  SQUARE  ROOT. 

CCS 

MPAC 

CHECK  FOR  UNIT  OVERFLOW. 

TC  F 
TS 

INDEX 

+ 5 
L 

F I X L CC 

MPAC  IS  NOT  LESS  THAN  .5  UNLESS 

DXCH 
TC  F 

LV 

DVDV  F 

INPUT  TO  SQRTSUB  WAS  0. 

CS 

AD 

CCS 

FOURTEEN 

MPTEMP 

A 

SEE  IF  THE  INPUT  WAS  SO  SMALL  THE  THE 
FIRST  TWO  REGISTERS  OF  THE  SQUARE  WERE  0 

COM 
TC  F 

SMALL 

IF  SO,  SAVE  THE  NEGATIVE  OF  THE  SHIFT 
COUNT  -150. 

TC  F 

LARGE 

(THIS  IS  USUALLY  THE  CASE.) 

CS 

T F I R TFFN 

IF  THE  SHIFT  COUNT  WAS  EXACTLY  14,  S FT 

TS 

MPTE  MP 

THE  PRE-DIVIDE  NORM  COUNT  TO  -13D. 

CA 

MPAC 

SHIFT  THE  LENGTH  RIGHT  14  BEFORE  STORING 

TS 

CAF 

TCF 

L 

ZERO 

LARGE2 

(SMALL  EXITS  TO  THIS  POINT). 

GO  TO  S T0° E LFNGTH  AND  PROCEED. 

CCS 

TCF 

MPTFMP 

LARGE3 

MOST  ALL  CASES  COME  HERE. 

SEE  IF  NO  NORMALIZATION  WAS  REQUIRED  BY 

CS 

TS 

SRDD  V 
MPTE  MP 

SORT , AND  IF  SO,  SET  UP  FOR  A SHIFT 
RIGHT  1 BEFORE  DIVIDING  TO  PRODUCE 

EXTEND 

OCA 

MPAC 

THE  DESIRED  HALF  UNIT  VECTOR. 

GAP: 

L 

1817 
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INTERPRETER  USER'S  PAGE  NO.  70  E3  S3 

REF  2 LAST  1065  00,3073  l 3112  1 TCF  LAPGE2 


GAP 


ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  8Y 


L INTERPRETER 


1818 

1819 

REF 

51 

LAST 

1065 

00,3074 

00,3075 

4 0000 
54  135 

0 

1 

1820 

00,3076 

4 0000 

0 

1821 

REF 

351 

LAST 

1065 

00,3077 

5 0 000 

1 

1822 

REF 

68 

LAST 

105  C 

00,3100 

3 4736 

_L 

1823 

REF 

116 

LAST 

1062 

00,3101 

54  130 

1 

1824 

00,3102 

0 0006 

1 

182  5 

REF 

597 

LAST 

10  6 5 

00,3103 

7 0155 

_L 

1826 

REF 

117 

LAST 

106  7 

00,3104 

56  130 

0 

1327 

00,3105 

0 0006 

1 

1828 

-REF 

596 

LAST 

106  7 

00,3106 

7 01  54 

31 

1829 

REF 

193 

LAST 

1065 

00, 3 107 

56  001 

0 

1830 

REF 

118 

LAST 

106  7 

00,3  110 

6 0130 

0 

1831  REF  194  LAST  1067  00,3111  56  001  0 


1832 

REF 

44 

LAST 

1065 

00,3112 

50 

120 

l 

1833 

REF 

— 2— 

LAST 

106-5 

00,3113 

52 

045 

1 

1834 

REF 

112 

LAST 

1063 

00,3114 

4 

4753 

0 

1835  RFF  6 LAST  1063  00,3115  54  140  0 


1836 

REF 

56 

LAST 

1063 

00,3116 

52  123 

0 

1837 

REf 

5 99 

LAST 

106  7 

00,3117 

52  155 

1 

1838 

REF 

1 19 

LAST 

106  7 

00,3120 

52  131 

0 

1839 

REF 

1 

00,3121 

0 3151 

1 

1840 

REF 

57 

LAST 

1067 

00, 3122 

52  125 

0 

1841 

REF 

600 

LAST 

106  7 

00,3123 

52  155 

l 

1842 

REF 

60  1 

LAST 

106  7 

00, 3124 

52  160 

1 

1843 

REF 

2 

LAST 

106  7 

00,3125 

0 3151 

1 

1844 

REF 

-5-8  - 

LAST 

1067 

00,  3126 

52  127 

1 

1845 

REF 

602 

LAST 

106  7 

00, 3127 

52  155 

1 

1846 

REF 

603 

LAST 

1067 

00,3130 

52  162 

0 

1847 

REF 

3 

LAST 

106  7 

00, 3 131 

0 3151 

1 

184  8 

REF 

3 

LAST 

1062 

00,3132 

1 74  17 

0 

LARGE3 


LARGE2 
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USER' S PAGE  NO.  71  E3  S3 


COM 

TS 

MPTE  MP 

LEAVE  NEGATIVE  OF  SHIFT  COUNT-1  FOR 
“REDIVIDE  LEFT  SHIFT. 

COM 

INDEX 

CAF 

A 

B I LI  4 

PICK  UP  REQUIRED  SHIFTING  BIT  TO  UNNORM- 
ALIZE THE  SORT  RESULT. 

TS 

EXTEND 

MP 

BUF 

MPAC  +1 

XCH 

EXTEND 

MP 

BUE 

MPAC 

(UNNORMALIZE  THE  SORT  FOR  LV). 

XCH 

AD 

XCH 

L 

8UF 

L 

INDEX 

DXCH 

F I XL  OC 
L V 

LENGTH  NOW  STORED  TN  WORK  ARFA. 

cs 

TS 

ONE 

MAXO VSW 

NO  MAXDV  CASES  IN  UNIT. 

DXCH 

DXCH 

VBUF 

MPAC 

PREPARE  X COMPONENT  FOR  DIVIDE,  SETTING 
LENGTH  OF  VFCTOR  AS  DIVISOR  IN  BUF. 

DXCH 

TC 

BUF 

UNI TDV 

DXCH 

DXCH 

DXCH 

VBUF  +2 
MPAC 
MPAC  +3 

DO  Y AND  Z IN  USUAL  FASHION  SO  WE  CAN 
EXIT  THROUGH  VROTATEX. 

TC 

UNI T DV 

DXCH 

VBUF  +4 

DXCH 

DXCH 

TC 

MPAC 
MPAC  +5 
UNI T DV 

TC  F 

VROT ATEX 

AND  EXIT. 

GAP: 

L 

P 1849 

R 1851 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

186  7 

1868 

1869 
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INTERPRETER  USER'S  PAGE  NO.  72  E3  S3 


IF  THE  LENGTH  OF  THE  ARGUMENT  VECTOR  WAS  LESS  THAN  21-28),  EACH  COMPONENT  MUST  BE  SHIFTED  LEFT  AT  LEAST 
14  PLACES  BEFORE  THE  DIVIDE.  NOTE  THAT  IN  THIS  CASE,  I HF  MAJOR  PART  OF  EACH  COMPONENT  IS  ZERO. 


REF 

52 

LAST 

1067 

00, 3 133 

54  135 

1 £.7 

1 

1 

SMALL 

IS 
C AF 

MPT E MP 
7 F R n 

NEGATIVE  OF  PRE-DIVIDE  SHIFT  CnUNT. 
SHIFT  FACH  COMPONENT  LEFT  14. 

REF 

REF 

20  2 
59 

L Ao  1 

LAST 

106  7 

00,3135 

56  123 

1 

XCH 

VBUF  +1 

REF 

60 

LAST 

1068 

00,3136 

56  122 

0 

XCH 

VBUF 

REF 

6 1 

j a<;t 

106  8 

00, 3 137 

56  125 

1 

XCH 

VBUF  +3 

REF 

62 

LAST 

106  8 

00,3140 

56  124 

0 

XCH 

VBUF  +2 

REF 

63 

LAST 

106  8 

00, 3141 

56  127 

0 

XCH 

VBUF  +5 

REE 

64 

LAST 

106  8 

00, 3142 

56  126 

1 

XCH 

VBUF  +4 

REF 

53 

LAST 

1068 

00,3143 

4 0135 

1 

cs 

MPT  F MP 

REF 

3 52 

L AC  T 

106  7 

00,3144 

50  000 

1 

INDEX 

A 

REF 

69 

LAST 

1067 

00,3 145 

3 4736 

1 

CAF 

B I T 1 4 

00,3146 

0 0006 

1 

EXTEND 

R F F 

6G4 

LAST 

106  7 

00,3147 

7 01  54 

o 

MP 

MPAC 

REF 

i 

00,3150 

1 3062 

1 

TCF 

SMALL2 

1 ACT 

9 5 0 

TH I QTFFM 

nc  T 1 5 

REF 

i 

U HO  1 

4317 

FOURTEEN 

= 

OCT  1 6 

REF 

13 

LAST 

470 

4317 

OCT  16 

= 

R1D1 

GAP  : 

L 

P1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

18  86 

1887 

1888 

1889 
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INTERPRETER 


USER'S  PAGE  NO.  73  E3  S3 


TFE 

FOLLOWING  ROUTI 

NE  SETS  UP 

THE  CALL 

TO  THF 

HI  VIDE  ROUTINES . 

REF 

REF 

605 

1 

10  1 ^4 

0 

UNI mu 

rr  s 

M PAC 

FORCE 

MPAC  POSITIVE  IF  POSSIBLE.  SETTING 

Lflo  1 

00,3152 

l 3170 

0 

TCF 

UMP AC+ 

DVSIGN  ACCORDING  TO  THE  SIGN  OF  MPAC 

00,3153 

1 3155 

1 

TCF 

+ 2 

SINCE 

THE  DIVISOR  IS  ALWAYS  POSITIVE 

00,3154 

1 31  6? 

0 

TCF 

_ UMP AC- 

HERE  . 

REF 

6C6 

LAST 

1069 

00,3155 

10  155 

1 

CCS 

M PAC  +1 

LAST 

106  9 

00,3156 

1 31  70 

0 

TCF 

JMPAC+ 

REF 

284 

LAST 

1064 

00,3157 

0 0002 

0 

TC 

Q 

EXIT 

IMMEDIATELY  ON  ZERO. 

REF 

2 

LAST 

1065 

00, 3160 

1 3162 

0 

TCF 

UMP AC- 

REF  285  -LAST  1065  00,3161  0 0002  0 ,|f.  . 


REF 

REF 

203 

o 

LAST 

LAST 

106  8 
106  3 

00, 3162 
-00, 3 163 

4 4755 
54  136 

0 

1 

UMP AC- 

CS 

TS 

ZERO 
D VS  I GM 

IF  NEGATIVE,  SET  -0  IN 
COMPLEMENT . 

DVSIGN 

FOR  FINAL 

00,3  164 

0 0006 

1 

EXTFND 

REF 

607 

LAST 

1069 

00,3165 

4 0155 

1 

DCS 

MPAC 

PICK  UP  ABSOLUTE  VALUE 

OF  ARG 

AND  JUMP. 

REF 

54 

LASL 

10  6.8. 

00,3166 

50  435 

0 

INDEX 

MPTEMP 

REF 

3 

L AST 

106  3 

00,3167 

1 2 5 64 

0 

TCF 

M AX  T EST  -1 

REF 

—4-0- 

-LAST- 

106  9 

—00 ,3170 

54  136 

-4— 

UMP AC+ 

TS 

D VS  I GN 

SET  DVSIGN  FOR  POSITIVE 

QUOTIENT. 

REF 

608 

LAST 

1069 

00, 3171 

52  155 

1 

DXCH 

MPAC 

REF 

55 

LAST 

1065 

00, 3 172 

50  135 

0 

INDEX 

M PTE  MP 

REF 

4- 

-LAST 

1065- 

00  , 34-73 

1 25  64 

0 

TCF 

MAXTFST  -1 

GAP 
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L INTERPRETER 

PI 890  MISCELLANEOUS  UNARY  OPERATIONS. 


1891 

REF 

— 1- 

00,3174 

0 3300 

1 

OSQ 

TC 

DSQSUB 

1892 

REF 

34 

LAST 

10  5 5 

00,3175 

1 6060 

0 

TCF 

DANZ  IG 

10  1 63 

l 

ARM  Al  AR  ^ 

crs 

MnnF 

1894 

REF 

3 

LAST 

824 

00,3177 

1 3226 

0 

TCF 

ABS 

1895 

REF 

4 

LAST 

1070 

00,3200 

1 3226 

0 

TCF 

ABS 

1896 

REF 

2 

LAST 

1065 

CO, 3201 

0 3317 

l 

ABVAL 

TC 

V SOS  UB 

1897 

REF 

32 

LAST 

1070 

00,3202 

22  163 

0 

LXCH 

MODE 

1898 

00,3203 

0 0006 

1 

EXTEND 

1899 

REF 

609 

LAST 

1069 

00,3204 

3 0155 

0 

DC  A 

MPAC 

1 QQf) 

REF 

45 

L 

!Df>  7 

00 f 3 70  5 

50  120 

1 

INDEX 

F IXLCC 

1901 

REF 

2 

LAST 

1065 

00,3206 

52  043 

1 

DXCH 

L VSQUARF 

USER • S PAGE  NO.  74  E3  S3 

SQUARE  THE  DP  CONTENTS-  OF  MPAC. 

A8VAL  OR  ABS  INSTRUCTION. 

DO  ABS  ON  SCALAR. 

DOT  MPAC  WITH  ITSELF. 

MODE  IS  NOW  DP  (L  ZERO  AFTER  DAS). 

STORE  SQUARE  OF  LENGTH  IN  WORK  AREA. 


GAP: 
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INTERPRETER 


USER' S PAGE  NO.  75 


E3  S3 


P 1902 
R 1903 
R 1904 
R 1906 
R 1908 
R 1910 
R1912 
R 1 9 1 4 
R1916 
R 1 9 1 7 
R 1919 


PROGRAM  DESCRIPTION-  SUBROUTINE  SORT 

FUNCTIONAL  DESCRIPTION-DOUBLE  PRECISION  SQUARE  ROOT  ROUTINE 

THIS  PROGRAM  TAKES  THE  SQUARE  ROOT  OF  THE  27  OR  28  MOST  SIGNIFICANT  BITS  IN  THE  TRIPLE  PRECISION  SET  OF 
NUMB ER S-MPAC , MP AC+ 1 , A ND  MPAC+2.  THF  ROOT  IS  RETURNED  DOUBLE  PRECISION  IN  MPAC  AMD  MPAC+1. 

WARNING-  THIS  SUBROUTINE  USES  A TRIPLE  PRECISION  INPUT.  THE  PROGRAMMER  MUST  ASSURE  THE  CONTENTS  OF  MPAC+2 
ESPECIALLY  IF  THE  CONTENTS  OF  MPAC  IS  SMALL  OR  ZERO.  FOR  DETAILS  SEE  STG  MEMO  NO. 949. 

CALLING  SEQUENCE-  IN  INTERPRETIVE  MODE  I.E.,  FOLLOWING  TC  INTPRET,SQRT  NO  ADDRESS  IS  ALLOWED 

INPUT  SCALING  THE  BINARY  POINT  IS  ASSUMED  TO  THE  RIGHT  OF  BIT  15.  THE  ANSWER  IS  RETURNED  WITH  THE  SAME  SCALING 
SUBROUTINES-  GENS CR , MPAC SHR,  SORTS U B , ABORT 

ABCRT  EXIT  MODE-  ABORTS  ON  NEGATIVE  INPUT  -1.2X10E-4  (77775  OCTAL)  OR  LESS. 

DISPLAYS  ERROR  CODE  1302 


R 1920 
R 192 1 

IC — 

OCT 

ABOUT 

1302 

R 1922 

DEBRIS  - 

LOCATIONS 

BUF , M PTEMP 

',  ADDRWD 

ARE  USED 

1 Q?  ^ 

REF 

2 

1 AST 

106  5 

00,3207 

0 3343 

0 

SORT 

TC 

SQRT  SUB 

TAKE  THE  SQUARE  ROOT  OF  MPAC. 

1924 

REF 

56 

LAST 

106  9 

00,3210 

10  135 

1 

CCS 

M PTE  MP 

RETURNED  NORMALIZED  SQUARE  ROOT.  SEE  IF 

1925 

00,3211 

1 3213 

0 

TC  F 

+ 2 

ANY  UN-NORMALIZATION  REQUIRED  AND  EXIT 

PFF 

3-5 

L AST 

in7  c 

00, 371 7 

1 6060 

0 

TC  F 

DANZ  IG 

IF  NOT. 

1927 

REF 

3 

LAST 

1050 

00,3213 

6 3733 

0 

AD 

NEG1  2 

A RIGHT  SHIFT  OF  MORE  THAN  13  COULD  BE 

00,3714 

0 00  06 

1 

EXTEND 

RFQU I RED  IF  INPUT  WAS  ZERO  IN  MPAC,  + 1. 

1929 

REF 

1 

00,3215 

6 3221 

0 

BZMF 

SQP-TSHFT 

GOES  HERE  IN  MOST  CASES. 

1930 

00,3216 

22  007 

0 

ZL 

IF  A LONG  SHIFT  IS  REQUIRED,  GO  TO 

1 Q 1 

-RFF 

£ 0 

1 AST 

10  5 1 

00,3217 

22  1 16 

X 

LXCH 

ADDRWD 

GENERAL  RIGHT  SHIFT  ROUTINES. 

1932 

REF 

4 

LAST 

10  5 0 

00, 3220 

1 2303 

1 

TC  F 

GENS  CR  +4 

ADDRWD  WAS  ZERO  TO  PREVENT  ROUND. 

19^3 

REF 

57 

EAST 

107  1 

0F1,  3 7 71 

50  135 

o 

SQR  TSHFT 

INDEX 

M PT  F MP 

SELECT  SHIFTING  BIT  AND  EXIT  THROUGH 

1934 

REF 

40 

LAST 

102  1 

00, 3222 

3 4735 

1 

CAF 

B ITl  5 

SHIFT  ROUTINES. 

1935 

REF 

58 

LAST 

107  1 

00,3223 

54  135 

1 

TS 

M PTE MP 

1936 

REF 

204 

LAST 

106  9 

00,3224 

3 4755 

1 

CAf 

ZERO 

TO  ZFRO  MPAC  +2  IN  THE  PROCESS. 

1937 

REF 

2 

LAST 

1050 

00, 3225 

1 2036 

1 

TC  F 

MPAC  SHR  +3 

1 Q3P 

REF 

6 

EAST 

104  7 

00,  3 77  6 

0 6777 

n 

ABS 

TC 

BRANCH 

TFST  SIGN  OF  MPAC  AND  C OMPLFM  ENT  IF 

1939 

REF 

36 

LAST 

107  1 

00, 3227 

1 6060 

0 

TC  F 

DANZ  IG 

1940 

REF 

37 

LAST 

107  1 

00, 3230 

1 6060 

0 

TC  F 

DANZ  IG 

1941 

REF 

4 — 

-LAST 

104  1 

00,3231 

1 7667 

0- 

TC  F 

comp 

GAP: 

L 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1%4 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

L976 

1977 

1978 

1979 
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REF 

REF 

23 

22 

LAST 

LAST 

103  6 
1039 

00, 3232 
00,3233 
00, 3234 

4 4751 
2 6 166 
0 00  06 

1 

1 

1 

VDEF 

CS 

ADS 

EXTEND 

FOUR 
PUSH  LOC 

REF 

353 

LAST 

1068 

00,3235 

5 0000 

1 

INDEX 

A 

00,3236 

3 0003 

1 

DC  A 

2 

last 

in7Q 

not  32  3 7 

5?  1 60 

1 

DXCH 

MPAC  +3 

00,3240 

0 0006 

1 

EXTEND 

REF 

23 

LAST 

1072 

00,3241 

5 0166 

0 

INDEX 

PUSHLOC 

nnt 3 242 

3 0001 

o 

DC  A 

0 

REF 

611 

LAST 

1072 

00,3243 

52  162 

0 

DXCH 

MPAC  +5 

REF 

2 

LAST 

10  3 6 

00, 3244 

l 6520 

1 

TCF 

V MOP  E 

REF 

3 

LAST 

10  7 0 

00,3245 

0 3317 

1 

VSQ 

TC 

V SOS  UB 

RFF 

1 

00,3246 

1 73  31 

0 

TCF 

DMODE 

00,3247 

0 0006 

1 

PUSH 

EXTEND 

REF 

612 

LAST 

1072 

00,3250 

3 0155 

0 

DC  A 

MPAC 

RFF 

24 

LAST 

1072 

00,3251 

50  166 

0 

INDEX 

PUSHLOC 

00, 3252 

52  001 

1 

DXCH 

0 

RE  F 

3 3 

LAST 

10  7 0 

OOt  3-2  63 

SO  163 

o 

I NIDFX 

MfiDF 

REF 

5 

LAST 

10  1 6 

00, 3254 

3 6243 

1 

CAF 

NO. W DS 

REF 

25 

LAST 

1072 

00,3255 

26  166 

1 

ADS 

PUSHLOC 

REF 

34 

LAST 

1072 

00, 3256 

10  163 

1 

CCS 

MODE 

REF 

1 

00, 3257 

1 3272 

1 

TCF 

TPUSH 

REF 

3-8 

last 

10  7 1 

00  T 3 260 

1 6060 

n 

TC  F 

DAN 7 TC 

00, 3261 

0 0006 

i 

EXTEND 

REF 

-6  13 

LAST 

107  2 

00, 3262 

3 0160 

0 

DC  A 

MPAC  +3 

REF 

26 

LAST 

1072 

00, 3263 

5 0 166 

0 

INDEX 

PUSHLOC 

00,3264 

51' 775 

0 

DXCH 

0 -4 

00, 3265 

0 0006 

1 

EXTEND 

REF 

614 

LAST 

1072 

00,3266 

3 0162 

1 

DC  A 

MPAC  +5 

REF 

27 

LAST 

1072 

00,3267 

50  166 

0 

INDEX 

PUSHLOC 

00, 3270 

5 1' 777 

l 

DXCH 

0 -2 

REF 

39 

LAST 

1072 

00,3271 

1 6060 

0 

TCF 

DANZ  IG 

REF 

6 15 

LAST 

107  2 

00, 3272 

3 0156 

o 

TPIJSH 

C A 

MPAC  +2 

REF 

2 

LAST 

101  5 

00, 3273 

1 6553 

0 

TCF 

ENDTPUSH 

REF 

46  . 

LAST 

107  0 

00 , 3274 

r o 120 

1 

RVO 

F I X L OC 

RFF 

n 

LAST 

101  8 

00,3275 

3 0052 

0 

C.  A 

OPRET 

REF 

22 

LAST 

10  3 0 

00, 3276 

54  117 

1 

TS 

POL  I SH 

REF 

5 

LAST 

10  19 

00,3277 

1 6651 

1 

TCF 

GOTO  +4 

USER • S PAGE  NO.  76  E3  S3 

VECTOR  DEFINE  - FSSENT I ALLY  TREATS 
SCALAR  IN  MP AC  AS  X COMPONENT,  PUSHES  UP 
FOR  Y AND  THEN  AGAIN  FOR  Z. 


MODE  IS  NON  VECTOR. 

DOT  MPAC  WITH  ITSELF. 

MODE  IS  NOW  DP. 

PUSH  DOWN  MPAC  LEAVING  IT  LOADED. 

PUSH  DOWN  FIRST  TWO  REGISTERS  IN  EACH 

INCREMENT  PUSHDOWN  POINTER. 


PUSH  DOWN  MPAC  +2. 

DONE  FOR  DP. 

ON  VECTOR,  PUSH  OOWN  Y AND  Z COMPONENTS. 


RVQ  - RETURN  IVA  QPRET. 


(ASSUME  QPRFT  POINTS  TO  FIXED  ONLY.) 
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P 1 980 

THE 

FOLLCWING  SUBROUTINES  ARE 

USED  IN  SQUARING 

MPAC,  I 

R 1982 

SPECIAL 

CASES 

OF  DMPSUB  AND 

OOTSUB, 

PUT 

IN  TO  SAVE  SOME 

T IMF  . 

1983 

REF 

616 

LAST 

1072 

00, 3300 

3 0155 

0 

DSQSUB  CA 

MPAC  +1 

1984 

00,3301 

0 0006 

1 

EXTEND 

198  ^ 

00,3302 

7 0000 

0 

SQUARE 

1986 

REF 

617 

LAST 

10  7 3 

00, 3303 

54  156 

1 

TS 

MPAC  +2 

1987 

REF 

205 

LAST 

107  1 

00,3304 

3 4755 

1 

CAF 

ZERO 

1 988 

REF 

^ ] R 

I AST 

107  3 

00, 3305 

56  I 55 

0 

XCH 

M ° A C +1 

1989 

00, 3306 

0 0006 

1 

EXTEND 

1990 

REF 

6 19 

LAST 

1073 

00,3307 

7 0154 

0 

MP 

MPAC 

1991 

00,3310 

20  001 

1 

DDOUBL 

1992 

REF 

620 

LAST 

1073 

00, 331 1 

20  156 

1 

DAS 

MPAC  +1 

1993 

REF 

621 

LAST 

1073 

00,3312 

56  154 

1 

XCH 

MPAC 

1994 

00,3313 

0 0006 

1 

EXTEND 

1995 

00,3314 

7 0000 

0 

SQUAR  E 

1996 

REF 

622 

LAST 

1073 

00,3315 

20  155 

1 

DAS 

MPAC 

1 997 

REF 

2 86 

LAST 

106  9 

00,3316 

0 0002 

0 

TC 

Q 

1998 

00,3317 

0 0006 

1 

VSQSU8  EXTEND 

\ 999 

R FF 

8 

LAST 

10?  8 

00,3320 

22  137 

1 

QXCH 

DOTRFT 

2000 

REF 

2 

LAST 

1070 

00, 3321 

0 3300 

1 

TC 

DSQSUB 

2001 

REF 

623 

LAST 

1073 

00,3322 

52  160 

1 

DXCH 

MPAC  +3 

2002 

REF 

624 

L AS  T 

10  7 3 

00, 3323 

52  L55 

1 

DXCH 

MPAC 

2003 

REF 

120 

LAST 

1067 

00,3324 

52  131 

0 

DXCH 

BUF 

2004 

REF 

625 

LAST 

1073 

00,3325 

3 0156 

0 

CA 

MPAC  +2 

2005  REF  421  LAS4  4073  00,3326  54  132  0 TS BUE— +2 


2006 

REF 

3 

LAST 

1073 

00, 3327 

0 3300 

1 

TC 

DSQSUB 

?007 

REF 

1 AST 

10  7 T 

0-0-f  3 330 

52  156 

1 

DXCH 

MPAC  +1 

2008 

REF 

122 

LAST 

1073 

00, 3331 

20  132 

0 

DAS 

BUF  +1 

2009 

REF 

627 

LAST 

1073 

00,3332 

6 0154 

1 

AD 

MPAC 

20 10 

REF 

12  3 

LAST 

107  3 

00,3333 

6 01  30 

0 

AD 

BUF 

2011 

REF 

124 

LAST 

1073 

00, 3334 

54  130 

1 

TS 

BUF 

2012 

00,3335 

1 3337 

1 

TCF 

+ 2 

2043  - REF 8-  LAST— 10  6 5 00,3336  54  121  1 4S  Q.VF  I NO 


2014 

REF 

628 

LAST 

1073 

00,3337 

52  162 

0 

DXCH 

MPAC  +5 

204  5 

REF 

6 29 

LAST 

1073 

00,3340 

52  155 

1 

DXC  H_ 

MPAC 

2016 

REF 

4 

LAST 

10  7 3 

00,3341 

0 3300 

1 

TC 

DSQSUB 

2017 

REF 

1 

00,3342 

1 7204 

1 

TCF 

ENDDOT 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1073 


USER'S  PAGE  NO.  77  E3  S3 

BOTH  THF  SCALAR  AND  VECTOR  SENSE.  THEY  ARE 

SQUARES  THE  SCALAR  CONTENTS  OF  MPAC. 

FORM  2 ( CROSS  TERM)  . 

AND  MAYBE  OVERFLOW. 

AND  SET  A TO  NET  OVERFLOW. 


DOTS  THE  VFCTOR  IN  MPAC  WITH  ITSELF. 
SQUARE  THE  X COMPONENT. 

SO  WF  CAN  END  IN  OOTSUB. 

SQUARE  Y COMPONENT. 


IF  OVERFLOW. 


SQUARE  Z COMPONENT 
END  AS  IN  OOTSUB. 
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P2018 

DOUBLE  PRECISION  SQUARE  ROOT  ROUTINE.  TAKE  THE 

SQUARE  ROOT 

OF  THE  TRIPLE  PRECISION  (MPAC  +2  USED  ONLY 

R2020 

IN 

NORMALIZATION)  CONTENTS  OF 

MPAC  AND 

LEAVE  THE 

NORMALIZED  RESULT 

IN  MPAC  (C(MPAC)  GREATER  THAN  OR  EQUAL  TO 

d iruT  cuict 

rmiMT  irn  iinndrmai  T7F)  K l FFT  IN 

MPTEMP. 

10  7 3 

00  t 3 343 

3 47  55 

1 

SQRTSUB 

r af 

ZERO 

START  BY  ZEROING  RIGHT  SHIFT  FOUNT. 

2024 

REF 

59 

L HO  1 

LAST 

1071 

00,3344 

54  135 

1 

TS 

MPTEMP 

LAST 

10  7 3 

00  t 3 345 

in  154 

0 

rr  s 

MPAC 

CHECK  FOR  POSITIVE  ARGUMENT,  SHIFTING 

2026 

REF 

O J u 

1 

00,3346 

1 3405 

1 

TCF 

SMP AC+ 

FIRST  SIGNIFICANT  MPAC  REGISTER  INTO 

2027 

00,3347 

l 3351 

1 

TCF 

+2 

MPAC  ITSELF. 

2028 

REF 

1 

00,3350 

1 33  73 

1 

TCF 

SQRTNEG 

SEE  IF  MAG  OF  ARGUMENT  LESS  THAN  1 0 ( — 4 ) . 

2029 

REF 

631 

LAST 

1074 

00,3351 

56  156 

0 

XCH 

MPAC  +2 

MPAC  IS  ZERO  - SHIFT  LEFT  14. 

2030 

REF 

6 32 

LAST 

107  4 

00, 3352 

56  1 55 

0 

XCH 

MPAC  +1 

2031 

REF 

633 

LAST 

1074 

00, 3353 

54  1 54 

0 

TS 

MPAC 

2032 

REF 

14 

LAST 

95  8 

00,3354 

3 4757 

0 

CAF 

SEVEN 

AUGMENT  RIGHT  SHIFT  COUNTER. 

203^ 

REF 

£Q 

LAST 

1074 

00t  3358 

54  135 

1 

TS 

MPTEMP 

2034 

REF 

634 

LAST 

1074 

00, 3356 

10  154 

0 

CCS 

MPAC 

SEE  IF  MPAC  NOW  PNZ. 

2Q35 

REF 

2 

LAST 

1074 

00f  3 357 

1 3405 

1 

TC  F 

SMP AC+ 

2036 

00, 3360 

1 3362 

1 

TCF 

+ 2 

2037 

REF 

i 

00,3361 

1 3376 

1 

TCF 

ZEROANS 

NEGATIVE  BUT  LESS  THAN  101-4)  IN  MAG. 

2038 

REF 

635 

LAST 

1074 

00, 3362 

56  155 

0 

XCH 

MPAC  +1 

ZERO  - SHIFT  LEFT  14  AGAIN. 

2039 

REF 

636 

LAST 

1074 

00, 3363 

54  154 

0 

TS 

MPAC 

7040 

REF 

— 15 

LAST 

107  A 

00, 3364 

3 4757 

0 

CAF 

SEVEN 

AUGMENT  RIGHT  SHIFT  COUNTFR. 

2041 

REF 

61 

LAST 

1074 

00, 3365 

26  135 

1 

ADS 

MPTE MP 

—204? 

R FF 

637 

LAST 

in  7 4 

00  T 3 3AA 

in  154 

0 

rr  s 

MPAC 

2043 

REF 

3 

LAST 

1074 

00,3367 

1 3405 

1 

TCP 

SMPAC+ 

2044 

REF 

287 

LAST 

10  7 3 

00,3370 

0 0002 

0 

TC 

Q 

SQRT(O)  = 0. 

2045 

REF 

2 

LAST 

1074 

00, 3371 

1 3376 

1 

TCF 

ZEROANS 

2046 

REF 

1 

00,3372 

1 3453 

1 

TCF 

F IXROOT 

DO  NOT  LEAVE  SQRTSUB  WITH  -0  IN  MPAC. 

2047 

REF 

354 

LAST 

1072 

00, 3373 

10  000 

0 

SQRTNEG 

CCS 

A 

ARGUMENT  IS  NEGATIVE,  BUT  SEE  IF  SIGN- 

2048 

REF 

1 

00, 3374 

1 3402 

0 

TCF 

SQRTABRT 

CORRECTED  ARGUMENT  IS  LESS  THAN  10<-4) 

2049 

REF 

638 

LAST 

1074 

00, 3375 

10  155 

l 

CCS 

MPAC  +1 

IN  MAGNITUDE.  IF  SO,  CALL  ANSWER  ZERO. 

2050 

KEF 

207 

LAST 

10  7 4 

00, 3376 

3 4755 

1 

ZEROANS 

CAF 

ZERO 

FORCE  ANSWER  TO  ZERO  HERE. 

2051 

REF 

— 2— 

LAST 

1074 

00, 3377 

1 3453 

1 

TCF 

FIXROOT 

2052 

REF 

2 

LAST 

1074 

00,3400 

1 3402 

0 

TCF 

SQRTABRT 

2053 

REF 

3 

LAST 

1074 

00, 3401 

1 3453 

1 

TCF 

F IXROOT 

2054 

REF 

27 

LAST 

1020 

00,3402 

52  165 

1 

SQRTA8RT 

DXCH 

LOG 

20541 

REF 

1 

00,3403 

0 5720 

1 

TC 

P00D001 

2055 

00,3404^ 

01302 

1 

OCJ 

1302 

GAP 
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2056 

REF  1 

00, 3405 

6 2444 

1 

SMPAC+ 

AO 

-1/2+2 

SEE  IF  ARGUMENT  GREATER  THAN  OR  EQUAL  TO 

2057 

00, 3406 

0 0006 

1 

EXTEND 

. 5. 

d rc  1 

00,3407 

6 3456 

0 

3ZMF 

SRTEST 

IF  SO,  SEE  IF  LFSS  THAN  .25. 

VO 

2059 

ft  L F - J- 

REF  639 

LAST 

10  7 4 

00, 3410 

52  155 

1 

OXCH 

MPAC 

WE  WILL  TAKE  THE  SQUARE  ROOT  OF  MPAC/2. 

D cp  1 A 

LAST 

1056 

00,3411 

22  021 

_1_ 

LXCH 

SR 

SHIFT  RIGHT  1 AND  GO  TO  THE  SQRT  ROUTINE 

2UoU 

2061 

ftcr  io 

00,3412 

0 0006 

1 

EXTEND 

2062 

REF  17 

LAST 

1056 

00,3413 

7 4736 

0 

MP 

HALF 

2063 

REF  640 

LAST 

107  5 

00,3414 

52  155 

_L_ 

DXCH 

MPAC 

2064 

REF  17 

LAST 

1075 

00, 3415 

56  021 

1 

XCH 

SR 

2065 

REF  641 

LAST 

1075 

00,3416 

26  155 

1 

ADS 

MPAC  +1 

GUARANTEED  NO  OVERFLOW. 

2066 

REF  1 

00,3417 

3 2314 

0 

ARGHI 

CAF 

SLOPEHI 

ARGUMENT  BETWEEN  .25  AND  .5.  GET  A 

2067 

00, 3420 

0 0006 

1 

EXTEND 

LINEAR  APPROXIMATION  FOR  THIS  RANGE. 

2068 

REF  642 

LAST 

10  7 5 

00, 3421 

7 0154 

0 

MP 

MPAC 

2069 

REF  1 

00,3422 

6 2566 

0 

AD 

8 I A S HI 

X0/2  = (MPAC/2) I SLOPEHI I + BIASHI/2. 

2070 

r pp  1-2  5 

LAST 

1073 

00, 3423 

54  130 

-1 

+4 

TS 

8UF 

XO/2  (ARGLO  ENTERS  HERE). 

2071 

REF  643 

LAST 

1075 

00,3424 

3 0154 

1 

CA 

MPAC 

SINGLE-PRECISION  THROUGHOUT. 

2072 

00,3425 

22  007 

0 

ZL 

2073 

00, 3426 

0-0006 

-1 

EXTEND 

2074 

REF  126 

LAST 

1075 

00,3427 

10  130 

1 

DV 

BUF 

( MP AC / 2 ) / ( XO/2) 

2075 

00, 3430 

0 00  06 

1 

EXTEND 

20  76 

REF  18 

LAS  T 

10  7 5 

OX),  3 431 

7 4736 

0 

MR 

HALF 

2077 

REF  127 

LAST 

1075 

00,3432 

26  130 

1 

ADS 

BUF 

XI  = XO/2  + . 5 ( MPAC/2 ) / (XO/2) . 

2078 

0X3,  3433 

0 0006 

4 

EXTEND 

2079 

REF  19 

LAST 

1075 

00,  3434 

7 4736 

0 

MP 

HALF 

FORM  UP  Xl/2. 

2080 

REF  644 

LAST 

1075 

00,3435 

52  155 

1 

DXCH 

MPAC 

SAVE  AND  BRING  OUT  ARGUMENT. 

2081 

00, 3436 

0 0006 

1 

EXTEND 

TAKE  DP  QUOTIENT,  WITH  XI. 

2082 

REF  128 

LAST 

107  5 

00, 3437 

10  130 

1 

DV 

BUF 

2083 

REF  129 

LAST 

1075 

00,3440 

54  131 

0 

TS 

BUF  +1 

SAVE  MAJOR  PART  OF  QUOTIENT. 

2084 

R-EF  2 0 8 

LAST 

10  7 4 

00,3441 

3 47  55 

1 

CAF 

ZERO 

FORM  MINOR  PART  OF  QUOTIENT  USING 

2085 

REF  195 

LAST 

1067 

00,3442 

56  001 

0 

XCH 

L 

(REMAINDER, 0). 

2086 

00, 3443 

0 0006 

1 

EXTEND 

2087 

R.EE  130 

LAST 

10  7-5- 

00,3444 

10  130 

1 

DV 

BUF 

2088 

REF  196 

LAST 

1075 

00,3445 

54  001 

1 

TS 

L 

IN  PREPARATION  FOR  DAS. 

2089 

REF  131 

LAST 

1075 

00, 3446 

3 0131 

1 

CA 

BUF  +1 

2090 

REF  645 

LAST 

10  7 5 

00,3447 

20  155 

_L_ 

DAS 

MPAS 

X 2 = Xl/2  + (MPAC/21X1 

2091 

00,3450 

0 0006 

1 

EXTEND 

OVERFLOWS  IF  ARG.  NEAR  POSMAX. 

2092 

REF 1 

00,3451 

1 3455 

-1 

BZF 

TCQBNKOO 

2093 

REF  27 

LAST 

106  0 

00,3452 

3 4733 

1 

CAF 

P 0 S N A X 

2094 

REF  646 

LAST 

10  7 5 

00, 3453 

5 4 154 

0 

FIXROOT 

TS 

MPAC 

2095 

REF  647 

LAST 

10  7 5 

00,3454 

54  155 

1 

TS 

WP AC  +1 

2096 

REF  288 

LAST 

1074 

00,3455 

0 0002 

0 

TCQBNKOO 

TC 

0 

RETURN  TO  CALLER  TO  UNNORMALIZF,  ETC. 
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2097 

REF 

1 

00, 3456 

6 

4737  0 SR  TEST 

AD  QUARTER 

ARGUMENT  WAS  LESS  THAN  .5,  SEE  IF  LESS 

2098 

00,3457 

0 

0006  1 

EXTEND 

THAN  .25. 

2099  t-  _ 00,3460  6 3502  0 BZMF  SORT  NORM  IF  SO,  BEGIN  NORMALIZATION. 


2100 

2101 

REF 

RFF 

648 

L8 

LAST 
1 AS  T 

10  7 5 
107  5 

00,3461 

00,3462 

52  155 
22  021 

1 

1 

OXCH 

LXCH 

MPAC 

SR 

IF  BETWEEN  .5  AND  .25,  SHIFT  RIGHT  1 AND 
START  AT  ARGLO. 

2102 

00,3463 

0 0006 

1 

EXTEND 

2103 

REF 

20 

LAST 

1075 

00,3464 

7 4736 

0 

MP 

HALF 

2104  - 

RFF 

649 

LAST 

1076 

00, 3465 

52  155 

1 

DXCH 

MPAC 

2105 

REF 

19 

LAST 

10  7 6 

00,3466 

56  021 

1 

XCH 

SR 

2106 

REF 

650 

LAST 

1076 

00, 3467 

26  155 

1 

ADS 

MPAC  +1 

NO  OVERFLOW. 

2107 

REF 

1 

00,3470 

3 3007 

0 

ARGLO 

CAF 

SLOPELO 

(NORMALIZED)  ARGUMENT  BETWEEN 

.125  AND 

2108 

00,3471 

0 0006 

1 

FXTEND 

.25 

;>  1 09 

REF 

6^1 

LAST 

10  7 6 

00, 3472 

7 01  54 

o 

MP 

MPAC 

2110 

REF 

i 

00,3473 

6 22  70 

0 

AD 

B IASLO 

2111 

REF 

i 

00,3474 

1 3423 

0 

TCF 

ARGHI  +4 

BEGIN  SQUARE  ROOT. 

2112 

00,3475 

0 0006 

1 

SQRTNM2 

EXTEND 

SHIFT  LEFT  2 AND  INCREMENT  RIGHT  SHIFT 

2113 

REF 

652 

LAST 

1076 

00, 3476 

3 0156 

0 

DC  A 

MPAC  +1 

COUNT  (FOR  TFPMINAL  UNNORMALIZATION). 

2114 

REF 

6 53 

LAST 

1076 

00,3477 

20  156 

1 

DAS 

MPAC  +1 

2115 

REF 

654 

LAST 

1076 

00, 3500 

6 0154 

1 

AD 

MPAC 

2116 

REF 

655 

LAST 

1076 

00,3501 

26  154 

0 

ADS 

MPAC 

(NO  OVERFLOW). 

2117 

REF 

62 

LAST 

1074 

00, 3502 

24  135 

0 

SQRTNORM 

INCR 

MPTEMP 

FIRST  TIME  THROUGH,  JUST  SHIFT 

LEFT  1 

2118 

00,3503 

0 0006 

1 

EXTEND 

(PUTS  IN  EFFECTIVE  RIGHT  SHIFT 

SINCE 

2119 

REF 

656 

LAST 

10  76 

00, 3504 

3 0156 

0 

DC  A 

MPAC  +1 

WE  WANT  MP  AC/ 2 ) . 

2120 

REF 

657 

LAST 

1076 

00,3505 

20  156 

1 

DAS 

MPAC  +1 

2121 

REF 

658 

LAST 

1076 

00, 3506 

6 0154 

1 

AD 

MPAC 

2122 

REF 

6 59 

| AST 

107  6 

00,3  507 

26  1 54 

o 

AOS 

MPAC 

(AGAIN  NO  OVERFLOW). 

2123 

00,3510 

6 0000 

1 

DOUBLE 

2124 

REF 

19 

LAST 

474 

00, 351  1 

54  022 

0 

TS 

CYL 

2125 

REF 

20 

LAST 

1076 

00, 3 512 

10  022 

0 

NORMTEST 

CCS 

C YL 

SEE  IF  ARGUMENT  NOW  NORMALIZED 

AT 

2126 

REF 

21 

LAST 

1076 

00,3513 

10  022 

0 

CCS 

CYL 

GREATER  THAN  .125. 

2127 

REF 



00,3514 

1 3475 

0 

TC  F 

SQPTNM2 

NO  - SHIFT  LEFT  2 MORE  AND  TRY 

AGAIN . 

2128 

REF 

2 

LAST 

1076 

00,3515 

1 3417 

1 

TCF 

AR3H  I 

YES  - NOW  BETWEEN  .5  AND  .25. 

2129 

REF 

1 

00,3516 

1 3470 

0 

TCF 

ARGLO 

ARGUMENT  NOW  BETWEEN  .25  AND  . 

125. 

GAP: 
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L INTERPRETER  • USER'S  PAGE  NO.  81 

P2130  TRIGONOMETRIC  FUNCTION  PACKAGE. 

R2131  THE  FOLLOWING  TRIGONOMETRIC  FUNCTIONS  ARE  AVAILABLE  AS  INTERPRETIVE  OPERATIONS: 

R2133  1.  SIN  COMPUTES  <1/2)SINE(2  PI  MPAC). 

r 21  34  2.  COS  COMPUTES  1U  2-1-COS  INF  1 2 PI  MPAC). 

R21 35  3.  ASIN  COMPUTES  ( 1 /2 P I ) ARC S I NE t 2 MPAC). 

R 2 1 36  4,  ACOS  COMPUTES  ( 1/ 2P I) ARCC OS  I NE ( 2 MPAC 1 . 

R 2 1 37  SIN-ASIN  AND  COS-ACOS  ARE  MUTUALLY  INVERSE,  IE  SINIASIN(X))  = X. 


2138  REF  7 LAST  1071  00,3517  0 6722  0 COSINE  TC  BRANCH 

2139  00,3520  1 3523  1 TCF  +3 

2140  REF  1 00,3521  1 3526  1 TCF  PPFSINE 

2141  REF  2 LAST  1077  00,3522  1 3526  1 TCF  PRESINF 


2142 

00,3523 

0 0006 

1 

+ 3 

EXTEND 

2143 

REF 

660 

LAST 

1076 

00, 3524 

4 0155 

1 

DCS 

MPAC 

2144 

REF 

661 

LAST 

10  7 7 

00, 3525 

52  155 

1 

DXCtL 

MPAC 

2145 

REF 

2 

LAST 

1076 

00, 3526 

3 4737 

0 

PRESINE 

CAF 

QUARTER 

PI/2  SCALED. 

2146  REF  662  LAST  107-7  00,3527  26  154--0_  ADS-  MPAC 


2147 

2148 

REF 

663 

LAST 

10  7 7 

00,3530 
00, 3531 

52  155 
20  001 

m- 

l 

SINE 

DXCH 

DDOUBL 

MPAC 

DOUBLE  ARGUMENT. 

2149 

00,3532 

54  000 

0 

OVSK 

SEE  IF  OVERFLOW  PRESENT. 

2150- 

00,3  533 

1 3536 

0 

TCF 

4-3 

IF  NOT,  ARGUMENT  OK  AS  IS. 

2151 

00,3534 

0 0006 

l 

EXTEND 

IF  SO,  WE  LOST  (OR  GAINED)  PI,  SO 

2152 — 

00,3535 

4 0001 

l 

DCOM 

COMPLEMENT  MPAC  USING  THE  IDENTITY 

A2153 

SINIX— (+)PI)  = SIN(-X). 

2154 

REF 

664 

LAST 

1077 

00, 3536 

52  155 

l 

+ 3 

DXCH 

MPAC 

2155 

REF 

66  5 

LAST 

10  7 7 

00,3537 

3 0154 

l 

CA 

MPAC 

SEE  IF  ARGUMENT  GRFATFR  THAN  .5  IN 

2156 

00,3540 

6 0000 

l 

DOUBLE 

MAGNITUDE.  IF  SO,  REDUCE  IT  TO  LFSS  THAN 

2157 

REF 

197 

LAST 

10  7 5 

00,3541 

54  001 

l 

TS 

L 

.5  (+-PI/2  SCALED)  AS  FOLLOWS: 

2456 

REF 

— 1 

00,3542 

1 3553 

0 

TCF 

SN1 

2159 

REF 

355 

LAST 

1074 

00, 3543 

50  000 

1 

INDEX 

A 

IF  POSITIVE,  FORM  PI  - X,  IF  NEGATIVE 

2160 

REF 

— 4 — 

LAST 

8 59 

00,3-544 

3 47  35 

1 

CAF 

NEG1/2  +1 

USE  -PI  - X. 

2161 

00,3545 

6 0000 

1 

DOUBLE 

2162 

00, 3546 

0 0006 

1 

<=XTFND 

2163 

REF 

666 

LAST 

1077 

00,3547 

60  154 

1 

SU 

MPAC 

GUARANTEED  NO  OVERFLOW. 

2164 

REF 

667 

LAST 

1077 

00, 3550 

54  154 

0 

TS 

MPAC 

2165 

REF 

668 

LAST 

1077 

00, 3551 

4 0155 

1 

CS 

MPAC 

+ 1 

2166 

-REF 

669 

LAST 

10  7 7 

00,3552 

54  155 

4 

TS 

MPAC 

+ 1 

FINDS  COSINF  USING  THE  IDENTITY 
COS(X)  = S I N ( P I / 2 - ABS(X)  ). 


SAP 
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2167 

00,3553 

0 0006 

1 SN1 

EXTEND 

SET  UP  TO  EVALUATE  HASTINGS  POLYNOMIAL 

2168 

REF 

670 

LAST 

1077 

00,3554 

3 0155 

0 

DC  A 

M P AC 

2 1 69 

p E F 

20 

LAST 

10iS  ft 

00,3555 

52  134 

0 

DXCH 

BUF2 

2170 

REF 

5 

LAST 

10  7 3 

00, 3556 

0 3300 

1 

TC 

DSOSUB 

SQUARE  MPAC. 

0 72  21 

TC 

POLY 

EVALUATF  FOURTH  ORDER  POLYNOMIAL. 

dl  1 1 

2172 

L.  MO  I 

00, 3560 

00003 

1 

DEC 

3 

2173 

00, 3561 

14441 

0 

2DEC 

+.3926990796 

00 T 3 56  2 

37325 

1 

c.  i.  i j 

2174 

00, 3563 

53250 

0 

2DEC 

- .64596371 1 1 

2174 

00,3564 

60764 

1 

2]  7 5 

00,3565 

12146 

1 

2DEC 

+.31 8758717 

2175 

00,3566 

21276 

1 

2176 

00,3567 

75466 

1 

2DEC 

-.074780249 

2 1 7 A 

00, 3 570 

71471 

0 

21  77 

00,3571 

00236 

0 

2DEC 

+.009694988 

2177 

00,3572 

32757 

0 

2178 

REF 

1 

00,3573 

3 2470 

0 

CAF 

LBUF2 

MULTIPLY  BY  ARGUMENT  AND  SHIFT  LEFT  2. 

2179 

REF 

19 

LAST 

10  3 9 

00,3574 

0 7105 

1 

TC 

DMPSUB  -1 

2180 

00,3575 

0 0006 

1 

EXTEND 

2181 

REF 

671 

LAST 

1078 

00,3576 

3 0156 

c 

DC  A 

M P AC  +1 

2 1 ft  2 

REF 

672 

LAST 

107  8 

00^3577 

20  156 

1 

DAS 

MPAC  +1 

2183 

REF 

673 

LAST 

10  7 8 

00, 3600 

6 0154 

1 

AD 

M PA  C 

2184 

REF 

6 74 

LAST 

10  7 8 

00,3601 

26  154 

0 

ADS 

MPAC 

NEITHER  SHIFT  OVERFLOWS. 

-2185 

00, 3602 

0 0006 

1 

EXTEND 

2186 

REF 

675 

LAST 

1078 

00,3603 

3 0156 

0 

DC  A 

MPAC  +1 

2187 

REF 

676 

LAST 

1078 

00,3604 

20  156 

1 

DAS 

MPAC  +1 

2188  — 

REF 

677 

LAST 

107  8 

00*  3605 

6 0154 

1 

AD 

MPAC 

2189 

REF 

678 

LAST 

107  8 

00,3606 

2 6 154 

0 

ADS 

MPAC 

2190 

REF 

40 

LAST 

107  2 

00,3607 

1 6060 

0 

TCF 

DAN 7 IG 

GAP 
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P2 1 9 1 ARCSIN/ ARCCOS  ROUTINE. 


_ . _ 

DCC 

1 

OOt  3610 

3 3631 

G 

ARCSIN 

CAF 

> 

S' 

Tl 

X 

d I v7 
2193 

Ktl 

00,3611 

1 3613 

1 

TCF 

+ 2 

O 1 QZl 

DCC 

no, 7ai 2 

3 3713 

1 

ARCCOS 

CAF 

LDAN  Z IG 

d 1 

2195 

Kli 

REF 

1 

\J  yj  J -TV  L c_ 

00,3613 

54  136 

1 

TS 

ESCA  PE 

2196 

REF 

8 

LAST 

1077 

00, 3614 

0 6722 

0 

TC 

BRANCH 

2197 

REF 

1 

00,3615 

1 3625 

_J 

TCF 

ACOS  ST 

2198 

REF 

1 

00,3616 

1 3731 

0 

TCF 

ACOS  ZERO 

2199 

00,3617 

0 0006 

1 

EXTEND 

2200 

REF 

679 

LAST 

10  7 8 

00, 3620 

4 Q 155 

1 

_ DCS 

MPAC 

2201 

REF 

680 

LAST 

1079 

00,3621 

52  155 

1 

DXCH 

MPAC 

2202 

REF 

1 

00,3622 

3 3734 

1 

CAF 

TCSUBTR 

2203 

REF 

2 

LAST 

107  9 

00,3623 

_56  136 

0 

XCH_ 

ESCA  PE 

2204 

REF 

1 

00,3624 

54  137 

0 

TS 

ESCAPF? 

22  05 

REF 

21 

L AST 

10^7  6 

00, 3625 

4 4736 

-0— 

ACOSST 

CS 

HALF 

2206 

REF 

681 

LAST 

1079 

00, 3626 

6 0154 

1 

AD 

vpflc 

2207 

REF 

356 

LAST 

1077 

00, 3627 

10  000 

0 

CCS 

A 

2208  REF  1 00,  3630 1 372] 1 TCF  ACOSOVF 


2209 

REF 

1 

00,3631 

1 3707 

0 

LAS INEX 

TCF 

ASINFX 

2210 

REF 

1 

00,3632 

1 3642 

0 

TCF 

AC0SST2 

7711 

REF 

6 82 

L AST 

107  9 

00*3633 

10  155 

1 

CCS 

MPAC  +1 

2212 

REF 

209 

LAST 

1075 

00,3634 

3 4755 

1 

CAF 

ZERO 

2213 

REF 

1 

00,3635 

1 3637 

1 

TCF 

ACOS  =0 

2214 

REF 

2 

LAST 

1079 

00,3636 

1 3642 

0 

TCF 

AC0SST2 

7715 

R F F 

A P ^ 

LAST 

107  9 

00*  3 A37 

54  1 55 

l 

arn s~0 

TS 

MPAC  +1 

2216 

REF 

684 

LAST 

1079 

00, 3640 

54  154 

0 

TS 

MPAC 

2217 

REF 

3 

LAST 

1079 

00,3641 

0 0136 

0 

TC 

ESCAPE 

2218 

00,3642 

0 0006 

1 

AC0SST2 

EXTEND 

2219 

REF 

685 

LAST 

1079 

00,3643 

4 0155 

1 

DCS 

MPAC 

2220 

REF 

22 

LAST 

1079 

00,3644 

6 4736 

1 

AD 

HALF 

2221 

REF 

6 86 

LAST 

1079 

00, 3645 

52  155 

1 

DXCH 

MPAC 

2222 

REF 

21 

LAST 

1078 

00,3646 

5 2 134 

0 

DXCH 

8 UF  2 

2223 

REF 

3 

LAST 

107  1 

00,3647 

0 3343 

0 

TC 

SQRTSUB 

22  24 

RFF 

63 

LAST 

1076 

OOt 3650 

10  135 

1 

CCS 

M PTE  MP 

2225 

REF 

1 

00,3651 

1 3714 

1 

TCF 

ACCSSHR 

USER'S  PAGE  NO.  83  E3  S3 


COMPUTE  ARCSIN  BY  USING  THE  IDFNTITY 
ARCSIN(X)  = PI/2  - ARCCOS ( X) . 


(EXITS  IMMEDIATELY). 

TEST  SIGN  OF  INPUT. 

START  IMMEDIATELY  IF  POSITIVE. 

ARCCOS ( 0)  = PI/2  = .25. 

IF  NEGATIVE,  USE  THE  IDENTITY 
ARCCOS ( X ) = PI  - APCCOS(-X),  FORCING 
ARGUMENT  POSITIVE. 

SET  EXIT  TO  DO  ABOVE  BEFORE 
ARCS IN/APCCOS  CONSIDERATIONS. 


TEST  MAGNITUDE  OF  INPUT. 


THIS  IS  PROBABLY  AN  OVERFLOW  CASE. 


NO  OVERFLOW  - PROCEED. 


IF  MAJOR  PART  IS  .5,  CALL  ANSWER  0 
UNLESS  MINOR  PART  NEGATIVE. 


NOW  THAT  ARGUMENT  IS  IN  PROPER  RANGE, 
BEGIN  COMPUTATION.  USE  HASTINGS 
APPROXIMATION  ARCCOS(X)  = SORT ( 1-X  )P ( X ) 
IN  A SCALED  VERSION  WHERE  P(X)  IS  A 
SEVENTH  ORDER  POLYNOMIAL. 


RETURNS  WITH  NORMALIZED  SQUARE  ROOT. 


SEE  IF  UN-NQRMALI Z AT  TON  REQUIRED. 
IF  SO. 


GAP: 

L 

2226 

2227 

2228 

2229 

22  30 

2231 

2231 

22  32 

2232 

2233 

2233 

2234 

2234 

2235 

2235 

2236 

2236 

2237 

2237 

2238 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 
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REF 

687 

LAST 

1079 

00, 3652 

52 

155  1 AC0S3 

OXCH 

MPAC 

SET  UP  FOR  POLYNOMIAL  EVALUATION. 

REF 

22 

LAST 

1079 

00, 3653 

52 

134  0 

DXCH 

RUF2 

REF  688 LAST  1080  00,3654  52  155  1 DXCH  MPAC 


REF  3 

LAST 

1078 

00,3655 
no . ^16  66 

0 7221 
00006 

1 

1 

TC 

DEC 

POLY 

6 

00,3657 

13240 

0 

2DEC 

+ .35  3553385 

COEFFICIENTS  ARE  C 2 ( + I ) / P I SORT ( 2 ) WHERE 

00,3660 

23630 

0 

00,3661 

74721 

0 

2DEC* 

-.0483017006 

R + l * I 

00, 3662 

47775 

l 

00,3663 

02440 

0 

2DEC* 

+.0200273085 

B+2 * WHERE  C STANDS  FOR  ORIGINAL  COEFFS. 

00, 3664 

20237 

0 

00, 3665 

75067 

1 

2DEC* 

-.01  12931863 

B+3* 

00,3666 

70742 

1 

00,3667 

03436 

0 

2D  EC* 

+.006953 11612 

B + 4* 

00,3670 

26756 

1 

00,3671 

74037 

0 

20EC* 

- .00384617957 

B+5* 

nnt 3 67? 

57640 

1 

00,3673 

03046 

0 

2DEC* 

+.001501297736  B+6* 

00,3674 

07143 

0 

nnf 3675 

76654 

1 

2DEC* 

nn n?84 1 69334  R+7* 

00, 3676 

42244 

0 

REF  2 

\ T 

10  7 R 

nfiT 3677 

3 2470 

o 

CA  F 

1 filJF  2 

DO  FINAL  MULTIPLY  AND  GO  TO  ANY 

REF  20 

LAST 

1078 

00, 3700 

0 7105 

1 

TC 

DMPSUB  -1 

EPILOGUE  SEQUENCES. 

REF  4 

LAST 

1079 

00,3701 

0 0136 

0 

TC 

ESCA  PE 

00,3702 

0 0006 

1 

SUB  TR 

EXTEND 

EPILOGUE  FOR  NEGATIVE  INPUTS  TO  ARCCOS. 

REF  689 

LAST 

10  8 0 

00, 3703 

4 0155 

1 

DCS 

MPAC 

REF  23 

LAST 

10  7 9 

00, 3704 

6 4736 

1 

AD 

HALF 

FORMS  PT  - ARCCOS(-X)  = ARCCOSIX). 

REF  690 

LAST 

1080 

00,3705 

52  155 

1 

DXCH 

MPAC 

REF  2 

LAST 

10  7 9 

00,3706 

0 0137 

1 

TC 

ESCAPE2 

GO  TO  POSSIBLE  ARCSIN  EPILOGUF. 

00,3  707 

0 0006 

1 

ASI NEX 

EXTEND 

REF  691 

LAST 

1080 

00, 3710 

4 01  55 

1 

DCS 

MPAC 

ARCSIN  EPILOGUE  - GET  ARCSINIX) 

R-EF  3 

LAST 

107  7 

00 , 3 7 1 1 

6 4737 

0 

AD 

QUARTER 

= PI /2  - ARCCOS (X  ) . 

REF  692 

LAST 

10  8 0 

00,3712 

52  155 

1 

DXCH 

MPAC 

REF  41 

LAST 

1078 

00, 3713 

1 6060 

0 

LDANZ  IG 

TCF 

DANZ  IG 

GAP:  ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 

L INTERPRETER 


2252 

REF 

357 

LAST 

1079 

00,3714 

50  000 

1 

ACOSSHR 

INDEX 

A 

2253 

REF 

70 

LAST 

1068 

00,3715 

3 

4736 

1 

CAF 

B I T 1 4 

64 

LAST 

107  9 

00, 3716 

54  135 

1 

TS 

MPT  E MP 

2255 

REF 

4 

LAST 

1045 

00,3717 

0 

2073 

1 

TC 

V SHP PND 

2256 

REF 

1 

00, 3720 

1 

3652 

1 

TCF 

ACDS3 

2257 

00,3721 

0 

0006 

1 

ACOSOVF 

EXTEND 

2258 

REF 

2 

LAST 

1079 

00, 3722 

1 

3637 

1 

BZF 

ACOS  =0 

2259 

00,3723 

0 

0006 

1 

ACOSABRT 

EXTEND 

22591 

REF 

28 

LAST 

1074 

00,3724 

3 

0165 

0 

DC  A 

L DC 

22  5Q  2 

REF 

1 

00, 3 725 

5724 

0 

TC 

ALAR  Ml 

22593 

00,3726 

01301 

1 

OCT 

1301 

LAST 

10  7 9 

Qf)t  ft  727 

3 

47  55 

1 

CAF 

ZERO 

22601 

REF 

3 

LAST 

108  1 

6613730 

i 

3637 

1 

TCF 

ACOS  =0 

2261 

REF 

L AS  T 

LO  ft  n 

ont ft  7ft i 

ft 

4737 

o 

ACQSZERO 

CAF 

QUARTER 

2262 

REF 

4 

LAST 

108  1 

00, 3732 

i 

3640 

1 

TCF 

AC0S=0  +1 

22  63 

on,,  ft  7ft ft 

7 77  A ft 

o 

NFC  1 2 

DEC 

- 1 2 

22  64 

REF 

1 

00 i 3734 

i 

3702 

0 

TCSUBTR 

TCF 

SUBTR 
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USER'S  PAGE  NO.  85  E3  S3 

THE  SHIFT  RIGHT  IS  LESS  THAN  14  S I NC F 
THE  INPUT  WAS  NON-ZERO  OP. 

DP  SHIFT  RIGHT  AND  ROUND. 

PROCEED. 

IF  MAJOR  PART  WAS  ONLY  1 MORE  THAN  .5, 
CALL  ANSWER  ZERO. 


IF  OVERFLOW,  CALL  ANSWER  ZERO  BUT 
SOUND  AN  ALARM. 


ACOS(O)  = PI/2. 

SET  MP AC  AND  FX  IT  VIA  ESCAPE 


GAP  : 


P2265 

R2267 

R2268 

R2269 

R2270 

R2271 

R2272 

R2273 
R 2 2 7 4 
R2275 

R2276 


2277 

2278 

2279 
22  80 
2281 
2282 

2283 

2284 

2285 
22  86 

22  87 
2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 
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THE  FOLLOWING  INSTRUCTIONS  ARE  AVAILABLE  FOR  SETTING,  MODIFYING,  ANO  BRANCHING  ON  INDEX  REGISTFRS: 

1.  A XT  ADDRESS  TO  INDEX  T^UF. 

1.  AXC  ADDRESS  TO  INDEX  COMPLEMENTED. 


3. 

4 „ 

LXA 

LXC 

LOAD  INDEX  FROM  ERASABLE. 

LOAD  INDEX  COMPLEMENTED  FROM  ERASABLE. 

5. 

SXA 

STORE  INDEX  IN  ERASABLE. 

6. 

XCH  X 

EXCHANGE  INDEX  REIGSTER  WITH  EPASABLF. 

7. 

I NCR 

INCREMENT  INDEX  REGISTER. 

8. 

X AD 

ERASABLE  ADD  TO  INDEX  REGISTER. 

9, 

X su 

FRASABLE  SUBTRACT  FROM  INDEX  REGISTER. 

10. 

T IX 

BRANCH  ON  INDEX  RFGISTER  AND  DECREMENT. 

01,2341 

BANK 

01 

REF 

1 

COUNT* 

$ $ / I NT  F R 

REF 

1 

01,2341 

0 2436 

1 

AXT 

TC 

TA3SUB 

SELECT  APPROPRIATE 

I NDEX  RFGISTER . 

REF 

LAST 

107? 

0 1 f ? 34? 

3 0117 

o 

CA 

POLISH 

REF 

4 

LAST 

100  1 

01, 2343 

50  130 

0 

XSTORE 

INDEX 

INDEXLOC 

CONTAINS  CIFIXLOC) 

OR  C (F I XLOC ) + 1 . 

REF 

24 

LAST 

101  1 

0 1,2  344 

54  046 

1 

TS 

XI 

RE-F  42  LAST  1030  01,2345  1 6060  0 TCF  DANZIG 


REF 

REF 

2 

24 

LAST 

LAST 

103  2 
10  8 2 

01,  2346 
0 1,2  347 

0 2436 
4 0117 

1 

1 

AXC 

TC 

CS 

TAGSUB 
PCI  I SH 

REF 

i 

01,2350 

0 2343 

1 

TC 

XSTORE 

REF 

i 

0 1 r 2 3^  1 

0 2424 

L 

L XA 

Tf 

1 S A n RFR  S 

LOAH  JNJOEX  RFGT^TFR  Fprity  FRASAR1  f * 

REF 

25 

LAST 

10  8 2 

01,2352 

50  117 

0 

INDEX 

POL  I SH 

01,2353 

3 0000 

1 

CA 

0 

REF  2 LAST  108  2 01,2354  1 2343  0 TCF  X STORE 


REF 

2 

LAST 

108  2 

01,2355 

0 2424 

1 

LXC 

TC 

1 5ADPERS 

LOAD  NDX  REG  FROM  ERASABLE  COMPLEMENTED. 

R EF 

2E 

LAST 

108  2 

01,2356 

50  117 

0 

I NDEX 

POLISH 

01,2357 

4 0000 

0 

CS 

0 

REF 

3 

LAST 

1082 

01,2360 

l 2343 

0 

TCF 

X STORE 

REF 

3 

LAST 

1082 

01,2361 

0 2424 

1 

SXA 

TC 

1 5 A D PER  S 

STORF  INDEX  REGISTER  IN  ERASABLE. 

REF 

5 

LAST 

1082 

01,2362 

50  1 30 

0 

INDEX 

INDEXLOC 

REF 

- 25 

-LAST 

10  8 2 

01,2363 

3 0046 

0 

CA 

XI 

REF 

27 

LAST 

1082 

01,2364 

50  117 

0 

MST0RE1 

INDEX 

POL  I SH 

01,2365 

54  000 

0 

TS 

0 

R EC 

43 

LAST 

108-2 

01, 2366 

1 6060 

0 

TCF 

D AN Z IG  _ 

GAP 
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2301 

2302 

REF 

REF 

4 

28 

LAST 

LAST 

1082 

1082 

01,2367 
01,2370 
n i , 2 R71 

0 2424 
50  117 
^ nnnn 

1 

0 

1 

XCHX 

TC 

INDEX 

CA 

1 5 AD  REPS 
POL  I SH 
0 

EXCHANGE  INDEX  REGISTER  WITH 

ERASABLE. 

2303 

2304 

REF 

6 

LAST 

1082 

01,  2372 

50  130 

0 

INDEX 

I NDE XL  OC 

2305 

REF 

26 

LAST 

10  8 2 

01, 2373 

56  046 

0 

XCH 

XI 

REF 

l 

0 1 » 2 374 

1 2364 

0 

TCF 

MSTC RE  1 

2307 

REF 

5 

LAST 

1083 

01,2375 

0 2424 

1 

XAD 

TC 

15ADRERS 

ADD  ERASABLE  TO  INDEX  REGISTEP. 

R pF 

2^ 

l AST 

103  3 

0 1,2  376 

50  117 

0 

INDEX 

POL  I SH 

2309 

01,2377 

3 0000 

1 

CA 

0 

2310 

REF 

7 

LAST 

1083 

01,2400 

50  130 

0 

X AD2 

INDEX 

I NDF XLOC 

2311 

REF 

27 

LAST 

108  3 

01,2401 

2 6 046 

1 

ADS 

XI 

IGNORING  OVERFLOWS. 

2312 

REF 

44 

LAST 

10  8 2 

01, 2402 

1 6060 

0 

TCF 

DANZ  IG 

2^13 

REF 

3 

[ AST 

108  2 

0 It  2 403 

0 243<3 

1 

I NCR 

TC 

TAGS  UB 

INCREMENT  INDEX  REGISTER. 

2314 

REF 

30 

LAST 

10  8 3 

01, 2404 

3 0117 

0 

CA 

POLI SH 

2315 

REF 

1 

01,2405 

1 2400 

0 

TCF 

X AD2 

2316 

REF 

6 

LAST 

1083 

01,2406 

0 2424 

1 

xsu 

TC 

1 5A0PERS 

SUBTRACT  ERASABLE  FROM  INDEX 

REGISTER . 

2317 

REF 

31 

LAST 

10  8 3 

01,2407 

50  117 

0 

INDEX 

POL  I SH 

2 3 18 

0 It  2410 

4 0000 

0 

CS 

0 

2319 

REF 

2 

LAST 

1083 

01,2411 

1 2400 

0 

TCF 

X AD  2 

2320 

2321 

2322 

REF 

REF 

REF 

4 

8 

12 

LAST 

LAST 

LAST 

1083 

1083 

962 

01.2412 

01.2413 

01.2414 

0 2436 
50  130 
4 0050 

1 

0 

0 

TIX 

TC 

INDEX 

CS 

T AGS  UB 
I NDE  XLOC 

SI 

BRANCH  AND  DECREMENT  ON  INDEX. 

2323 

REF 

9 

LAST 

1083 

01,2415 

50  130 

0 

INDEX 

I NDE  XLOC 

2324 

REF 

28 

LAST 

1083 

01,2416 

6 0046 

0 

AD 

XI 

2 32  5 

01,2417 

-0  00  06 

1 

EXTEND 

NO  OPERATION  IF  DECREMENTED  INDEX  IS 

2326 

REF 

45 

LAST 

1083 

01, 2420 

6 6060 

1 

BZMF 

DANZ  IG 

NEGATIVE  OR  ZERO. 

2327 

REF 

10 

LAST 

108  3 

0 1 t ? 4? 1 

50  1 30 

n 

DOT  I X8R 

T NDF  X 

I NDF  XLOC 

2328 

REF 

29 

LAST 

1083 

01,2422 

56  046 

0 

XCH 

XI 

IGNORING  OVERFLOWS. 

2329  REE  6 LAST  1072 01,2423  1 6645  1 TCF  GOTO 


DO  THE  BRANCH  USING  THE  CADR  IN  POLISH. 


GAP 
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L INTERPRETER 


P2330 

SIBROUTI NE 

TO  CONVERT 

AN  ERASABLE  ADDRESS  I 1 1 

BITS)  TO 

O lO  9 

D C C 

a 9 

1 A^  T 

10  8 3 

q i 1 2424 

4 0117 

1 ... 

15ADRERS  CS 

POL  I SH 

C.  D 54 

K r r 

3 C. 

L P O i 

2333 

REF 

2 

LAST 

101  1 

01,2425 

6 4772 

1 

AD 

DEC  4 5 

2334 

RFF 

358 

LAST 

108  1 

01,2426 

10  000 

0 

CCS 

A 

2335 

REF 

47 

L AST 

10  7 2 

Ql,  2-427 

3 0120 

1 

CA 

FIXLOC 

2336 

01,2430 

1 2435 

0 

TCF 

+ 5 

o o-o  7 

p p p 

4 

l Ac:  T 

i m i 

01,  243 1 

3 5007 

o 

C A 

OCT  1 400 

C.  D3  f 

K t r 

O 

LWj  1 

Ltll  I 

2338 

REF 

33 

LAST 

1084 

01,2432 

56  117 

0 

XCH 

POL  I SH 

2339 

REF 

49 

LAST 

101  8 

01,2433 

54  003 

0 

TS 

EBAN  K 

2340 

REF 

44 

LAST 

10  1 9- 

01,2434 

7 43  57 

0 

MASK 

LOW  8 

2341 

REF 

34 

LAST 

1084 

01, 2435 

26  117 

1 

+ 5 ADS 

POL  I SH 

R2342  SUBROUTINE  WHICH  SETS  THE  ADDRESS  OF  THF  SPECIFIED  INDEX 


2344 

REF 

48 

LAST 

1084 

01,2436 

3 0120 

1 TAGSUB 

CA 

F I X L OC 

2345 

R E-F 

11 

LAST 

108  3 

01 ,2437 

54  130 

1 

TS 

JNDEXLOC 

2346 

REF 

36 

LAST 

105  1 

01, 2440 

10  020 

1 

CCS 

C YR 

2347 

REF 

12 

LAST 

108  4 

0 1,  2 441 

24  1 30 

0 

I NCR 

I NDE XL  CC 

2348 

REF 

289 

LAST 

1075 

01,2442 

0 0002 

0 

TC 

Q 

2349 

REF 

290 

LAST 

10  8 4 

01,2443 

0 0002 

0 

TC 

0 

19:02  NOV.  25,1968  SKIPPER  .070  PAGF  1084 
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EBANK  SETTING  AND  SUBADDRESS. 

DOES  THE  ADDRESS  POINT  TO  THE  WnRK  AREA? 
YES.  ADD  FIXLOC.  EBANK  OK  AS  IS. 

NO.  SET  EBANK  £ MAKE  UP  SUBADDRESS. 

FALL  INTO  TAGSUB,  AND  RETURN  VIA  0. 

IN  INOFXLOC.  (ACTUALLY,  THE  ADDRESS  -38D. ) 


BIT  15  SPECIFIES  INDEX. 
0 MEANS  USE  X2. 


1 FOR  XI 


GAP: 

L 

P2350 

R2352 

R2354 

R2356 

R2358 

R2360 

R2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 
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MISCELLANEOUS  OPERATION  CODES  WITH  DIRECT  ADDRESSES.  INCLUDED  HERE  ARE: 


89 


E3  S3 


1.  rrA  STORE  QPRET  IRETURN  ADDRESS)  IN  ERASABLE. 

2.  CALL  CALL  A SUBROUTINE,  LEAVING  RETURN  IN  OPRET. 

3.  RTB  RETURN  TO  BASIC  LANGUAGE  AT  THE  GIVEN  ADDRESS. 

4 . BHIZ  BRANCH  IF  THE  HIGH  ORDER  OF  MPAC  IS  Z FRO  (SINGLE  PRECISION). 

5.  BOV  BRANCH  ON  OVERFLOW. 

6.  GOTO  SIMPLE  SEQUENCE  CHANGE. 


REF 

37 

LAST 

1084 

01,2444 

10  020 

1 

RTB/BHIZ  CCS 

C YR 

REF 

35 

LAST 

1084 

01,2445 

3 0117 

0 

RTB  CA 

P PL  I SH 

REF 

5 

LAST 

937 

01, 2446 

0 46 2 1 

Q 

TC 

SWCALL 

-1 

SO  A "TC  Q"  FROM  ROUTINE  LEADS  TO  DANZIG 

REF 

693 

LAST 

10  8 0 

01,2447 

10  154 

0 

BHIZ  CCS 

MPAC 

46 

LAST 

10  8 3 

0 1 , 2 450 

1 6060 

-0- 

TC  F 

DANZ  IG 

r\  l r 

REF 

7 

LAST 

1083 

01, 2451 

l 6645 

1 

TC  F 

GC  TP 

REF 

47 

LAST 

1085 

01,2452 

1 6060 

0 

TCF 

DANZ  IG 

REF 

8— 

LAST 

10  85 

01, 2453 

1 6645 

1_ 

TC  F 

GOTO 

REF 

9 

LAST 

1073 

01,2454 

10  121 

1 

BOV(B)  CCS 

OVF  I ND 

BRANCH  ON  OVERFLOW  TO  BASIC  OR  INTERP. 

01 , 2 45  5 

1 2457 

TCF 

+ 7 

REF 

48 

LAST 

103  5 

01,2456 

1 6060 

0 

TCF 

DANZ  IG 

REF 

10 

LAST 

1085 

01,2457 

54  121 

1 

TS 

0 V F I NO 

REF 

38 

LAST 

10  8 5 

01,3460 

10  020 

1 

CCS 

C YP 

REF 

1 

01,2461 

l 2445 

1 

TC  F 

R TB 

IF  BASIC. 

01.2462  00360  1 85T0B8  OCT  360 

01.2463  1 6645  1 TCF  GOTO 


REF 


9 LAST  1085 
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2378 

REF 

39 

LAST 

1085 

01, 2464 

10  020 

1 

BZE/GOTO 

CCS 

CYR 

SEE  WHICH  OP-CODE  IS  DESIRED. 

2379 

REF 

9 

LAST 

10  7 9 

01,2465 

0 6722 

0 

TC 

BRANCH 

00  BZE. 

9 38  0 

REF 

A 9 

LAST 

lags 

ai T 2 466 

] SO  so 

0 

TCF 

DAN?  IG 

2381 

REF 

10 

LAST 

1085 

01,2467 

1 6645 

i 

TC  F 

GOTO 

DO  GOTO. 

2382 

REF 

50 

LAST 

1086 

01,2470 

l 6060 

0 

TCF 

DANZ  IG 

2383 

REF 

40 

LAST 

10  8 6 

01,2471 

10  020 

i 

BPL/BMN 

CCS 

CYR 

2384 

REF 

1 

01,2472 

1 2500 

i 

TCF 

B PL 

2385  01, -2-473  12000  1 5B10  DEC  5 B+  10  SHIFTS  OP  CODE  IN  SWITCH  INSTRUCTION  ADR 


2386 

REF 

10 

LAST 

1086 

01,2474 

0 

6722 

0 

TC 

BRANCH 

DO  BMN . 

2387 

R EE 

5 1 

LAST 

108  6 

0 1 , 2475 

1 

6060 

0 

TCF 

DANZ IG 

2388 

REF 

52 

LAST 

10  3 6 

01,2476 

1 

6060 

0 

TCF 

DANZ  IG 

2389 

REF 

11 

LAST 

1086 

01, 2477 

1 

6645 

1 

TCF 

GOTO 

ONLY  IF  NNZ. 

2390 

REF 

11 

LAST 

10  8 6 

01,2500 

0 

6722 

0 

BPL 

TC 

BRANCH 

2391 

REF 

12 

LAST 

1036 

01,2501 

1 

6645 

1 

TCF 

GOTO 

IF  POSITIVE 

OP  ZERO. 

2392 

REF 

1-3- 

LAST 

108  6 

01,2502 

l 

1 

TCF 

GOTO 

2393 

REF 

53 

LAST 

1086 

01,2503 

1 

6060 

0 

TCF 

DANZ  IG 

2^94 

R FF 

41 

1 AST 

1006 

— 01 , 2 504 

1 c 

1 020 

1 

f.  AI  1 / TT  A 

COS 

CYR 

2395 

REF 

i 

01,  2505 

i 

66  37 

l 

TCF 

CALL 

2 396 

R FF 

— 7_ 

-4  ■ A S T 

4-5  8 — 

— OT  r 2 506 

o 

56  77 

l 

T£ 

r r 5 h ni  f 

2397 

REF 

7 

LAST 

10  8 3 

01,2507 

0 

2424 

1 

TC 

1 5AD  RERS 

STORE  QPRET. 

ITAGSUB  AFTER  15  A DR  FP  S IS 

2398 

REF 

49 

LAST 

10  8 4 

01,2510 

50 

i 120 

1 

INDEX 

F I X L OC 

SLOW  IN  THIS 

CASE,  BUT  SAVES  STORAGE.) 

2399 

REF 

12 

LAST 

107  2 

01,2511 

3 

0052 

0 

CA 

OPRET 

2400 

REF 

2 

LAST 

1083 

01,2512 

1 

23  64 

0 

TCF 

M STORE! 
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P2401 

THE  FOLLOWING 

OPERATIONS  ARE  AVAILABLE  FOR 

ALTERING  AND 

TESTING  INTERPRETIVE  SWITCHFS: 

SF T A SWITCH  AMO  DO 

A GOTO  IF  IT 

WAS 

ON. 

R2403 
R 2404 

01 

SET  GO 

SFT  A SWITCH  AND  DO 

A GOTO. 

R2405 

02 

BOFSET 

SET  A SWITCH  AND  DO 

A GOTO  IF  IT 

WAS 

OFF 

SET 

SFT  A SWITCH. 

R2407 

04 

BON  I NV 

INVERT  A SWITCH  AND 

BRANCH  IF  IT 

WAS 

ON. 

05 

I NVGO 

INVERT  A SWITCH  AND 

DO  A GOTO. 

R2409 

06 

BOF INV 

INVERT  A SWITCH  AND 

BRANCH  IF  IT 

WAS 

OFF 

R2410 

07 

INVERT 

INVERT  A SWITCH. 

R2411 

10 

BCNCLR 

CLEAR  A SWITCH  AND 

BRANCH  IF  IT 

WAS 

ON. 

R2412 

11 

CLRGO 

CLEAR  A SWITCH  AND 

DO  A GOTO. 

R?4  1 3 

1 2 

BCFCLR 

CLEAR  A SWITCH  AND 

BRANCH  IF  IT 

WAS 

OFF. 

R2414 

13 

CLEAR 

CLEAR  A SWITCH. 

R 241  5 

14- 

BCN 

BRANCH  IF  A SWITCH 

WAS  ON. 

R2416 

16 

BOFF 

BRANCH  IF  A SWITCH 

WAS  OFF. 

R2417  THE  ADDRESS  SUPPLIED  WITH  THE  SWITCH  INSTRUCTION  IS  INTERPRETED  AS  FOLLOWS: 


R2419  BITS  1-4  SWITCH  BIT  NUMBER  (1-151. 

R 2420  BITS  5-8  SWITCH  OPERATION  NUMBER. 

R 2421  BITS  9-  SWITCH  WORD  NUMBER  (UP  TO  64  SWITCH  WORDS). 


R2422  THE  ADDRESS  ITSELF  IS  MADE  UP  BY  THE  YUL  SYSTEM  ASSEMBLER.  THE  BRANCH  INSTRUCTIONS  REQUIRE  TWO 

R 2424  ADCRESSES,  THE  SECOND  TAKEN  AS  THE  DIRECT  (OR  INDIRECT  IF  IN  ERASABLF ) ADDRESS  OF  THE  BRANCH. 


2426 

REF 

1 

01,2513 

3 4762 

0 

SWITCHES  CAF 

L0W4 

LEAVE 

THE  SWITCH  BIT 

IN  SWB IT  . 

2427 

REF 

36 

LAST 

108  5 

01, 2514 

7 0117 

1 

MASK 

POL  I SH 

2428 

RFF 

359 

LAST 

1084 

01,2515 

50  000 

1 

INDEX 

A 

2429 

REF 

41 

LAST 

107  1 

01, 2516 

3 4735 

1 

CAF 

BIT1  5 

(NUMBER  FROM  LEFT  TO 

RIGHT. ) 

2430 

REF 

— 1— 

(11,2  5.17 

54  131 

0 

TS 

SWB  I T 

2431 

REF 

43 

LAST 

98  7 

01,2520 

3 4745 

0 

CAF 

3 I T 7 

LEAVE 

THE  SWITCH  NUMBER  IN  SWWORD. 

2432 

01,2521 

0 0006 

1 

EXTEND 

2433 

RFF 

37 

LAST 

1087 

0 l,  2 522 

7 0117 

1 

MP 

POL  I SH 

2434 

REF 

1 

01,2523 

54  130 

1 

TS 

SWWDRD 

2435  01,2524  0 0004  0 INHINT  DURING  SWITCH  CHANGE  SO  RUPT  CAN  USE  TOO 

2436  REF  360  LAST  1087  01,2525  50  000  1 INDEX  A LEAVE  THE  SWITCH  WORO  ITSELF  IN  L. 

2437  PEE — 44  LAST  605 01,2526 3 0074  1 C A STATE 

2438  REF  291  LAST  1084  01,2527  54  002  1 TS  Q 


Q WILL  BE  USED  AS  A CHANNEL 


GAP:  ASSEMBLE  REVISION  069  OE  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 


19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1088 


L INTERPRETER 


USER'S  PAGE  NO.  92  E3  S3 


2A39 

REF 

30 

LAST 

917 

01,2530 

3 A7A1 

1 

CAF 

B IT1  1 

2AA0 

OA.A 1 

0 1, 2531 

0 0006 

1 

EXTEND 

DISPATCH  SWITCH  BIT  OPERATION  AS  IN  BITS 

RrEF 

38 

LAST 

108  7 

01,2  532 

7-0117 

1 

MP 

POLISH 

7-8  OF  POLISH. 

C.  ■ 1 

2 AA2 
2AA3 

REF 

REF 

1 

361 

LAST 

1087 

01, 2533 
01, 253A 

7 2573 
50  000 

0 

1 

MASK 

INDEX 

B3TD BA 
A 

GETS  AX2-BIT  CODE. 

2 AAA  01,2535  1 2536  1 TCF  +1 


2 AA5 

REF 

2 

LAST 

1087 

01, 2536 

3 0131 

1 

+ 1 

CA 

SWB  I T 

00 

- SET  SWITCH  IN  QUESTION. 

244^ 

0 1 , 2537 

0 0006 

1 

EXTEND 

2 A A7 

REF 

1 

01, 25A0 

OA  002 

1 

ROR 

OCHAN 

2AA8 

REF 

1 

01, 2 5A1 

1 2550 

1 

TCF 

SWSTORE 

2AA9 

REF 

3 

LAST 

1088 

01,2  5A2 

3 0131 

1 

+ 5 

CA 

SWB  I T 

01 

- INVERT  SWITCH. 

2A50 

01,2  5A3 

0 0006 

1 

EXTEND 

245  1 

REF 

2 

L t 

10  r a 

0 1 t 2 544 

0 fri  002 

o 

RXOR 

OCHAN 

2A52 

REF 

2 

LAST 

108  8 

0 1 , 2 5A  5 

1 2550 

1 

TCF 

SWSTORE 

24 

R FF 

4 

LAST 

108  ft 

n i r 2 54^ 

4 01  81 

o 

+ 90 

cs 

SWB  1 T 

1 0 

- Cl  EAR. 

2A5A 

REF 

292 

LAST 

108  7 

01,  25A7 

7 0002 

1 

MASK 

Q 

2 A55 

REF 

2 

LAST 

108  7 

01,2550 

50  130 

0 

SWSTORE 

INDEX 

SWWORD 

2 A 56 

REF 

A 5 

LAST 

108  7 

01,2551 

5 A 07A 

0 

TS 

STAT  E 

NEW 

SWITCH  WORD. 

GAP 
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L INTERPRETER 


2457 

01,2552 

0 

0003 

1 

+ 1 3D 

RELINT 

2458 

REF 

42 

LAST 

96  1 

01, 2553 

3 

4737 

0 

CAF 

BIT1  3 

01,2  554 

0 

0006 

1 

EXTEND 

2459 

2460 

REF 

39 

LAST 

1038 

01,2555 

7 

0117 

1 

MP 

POL  I SH 

2461 

REF 

2 

LAST 

108  8 

01,  2 55  6 

7 

2573 

0 

MASK 

B3T0B4 

362 

LAST 

\n  ft  r 

01,2557 

50  000 

1 

INDEX 

A 

2463 

01,2560 

1 

2561 

0 

TCF 

+ 1 

2464 

REF 

293 

LAST 

1088 

01,2561 

4— 

0002 

-1— 

+ 1 

CS — 

0 

2465 

REF 

5 

LAST 

10  8 8 

01,2562 

7 

01  31 

0 

TEST 

MASK 

SWB  I T 

2466 

REF 

363 

LAST 

108  9 

01,2563 

10 

i 000 

0 

CCS 

A 

2467 

REF 

1 

01,2564 

1 

25  74 

1 

TCF 

SWSK  IP 

2468 

REF 

1 

01,2565 

1 

6714 

1 

+ 5 

TCF 

SWBP ANCH 

2469 

REF 

2 

LAST 

10  8 9 

01,2566 

1 

2 5 74 

1 

TCF 

SWSK  1 P 

l AST 

10  3 6 

0 1 t 2 **6-7 

0 

5677 

l 

TC 

CCSHOLF 

2471 

REF 

9 

LAST 

108  9 

01,2570 

0 

5677 

1 

TC 

CCSFPLF 

LAST 

108  9 

0 1 1 2 ^7 1 

3 

non  ? 

o 

+ 90 

CA 

0 

2473 

REF 

1 

01,2572 

i 

2562 

0 

TCF 

TEST 

2474 

0 1 1 2^7^ 

non  1 l. 

1 

B3TDR4 

OCT 

0014 

2475 

REF 

29 

LAST 

108  1 

01, 2574 

24 

164 

1 

SWSKIP 

I NCR 

LOC 

24  76 

p E p 

l 

n it  2 513 

sw/ 

F0UA1  S 

SWI TCHFS 

2477 

REF 

54 

LAST 

1086 

01, 2575 

1 

6060 

0 

+ 1 3D 

TCF 

DANZ  IG 

USER'S  PAGE  NO.  93  E3  S3 

11  - NOOP. 

DISPATCH  SEQUCE  CHANGING  OR  BRANCHING 
CODE. 

ORIGINALLY  STORED  IN  BITS  5-6. 

00  - BRANCH  IF  ON. 


01  - GO  TO. 

HERE  ONLY  ON  BIT  15. 


10  - BRANCH  IF  OFF. 


11  - NOOP. 
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USER' S PAGE  NO.  1 

PAGE  1090 
EO  S3 

0001 

4732 

BLOCK 

02 

COUNT  * 

% $/ F CONS 

000 1 5 

R00016 

THE  FOLLOWING  TABLE 

OF  18  VALUES  IS 

INDEXED.  DO 

NOT  INSERT  OR  RFMOVE 

ANY  QUANTITIES. 

377  77 

1 

npn  <sM  AX 

OC  T 

3 777  7 

MUST  PRFCEDF  POSMAX 

0002 

0003 

4733 

37777 

1 

POSMAX 

OCT 

37777 

4734 

1 T M I TS 

NF01 /? 

0007 

4734 

57777 

1 

NEGl/2 

OCT 

-20000 

USED  BY  SIN  ROUTINE  (MUST  BE 

TWO 

LOCATIONS  IN  FRONT  OF  SIT  14) 

R0009 

BIT  TABLE 

4- 

40000 

0 

P I T 1 S 

DC  T 

4000  n 

0011 

4736 

20000 

0 

BIT  14 

OCT 

260  66 

0012 

4737 

10000 

0 

B IT  1 3 

OCT 

10000 

00  1 3 

4 740 

04  000 

0 

B1T12 

OCT 

04000 

0014 

4741 

02000 

0 

BIT11 

OCT 

02000 

0015 

4742 

01000 

0 

BIT10 

OCT 

01000 

00  ] /s 

- 4743 

004  00 

0 

8 I T9 

OCT 

004  0 C 

00  17 

4 744 

00200 

0 

BITS 

OCT 

00200 

0018 

4745 

00100 

0 

B IT  7 

OCT 

00100 

00  1 9 

00040 

0 

B I T 6 

OCT 

0004  0 

0020 

4 74  7 

00020 

0 

BIT5 

OCT 

0002  0 

0021 

4750 

00010 

0 

B I T 4 

OCT 

00010 

no  2 ? 

4751 

00004 

o 

B IT3 

OCT 

000C4 

0023 

4752 

00002 

0 

B IT2 

OCT 

0000  2 

0024 

4753 

00001 

0 

BIT1 

OCT 

0000  1 

R0025 

OC  NOT  DESTROY 

TH  IS 

COMBINATION 

i,  SINCE 

IT  IS  USED  IN 

DOUBLE  PRFCISION 

INSTRUCTIONS. 

0027 

4754 

77  777 

0 

NEGO 

OCT 

-0 

MUST  PRECEDE  ZERO 

0028 

4755 

00000 

1 

ZERO 

OCT 

0 

MUST  FOLLOW  NEGO 

A0029 

BIT1 

OCT 

0000  1 

A 0030 

NO. WD  S 

OCT 

2 

INTERPRETER 

A0031 

0CTAL3 

OCT 

3 

INTERPRETER 

ADO  32 

R 3D  1 

OCT 

4 

PINBALL 

0033 

4756 

00005 

1 

FIVE 

OCT 

_5 

A0034 

REVCNT 

OCT 

6 

INTERPRETER 

0035 

4757 

00007 

0 

SEVEN 

OCT 

7 

A0036 

BIT4 

OCT 

00010 

A0037 

R2D 1 

OCT 

1 1 

PINBALL 

00375 

REF  6 LAST 

470 

4320 

OCT  11 

= 

R 2D  1 

P20S 

A0038 

BINCQN 

DEC 

10 

PINBALL  (OCTAL  12) 

0039 

4760 

00013 

0 

ELEVEN 

DEC 

l 1 

A0040 

OCT  14 

OCT 

14 

ALARM  AND  ABORT  (FILLER) 

00401 

4761 

00015 

0 

OCT  15 

OCT 

1 5 

A0041 

P ID  1 

OCT 

16 

PINBALL 

0043 

4762 

00017 

1 

LOW  4 

OCT 

17 
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A0044 

BIT5 

OCT 

A0045 

NDl 

OCT 

VD1 

OCT 

A0047 

0CT24 

OCT 

A0048 

MD1 

OCT 

4 763 

00030 

1 

8ITS4S5 

OCT 

A0049 

OCT  3 1 

OCT 

00491 

4 764 

00033 

1 

OCT  33 

OCT 

0049  2 

REF  3 LAST  866 

4 764 

DEC  27 

= 

00493 

4765 

00035 

1 

OCT  3 5 

OCT 

00494 

REF  1 

4765 

DEC29 

= 

4766 

00032 

0 

CALLCODE 

OCT 

A0051 

LOW  5 

OCT 

A0052 

33DEC 

DEC 

34DEC 

DEC 

0054 

4767 

00045 

0 

TBUILDFX 

DEC 

0055 

4770 

00046 

0 

TDECAYFX 

DEC 

AOO  ^6 

BIT6 

OCT 

0057 

4771 

00050 

1 

OCT  50 

OCT 

0058 

4772 

00055 

1 

DEC45 

DEC 

0059 

4773 

00060 

1 

SUPER011 

OCT 

0060 

4 774 

00062 

0 

. 5SEC 

DEC 

A0061 

BIT7 

OCT 

0062 

REF  44  LAST  1087 

4745 

SUP  ER 1 00 

= 

A0063 

00  64 

4 775 

00120 

1 

SUPER  101 

OCT 

A0065 

OCT  121 

OCT 

A0066 

0067 

4 776 

00140 

1 

SUPER110 

OCT 

A0068 

0069 

4777 

00144 

0 

1 SEC 

DEC 

A0070 

L0W7 

OCT 

A0071 

B I T 8 

OCT 

A0072 

0T215 

OCT 

A0073 

8,5 

OCT 

0074 

5 000 

00310 

0 

2SECS 

DEC 

A0075 

LOW  8 

OCT 

A0076 

B I T9 

OCT 

0077 

5001 

00401 

1 

GN/CCODE 

OCT 

0079 

5002 

004  54 

1 

3SECS 

DEC 

0080 

5003 

00620 

0 

4SECS 

DEC 

0080  1 

5004 

00777 

0 

L0W9 

OCT 

A0081 

8IT10 

OCT 

A0082 

5.5DEGS 

DEC 

A0083 

OCT  11 03 

OCT 

00  84 

5005 

01124 

L 

C5/2 

DEC 

0085 

5 006 

01211 

1 

V05N09 

VN 

0086 

5007 

01400 

1 

OCT  1400 

OCT 

00865 

5010 

01426 

0 

V06N22 

VN 

211  12-011 
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USER'S  PAGE  NO.  2 EO  S3 

00020 

21 

23 

24 

25 
30 

PINBALL 

PINBALL 

SERVICE  ROUTINES 
P INBALL 

31 
33 

0CT33 

35 

0CT3  5 

00032 

SERVICE  ROUTINES 

37 

33 

34 

37 

38 

00040 

50 

45 

PINBALL 

PINBALL  (OCTAL  41) 

PINBALL  (OCTAL  47) 

BUILDUP  FOR  CONVIENCE  IN  DAPTESTING 
CONVENIENCE  FOR  DAPTESTING 

60 

50 

00100 

BITS  FOR  SUPERBNK  SETTING  Oil. 

B IT7 

120 

121 

140 

l 00 

BITS  FOR  SUPERBNK  SETTING  100 
(LAST  4K  OF  ROPE) 

BITS  FOR  SUPERBNK  SETTING  101 
SERVICE  ROUTINES 
(FIRST  8K  OF  ACM) 

BITS  FOR  SUPERBNK  SETTING  110. 
(LAST  8K  OF  ACM ) 

1 77_ 
00200 

INTERPRETER 

215 

00220 

200 

ALARM  AND  ABORT 
P20-P25  SUNDANCE 

377 

00400 

PINBALL 

0040  1 
300 
400 
777 
01  000 

SET  S/C  CONTROL  SWITCH  TO  G/N 

.03056 

1133 

.0363551 

0509 

01400 

0622 

P20-P25  SUNDANC F (OCTAL  00765) 

ALARM  AND  ABORT 

(OCTAL  01124) 
( SAME  AS  OCTAL  1211 ) 

GAP 
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A0087 

MID5 

OCT 

1 740 

00875 

5011 

01776 

0 

RITS2-10 

OCT 

1776 

r\  A D Q 

501 2 

01777 

LOW  10 

OCT 

1 777 

UUOO' 

A0089 

BITll 

OCT 

02000 

A 0090 

2K  + 3 

OCT 

2003 

nnoi 

5013 

02177 

1 

LOW  7+2K 

OCT 

2.111 

VV7i 

0092 

5014 

02400 

1 

EBANK5 

OCT 

02400 

0093 

5015 

03  0 00 

1 

PRI03 

OCT 

03000 

0094 

501b 

03400 

0 

EBANK7 

nr.T 

0340  0 

A0095 

LOW  11 

OCT 

3 777 

A0096 

RIT12 

OCT 

04000 

A0097 

RELTAB 

OCT 

0402 5 

0098 

5017 

05000 

1 

PRI05 

OCT 

05000 

0099 

5 02  0 

06000 

1 

PR  1 06 

OCT 

06000 

0100  — 5-021  07000  0 PRI07  OCT  07000 


A0102 
A 0 1 0 3 

B IT  1 3 

OCT 

OCT 

10000 
1000  3- 

AO  104 

13,7,2 

OCT 

10102 

0105 

5022 

11000 

1 

PR  I 0 1 1 

OCT 

11  000 

A01  06 

PR  1012 

OCT 

12000 

0107 

5023 

13000 

0 

PR  I 0 1 3 

OCT 

1 3000 

0108 

5024 

14000 

1 

PR  I 01 4 

OCT 

14000 

A01C9 

OCT 

1403  1 

0110 

5025 

15000 

0 

PRI01 5 

OCT 

15000 

0111 

5026 

16000 

0 

PRI 016 

OCT 

16000 

A01 1 2 

85DEGS 

DEC 

. 45  5 56 

0113 

5027 

17000 

1 

PR  1 0 1 7 

OCT 

1 7000 

0114 

5030 

17770 

1 

OCT  1777  0 

OCT 

17770 

A0115 

BIT  14 

OCT 

20000 

A01 16 

OCT 

2 0 0 3 3 

0117 

5031 

21000 

1 

PRI 021 

OCT 

21000 

01175 

7707 

BLOCK 

03 

01176  REF  1 

COUNT  * 

t $/ F CONS 

0118 

7707 

22000 

1 

PR  I 022 

OCT 

22000 

0119 

7710 

23000 

o 

PRI 023 

OCT 

2300  Q 

0120 

7711 

24000 

1 

PRI 024 

OCT 

24000 

AO  1 2 1 

5/8  + 1 

OCT 

2400  1 

AO  122 

OCT 

24017 

0123 

7712 

25000 

0 

PR  I 02  5 

OCT 

25000 

0124 

7713 

26000 

0 

PR  I 026 

OCT 

26000 

0125 

7714 

27000 

1 

PRI 027 

OCT 

2 7 0 0 0_ 

A0126 

CHRPRIO 

OCT 

30000 

A0127 

OCT 

30036 

0128 

7715 

31000 

0 

PR  I 03 1 

OCT 

31000 

0129 

7716 

31103 

1 

Cl/2 

DEC 

. 7853134 

0130 

7717 

32000 

0 

PR  I 032 

OCT 

32000 

0131 

7 720 

33000 

1 

PRI 033 

OCT 

33000 

0132 

7721 

34000 

0 

PRI 034 

OCT 

34000 

AO  133 

OCT 

3 4034 

USER'S  PAGE  NO.  3 EO  S3 

PINBALL 


PINBALL 

OP  CODE  MASK  + BANK  1 F BANK  SETTING 

PINBALL 
T 4R  U°T 


T4RUPT  RELTAB  +1D 

P20-P25  SUNDANCF 

BANKCALL 


T4RUPT  RELTAB  +2D 


P20-P25  SUNDANCE  (OCTAL  16450) 


T4RUPT  RELTAB  + 3D 


SERVICE  ROUTINES 


SINGLE  PRECISION  SUBROUTINES 
T4RUPT  RELTAB  +4D 


PINBALL 

T4RUPT  RELTAB  +50 

(OCTAL  31103) 


T4RUPT 


RELTAB  +6D 


GAP 


ASSEMBLE  REVISION  {>69  OE  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1093 


L 

FIXED-FIXEC  CONSTANT  POOL 

USER'S  D AGE  NO.  4 EO  S3 

0134 

7722 

35000 

1 

PR  1 03  5 

OCT 

35000 

0135 

7723 

36000 

1 

PRI 036 

OCT 

36000 

7 724 

37000 

-0 

PRI 037 

OCT 

37000 

0137 

7725 

37401 

0 

63/64+1 

OCT 

37401 

AO  1 38 

M 1 0 7 

OCT 

37600 

PINBALL 

7 726 

37766 

1 

OCT  37766 

OCT 

37766 

0140 

7727 

37774 

1 

0CT37774 

OCT 

37774 

0141 

7730 

37776 

0 

0CT37776 

OCT 

37776 

AO  141  1 

DPOSMAX 

OCT 

37777 

A0142 

BIT15 

OCT 

40000 

A0143 

OCT 40 001 

OCT 

4000  1 

INTERPRETER  ( CS  1 INSTRUCTION) 

0 1 44 

7 73 1 

40014 

0 

DLOADCOD 

OCT 

4001  4 

0145 

7732 

40015 

1 

DLOAD* 

OCT 

4001  5 

A0146 

OCT 

40023 

T4RUPT  RELTAB  +7D 

01465 

7733 

40040 

1 

BIT  15  + 6 

OCT 

40040 

01466 

7734 

402  00 

1 

OCT  40200 

OCT 

402  0 0 

A0147 

OCT 

44035 

T4RUPT  RELTAB  +8D 

A0148 

OCT 

5003  7 

T4RUPT  RELTA8  +9D 

A0149 

nCT 

54000 

T 4RU°  T RELTAB  +10D 

01495 

7735 

57777 

1 

-B I T 1 4 

OCT 

57777 

AO  1 50 

RELTAB11 

OCT 

60000 

T4RUPT 

0151 

7736 

65552 

0 

C3/2 

DEC 

- .32  16147 

(OCTAL  65552) 

0152 

7737 

70000 

0 

13, 14,15 

OCT 

70000 

01  53 

7740 

73777 

1 

-1/8 

OCT 

7377  7 

0154 

7741 

74000 

1 

HIGH4 

OCT 

74000 

0155 

7 742 

74056 

1 

-FNDERAS 

DEC 

-200  1 

(OCTAL  74056) 

AO  1 56 

HI  5 

OCT 

76000 

PINBALL 

0157 

7 743 

77700 

0 

HIGH9 

OCT 

77700 

A0158 

-ENDVAC 

DEC 

-45 

INTERPRETER  (OCTAL  77722) 

AO  159 

-0CT10 

OCT 

- 10 

(OCT  77767) 

A0161 

NEG4 

DEC 

-4 

(OCTAL  7777?) 

0162 

7744 

77774 

0 

NEG3 

DEC 

-3 

0163 

7745 

77775 

1 

NEG? 

OCT 

7777  5 

0164 

7746 

77776 

1 

NEGONE 

DEC 

- 1 
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0169 

REF 

— § 

LAST 

868 

7 746 

MINUS  1 

-= 

N-EG1 

0170 

REF 

11 

LAST 

1054 

7 746 

NFG 1 

= 

NEGONE 

0171 

REF 

53 

LAST 

999 

4753 

ONE 

= 

Bill 

n 17? 

REF 

5 i 

LAST 

972 

4752 

TWO 

= 

B I T 2 

0173 

REF 

i 

6244 

THREE 

= 

0CTAL3 

0174 

REF 

31 

LAST 

10  2 3 

6244 

LOW  2 

THREE 

n 1 7s 

REF 

37 

I AST 

95  8 

4 751 

FOUR 

B I T 3 

0176 

REF 

5 

LAST 

100  3 

6241 

SIX 

= 

RE VC  NT 

0177 

REF 

16 

LAST 

1074 

4757 

L0W3 

= 

SEVE  N 

01  7R 

R FF 

41 

| AST 

q 7 ? 

4750 

EIGHT 

— 

R I T 4 

0179 

RFF 

7 

LAST 

1090 

4320 

NINE 

= 

R2D1 

0180 

RFF 

3 

LAST 

48  3 

4363 

TEN 

- 

B INC  ON 

0181 

RFF 

— 2- 

LAST 

480 

4 76  0 

NOUTCON 

- 

ELEV  EN 

0182 

REF 

15 

LAST 

469 

4360 

OCT  23 

= 

V D 1 

0182  5 

REF 

2 

LAST 

47  1 

4362 

OCT  25 

= 

MO  1 

0183 

REF 

46 

LAST 

10  5 0 

4 742 

PRI01 

= 

BIT10 

0184 

REF 

7 

LAST 

1084 

5007 

EBANK3 

= 

0CT1400 

0185 

REF 

31 

LAST 

1088 

4741 

PR  I 02 

- 

BIT11 

0186 

REF 

1_ 

4775 

OCT  120 

— 

SUPEP101 

0187 

REF 

3 

LAST 

615 

4776 

OCT  140 

= 

SUPE  R 1 1 0 

0188 

REF 

32 

LAST 

109  4 

4 741 

2K 

= 

BIT1  1 

0189 

REF 

33 

LAST 

109  4 

4741 

EBANK4 

= 

B IT  1 1 

0190 

REF 

41 

LAST 

826 

4740 

PR  104 

- 

B I T 1 2 

0191 

REF 

12 

LAST 

874 

5015 

EBANK6 

- 

PR  I 03 

0192 

REF 

/«3 

LAST 

108  9 

4737 

QUARTER 

— 

B I T 1 3 

0193 

REF 

44 

LAST 

1094 

4737 

PR  1010 

= 

BIT13 

01935 

REF 

1 

7662 

OCT  10001 

= 

CCSL 

0194 

REF 

24 

LAST 

108  0 

4736 

POS 1/2 

— 

HALF 

0195 

REF 

71 

LAST 

103  1 

4736 

PR  I 020 

= 

B I T 1 4 

0196 

REF 

72 

LAST 

1094 

4736 

HALF 

= 

BIT14 

0197 

REF 

- -5- 

LAST 

48  1 - 

4355 

PR  I 030 

C HR  P RIO 

0198 

REF 

10 

LAST 

10  21 

4355 

BIT  13-14 

= 

PRI030 

INTERPRETER  USES  IN  PROCESSING  STORECODE 

01985 

REF 

3 

LAST 

1006 

6470 

OCT  3000  2 

= 

TL3AD  +1 

0199 

REF 

-2— 

LAST 

9-9  1 

7 721 

B12T14 

— 

PRI 034 

0200 

REF 

42 

LAST 

1087 

4735 

NFGMAX 

= 

BIT1  5 

0201 

REF 

43 

LAST 

1094 

4735 

VLOADCOD 

= 

BIT1  5 

0202 

REF 

l_ 

6 106 

VLQAO* 

~ 

OC  T 4 0001 

0203 

REF 

2 

LAST 

17  1 

4101 

OCT  60000 

- 

RELT AB11 

0204 

REF 

6 

LAST 

913 

4350 

BANKMASK 

= 

H 15 

GAP: 

L 

0001 

0002 

0003 

0004 

0004 

0005 

0005 

0006 

0006 

0007 

0007 

0008 

0008 

0009 

0009 

0010 

0010 

0011 

0012 

0013 
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INTERPRETIVE  CONSTANTS  USER'S  PAGE  NO.  1 


REF 

1 23,2000 

SETLOC 

l NTPRET1 

23,2413 

BANK 

REF 

1 

COUNT  * 

$ $/ 1 CONS 

23, 2413 

10000 

0 

DP1/4TH 

2DEC 

.25 

2^  t 2414 

00000 

1 

23,2415 

00000 

1 

UNITZ 

2DEC 

0 

23, 2416 

00000 

1 

23,2417 

00000 

1 

UNITY 

20EC 

0 

23,2420 

00000 

1 

23, 2421 

20000 

0 

UNI  TX 

2DEC 

. 5 

23, 2422 

00000 

1 

23,2423 

00000 

1 

ZEROVECS 

2DEC 

0 

23, 2424 

00000 

1 

23, 2425 

00000 

1 

2 DEC 

0 

23, 2426 

00000 

1 

23, 2427 

000  00 

1 

2DEC 

0 

23,2430 

000  00 

l 

REF 

12  LAST  909  23,2421 

DPHALF 

= 

UNITX 

23, 2431 

37777 

1 

DPPOSMAX 

OCT 

37777 

37777 

1 

nr.T 

3 777  7 

GAP 
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L INTERPRETIVE  CONSTANTS 


P0014 

INTERPRETIVE 

CONSTANTS  IN  THE 
i i o nnn 

OTHER  1 

HALF 

-MEMORY 

SFTLOC 

I NTPFET? 

0016 

11,2266 

BANK 
mi  int  ❖ 

* */ T CDNS 

0018 

11, 2266 

00000 

1 

ZUN  IT 

2DEC 

0 

0018 

11,2267 

00000 

1 

1 1 1 2 ?70 

00000 

i 

VUN  T T 

2 DEC 

0 

0019 

11,2271 

00000 

1 

0020 

11,2272 

20000 

0 

XUN  IT 

2DEC 

. 5 

OH20 

1 1 ,2273 

00000 

1 

0021 

1 1,2274 

00000 

1 

ZEROVEC 

2DEC 

0 

0021 

11,2275 

00000 

1 

002? 

11, 2276 

00000 

1 

2DEC 

0 

0022 

11,2277 

00000 

1 

0023 

11,2300 

00000 

1 

2DEC 

0 

00  ? 3 

1 1 , 2 30  1 

00000 

1 

0024 

1 1, 2302 

77777 

0 

OCT 

77777 

0025 

11,2303 

77771 

0 

DEC-6 

DEC 

-6 

0026 

1 1,2304 

77763 

0 

DEC-12 

DEC 

-12 

0027 

11,2305 

37777 

1 

LODPMAX 

20CT 

3777737777 

0027 

11,2306 

37777 

1 

002  ft 

) 1 f? 307 

37777 

1 

LODPMAX 1 

20CT 

3 777737777 

0028 

11,2310 

37777 

1 

0029 

REF 

5 

LAST 

963 

11,2274 

ZERODP 

= 

ZERO VEC 

0030 — 

REF— 

-7- 

LAST 

96  5 

11,2272 

HALFDP 

= 

XUN  I T 
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USER'S  PAGE  NO.  2 EO  S3 


-0, -6,-12  MUST  REMAIN  IN  THIS  OR DFR 
THESE  TWO  CONSTANTS  MUST  REMAIN 


ADJACENT  AND  THE  SAME  FOR  INTEGRATION 


GAP 
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SINGLE  PRECISION  SUBROUTINES  USER'S  PAGE  NO. 


0001 

5032 

BLOCK 

02 

R0002 

SINGLE 

PRECISION  SINE 

AND  COSINE 

0002  5 

REF 

1 

COUNT  * 

$$/ I NTER 

0003 

REF 

25 

LAST 

1094 

5032 

6 4736 

1 

SPCOS 

AD 

HAL  F 

ARGUMENTS  SCALED 

AT  PI 

0004 

R FF 

1 

5033 

55*  076 

0 

SPSIN 

TS 

TEMK 

0005 

REF 

1 

5 034 

1 5036 

0 

TCF 

SPT 

0006 

REF 

2 

LAST 

1097 

5035 

4 1076 

0 

CS 

TFMK 

0007 

5036 

6 0000 

1 

SPT 

DOUBLE 

0008 

REF 

3 

LAST 

1097 

5 037 

55*076 

0 

TS 

TEMK 

0009 

REF 

1 

5040 

1 5051 

1 

TCF 

POLL  EY 

no  i n 

R FF 

4 

1 AST 

109  7 

5041 

5 7 ' 0 76 

1 

XCH 

TEMK 

0011 

REF 

5 

LAST 

1097 

5042 

51*076 

1 

INDEX 

TEMK 

0012 

REF 

3 

LAST 

10  2 3 

5043 

6 4734 

0 

AD 

LIMITS 

on  ] 3 

5044 

4 0000 

0 

COM 

0014 

REF 

6 

LAST 

1097 

5045 

6 1075 

1 

AD 

TEMK 

0015 

REF 

7 

LAST 

1097 

5046 

5 5 ' 0 76 

0 

TS 

TEMK 

00  1 6 

REF 

2 

LAST 

109  7 

5047 

1 5051 

1 

TCF 

POLL  EY 

0017 

REF 

i 

5050 

1 5067 

1 

TCF 

ARSSO 

0018 

5051 

0 0006 

1 

POLLEY 

EXTEND 

0019 

REF 

8 

LAST 

1097 

5052 

7 1076 

0 

MP 

TEMK 

0020 

REF 

1 

5053 

55*077 

1 

TS 

SO 

0021 

5054 

0 0006 

1 

EXTEND 

0022 

REF 

1 

5055 

7 5005 

0 

MP 

C 5/  2 

0023 

REF 

1 

5056 

6 7736 

1 

AD 

C 3/2 

0024 

5057 

0 0006 

1 

EXTEND 

0025 

REF 

2 

LAST 

109  7 

5060 

7 1077 

1 

MP 

SQ 

0026 

REF 

1 

5 061 

6 7716 

0 

AD 

Cl/2 

0027 

5062 

0 0006 

1 

EXTEND 

0028 

REF 

9 

LAST 

109  7 

- -5063 

7 1076 

0 

MP 

TEMK 

0029 

5064 

20  001 

1 

DDOUBL 

0030 

REF 

10 

LAST 

109  7 

5065 

55*076 

0 

TS 

TEMK 

0031 

RFF 

295 

LAST 

108  9 

5 066 

0 0002 

0 

TC 

Q 

0032 

REF 

364 

LAST 

1089 

5067 

50  000 

1 

ARG90 

INDEX 

A 

0033 

REF 

4 

LAST 

1097 

5070 

4 4734 

l 

CS 

L IMI TS 

0034 

-RE-E- 

296 

LAST 

1097 

5071 

0 0002 

a 

IC 

_Q 

RESULT  SCALED  AT 

1 
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L EXECUTIVE 


USER'S  PAGE  NO.  1 EO  S3 


0001 

5072 

BLOCK 

02 

R0002 

TO  ENTER  A 

JOB  REQUEST  REQUIRING  NO  VAC 

AREA: 

00025 

REF 

1 

COUNT  * 

$ $ / E XEC 

00029 

5072 

0 0004 

0 NOVAC 

INHINT 

0003 

R EF 

5073 

6 5164 

1 

AD 

FAKE  PRET 

LOCIMPAC  +6)  - LOC(QPRET) 

00031 

REF 

3 

LAST 

382 

5074 

54  063 

0 

TS 

NEWPRIO 

PRIORITY  OF  NEW  JOB  + NOVAC  C(FIXLOC) 



FYTFMn 

0005 

REF 

2 S 7 

LAST 

109  7 

5076 

5 0002 

0 

INDEX 

Q 

0 WILL  BE  UNDISTURBED  THROUGHOUT. 

0006 

5077 

3 0001 

0 

DC  A 

0 

2CADR  OF  JOB  ENTERED. 

0007 

RFF 

1 

5100 

52  066 

0 

DXCH 

NEWLOC 

0008 

REF 

1 

5 101 

3 5163 

0 

CAF 

EXEC  BANK 

0009 

REF 

24 

LAST 

1040 

5 102 

56  004 

0 

XCH 

FBANK 

on  i n 

REF 

1 

5 103 

54  061 

1 

TS 

EXEC  TEM1 

0011 

REF 

1 

5104 

1 2622 

1 

TC  F 

N0VAC2 

ENTER  EXECUTIVE  BANK. 

R0012  TO  ENTER  A JOB  REQUEST  REQUIRING  A VAC  AREA  - £.&.r  ALL  (PARTIALLY)  INTERPRETIVE  JOBS. 


0014 

00  14.  5 

RFF 

4 

LAST 

10  9 8 

5105 

6 \ 0 A 

0 0004 
54  063 

o c 

FINDVAC 

INHINT 

TS 

NEWPRIO 

0015 

5 107 

0 00  06 

1 

EXTEND 

0016 

REF 

298 

LAST 

10  9 8 

5 110 

5 0002 

0 

INDEX 

Q 

0017 

5 111 

3 0001 

0 

DC  A 

0 

0018 

REF 

2 

LAST 

109  8 

5 112 

52  066 

0 

SPVACIN 

DXCH 

NEWLCC 

0019 

REF 

2 

LAST 

109  8 

5113 

3 5163 

0 

CAF 

E XEC  BANK 

00  20 

REF 

2 5 

LAST 

1098 

5 114 

56  004 

0 

XCH 

FBANK 

0021 

REF 

1 

5115 

1 2576 

0 

TC  F 

F INDVAC2 

OFF  TO  EXECUTIVE  SW I TCH ED-B ANK . 

R0021  1 TC  ENTER  A F I NOV  AC  WITH  THE  PRIORITY  IN  NEWPR 10  TO  THE  2CADR  ARRIVING  IN  A AND  L:  ■ 


R0021 25 

USERS  OF  SPVAC  MUST 

INHINT  BEFORE 

STORING  IN 

NEWPR I 0. 

00213 

REF 

299 

LAST 

10  9 8 

5 116 

56  002 

0 SPVAC 

XCH 

0 

00214 

REF 

5 

LAST 

888 

5 117 

6 7745 

0 

AO 

NEG2 

0021  5 

REF 

300 

LAST 

10  9 8 

5120 

56  002 

0 

XCH 

n 

00216 

REF 

1 

5 121 

l 5112 

1 

TC  F 

SPVACIN 

R0022  TO  SUSPEND  A BASIC  JOB  SO  A HIGHER  PRIORITY  JOB  MAY  BE  SERVICED: 


0024 

0025 

REF 

-REF- 

301 

— 3_ 

LAST  1098 
LAST  1098 

5 122 
5123 

22  002  0 
3 51  63  0 

CHANG1 

LXCH 

CAF 

Q 

EXEC  BANK 

0026 

REF 

27 

LAST  1020 

5124 

56  006  1 

XCH 

BB AN  K 

0027 

REF 

1 

5 125 

1 2703  0 

TCF 

CHANJOB 

R0030 

TC  SUSPEND 

AN  INTERPRETIVE  JOB: 

0031 

REF- 

30 

LAST  1089 

5 126 

4 0164  0 

CHANG2 

CS 

L OC 

NEGATIVE  LOC  SHOWS  JOB  = INTERPRETIVE. 

R00315 

I TRACE  ( 4 ) 

REFERS  TO 

"CHANG  2''. 

0032 

REF 

198 

LAST  1077 

5 127 

54  001  1 

TS 

L 

GAP  : 


0033 
00333 

0034 
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EXECUTIVE 


REF 

REF 

REF 


19:02  NOV.  25,1968  SKIPPER  .070  PAGE 
USER'S  PAGE  NO.  2 EO  S3 


4 

LAST 

109  8 

5 130 

3 5163 

0 

+ 2 

CAF 

EXEC  BANK 

28 

LAST 

109  8 

5 131 

54  006 

0 

TS 

BBANK 

- 2— 

LAST 

1098 

5 132 

1 27  02 

j. — 

IC-E 

CHAN  JOB  -1 

'U„w. 







GAP: 

ASSFMBLE  REVISION  069  OF 

AGC  PROGRAM  LUMINARY 

BY  NASA 

20211 12-011 

19:02  NOV.  25,1968 

SKIPPER  .070 

PAGE  1100 

USER'S  PAGE 

NO.  3 

EO  S3 

L 

E X EC 

UT  I VE 

P0035 

TC  VOLUNTARILY 

SUSPEND  A JOB  UNTIL 

THE  COMPLETION  OF  SOME 

ANTICIPATED  EVENT  ( I /O 

F VENT  ETC.) 

: 

0037 

REF 

31  LAST  1098 

5133 

54  164  0 JOBSLEEP  TS 

LOC 

0038 

REF 

5 LAST  1099 

5 134 

3 5163  0 

CAF 

E XFC  BANK 

1 ACT  109  R 

5135 

54  004  1 

TS 

FBANK 

0039 

0040 

Kt  r 

REF 

C.KJ  l_  H J 1 1U  7 O 

1 

5 136 

1 2773  1 

TC  F 

JOBS l PI 

R0041  TO  AWAKEN  A JOB  PUT  TO  SLEEP  IN  THE  ABOVE-  FASHION: 


0042 

5 137 

0 0004 

0 

JOBWAKE 

INHINT 

0042  1 

REF 

3 

1 A9  T 1 09  P 

5 140 

54  065 

o 

TS 

NEKLOC 

0043 

REF 

71 

LAST  1037 

5 141 

4 4752 

1 

CS 

TWO 

FXIT  IS  VIA  FTNDVAC/NOVAC  PROCEDURES. 

0044 

REF 

302 

LAST  1098 

5 142 

26  002 

1 

ADS 

Q 

0045 

REF 

6 

LAST  1100 

5 143 

3 5163 

0 

CAF 

EXECBANK 

0046 

REF 

27 

LAST  1100 

5 144 

56  004 

0 

XCH 

FBANK 

0047 

REF 

1 

5145 

1 3020 

1 

TCF 

J0BWAKE2 

R 0048 

TO  CHANGE 

THE  PRIORITY  OF  A 

JOB  CURRENTLY  UNDER  EXECUTION: 

514^ 

n oao4^ 

o 

PR  I DCHNG 

INHINT 

NEW  PRIORITY  ARRIVES  IN  A.  RETURNS  TO 

0050 

REF 

5 

LAST  1098 

5 147 

54  063 

0 

TS 

NEWP  RIO 

CALLER  AS  SOON  AS  NEW  JOB  PRIORITY  IS 

0051 

REF 

7 

LAST  1100 

5 150 

3 5163 

0 

CAF 

EXECBANK 

HIGHEST.  PREPARE  FOR  POSSIBLF  BASIC- 

0052 

REF 

29 

LAST  1099 

5 151 

56  006 

1 

XCH 

BBANK 

STYLE  CHANGE-JOB. 

0053 

REF 

9 

LAST  1020 

5152 

54  165 

1 

TS 

BANK  SET 

0054 

REF 

303 

LAST  1100 

5 153 

3 0002 

0 

CA 

Q 

0055 

RFF 

1 

5154 

1 3067 

1 

TCF 

PP10CH2 

R 005  8 

TC  REMOVE 

A JOB  FROM 

EXECUTIVE 

CONSIDERATIONS: 

0059 

REF 

8 

LAST  1100 

5 155 

3 5163 

0 

ENDOF JOB 

CAF 

EXECBANK 

0060 

REF 

28 

LAST  1100 

5 156 

54  004 

1 

TS 

FBANK 

0051 

-R-EF 

— 1_ 

5157 

1 3100 

1 

TCF 

END J CB 1 

0062 

REF 

2 

LAST  1098 

5 160 

3 0061 

0 

ENDFIND 

CA 

EXECTEM1 

RETURN  TO  CALLER  AFTER  JOB  ENTRY 

0063 

REF 

29 

LAST  1100 

5 161 

54  004 

1 

TS 

FBANK 

COMPLETE. 

0064 

REF 

2 

LAST  532 

5162 

1 6740 

0 

TCF 

Q+2 

0066 

REF 

2 

LAST  1098 

5163 

025  76 

1 

EXECBANK 

CADR 

F INDVAC2 

00665 

REF 

6 94 

LAST  1085 

5 164 

00110 

1 

FAKFPRET 

ADRES 

MPAC  -36D 

LOCIMPAC  +6)  - LQCtOPRET) 

GAP 
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L EXECUTIVE 


P0067 

LCCATE  AN 

AVAILABLE 

VAC  AREA 

BANK 

0 1 

006  8 

00685 

REF 

1 

COUNT  * 

t $ / E X EC 

0069 

RFF 

3 

LAST 

1100 

01, 2576 

54  061 

1 

F INDVAC2 

TS 

EXEC  TEM1 

[_  /\s  T 

2^9 

n 1 f 2 S7  7 

1 0 400 

1 

CCS 

VAC1USF 

0071 

RFF 

1 

01, 2600 

1 2615 

0 

TCF 

VAC  FOUND 

0072 

REF 

3 

LAST 

259 

01,2601 

10  454 

0 

CCS 

VAC2  USE 

# ef 

2 

L A9  T 

11  n l 

m t 2 602 

1 2615 

0 

TCF 

VAC  FOUND 

0074 

REF 

3 

LAST 

259 

01,2603 

10  530 

0 

CCS 

VAC3USE 

0075 

REF 

3 

LAST 

110  1 

01,  2604 

1 2615 

0 

TCF 

V AC  F OUND 

0076 

p ef 

3 

1 AST 

2 5 9 

0 1 , 2605 

10  604 

1 

CCS 

V AC4  USE 

0077 

REF 

4 

LAST 

110  1 

01,2606 

1 2615 

0 

TCF 

V AC  F OUND 

0078 

REF 

3 

LAST 

259 

01, 2607 

10  660 

0 

CCS 

VAC5USE 

0070 

REF 

5 

L AST 

110  1 

01,2610 

1 2615 

0 

TCF 

V AC  F OUND 

00792 

REF 

4 

LAST 

no  i 

01, 2611 

22  061 

0 

LXCH 

EXECTEM1 

00794 

REF 

304 

LAST 

110  0 

01,2612 

3 0002 

0 

CA 

Q 

on  ro 

RFF 

3 

I AST 

26  0 

0 1,2613 

0 5710 

1 

TC 

BAI L0UT1 

0081 

01,  2614 

01201 

0 

OCT 

1201 

008  2 

REF 

72 

LAST 

lino 

n 1 , 2 6 1 6 

h,  4762 

n 

VAC  FOUND 

AD 

T WO 

0083 

01,2616 

22  007 

0 

ZL 

0084 

REF 

365 

LAST 

1097 

01, 2617 

50  000 

1 

INDEX 

A 

00ftC» 

- 0 1 f 2 620 

21 1 777 

o 

LXCH 

3 -) 

0086 

REF 

6 

LAST 

1100 

01, 2621 

26  063 

0 

ADS 

NEWPPIO 

i n a i 

n 1 1 2 62  2 

3 4765 

1 

Mnu AT  2 

CAP 

ZERO 

0088 

REF 

5 

LAST 

47  1 

01, 2623 

54  064 

1 

TS 

LOCCTR 

0089 

REF 

1 

01,2624 

3 2631 

1 

CAE 

NO. CORES 

OQoo 

REF 

l 

0 1 T 2625 

54  062 

1 

N0VAC3 

TS 

EXEC  TEM2 

0091 

REF 

6 

LAST 

110  1 

01,2626 

50  064 

0 

INDEX 

L OC  C TR 

0092 

REF 

12 

LAST 

864 

01, 2627 

10  167 

0 

CCS 

PRIORITY 

0093 

REF 

1 

01 , 2630 

1 2671 

I 

TCF 

NEXT  COPE 

0094 

01,2631 

00007 

0 

NO. CORES 

DEC 

7 

0095 

REF 

2 

LAST 

110  1 

01, 2632 

1 2671 

1 

TCF 

NEXT  CORF 

A0096 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1101 


USER'S  PAGE  NO.  4 EO  S3 


(SAVE  CALLER'S  BANK  FIRST.) 


NO  VAC  AREAS. 

RESERVE  THIS  VAC  AREA  BY  STORING  A ZERO 
IN  ITS  VAC  USE  REGISTER  AND  STORE  THE 
ADDRESS  OF  THE  FIRST  WORD  OF  IT  IN  THE 
LOW  NINE  BITS  OF  THE  PRIORITY  WORD, 


NOV AC  ENTERS  HERE.  FIND  A CORE  SET. 
SEVEN  SETS  OF  ELEVEN  REGISTERS  EACH. 


EACH  PRIORITY  REGISTER  CONTAINS  -0  IF 
THE  CORRESPONDING  CORE  SET  IS  AVAILABLE. 

AN  ACTIVE  JOB  HAS  A POSITIVF  PRIORITY 
BUT  A DORMANT  JOT'S  PRIORITY  IS  NEGATIVE 


GAP: 
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EXECUTIVE 


USER ' S PAGE  NO. 


EO  S3 


0097 

REF 

7 

LAST 

110  1 

01, 2633 

3 0063 

1 

CORFOUNO  CA 

NEWPRIO 

SET  THE  PRIORITY  OF  THIS  JOB  IN  THE  CORE 

0098 

RFF 

7 

LAST 

no  i 

01,  2634 

50  064 

0 

INDEX 

LOCCTR 

SET'S  PRIORITY  REGISTER  AMD  SET  THE 

1 3 

\ AST 

LI  0 1 

01,  2635 

54  l 67 

0 

TS 

PRIORITY 

JOB'S  PUSH-DOWN  POINTER  AT  THE  BEGINNING 

0100 

REF 

9 

LAST 

864 

01,2636 

7 5004 

1 

MASK 

LOW® 

OF  THE  WORK  AREA  AND  OVERFLOW  INDICATOR 

0101 

REF 

8 

LAST 

1102 

01, 2637 

50  064 

0 

INDEX 

LOCCTR 

RFF 

ZB 

LAST 

10  7 2 

0 1,2640 

54  166 

1 

TS 

PUSHLOC 

OFF  TO  PREPARE  FOR  INTFRPRFTIVF  PROGRAMS 

0103 

REF 

9 

LAST 

1102 

01,2641 

10  0 64 

1 

CCS 

LOCCTR 

IF  CORE  SET  ZERO  IS  BEING  LOADED,  SET  UP 

REF 

1 

01,2  642 

1 2656 

1 

TCF 

SETLOC 

OVFIND  AND  FIXLOC  IMMEDIATELY  . 

0105 

REF 

11 

LAST 

1085 

01,2643 

54  121 

1 

TS 

OVF I ND 

0106 

REF 

29 

LAST 

1102 

01,2644 

3 0166 

0 

CA 

PUSHLOC 

0107 

REF 

50 

1 AST 

108  6 

0 1, 2645 

54  1 20 

0 

TS 

FIXLOC 

0108 

REF 

6 

LAST 

998 

01, 2646 

10  067 

1 

SPECTEST  CCS 

NEWJOB 

SEE  IF  ANY  ACTIVE  JOBS  WAITING  (RARE). 

01  09 

REF 

2 

1 AST 

110  2 

01,2647 

1 2656 

1 

TCF 

SETLOC 

MUST  BE  AWAKENED  BUT  UNCHANGED  JOB. 

0110 

REF 

10 

LAST 

1089 

0 1,  2650 

0 5677 

1 

TC 

CCSHOLF 

0111 

REF 

11 

LAST 

1102 

01, 2651 

0 5677 

1 

TC 

CCSHOLE 

0112 

_ REF 

7 

LAST 

110  2 

01,2652 

54  067 

1 

TS 

NEW J OB 

+0  SHOWS  ACTIVE  JOB  ALREADY  SET. 

0113 

REF 

4 

LAST 

1100 

01,2653 

52  066 

0 

DXCH 

NFWLOC 

0114 

REF 

32 

LAST 

1100 

01,2654 

52  165 

1 

DXCH 

LOC 

0115 

RFF 

1 

01, 2 655 

1 5160 

1 

TCF 

ENDF  I NO 

0116 

REF 

5 

LAST 

1102 

01, 2656 

52  066 

0 

SFTLOC  DXCH 

NEWLOC 

SET  UP  THE  LOCATION  REGISTERS  FOR  THIS 

0117 

REF 

10 

LAST 

110  2 

01,2657 

50  064 

0 

INDEX 

LOCCTR 

0118 

REF 

33 

LAST 

1102 

01,2660 

52  165 

1 

DXCH 

LOC 

0119 

REF 

8 

LAST 

1102 

01,2661 

50  067 

0 

INDEX 

NEWJOB 

THIS  INDEX  INSTRUCTION  INSURES  THAT  THE 

0120 

REF 

14 

LAST 

1102 

0 1,2662 

4 0167 

0 

CS 

PRIORITY 

HIGHFST  ACTIVE  PRIORITY  WILL  BE  COMPARED 

0121 

REF 

8 

LAST 

1102 

01,2663 

6 0063 

1 

AD 

NEWPRIO 

WITH  THE  NEW  PRIORITY  TO  SEE  IF  NEWJOB 

0122 

01 ,2664 

0 0006 

l 

EXTEND 

SHOULD  BE  SET  TO  SIGNAL  A SWITCH. 

0 123 

R EL 

2— 

LAST 

1102 

01,2665 

6 5160 

0- 

3ZMF 

ENDF  IND 

0124 

REF 

11 

LAST 

1102 

01, 2666 

3 0064 

0 

CA 

LOCC  TR 

LOCCTR  IS  LEFT  SET  AT  THIS  CORE  SET  IF 

0125 

REF 

9 

LAST 

1102 

01,2667 

54  067 

1 

TS 

NEWJOB 

THE  CALLER  WANTS  TO  LOAD  ANY  MPAC 

0126 — 

REF 

3 

LAST 

110  2 

-01,2670 

1 5160 

1 

TCF 

ENDF IND 

REGISTERS,  FTC. 

0127 

REF 

1 

01,2671 

3 3030 

1 

NEXTCORE  CAF 

COPE  INC 

— 0 128 

REF 

1-2— 

LAST 

110  2 

0 l, 2672 

26  064 

1 

ADS 

LOCC  TP 

0129 

REF 

2 

LAST 

110  l 

01, 2673 

10  062 

1 

CCS 

EXEC  TFM2 

0130 

REF 

1 

01,2674 

1 2625 

0 

TCF 

N0VAC3 

01302 

REF 

5 

LAST 

no  i 

01, 2675 

22  061 

0 

LXCH 

EXEC  TEM1 

01304 

REF 

3C5 

LAST 

110  1 

01, 2676 

3 0002 

0 

CA 

Q 

0131 

REF 

4 

LAST 

no  i 

01,2677 

0 5710 

1 

TC 

BAIL  OUT  1 

NO  CORE  SETS  AVAILABLE. 

0132 

01, 2700  _ 

01202 

0 

OCT 

1202 

GAP : ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  202ILI2-0II  19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1103 

L EXECUTIVE  USER'S  PAGE  NO.  6 EG  S3 

P0133  THE  FOLLOWING  ROUTINE  SWAPS  CORE  SET  0 WITH  THAT  WHOSE  RELATIVE  ADDRESS  IS  IN  NEWJ03. 


01345 

0135 

0136 

REF 

REF 

34 

10 

LAST 

LAST 

-110  2 
1100 

01.2701 

01. 2702 

01.2703 
m,? 704 

22 

30 

0 

o 

164 

165 
0004 
0006 

-1 

0 

0 

1 

-2 

-1 

CHANJOB 

LXCH 

CAE 

INHINT 

FXTEND 

LOC 

BANKSET 

BANKSET,  NOT  BBANK , HAS  RIGHT  CONTENTS. 

01364 

REF 

15 

LAST 

996 

01,2705 

04 

007 

1 

ROR 

SUPFPBNK 

PICK  UP  CURRENT  S BANK  FOR  BBCON 

01366 

REF 

199 

LAST 

1098 

01,2  706 

56 

001 

0 

XCH 

L 

LOC  IN  A AND  BBCON  IN  L. 

n i ^ p 

R FF 

1 0 

last 

no? 

0 l , 2 707 

50 

067 

0 

+ 4 

INDEX 

NEW  J CB 

SWAP  LOC  AND  BANKSET. 

0137 

REF 

35 

LAST 

1103 

01,2710 

52 

165 

1 

DXCH 

LOC 

0138 

REF 

36 

LAST 

1103 

01,2711 

52 

165 

1 

DXCH 

LOC 

01382 

REF 

11 

LAST 

1103 

01,2712 

30 

165 

0 

CAE 

BANKSET 

01384 

01,2713 

0 

0006 

1 

EXTEND 

0 ] T R R 

R FF 

16 

LAST 

1103 

01,2714 

01 

007 

1 

WRITE 

SUPERBNK 

SET  SBANK  FOR  NEW  JOB. 

0139 

REF 

695 

LAST 

1100 

01,2715 

52 

155 

1 

DXCH 

MPAC 

SWAP  MULTI-PURPOSE  ACCUMULATOR  AREAS. 

0140 

REF 

11 

LAST 

1103 

01, 2716 

50 

067 

0 

INDEX 

NEW  JOB 

0141 

R FF 

\ AST 

hot 

QltZ717 

5 2 

155 

1 

DXCH 

MPAC 

0142 

REF 

697 

LAST 

1103 

01,2720 

52 

155 

1 

DXCH 

M PA  C 

0143 

REF 

698 

LAST 

1103 

01,2721 

52 

157 

0 

DXCH 

MPAC  +2 

01  44- 

R FF 

12 

1 AST 

110  3 

01 , 272? 

50 

067 

0 

INDFX 

NEWJ  OB 

0145 

REF 

699 

LAST 

1103 

01,2723 

52 

157 

0 

DXCH 

MPAC  +2 

0146 

REF 

700 

LAST 

1103 

01,2724 

52 

157 

0 

DXCH 

MPAC  +2 

0147 

REF 

701 

LAST 

110  3 

01 ,2725 

52 

161 

0 

DXCH 

MPAC  +4 

0148 

REF 

13 

LAST 

1103 

01,2726 

50 

067 

0 

INDEX 

NEWJOB 

0149 

REF 

702 

LAST 

110  3 

01,2727 

52 

161 

0 

DXCH 

MPAC  +4 

0150 

REF 

703 

LAST 

110  3 

01,2  730 

52 

161 

0 

DXCH 

MPAC  +4 

0151 

REF 

7C4 

LAST 

1103 

01,2731 

52 

163 

1 

DXCH 

MPAC  +6 

0152 

REF 

14 

LAST 

1103 

01, 2732 

50 

067 

0 

INDEX 

NEWJOB 

01  53- 

REF 

705 

LAST 

110  3 

01,2733 

52 

163 

1 

DXCH 

MPAC  +6 

0154 

REF 

706 

LAST 

1103 

01,2734 

52 

163 

1 

DXCH 

MPAC  +6 

0 1 ss 

« FF 

? 1 ? 

LAST 

110  1 

n 1 r 2 7TF 

T ■ 

^7  SS 

l 

CAF 

ZERO 

0156 

REF 

12 

LAST 

1102 

01,2736 

56 

121 

0 

XCH 

OVF I ND 

MAKE  PUSHLOC  NEGATIVE  IF  OVFIND 

NZ. 

0157 

01,2737 

0 i 

0006 

1 

EXTEND 

— 01  58 

01,2740 

1 . 

2743 

1 

BZF 

+ 3 

0159 

REF 

30 

LAST 

no  2 

01,2741 

4 ( 

0166 

1 

CS 

PUSHLOC 

0160 

REF 

31 

LAST 

1103 

0 1, 2742 

54 

166 

1 

TS 

PUSHLOC 

0161 

REF 

32 

LAST 

1103 

01,2743 

52 

167 

0 

DXCH 

PUSHLOC 

0162 

REF 

15 

LAST 

1103 

01,2744 

50 

067 

0 

INDEX 

NEWJOB 

0163— 

REF 

33 

LAST 

110  3 

0 1,2  745 

52 

167 

0 

DXCH 

PUSHLOC 

0164 

REF 

34 

LAST 

1103 

01,2746 

52 

167 

0 

DXCH 

PUSHLOC 

SWAPS  PUSHLOC  AND  PRIORITY. 

0165 

REF 

10 

LAST 

1102 

01, 2 747 

3 1 

3004 

0 

CAF 

L0W9 

SET  F IXLOC  TO  BASE  OF  VAC  AREA. 

0166 

REF 

15 

LAST 

1102 

01,2750 

7 ( 

0167 

0 

MASK 

PRIORITY 

0167 

REF 

51 

LAST 

1102 

01,2751 

54 

120 

0 

TS 

F IXLOC 

0168 

REF 

35 

LAST 

110  3 

01,2752 

1 0 

1 

1 

CCS 

p ush i nc 

SET  OVERFLOW  INDICATOR  ACCORDING 

TO 

0169 

REF 

213 

LAST 

1103 

01, 2753 

3 4755 

1 

CAF 

ZERO 

0170 

REF 

1 

01,2754 

1 2761 

1 

TCF 

ENDPRCHG  -1 

GAP:  ASSEMBLE  REVISION  069  Qf  AGC  PROGRAM  LUMFM4R-Y  BY  NASA  2021112-011 


£ ' 

EXECUTIVE 

0171 

REF 

36 

LAST 

1103 

01,2755 

4 0166 

1 

CS 

PUSHLOC 

0172 

REF 

37 

LAST 

110  4 

01,2756 

54  166 

1 

TS 

PUSHLOC 

Ol  79 

REF 

1 13 

LAST 

106  7 

01,2757 

3 4753 

CAE 

ONE. 

U 1 —t-3 

0174 

REF 

13 

LAST 

1103 

01, 2760 

56  121 

0 

XCH 

OVF  I ND 

0175 

RFF 

16 

L.  ST 

1103 

01, 2761 

54  067 

1 

TS 

NEW  JOB 

0176 

01,2762 

0 0003 

1 

ENDPRCHG  RELINT 

0177 

REF 

37 

LAST 

1103 

01,2763 

52  165 

1 

DXCH 

LOC 

0178 

01,2764 

0 0006 

J.  . 

EXTEND 

0179 

01,2765 

6 2767 

0 

BZME 

+ 2 

0180 

01,2766 

52  006 

0 

DTCB 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1104 
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BASIC  JOBS  HAVE  POSITIVE  ADDRESSES,  SO 
DISPATCH  WITH  A QTCB. 

IF  INTERPRETIVE,  SET  UP  EBANK,  ETC. 
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L 

EXECUTIVE 

0181 

01,2767 

4 0000 

0 

COM 

0182 

REF 

114 

LAST 

1104 

01,2770 

6 4753 

1 

AD 

ONE 

0 1 83 

R€  F 

38 

LAST 

110  4 

01 , 777  1 

54  164 

0 

TS 

LQC 

0186 

REF 

i 

01,2772 

1 6047 

0 

TCF 

I NTP SM 

# 

0188 

01,2773 

0 0004 

0 

J0BSLP1 

INHINT 

01  QQ 

R Ef 

1 A 

1 AST 

110  3 

0 It  2 774 

4 0167 

0 

CS 

PP.IL  RITY 

0190 

REF 

17 

LAST 

no  5 

01, 2775 

54  167 

0 

TS 

PRIORITY 

0191 

REF 

8 

LAST 

10  3 9 

01,2776 

3 6073 

0 

CAF 

LOW  7 

01Q2 

R FF 

3D 

LAST 

11  0 0 

01,2777 

7 0006 

0 

MASK 

BBANK 

0192  1 

01,3000 

0 0006 

1 

EXTEND 

01922 

REF 

17 

LAST 

no  3 

01,3001 

04  007 

1 

ROR 

SUPFPBNK 

01  93 

RFF 

1 2 

LAST 

110  3 

01 , 3002 

54  165 

1 

TS 

BANK  SFT 

0194 

REF 

214 

LAST 

1103 

01,3003 

4 4755 

0 

CS 

ZERD 

0195 

REF 

132 

LAST 

107  5 

01,3004 

54  131 

0 

J0BSLP2 

TS 

BUF  +1 

0196  REF  1 - 01,-3005  1 31  15  0 TCE  E-J.Sf.AW 


01961 

01, 3006 

0 0004 

0 

NUCHANG2  INHINT 

019611  REF  17  LAST  1104 

01 , 3 007 

10  0 67 

1 

CCS 

NEW  J CE 

019612 

01,3010 

1 3013 

1 

TCF 

+ 3 

019613 

01,3011 

0 0003 

1 

REL INT 

019614  REF  1 01,  3012  1 3213  0 TCF  ADVA N +2 


01962 

01963 

REF 

73 

LAST 

110  1 

01.3013 

01.3014 

3 4752 
0 0006 

0 

1 

CAF 

EXTEND 

TWO 

01964 

REF 

30 

LAST 

864 

01,3015 

05  on 

1 

WDR 

DSAL  MOUT 

01965 

REF 

39 

LAST 

1105 

01,3016 

52  165 

1 

DXCH 

LQC 

01966 

-RFF- 

-3- 

-FAST 

1099 

01,  3017 

1 2707 

1 

TCF 

CHAN  JOB  + 4 

19:02  NOV.  25,1968  SKIPPFR  .070  PAGE  1105 
USER'S  PAGF  NO.  8 EO  S3 

EPILOGUE  TO  JOB  CHANGE  FOR  INTERPRETIVE 
RESUME. 


NNZ  PRIORITY  SHOWS  JOB  ASLEEP. 


SAVE  OLD  SUPERBANK  VALUE. 


HOLDS  - HIGHEST  PRIORITY. 

SCAN  FOR  HIGHEST  PRIORITY  ALA  ENDOF JOB . 

QUICK...  DONT  LET  NEWJOB  CHANGE  TO  +0  . 

NEW JOB  STILL  PNZ 

NEWJOB  HAS  CHANGED  TO  +0.  WAKE  UP  JOB 
VIA  NUDIRECT.  (VERY  RARE  CASE.) 


TURN  ON  ACTIVITY  LIGHT 
AND  SAVE  ADDRFSS  INFO  FOR  BENEFIT  OF 
POSSIBLE  SLEEPING  JOB. 


GAP 
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USER'S  PAGE  NO.  9 EO  S3 


P019T 

TC  WAKE  UP 

A JOB  , EACH  CORE 

S FT  IS  FOUND  TO  LOCATE  ALL  JOBS 

WHICH  ARE  ASLEEP.  IF  THE  FCADR  IN  THF 

R 01 99 

LOC 

REGISTER 

OP  ANY 

SUCH  JOB 

MATCHES 

THAT  SUPPLIED  BY  THE  CALLER,  THAT  JOB  IS  AWAKENED.  IE  NO  JOB  IS  FOUND, 

r T R 

IS  T 

TO  -1 

4N1D  NH  FURTHER  ACTION  TAKFS 

PLACE. 

0 202 

REF 

6 

LAST 

1102 

01,3020 

54  061 

1 

J0BWAKE2 

TS 

EXECTEM1 

REF 

2 i s 

J AST 

1]05 

01 f 3 OP  1 

3 4755 

1 

CAF 

ZERO 

BEGIN  CORE  SET  SCAN. 

0204 

REF 

13 

LAST 

1102 

01,3022 

54  064 

1 

TS 

LOCC TR 

0205 

REF 

2 

LAST 

no  i 

01, 3023 

3 26  31 

1 

CAF 

NO. CORES 

0?  06 

REF 

3 

LAST 

1102 

01, 3024 

54  062 

1 

J0BWAKE4 

TS 

EXFCTEM2 

0207 

REF 

14 

LAST 

1106 

01,3025 

50  064 

0 

INDEX 

LOCCTR 

0208 

REF 

18 

LAST 

1105 

01,3026 

10  167 

0 

CCS 

PRIORITY 

0209 

REF 

1 

01,3027 

1 3032 

1 

TC  F 

JOBW AKE3 

ACTIVE  JOB  - CHECK  NEXT  CORE  SET. 

0210 

01,3030 

00014 

1 

CORE  INC 

DEC 

12 

12  REGISTERS  PER  CORE  SET. 

0211 

REF 

1 

01,3031 

1 3041 

0 

TCF 

WAKETEST 

SLEEPING  JOB  - SEE  IF  CADR  MATCHES. 

0212 

REF 

2 

LAST 

1102 

01, 3032 

3 3030 

1 

J0BWAKE3 

CAF 

CORE  INC 

0213 

REF 

15 

LAST 

1106 

01, 3033 

26  064 

1 

ADS 

LOCC  TP 

OP  1 4 

R FF 

4 

LAST 

1106 

01 , 3034 

10  062 

1 

CCS 

EXEXTEM2 

0215 

REF 

i 

01,3035 

1 3024 

0 

TCF 

J0BWAKE4 

0216 

REF 

115 

LAST 

1105 

01, 3036 

4 4753 

0 

CS 

ONE 

EXIT  IF  SLEEPING  JOB  NOT  FOUND. 

OP  1 7 

REF 

16 

LAST 

LI  06 

01,3037 

54  064 

l 

TS 

LOCC  TR 

0218 

REF 

4 

LAST 

1102 

01,3040 

1 5160 

1 

TCF 

ENDF IND 

OP  1 9 

REF 

6 

LAST 

l I o p 

01,-^041 

4 006S 

o 

-WAK  F TF  ST 

CS 

MEW1  CC 

0220 

REF 

17 

LAST 

1106 

01,3042 

50  064 

0 

INDEX 

LOCCTR 

0221 

REF 

40 

LAST 

1105 

01,3043 

6 0164 

1 

AD 

LOC 

0222 

0 1 , 3044 

0 0006 

1 

EXTEND 

0223 

01 ,3045 

1 3047 

0 

BZF 

+ 2 

IF  MATCH. 

0224 

REF 

2 

LAST 

1106 

01,3046 

1 3032 

1 

TCF 

JOBW AKE3 

EXAMINE  NEXT  CORE  SET  IF  NO  MATCH. 

0225 

REF 

18 

LAST 

1106 

01,3047 

50  064 

0 

INDEX 

LOCCTR 

RE-COMPLEMENT  PRIORITY  TO  SHOW  JOB  AWAKE 

0226 

REF 

19 

LAST 

1106 

01 ,3050 

4 0167 

0 

CS 

PRIORITY 

0227 

REF 

9 

LAST 

110  2 

01,3051 

54  063 

0 

TS 

NFKPPIO 

0228 

REF 

19 

LAST 

1106 

01,3052 

50  064 

0 

INDEX 

LOCCTR 

0229 

REF 

20 

LAST 

1106 

01,3053 

54  167 

0 

TS 

PRIORITY 

0230 

REF 

1 

01, 3054 

4 4350 

1 

CS 

FBANKMSK 

MAKE  UP  THE  2CADR  OF  THE  WAKE  ADDRESS 

0231 

REF 

7 

LAST 

1106 

01,3055 

7 0065 

0 

MASK 

NFWLOC 

USING  THE  CADR  IN  NEWLOC  AND  THE  EBANK 

023 2 

-REF 

3 

— L AS  T 

101  8 

01 , 3056 

6 4741 

1 

AD 

2 K 

HALF  OF  BBANK  SAVED  IN  BANKSFT. 

0233 

REF 

8 

LAST 

1106 

01,3057 

56  065 

1 

XCH 

NEWLOC 

0234 

REF 

2 

LAST 

1106 

01 ,3060 

7 4350 

1 

MASK 

FBANKMSK 

02  35 

REF 

20 

LAST 

1106 

01,3061 

50  064 

0 

INDEX 

LOCCTR 

0236 

REF 

13 

LAST 

1105 

01, 3062 

6 0165 

0 

AD 

BANK  SET 

0237 

REF 

9 

LAST 

1106 

01,3063 

54  066 

0 

TS 

NEWLOC  +1 

0238 

REF 

21 

LAST 

1106 

01, 3064 

10  0 64 

1 

CCS 

LOCCTR 

SPECIAL  TREATMENT  IF  THIS  JOB  WAS 

0239 

REF 

3 

LAST 

1102 

01, 3065 

1 2656 

1 

TCF 

SETLOC 

ALREADY  IN  THE  RUN  (0)  POSITION. 

0240 

FLEF 

L_ 



01,3066 

1 2646 

0 

TCF 

SPFC  TEST 
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L EXECUTIVE 
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P0241 


PRIORITY  CHANGE.  CHANGE  THE  CONTENTS  OF  PRIORITY  AND  SCAN  FOR  THE  JOB  OF  HIGHEST  PRIORITY. 


0243 

REF 

41 

LAST 

1106 

01,3067 

54  164 

0 PRI0CH2 

TS 

LOC 

0244 

REF 

2 16 

LAST 

1106 

01,3070 

3 4755 

1 

CAF 

ZFRO 

0245 

REF 

133 

LAST 

110  5 

01,3071 

54  130 

1 

TS 

BUF 

0246 

RFF 

44 

LAST 

11 0 3 

01,3  072 

3 5004 

0 

CA f 

LOW  9 

0247 

REF 

21 

LAST 

1106 

01,3073 

7 0167 

0 

MASK 

PP IORITY 

0248 

REF 

10 

LAST 

1106 

01 , 3074 

6 0063 

1 

AD 

NEWPPIO 

024P 

REF 

22 

LAST 

hot 

01, 3075 

54  167 

0 

TS 

PRIORITY 

0250 

01,3076 

4 0000 

0 

COM 

0251 

REF 

1 

01 ,3077 

1 3004 

1 

TCF 

JOBS  LP2 

SET  FLAG  TO  TELL  FNOJOB  SCANNER  IF  THIS 
JOB  IS  ST  I LI  HIGHEST  PRIORITY. 


AND  TO  EJSCAN. 


GAP  : 
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L EXECUTIVE 


USER*  S PAG  E NO. 


P0252 


RELEASE  THIS  CORE  SET  AND  VAC  AREA  AND  SCAN  FOR  THE  JOB  OF  HIGHEST  ACTIVE  PRIORITY. 


11 


EO  S3 


0254 

0255 

0256 

0257 

REF 

REF 

REF 

217 

134 

-2-3- 

LAST 

LAST 

LAST 

1107 
1107 
110  7 

01, 3100 
01,3  101 

01. 3102 

01. 3103 

0 0004 
4 4755 
54  131 
56  167 

0 END JOB  1 
0 

0 

1 

INHINT 

CS 

TS 

X£H 

ZERO 
BUF  +1 
PRIORITY 

0258 

REF 

12 

LAST 

1107 

01,3104 

7 5004 

1 

MASK 

LOW  9 

02581 

REF 

200 

LAST 

1103 

01,3105 

54  001 

1 

TS 

L 

02582 

REF 

2 

LAST 

1098 

01, 3106 

4 51  64 

0 

CS 

FAKEPRET 

025821 

REF 

2 C 1 

LAST 

1108 

01,3107 

6 0001 

0 

AD 

L 

02583 

01,3110 

0 0006 

l 

EXTEND 

02584 

RFF 

2 

LAST 

1105 

01,3111 

6 3115 

1 

BZMF 

EJSC AN 

NOVAC  ENDOFJOB 

0259 

REF 

202 

LAST 

1108 

01, 3112 

10  001 

1 

CCS 

L 

0260 

REF 

366 

LAST 

110  1 

01,3  113 

50  000 

1 

INDEX 

A 

0261  01,3114  54  000  0 TS  a 


0262 

REF 

24 

LAST 

110  8 

01,3115 

10  203 

1 

E J SC AN 

CCS 

PRIORITY  +12D 

0263 

REF 

1 

- 01 , 3 116 

0 3166 

0 

TC 

EJ1 

0264 

REF 

12 

LAST 

1102 

01,3  117 

0 5677 

1 

TC 

CCSHOLF 

0265 

01,3120 

1 3121 

1 

TC  F 

+ 1 

0266 

REF 

25 

LAST 

1108 

01,3121 

10  217 

1 

CCS 

PRIORITY  + 24D 

EXAMINE 

EACH  PRIORITY  REGISTER  TO  FIND 

0267 

REF 

2 

LAST 

1108 

01,3122 

0 3166 

0 

TC 

E J 1 

THE  JOB 

OF  HIGHEST  ACTIVE  PRIORITY. 

0268 

REE 

— 1-3  . 

LAST 

1108 

01, 3123 

0 5677 

1 

TC 

CCSHOLF 

0269 

01,  3124 

1 3125 

0 

TC  F 

+ 1 

0270 

RFF 

25 

LAST 

no  s 

— on  312  5 

10  2 33 

1 

CCS 

PRIORITY  4-  36D 

0271 

REF 

3 

LAST 

1108 

01, 3126 

0 3166 

0 

TC 

E J 1 

0272 

RFF 

27 

LAST 

110  8 

01,3127 

67610 

1 

-CCS  PR 

-CCS 

PRIORITY 

02  73 

01, 3130 

1 31  31 

0 

TC  F 

+ 1 

0274 

RFF 

28 

LAST 

1108 

01,3131 

10  247 

1 

CCS 

PRIORITY  + 48D 

0275 

REF 

- 4 

LAST 

1-10  8 

01,3132 

0 3166 

0 

TC 

£ J1 

0276 

REF 

14 

LAST 

1108 

01, 3133 

0 5677 

l 

TC 

CCSHOLF 

0277 

01, 3134 

1 3135 

1 

TC  F 

+ 1 

0278 

REF 

29 

LAST 

1108 

01,3135 

10  263 

1 

CCS 

PRIOPITY  +60D 

0279 

REF 

5 

LAST 

1108 

01, 3136 

0 3166 

0 

TC 

E J 1 

0280 

R-EF 

15 

LAST 

110  8 

01,3137 

0 5677 

l 

TC 

CCSHOLF 

0281 

01,3 140 

1 3141 

1 

TC  F 

+ 1 

0282 

REE 

30 

LAST 

1108 

—01,  3141 

10  277 

1 

CCS 

PRIORITY  +720 

0283 

REF 

6 

LAST 

1108 

01, 3 142 

0 3166 

0 

TC 

F J1 

0284 

REF 

16 

LAST 

1108 

01,3143 

0 5677 

1 

TC 

CCSHCLE 

0285 

01, 3144 

1 3145 

0 

TCF 

+ 1 

02851  REF  31  LAST  1108 


01,3145  10  313  1 


CCS 


PRIORITY  +84D 
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L EXECUTIVE 


02852 

REF 

7 

LAST 

1108 

01,3146 

0 

3166 

0 

TC 

EJ1 

02853 

REF 

17 

LAST 

1108 

01,3147 

0 

5677 

1 

TC 

CCSHCLE 

02854 

01,3150 

-1 

3151 

0 

TC  F 

+ 1 

USER' S PAGE  NO.  12  EO  S3 


GAP  : 

L 

P0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310- 

0311 

0312 
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EXECUTIVE 


USER ' S PAGE  NO.  13  EO  S3 


EVALUATE  THE  RESULTS  OF  THE  SCAN. 


1 ACT 

110  8 

01*3151 

10  181 

0 

CCS 

8 U F +1 

SEE  IF  THERF  ARE  ANY  ACTIVE  JOBS  WAITING 

REF 

18 

L H J 1 

LAST 

1109 

01, 3 152 

0 5677 

1 

TC 

CCSHOLE 

REF 

19 

LAST 

1110 

01, 3153 

0 5677 

1 

TC 

CCSHOLF 

01,3154 

1 3156 

1 

TCF 

+2 

REF 

2 

LAST 

22  8 

01,3155 

1 3203 

1 

TCF 

DUMMY JOB 

REF 

1 36 

LAST 

1110 

01,3156 

10  130 

1 

CCS 

3 UF 

BUF  IS  ZFPO  IF  THIS  IS  A PRIOCHNG  AND 

01,3157 

l 3161 

0 

TCF 

+ 2 

CHANGED  PRIORITY  IS  STILL  HIGHEST. 

REF 

2 

LAST 

1103 

01,3160 

1 2761 

1 

TCF 

ENDPRCHG  -1 

REF 

367 

LAST 

1103 

01,3161 

50  000 

1 

INDEX 

A 

OTHERWISE,  SET  NFWJOB  TO  THE  RELATIVE 

01, 3162 

2 '7777 

0 

CAF 

0 -1 

ADDRESS  OF  THE  NEW  JOB'S  CORE  SET. 

REF 

1 

01,3 163 

6 3127 

0 

AD 

-CCS  PR 

REF 

18 

LAST 

1105 

01,3164 

54  067 

1 

TS 

NEW JOB 

REF 

4 

LAST 

1105 

01, 3165 

1 2701 

1 

TCF 

C HAN JOB  -2 

REF 

137 

LAST 

1110 

01 , 3166 

54  132 

0 

EJ1 

TS 

RUF  +2 

REF 

1 38 

LAST 

11 1 0 

01,3167 

6 0131 

1 

AD 

BUF  +1 

- OLD  HIGH  PRIORITY. 

ref 

368 

LAST 

1110 

01,3 170 

10  000 

0 

CCS 

A 

REF 

1 39 

LAST 

1110 

01,3171 

4 0132 

0 

CS 

BUF  +2 

REF 

1 

01,3172 

1 31  76 

0 

TCF 

E J2 

NFW  HIGH  PRIORITY. 

01,3173- 

13  174 

1 

NOOP 

REF 

306 

LAST 

1102 

01, 3174 

50  002 

0 

INDEX 

0 

01, 3175 

0 0002 

0 

TC 

2 

PROCEED  WITH  SEARCH. 

REF 

1 AO 

LAST 

1110 

01, 3176 

54  131 

0 

EJ2 

TS 

BUF  +1 

01,3  177 

0 0006 

1 

EXTEND 

REF 

141 

LAST 

11 1 0 

01-,  3 200 

22  130 

0 _ 

QXCH 

BUF 

FOR  LOCATING  CCS  PRIORITY  + X INSTR. 

REF 

142 

LAST 

11  1 C 

01,3201 

50  130 

0 

INDEX 

BUF 

01 , 3202 

0 0002 

0 

TC 

2 
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L EXECUTIVE 


USER ' S PAGE  NO.  1 A EO  S3 


P 03 1 A 

IDLING  AND 

COMPUTER 

ACTIV  ITY 

(GREEN)  LIGHT  MAINTENANCE.  THE 

IDLING  ROUTINE  IS  NOT  A JOB  IN  ITSELF, 

R0316 

BUT 

RATHER  A : 

SUBROUTINE  OF  THE  EXECUTIVE. 

0318 

REF 

4 

LAST 

305 

1 361 

EB ANK= 

SELFRET 

SELF-CHECK  STORAGE  IN  EBANK. 

01 r 320  3 

4 47  ft  ft 

o 

OUMMV.jdr 

cs 

Z E R 0 

S FT  NEWJOB  TO  -0  FnR  IDLING. 

0320 

RFF 

19 

LAST 

1110 

01,3204 

54  067 

1 

TS 

NEW JOB 

0321 

01,3205 

0 0003 

1 

RELINT 

0322 

R p F 

74 

LAS  T 

110  5 

01 , 3206 

4 47  52 

1 

CS 

TWO 

TURN  OFF  THE  ACTIVITY  LIGHT. 

0323 

01,3207 

0 0006 

1 

EXTEND 

0324 

REF 

31 

LAST 

110  5 

01,3210 

03  Oil 

1 

WAND 

D SAL  MOUT 

032ft 

REF 

20 

LAST 

1111 

01,3211 

10  067 

1 

ADVAN 

CCS 

NEW  JOB 

IS  A NEWJOB  ACTIVE  ? 

0329 

REF 

i 

0 1, 3212 

1 3006 

0 

TCF 

NUCHANG2 

YES...  ONE  REQUIRING  A CHANGE  JOB. 

0330 

REF 

75 

LAST 

11  1 1 

01,3213 

3 4752 

0 

CAF 

TWO 

NEW  JOB  ALREADY  IN  POSITION  FOR 

03  31 

REF 

1 

01,3214 

1 32  22 

JL 

TCF 

NIUDI  RECT 

EXECUTION. 

03317 

REF 

5 

LAST 

1111 

01,3215 

3 1361 

1 

CA 

SELFRET 

0331  8 

REF 

203 

| AS  T 

11  o ft 

Olf  3216 

- 54  001 

1 

TS 

_L 

PUT  RETURN  ADDRESS  IN  L. 

0332 

REF 

i 

01,3217 

3 3221 

0 

CAF 

SELF  BANK 

0333 

REF 

5 

LAST 

604 

01, 3220 

1 5166 

1 

TCF 

SUPDXCHZ  + 1 

AND  DISPATCH  JOB. 

03338 

REF 

6 

LAST 

1111 

1361 

EB ANK= 

SELFRET 

0334 

REF 

3 

LAST 

306 

01, 3221 

66102 

1 

SELFBANK 

BBCON 

SELFCHK 

0335 

01, 3222 

0 00  06 

1 

NUDIRECT 

EXTEND 

TURN  THE  GREEN  LIGHT  BACK  ON. 

0336 

REF 

32 

LAST 

11  1 1 

01, 3223 

05  Oil 

1 

WOR 

D SA  L MOUT 

0337 

REF 

42 

LAST 

110  7 

01, 3224 

52  165 

1 

DXCH 

LOC 

JOBS  STARTED  IN  THIS  FASHION  MUST  BE 

03372 

REF 

6 

LAST 

11  1 1 

01, 3225 

1 5165 

1 

TCF 

SUPDXCHZ 

03378  5165  BLOCK  2 IN  FIXED-FIXED  SO  OTHERS  MAY  USE. 


03379 

REF 

2 

LAST 

1098  TO 

1101  : 

59  5 9* 

COUNT  * $*/EXEC 

P03^791 

SUPDXCHZ 

- ROUTINE  TO 

TRANSFER 

: TO  Sll°  FP.RANK  » 

R033792 

CALLING 

SEQUENCE 

A033793 

TCF  SUPDXCHZ 

WITH  2CADR  OF  DESIRED  LOCATION  IN  A + L. 

0338 

REF 

2C4 

LAST 

LI  1 1 

5 165 

56  001  0 

SUPDXCHZ  XCH  L 

BASIC. 

03381 

5 166 

0 0006  1 

+1  EXTFND 

03382 

REF 

18 

LAST 

110  5 

5167 

01  007  1 

WRITE  SUPERBNK 

03383 

RFF 

31 

LAST 

1105 

5 170 

54  006  0 

TS  BBANK 

03384 

REF 

205 

LAST 

11  1 1 

5 171 

0 0001  0 

TC  L 

0339 


5 172 


77677  l NFG100 


OCT 


776  77 
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1 

R0001 
R0003 
R 000-5 
R00072 

R00073 

R000799 

R0008 

R0009 

R0011 

R0013 


R0014 

R0016 

R0017 
R0018 
R 00  1 9 
R0020 
R0021 
R0022 
R0023 


R0024 
R 002  5 
R0026 
R0027 
R0028 
R0029 

R0030 
R0031 
R0032 
R0033 
R 0034 
R0035 

R0036 

R 0037 
R 0039 
R0040 
R0041 
R0042 

R 0042  1 
R00422 
R00423 
R 00 42 5 


WAITL  1ST 

PROGRAM  DESCRIPTION 
MOD  NO  - 2 

MOD  3Y  - MILLER  (DTMAX  INCREASED  TO  162.5  SEC) 

MOD  3 BY  KERNAN  (INHINT  INSERTED  AT  WAITLIST)  2/28/68 

MGC  4BY  KERNAN  < TWIDDLE  IN  54)  3/28/6B  SKIPPER  REV  13. 


USER'S  PAGE  NO.  1 EO  S3 

DATE  - 10  OCTOBER  1966 
LOG  SECTION  - WAITLIST 
ASSEMBLY  SUNBURST  PFV  5 

SKIPPER  REV  4 


FUNCTIONAL  DESCRIPTION- 

PART  OF  A SECTION  OF  PROGR AM S ,-WA I TL I ST , TASKOVER,  T 3RUPT , USED  TO  CALL  A PROGRAM,  (CALLED  A TASK), 
WHICH  IS  TO  BEGIN  IN  C { A ) CE NT  I SEC ONDS . WAITLIST  UPDATFS  TIME3,  LST1  AND  LST2.  THE  MEANING  OF  THESE  LISTS 
FOLLOW. 

CITIME3)  = 16384  -IT1-T)  CEN T I SECOND S , ( T=  PPE  SENT  TIME,  Tl-TIME  FOR  TASK  1 ) 


C<  LST1 ) = — ( T 2— T 1 ) +1 
C ( LST 1 +1)  = - ( T 3 - T 2 ) + 1 
CILST1  +2)  = - ( T4-T3 ) + 1 


C1LST1  +6)  = - ( T 8-T  7 ) + 1 
C ( LST 1 +7)  = - ( T9-TB ) + 1 


CILST2)  = 2CADR  OF  TASK  1 
C ( LST 2 +2)  = 2C ADR  OF  TASK2 


CILST2  +14)=  2 C ADR  OF  TASKS 
C ( LST 2 +16)=  2CADP  OF  TASKP 

WARN  I NGS— 


1)  1 <=  CIA)  <=  16250D  (1  CENT  I SECOND  TO  162.5  SEC) 

2)  9 TASKS  MAXIMUM 

3)  TASKS  CALLED  UNDER  INTERRUPT  INHIBITED 

4)  TASKS  END  BY  TC  TASKOVER 

CALLING  SECUENCE- 


L— 1 

_L 

CA 

TC 

DELTAT  (TIME  IN 

HAITI  1ST 

CENT ISECONDS  TO  TASK  START) 

L + l 

2CADR 

DESIRED  TASK 

L+2 

(MINOR 

OF  2CADR) 

L+3 

RELINT 

(RETURNS 

HERE) 

TWIDDLE- 


TWIDDLE  IS  FOR  USE  WHEN  THE  TASK  BEING  SET  UP  IS  IN  THE  SAME  EBANK  AND  FBANK  AS  THE  USER.  IN 
SUCH  CASES,  IT  IMPROVES  UPON  WAITLIST  BY  ELIMINATING  THE  NEED  FOR  THE  BBCON  HALF  OF  THE  2CADR , 
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L WAITLIST  USER'S  PAGE  NO.  2 EO  S3 


R0042  7 SAVING  A WORD.  TWIDDLE  IS  LIKE  WAITLIST  IN  EVERY  RESPECT  EXCEPT  CALLING  SEQUENCE,  TO  W I T- 

R 0043  L— i — GA—  DEL  TAT 

R00431  L TC  TWIDDLF 

R00432  L+l  ADRES  DESIRED  TASK 

R 0043 3 L + 2 RE-LINT  (RETURNS  HERE) 

R00439  NORMAL  EXIT  MODES- 


R0044  AT  L+3  OF  CALLING  SEQUENCE 

R0045  ALARM  OR  ABORT  EXIT  MODES— 


R0046  TC  ABORT 

R0047  OCT  1203-  (WAITLIST  OVERFLOW  - TOO  MANY  TASKS) 


R0048 

ERASABLE  INITIALIZATION  REQUIRED- 

R0049 

ACCOMPLISHED  BY  FRESH  ST ART , — L ST2 , . . . , 

LST2 

+ 16  =ENDT  ASK 

R0050 

LST  1 , . . . , 

L ST  1 

+7  =NEG1 / 2 

R0051  OUTPUT — 


R0052  LST 1 AND -L-S-T 2 UPDATED  W I TH  NEW  TASK  AND  ASSOC!  A TED  T4ME. 

R 00  53  DEBRIS- 


R0054 

R0055 

R0056 

CENTRALS-  A , Q»L 

OTHER  - WAITEXIT,  W A I T ADR , WAITTEMP,  WAITBANK 

DETAILED  ANALYSIS  OF  TIMING- 

R0057 
R 0059 

CONTROL  WILL  NOT  BE  RETURNED  TO  THE  SPECIFIED  ADDRESS  ( 2CADR)  IN  EXACTLY  DELTA  T 

THE  APPROXIMATE  TIME  MAY  BE  CALCULATED  AS  FOLLOWS 

CENT  ISECONDS. 

R0060 

R0061 

R0062 

LET  TO  = THE  TIME  OF  THE  TC  WAITLIST 

LET  TS  = TO  +147U  + COUNTER  INCREMENTS  (SET  UP  TIME) 
LET  X = TS  .- ( 10  OT  S) / 100  (VARIANCE  FROM  COUNTERS) 

R0063 
R0064 
R 0 0 6 6 

LET  Y = LENGTH  OF  TIME  OF  INHIBIT  INTERRUPT  AFTER  T3RUPT 

LET  Z = LENGTH  OF  TIME  TO  PROCESS  TASKS  WHICH  APE  DUE  THIS  T3RUPT  BUT  DISPATCHED  EARLIER. 
( Z = 0,  USUALLY  ) 

R0067 
R0068 
R 006  9 

LET  DELTD  = THE  ACTUAL  TIME  TAKEN  TO  GIVE  CONTROL  TO  2C ADR 
THEN  DELTD  = TS+DELTA  T -X  +Y  +Z  +1.05MS*  +COUNT  ERS* 

T HE  TIME  TAKEN  .BY  .WAITLIST  ITSELF  AND  THE  COUNTER.  TICKING  DURING  THIS  WAIT!  1ST  TIME. 

R0071 

R0072 

IN  SHORT,  THE  ACTUAL  TIME  TO  RETURN  CONTROL  TO  A 2C A OR  IS  AUGMENTED  BY  THE  TIME  TO 

SET  UP  THE  TASKtS 

R 00 74  INTERRUPT,  ALL  COUNTERS  TICKING,  THE  T3RUPT  PROCESSING  TIME,  THE  WAITLIST  PROCESSING  TIME  AND  THE  POSSIBILITY 

R0076  OF  OTHER  TASKS  INHIBITING  THE  INTERRUPT. 


0077 


5173 


BLOCK  02 
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L WAITLIST 


USER'S  PAGE  NO.  3 EO  S3 


0078 

REF 

14 

LAST 

23  5 

E3, 1 400 

EBANK=  LST1 

TASK  LISTS  IN  SWITCHED  E BANK. 

COUNT  * $ $/ W AI T 

0079 

00795 

REF 

1 

5 173 

0 0004 

0 

TWI DOLE 

INHINT 

0080 

REF 

2C6 

LAST 

11  1 1 

5 174 

54  001 

1 

TS  L 

SAVE  DELAY  TIME  IN  L 

008-1 

REF 

28 

LAST 

10  75 

5175 

3 4733 

_1 

CA  POSMAX 

0082 

REF 

3 C 7 

LAST 

1110 

5 176 

26  002 

1 

ADS  Q 

CREATING  OVERFLOW  AND  Q-l  IN  Q 

0083 

REF 

32 

LAST 

111  1 

5 177 

3 0006 

1 

CA  BBANK 

00832 

5200 

0 0006 

1 

EXTEND 

00834 

REF 

19 

LAST 

111  1 

5201 

04  007 

1 

ROR  SUPERBNK 

0084 

REF 

2C7 

LAST 

1114 

5202 

56  001 

0 

XCH  L 

00849 

5203 

0 0004 

0 

WAITLIST 

INHINT 

0085 

REF 

308 

LAST 

1114 

5204 

56  002 

0 

XCH  0 

SAVE  DELTA  T IN  Q AND  RETURN  IN 

0086 

REF 

1 _ 

5 205 

54  061 

_L 

TS  W AI T EX  IT 

WAIT  EX  IT . 

0087 

5206 

0 0006 

1 

EXTEND 

0088 

REF 

2 

LAST 

1114 

5207 

5 0061 

0 

INDEX  W AI  T EX  I T 

IF  TWIDDLING,  THE  TS  SKIPS  TO  HERE 

0089 

5 210 

3 0 001 

0 

DC  A 0 

PICK  UP  2C  ADR  OF  TASK. 

0090 

REF 

1 

5211 

54  063 

0 

-1 

TS  WAIT  ADR 

BBC ON  WILL  REMAIN  IN  L 

0091 

REF 

1 

5212 

3 5220 

1 

DLY2 

CAF  WAIT  BE 

ENTRY  FROM  FIXDFLAY  AND  VARDELAY. 

0092 

REF 

3-3 

LAST 

11 1 4 

5-213 

56  006 

1 

XCH  BBANK 

0093 

REF 

1 

5214 

1 3226 

0 

TC  F WAIT2 

R0Q94  RETURN- TO  CALUER  AFTER  TASK  INSERTION: 


0095 

REF 

3 

LAST 

11  1 4 

5215 

52  062 

1 

LVWTLIST 

DXCH 

WA1TEXIT 

0096 

REF 

76 

LAST 

1111 

5216 

6 4752 

0 

AD 

TWD 

0097 

5217 

52  006 

0 

DTCB 

0099 

-REF 

15 

L AST 

111  4 

E 3, 1 400 

EB ANK= 

L ST  I 

0100 

REF 

2 

LAST 

1114 

5220 

02063 

0 

WAITB6 

BBCON 

WAIT  2 

R0101  -RETURN  TO  CALLER  *2— AFTER  WAITING  DT  SPECIFIED  AT  CALLER  +1. 


0102 

0103 

REF 

309 

LAST 

11 1 4 

5221 

5222 

50  002 
3 0000 

0 

1 

FIXDELAY  INDEX 
CAF 

Q 

0 

BOTH  ROUTINES  MUST  BE  CALLED  UNDER 
WAITLIST  CONTROL  AND  TERMINATE  THE  TASK 

0104 

REF 

310 

LAST 

11 1 4 

5223 

24  002 

0 

INCR 

0 

IN  WHICH  THEY  WERE  CALLED. 

R0105  RETURN  TO  CALLER  +1  AFTER  WAITING  THE  DT  AS  ARRIVING  IN  A. 
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04  007 
54  016 
0 0006- 

1 

1 

1 

_i_ 

T3RUPT 

EXTEND 

ROR 

TS 

EXTEND 

SUPERBNK 

BANKRUPT 

0270 

REF 

6 

LAST 

986 

01,3410 

22  012 

1 

QXCH 

QRUPT 

n ? 7 1 

Dtp 

A 

L AS  T 

109  0 

01, 341 1 

3 4734 

0 

T 3RUPT2 

CAF 

MFr;i  /? 

V C t l 

0272 

RFF 

o 

34 

LAST 

1122 

01, 3412 

5 7 ' 4 07 

0 

XCH 

L ST  1 

+ 7 

0273 

REF 

35 

LAST 

1123 

01,3413 

57' 406 

1 

XCH 

L ST  1 

+ 6 

0274 

REF 

36 

LAST 

112  3 

01,3414 

5 7 ' 405 

1 

XCH 

LST1 

+ 5 . 

0275 

REF 

37 

LAST 

1123 

01,3415 

57*404 

0 

XCH 

LST1 

+4 

0276 

REF 

38 

LAST 

1123 

01,3416 

5 7 ' 403 

1 

XCH 

LST  1 

+3 

0277 

4XEF 

39 

LAST 

112  3 

01,3417 

57' 402 

0 

XCtL 

LSJ1 

+2 

0278 

REF 

40 

LAST 

1123 

01, 3420 

57 ' 401 

0 

XCH 

L ST  1 

+ 1 

0279 

REF 

41 

LAST 

112  3 

01,3421 

57’ 400 

1 

XCH 

LST1 

0280 

REF 

29 

LAST 

1114 

01, 3 422 

6 47  3 3 

1 

AO 

POSMAX 

0281 

REF 

4 

LAST 

1117 

01, 3423 

26  026 

1 

ADS 

T I ME  3 

0282 

REF 

4 

LAST 

574 

01,3424 

54  734 

0 

TS 

RUPT AGN 

0283 

REF 

219 

LAST 

11 1 1 

01,3425 

4 4755 

0 

CS- 

ZERP 

0284 

REF 

5 

LAST 

1123 

01, 3426 

54  734 

0 

TS 

RUPT AGN 

02  85 

0 1,  3427 

0 0006 

-1 

EX  TEND 

0286 

REF 

4 

LAST 

11  1 8 

01,  3430 

4 5237 

0 

DCS 

ENDT ASK 

02  87 

REF 

33 

LAST 

1118 

01,3431 

5 3 ' 43 1 

1 

DXCH 

LST2 

+ 16D 

02  88 

REF 

34 

LAST 

112  3 

01,3432 

5 3 ' 427 

0 

DXCH 

LST  2 

+ 14D 

0289 

REF 

35 

LAST 

112  3 

01,3433 

53*425 

1 

DXCH 

L ST  2 

+ 12D 

0290 

REF 

36 

LAST 

112  3 

01,3434 

53*423 

1 

DXCH 

LST2 

+ 10D 

0291 

REF 

37 

LAST 

112  3 

01,3435 

53*421 

0 

DXCH 

LST2^ 

+ 8T 

0292 

REF 

38 

LAST 

112  3 

01,3436 

53*417 

0 

DXCH 

LST2 

+ 6 

0293 

REF 

39 

LAST 

112  3 

01,3437 

53*415 

1 

DXCH 

L ST2 

+4 

0294 

REF 

40 

LAST 

112  3 

01, 3440 

53*413 

1 

DXCH 

LST2 

+2 

0295 

REF 

41 

LAST 

1123 

01,3441 

5 3' 4 1 1 

0 

DXCH 

L ST  2 

02  96 

REF 

2 09 

L AS  T 

3X3  /| 

7)1 , 344? 

56  001 

o 

XC  H 

L 

0297 

01, 3443 

0 0006 

l 

EXTEND 

0298 

REF 

22 

LAST 

1123 

01,3444 

01  007 

1 

WRITE 

SUPEPBNK 

0299 

REF 

210 

LAST 

1123 

01, 3445 

56  001 

0 

XC  H _ 

J_ 

0300 

01,3446 

52  006 

0 

DTCB 
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READ  CURRENT  SUPERBANK  VALUE  AND 
SAVE  WITH  E AND  F BANK  VALUES. 


DISPATCH  WAITLIST  TASK. 


1.  MOVE  UP  L ST  1 CONTENTS,  ENTERING 
A VALUE  OF  1/2  +1  AT  THE  BOTTOM 
FOR  T6-T5,  CORRESPONDING  TO  THF 
INTFRVAL  81.91  SEC  FOR  ENDTASK . 

2.  SET  T3  = 1.0  - T2  -T  USING  LIST  1. 
SO  T 3 WONT  TICK  DURING  UPDATE. 


SETS  RUPT  AGN  TO  +1  ON  OVERFLOW. 
DISPATCH  TASK. 


SET  SUPERBANK  FROM  B8C0N  OF  2C ADR 
RESTORE  TO  L FOR  DXCH  Z. 


GAP  : 


ASSEMBLE  REVISION  069  I3F  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L WAITLIST 


P0301 

RETURN,  AFTER  EXECUTION  OF 

T3 

OVERFLOW 

TASK: 

S ?61 

Bi  nr k 

0 2 

0302 

0303 

REF 

2 

LAST 

1114  TO 

1117: 

54 

54* 

COUNT  * 

$$/W  AIT 

0304 

REF 

6 

LAST 

1123 

5261 

10  734 

0 

TASKOVER 

CCS 

RUPTAGN 

030  ^ 

RFF 

2 

LAST 

11 1 4 

5262 

3 5220 

1 

CAF 

WAITBB 

0306 

REF 

35 

LAST 

111  4 

5263 

54  0C6 

0 

TS 

13  BA  N K 

0307 

REF 

1 

5 264 

1 3411 

1 

TCF 

T3R  UPT2 

0308 

REF 

7 

LAST 

1123 

5265 

3 0016 

0 

CA 

BANK  RUPT 

0309 

5266 

0 0006 

1 

EXTEND 

0310 

REF 

23 

LAST 

1123 

5267 

01  007 

1 

WRITE 

SUPE  PBNK 

0311 

5 270 

0 0006 

1 

RESUME 

EXTEND 

0312 

REF 

7 

LAST 

112  3 

5271 

22  012 

1 

QXCH 

QRUPT 

0313 

REF 

8 

LAST 

1124 

5272 

3 0016 

0 

NOORSM 

CA 

BANK  PUPT 

0314 

REF 

36 

LAST 

1124 

5273 

56  006 

1 

XCH 

BBANK 

n^i  s 

REF 

1 1 

1 AST 

16  9 

5274 

52  Oil 

0 

NOQ-BRSM 

DXCH 

APUPT 

03155 

5275 

0 0003 

1 

RELINT 

0316 

5276 

5 0017 

1 

RESUME 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1124 
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IF  +1  RFTURN  TO  T3RUPT,  IF  -0  RESUME. 
DISPATCH  NEXT  TASK  IF  IT  WAS  DUE. 


RESTORE  SUPFRBANK  BEFORE  RESUME  IS  DONE 
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P0317 

LCNGCALL 

R0319 

R0320 

PROGRAM  WRITTEN  BY  W.H.  VANDEVER  LOG  SECTION  WAITLIST 

MOD  BY-  R.  MELANSCN  TO  ADD  DOCUMENTATION  ASSEMBLY  SUNDISK  REV.  100 

R0321 
R0322 
R 0 324 

FUNCTIONAL  DESCRIPTION- 

LCNGC ALL  IS  CALLED  WITH  THE  DELTA  TIME  ARRIVING  IN  A, L SCALED  AS  TIMF2,TTME1  WITH  THE  2CADR  OF 
IMMEDIATELY  FOLLOWING  THF  TC  LONGCALL . FOR  EXAMPLE,  IT  MICHT  BE  DONE  AS  FOLLOWS  WHERE  TI^ELOC 

THE  TASK 
IS  THE  NAME  OF 

R0326 

R0328 

A DP  REGISTER  CONTAINING  A DELTA  TIME  AND  WHERE  TASKTODO  IS  THF  NAME  OF  THE  LOCATION  AT  WHICH 
START 

LONGCALL  IS  TO 

R0329 
AO  330 
A033 1 

CALLING  SECUENCE- 

EXTEND 

DC  A TIMELOC 

A0332 

A0333 

TC  LONGCALL 

2CADR  TASKTODO 

R0334 
R0335 
R03  36 

NORMAL  EXIT  MODE- 

11.  TC  WAITLIST 

2).  DTCB  (TO  L+3  OF  CALLING  ROUTINE  1ST  PASS  THRU  LONGCYCL) 

R0337  3).  DTCB  (TO  TASKOVER  ON  SUBSEQUENT  PASSES  THRU  LONGCYCL) 


P0338  ALARM  OR  ABORT  EX  IT  -MODE— 
R0339  NONE 


R0340 

R0341 

R0342 

R0343 

R0344 


OUTPUT- 

LONGTIME  AND  LCNGTIME+1  = DELTA  TIME 
LQNGEXIT  AND  LONGEXIT+1  = RETURN  2C ADR 
LONGCADR  AND  L CNGCADR+ 1 = TASK  2C ADR 
A = SINGLE  PRECISION  TIME  FOR  WAITLIST 


R 0345  ERASABLE  INITIALIZATION- 

R0346  A = MOST  SIGNIFICANT  PART  OF  DELTA  TIME 

R0347  L = LEAST  SIGNIFICANT  PART  OF  DELTA  TIME 

R0348  Q = ADDRESS  OF  2C  ADR  TASK  VALUE 


R0349  DEER  I S- 
R0350  A,Q»L  - 


R0351  LONGCADR  AND  LCNGCADR+1 
R0352  LONGEXIT  AND  LCNGEXIT+1 
R0353  LONGTIME  AND  LCNGTIME+1 


P03  54 

THE  FOLLOWING  IS 

TO  BE  IN 

FIXED-FIXED  AND  UNSWITCHED  ERRASIBLE  *** 

0355 

0356 

0357 

REF 

REE 

42  LAST  1123 
1 

5277 
E 3 , 1400 
5277 

BLOCK  02 
EB ANK=  L ST  1 

53* 154  1 LONGCALL  DXCH  LONGTIME 

OBTAIN 

THE 

DELTA  TIME 

0358 

5 300 

0 0006  1 EXTEND 

OBTAIN 

THE 

2C  ADR 

ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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GAP  : 


WAI TL  1ST 


USER*  S PAGE  NO.  15 


E 3 S3 


0359 

REF 

321 

LAST 

1122 

5301 

5 0002 

0 

NDX 

Q 

0360 

5 302 

3 0001 

0 

DC  A 

0 

l 

5303 

53*150 

0 

DXCH 

LONCCADP 

5 304 

0 0006 

1 

EXTEND 

NOW  GO  TO  THE  APPROPRIATE  SWITCHED  BANK 

03^.3 

REF 

1 

5 305- 

3 5310 

0 

DC  A 

LGCL 2CDP 

FOR  THE  R F ST  OF  LONGCALL 

0364 

5306 

52  006 

0 

DTCB 

REF 

43 

EAST 

1 1 ? s 

FT, 1 400 

EBANK= 

L ST  1 

0366 

REF 

i 

5307 

03447 

0 

LGCL2CDR 

2CADP 

LNGC  ALL2 

0366 

REF 

i 

5310 

02063 

0 

R0367 

*** 

THE 

FOLLOWING  MAY  BE  IN  A 

SWITCHED 

BANK,  INCLUDING 

ITS  ERASABLE 

0 1 , T 447 

RANK 

0 1 

0369 

REF 

2 

LAST 

1117  TO 

1124: 

145  145* 

COUNT* 

$ $ / W A I T 

0370 

REF 

1 

01,3447 

2 3 ' 43  5 

1 

LNGCALL2 

LXCH 

L 3NGEX IT 

+ 1 

SAVE  THE  CORRECT  BB  FOR  RETURN 

0 371 

REF 

77 

LAST 

1114 

01,3450 

3 47  52 

0 

CA 

TWO 

OBTAIN  THE  RFTURN  ADDRESS 

0372 

REF 

322 

LAST 

1126 

01, 3451 

26  002 

1 

ADS 

0 

0373 

REF 

2 

LAST 

1126 

01,3452 

55*434 

1 

TS 

LONGFXIT 

03731 

REF 

2 

LAST 

112  5 

01, 3453 

3 1153 

1 

CA 

LONGTIME 

CHECK  FOR  LEGITIMATE  DELTA-TIME 

03732 

REF 

380 

LAST 

1120 

01,3454 

10  000 

0 

CCS 

A 

03733 

REF 

1 

01,3455 

1 34  63 

1 

TCP 

LONGCYCL 

HI-ORDER  OK  — > ALL  IS  OK. 

03734 

01, 3456 

1 3460 

1 

TCF 

+ 2 

HI-ORDER  ZERO  — > CHECK  LO-ORDEP. 

03735 

REF 

1 

01,3457 

1 3516 

1 

TCF 

LCNGPOOH 

HI-ORDER  NEG.  — > NEG.  DT 

03736 

REF 

3 

LAST 

112  6 

01 , 3460 

3 1154 

0 

+ 2 

CA 

LONGTIME 

+ 1 

CHECK  LO-ORDEP  FOR  ZFRO  OR  NEGATIVE. 

03737 

01,3461 

0 0006 

1 

EXTEND 

03738 

REF 

2 

LAST 

112  6 

01,3462 

6 3516 

0 

BZMF 

LCNGPOOH 

BAD  DELTA-TIME.  ABORT 

R0374 

***  WAITLIST 

TASK  LONGCYCL  *** 

0375 

01,3463 

0 0006 

1 

LONGCYCL 

EXTEND 

CAN  WE  SUCCESFULLY  TAKE  ABOUT  1.25 

0376 

REF 

1 

01,  3464 

4 3475 

0 

DCS 

DPB I T 14 

MINUTES  OFF  OF  LONGTIME 

0377 

REF 

4 

LAST 

1126 

01 , 3465 

21' 154 

1 

DAS 

LONGTIME 

0378 

REF 

5_ 

LAST 

1126 

01 ,3466 

1 1 ' 1 54 

1 

CCS 

LONG  TIME- 

+ 1 

THE  REASON IBG  BEHIND  THIS  PART  IS 

0379 

REF 

i 

01, 3467 

1 3506 

0 

TCF 

MUCHTIME 

INVOLVED,  TAKING  INTO  ACCOUNT  THAT  THE 

A0380 

A0381 

A0382 

A0383 


WORDS  MAY  NOT  BE  SIGNED  CORRECTED  (DP 
BASIC  INSTRUCTIONS 

DO  NOT  SIGN  CORRECT)  AND  THAT  WE  SURTRAC 
TED  BIT14  (1  OVER  HALF  THE  POS.  VALUE 


03  8 5 

0386 

0387 

REF  - 

..-6. 

LAST 

11  2 6 

01,3470 
0 1,  3471 
01, 3472 

13  471 
1 3472 
11*153 

1 

1 

0 

NOOP 

TCF 

CCS 

+ 1 

L ONG  T IMF 

r\Lr  D LOUN  1 1 L.  I'M  O lU’JLL  Of  LJ  r\  V 1 

C AN : T GET  HERE  ********** 

0388 

REF 

2 

LAST 

1126 

01, 3473 

1 3506 

0 

TCF 

MUCHTIME 

0389 

01,3474 

00000 

1 0PBIT14 

OCT 

00000 

0390 

0 1 , 3475 

20000 

0 

OCT 

20000 

A0391 

LONGCALL 

GAP 


ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


L WAITLIST 


0392 

REF 

73 

LAST 

1094 

01, 3476 

3 4736 

1 

LASTTIME  CA 

B 11  1 4 

0393 

REF 

7 

LAST 

112  6 

01,3477 

27*154 

1 

ADS 

LONGTIME 

0395 

REF 

35 

LAST 

89  2 

01, 3 500 

0 5203 

0 

TC 

WAITLIST 

0396 

REF 

44 

LAST 

1126 

E 3 , 1400 

EB ANK= 

L ST  1 

0397 

REF 

1 

01, 3501 

03513 

0 

2C  ADR 

GETC ADR 

03-97 R£E 1—  0 1,3  502  020  63  C 


0399 

0400 

REF 

REF 

1 

3 

LAST 

112  6 

01,  3 50  3 
01,3-504 

3 3515 
53' 435 

0 

0 

LONGRTRN 

CA 

DXCH 

TSKOVCDP 
LDNGEXI T 

0401 

01, 3505 

52  006 

0 

DTCB 

REF 

74 

LAST 

112  7 

0 1 .3  506 

3 4736 

4 

MUCHT I ME 

CA 

B I T 1 4 

Unv  4 

0404 

REF 

36 

LAST 

1127 

Ui  I J J UV 

01,3507 

0 5203 

0 

TC 

WAI TL  1ST 

0405 

REF 

45 

LAST 

1127 

E3 , 1400 

EBANK= 

L ST  1 

0406 

REF- 

2 

LAST 

1126 

01,3510 

03463 

-0 

2CADR 

LONGCYCL 

0406 

01,3511 

02063 

0 

0408  REF  1-  — 01, 3512 1 3503  0 TCP  LONGRTRN 


R 0409 
0410 

REF 

2— 

***  WAITLIST  TASK  GETCADR 
1 AST  11  26  01.3513  53'  1 50 

*** 

0 

GETCADR 

DXCH 

LONG  CADP 

0411 

01,3514 

52  006 

0 

DTCB 

O4J-2 

n r p 

£^9 

LAST 

1116 

0 1,351 5 

052  6 1 

TSKfWf  DR 

r.FMAnD  TACk  fll/FD 

0413 

REF 

4 

LAST 

112  7 

01, 3516 

53 ' 43  5 

0 

1 Jl\  U V G L/P 

LONGPOOH 

DXCH 

LONGEX  IT 

0414 

01,3517 

1 3521 

0 

TC  F 

+ 2 

0415 

RFF 

6- 

LAST 

1121 

01,3  520 

52  062 

1 

WAI T POOH 

DXCH 

W A I T EX  IT 

0416 

REF 

2 

LAST 

1074 

01,3521 

0 5720 

1 

+ 2 

TC 

POODOOl 

0417 

01,3522 

01204 

0 

OCT 

01204 
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+ 1 


USER'S  PAGE  NO.  16  E3  S3 

GET  BACK  THE  CORRECT  DELTA  TFOR  WAITLIST 


THE  ENTRY  TO  OUR  LONGCADR 


SET  IT  UP  SO  THAT  ONLY  THE  FIRST  EXIT  IS 
TO  THE  CALLER  OF  LONGCALL 
THE  REST  ARE  TO  TASKOVER 


WE  HAVE  OVER  OUR  ABOUT  1.25  MINUTES 
SO  SFT  UP  FOR  ANOTHER  CYCLE  THROUGH  HERE 


NOW  EXIT  PROPERLY 

GET  THE  LONGCALL  THAT  WE  WISHED  TO  START 
AND  TRANSFER  CONTROL  TO  IT 


GAP 
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L LATITUDE  LONGITUDE  SUBROUTINES 

R0001  SUBROUTINE  TO  CONVERT  RAD  VECTOR  AT  G I VFN  TIME  TO  L AT, LONG  AND  ALT 

R0002  CALLING  SEQUENCE 

R0003  L— 1 CALL 

R 0004  L LAT-LONG 

R 0005  SUBROUTINES  USED 

R0006  R-TO-RP,ARCTAN,S  ET GAMMA, SETRE 

R 0007  ERASABLE  IMT.  REQ. 

R0008  A XO ,-AYO ,AZO ,T  EPHEM  (SET  AT  LAUNCH  TIME) 

R0009  ALPHAV  = POSITION  VECTOR  MFTERS  B-29 
R0010  M PA  C — TIME  (CSECS  B-28) 

R0011  ERAOFLAG  =1,  TO  COMPUTE  EARTH  RADIUS,  =0  FOR  FIXED  EARTH  RADIUS 
R0012  LUNAFLAG=0  FOR  EARTH, 1 FOR  MOON 

R0013  OUTPUT 

R0014  LATITUDE  IN  LAT  (REVS.  B-0  ) 

R0015  LONGITUDE  IN  LONG  (REVS.  8-0) 

R0016  ALTITUDE  IN  ALT  METERS  3-29 


0017 

0018 
0019 

REF 

1 

30, 3746 
13,2000 
13,2351 

BANK 

SETLOC 

BANK 

30 

LATLONG 

0020 

REF 

1 

COUNT  * 

iS/LT-LG 

002 1 

REF- 

& 

LAST 

930 

F4, 1 431 

EB ANK= 

ALPHAV 

0022 

13,2351 

40?  20 

0 

LAT-LONG 

STQ 

S ET  P D 

0023 

REF 

2 

LAST 

159 

13,2  352 

03672 

1 

INCORPFX 

0024 

13,2  353- 

00001 

0 

nn 

0025 

13,2354 

24007 

0 

STOVL 

6D 

0026 

REF 

7 

LAST 

112  8 

13,2355 

02032 

1 

ALPHAV 

0027 

13,2356 

51406 

1 

PUSH 

ABVA  L 

0028 

REF 

2 

LAST 

130 

13,2357 

16070 

1 

STODL 

ALPH AM 

0029 

REF 

6 

LAST 

1096 

13,2360 

22275 

1 

ZEROVEC 

00  30 

13,2361 

71414 

J3 

BOFF 

COS 

0031 

REF 

5 

LAST 

930 

13,2362 

01743 

0 

LUNAFLAG 

0032 

REF 

1 

13,2  363 

26364 

1 

CALLRTRP 

0033 

J.3,  2364 

77624 

1 

CALLRTRP 

CALL 

0034 

RFF 

4 

LAST 

974 

13,  2365 

51531 

1 

R-TO-RP 

0035 

13,2366 

77656 

1 

UNIT 

00  36 

REF 

-8- 

LAST 

1128 

13,2367 

36032 

0 

STCALL 

ALPHAV 

0037 

REF 

1 

13,2370 

26550 

0 

SETGAMMA 

0038 

13,2371 

77624 

1 

CALL 

0039 

RFF 

— 1 

13,2372 

26560 

0 

SETR  F 

0040 

13,2373 

63545 

0 

DLOAD 

nso 

0041 

REF 

9 

LAST 

1128 

13,2374 

02032 

1 

ALPHAV 

0042 

13,2375 

63525 

0 

PDDL 

DSQ 

0043 

RFF 

10 

LAST 

112  8 

13,2376 

02034 

1 

ALPHAV  +2 

0044 

13, 2377 

75415 

0 

DAO 

SORT 

USER'S  PAGE  NO.  1 EO  S3 


SAVE  TIME  IN  6-7D  FOR  R-TO-RP 
0-5n=  R FOR  R-TO-RP 

ABS.  VALUE  OF  R FOR  ALT  FORMULA  BELOW 
SET  MPAC=0  FOR  EARTH , NON- ZERO  FOR  MOON 
USE  COS(O)  TO  GET  NON-ZERO  IN  MPAC 
0 = E ARTH, 1 = MOON 


RP  VECTOR  CONVEPTED  FROM  R B-29 
UNIT  RP  B-l 

U2=  1/2  SINL  FOR  SETRE  SU  BR  BELOW 
SFT  GAMMA=B2/A2  FOR  F A RT H,  = 1 FOR  MOON 
SCALED  B-l 
CALC  RE  METERS  B-29 


GAP: 

L 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

006? 
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LATITUDE  LONGITUDE  SUBROUTINES  USER'S  PAGE  NO.  2 F4  S3 


13, 2400 

764  05 

I 

DMP 

SLIP 

REF 

1 

13, 2401 

00011 

1 

G AMR  P 

REF 

7 

l AST 

59  1 

1 3 , 2 40  2 

14021 

1 

STODL 

COSTH 

COS ( L AT ) B-l 

REF 

ii 

LAST 

112  8 

13,2403 

02036 

0 

ALPHAV  +4 

REF 

7 

LAST 

59  1 

13,2404 

34023 

l 

STCALL 

SINTH 

S INI LAT ) B-l 

RFF 

4 

- LAST 

59  1 

13, 2405 

26510 

1 

ARCT AN 

REF 

5 

LAST 

930 

13, 2406 

15121 

1 

STODL 

LAT 

LAT  BO 

REF 

12 

LAST 

1129 

13,2407 

02032 

1 

ALPHAV 

RFF 

8 

LAST 

1129 

13,2410 

140  21 

1 

STODL 

COSTH 

COS (LONG)  B-l 

REF 

13 

LAST 

1129 

13,241  1 

02034 

1 

ALPHAV  +2 

REF 

8 

LAST 

112  9 

13,2412 

34023 

1 

STCALL 

SINTH 

S INI  LONG)  3-1 

REF 

5 - 

LAST 

112  9 

13,2413 

26510 

1 

APCT AN 

REF 

11 

LAST 

9 3 C 

13, 2414 

15123 

0 

STODL 

LONG 

LONG.  REVS  B— 0 IN  RANGE  -1/2  TO  1/2 

REF 

3 

LAST 

1128 

13,2415 

02070 

1 

ALPHAM 

13, 2416 

77625 

0 

DSU 

ALT=  R-RE  METERS  B-29 

RFF 

2 

LAST 

159 

13, 2417 

03671 

1 

EP  ADM 

RFF 

5 

LAST 

930 

13, 2420 

35125 

1 

STCALL 

ALT 

EXIT  WITH  ALT  METERS  B-29 

REF 

3- 

LAST 

1128 

13,2421 

03672 

1 

1NC0RPEX 

GAP 
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L LATITUDE  LONGITUDE  SUBROUTINES 

P0063  SUBROUTINE  TO  CONVERT  LAT,LONG,ALT  AT  GIVEN  TIME  TO  RADIUS  VECTOR 
R0064  CALLING  SEQUENCE 

R 0065  L-l  CALL 

R0066  L L ALOTORV 

R0067  SUBROUTINES  USED 


R 0068 
R0069 

SETGAMM A, SETRE, RP-TO-R 
ERASABLE  INIT.  REQ. 

R0070 
R 0 0 7 1 

AXO, AYO, AZO,TEPHEM  SET  AT  LAUNCH  TIME 
LAT — LATITUDE  IREVS  BO) 

R0072 
R0073 
R 00  7 4 

LONG — LCNGITUDE  (REVS  BO) 
ALT — ALTITUDE  (METERS)  3-29 
MPAC — TIME  ( C SECS  B-23) 

R 00  75 
R0076 

ERACFLAG  =1  TO  COMPUTE  EARTH  RADIUS,  =0  FOR  FIXED  EARTH  RADIUS 
LUNAFLAG=0  FOR  EARTH, 1 FOR  MOON 

R0077  OUTPUT 


R0078 

R-VECTOR 

IN  ALPHAV 

(METERS  B- 

29  ) 

Qf)79 

1 % ? 4?? 

40?  20 

o 

LALOTORV  STQ 

SETPD 

0080 

REF 

4 

LAST 

1129 

13,2423 

03672 

1 

I NCOPPFX 

0081 

13, 2424 

00001 

0 

OD 

0082 

13 , 2425 

34007 

1 

STCALL 

6D 

0083 

REF 

2 

LAST 

1128 

13,  2426 

26550 

0 

SET  GAMMA 

0084 

13,2427 

73545 

1 

DLOAD 

S IN 

0085 

REF 

6 

LAST 

112  9 

13, 2 43  0 

01121 

1 

LAT 

0086 

13,2431 

65275 

1 

DMPR 

PDDL 

0087 

REF 

2 

LAST 

1129 

13,2432 

00011 

1 

GAMP  P 

0088 

RFF 

7 

LAST 

1130 

13,2433 

01121 

1 

LAT 

0089 

13, 2434 

65346 

0 

COS 

PDDL 

0090 

REF 

12 

LAST 

1129 

13,2435 

01123 

0 

LONG 

00-91 

13, 2436 

57356 

0 

SIN 

DMPR 

0092 

13,  2437 

71525 

0 

PDDL 

COS 

0093 

REF 

8 

LAST 

113  0 

13,2440 

01121 

1 

LAT 

00-94 

13,  2 441 

71535 

0 

PDDL 

COS 

0095 

REF 

13 

LAST 

1130 

13,2442 

01123 

0 

LONG 

0096 

13, 2443 

55475 

1 

DMPR 

VDEF 

0097 

13, 2444 

41456 

0 

UNIT 

PUSH 

0098 

REF 

14 

LAST 

1129 

13,2445 

36032 

0 

STCALL 

ALPHAV 

0099 

REF 

2 

LAST 

1128 

13, 2446 

26560 

0 

SETR  F 

0100 

13,2447 

43145 

0 

DLOAD 

BOFF 

Old 

REF 

7 

LAST 

112  8 

13,2450 

22275 

1 

ZEROVEC 

0102 

REF 

6 

LAST 

112  8 

13,2451 

01743 

0 

L UN A FLAG 

0103 

REF 

J 

13,2452 

26454 

0 

CALLPPRT 

0104 

13,2453 

77746 

1 

COS 

0105 

13, 2454 

77624 

1 

C ALLRPRT  CALL 

0106 

REF 

6 

LAST 

973 

13,2455 

51504 

1 

RP-TO-R 

0107 

REF 

15 

LAST 

113  0 

13,2456 

16032 

1 

STOOL 

ALPHAV 

0108 

REF 

3 

LAST 

1129 

13,2457 

03671 

1 

ERADM 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1130 


USER*  S PAGE  NO.  3 F4  S3 


LAT, LONG, ALT  TO  R VECTOR 


6-70=  TIME  FOR  RP-TO-R 

GAMM A=B2/A2  FOR  EARTH, 1 FOR  MOON  B-l 

COS ( LONG ) COS ( LAT ) IN  MPAC 
UNIT  RP=  SINILONG)COS(LAT)  2-3D 

PD  2 GAMMA*SIN (L AT)  0-10 

0-10=  GAMHA*SIN(LATI  B-2 
PD  4 2-3D=C0S (L AT  I B-l  T FMPOR  A R I L Y 

PD  2 

PD  4 2— 3D=SIN(L0NG)CnS(LAT)  B-2 

PD  6 4— 5D  = C0S  1 LAT ) 9-1  TEMPORARILY 

PD  4 MP AC=  COS (LONG) COS (LAT ) B-2 

0 — 5 D=  UNIT  RP  FOR  RP-TO-R  SUBR. 

ALPHAV  +4=  SINL  FOR  SFTRE  SURR. 

RE  METERS  9-29 

SET  MP AC=0  FOR  EART H , NON- ZERO  FOR  MOON 


USE  COS(O)  TO  GET  NON-ZFRO  IN  MPAC 


EXIT  WITH  UNIT  R VECTOR  IN  MPAC 


GAP  : 

ASSEMBLE  REV  IS  ION  069 

OF  AGO  PRO! 

3RAM  LI 

JM I NARY 

BY  NASA  2021112-011 

19:02  NOV.  25,1968  SKIPPER  .070  PAGE  1131 

L 

LATITUDE 

LONGITUDE 

SUBROUT INES 

USER'S  PAGE  NO.  4 E4  S3 

0109 

13,2460 

742  15 

1 

DAD  VXSC 

(RE  + ALT) (UNIT  R)  METERS  B-30 

0110 

RFF  6 

LAST 

1129 

13,2461 

01125 

0 

ALT 

m 1 1 

RFF  16 

LAST 

113  0 

13,2462 

020  32 

1 

ALPHAV 

0112 

13,  2463 

77772 

0 

VS  L 1 

R METERS  B-29 

0113 

REF  17 

LAST 

113  1 

13, 2464 

36032 

0 

STCALL  ALPHAV 

EXIT  WITH  R IN  METERS  B-29 

0114 

QCP  R 

1 ACT 

1 1 in 

1 1 . 

0867? 

1 

INCORPEX 

R01 15 

SUBROUTINE  TO 

COMPUTE  EARTH  RADIUS 

R01 17 

1/2  SIN 

LAT 

IN  ALPHAV  + 4 

R0118 

OUTPUT 

R 0 119  EARTH  RADIUS  IN  ER ADM  AND  MPAC  (METERS  8-29) 


0120 

13, 2466 

63545 

0 

GETER AD 

DLOAD 

DSO 

0121 

REF  18  LAST  1131 

13,2467 

02036 

0 

ALPHAV 

+ 4 

SIN**2(L> 

0122 

L 3 , 2 470 

44352 

0 

SL1 

BDSU 

0123 

REF  1 

13,2471 

222  73 

1 

DPI  / 2 

C0S**2(L) 

0124 

13, 2472 

44275 

1 

DM  PR 

BDSU 

0125 

REF  1 

13, 2473 

26507 

1 

EE 

0126 

REF  2 LAST  1131 

13,2474 

22273 

1 

DP1/2 

0127 

13,2475 

75465 

1 

BDDV 

SORT 

0128 

RFF  1 

13,2476 

26503 

0 

B2XSC 

0129 

13,2477 

77622 

1 

SR4R 

0130 

REF  4 LAST  1130 

13, 2500 

03671 

1 

STORE 

ERADM 

0131 

13,2501 

77616 

0 

RVQ 

R0131  1 

TEE  FOLLOWING  CONSTANTS  WERE 

COMPUTED  l 

WITH  A=6378166,B= 

6356784 

METERS 

R01312 

B2  X SC=  B**2  SCALED 

B— 5 1 

R01313 

B2/A2=  B**2/A**2  SCALED  B- 1 

R01314 

EE= ( 1-B**2/A**2)  SCALED  B-0 

0132 

13,2502 

00446 

1 

B2XSC 

2DEC 

.01 79450689 

B**2  SCALED  B-51 

0132 

13,2503 

00305 

l 

0133 

REF  8 L-AS  T 109  6 

11,227? 

DPI/? 

— 

X UN  I T 

0134 

13,2504 

17711 

0 

B2/  A2 

2DEC 

.9933064  884  B-l 

GAMMA=  B**2/A**2  B-l 

0134 

13,2505 

05254 

1 

0135 

13,  2 50  6 

00155 

0 

FE 

2DEC 

6.6935116  E— 3 

( 1-B**2/ A**2 ) B-0 

0135 

13,2507 

25250 

1 
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L LATITUDE  LONGITUDE  SUBROUTINES  USER'S  PAGE  NO.  5 E4  S3 

P0137  ARCTAN  SUBROUTINE 


R0138  CALLING  SEQUENCE 

R0139  SIN  THETA  IN-SI  NTH  B-l 
R0140  COS  THETA  IN  COSTH  B-l 
R01 41  CALL  ARCTAN 


R0142 

OUTPUT 

+ 1/2 

R0143 

ARCTAN 

THETA  IN 

MP AC  AND  THETA  B-0 

IN 

RANGE  -1/2  TO 

0144 

13, 2510 

77600 

1 

ARCTAN 

BOV 

0145 

REF 

1 

13,2  51  1 

26512 

0 

CLROVFLW 

0146 

13,2512 

63545 

0 

CLROVFLW 

DLOAD 

D SO 

0147 

REF 

9 

LAST  1129 

13,2513 

00023 

0 

SI  NTH 

0 1 48 

13,2514 

63525 

0 

PDDL 

DSQ 

0149 

REF 

9 

LAST  1129 

13,2515 

000  21 

1 

COST  H 

0150 

13, 2516 

77615 

0 

DAD 

0151 

13,2517 

754  54 

0 

BZE 

SORT 

0152 

REF 

1 

13, 2520 

26536 

0 

ARCTANXX 

AT AN  = 0/0  SFT  THET A=0 

0153 

13, 2521 

40065 

0 

3DDV 

BDV 

0154 

REF 

10 

LAST  1132 

13,2522 

00023 

0 

S INTH 

0155 

REF 

1 

13, 2523 

26543 

1 

ATAN=90 

0156 

13,  2 524 

67542 

0 

SRI 

ASIN 

0157 

RFF 

4 

LAST  943 

13,2525 

00025 

0 

STORE 

THETA 

0158 

13, 2526 

50125 

1 

PDDL 

BMN 

0159 

REF 

10 

LAST  1132 

13,2527 

00021 

1 

COSTH 

016-0- 

REF 

1 

13,2530 

265  32 

1 

NE3C  OS 

0161 

13,2531 

43545 

1 

DLOAD 

RVQ 

0162 

13,  2532 

57545 

1 

NEGCOS 

DLOAD 

DCOM  P 

— 0163 

13,2533 

43244 

1 

BPL 

DAD 

0164 

RFF 

1 

13, 2534 

26540 

1 

NEGOUT 

0165 

REF 

3 

LAST  1131 

13,2535 

22273 

1 

DPI/2 

— 0166 

REl 

5 

LAST  1132 

13, 2536 

00025 

0 

ARCTANXX 

STORE 

THFT  A 

0167 

13,2537 

77616 

0 

RVQ 

0168 

13, 2540 

52025 

1 

NEGOUT 

nsu 

GOTO 

0169 

REF 

4 

LAST  1132 

13,2541 

22273 

1 

DPI  /2 

0170 

REF 

2 

LAST  1132 

13,2542 

26536 

0 

ARCTANXX 

0171 

13, 2543 

75345 

1 

ATAN=90 

DLOAD 

S IGN 

0172 

REF 

1 

13, 2544 

10760 

1 

LODP  1/4 

0173 

REF 

11 

LAST  1132 

13,2545 

00023 

0 

S INTH 

0174 

REF_ 

6 

LAST  1132 

13, 2 546 

00025 

0 

STORE 

THETA 

0175 

13,2  547 

77616 

0 

RVQ 

0176 

REF 

— 2 — 

LAST  935 

11,2274 

-2DZER0 

- 

DPZERO  

> 
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LATITUOE  LONGITUDE  SUBROUTINES  USER'S  PAGE  NO. 


P0177 

R0178 

SUBROUTINE  TO  SET  GAMMA  FOR 

THE  LAT- 

LONG 

1 AND  LALOTOR V 

SUBROUTINES 

R0179 

R0180 

GAMMA 

GAMMA 

= B**2/A**2  FOR  EARTH 
= 1 FOR  MOON  ( B— 1 ) 

( B — 1 ) 

R0181 

R0182 

R0183 

CALLING 

L 

1 + 1 

SEQUENCE 

CALL 

S ET GAMMA 

R01  84 
R0185 

INPUT 

1 UNA  F L AG=  0 FOR  EARTH.  = 1 FOR 

MOON 

R 0 1 86 
R01  87 

OUTPUT 

GAMMA 

IN  GAMRP  ( B—  1 ) 

0188 
a]  P 9 

RFF  1 

13.2550 

13. 2551 

43145 
265  05 

0 

0 

SFT  GAMMA 

DLOAD 

BOFF 

B2/A2 

BRANCH  FOR  EARTH 
EARTH  GAMMA 

0190 

0191 

0192 

REF  7 

REF  1 

LAST  1130  13,  2552 

13, 2 553 
1 3, 2 554 

01743 

26556 

77735 

0 

0 

0 

SLOAD 

LUNA  FLAG 
SETGMEX 

0193 

0194 

0195 

REF  1 

REF  3 

13, 2555 
LAST  1130  13,2556 

J.3,2557 

22273 
000  11 
77616 

1 

1 

0 

SET  GMEX 

STORE 

RVO 

1 B 1 

GAMP  P 

MOON  GAMMA 

0196 

0010 

GAMRP 

80 
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L 

LATITUDE  LONGITUDE  SUBROUTINES 

USER'S  PAGE  NO. 

7 

E4  S3 

P0197 

R0198 

SETRE  SUBROUTINE  

SUBROUTINE  TO  SET  RE  (EARTH  OR  MOON 

RADIUS) 

R0199 

R0200 

RE=  RM  FOR  MOON 

PE=  RREF  FOR  FIXED  EARTH  RADIUS  OR 

COMPUTED  RF  FOR  FISCHER  ELLIPSOID 

R0201  CALLING  SEQUENCE 

R0202  L CALL 

R0203  L+l  SETRE 


R 02 04  SUBROUTINES  USED 

R0205  GETERAD 

R0206  INPUT 

R0207  ER ADFLAG=C  FOR  FIXED  RE,  1 F CR  COMPUTED  RE 

R0208  ALPHAV  +4=  1/2  S INL  IF  GETERAD  IS  CALLED 

R0209  LLNAFLAG=0  FOR  EARTH, =1  FOR  MOON 


R0210  OUTPUT 


R0211 

ER ADM= 

504RM 

FOR 

MOON  (METERS 

B-2  9) 

R0212 

FR ADM= 

FRAD 

OR  COMPUTFD  RF  FOR  EARTH 

(METERS  B- 

29) 

0213 

13,2560 

71220 

1 

SETRE 

STQ 

DLOAD 

0?  1 4 

REF 

1 

13,2561 

00051 

0 

SETREX 

0215 

REF 

1 

13,2562 

10003 

0 

504PM 

0216 

13,  2563 

71214 

0 

BON 

DLOAD 

BRANCH  FOR 

MOON 

0217 

R EF 

8 

LAST 

11  33 

13,2564 

01703 

1 

LUNAFLAG 

0218 

REF 

i 

13,2565 

26575 

1 

TSTP  LSRM 

0219 

REF 

i 

13,2566 

10001 

1 

ERAD 

0220 

13,2  567 

45014 

0 

BOFF 

CALL 

ERADFLAG=0 

FOR  FIXFQ  RE,1  FOR  COMPUTED 

0221 

REF 

3 

LAST 

930 

13, 2570 

00742 

0 

ERADFLAG 

0222 

REF 

1 

13,2571 

26573 

1 

SFTR  XX 

0223 

RFF 

1 

13,2572 

26466 

1 

3ETE  PAD 

0224 

REF 

5 

LAST 

113  1 

13,2573 

37671 

0 

SETRXX 

STCALL 

ERADM 

EXIT  WITH 

RE  OR  RM  METERS  B-29 

0225 

REF 

2 

LAST 

1134 

13,2574 

00051 

0 

SFTR  EX 

0226 

13,2575 

77214 

0 

TSTRLSRM 

BON 

Vt  DA  r 

ERADFL  AG=0 

, SET  RO=RLS 

0227 

REF 

4 

LAST 

1134 

13,2576 

00702 

1 

ERADFLAG 

= 1 

RO-=RM 

0228 

REF 

2 

LAST 

1134 

13,2577 

26573 

1 

SETR  XX 

0229 

REF 

11 

LAST 

97  7 

13,2600 

02023 

1 

RLS 

0230 

13,2601 

644  46 

0 

ABVAL 

SR2P 

SCALE  FROM 

B-  27  TO  8-29 

0231 

13,2602 

77650 

1 

GOTO 

0232 

REF 

LAST 

113  4 

13,2603 

26573 

1 

SETR  XX 

0233 

REF 

12 

LAST 

96  8 

0051 

SETREX 

= 

S2 

GAP 


ASSEMBLE  REV  IS [ON  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  2021112-011 


19:02  NOV.  25,1968  SKIPPER  .070  PAGE 


L PLANETARY  INERTIAL  ORIENTATION  USER'S  PAGE  NO. 

P0001  RP-TC-R  SUBROUTINE  

R0002  SUBROUTINE  TO  CONVERT  RP  (VECTOR  IN  PLANETARY  COORDINATE  SY S TEM , E I THER 
R0003  EARTH-FIXED  OR  MOON-FIXED)  TO  R (SAME  VECTOR  IN  THE  BASIC  REF.  SYSTFM) 

R 0004  R=MT (T ) * ( PP+LPXRP ) MT=  M MATRIX  TRANSPOSE 

R0005  CALLING  SEQUENCE 

R0006  L CALL 

R0007  L+l  RP-TO-R 


R 000 8 SUBROUTINES  USED 
R0009  EAR  THMX , MCONMX, E ARTHL 

ROOIO  ITEMS  AVAILABLE  FROM  LAUNCH  DATA 

R001I  504LM=  THE  L I BRATION  VECTOR  L OF  THE  MOON  AT  TIME  T IMSUB L , EXPRESS ED 

R 00 1 2 IN  THE  MOON-FIXED  COORD.  SYSTEM  RADIANS  BO 

R0013  ITEMS  NECESSARY  FOR  SUBR.  USED  (SEE  DESCRIPTION  OF  SUBP.) 

R0014  INPUT 

R0015  MPAC=  0 FOR  E AR T H , NON-Z E RO  FOR  MOON 
R 00 16  0-50=  RP  VECTOR 

R 001 7 6-70=  TIME 


R 00 1 8 OUTPUT 

R0019  NP AC=  R VECTOR  METERS  B-29  FOR  EARTH,  B-27  FOR  MOON 


0020 

0021 

0022 

REF- 

REf 

2 

2 

LAST 

LAST 

68 

6 8 TO 

24,2000 

24,3504 

168  : 

1 8 

18* 

SETLOC 

BANK 

COUNT  * 

PLANTIN 
$ $/l UROT 

0023 

0024 

REF 

L 

24.3504 

24.3505 

46020 

00050 

1 

1 

RP-TO-P 

STQ 

BHI  Z 
RPRE  XIT 

0025 

REF 

1 

24,  3 506 

51521 

0 

PPTTPA 

0026 

24,3507 

77624 

1 

CALL 

COMPUTE  M MATRIX  FOR  MOON 

0027 

REF 

L 

24, 3510 

51561 

1 

MOON  MX 

LP=LM  FOR  MOON  RADIANS  BO 

0028 

24,3511 

77775 

1 

VLOAD 

0029 

REF 

1 

24,3512 

020  13 

1 

504L  M 

0030 

24, 3513 

53235 

0 

RPTORB 

VXV 

VAD 

0031 

REF 

1 

24,3514 

00001 

0 

504R PR 

0032 

REF 

2 

LAST 

11  35 

24,3515 

00001 

0 

50AR  PR 

0033 

24,3516 

52105 

1 

VXM 

GOTO 

0034 

REF 

1 

24,3517 

00025 

0 

MMATFIX 

MPAC=R=MT ( T) * ( RP+LPXRP ) 

0035 

RFE 

1 

24, 3520 

51547 

0 

RPRP  XXXX 

RESET  PUSHLOC  TO  0 BFFORE  EXITING 

0036 

24,3521 

77624 

1 

RPTOR A 

CALL 

FARTH  COMPUTATIONS 

0037 

RFF 

1 

24,3522 

55657 

0 

EARTHMX 

M MATRJX  B— 1 

0038 

24,3523 

77624 

1 

CALL 

0039 

REF 

-1 

24,  3524 

55711 

0 

FARTHL 

L VECTOR  RADIANS  BO 

0040 

24, 3525 

76521 

0 

MXV 

VS  L 1 

LP=M ( T ) *L  RAD  B— 0 

0041 

REF 

2 

LAST 

113  5 

24,3526 

00025 

0 

MMATRIX 

GAP: 
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24,3527  77650  1 GOTO 

REF  i 24,3530  51513  1 RPTORB 


FO  S3 


GAP: 

L 

P0044 

R0045 

R0046 

R0047 

R0048 

R0049 

R0050 

R0051 

R0052 


R0053 
R0054 
R 00  55 
R 00  56 

R0057 

R0058 

R0059 

R0060 


R0061 
P 006  2 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 
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R-TO-RP  SUBROUTINE  

SUBROUTINE  TO  CONVERT  P (VECTOR  IN  REFERENCE  COORD.  SYSTEM)  TO  PP 
(VECTOR  IN  PLANETARY  COORD  SYSTEM)  EITHER  EARTH-FIXED  OR  MOON-FIXED 


P P = M ( T ) * ( P-LXR) 


CALLING  SFCUENCE 
L CALL 

L ♦ 1 R-TO-RP 


SUBROUTINES  USED 
EARTHMX .MCONMX, E ARTHL 

INPUT 

MPAC=  0 FCR  EART H, NON-ZERO  FOR  MOON 
0—  5D  = P VECTOR 
6-70=  TIME 


ITEMS  AVAILABLE  FROM  LAUNCH  DATA 

5 04L  M=  THE  L I BRAT  ION  VECTOR  L OF  THE  MOON  AT  TIME  TIMSUBL, EXPRESSED 
IN  THF  MOON-FIXED  COORD.  SYSTEM  RADIANS  BO 

ITEMS  NECESSARY  FOR  SUBROUTINES  USED  (SEE  DESCRIPTION  OF  SUBR. ) 


OUTPUT 

MP AC=RP  VECTOR  METERS  3-29  FOR  EARTH,  B-27  FOR  MOON 


24,3531  46020  1 R-TO-RP 

REF  2 LAST  1135  24,3532  00050  1 

REF  1 24,3533  51553  0 

24,3534  77624  1 

REF  2 LAST  1135  24,3535  51561  1 

24,  3536  61375  1 

REF  2 1.AST  113  5 24^3537  02013  1 

REF  3 LAST  1135  24,3540  00025  0 

24.3541  77772  0 

24.3542  51235  1 RTORPB 

REF  3 LAST  1135  24,3543  00001  0 

REF  4 LAST  1137  24,3544  00001  0 

24,3545  77721  0 

REF  4 LAST  1137  24,3546  00025  0 

24,3547  40372  0 RPRPXXXX 

24.3550  00001  0 

24.3551  77650  1 

REF  3 LAST  1137  24,3552  00050  1 

24,3553  77624  1 RTORP A 

REF  2 LAST  1135  24,3554  55657  0 

24,3555  77624  1 

R-EF  i LAST  1135  24,3556  55711  0 

24,3557  77650  1 

24,3560  51542  0 


STQ  BHIZ 

RPREXIT 
RTOR PA 

CALL 

MOON  ex 

VLOAD  VXM 

5041 M LP=LM 

MMATPIX 

VS L 1 L=MT(T)*LP  RADIANS  BO 

VXV  3 VS  U 

504RPR 
504R  PR 

MXV  M (T )*{R-LXR)  B-2 

MMATPIX 
VSL1  SETPD 
00 

GOTO 

RPREXIT 

CALL  EARTH  COMPUTATIONS 

EART  HMX 

CALL 

FAF  THL 

GOTO  MPAC=L=(-AX,-AY ,0)  RAn  8-0 


REF 


1 


RTDR PB 


GAP:  ASSEMBLE  REVISION  0 69  OF  AGO  PROGRAM  LUMINARY  BY  NASA  -2-0  2 L 1 1 2-0-11 

L PLANETARY  INERTIAL  ORIENTATION 

P0087  MOONMX  SUBROUTINE  ..... 

R0088  SUBROUTINE  TO  COMPUTE  THE  TRANSFORMATION  MATRIX  M FOR  THE  MOON 

R0089  CALLING  SEQUENCE 

R0090  L CALL 

R0091  L+l  MOONMX 


R0092 

R0093 


SUBROUTINES  USED 
NEWANGLE 


R0094 
R 0095 
R0096 
R0097 
R0098 
R0099 
R0100 


INPUT 

6-70=  TIME 

ITEMS  AVAILABLE  FROM  LAUNCH  DATA 
BSLBO  f EDOT 

T I MSUBC » NODI  0 ,-NODDOT,  FSUBO.FDOT 

ccsi=  cos< i)  e-i 

S I N I = SIMM  B- 1 


R0102 

PLANE  OF  THE 

ECL  IPT  IC 

11  DEGREE 

32. 

1 MINUTES) 

Q 01  0^ 

ni  tout 

R0104 

MM AT R I X=  3X3  M MATRIX  3-1 

( STORED 

IN 

VAC 

AREA) 

01 0^ 

40?  2^ 

o 

MnnwMY 

Sf  TP  D 

0106 

REF 

1 

24,3562 

00051 

0 

EARTHMXX 

0107 

24,3563 

000  11 

1 

8 D 

0108 

24,3564 

77770 

1 

AXT,  1 

0109 

24, 3565 

00005 

1 

5 

0110 

24,3566 

65345 

0 

DLOAD 

PODl 

0111 

REE 

1 

24,3  567 

10017 

0 

Bsueo 

0112 

REF 

1 

24,3570 

10011 

0 

BDOT 

0113 

24,3571 

45006 

0 

PUSH 

CALL 

0114 

RE-F- 

1 

24,3572 

51706 

1 

NEWANGLE 

0115 

24, 3573 

71406 

0 

PUSH 

COS 

0116 

REF 

1 

24, 3574 

14041 

1 

STODL 

COB 

OL17 

24,3575 

77756 

0 

SIN 

0118 

REF 

1 

24,3576 

14043 

0 

STOOL 

SOB 

0119 

REF 

1 

24, 3577 

10015 

1 

FSUBC 

0120 

24,3600 

41525 

0 

PDOL 

PUSH 

0121 

REF 

1 

24,3601 

10007 

1 

FDOT 

0122 

24,3602 

45170 

0 

AXT  ,1 

CALL 

0123 

24, 3603 

00004 

0 

4 

0124 

REF 

2 LAST  1138 

24, 3604 

51706 

1 

NEWANGLE 

0125 

REF 

1 

24, 3605 

14027 

1 

STODL 

AVECTR  +2 

0126 

REF 

1 

24,3606 

10013 

1 

NODI  f 

0127 

24,3607 

41525 

0 

POOL 

PUSH 

0128 

REF 

1 

24,3610 

10005 

0 

NODDOT 

0129 

24,3611 

451  70 

0 

AXT  , 1 

CALL 

0130 

24, 3612 

00005 

1 

5 

0131 

REF 

3 LAST  1138 

24,3613 

51706 

1 

NEWANGLE 
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B REQUIRES  SL  0,  SL  5 IN  NEWANGLE 

PD  100  8-9D=  BSUBO 

10-110=  BOOT 


PD  1 2D 

EXIT  WITH  PD  8D  AND  MPAC=  B REVS  Bn 
PO  10D 

PD  80  COS(B)  8-1 
SIN(B)  8-1 

SETUP  INPUT  FOR  NEWANGLE 
8-  9 D=  F SUB  0 

PD  10D  THEN  120  10-11D=FD0T 


F REQUIRES  SL  1,  SL  6 IN  NEWANGLE 


EXIT  WITH  PD  8 D AND  MPAC=  F REVS  80 
SAVE  F TEMP 

8- 9 D= NOD 10 

PD  10D  THEN  1 2D  10-1 1 C= NnDDOT 
M P A C=  T 

NODE  REQUIRES  SL  0,  SL  5 IN  NEWANGLE 


EXIT  WITH  PD  80  AND  MPAC=  NODI  REVS  BO 


GAP 
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0132 

24, 3614 

71406 

0 

PUSH 

COS 

PD 

10D 

8-9D=  NODI  REVS  BO 

0133 

24, 3615 

77606 

1 

PUSH 

PD 

12D 

10- 1 1 D=  COS ( NOD  I ) B-l 

01  34 

— REF 

2 

LAST 

11  3 Q 

24^  3ft  1 6 

00025 

0 

STORE 

AVECTR 

0135 

24, 3617 

76405 

1 

DMP 

SL1R 

0136 

REF 

2 

LAST 

113  8 

24, 3620 

00041 

1 

COB 

COS  ( NOD  I ) B-l 

013  7 

R FF 

1 

24, 362 1 

14035 

1 

STODL 

BVECTP  +2 

PD 

10D 

20-?5D=AVFCTR=  COB*S I N < NOD  I ) 

0138 

24,3622 

76405 

1 

OMP 

SL  1R 

S OB*S I N ( NODI  ) 

0139 

REF 

2 

LAST 

1138 

24, 3623 

00043 

0 

SOB 

0140 

REF 

2 

LAST 

1139 

24, 3624 

14037 

0 

STODI 

BVFCTR  +4 

PD 

8D 

0 1 A 1 

24, 3625 

41556 

1 

SI  N 

PUSH 

PD 

I OD 

-SIN(NODI)  B-l 

0142 

24, 3626 

77676 

0 

OCOMP 

2 6-31 D=B  VECTR  = COB*COS ( NODI ) 

0143 

REF 

3 

LAST 

1139 

24, 3627 

14033 

1 

STODL 

BVEC  TR 

PD 

8 D 

S08*C0S (NODI ) 

0144 

REF 

3 

LAST 

1139 

24, 3630 

00027 

1 

AVECTP  +2 

MOVE  F 

FROM  TEMP  LOC.  TO  504F 

0145 

REF 

1 

24, 3631 

14007 

0 

STODL 

504  F 

0146 

24,  3632 

76405 

1 

DMP 

SLIP 

0147 

REF 

3 

LAST 

1139 

24,3633 

00041 

1 

COB 

0148 

REF 

4 

LAST 

1139 

24, 3634 

14027 

1 

STODL 

AVECTR  +2 

0149 

REF 

1 

24,3635 

00011 

1 

S I NN  OD I 

8-90=SIN< NODI ) 8-1 

0150 

24, 3636 

764  05 

1 

DMP 

SL1R 

0151 

REF 

3 

LAST 

1139 

24, 3637 

00043 

0 

SOP 

0152 

REF 

5 

LAST 

11  3 9 

24, 3640 

14031 

0 

STODL 

AVFCTR  +4 

0 

0153 

REF 

13 

LAST 

85  1 

24, 3641 

06424 

0 

H I6Z  EPOS 

8- 13D=  CV  ECTR=  -SOB  8-1 

0154 

24, 3642 

57525 

1 

PDDL 

DCOM  P 

PD 

10D 

COB 

0155 

REF 

4 

LAST 

1139 

24, 3643 

00043 

0 

SOB 

0156 

24, 3644 

63325 

0 

PDDL 

PDVL 

PD 

120 

THEN  PD  14D 

0157 

REF 

4 

LAST 

1139 

24, 3645 

00041 

1 

COB 

0158 

RFF 

4 

LAST 

1139 

24,3646 

00033 

1 

BVECTR 

0159 

24,3647 

63361 

0 

VXSC 

PDVL 

PD 

20  D 

BVECTR*SINI  B-2 

0160 

REF 

1 

24,3650 

10003 

0 

S INI 

0161 

REF 

24, 3651 

000  1 1 

1 

CVEC  TP 

0162 

24, 3652 

53361 

0 

VXSC 

VAD 

PD 

14D 

CVECTR*COSI  B-2 

0163 

REF 

1 

24,3653 

10001 

1 

COS  I 

0164 

24, 3654 

77772 

0 

VSL  1 

0165 

REF 

5 

LAST 

113  7 

24, 3655 

24041 

1 

STOVL 

MMATRIX  + 1 2D 

PD 

8 D 

M2=BVECTR*SINH-CVECTR*C0SI  B-l 

0166 

24,3656 

63361 

0 

VXSC 

PDVL 

PD 

14D 

0167 

JL£F 

2 

LAST 

11  39 

24,3657 

10003 

0 

S I N I 

C V EC  TR*  S IN  I R-2 

0168 

REF 

5 

LAST 

113  9 

24, 3660 

00033 

l 

BVFC  TR 

0169 

24,3661 

52361 

1 

VXSC 

VSU 

PD 

8D 

BV  ECTR*COS I B-2 

0170 

RFF 

2 

LAST 

11  39 

24, 3662 

1000  L 

I 

COS  I 

0171 

24, 3663 

65372 

1 

VSL  l 

PDDL 

PD 

14D 

0172 

REF 

2 

LAST 

1139 

24,3664 

00007 

0 

5 04F 

8- 

130=1 

DVECTR=BVFCTR*COSI-CVFCTR*S INI  B-l 

0173 

24,3665 

74346 

0 

cos 

VXSC 

0174 

REF 

1 

24,3666 

00011 

1 

DVFCTR 

0175 

24, 3667 

73525 

1 

PDDL 

SIN 

PD 

20  D 

1 4-1 9D=  DVECTR*COSF  B-2 

0176 

REF 

3 

LAST 

113  9 

24, 3670 

00007 

0 

5 04F 

0177 

24,3671 

52361 

l 

VXSC 

VSU 

PD 

140 

AVECTR*  SINE  B-2 

0178 

REF 

6 

LAST 

11  39 

24, 3672 

00025 

0 

A VEC TR 

0179 

24,3673 

77772 

0 

VSL  1 

0180 

REF 

6 

LAST 

11  39 

24,3674 

14033 

1 

STODL 

MMATRIX  +6 

Ml 

= AVECTR*SINF-DVECTR*COSF  B-l 

0181 

REF 

4 

LAST 

11  39 

24,3675 

00007 

0 

504F 
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0182 

0183 

0 1 84 

REF 

5_ 

LAST  1139 

24.3676 

24.3677 
24,3  700 

74356 

71525 

00007 

1 

0 

_0 

SIN 

PDDL 

VXSC 

COS 

504F 

PD  8D 

PD  14D  8-13D=DVECTR*SINF  B-2 

0185 

24,3701 

53361 

0 

VX  SC 

VAD 

PD  80  AVFCTR*COSF  B-2 

0186 

REF 

7 

LAST  1139 

24, 3702 

00025 

0 

AVECTR 

01  87 

24,  3 703 

575  72 

0 

VS  L 1 

VCOMP 

0188 

REF 

7 

LAST  1139 

24,3704 

340  25 

1 

STCALL 

MM A T P I X 

M0=  -<AVFCTP*COSc+DVECTR*SINF)  B-l 

0189 

REF 

2 

LAST  1138 

24,3705 

00051 

0 

EARTHMXX 

R 01 90 

compute 

X=XO  + ( XDD  T ) ( T +10 ) 

R0191 

8-90 

= XO 

(REVS  B—  0 ) , 

PUSHLOC 

SET  AT  1 2 D 

R0192 

10-  1 1 C=XD0T  (REVS/CSEC)  SCALED  B + 23 

FOR 

WEARTH, B+28  FOR 

NODDOT  AND 

BDOT 

R0193 

_ AND 

B+27  FOR 

FDOT 

R 0 1 94 

X 1 = 

DIFFERENCE  IN  23 

AND  SCAL  ING  OF 

XDOT 

, =0  FOR  WEARTH, 

5 FOP  NODDOT 

AND 

R0195 

BDOT  AND  4 FOR 

F DDT 

R0196 

6-7D 

= T (CSEC  R-2S). 

T I MSUBG= 

(CSEC  3 

-42 

TRIPLE  PREC.) 

0197 

24, 3706 

54345 

l 

NEWANGLE  DLOAD 

SR 

ENTER  PD  1 2D 

01  98 

24,  3 707 

00007 

_0 

6D 

0199 

24,3710 

20617 

0 

14D 

0200 

24,3711 

72371 

1 

TAD 

TLOAD 

CHANGF  MODE  TO  TP 

0201 

REF 

1 

24,3712 

01707 

_Q_ 

TIMS  UBO 

r - 

0202 

REF 

7C7 

LAST  1103 

24,3713 

00155 

0 

MPAC 

0203 

REF 

1 

24, 3714 

14017 

1 

STODL 

TIMSUBM 

T + TO  CSEC  B-42 

0204 

REE 

2 

LAST  1140 

24,3  715 

00020 

_Q 

TIMSUBM  +1 

0205 

24,3716 

77605 

1 

DMP 

PD  10D  MULT  BY  XDOT  IN  10-11P 

0206 

24,  3717 

43257 

0 

SL  * 

DAD 

PD  8D  ADD  Xn  IN  8-9D  AFTER  SHIFTING 

0207 

24,3720 

20206 

_1 

5 , 1 

SUCH  THAT  SCALING  IS  B-0 

0208 

24, 3721 

67206 

1 

PUSH 

SLOAD 

PD  10D  SAVE  PARTIAL  ( X 0+X DPT* T ) IN  8-9D 

0209 

REF 

3 

LAST  1140 

24, 3722 

00017 

1 

TIMSUBM 

0210 

24,3723 

41261 

_J 

SL 

DMP 

0211 

24, 3724 

20212 

1 

9D 

0212 

24,3725 

00013 

0 

10D 

XDOT 

0213 

24, 3 726 

432  5 7 

0 

S L * 

DAD 

PD  RD  SHIFT  SUCH  THAT  THIS  PART  OF  X 

0214 

24, 3727 

20213 

0 

1 0 D , 1 

IS  SCALED  RPVS/CSFC  B-0 

02141 

24,3730 

776  00 

1 

BOV 

TURN  OFF  OVERFLOW  IF  SET  BY  SHIFT 

02142 

24,3  731 

51732 

0 

+ 1 

INSTRUCTION  BFFORF  EXITING 

0215 

24, 3732 

77616 

0 

RVQ 

M P A C = X = XO+(XDOT) (T+TO)  REVS  BO 

GAP: 


L 


P0216 

R0217 

R0218 

R0219 

R0220 

R0221 

R0222 

R0223 
R0224 
R0225 
R 022  6 

R0227 

R0228 


02282 

02284 

02286 

02288 


0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 
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EARTHMX  SUBROUTINE  

SUBROUTINE  TO  COMPUTE  THE  TRANSFORMATION  MATRIX  M FOR  THE  EARTH 


CALLING  SEQUENCE 
L CALL 

L+l  EARTHMX 


SUBROUTINES  USED 
ME- WANGLE 


INPUT 

INPUT  AVAILABLE  FROM  LAUNCH  DATA  AZO  REVS  B-0- 

TEPHEM  CSEC  B-42 

6-70=  TIME  CSEC  B-28 


OUTPUT 


MMATRIX= 

3X3  M MATRIX  3-1  (STORED 

IN  VAC  AREA) 

26,3657 

BANK 

26 

*REF 

i 

26,2000 

SETLOC 

PLANTIN1 

26,3657 

BANK 

♦REF 

i 

COUNT  * 

$ $ / L UROT 

REF 

3 

LAST 

1140 

(CO,  D tD  J t 

26,3660 
26,  3661 
26,3662 

00051 

00011 

77770 

V 

0 

1 

1 

— CMP*  « 11‘IA  J 1 w 

AXT  , 1 

EARTHMXX 
8 D 

26,3663 

00000 

1 

0 

26, 3664 

65345 

0 

DLOAD 

PDDL 

— RE-E— 

I 

26, 3665 

01712 

A 

AZf 

RFF 

1 

26,3666 

10021 

0 

WFAR  TH 

26, 3667 

45006 

0 

PUSH 

CALL 

- R EF— 

4 

-LAST 

11  3 8 

26,3670 

51706 

1 

NEWANGLE 

26,3671 

41401 

1 

SETPD 

PUSH 

26, 3672 

00023 

0 

1 8D 

26,3673 

65346 

0 

COS 

PDDL 

REF 

1 

26,3674 

00023 

0 

5 04  A Z 

26,3675 

65356 

1 

SIN 

PDDL 

- REF 

-14 

LAST 

113  9 

26,  3 676 

06424 

0 

H I 6 Z EROS 

26, 3677 

73525 

1 

POOL 

S I N 

REF 

2 

LAST 

1141 

26,3700 

00023 

0 

504A  Z 

26,3701 

65276 

1 

DCOMP 

PDDL 

RFF 

3 

LAST 

114  1 

26,  3702 

00023 

0 

5 04  A Z 

26,3703 

63346 

0 

cns 

PDVL 

REE_ 

15 

LAST 

1L4  1 

26,3704 

06424 

0 

HI6ZFRPS 

26,3705 

41525 

0 

PDDL 

PUSH 

REF 

5 

LAST 

500 

26,3706 

06422 

0 

HIDE  HALF 

26,3  70  7 

77650 

1 

GOTO 

REF 

4 

LAST 

114  1 

26,  3 710 

00051 

0 

EARTHMXX 

SET  8-9D  = A 7 0 

10-11 D=WEARTH 

FOR  SL  5,  AND  SL  10  IN  NEWANGLE 

LEAVING  PD  SFT  AT  12D  FOR  NEWANGLE 


l 8- 190=504 AZ 


COS(AZ)  SIN(AZ)  0 

20-370=  MMA  TP  I X=  -SIN(AZ)  COSIAZ!  0 8-1 
0 0 1 


GAP: 
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P0255 

R0256 

EARTHL  SUBROUTINE  

SUBROUTINE  TO  COMPUTE  L VECTOR  FOR  EARTH 

R0257 

CALLING  SECUENCE 

R0258 

L CALL 

R0259 

L+l  EARTHL 

- 

R0260  INPUT 

R0261  AXO.AYO  SET  AT  LAUNCH  TIME  WITH  A YO  IMMEDIATELY  FOLLOWING  AXO  IN  COPE 
R0262  OUTPUT 


R0263 

R0264 

R0265 

MPAC= 

-AX 

-AY 

0 

RADIANS  B— 0 

0266 

0267 

0268 

REF 

REF 

1 

1 

26.3711 

26.3712 
-26,3  713 

57545 

01716 

14017 

1 EARTHL 
0 

1 

DLOAD 

STODL 

DCOMP 

AXO 

504LPL 

0269 

REF 

1 

26,3714 

01714 

1 

- AYO 

0270 

RFF 

2 

LAST 

1142 

26,3715 

14021 

1 

STODL 

5 04 L PL  +2 

0271 

REF 

16 

L AST 

114  1 

26, 3716 

06424 

0 

HI6ZFP0S 

0272 

REF 

3 

LAST 

1142 

26,3717 

24023 

0 

STOVL 

504LPL  +4 

- 

0273 

REF 

4 

LAST 

1142 

26, 3720 

00017 

1 

5 04  L PL 

0274 

26,3  721 

776 16 

0 

RVQ 
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P 02  75 

CCN  STANTS 

AND 

ERASABLE  ASSIGNMENTS 

0276 

REF  5 

LAST 

1132 

11,2272 

1B1 

= 

DP1/2 

l 

SCALED  B-l 

02  7Q 

REF  ] 3 

! AST 

108  3 

0050 

RPREXIT 

= 

SI 

R- 

TO-RP  AND  RP-TO-P  SUBR  EXIT 

0280 

REF  13 

LAST 

1134 

0051 

EARTHMXX 

= 

S 2 

EARTHMX , MO ON MX  SUBP.  EXITS 

0281 

0000 

504RPR 

- 

OD 

6 

REGS  R OR  RP  VECTOR 

02  82 

0010 

SINNODI 

= 

8D 

2 

SIN(NODI) 

0283 

0010 

DVECTR 

= 

8D 

6 

D VECTOR  MOON 

0284 

0010 

CVECTR 

= 

8D 

6 

C VFC.TR  MOON 

0?  H9 

0022 

504  AZ 

= 

180 

2 

AZ 

02  86 

0016 

TIMSUBM 

= 

14D 

3 

TIME  SUB  M (MOON)  T+TO 

0287 

0016 

504LPL 

= 

1 4 D 

6 

L OR  LP  VECTOR 

0288 

0024 

AVECTR 

= 

200 

6 

A VECTOR  (MOON) 

02  89 

0032 

BVECTR 

= 

26D 

6 

B VECTOR  (MOON) 

0290 

0024 

MMATRIX 

= 

2 OD 

18 

M MATRIX 

0291 

0040 

COB 

•= 

3 2D 

2 

COS ( B ) B-l 

0292 

0042 

SOB 

= 

340 

2 

S I N ( B ) B-l 

0293 

0006 

504F 

= 

60 

2 

F (MOON) 

PAGE  1143 

EO  S3 


IN  GETAZ 


GAP  : 
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L MEASUREMENT  INCORPORATION  USER'S  PAGE  NO. 

P0001  INC0RP1— PERFORMS  THE  SIX  DIMENSIONAL  STATE  VECTOR  DEVIATION  FOR  POSIT! 

R0002  ON  AND  VELOCITY  OR  THE  NINE  DIMENSIONAL  DEVIATION  OF  POS I T I 0 N, VE LOC I T Y , A 

R0003  ND  RADAR  OR  LANDMARK  BIAS. THE  OUTPUT  OF  THE  BVECTOR  ROUTINE  ALONG  WITH  T 

R 0004  HE  FRROR  TRANSITION  MATRIX(W)  ARE  USED  AS  INPUT  TO  THE  ROUTINE. THE  DEVIA 

R0005  TICN  IS  OBTAINED  BY  COMPUTING  AN  ESTIMATED  TRACKING  MEASUREMENT  FROM  THE 

R0006  CURRENT  STATE  VECTOR  AND  COMPARING  IT  WITH  AN  ACTUAL  TRACKING  MEASUREMEN 

R0007  T AND  APPLYING  A STATISTICAL  WEIGHTING  VECTOR. 

R0008  INPUT 

R0009  DMENFLG  = 0 6 D IMENS ION AL  BVECTOR  1=  9DI MENS  I ONAL 

R0010  W = ERROR  TRANSITION  MATRIX  6X6  OR  9X9 

R0011  VARIANCE  = VARIANCE  (SCALAR) 

R0012  DELTAC  = MEASURED  DE V I AT  I ON ( S C AL AR  ) 

R0013  BVECTOR  = 6 OR  9 DIMENSIONAL  BVECTOR 


EO  S3 


R0014  OUTPUT 

ROO 1 5 DELTAX  = STATE  VECTOR  DEVIATIONS  6 OR  9 Dt  MENS  I ONAl 

ROO 1 6 ZI  = VECTOR  USED  FOR  THE  INCORPORATION  6 OR  9 DIMENSIONAL 

ROO  I 7 GAMMA  = SCALAR 

ROO 1 8 OMEGA  = OMEGA  WEIGHTING  VECTOR  6 OR  9 D I MENT I ONAL 

R0019  CALLING  SEQUENCE 
R0020  L CALL  INC0RP1 

R 002 1 NORMAL  EXIT 


R0022 

L+l  OF  CALLING 

SEOUFNC  E 

002  ^ 

2 7 T B 64  1 

BANK 

37 

0024 

REF  1 

23,2000 

SETLOC 

MFAS  INC 

0025 

23, 2433 

BANK 

0026 

REF  1 

COUNT  * 

$$/ I NCOP 

0027  REF  17  LAST  62C  F5.1400  EBANK=  W 


0028 

0029 

REF 

_ 2 

LAST 

141 

23.2433 

23.2434 

77620 
027  72 

0 

1 

INC0RP1 

STO 

EGRE SS 

0030 

23,  2435 

66370 

0 

AXT  , 1 

SSP 

0031 

23,  2436 

00066 

1 

54D 

0032 

REF 

14 

LAST 

114  3 

2 3,  2 43  7 

00051 

0 

S 1 

0033 

23,  2440 

00022 

l 

1 8 D 

1X1  = 54  Sl=  18 

0034 

23,2441 

66374 

1 

A XT , 2 

SSP 

0035 

23,2442 

00022 

1 

1 8 [ 

0036 

REF 

14 

LAST 

1143 

23, 2443 

00052 

0 

S2 

0037 

23, 2444 

00006 

1 

6 

1X2  = 18  S2=fc 

0038 

23,2445 

63775 

1 

712  3 

VLOAD 

MXV* 

0039 

REF 

22 

LAST 

59  2 

23,  2446 

03523 

0 

R VET  TOR 

BVECTOR  (0) 

0040 

REF 

18 

LAST 

1144 

23, 2447 

02467 

0 

W +540,1 

0041 

JLEF 

2 

LAST 

14  1 

23, 2450 

12665 

1 

STORE 

ZI  +18D.2 

0042 

23,2451 

77775 

1 

VLOAD 

0043 

REF 

23 

LAST 

114  4 

23,2452 

03531 

0 

BVECTOR  +6 

BVECTOR  (1) 

GAP: 

L 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 
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23, 2453 

52717 

1 

MX  V* 

V AD* 

REF 

19 

LAST 

1144 

23,2454 

02555 

0 

H + 1 C8D, 1 

R F F 

3 

LAST 

11  4 A 

23, 2 455 

75  112 

1 

ZI  + 18D , 2 

REF 

4 

LAST 

1145 

23,2456 

12665 

1 

STORE 

ZI  + 18D, 2 

23,2457 

77775 

1 

VLOAD 

RFF 

24 

LAST 

1144 

23,2460 

03537 

0 

BVECTOR  + 1 2D 

BVECTOR  (2) 

23,2461 

52717 

1 

MX  V* 

VAD* 

REF 

20 

LAST 

1145 

23,2462 

02643 

1 

W + 1 62D, 1 

RFF 

5 

LAST 

1145 

23, 2463 

75112 

1 

ZI  +18D.2 

B(0)*W  + B<1  )*<V +54 1+3(2 ) *( W + 108 ) F I RST  PAS 

REF 

6 

LAST 

114  5 

23, 2464 

12665 

1 

STORE 

ZI  +18D.2 

7 I THEN  Z 2 THEN  Z3 

23,  2465 

77700 

0 

T I X , 1 

- REF 

1 

23, 2466 

46467 

0 

I NCORl 

23,2467 

43104 

0 

INC0R1 

T I X , 2 

BEN 

REF 

1 

23,2470 

46445 

0 

Z 1 2 3 

LOOP  FOR  Z1,Z2,Z3 

REF 

3 

LAST 

594 

23,2471 

02706 

1 

DMENFLG 

REF 

1 

23, 2472 

46476 

0 

I NC0R1A 

23,  2473 

77775 

1 

VLOAD 

REF 

18 

LAST 

919 

23,2474 

06424 

0 

7 FRCVECS 

REF 

7 

LAST 

1145 

23,2475 

02657 

1 

STORF 

ZI  +12D 

23,2476 

77201 

1 

INC0R1A 

SFTPD 

VLOAD 

23,2477 

00001 

0 

0 

REF 

8 

LAST 

1145 

23,2500 

02643 

1 

Z I 

23,  2 501 

47036 

1 

VSQ 

RTB 

REF 

6— 

LAST 

59  3 

23,2502 

21537 

0 

TPMODE 

23, 2503 

47515 

0 

PD  VL 

VSQ 

REF 

9 

LAST 

1145 

23,  2504 

02651 

1 

Z I +6 

— . 

23, 2505 

762  34 

0 

RTB 

TAD 

REF 

7 

LAST 

1145 

23,2506 

21537 

0 

TPMODE 

23,  2507 

475  15 

0 

PDVL 

VSO 

REE 

10 

LAST 

1145 

23, 2510 

02657 

1 

ZI  +12D 

23,2511 

762  34 

0 

RTB 

TAD 

REF 

8 

LAST 

1145 

23,2512 

21537 

0 

T PMOOE 

23,2513 

77171 

0 

TAD 

A X T , 2 

REF 

11 

LAST 

593 

23,  2 514 

02707 

0 

VAR  I ANCF 

23,2515 

00000 

1 

0 

REF 

2 

LAST 

14  1 

23,2  516 

02665 

0 

STORE 

TRI  PA 

Z I *2  + Z 2*  2 + Z 3*2  + VARIANCF 

23,  2517 

40151 

0 

TLOAD 

BOV 

REF 

12 

LAST 

114  5 

23,2  520 

02707 

0 

VAR  I ANCF 

CLEAR  OVFIND 

23,2521 

46522 

0 

+ 1 

REF 

1 

23,2522 

02670 

1 

STORE 

TFMP VAR 

TEMP  STORAGF  FOR  VARIANCE 

23,  2 523 

77654 

0 

8ZE 

REF 

1 

23,2  524 

465  33 

0 

I NC0R1C 

23, 2525 

40112 

1 

INCORIB 

SL  2 

BOV 

REF 

2 

LAST 

1145 

23,  2 526 

46533 

0 

I NC0R1C 

REF 

2 

LAST 

114  5 

23,2527 

02670 

1 

STORE 

TEMP  VAP 

23, 2530 

52  1 14 

1 

I NCR , 2 

GOTO 

23,2531 

00001 

0 

DEC 

1 

REF 

_J 

23,2532 

46525 

1 

I NC0P1B 

23,2533 

61551 

1 

INC0R1C 

TLOAD 

ROUND 

REF 

3 

LAST 

114  5 

23,2534 

02665 

0 

TRI  PA 

GAP 
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00^4 

23,  2535 

75405 

1 

DMP 

SORT 

0095 

REF 

3 

LAST  1145 

23,  2 536 

02670 

1 

TEMP  VAR 

0096 

23,  2 537 

76257 

0 

SL  * 

TAD 

0097 

23,2540 

57576 

l 

0,2 

0098 

REF 

4 

LAST  1145 

23,2541 

02665 

0 

TP  I PA 

23,2542 

63101 

1 

NORM 

I NCR  ,2 

0100 

REF 

18 

LAST  101 1 

23,2543 

00050 

1 

X2 

0101 

23,2544 

77775 

1 

DEC 

-2 

0 1 02 

23,2545 

77134 

1 

SX  A , 2 

A XT , 2 

0103 

REF 

2 

LAST  130 

23,2546 

02103 

1 

NORM  GAM 

NORMALIZATION  COUNT  -2  FOR  GAMMA 

0104 

23,2547 

00242 

0 

1 62  D 

0105 

23,2550 

40265 

1 

BDDV 

SETPD 

0106 

REF 

6 

LAST  919 

23, 2551 

06414 

0 

DPI /4TH 

0107 

23,2552 

00001 

0 

0 

0108 

REF 

2 

LAST  160 

23, 2553 

034  76 

1 

STORF 

GAMMA 

0109 

23, 2554 

60351 

0 

TLOAD 

NORM 

0110 

REF 

5 

LAST  1146 

23,2555 

02665 

0 

TRIPA 

0111 

REF 

30 

LAST  108  3 

23, 2556 

00047 

1 

XI 

0112 

23, 2557 

65345 

0 

DLOAD 

PDDL 

PD  0-1  = NORM  (A) 

0113 

REE 

7 C 8 

LAST  1140 

23,2560 

001  55 

0 

MPAC 

0114 

REF 

8 

LAST  593 

23, 2561 

03545 

0 

DELTAO 

0115 

23,2562 

77701 

1 

NORM 

, ummm-  

0116 

REF 

15 

LAST  1144 

23,  2 563 

00051 

0 

SI 

0117 

23,2564 

70460 

1 

XSU,  1 

SRI 

0118 

REF 

16 

LAST  LI  4 6 

23,2565 

000  50 

1 

SI 

0119 

23,2  566 

41471 

0 

DDV 

PUSH 

PO  0-1  = DELTAQ/A 

0 1 1 Q 3 

23,2  567 

77650 

1 

GOTO 

01196 

RFF 

1 

23,2570 

45647 

0 

NEWZCOMP 

0120 

23,2571 

77731 

1 -3 

SSP 

0121 

REF 

15 

EAST  1144 

23, 2 572 

00052 

0 

S2 

0122 

23, 2573 

00066 

1 

54D 

0123 

23, 2574 

60775 

1 INC0R2 

VLOAD 

VXM* 

COMPUTE  OMEGA  1 ,2, 3 

0124 

. REF. 

ii 

LAST  1145 

23,2  57  5 

02643 

1 

Z I 

0125 

REF 

21 

LAST  1145 

23,2576 

75134 

0 

W +1620,2 

0126 

23,2577 

77206 

0 

PUSH 

VLOAD 

01.27 

REF 

12 

LASI-  1146 

23.2600 

02651 

1 

Z 1 +6 

0128 

23,2601 

53303 

1 

VXM* 

VAD 

0129 

REF 

22 

LAST  1146 

23, 2602 

75112 

1 

W +1800,2 

0130  _ 

23,2603 

77206 

0 

PUSH 

VLOAD 

0131 

REF 

13 

LAST  1146 

23, 2604 

02657 

1 

ZI  +12D 

0132 

23,2605 

53303 

1 

VXM* 

VAD 

. 0133 

REF 

23 

LAST  1146 

23,2606 

75070 

1 

W +1980,2 

0134 

23,2607 

61006 

0 

PUSH 

T IX  , 2 

PD  2— 7=0MEGAl , 8-1 3=0ME G A2 , 14- 19=0MEG A 3 

0135 

REF 

1 

23, 2610 

46574 

0 

INC0P2 

0136 

23,2611 

45575 

1 

VLOAD 

STADR 

0137 

REF 

2 

LAST  160 

23, 2612 

74262 

1 

STORE 

OMEGA  + 1 2D 

0138 

23, 2613 

45575 

1 

VLOAD 

STADR 

Q139_  _ 

_REF 

3 

LAST  1146 

23,2614 

742  70 

1 

STORF 

OMEGA  +6 

0140 

23, 2615 

45575 

l 

VLOAD 

STADP 

0141 

REF 

4 

LAST  1146 

23,2616 

74276 

1 

STORE 

OMFG  A 

GAP 
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0142 

23, 2617 

77214 

0 

BON 

VLOAD 

0143 

REF 

4 

LAST 

1145 

23,2620 

02706 

1 

DMENFLG 

01  4 

REF 

1 

23,2621 

46624 

0 

I NCQR2AB 

0145 

REF 

19 

LAST 

1145 

23,2622 

06424 

0 

ZEPCVECS 

0146 

REF 

5 

LAST 

1146 

2 3,2623 

03515 

0 

STORE 

OMEGA  +120 

01  47 

23,2624 

66374 

1 

INC0R2AB 

AX  T , 2 

SSP 

0148 

23, 2625 

00022 

I 

1 8D 

0149 

REF 

16 

LAST 

1146 

23,2626 

00052 

0 

S2 

01  SO 

23,2627 

00006 

1 

6 

0151 

23,2630 

77773 

1 

I NC0R3 

VLOAD* 

0152 

REF 

6 

LAST 

1147 

23,2631 

742  54 

1 

OMFGA  +180,2 

0 1 s ^ 

23,  2632 

53761 

1 

VXSC 

VSL* 

0154 

23,2633 

00001 

0 

0 OELTAQ/A 

0155 

23, 2634 

20201 

0 

0,1 

0 1 

— REE- 

5 

LAST 

59  7 

23,  2635 

12707 

1 

STORE 

DELTAX  +180,2 

0157 

23, 2636 

77304 

0 

T I X , 2 

VLOAD 

0158 

REF 

i 

23,2637 

46630 

0 

I NC0P3 

0159 

REF 

6 

LAST 

11  4 7 

23,2640 

02673 

1 

DELTAX  +6 

0160 

23,2641 

77732 

1 

VSL3 

Olfai 

RFF 

7 

LAST 

1147 

23,2642 

02673 

1 

STORE 

DELTAX  +6 

016t  - 

23, 2643 

77650 

1 

GOTO 

0163 

k£  F 

3 

LAST 

1144 

23,2644 

02772 

1 

EGRE  SS 

G-AP-i 
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L MEASUREMENT  INCORPORATION  USER'S  PAGE  NO.  5 


P0164  INCORP2  -INCORPORATES  THE  COMPUTED  STATE  VECTOR  DEVIATIONS  INTO  THE 
R0I65  ESTIMATED  STATE  VECTOR.  THE  STATE  VECTOR  UPDATED  MAY  BE  FOR  EITHER  THE 

-R-0 1 66 LEM  OR— THE  CSM.DETE  R-H-I  NED  6 Y-FL AGVEHUPFLG-I ZERO  = IFM)  (1  = CSMJ 

R0167  INPUT 

R 0 1 6 8 PERMANENT  STATE  VECTOR  FOR  EITHER  THE  LEM  OR  CSM 

RQ1-69 VEhUPFLG  = UP-DATE  VXH  I CL-E- -0  = LEM  — L=CSM 

R 0 1 70  W = ERROR  TRANSITION  MATRIX 

R0I71  DELTAX  = COMPUTED  STATE  VECTOR  DEVIATIONS 

ROL72 OMENFLG  = SIZ  E OF  M MATRIX  IZFRO  =6X6)  (1=9X9) 

R0173  GAMMA  = SCALAR  FOR  INCORPORATION 

R0174  ZI  = VECTOR  USED  IN  INCORPORATION 

R 0 1 7 S rMFGA  = WEIGHTING  VFCTOR 


F5  S3 


R0176  OUTPUT 

RG177 UP-CAT  ED— PER  MAN  ENT  STA  TE  VF  CXOR — 

R 01 78  CALLING  SECUFNCE 
-R-Q47-9 — — L C A4-L  I NC-OR-P-2 — 

R0180  NORMAL  EXIT 

R0181 — — L-+1  OF  CALLING— SE-QO-FN  C F 

0182  REF  1 23,2000  SETIOC  MEASINC1 

0183  23,2  645 BANK 


0184 

REF 

2 

LA  ST 

1144  TO 

1148  : 

138  138* 

COUNT  * 

$$/ I NCOR 

0185 

23, 2645 

45020 

1 

INC0RP2 

STO 

CALL 

0186 

REF 

4 

LAST 

1147 

23,2  646 

02772 

1 

EGRESS 

01-87 

L ASX 

79  1 _ 

2 3,  264? 

2741Z 

_Q 

I NT  STALL 

0188 

23, 2650 

743  75 

0 

VLOAD 

VXSC 

CALC.  GAMMA  * 

0MEGA1, 2, 3 

0189 

REF 

7 

LAST 

1147 

23,2651 

03501 

0 

OMEGA 

01  90 

- R-EF- 

3 

—LAST 

1146  

23,2652 

034  76 

1 

3 A M M A 

0191 

REF 

2 

LAST 

14  1 

23,2653 

26713 

0 

STOVL 

OMFGAMl 

0192 

REF 

8 

LAST 

1148 

23,2654 

03507 

0 

OMEGA  +6 

- 0193 

7 665 

77761- 

1 

vx  SC 

0194 

REF 

4 

LAST 

1148 

23,2656 

03476 

1 

GAMMA 

0195 

REF 

2 

LAST 

14  1 

23,2657 

26721 

1 

STOVL 

0MFGAM2 

01-96 

— BFE 

9_ 

LAST 

-11A8 

13,-2-660 

03515 

0 

FIMFG  A +1  2D 

0197 

23, 2661 

77761 

1 

VXSC 

0198 

REF 

5 

LAST 

1148 

23,2662 

03476 

1 

GAMMA 

04-9-9- 

RFF- 

2 

LAST 

14  1 

23,_2663 

02727 

1 

STORF 

OMEG AM3 

0200 

23, 2664 

77776 

1 

EXIT 

0201 

REF 

1 

23,2665 

3 3146 

1 

CAF 

54D0 

INITIAL  IX  1 

SETTING  FOR 

W 

MATRIX 

0202- 

— R-EE- 

1 

-23,  2666 

55' 320 

0 

TS 

W I X A 

0203 

REF 

1 

23,2667 

5 5 ' 3 2 1 

1 

TS 

W IXB 

0204 

REF 

220 

LAST 

1123 

23, 2670 

3 4755 

1 

CAF 

ZERO 

0205 

RFF 

1 

-23,-2  671 

55*32? 

1 

TS 

Z I XA 

INITIAL  IX  2 

SETTING  FOR 

Z 

COMPONENT 

0206 

REF 

1 

23,2672 

55' 323 

0 

TS 

Z IXB 

0207 

REF 

105 

LAST 

975 

23,2673 

0 5353 

1 

FAZA 

TC 

PHASCHNG 
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0208 

23,2674 

04022 

0 

OCT  04022 

0209 

REF 

63 

LAST 

978 

23,2675 

0 5504 

0 

TC  UPFLAG 

last 

71  0 

23,  2 676 

00236 

0 

A D R E.S 3-EJLNJ  ELG—  - 

0212 

REF 

2 

LAST 

1148 

23,2677 

3 1321 

0 

FAZA1 

CA  WIXB 

START  FIRST  PHASE  OF  INC0RP2 

0213 

REF 

2 

LAST 

1148 

23,2700 

55*320 

0 

TS  W I X A 

TO  UPDATE  6 OR  9 DIM.  W MATRIX  IN  TEMP 

L 

23  f.2  701 

3 1323 

1 

CA l I X P 

0215 

REF 

2 

LAST 

1148 

23,2702 

55*322 

1 

TS  Z1XA 

0216 

REF 

217 

LAST 

1018 

23, 2 703 

0 6036 

1 

TC  INTPRET 

23  * 2-7  04 

73 1 50 

1 

LXA  , 1 L XA  , 2 

0218 

REF 

3 

LAST 

114  9 

23, 2 705 

01320 

1 

W I X A 

0219 

REF 

3 

LAST 

1149 

23,2706 

01322 

0 

Z IXA 

02  20 

23,2707 

70731 

0 

SSP  DLOAO* 

0221 

REF 

17 

LAST 

1146 

23,2710 

00051 

0 

SI 

0222 

23,2711 

00006 

1 

6 

o?y  3 

tt  F F 

14 

| AST 

1145 

73.  271  2 

75134 

0 

Z I j.2 

02  24 

23, 2713 

60276 

1 

OCOMP  NORM 

CALC  UPPER  3X9  PARTITION  OF  W MATRIX 

0225 

REF 

17 

LAST 

1147 

23,  2 714 

00052 

0 

S 2 

r»22^ 

23.7715 

65361 

-1 

VXSC XCHX  , 2 - 

0227 

REF 

3 

LAST 

1148 

23,2716 

02713 

0 

OMFG AMI 

0228 

REF 

18 

LAST 

1149 

23, 2717 

00051 

0 

S2 

02-2  Q 

23,2  723 

3.7144 

-L 

LXC  , 2 X AH  , 2 

0230 

REF 

19 

LAST 

1146 

23, 2721 

00047 

1 

X 2 

0231 

REF 

3 

LAST 

1146 

23,2722 

02103 

1 

NORM  GAM 

0222 

23  f 2 723 

65  05  7 

0 

VSI#  X f H X , 7 

0233 

23, 2724 

57576 

1 

0,2 

02  34 

REF 

19 

LAST 

1149 

23,2725 

00051 

0 

S 2 

02-2^ 

23,  2 72-6 

776  53 

1 

VAD* 

0236 

REF 

24 

LAST 

1146 

23, 2727 

02467 

0 

W + 5 4D , 1 

0237 

REF 

2 

LAST 

14  1 

23, 2730 

02735 

1 

STORE  HOLDW 

0?2-R 

2 3,  2 731 

575-43 

D 1 PAD*  n rOMP 

CALC  M I DDL  F 3X9  PARTITION  OF.  W MATRIX  . _ 

0239 

REF 

15 

LAST 

1149 

23, 2732 

75134 

0 

z 1 ,2 

0240 

23, 2733 

74301 

0 

NORM  VXSC 

- 0241 

RFF 

20 

1 AST 

1149 

23,2734 

00052 

0 

S2 

0242 

REF 

3 

LAST 

114  8 

23,2735 

02721 

1 

□MEG AM2 

0243 

23,2736 

71124 

0 

XCHX, 2 LXC, 2 

0244 

R FF 

21 

1 AST 

114  9 

73,  2 737 

00Q5JL 

-0 

S 2 

0245 

REF 

20 

LAST 

1149 

23,2740 

00047 

1 

X 2 

0246 

23, 2741 

53674 

1 

XA  D, 2 VSL* 

02  4.7 RFF 

4 

LAST 

-XL  49 

. 23, 2742 

02103 

1 

NCFF  GAM 

0248 

23,2743 

57576 

1 

0,2 

0249 

23, 2744 

52724 

1 

XCHX, 2 VAD* 

02  513 

R-E-F 

22 

4-ASX- 

1149 

23, 7 745 

0005JL 

0 

S3 

0251 

REF 

25 

LAST 

1149 

23,2  746 

02555 

0 

W +108D, l 

0252 

REF 

3 

LAST 

1149 

23,2747 

02743 

0 

STORF  HPLOW  +6 

02-53— 

-23,  2 750 

77614 

1 

BOPF 

0254 

REF 

5 

LAST 

1147 

23,2751 

02746 

0 

DMENFLG 

BRANCH  IF  6 DIMENSIONAL 

0255 

REF 

1 

23, 2 752 

46772 

1 

FAZB 

Q2-56- 

23,2  753 

575A3 

1 

DLOAD*  OCOMP 

CALC  LOWER  3X9  PARTITION  OF  W MATRIX 

0257 

REF 

16 

LAST 

1149 

23,2754 

75134 

0 

ZI  ,2 

0258 

23,2755 

74301 

0 

NORM  VXSC 

SAf^i 

L 

A 5SF  miF  -R  €'V-15-I  0 N-  ^ 6-9-  Q F A-&C  -P-R 
MEASUREMENT  INCORPORATION 

UGRAM  LA 
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_ I'd  : U_c IMU  V . ZO  , lVhH bJSJJZtZtK «U/UL 

USER*  S PAGE  NO.  7 

_ r Mb  li  11  DU  

E5  S3 

0259 

REF 

23 

LAST 

1149 

23,2756 

00052 

0 

S 2 

0260 

RFF 

3 

LAST 

1148 

23,2757 

02727 

1 

□MEG AM3 

2 3,  2 760 

711 2 4 

0 

XCHX.2- 

• XC , 2 _ _ 

0262 

REF 

24 

LAST 

1150 

2 3 » 2 761 

00051 

0 

S2 

026^ 

REF 

21 

LAST 

1149 

23, 2762 

00047 

1 

X 2 

2 3,  2 763 

536  74 

1 

XA-Dj-2 

y.SL* 

0265 

RFF 

5 

LAST 

1149 

23,2764 

02103 

1 

MOP  M CAM 

0266 

23,2765 

57576 

1 

0,2 

n ?hi 

23 ,2  766 

52724 

1 

XCHX, 2 

VAD* 

0268 

REF 

25 

LAST 

11  50 

23,2767 

00051 

0 

S 2 

0269 

REF 

26 

LAST 

1149 

23, 2770 

02643 

1 

W +162D.1 

R pF 

t a<;t 

11  4Q 

23, 2 771 

0-2751 

0 . 

S T ORE 

HOLDW  +12 D 

0271 

23, 2772 

77624 

1 FAZB  CALL 

0272 

REF 

18 

LAST 

59  4 

23, 2773 

11165 

0 

GRP?  PC 

2 3 , 2 774- 

77776 

1 

EXIT 

0274 

REF 

4 

LAST 

1149 

23,2775 

3 1320 

1 FAZ81  CA 

W I X A 

START  2ND  PHASE  OF  INC0RP2  TO 

TRANSFER 

0275 

REF 

1 

23, 2776 

6 3147 

0 

AD 

6 DD 

TEMP  REG  TO  PERM  W MATRIX 

RFF 

3 

J A8T 

1140 

23,2-777 

55  L3-21 

1 

TS 

W IX  B 

0277 

REF 

4 

LAST 

1149 

23,3000 

3 1322 

0 

CA 

ZIXA 

0278 

RFF 

2 

LAST 

234 

23,3001 

6 7745 

0 

AD 

M I N U S2 

- 02  79 

RFF 

3 

1 AST 

1-14  9 

23, 3002 

55*323 

0 

TS 

Z I XB 

0280 

REF 

2 18 

LAST 

1149 

23, 3003 

0 6036 

1 

TC 

I NTPRET 

0281 

23,3004 

66350 

1 

LXA  , 1 

SSP 

Q7  p.  7 

RFF 

5_ 

1 AST  1150 

23,3005 

01  320 

JL_ 

W I X A 

0283 

REF 

18 

LAST 

1149 

23, 3006 

00051 

0 

S 1 

0284 

23,3007 

00006 

1 

6 

0285 

23,3010 

77775 

1 

VL  DAD 

0286 

REF 

5 

LAST 

1150 

23, 301 1 

02735 

1 

HOLDW 

02  87 

REF 

27 

LAST 

1150 

23,3012 

06467 

1 

STORE 

W +54D.1 

n ? 88 

23,30 13 

777  75 

_L 

VLOAD 

0289 

REF 

6 

LAST 

115  0 

23,3014 

02743 

0 

HOLDW  +6 

0290 

REF 

28 

LAST 

11  50 

23, 3015 

06555 

1 

STORE 

W +1080,1 

0291 

23,3015 

77214  0 

BOFF 

VLDA  D 

0292 

REF 

6 

LAST 

1149 

23,3017 

02746 

0 

DMENFLG 

0293 

REF 

1 

23, 3020 

47030 

1 

F AZB  5 

02  94 

REF 

7 

1 AST  115  0 

23, 3021 

07751 

0 

HOLDJi  +1  2D 

0295 

REF 

29 

LAST 

115  0 

23,3022 

06643 

0 

STORE 

W + 1 62D, 1 

0296 

23,3023 

52100 

1 FAZB2  TIX,1 

GOTO 

- 02  97. 

23_,-3-0  24 

470  2_6 

JL 

+ 2 

0298 

REF 

1 

23, 3025 

47036 

1 

FAZC 

DONE  WITH  W MATRIX.  UPDATE  STATE  VECTOR 

0299 

23,3026 

77634 

0 

RTB 

. - . -0300 

REF 

. 1- 

23. 3027 

46673 

1 

FAZA 

0301 

23, 3030 

43335 

0 FAZB5  SLOAD 

DAD 

0302 

REF 

4 

LAST 

1150 

23,3031 

01324 

0 

Z IXB 

0303 

R.EF  _ 

] 

23,3032  - 

07151 

0 

1 2DD 

0304 

23, 3033 

52030 

0 

8H  I Z 

GOTO 

0305 

REF 

2 

LAST 

1150 

23, 3034 

47036 

1 

FAZC 

030-6 

RFF 

_ 1 

23.3035 

47023 

0 

FAZB2 

0307 

23,3036 

77624 

1 FAZC  CALL 

0308 

REF 

19 

LAST 

1150 

23, 3037 

11165 

0 

GRP2  PC 
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0309 

23, 3040 

53375 

0 

VLOAD 

VAD 

START  3RD  PHASE  QP  INC0RP2 

0310 

REF 

4 

LAST 

593 

23,3041 

01701 

0 

X789 

7TH,8TH,9TH, COMPONENT  OF  STATE  VECTOR 

07  7 0 1 

o 

:il  L T A V + L2D  _ 

INCORPORATION  FOR  X789 

0312 

REF 

2 

LAST 

160 

23, 3043 

03470 

1 

STORE 

TX789 

0313 

23, 3044 

47014 

1 

BON 

RTB 

? 3,  8 045 

007-07 

1 

_V£ULj  PFLG 

0315 

REF 

1 

23, 3046 

47136 

0 

DOC  S M 

0316 

REF 

1 

23, 3047 

26770 

0 

MOVE  PLFM 

23,3  050 

77004 

0 

FAZAB 

*301/3 

A XT, _2 

0318 

REF 

2 

LAST 

576 

23,3051 

57725 

0 

TCDANZ IG 

0311 

23,3052 

00000 

1 

0 

n3?n 

23, 3053 

770L4- 

-L- 

BOFF 

A X T , 2 

0321 

REF 

5 

LAST 

725 

23,3054 

04344 

0 

moonthi s 

0322 

23,3055 

47057 

0 

+ 2 

03?  3 

234  3 Q5S  _ 

00002 

0 

_2 

0324 

23,3057 

53775 

1 

VLOAD 

VSR* 

0325 

REF 

9 

LAST 

115  1 

23, 3060 

02665 

0 

DELT  AX 

B 2 7 IF  MOON  ORBIT,  B29  IF  EARTH 

73,3061 

57205 

1 

n -7  ,2 

0327 

23, 3062 

40055 

0 

VAD 

BOV 

0328 

REF 

4 

LAST 

335 

23,3063 

01521 

0 

TDEL TAV 

1 

23, 3X164 

47076 

0 

-EAZAB1 

0330 

REF 

5 

LAST 

115  1 

23, 3065 

25521 

0 

STOVL 

TDEL TAV 

0331 

REF 

10 

LAST 

115  1 

23,3066 

02673 

1 

DELTAX  +6 

B 5 IF  MOON  ORBIT,  B7  IF  EARTH 

n3 3? 

23,  3-067 

53257 

1 

VSR*_ 

VAD 

0333 

23,3070 

57202 

0 

0 -4,2 

0334 

REF 

4 

LAST 

33  5 

23, 3071 

01527 

0 

TNUV 

0336 

23, 3072 

77600 

L 

BOV 

0336 

REF 

i 

23,3073 

47102 

1 

FAZ AB2 

0337 

REF 

5 

LAST 

1151 

23,3074 

35527 

1 

STCALL 

TNUV 

Q338 

RFF 

1 

23,3  075 

47111 

0 

F A Z A B3 

0339 

23, 3076 

53375 

0 

FAZAB1 

VLOAD 

VAD 

0340 

REF 

12 

LAST 

79  1 

23, 3077 

01535 

0 

RCV 

0 341 

REF 

11 

LAST 

115  1 

23, 3 100 

02665 

0 

DELTAX 

0342 

REF 

13 

LAST 

1151 

23,3  101 

01535 

0 

STORE 

RCV 

0343 

23, 3102 

53375 

0 

FAZAB2 

VLOAD 

VAD 

Q344 

REF 

10 

-LAST 

792 

_23, 3 103 

01543 

1 

_V  CV 

0345 

REF 

12 

LAST 

115  1 

23,3104 

02673 

1 

DELTAX  +6 

0346 

REF 

1 1 

LAST 

115  1 

23, 3 105 

01543 

1 

STORE 

V CV 

0347 

23,  3 106 

45134  0 

SXA  ,2 

CALL 

0348 

REF 

3 

LAST 

312 

23, 3 107 

02030 

0 

PBODY 

0349 

REF 

1 

23,3110 

23345 

1 

RECTIFY 

03491 

23, 3111 

77624 

J. 

FAZA83 

CALL 

03492 

REF 

20 

LAST 

1150 

23, 3 112 

11165 

0 

GRP2 PC 

0350 

23,3113 

47014 

1 

BON 

RTB 

03  5-1 

REF 

13 

LAST 

_LL5  1 

23,3114 

00707 

1 

VEHUPFL  G 

0352 

REF 

i 

23,3115 

47141 

0 

DOC  SMI 

0353 

REF 

2 

LAST 

36 

23, 3116 

26747 

1 

MOVEALEM 

-03-54  __ 

23,3117 

776  24 

1 

CALL 

0355 

REF 

1 

23, 3120 

26070 

1 

SVDWN2 

STORE  DOWNLINK  STATE  VECTOR 

0356 

23, 3121 

77624 

1 

FAZAB4 

CALL 
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0357 

0358 

REF 
R f F 

21 

7 

LAST  1151 

t AFT  1 1 S 0 

23. 3122 

23. 3123 

11165 

77214 

0 

0 

0 

80FF 

GRP2  PC 
VLOAD 
OMEN  FIG  _ 

PHASE  CHANGE 

0360 

REF 

i 

23, 3125 

47130 

0 

FAZ AB5 

6 DIMENSIONAL 

0361 

REF 

3 

LAST  1151 

23, 3126 

03470 

1 

TX789 

9 DIMENSIONAL 

77  r 7 1 77 

01  701 

o 

STORE 

X 7 8 9 - 

0363 

23, 3130 

66150 

0 

FAZ  AB5 

LX  A , 1 

SXA  , 1 

03  64 

REF 

5 

LAST  1148 

23, 3131 

02772 

1 

EGRESS 

1 7 

1 AFT  1 0fl6 

23 1 3132 

00052 

0 

QJZS_ET 

0366 

23,  3 133 

77776 

1 

EXIT 

0367 

REF 

48 

LAST  841 

23,3134 

0 4635 

0 

TC 

POST  JUMP 

EXIT 

a« 

RFF 

7 

-LAST  6-21 

_23^3 135 

27427 

0 

CADR  — 

I NTWAKE  _ . . 

0369 

23,3136 

52034 

1 

DOC  SM 

RTB 

GOTO 

0370 

REF 

i 

23,  3137 

26723 

0 

MOVE  PCSM 

0371 

REF 

1 

23, 3140 

47050 

1 

FAZAB 

0372 

23, 3 141 

45034 

1 

DOC  SMI 

RT8 

CALL 

0373 

REF 

i 

23, 3142 

26674 

0 

MCVEACSM 

0^74 

R £E 

2 

LAST  71 7 

23,  3 143 

26  114 

1 

S VDWN1 

STORE  DOWNLINK  STATE  VECTOR 

0375 

23,3144 

77650 

1 

GOTO 

0376 

REF 

i 

23,3145 

47121 

0 

FAZAB4 

03  77 

RFF  - 

20 

LAST  1147 

23,2423 

ZEROO 

= 

ZFPOVECS 

0378 

23, 3 146 

00066 

1 

54DD 

DEC 

54 

0379 

23,3147 

77771 

0 

6DD 

DEC 

-6 

0 7 AO 

2 3 , 3X5  0 

- 00014 

1 

i ?nn 

DEC.  - 

12  . 

0400 

REF 

i 

22,2000 

SETLOC 

RENDEZ 

0401 

22,3647 

BANK 

-Q4TT2 REE I COUNT*  $$/INf.OR 


0403 

22,3647 

51575 

1 

NEWZCQMP  VLOAD 

A B V A L 

04-04 

REF 

17 

LAST 

11-4  9 

22, 3650 

026  43- 

1 

ZI 

0405 

REF 

i 

22, 3651 

24045 

0 

STOVL 

NORMZI 

0406 

REF 

18 

LAST 

11  52 

22, 3652 

02651 

1 

ZI  +6 

0407 

22,3653. 

41446 

1 

ABVAL 

PUSH 

0408 

22, 3654 

50025 

0 

DSU 

BMN 

0409 

REF 

2 

LAST 

1152 

22,3655 

00045 

0 

NORMZI 

- ..0410 

-22,  3 656 

45661 

1 

+ 3 

0411 

22, 3657 

45545 

1 

DLOAD 

STADR 

0412 

REF 

3 

LAST 

1152 

22, 3660 

77732 

1 

STORE 

NORMZI 

0413 

- 22,  3661 

51575 

1 

VLOAD 

ABVAL 

0414 

REF 

19 

LAST 

1152 

22, 3662 

02657 

1 

ZI  +12D 

0415 

22,3663 

45206 

1 

PUSH 

DSU 

0416 

REF 

.4  . 

LASH 

115-2 

22,  3 66A 

00045 

0 

NORMZI 

0417 

22,3665 

71240 

1 

BMN 

DLOAD 

0418 

22, 3666 

45671 

0 

+ 3 

041-9 

22,3667 

77626 

0 

STADR 

0420 

REF 

5 

LAST 

1152 

22,3670 

77732 

1 

STORF 

NORMZI 

LARGEST  ABVAL 

0421 

22,3671 

66145 

1 

DLOAD 

SXA,  1 

0412 

REEL 

6 

LAST 

1152 

22. 367? 

00045 

0 

NORMZI 

0423 

REF 

7 

LAST 

1152 

22,3673 

00044 

1 

NORMZI 

SAVE  XI 

0424 

22,3674 

62101 

0 

NORM 

I NCR  ,1 
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L MEASUREMENT  INCORPORATION 


0425 

0426 

REF 

31 

LAST 

114  6 

22.3675 

22. 3676 

22. 3677 

00047 

00002 

43775 

1 

0 

1 

DEC 

VL.QAD_ 

XI 

2 

VSL* 

0428 

REF 

20 

LAST 

1152 

22,3  700 

02643 

1 

ZI 

0429 

22, 3701 

20201 

0 

0,1 

R f F 

? 1 

1 AST 

115  3 

_Z2,3  702 

26643 

1 

STOVL 

ZI 

0431 

REF 

22 

LAST 

1153 

22,3703 

02651 

1 

ZI  +6 

0432 

22, 3704 

77657 

0 

VSL* 

22 , 3 705 

20201 

0 

QjJ 

0434 

REF 

23 

LAST 

1153 

22,  3 706 

26651 

1 

STOVL 

ZI  +6 

0435 

REF 

24 

LAST 

1153 

22,3707 

02657 

1 

ZI  +120 

2 ?T 3 710 

66057 

0 

- VSL*  _ 

SJSA,  1 

0437 

22, 3711 

20201 

0 

0,1 

043  8 

REF 

8 

LAST 

1152 

22,3712 

00045 

0 

NORMZI  +1  SAVE  SHIFT 

25 

) AST 

1 1 53 

22, 3713 

02657 

_L 

STOJLE— 

ZI  + 1 2D 

0440 

22,3714 

54150 

1 

LX  A , 1 

XSU,  1 

0441 

REF 

6 

LAST 

11  50 

22, 3715 

02103 

1 

NOPMGAM 

R pF 

Q 

1 AST 

1 1 5 3 

22,3716 

00045 

0. 

NORMZI  +1 

0443 

22,3717 

77660 

1 

XSU,  1 

0444 

REF 

10 

LAST 

11  53 

22,3720 

00045 

0 

NORMZI  +1 

22  ,3721 

70130 

1 

SXA, 1_ 

L/C  ,3 

0446 

REF 

7 

LAST 

115  3 

22,3722 

02103 

1 

NORMGAM 

0447 

REF 

1 1 

LAST 

11  53 

22, 3723 

00045 

0 

NORMZI  +1 

0448 

22,3724 

40270 

0 

XA  D , 1 

SETPP 

0449 

REF 

12 

LAST 

115  3 

22, 3725 

00044 

1 

NORM  ZI 

0450 

22, 3726 

00003 

1 

2D 

04-51 

2-2,  3 72  7 

77650 

1 

GOTO 

0452 

REF 

2 

LAST 

1146 

22, 3730 

46571 

0 

INCCR2  -3 

0453 

0044 

NORMZI 

= 

360 
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L CCNIC  SUBROUTINES 


P0001  PROGRAM  DESCRIPTION  - ENTIRE  CONIC  SUBROUTINE  LOG  SECTION 
R0003  MOD  NO.  - 0 

MOB — BT — K-R-AUS-6 

R0007 


USER'S  PAGE  NO.  1 FO  S3 


DATE  - 1 SEPTEMBER  L967 

LOG  SECTION  - CONIC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  REVISION  88 


R 0008  FUNCTIONAL  DESCRIPTION  - 


ROOOq THE  FOLLOWING  SET  OF-  SUBROUTINES  SOLVE  - 

R0011  INVERSE-SQUARE  FORCE  ACTING  ON  A POINT  MASS, 
R0013  5. 5. 1.2.  A GENERAL  USAGE  POI NT-OF-VI EW  WAS 

ROD]  F RATFFR  THAN  OPT  I.M  I 7 I NG  EACH— EDR — A — RARXlCJJi-AR 
R 00 17  INVOLVING  ANY  REALISTIC  SET  OF  CONSTRAINTS. 

R0019  EARTH,  MOON,  OR  ANY  OTHER  CELESTIAL  BODY  IS 

R0071  THF  TNHFRFNT  SCAI  F CHANGE  REQUIRED  IN  PQSJTLI 

R0023  DEFINITION  MEMO  NO.  10.  THIS  CAN  BE  ACCOMPL 
R0025  TINES  APPROPRIATELY. 

R002-6 DUE— T-C  THE  UNI.EO&MJTY  OF  T HE—EQ.U  AT  IONS 

R0028  BLOCKS  OF  EQUATIONS  AS  SUBROUTINES  OF  LOWER 
R0030  DIRECTLY  USABLE  AS  INDEPENDENT  SUBROUTINES, 


V-AR  innc  PR  OBI  FMS  TNVni  VI  MG  -THF  TRAJECTORY  PRODUCED  BY  A CFNTPAt 

AS  OUTLINED  IN  THE  CMC  AND  LGC  LUNAR  LANDING  MISSION  GSOP,  SECTION 
TAKEN  IN  FORMULATING,  MECHANIZING,  AND  SCALING  THE  SUBROUTINES, 

IIS F.  THFRFFORF  . MULTIPLE  USAGE  CAM  BE  MADE  OF  THE  SUBROUT  INFS 

IT  SHOULD  BE  NOTED  THAT  ONLY  ONF  SET  OF  CODING  IS  USEO,  WHETHER  THE 
SPECIFIED  AS  THE  CENTRAL  BODY  OF  THE  PROBLEM,  PROVIDED  ONE  OBSERVES 
ON.  VFI  PC  TTY.  MU,  AND  TIME,  AS  OUTLINED  IN  MISSION  PROGRAMMING 
ISHED  BY  SIMPLY  ADDING  TO  THE  MUTABLE  AND  INITIALIZING  THF  SU8R0U- 

mVOUVED.,  rnniNG  WAS  MINIMIZED  BY  TREATING  INDIVIDUAL  EQUATIONS  AND 
RANK  WHENEVER  POSSIBLE.  AS  A RESULT,  THREE  BY-PRODUCTS  SUBROUTINES, 
WERE  GENERATED. 


R 003 1 RESTRICTIONS  - 


R0032 
R0034 
-R-QQ3Zx- 
R0037 
R 0039 
P.004L- 
R0043 


THE  ONLY  LIMITATION  IN  THE  SCOPE  OF  PROBLEM  WHICH  CAN  BF  SOLVED  BY  A PARTICULAR  SUBROUTINE  IS  THF  SCALING 
LIMIT  OF  EACH  PARAMETER  AS  SPECIFIED  IN  THF  GSOP.  THESE  SCALING  LIMITS  WERE  CHOSEN  SO  THAT  ALL  FFASIBLE  TRAJEC- 

TORIES  COULD  BE  HANOI.  FD. 

SINCE  THE  SUBROUTINES  (EXCEPT  KEPLER)  USE  COMMON  SUBROUTINES  OF  LOWER  RANK  WHICH  USE  ERASABLE  OTHER  THAN 
THE  PUSHLIST  (DUE  TO  ITS  LIMITED  SIZE)  AND  COMMON  INTERPRETIVF  SWITCHES,  THE  CONIC  SUBROUTINES  CANNOT  BE  ALLOWED 
TO  INTFRRDPT  FACH  OTHFR.  IT  TS  UP  TO  THF  USFR  TO  GUARANTEE  THIS  CONDITION. 
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P0044 
R 0046 
R-0Q48. 
R0050 


PROGRAM  DESCRIPTION  - KEPLER  SUBROUTINE 
MCD  NO.  -1 
-MOO  BY  KRAUSE 


DATE  - II  OCTOBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 
ASSEMBLY  - COLOSSUS  103  AND  SUNDANCE  222 


MCD  NC.  - 2 (AUGUST  1968)  BY  ROBERTSON:  TO  PERMIT  BACKDATING  BY  MORE  THAN  ONE  ORBITAL  PERIOD. 


R0051 

R0052 

— RQ054 

R 0056 
R0058 
onnf,n 

FUNCTIONAL  DESCRIPTION  - 

THIS  SUBROUTINE* *  GIVEN  AN  INITIAL  STATE  VECTOR  AND  THE  DESIRED  TRANSFER  TIME  THROUGH  WHICH  THE  STATE  IS  TO 

SECTION  - CIRCULAR,  ELLIPTIC,  PARABOLIC,  HYPFRBOLIC,  OP  RECTILINEAR  WITH  RESPECT  TO  THE 
USE  OF  THF  SUBROUTINE  CAN  BE  EXTENDED  USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO 
I NTERELD-UCJ  MG  ANY  C OHLNG—C  H ANDES , ACCEPTING-  THE  INHERENT. -SCALE  FAC  TOIL.  CIJ  A N G E5  IN  POSITION 

EARTH  OR  THF  MOON.  THE 
THE  MUTABLE  WITHOUT 
AND  VELOCITY.  AN  ITERA- 

R0062 

R0063 

R00-65 

TICN  TECHNIQUE  IS  UTILIZED  IN  THF  COMPUTATION. 

IF  A NEGATIVE  T I ME-0 F-FL I GHT  IS  INPUT,  THE  PROGRAM  WILL  SOLVE  FOP  THE  STATE  WHICH 
FXTRAPOI  AT  IMG  THF  POSITION  BACKWARD  IN  TIME.-  _ _ . _ 

WOULD  BE  PRODUCED  BY 

R0065 1 
R00653 
POO-66- 

IF  THE  ABSOLUTE  VALUE  OF  THE  DESIRED  TRANSFER  TIME  EXCEEDS  THE  ORBITAL  PFRIOD,  THE  SUBROUTINE,  THROUGH  A 
MODULAR  TECHNIQUE,  WILL  COMPUTE  THE  STATE  CORRESPONDING  TO  THE  DESIRFD  TIME  (WHETHER  POSITIVE  OR  NEGATIVE). 

R 0067 
R on  A R 

THE  RESTRICTIONS  ARE  - 

1,  IPRFvrrns  RFSTRTfTT ON  ON  THF  NFGATIVF  DFSTRFD  TRANSFFR  TIME  IS  NOW  DELETED.) 

R 007  1 
R0073 

..R  00-7  5 

2.  THE  PARAMETERS  IN  THE  PROBLEM  CANNOT  EXCEED  THFIR  SCALING  LIMITS  AS  SPECIFIED 
ANY  OF  THESE  LIMITS  ARE  EXCEEDED,  THE  RESULTING  SOLUTION  WILL  BE  MEANINGLESS. 

IN  THF  GSOP.  IF 

R0076 

R007R 

THE  NUMBER  OF  ITERATIONS  AND,  THEREFORE,  THE  COMPUTATION  SPEED  IS  DEPENDENT  ON  THE 
GUESS,  XKEPNEW.  THE  AGC-  COMPUTATION-TIME  IS  APPROXIMATELY . 061-  SECONDS  FOR  T NT  T I A1  T7AT 

ACCURACY  OF  THE 
TON.  .065  SFCONDS  FOR  THE 

R0080 

R0081 

FINALCOMPUTATIONS,  PLUS  .083  SECONDS  FOR  EACH  ITERATION. 

R0082  REFERENCES  - 

R 0X18  3 R^4-7-9_, — Ml  -SSI  .nAL-PRDGJLAMMJ  N.G_D  FF.INITION  MFMO  NO.  10.  IUNAR  LANDING  MISSION  GSOP.  SECTION  5,5.  SGA 

R0085  MEMO  67-4. 

R0086 


R0087  INPUT  - ERASABLE  INITIALIZATION  REQUIRED 


R0088 
RO  089 

RQ090 — 

R0091 
R 0092 

R0093 — 

R0094 
R0095 
— R0097 — 
P 0098 
RO  099 


* SCALE  FACTOR  * 

VARIABLE*IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

* * 

RRECT  * +29  FOR  EAR  T H#D  P INITIAL  POSITION  VECTOR  IN  METERS 

* +27  FOR  MOON  * 

V-REC-T *-  +7  FOR  FARTH  *DP  INITIAI VELOCITY-  VECTOR  IN  MFTFRS  /C.FNTT  SFCOND 

* +5  FOR  MOON  * 

XI  ( 38D) * NONE  *INDEX  REGISTER  SET  TO  -2D  OR  -10D  ACCORDING  TO  WHETHER  THE  EARTH  OR  MOON, 

* *_RE  SPFCT  I VF I Y . IS  THF  CFNTRAL  BODY 

TAU.  * +28  * 0 E S I R ED  TRANSFER  TIME  IN  CENTISECONDS  (DP) 

XKEPNEW  * +17  FOR  E AR  TH*GUE  SS  OF  X IN  MET FR S-TO-T H E-ON E-HA L F FROM  KFPPREP 
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R 010  1 
R0102 

R-0-I4J3 — 

R0105 

R0106 

* +16  FOR  MOON  *( DP) 

TC  * +28  *0 P PREV.  VALUE  OF  TIME  IN  CENTISECS  FROM  KEPPREP 

X op  FV  * +17  FOR  EARTH*PREy  I OUS  VALUE  OE..X  IN  .METERS- T O-TH F -QNIE-H ALE  ..PO.W ER  . FROM 

K EPPREP 

(DP  ) 

* +16  FOR  MOON  *(DP) 

R 01 07 

SLPPOLT I NE  S CALLED  - 

npi  TTMF  . . . . 

R0109 

R0110 

CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 

K-i-PRTN  2 -GOTO  MUST  BE  IN  INT ERPR-ET I V F._MOD£  AND  OVFIND  MUST  B£ 

Cl  FAR 

R 01 1 3 
R01 1 A 

KE PRT N— 1 ~ KEPLER  RETURNS  WITH  XPREV  IN  MPAC.  PL  IS  AT  0. 

KEPRTN  ...  CONTINUE 

R 0 1 1 5 
R01 1 7 

HOI  79  _ 

KEPLFR  MUSI  NOT  BE  CALLED  DIRECTLY  SINCF  AN  INTERRUPTION  OF  IT  WOULD  DESTROY  THE  ERASABLES  IT  NEEDS  TO 
THE  INTERRUPTED  JOB.  THEREFORE  THE  USER  MUST  CALL  CSMCONIC  OR  LEMCONIC  WHICH  GUARANTEES  NO  I N TERRUDTS 
Al  SO  CAMS  KIPPRFP  TO  COMPUTE  4 GUFSS  OF  XKE.PNEW.  . . __  . . . . ...  ... 

COMPLETE 
AND  WHICH 

R 0 1 20 

R 0 1 2 1 
R0122 

- R 01-2-3  -- 

ABCRT  EXIT  MOOES  - 
NONE 

.... 

OUTPUT  - 

R 0 1 2 5 
RO  1 26 

* SCALE  FACTOR  * 

VAR  I ARM* IN  POWERS  OF  2*  - - - DESCRIPTION  AND  REMARKS 

R0127 
P0128 
-R  01-2  9 

RCV  * +29  FOR  E ARTH*  D P TERMINAL  POSITION  VECTOR  IN  METERS 

* *2  7 FOR  MO -IK  * _ _ 

RO  1 30 
R0131 

ELO-132 

VCV  * +7  FOR  EARTH  *DP  TERMINAL  VELOCITY  VECTOR  IN  ME  TER  S/CENT  I SEC 

* +5  FOR  MOON  * 

TC  _ *_  +Z8  ..*02.  TRANSFER  TIME  IN  CENTISECS  TO  WHICH  KEPLFR  CONVERGED. 

RO  1 34 
R 0 1 36 

R01 37 

XPREV  * +17  FOR  E ART  H*D  P X IN  METERS— TO-T HE— ONE— HALF-POWER  TO  WHICH  KEPLER  CONVERGED. 

* +16  FOR  MOON  * ( DP ) 

FOR  OTHFR  .OUTPUT  WHICH  MAY  BE  OF  USE,  SEE  DEBRIS. 

R0138 

R 01 39 

DEBRIS  - 

SL&L4Q 

P-AR-AHEX-E&S — W-HXCH — MAY BE OE  _LLS£ = 

R014I 


* SCALE  FACTOR  * 
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R0142  VARIABLE*IN  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

R0143  * * 

P0144 !TRR€€4 *—*4 *DP  UN-IT-V-E-CTOR  OF- -LALLXIAL  POSITION 

R0145  R 1 * +29  FOR  EARTH*DP  MAGNITUDE  OF  INITIAL  POSITION  IN  METERS 

R0146  * +27  FOR  MOON  * 

Rai-A-7 ALPHA * =22 FOR  EARTH*DP  INVERSE  OF  SEMI  MAJOR — AX.  I S IN  1 /METERS ... 

R0148  * -20  FOR  MOON  * 

R01481  TMODULC  * +28  *DP  INTEGRAL  NUMBER  OF  PERIODS  IN  CENTISECS.  WHICH  WAS  SUBTRACTED  FROM  TAU.  TO  PRODUCE  A 

4.R * *TAU.  OF  I FSS  THAN  ONE  PERIOD. 

RO 149  PARAMETERS  OF  NO  USE  - 

Bimn  DP  paramftfrs  - FPSIinNT.  DFI  X.  DFLT.  RCNORM.  XMODULO.  PLUS  PUSHLIST  REGISTERS  0 THROUGH  390. 

R 0 1 52 
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L CONIC  SUBROUTINES 

P0I53  PROGRAM  DESCRIPTION  - LAMBERT  SUBROUTINE 
R 0 1 55  MOD  NO.  - 0 

ROl 57 MOD  -BY  K-RAUSF 

R0159 


USER'S  PAGE  NO.  5 EO  S3 


DATE  - 1 SEPTEMBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  REVISION  88 


R0160  FUNCTIONAL  DESCRIPTION  - 

p.0161 THIS  SUBROUTINE  CALCULATES  THE  INITIAL  VELOCITY  REQUIRED  TO  TRANSFER-  A POINT-MASS  At  PNG  A__XO_MJX  TRAJECTORY 

R0163  FROM  AN  INITIAL  POSITION  TO  A TERMINAL  POSITION  IN  A PRESCRIBED  TIME  INTERVAL.  THE  RESULTING  TRAJECTORY  MAY  BE 
r 0 1 6 5 A SECTION  CF  A CIRCLE,  ELLIPSE,  PARABOLA,  OR  HYPERBOLA  WITH  RESPECT  TO  THE  EARTH  OR  THE  MOON.  THE  USE  OF  THE 

90^67  SlippniiTTNF  r AM  pF  FXTFNnFn  USING  OTHER  PRIMARY  BODIES  BY  SIMP1F  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY 

R0169  CODING  CHANGES,  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY.  AN  ITERATION  TECHNIQUF  IS 
R0171  UTILIZED  IN  THE  COMPUTATION. 

R 0 17  ? 

R0173  THE  RESTRICTIONS  ARE  - 

R D 1 1U 1-  RFCTII  INFAR  T R A.  I F CT  OR  I F S CANNOT  BE  COMPUTED  . 

R0L75  2.  AN  ACCURACY  DEGRADATION  OCCURS  AS  THE  COSINE  OF  THE  TRUE  ANOMALY  DIFFERENCE  APPROACHES  +1.0. 

ROl 77  3.  THE  ANGLE  BETWEEN  ANY  POSITION  VECTOR  AND  ITS  VELOCITY  VECTOR  MUST  BE  GREATER  THAN  1 DEGREE  47.5  MINUTES 

R n 1 7 9 AMn  I FSS  THAN  17B  DFGRFFS  17.5  MINUTES. 

ROl 80  A.  NEGATIVE  TRANSFER  TIME  IS  AMBIGUOUS  AND  WILL  RESULT  IN  NO  SOLUTION. 

R0182  5.  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THFIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP.  IF  THE 

ROl 84 | TMITS  A R F F XC  FF  n FP , THF  RESPITING  SOLUTION  WIU BE  MEANINGLESS. 

ROl 85  THE  NUMBER  OF  ITERATIONS  AND,  THEREFORE,  THE  COMPUTATIONS  SPEED  IS  DEPENDENT  ON  THF  ACCURACY  OF  THE  FIRST 

R 01 87  GUESS  OF  THF  INDEPENDENT  VARIABLE,  COGA.  THE  AGC  COMPUTATION  TIME  IS  APPROX IMATE— 

R-Q1-&9 LY  .105  SFCONDS  FOR  I N I T T A1  T 7 AT  TON  , .069  SFCnNDS  FOR  FINAI COMPUTATIONS. PLUS  .205  SECONDS  FOR  EACH  ITERATION. 

R 0 1 9 1 


R0192  REFERENCES  - 

R 0 1 93  R— 479 , MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP-SFCTION  5.5,  SGA  MEMD  67-8, 

R0ia5 SGA  MEMO  67-4. 

ROl  96 


R0197  INPUT  - ERASABLE  INITIALIZATION  REQUIRED 


RO-19-8 

R0199 
R 02  00 
— RQ201 — 
R0202 
R0203 

R0204 

R0205 

R0206 

BTL2-0-8 

R0209 
R 02 1 1 


 *  * SCALE -F-ACXOR-  * 

VAR  I ABLE* I N POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

* * 

R1VEC * — +2  9 -FOR  EARTH*  D-P  INITIAI POSITION  VFCTnR  IN  MFTFRS  

* +27  FOR  MOON  * 

R2VEC  * +29  FOR  FARTH*DP  TARGET  OR  TERMINAL  POSITION  VECTOR  IN  METERS 
*—±71  FOR  MnON  * 

TDESIRED*  +28  *DP  DESIRED  TRANSFER  TIME  IN  CENTISFCCNDS 

XI  1 3 8D ) * NONE  *INDEX  REGISTER  SET  TO  -2D  OR  -10D  ACCORDING  TO  WHETHER  THE  EARTH  OR  MOON, 

S ^RESPECTIVELY,  IS  THE  CENTRAL  BODY 

G EC  MS  G N * NONE  *SP  +.5  IF  DESIRED  TRANSFER  ANGLE  IS  LESS  THAN  180  DEGREES,  -.5  IF  GREATER  THAN  180  DEG. 

GUESSW  * NONE  * A N INTERPRETER  SWITCH  TO  BE  SET  IF  NO  GUESS  OF  COGA  IS  AVAILABLE,  CLEAR  IF  A GUESS  OF 


GAP  : — ASSEMBLE  REV  ISI0N-Q69  OF  AGO  PROGRAM  LUMINARY  BY- NASA  2021  I 1-2 -.01-1 


19:02  MOV  - 73,1  QAR SKTPPFR  .070 PAGE  1 1 5_9 


CCNIC  SUBROUTINES 


USER'S  PAGE  NO. 


EO  S3 


R0213 
R0214 
R02 16 — 
R0217 
R0219 

_ R0220 

R0222 
P 0224 


COGA  * +5 

NCRMSW  * NONE 
* 

_LLN * +1 

4 

VTAPGTAG*  NONE 


*COGA  IS  TO  BE  USED  BY  LAMBERT 

*DP  GUESS  OF  COTANGNT  OF  FLIGHT  PATH  ANGLE  (MEASURED  FROM  VERTICAL).  THIS  WILL  BE 
.* IGNORED  IF  GUESS W IS  SET.. 


* A N INTERPRETER  SWITCH  TO  BE  SET  IF  UN  IS  TO  BE  AN  INPUT  TO  THE  SUBROUTINE,  CLEAR  IF 
* L AMBERT  IS  TO  COMPUTF  ITS  OWN  NORMAL  (UN). 

*f)P  UNIT  NORMAL  TO  THE  DESIRED  ORBIT  PLANE  IN  THE  DIRECTION  OF  THE  RESULTING  ANGULAR 
^MOMENTUM  VECTOR.  THIS  WILL  BE  IGNORED  IF  NORMSW  IS  CLEAR. 

4 A S.p.  TAG  TO  BE  SET  TO  ZERO  IF  LAMBERT  IS  TO  COMPUTE  THE  VFLOCITY  AT  R2VEC  AS  WFLL  AS 


R0227 
R 0227 1 
R 02  27  2 

I TERCTR  * NONE 
* 

* 

*A  S.P.  COUNTER  WHICH  SPECIFIES  THF  MAXIMUM 
4 ( AN  ITERATION  MEANS  A PASS  THRU  KEPLER  EON 
^ALWAYS  OCCUR,  EVEN  IF  COGA  CORRESPONDING  TO 

NUMBER  OF  ITERATIONS  ALLOWABLE. 
(DELTIME).  AT  LEAST  ONE  OF  THESE  MUST 
SOLUTION  WERE  INPUT  AS  A GUESS.) 

R 0227  3 
R 02274 

* 

4 TWENTY  ITERATIONS  ARE  SUFFICIENT  TO  SOLVE  ALL  PROBLEMS  INCLUDING  THOSE  WITHOUT  GUESS. 

R0228 

R0229 

RQ2-30 

SUEFOLTINES  CALLED  - 

GEOM , GETX,  DELTIME,  ITERATOR,  LAMENTER  (PART  OF  NEWSTATE) 

R0231 CALLING  SECUENCE  AND  NOR  MAI  EXIT  MODES  - 


R0232 

L 

L + 1 

CALL 

L AMR  FR  T 

MUST  BE  IN  INTERPRETIVE 
R-ETURNS  WITH  PL  AT  0 AND 

MODE  AND  OVFIND  MUST  BE  CLEAR 
WITH  VV EC  IN  MPAC  IF  VTARGT AC 

WAS  NON-ZERO  OR  VTARGET 

R0236 
R0237 
RO  23  9 

L + 2 
_ L-+  3 

BON 

SOI  NSW 

IN  MPAC  IF  VTARGTAG  WAS 
CONTINUE  IF  SOLNSW  CLFAP 

ZERO 

SINCE  SOLUTION  IS  ACCEPTABLE 

R0240 

L +4 

L AMABORT 

R 0241 

R ORA  3-. 

IF 

GUE  SS4ri 

A LAMBERT  RESULT  IS  TO  BE  A FIRST  GUESS  FOR  THE 
Mi  IS  I R_F_T  1 FAR  FOR  F A CLL  SLJTT  EF  DING  1AMBERT  CALL. 

NEXT  LAMBERT  CALCULATION,  COGA 

MUST  BE  PRESERVED  AND 

R0244 

R0245  ABORT  EXIT  MODES  - 

R0246  IF  SOLNSW  WAS  SET  UPON  EXITING,  EITHER  LAMBERT  WAS  ASKED  TO  COMPUTE  A TRANSFER  TOO  NEAR  0 OR  360  DEG, 

R-0  24-8 WAS  TOO— SMALL  XfL  PRnDiLCF  A RFAI  I ST  If.  TRANSFFR  BFTWFFN  R1VFC  AND  R2VEC.  IN  EITHER  CASE  THE  FIX  MUST  BE  MADF 

R 02 50  ACCORDING  TO  THE  NEEDS  OF  THE  PARTICULAR  USER.  THE  ABORT  EXIT  MODE  MAY  BE  CODED  AS  ... 

R0252  LAMABCRT  DLOAD  ABS  A MEASURE  OF  PROXIMITY  TO  0 OR 

R0253 L-CSJ-H 360  DEGREES. 

R0254  DSU  BMN 

R 02  55  ONEBIT 

R0256 CHANGER? CHANGE  R2VEC  DIRECTION  SLIGHTLY. 

R0257  DLOAD  DAD 

R 0258  TDESIRED 

R075Q SOMETIME 

R0260  STCALL  TDESIRED  INCREASE  TDESIPED 

R0261  LAMBERT 

B.Q262 


OR  T 
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R0263 
R0264 
-R02L5 
R0266 
R0267 
R0269- 
R0270 
R0272 
P.0273- 
R0275 
R0276 
_P,  0277 


OUTPUT  - 

* SCALE  FACTOR  * 

V AP I A BL  E*  T N PQWFRR  nF  M DFSCR  IPT  I ON  AND  REMARKS 

VVEC  * +7  for  EARTH  *DP  INITIAL  VELOCITY  VECTOR  IN  METERS /CENT  I SECOND  REQUIRED  TO  SATISFY  THE  BOUNDARY  VALUE 

4 +5  FOR  MOON * PROBLEM. 

VTARGET  * +7  FOR  EARTH  *DP  RESULTANT  VELOCITY  VECTOR  AT  P2VEC  IN  METERS/C  ENT  I SECOND. 

* +5  FOR  MOON  4 

CPI  NSW * FOME  _ 7 T NTFRPRFTFR  SWITCH  WHICH  IS  SET  IF  THE  SUBROUTINE  CANNOT  SOLVE  THE  PROBLEM.  CLEAR  IF  THE 

* ^SOLUTION  EXISTS. 

FOR  OTHER  OUTPUT  WHICH  MAY  BE  OF  USE,  SEE  DEBRIS. 


— R02  76 D E-B  R-I-S  — = 

R02  79  PARAMETERS  WHICH  MAY  BE  OF  USE  - 


— R-Q2-8G — — 4 SC AL  E F AC  T OR— 3; — 

R0281  VAR  I A BLE  4 1 N POWERS  OF  24  DESCRIPTION  AND  REMARKS 

R 02  82  * * 

R 02,33 SNTH 4.  +1 4-D-P S-LM—QE— ANGLE BET-MEFN  R1VEC  AND  -EJLVEC 

R0284  C ST H * +1  4DP  COSINE  OF  ANGLE 

R 02  85  1-CSTH  4 +2  *DP  1-CSTH 

- R 0 2 86 LOLA 4 _ +5 $OL-LOXAN  OF  INITIAL  REQUIRED  FLIGHT  PATH  ANGLE  MEASURED  FROM  VERTICAL 

R02 89  P 4 +4  *DP  RATIO  OF  SFMILATUS  RECTUM  TO  INITIAL  RADIUS 

R0290  R 1 A 4 +6  *DP  RATIO  OF  INITIAL  RADIUS  TO  SEMIMAJOP  AXIS 

R0291  pg  (3  2D) 4 +29  ERR  FARTH4DP  TNTTTAI RADIUS,  IN  METERS  , 

R 02 92  4 +27  FOR  MOON  4 

R 0293  UR  1 4 +1  4 D P UNIT  VECTOR  OF  R1VEC 

R D? 94 02 4 +1 4DP  UNIT  VFCTOR  OF  R2VEC 

R0295  PARAMETERS  OF  NO  USE 

-R0296 DP  BA-RAMEJ-ERL  - EPSILONL.  CSTH-RHO,.  T PR_E  V_,  TFRPIAMB.  R2.  PTNLAMB  (SP).  PLUS  PUSHLIST  REGISTER  0 THROUGH  41D 

R 0298  ADDITIONAL  INTERPRETIVE  SWITCHES  USED  - INFINFLG,  360SW,  SLOPFSW,  ORDERSW 

R0300 
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P030I  PROGRAM  DESCRIPTION  - TIME-THETA  SUBROUTINE 
R 030 3 MOD  NO.  - 0 

-R -0-305 MOD  BV  KRAUSE 


DATE  - 1 SEPTEMBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 

ASSEMBLY  - COLOSSUS  REVISION  SB 


R0307 


R 03 08  FUNCTIONAL  DESCRIPTION  - 


R3303 

R03 1 1 
R0313 

R 0 31  5 

R0317 
R0319 
R 03-20- 


THIS  SUBROUT  I NE,  -GIVEN  AN  INITIAL  ST  AT  F VEC  TOR  AND  A OFJTIPF.D — ITUIE^AMUMALY— D I F FFR  FNCF  THROUGH  WHICH  THE 

STATE  IS  TO  BE  UPDATED  ALONG  A CONIC  TRAJECTORY,  CALCULATES  THE  CORRESPONDING  T I ME-OF -F L I GHT  AMO,  IN  ADDITION, 
PRCVIDES  TEE  OPTION  OF  COMPUTING  THE  NEW  UPDATED  STATE  VECTOP.  THE  RESULTING  TRAJECTORY  MAY  BE  A SECTION  OF  A 

-C  T-R-CL  EL.U-PS.E-,  PAR  AROI  A , OR  HYPFRBOI  A .WITH,  RFSP  ECT  TO  THE  EAR  IH_OJL_  THE..  MOON, THE  USE  OF  THE  SUBROUTINE  CAN  BE 

EXTENDED  USING  OTHER  PRIMARY  BODIFS  BY  SIMPLF  ADDITIONS  TO  THE  MUTABLE  WITHOUT  INTRODUCING  ANY  CODING  CHANGES, 
ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY. 


R0321  THE  RESTRICTIONS  ARE  - 

RO  322  - - 1 - THE  AN  Gl  F RETWFFN  ANY  POSITION  VFCTOR  AND  ITS  VELOCITY  V ECTOR  MUST  BE  GRFATER  THAN  1 DEGREE  47.5  MINUTES 

R0324  AND  LESS  THAN  178  DEGREES  12.5  MINUTES. 

R 032  5 2.  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP.  IF  THE  LIMITS 

R0327- ARE Fxr.FFnFD,  THF  RFSU1TING  SOIUTION  Will.  BF  MFANINGLFSS. 


R0328  THE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  .292  SECONDS. 

R-Q-3-2-9 


R0330 REFERENCES  — — — — 

R 033 1 R-479,  MISSION  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP-SECTION  5.5,  SGA  MEMO  67-R. 

R0333 


R0334  INPUT  - ERASABLE  INITIALIZATION  REQUIRED 


R0335  7 SCALE  FACTOR  7 

R0336  VAR  I ABLE* I N POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

R 03  3 7 * — 

R 03  38  R VEC  * +29  FOR  EARTH*  0 P INITIAL  POSITION  VECTOR  IN  MET  FP  S 
R0339  * +27  FOR  MOON  * 

R 03  4.0 V VEC » +7  FOR  FARTH  *DP  INITIAL  VFI  OF.  TTY  VECTOR  IN  MFTFRS /CFN  TI  SECOND 

R 034 1 * +5  FOR  MOON  * 

R0342  SNTH  * +1  *DP  SINE  OF  TRUE- ANOM AL Y-DI F F ER ENC E THROUGH  WHICH  THE  STATE  IS  TO  BE  UPDATED 

R0343 C.STH * +1 *D P COSINE  OF  THF  ANGI  F 

R 0 3 4 5 RVSW  * NONE  * A N INTERPRFTI VE  SWITCH  TO  BE  SET  IF  ONLY  TIME  IS  TO  BE  AN  OUTPUT,  CLEAR  IF  THE  NEW  STATE 

R0347  * *IS  TO  BE  COMPUTED  ALSO. 


R0348 XL  -(  3SD 1 *NONE  _ UNDFX  RFGTSTFR  TO  RF  SET  TO  -2n  OR  -100  ACCORDING  TO  WHETHER  THE  EARTH  OR  MOON 

R0350  * * R E SP  ECT I VEL  Y , IS  THE  CENTRAL  BODY. 

R0351 


R0352 


SUBROUTINES  CALLED  - 


Qflp  . ^ ^ ( typ[_  p REVISION  0 69 — Of  AGC  E’RnGRAY  1 UMINARY  B-Y  NA SA — 202 1 1 1 2 — C 1 1 

L CCMC  SUBROUTINES 

R0353  PARAM,  GEOM,  GETX,  DELTIME,  NEWSTATE 

R0354 
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R0355  CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 


R0356 

IF 

ONLY  T IME  I S DESIRED  AS 

OUTPUT  - 

R 03  57 

L 

SET  CALL 

MUST  BE  IN  INTERPRETIVE  MODE  AND  OVFIND  MUST  BE  CLEAR 

1 + 1 

RVSW- 

R0360 

L + 2 

T IMETHET 

RETURN  WITH  PL  AT  0 AND  T IN  MPAC 

R0361 

L + 3 

• • • 

CONTINUE 

R03  A? 

R0363 

IF 

THE  UPDATE  STATE  VECTOR 

IS  DESIRFD  AS  WELL  - 

r i f ar  r.  ai  j 

MUST  RE  IN  TNTFRPRFTTVF  MODE  AND  OVFIND  MUST  BE  CLEAR 

R0366 

L + l 

R VSW 

R 0367 

L + 2 

T IMETHET 

RETURNS  WITH  PL  AT  6.  THF  INITIAL  POSITION  VECTOR  IS 

IN 

OD 

OF  THE  PUSHLIST  AND 

THF  INITIAL.  VFI  OCT TY  VECTOR  IN  MPAC. 

R 0370 

L + 3 

S TO VL  NEWVVEC 

R0371 

L+4 

STADR 

--R0372 

L + 5 - 

STORE  - N EWRV-EC  _ 

NEWVVEC  AND  NfWRVFC  ARE  SYMBOLIC  REPRESENTATIONS 

OF 

THE  USERS  LOCATIONS. 

R0374 

L + 6 

CONTINUE 

R0375 

R0376 

ABCRT 

EXIT  MODES  - 

R 03  77 

L 

CALL RFN 

R0378 

L + l 

T IMETHET 

R0379 

L+2 

COGAFLAG 

R 03-80 

C-CGABORT 

RESTRICTLON  1 HAS  BJLEN VLPL.A  TED. 

R 038  I 

L+4 

BON 

IF  NEITHER  FLAG  IS  SET  AND  RESTRICTION  2 HAS  NOT  BEEN 

VIOLATED,  THE  SOLUTION  IS 

R0383 

GOOD,  SO  CONTINUE 

R 03-84 

. | + *>  __  - 

. I NFINFLG 

R0385 

L + 6 

I MPOSSBL 

NO  SOLUTION  EXISTS. 

R0386 

R0387 

OUTPUT 

R 038-8 

* SCALE  FACTOR  * 

R0389 
R 0390 
R0391 
R 0392 
R0394 
R02L96- 
R0398 


VARIABLE*IN  POWERS  OF  2* 


DESCRIPTION  AND  REMARKS 


T I30D)  * +28 
INFINFLG*  NONE 


_COC  AF  L AG*  NONE 
* 


*DP  TRANSFER  TI ME  IN  _ C ENT  I SECONDS 

*AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  THE  TRANSFER  ANGLE  REQUIRES  CLOSURE  THROUGH 
^INFINITY  (NO  SOLUTION),  CLEAR  IF  A PHYSICAL  SOLUTION  IS  POSSIBLE. 

*AN  INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  RESTRICTION  1 HAS  BEEN  VIOLATED  (NO  SOLUTION) 
*C  LEAR  IF  NOT. 


R 03-99-  - LAI.  APE  IJ-IQ-N,-  IF  VTARGTAG  IS  NnN— 7FRFI , THF  1 01  I OWING  AR  F OUTPUT  - 
R 0400  MPAC  - * +7  FOR  EARTH  *DP  TERMINAL  VELOCITY  VECTOR  IN  ME T E P S/C E NT  I SE C . 

R0401  MPAC  +5*  +5  FOR  MOON  * 
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P0402  OD  - 50  * +29  FOR  EARTH*  DP  TERMINAL  POSITION  VECTOR  IN  METERS  (PL  AT  6D) 
R0403  * +27  FOR  MOON  * 


R0404  FOP  OTHER  OUTPUT  WHICH  MAY  BE  OF  USE.  SEE  DEBRIS. 
R 0405 


R 0406  DEBRIS  - 


R0407  PARAMETERS  WHICH  MAY  BE  OF  USE  - 

P.04  06 * SCALE  FACTOR  * 

R0409  VAR  I A BLE  * 1 1\  POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

R0410  * * 

R0411 R 1 (<?n*  +29  FOR  FART H*DP  MAGNITUDE  OF  INITIAL  POSITION  VECTOR.  RVEC,  IN  METERS 

R0413  * +27  FOR  MOON  * 

R0414  R 1 A * +6  *DP  RATIO  OF  R1  TO  SEMIMAJOR  AXIS  (NEG.  FOR  HYPERBOLIC  TRAJECTORIES) 

RQ414  p * +4 *nP  RATIO  OF  SFMIIATUS  RFCTUM  TO  R1 

R 04 17  COCA  * +5  *0P  COTAN  OF  ANGLE  BETWEEN  RVFC  AND  VVEC 

R0419  UR  1 * +1  *DP  UNIT  VECTOR  OF  RVEC 

RQ42C U2 * +1 *_DP  UNIT-  VECTOR  OF  VVEC 

R0421  UN  * +1  *DP  UNIT  VECTOR  OF  UR1*U2 

R0422 


R0423  PARAMETERS  OF  NO  USE  - 

R0424  SP  PARAMETERS  - RTNTT . GEOMSGN,  RTNPRM,  MAGVEC2=R2  (DP),  PLUS  PUSHLIST  LOCATIONS  0-11D,  14D-21D,  24D-39D,  41  D 

R 042 6 AHUU-IONAL  I NXERP-RET I V E SWITCHES  USED  - NORMSJeU,  360SW 

R0427 
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P0428  PROGRAM  DESCRIPTION  - TIME-RADIUS  SUBROUTINE 
R 0430  MOD  NC.  -1 

-R-Q432 MOO  BY  KRAUSE 

R0434 


DATE  - II  OCTOBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 
ASSFMBI Y - COLOSSUS  REVISION  88 


R0435  FUNCTIONAL  DESCRIPTION  - 


R 0436 THI-S-  SUBR-QU  T INC,  GIVEN  AN -I-N-I  TT-AL--S  TATE  V ECTOR — AMD — A — D-ES I RF  0 RA.DLUS  TO  WHICH  THE 

R0438  STATE  IS  TO  BE  UPDATED  ALONG  A CONIC  TRAJECTORY,  CALCULATES  THE  CORRESPONDING  T I ME-OF -EL  I GHT  AND,  IN  ADDITION, 

R0440  PROVIDES  THE  OPTION  OF  COMPUTING  THE  NEW  UPDATED  STATE  VECTOR.  THE  RESULTING  TRAJECTORY  MAY  BE  A SECTION  OF  A 

-R0442 CJR-CL-E,  FLIT  PSF,  PARAROI  A , OR  HYPFRB01A  WITH  RFSPFCT  TO  THF  EARTH  OR  THE  MOON. THE  USE  OF  THE  SUBROUTINE  CAN  BE 

R0444  EXTENDED  USING  OTHER  PRIMARY  BODIES  BY  SIMPLE  ADDITIONS  TO  THE  MUTA8LE  WITHOUT  INTRODUCING  ANY  COOING  CHANGES, 

R 0446  ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES  IN  POSITION  AND  VELOCITY. 

_ RQ.447  IF  THF  nFSIRFD  RADIUS  IS  BEYOND  THE  RADIUS  OF  APOCENTFR  OF  THE  CONIC  nR  BELOW  THE  RADIUS  OF  PERICENTER, 

R0449  APSESW  WILL  BE  SET  ANO  THE  SUBROUTINE  WILL  RETURN  THE  A PO CENTER  OR  PERICENTER  SOLUTION,  RESPECTIVELY. 

R 04  5 1 


R0452  TEE  RESTRICTIONS  ARE  - 

R0453  1.  THE  ANGLE  BETWEEN  ANY  POSITION  VECTOR  AND  ITS  VELOCITY  VECTOR  MUST  BE  GREATER  THAN  1 DEGREE  47.5  MINUTES 

- TLQ4-55 AND  LESS  THAN  17B  OEGRFFS  12.5  MINUTFS. 

R0456  2.  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS  SPECIFIED  IN  THE  GSOP.  IF  THE  LIMITS 

R0458  ARE  EXCEEDED,  THE  RESULTING  SOLUTION  WILL  BE  MEANINGLESS. 

R 04 581 3——  AN  ACC-UR7LCY DE-GR-A-DATI  ON  OCCURS  AS  THF  SFNS  I T T V I TT  FS  OF  TIME  AND  UPDATED  STATE  VECTOR  TO  CHANGES  IN 

R04583  RDESIRED  INCREASE.  THIS  WILL  OCCUR  NEAR  EITHER  APSIS  OF  THE  CONIC  AND  WHEN  THE  CONIC  IS  NEARLY  CIRCULAR.  IN 
R04585  PARTICULAR,  IF  THE  CONIC  IS  AN  EXACT  CIRCLE,  THE  PROBLEM  IS  UNDEFINED  AND  THE  SUBROUTINE  WILL  ABORT. 

-R  04587 

R0459  THE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  .363  SECONDS 

R0460 


— RQ4-64 REFERENCES  

R 0462  R— 479 , MISSICN  PROGRAMMING  DEFINITION  MEMO  NO.  10,  LUNAR  LANDING  MISSION  GSOP-SFCTION  5.5,  SGA  MEMO  67-8. 

R0464 


R0465 

INPUT  - ERASABLE  INITIALIZATION  REQUIRED 

R 0466 
R0467 
R 04-6  8- 

* SCALE  FACTOR  * 
VARIABLE*IN  POWERS  OF  2* 

DESCRIPTION  AND  REMARKS 

R 0469  RVEC  * +29  FOR  EARTH*DP  INITIAL  POSITION  VECTOR  IN  METERS 

R 0470  * +27  FOR  MOON  * 

R047T V-VDC * — +7 — EPS — FART  H *0P  INTTTAI  VFIOCTTY  VFCTOR  IN  MET  FRS /CFNTI  S FCOND 

R0472  4 +5  FOR  MOON  * 

R0473  RDESIRED*  +29  FOR  EAR  TH*  DP  TERMINAL  RADIAL  DISTANCE  ON  CONIC  TRAJECTORY  FOR  WHICH  TRANSFER  TIME  IS  TO  BE 

R.0475 * +27  FOR  MOON  ^COMPUTED. 

R0476  SGNRDCT  * NONE  *SP  TAG  SET  TO  +.5  OR  -.5  ACCORDING  TO  WHETHER  THE  RADIAL  VELOCITY  AT  RDESIRED  IS  TO  BE 

R0478  * ^POSITIVE  OR  NEGATIVE,  RESPECTIVELY.  THIS  TAG  REDUCES  THE  DOU BLE- V ALU E D PROBLEM  TO  A 


L 
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R0480  * 

R0481  XI  ( 3 8 D ) *NON  E 

R0483 * 

R 0484  RVSW  ♦ NONE 
R0486  * 

P.0487 


♦SINGLE— VALUED  PROBLEM. 

♦INDEX  REGISTER  TO  BE  SET  TO  -2D  OR  -1CD  ACCORDING  TO  WHETHER  THE  EARTH  CR  MOON, 

*R  FSPFr.T  IVFI  V, I_S_  THE  CFNTRAI BODY... 

♦an  INTERPRETIVE  SWITCH  TO  BE  SET  IF  CNLY  TIME  IS  TO  BE  AN  OUTPUT,  CLEAR  IF  THE  NEW  STATE 
♦IS  TO  BE  COMPUTED  ALSO. 


R-04-8-8 SUBROUTINES  CALLE-C  

R0489  PARAM,  GEOM , GET  X , DELTIME,  NEWSTATE 

R 0490 


R0491  CALLING  SEGUENCE  AND  NORMAL  EXIT  MODES  - 


R 0492 
R 049  3 

R 0495 

IF  ONLY  TIME 
L SET 

L + 1 

I S DES IRED  AS 
CALL 

.-R-V-S-W 

OUTPUT  - 

MUST  BE  IN  INTERPRETIVE  MODE  AND  OVFIND  MUST  BE  CLEAR 

R 0496 
R 0497 

RCliQfl 

L + 2 
L + 3 

T IMERAD 

RETURN  WITH  PL  AT  0 AND  T IN  MPAC 
CONTINUE 

R0499 

.ROSDO 

IF  THE  UPDATE  STATE  VECTOR 
i r.l  f ar  riu 

IS  DESIRED  AS  WELL  - 

MUST  BE  IN  INTFRPRFT I VF  MOD  F AND  OVFIND  MUST  BE  CLEAR 

R0502 
R0503 
R-05a5 

L + l 
L + 2 

RVSW 
T IMERAD 

RETURNS  WITH  PL  AT  6.  THE  INITIAL  POSITION  VECTOR  IS  IN  OD 
THE  INITIAL  VELOCITY  VECTOR  IN  MPAC. 

OF  THE  PUSHLIST  AND 

R0506 
R 05  07 
R05-Q-8.  - 

L+3  STOVL 

L+4  STADR 

L + 5 STORE 

NEWVVFC 
N EWRVFC 

-NEWVV-EC  -AND  NFWRVFC  ARE  SYMBOLIC  REPRESENTATIONS  OF 

THE  USERS  LOCATIONS. 

R0510 

R0511 

L + 6 

CONTINUE 

R 05 1 2 

ABCRT 

EXIT  MODES  - 

R 051 3 

L 

- - CALL 

B ON 

R0514 

L + l 

T IMERAD 

R 05  1 5 

L + 2 

COGAFLAG 

-R-Q-5-1-6-  ■■ 

_ L + 3 

C-OG  ABORT 

. RESTRICTION  1 HAS  BEEN  VIOI  ATFD. 

R0517 

L+4 

BON 

BON 

R0520 

L + 5 

I NF INFLG 

R05-2J 

—L+-6 

.1  MPOS-S-BL  .. 

NO  -SOLUTION  EXISTS. 

R05211 

L + 7 

S CL  NS  W 

RO  521 2 

L+8 

I MPOSSBL 

SOLUTION  IS  UNDEFINED  SINCE  CONIC  IS 

A CIRCLE. 

RESTRICTION  3 HAS  BEEN  VIOLATED. 

R 0-5  2.1  4 . 

-L  + 9 

IF  ALL  THREF  OF  THE  FLAGS  A P F CLEAR. 

A SOLUTION 

EX  ISTS,  SO  CONTINUE. 

R0522 

R 052 3 OUTPUT  - 

R0524  * SCALE  FACTOR  * 
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R0525 

R0526 

R05  2 7 — 

R 0 52  8 
R0530 

R-0-532 

R0534 
R 053  5 

RO  5-3.7- 

R0539 

R0541 

RQ54-L.1. 

RO  541 3 
R0541 5 
R.0542 


CONIC  SUBROUTINES 
VARIABLE*IN  POWERS  OF  24 


USER'S  PAGE  NO.  13 


EO  S3 


DESCRIPTION  AND  REMARKS 


T (-3QD  I— *-+2  8 

INFINFLG4  NONE 
4 

-C-G-CAF-L-AG4-  _NONE— 
4 

APSESW  4 NONE 


SOI  NSW 


4DP  TR AN SFF R TIM E_I N-  CENT ISECONDS . 


* A N INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  RDESIRED  AND  SGNRDOT  REQUIRE  CLOSURE  THROUGH 
^INFINITY  (NO  SOLUTION),  CLEAR  IF  A PHYSICAL  SOLUTION  IS  POSSIBLE. 

4AN  INTFRPR.F-T.T_VF.  SWI LCD  WHICH  TS_SEJL_1F  RESTR I CTI ON L_  HAS  BEEN  VIOLATED  (NO  SOLUTION). 

4C  LEAR  IF  NOT. 

* A N INTERPRETIVE  SWITCH  WHICH  IS  SET  IF  PDESIRED  WAS  GREATER  THAN  RADIUS  OF  APOCENTER  OR 
41  FSS  THAN  RADIUS  OF  PFRTC FNTFR.  THE,  APOCENTER  OR  PERICENTER  SOLUTION.  RESPECTIVELY. 
4WILL  THEN  BE  RETURNED.  THE  SWITCH  IS  CLEAR  IF  RDESIRED  WAS  BETWEEN  PERICENTER  AND 

4 A POCENTER. 

4AN  TNTFRPR  FT  I VF  SW ITCH  WHICH  IS  SET  IF  THE  CONIC  IS  SO  CLOSE  TO  A CIRCLE  THAT  THE  TFRMIN 
4 P 0 1 NT  IS  AMBIGUOUS,  VIOLATING  RESTRICTION  3.  IF  ECCENTRICITY  IS  GREATER  THAN  2-TO-THE- 
4MINUS-18,  THE  SWITCH  IS  CLEAR. 


R 0543  IN  ADDITION,  IF  VTARGTAG  IS  NON-ZERO,  THE  FOLLOWING  ARE  OUTPUT  - 


R0544  MP  AC  -4+7  FOR  EARTH  4DP  TERMINAL  VELOCITY  VECTOR  IN  M FTE R S/CE NT  I SEC . 
R0545  MPAC  +5*  +5  FOR  MOON  * 

RO  546 OP  - 5D  4+29  FOR  EAR  TH*  DB-T-E-RM  INAL  P-GSI-T.ION  VECTOR  -IN  METERS  (PI — AT  6D1 

R0547  4 +27  FOR  MOON  4 


— RO 548  FOR  OTHER  OUTPUT  44RICH-MAY-BE— OE-GLSE+—S EE  DEBRIS. 

R0549 


R0550  DEBRIS  - 

R0551 PARAMETERS  WHI-CH--MAY  BE  OF  USE  - 


D E S CRJLP T1D-N  AND  REMARKS 


R0552  4 SCALE  FACTOR  * 

R0553 V-ARIA B-L-E-4- IN  POWERS  OF  24 

R0554  4 — 4 

R0555  R 1 ( 3 2 D ) * +29  FOR  E ART H4DP  MAGNITUDE  OF  INITIAL  POSITION  VECTOR, 
R0557 4— +2 7 FOR  MOON  * 


RVEC  , IN  METERS 


R0558 

R 1 A 

+6 

4DP 

RATIO  OF  R 1 TO  SEMIMAJOR  AXIS  (NEG.  FOR  HYPERBOLIC 

TRAJECTORIES) 

R0560 

P 

* 

*D  P 

RATIO  OF  SEMILATUS  RECTUM  TO  R1 

R 0!>61 

_ Ctf  GA 

_ * 

±5 

COTANOF  ARGLE  BETWEEN  RVEC  AND  V VEC. 

RO  563 

UP  1 

* 

+i 

4DP 

UNIT  VECTOR  OF  RVEC 

R 0564 

U2 

* 

+i 

4DP 

UNIT  VFCTOR  OF  VVEC 

R 0 56-5 

UN- 

❖ 

+i 

*DP 

UNIT  VECTOR  ILF  UR1*U2 

R0566 

C ST  H 

* 

+i 

*DP 

COSINE  OF  TRUE  ANOMALY  DIFFERENCE  BETWEEN  RVEC  AND 

RDES  IPED. 

R 056  8 

SNTH 

❖ 

+i 

4DP 

SINE  OF  TRUE  ANOMALY  DIFFERENCE. 

_RD569 


R 05 70  PARAMETERS  OF  NO  USE  - 

RQ5LZJ SP PARAMETERS  - RTNTT ■ GEOMSGN.  RTNPRM.  MAGVEC?  = R7  (PP).  _PL US,  PUSHLIST  LOCATIONS  0-11D,  14D-21D,  24D-390,  410 

R0573  ADDITIONAL  INTERPRETIVE  SWITCHES  USED  - NORMSW,  360SW 

R0574 
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USER’ S PAGE  NO 

. 14  EO  S3 

P0575 

R0577 

PRCGRAM  DESCRIPTION  - APSIDES  SUBROUTINE 
MCD  NO.  - 0 

DATE  - 1 SEPTEMBER  1967 

LOG  SECTION  - CONIC  SUBROUTINES 

ASSFMBLY  - COLOSSUS  RFVISION  88 

R 058  I 

R0582 

FUNCTIONAL  DESCRIPTION  - 

UFCTDR  r A 1 rill  AT  FS  T.ilF  RADIUS... 

OF  RFR.1CFNTFR  AND 

OF  APnCFNTFR  AND  THF 

R 05  85 
R 05  87 

ECCENTRICITY  OF  THE  RESULTING  CONIC  TRAJECTORY,  WHICH  HAY  BE  A STRAIGHT  LINF, 

CIRCLE,  ELLIPSE,  PARABOLA,  OR  HYPERBOLA  WITH  RESPECT  TO  THE  FAPTH  OR  THE  NOON.  THE  USE  OF 
cvTfunfn  nunr.  nTHFR  PRIMARY  RODIFS  BY  SIMPRE. ADDIT IONS  TO  T HE  MUT  A B_L  F W_I  T.HOUT  INTRODUCING 

THE  SUBROUTINE  CAN  BE 
ANY  CODING  CHANGES, 

R 05  9 1 
R0592 

ACCEPTING  THE  INHERENT  SCALE  FACTOR  CHANGES 

IN  POSITION  AND  VELOCITY. 

R0593 
R 0594 
R0596 

THE  RESTRICTIONS  ARE  - 

1.  IF  APOCENTER  IS  BEYOND  THE  SCALING  OF  POSITION,  THE  SCALE  FACTOR  LIMIT  (536,870,910  METERS  WITH  RESPECT 
TO  THF  FARTH  OR  1 34 . 2 1 7. 7 ?7 . 5 METERS  WITH  RESPECT  TO  THE  MOON)  WILL  BE.REJURNED. 

R0598 

R0600 

2.  THE  PARAMETERS  IN  THE  PROBLEM  MUST  NOT  EXCEED  THEIR  SCALING  LIMITS 
APE  EXCEEDED,  THE  RESULTING  SOLUTION  WILL  BE  MEANINGLESS. 

SPECIFIED  IN  THE 

GSOP.  IF  THF  LIMITS 

R0601 
R 0602 

THE  AGC  COMPUTATION  TIME  IS  APPROXIMATELY  .103  SECONDS. 

R0603 

d 

REFERENCES  - 

_ MJJLRinN.  PRnCLRAMM  T.NG_nF.FLNT  TIJLN  MFMfL.NO. 

10.  LUNAR  LAND..L.NG  M.  I SS  ION  GSQP-S  ECT  I ON  5.5  .. 

R0606 

R 06  07 

INPUT  - ERASABLE  INITIALIZATION  REQUIRED 

R0609 
R 06 1 0 
RQ6J.1 

VARIABLE*IN~POWERS~OF  2* 

DESCRIPTION  AND  REMARKS 

iU/E-C  ..  * +29  FOR_FARTH*DP  IALLTiAL  POSITION 

VECTOR  IN  METERS 

R 06 1 2 
R0613 

R 06 1 4-  _ 

* +27  FOR  MOON  * 

VVEC  * +7  FOR  EARTH  *DP  INITIAL  VELOCITY 

* +5  FOR  MOON  . .*  _ 

VECTOR  IN  MET  ERS /CEN  TI SECOND 

R061  5 
R 06 1 7 

RQ-64-8 

XI  (38D)*NCNE  *INDEX  REGISTER  TO  BE 

* -^RESPECTIVELY,  IS  THF 

SET  TO  -2D  OR  -10D  ACCORDING 
CENTRAL  BODY. 

TO  WHETHER  THE  EARTH  CR  MOON, 

R-044^ 

SUBtf QLT INES  CALL  EC  - 

R0620 
R 062 1 

PARAM,  GEOM 

R0622 

CALLING  SEQUENCE  AND  NORMAL  EXIT  MODES  - 

CAp  ; ASSEMBLE  REVI-S-ION  069  QF-AGC  PROGRAM  LUMINARY  BY  NASA  2021112-041 
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L 

CCMC 

SUBROUTINES 

USER'S  PAGE  NO. 

15  EO  S3 

R0623 
R 0624 

IF 

L 

L + 1 

ONLY  TIME 
CALL 

IS  OESIRED  AS 
A-PSI-D.ES-  - 

OUTPUT  - 
MUST  BE 
_ -RETURNS  . 

IN  INTERPRETIVE  MODE  AND  OVFINO  MUST  BE  CLEAR. 

WITH  PI  AT  0.  RADIUS  OF  APOCENTER  IN  MPAC  AND  RADIUS 

OF  PERTCENTFR  IN  OD 

R 062  8 
R0629 

L + 2 
L + 3 
1 +4 

STODL 
STORE 

APOAPSE 

OD 

PFRTAPSF 

APOAPSE 

AND  PFRIAPSE  AR F SYMBOLIC  REPRESENTATIONS  OF 

THE  USERS  LOCATIONS 

R0632 
R 0 6 3 3 

L + 5 

CONTINUE 

R0634 
- R-0635 

OUTPUT 

A-SCB4E 

-E-ACT OR  * 

R0636  VAR  I ABLE* I N POWERS  OF  2*  DESCRIPTION  AND  REMARKS 

R0637  7 * 

RD63B — . MPAC * -t-?Q  FDR  FARTH*DP.  RADIUS  I1F  APOCFNTER  IN  METERS 

R 0639  * +27  FOR  MOON  * 

R0640  0C-1D  * +29  FOR  EARTHED  P RADIUS  OF  PEPICENTER  IN  MFTERS 


R 0644 — 
R0642 

ECC  * 

+ 2 7— FIJR.  MUtm 

+3 

*DP  ECCENTRICITY  OF  CONIC  TRAJFCTOPY. 

pod  niuco 

-rilTPllT  UHTPH. 

MAY  RF  fl  F IJ  S F . 5LFE  DERR  IS-  

R0644 

R0645 

DEBRIS  - 

R-0646 — 

PARAMETERS  WHICH— 

MAY  BE  OF  USE  - 

R0647  * SCALE  FACTOR  * 

R06  4B VARIABLE*  I-N  POWERS  OF  2* DESCRIPTION  AND  REMARKS 

R 0649  * * 

R0650  R 1 ( 32D) * +29  FOR  EARTH*DP  MAGNITUDE  OF  INITIAL  POSITION  VECTOP,  RVEC,  IN  METERS 

R-0652 *.  .+27  FOR  MOON  * 

R0653  R 1 A * +6  *DP  RATIO  OF  R1  TO  SEMIMAJOR  AXIS  (NEG.  FOR  HYPERBOLIC  TRAJECTORIES) 

R0655  P * +4  *DP  RATIO  OF  SEMILATUS  RECTUM  TO  R1 

R 06  5-6 COGA +5 *D-E COT  AN  0E_AA1GLE  BETWEEN  RVEC  AND  VVEC 

R0658  UR  1 * +1  *DP  UNIT  VECTOR  OF  RVEC 

R0659  U 2 * tl  *DP  UNIT  VECTOR  OF  VVEC 

RD66D  I IN * +1 *DP  UNIT  VECTOR  OF  MR1*U7 

R 066 1 MAGVEC2  * +7  FOR  EARTH  *DP  MAGNITUDE  OF  VVEC 

R0662  * +5  FOR  MOON  * 

RJ3663 


R0664  PARAMETERS  OF  NO  USE  - 

R-0665 SP  PARAMETERS  - R TNAPS  F . GFOMSGN.  RTNPRM.  PLUS  PUSH!  1ST  I DCATIONS  0-5.10D-11D.  14D-21D,  31D-38D. 

R 0667  ADDITIONAL  INTERPRETIVE  SWITCHES  USED  - NORMSW 
R 066  8 


0669 


REF 


1 


12,2000 


SETLOC  CONICS 
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0670 

06-7-L- 

0672 

0678 

QA7-9— 

0680 
0681 
06-82- 

0683 

0684 
PAS  5- 

06  86 
0687 

136  8 8 ■ 

0689 

0690 
06-9-1— 

0692 

0693 

0694 — 

0695 

0696 

06-97— 

0698 

0699 — 

0700 

0701 

07 02 

0703 

0704 

0705 — 

0706 

0707 — 

0708 

0709 

0770— 


07  U — 

0712 

0713 

0714  

0715 

0716 

-0717 

0718 
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12,2000 

BANK 

COUNT* 

ii/T-CNIC  - 

REF 

2 

LAST 

L 4 0 

E 5 , 1721 
12, 2000 
J-7, 2 001 

71201 

ooocll 

1 KEPLERN 

0 - 

E8ANK= 

SETPO 

UR  1 
DLOAD 

_Q 

RFF 

1 

12,2002 

22275 

i 

KEPZERO 

REF 

2 

LAST 

13  1 

12, 2003 

02177 

i 

STORE 

X MOO ULO 

RE-F 

2 

i-AS  I 

13  1 

12,2  0.04 

322.01 

0.  

S TOVL 4 

T MODULO  . 

REF 

3 

LAST 

702 

12,2005 

10005 

0 

MUTABLE, 1 

12,2006 

240  17 

1 

STOVL 

14D 

RFF 

4 

LAST 

718  _ 

12+20-07 

015.03 

0 

RPFCT 

12,2010 

66256 

0 

UNIT 

SSP 

REF 

3 

LAST 

697 

12, 2011 

00027 

1 

1 TER  CTR 

12,-2012 

0002-4 

1 - ... 

POD 

REF 

2 

LAST 

140 

12, 2013 

16647 

0 

STOOL 

UPRECT 

12,2014 

00045 

0 

360 

RFF 

4 

LAST 

65  8 - 

1-2 -,-2  0L5 

24041 

1 

STOVL  1 

REF 

5 

LAST 

1169 

12,2016 

01503 

0 

RPECT 

12,2017 

76441 

1 

DOT 

SL1R 

-R-F-F 

...  3 . 

1 -AS  T 

50  7 

12,  2-02-0 

0151-1 

0 

VE  £C  T 

12, 2021 

76405 

1 

OMP 

S LI  R 

REF 

i 

12,2022 

00023 

0 

1/ROOTMU 

1/ROOTMU  (-17 

OR  -14) 

R£-E 

1 

12,2 023 

-2A0A3-- 

0 -- 

STOVl. 

. KE  PC  1 

C 1 =R. V/RDOTMU 

( +17  OR  + 16  ) 

REF 

4 

LAST 

1169 

12, 2024 

01511 

0 

VPECT 

12, 2 02-5 

-57236 

_J 

VS-Q 

OMPP 

REF 

1 

12, 2026 

00017 

1 

1/MU 

1/MU  (-34  OR 

-28) 

12,2027 

52405 

1 

DM  P 

SI  3 

R-EE- 

5 

LAST 

-L16-9  . 

12-,-2030 

00041 

J 

R 1 

12, 2031 

61425 

0 

OSU 

ROUND 

REF 

i 

12, 2032 

10756 

1 

01/64 

R-EE 

1 

1 2, 2033 

0004-5 

0 

S LOR  EL 

KFPC2 

C 2=  RV • V/MU  -1 

( +6) 

12, 2034 

74421 

0 

BO  SU 

SP1R 

R-EF  - 

2 

LASJ 

11-6-9 

L2-f  203-5- 

10756 

1 

01/ 6 4 

12,2036 

77671 

1 

DOV 

REF 

6 

LAST 

1169 

12, 2037 

00041 

1 

R 1 

REF 1 12+7-040 00011  1 STORE  Al.PHA At.PH A=  1 1— C 2 1 /R 1 1-22  OR  -20) 


-12+-2  041 71-24-4 — 0 BP  L DLOA  D MAXIMUM  X OFPFNOS  ON  TYPF  OF  CONIC 


REF 

REF 

1 

1 

12.2042 

12.2043 
L2,  2044 

240  51 
10774 
- 40071 

0 

1 

0 

ODV 

1RFV 

-50SC 

ROV 

-50SC  (+12) 

REF 

2 

LAST 

1169 

12,2045 

000  11 

1 

ALPHA 

REF 

1 

12,2046 

24055 

1 

STOP  FM AX 

L2,  2 047 

52166 

1 

SORT 

GOTO 

REF 

2 

LAST 

1169 

12,2050 

24055 

1 

STOR  FMAX 
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0719 

0720 

12, 2051 

55366 

1 

1REV 

SORT 

BDD  V 

REF 

1 

12,2052 

10776 

0 

2PISC 

2PISC  (+6) 

17,2053  - 

77600 

_] 

-any 

07  22 

REF 

3 

LAST 

1169 

12, 2054 

24055 

1 

STOR  EMAX 

0723 

REF 

1 

12,2055 

00013 

0 

STOREMAX 

STORE 

XM  AX 

12, 2056 

652  05 

-0— 

JIMP 

pnoi 

0725 

REF 

2 

LAST 

1169 

12, 2057 

00023 

0 

1 /ROOTMU 

0726 

RFF 

3 

LAST 

1169 

12,2060 

00011 

1 

ALPHA 

1 2 ,2-0-6 1 

65301- 

0 

NORM- 

pnm 

0728 

REF 

32 

LAST 

1153 

12, 2062 

00047 

1 

XI 

0729 

12,2063 

56257 

1 

SL* 

DDV 

0730 

1 7, 2064  _ 

-20173 

0 

0 -6,1 

0731 

12,2065 

50000 

1 

30V 

BMN 

073? 

REF 

1 

12,2066 

24112 

0 

MODDONE 

07  3 3 

-REF 

7 

-LAST 

117  0 

12,-2067 

24112 

0- 

MODD  CNF 

M PAC  = PER  I OQ 

0734 

12,2070 

51525 

1 

PER  IODCH 

PDDL 

ABS 

0D=PER IOD 

0735 

REF 

2 

LAST 

130 

12, 2071 

02074 

0 

TAU. 

07  3/i 

12,-2-07-2 

50025 

0 

DSU 

BMN 

0737 

12,2073 

00001 

0 

0D 

0738 

REF 

3 

LAST 

1170 

12,2074 

24112 

0 

MODDCNE 

0739 

12,2-075 

77765 

0 

SIGN 

0740 

REF 

3 

LAST 

1170 

12,2076 

02074 

0 

TAU. 

0741 

REF 

4 

LAST 

1170 

12, 2077 

16074 

0 

STOOL 

TAU. 

074  7 

REF 

2 

1 AST 

1170 

12,-2-100 

00-013 

0- 

..X MA  X _ _ __ 

0743 

12,2101 

77615 

0 

DAD 

0744 

REF 

3 

LAST 

1169 

12,  2 102 

02177 

1 

XMODULO 

0 7A  5 

_RFF 

1 AST 

117  0 

12,2 103 

16177 

1 

STODL 

XMODULQ 

0746 

12,2104 

00001 

0 

0D 

0747 

12, 2 105 

77615 

0 

DAD 

Q74& 

REF 

3 

L ASJ 

-116  9 

1 2t  ? 1 06 

07701  0 

TMDJLULQ 

0749 

REF 

4 

LAST 

1170 

12,2107 

16201 

0 

STODL 

T MODULO 

0750 

12, 2110 

77650 

1 

GOTO 

0751 

R-E-F 

l 

12, 2111  _ 

24070 

0 

PFR I CDCH 

0752 

12,2112 

77601 

0 

MODDONE 

SFTPD 

07525 

12, 2113 

00001 

0 

0 

0-7  5-2-6 

17.2114 

75345 

1 

DLOAD 

S IGN 

07527 

REF 

5 

LAST 

1170 

12, 2 115 

02201 

0 

TMODULO 

07528 

REF 

5 

LAST 

1170 

12,2116 

02074 

0 

TAU. 

_ 07529 

REF 

. .6  - 

LAST 

-ELIO 

12^2117 

02201 

0 

STORF 

TMODULO 

0753 

12,2120 

75345 

1 

DLOAD 

SIGN 

07533 

REF 

5 

LAST 

1170 

12,2121 

02177 

1 

X MOD ULO 

07.5-iS 

- REE.  - - 

6 

LAS-T  1170  - 

12.2122 

025  74 

0 

TAU. 

07537 

REF 

6 

LAST 

1170 

12,2123 

02177 

1 

STORF 

XMODULO 

0754 

12,2124 

77621 

1 

BDSU 

07545- 

-RE-F 

2 

EAST 

13  Q. 

12,-2-125 

02130 

1 

XKFPNEW 

0755 

REF 

1 

12, 2126 

00025 

0 

STORE 

X 

07555 

12, 2127 

53165 

0 

SIGN 

BZE 

0X56 

-REE.  _ 

. 7 

-LA-SI 

_LL7-0 

- 12, 2130 

0 ? 0_7  4 

-Q-. 

TAU. 

07565 

REF 

1 

12,2  131 

24311 

1 

BADX 

0757 

12, 2132 

51440 

0 

BMN 

ABS 
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07575 

REF 

2 

LAST 

1170 

12,  2 133 

24311 

1 

BADX 

0758 

12,2  134 

51025 

1 

osu 

BPL 

P E F 

3 

| AST 

117  0 

12. 2 135 

00013 

0 

XMAX  . 

0759 

REF 

3 

LAST 

117  1 

12,  2 136 

24311 

1 

BADX 

07595 

12,2137 

51145 

0 

STORBNDS  OLOAD 

BPL 

07AO 

RFF 

ft 

1 AST 

1170 

1 2,  7 1 40 

02074 

0 

TAU. 

07605 

RFF 

1 

12, 2141 

24151 

1 

STOR  FMIN 

0761 

12,2 142 

57545 

1 

DLOAD 

DCOM  P 

07A1  ^ R FF 

4 

LAST 

-LI  7 1 

- 12+2.143 

.00.013 

0 

XMAX 

0762 

REF 

i 

12,  2 144 

14015 

0 

STOOL 

XMIN 

07625 

REF 

2 

LAST 

1169 

12, 2 145 

22275 

1 
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12, 2415 
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12,2442 
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12,2443 
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.0 
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12,2453 
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. 026268812 
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0 
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0975 

12, 2506 

33641 

1 

0976 

12,2507 

77451 

l 

2DEC 

-.01 3081923 

0936  ... 

17, 2510 

65233 

0 

0977 

12, 2511 

00055 

1 

20EC 

. 002  806389 

0977 

12,2512 

37266 

1 

0-9X8 

12. 2513 

77767 

1 

7DEC 

-.000529414 

0978 

12, 2514 

52336 

0 

0979 

REF  220 

LAST 

1176 

12,2515 

0 6036 

1 

TC 

INTPRET 
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0980 

0981 

12. 2516 

12.2517 
1 7,  7 570 

53605 
00001 
71  574 

1 

0 

1 

DM  P 

SRR  * 

OD 

_0  -5  ,1  - 

PL  AT  0 

0983 

REF 

3 

LAST 

1174 

12, 2521 

00035 

1 

STORE 

XSQC  (XI ) 

X SQC ( X I ) (+33  OR  +31) 

0984 

12,2522 

72405 

0 

DMP 

SL1 

RFF 

2 

1 AST 

116  9 

12, 2523 

00043 

0 

K F PC  1 

0986 

12, 2524 

65234 

1 

RTB 

PDDL 

XCH  WITH  PL.  0D=C1  XSQ  C ( X I ) (+49  OR  +46 

0987 

REF 

9 

LAST 

1145 

12, 2525 

21537 

0 

TPMODE 

PL  AT  0,3 

nopR 

_12,  2526 

53605 

1 

DMP 

SRR* 

0989 

REF 

4 

LAST 

1176 

12,2527 

00033 

1 

S < X I ) 

0990 

12, 2530 

21574 

1 

0-5,1 

nqo  1 

12, 2531 

72405 

-0  - 

DMP 

S L 1 

0992 

REF 

2 

LAST 

1169 

12,2532 

00045 

0 

K E PC  2 

0993 

12, 2533 

652  34 

1 

RTB 

PDDL 

3D=C2  XSQ  SIXII  (+35  OR  +33)  PL  AT  6 

09  9-4 

RFF 

LD 

LAST 

11  7 7 

12,  2 534 

_ 2L537 

-0  - 

t pm  on  _ 

0995 

REF 

8 

LAST 

1173 

12,2535 

00041 

1 

R 1 

0996 

12, 2536 

76261 

0 

SR 

TAD 

PL  AT  3 

0997 

12 , 253 7 

20-6  0 7 

_1 

6 

0998 

12,2540 

41301 

0 

NORM 

DMP 

TO  PRESERVE  SIGNIF. 

0999 

REF 

36 

LAST 

1174 

12, 2541 

00047 

1 

XI 

1000 

REF 

JL8 

LAST 

11  7 4 

12, 2542 

00025 

0 - 

X 

1001 

12,2543 

762  5 7 

0 

SR* 

TAD 

X ( C2  XSO  S ( X I ) +RI)  (+49  OR  +46)  PL  AT  0 

1002 

12,2544 

20576 

1 

0-3,1 

1003 

12j2545 

57232- 

0 _ 

SL4R 

DMPR 

1004 

REF 

4 

LAST 

1174 

12,2546 

00023 

0 

1/POOTMU 

1005 

REF 

10 

LAST 

1174 

12, 2547 

00037 

0 

STORE 

T 

1-CL0-6  - 

1 7,2550 

776  1 6 

J) 

SM 
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1007 

12, 2551 

71214  0 

ITERATOR 

BONCLR 

DLOAD 

1008 

REF 

1 

12,2552 

00614  1 

SL3PESW 

17,7 553 

24621  1 

FIRSTIME 

1010 

REF 

1 

12,2554 

00037  0 

DEP 

1011 

12,2555 

60225  1 

DSU 

NORM 

3 

| ART 

1 40 

12, 2556- 

0276 2 0 

DFPREV 

1013 

REF 

37 

LAST 

1177 

12, 2557 

00047  1 

XI 

1014 

12, 2560 

60325  0 

POOL 

NORM 

10  15 

RTF 

1 

1 2, 2561 

00015  _Q 

DEL  I NPEP 

1016 

RFF 

25 

LAST 

1174 

12,2562 

00050  1 

X 2 

1017 

12, 2563 

41260  0 

XSU,  1 

DMP 

i ai  ft 

REF 

2-6 

L-AST 

1 1 7 8 

1 7,2  564 

00047  1 

X? 

1019 

REF 

3 

LAST 

140 

12,2565 

02760  1 

DELDEP 

1020 

12,2566 

56257  1 

SLR* 

DDV 

PL  UP  2 

1071 

12,2567 

21202  1 

1 , 1 

1022 

12,2570 

43142  1 

SRI 

BCFF 

1023 

REF 

1 

12,2571 

04351  1 

ORDF  PSW 

p F F 

1 

12+2  572 

24575  0 

SGNCHECK 

1025 

12,2573 

75246  0 

ABS 

S IGN 

IN  CASE  2ND  DERIV.  CHANGED  SIGN,  MUST 

1026 

REF 

4 

LAST 

1178 

12, 2574 

02760  1 

DELDEP 

DISREGARD  IT  TO  FIND  MIN. 

1027 

12, 2575 

51006  0 

SGNCHECK 

PUSH 

BPL 

TRIAL  DEL  I NDEP  PL  DOWN  2 

1028 

REF 

1 

12,2576 

24633  1 

P OS D EL 

102-9 

1 2, 2577 

43145  0 

DJLOAD 

BON 

1030 

REF 

1 

12, 2600 

02766  1 

INDEP 

1031 

REF 

2 

LAST 

1178 

12, 2601 

04311  0 

OPDF  RSW 

10  32 

-R-E  F _ 

1 

_ 12,2602- 

24604  0 

MINCHFCK 

1033 

REF 

1 

12,2603 

00017  1 

STORE 

MAX 

IF  NOT  2ND  ORDER,  CAN  MOVF  MAX  BOUND  IN. 

1 0 3-4  - 

1 7^-76  04 

452-71  1 

MINCHFCK 

&DSU 

_QSli— 

1035 

REF 

1 

I2i 2605 

00011  1 

MIN 

1036 

12,2606 

51000  0 

BOV 

BPL 

1 

1 ?,  7 607 

24613  0 

MC1DN  GDFI 

1038 

REF 

2 

LAST 

1178 

12, 2610 

24613  0 

MODNGDEL 

103  9 

12,2611 

77650  1 

GOTO 

1-040 

-REF 

12,-2  612  _ 

24645 0 

DELOK 

1041 

1 ?, 2613 

453  45  1 

MODNCDFL 

n|  riAp 

n rm 

TRTAI  H F 1 T Nn  F P WHIHD  F X CF  Ff")  MTN  ROUND 

1042 

REF 

2 

LAST 

1178 

12, 2614 

00011  1 

MIN 

1043 

REF 

2 

LAST 

1178 

12,2615 

02766  1 

INDEP 

1044 

12,-2616 

52005  0 

DM  P 

GOTO 

1045 

REF 

3 

LAST 

1173 

12,2617 

10772  1 

DP9/  10 

1046 

REF 

1 

12, 2620 

24647  1 

NEWDEL 

1047 

12,2621 

41345  0 

FIRSTIME 

DLOAD 

DMP 

_ 1048 

R£F  - 

3_ 

LAST. 

117  8 

12,2622 

00011  1 

MIN 

1049 

REF 

1 

12, 2623 

00051  0 

TWEEKIT 

DLOAD  TWEEKI T ( 40D ) SENSITIVE  TO  CHANGE. 

1050 

12,2624 

41325  0 

DDDL 

DMP 

S2I4ID)  SHOULPNT  CONTAIN  HI  ORDER  ONES 
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1051 

1052 

REF 

REF 

2 

2 

LAST  1178 
LAST  1178 

12. 2625 

12.2626 
1Z,_2  7)2  7 

00017 

00051 

77675 

1 

0 

0 

...  DSU 

MAX 

TWEEKIT 

10  54 

12, 2630 

52165 

1 

SIGN 

GOTO 

1055 

REF 

5 

LAST  1178 

12,2631 

02760 

1 

D ELD  FP 

| A<LT  1 1 7 P 

1 2 ,2  632 

R4575 

0 

SGNCHECK 

1 ?T  ? 4^ 

_ ^J.45  _Q 

POSDFL  DLOAD 

ami 

1058 

REF 

3 

LAST  1178 

1 2 t 2 634 

02766 

1 

I NDEP 

1059 

REF 

3 

LAST  1178 

12, 2635 

04311 

0 

ORDE  PSW 

id  An 

P Fp 

1 

124-263.6 

.24640 

XL 

M AX  C HECK 

1061 

REF 

4 

LAST  1178 

12,2637 

00011 

1 

STORE 

MIN 

IF  NOT  2ND  ORDER,  CAN  MOVE  MIN  BOUND  IN. 

1 ? » 2 64Q  - 

45221 

1 

- -MAX  CHECK  BD-S-U 

_osu_ 

1063 

REF 

3 

LAST  1179 

12,2641 

00017 

1 

MAX 

1064 

12,2642 

50000 

1 

BOV 

BMN 

\ n^s 

RFF 

1__ 

12x2.643 

246  51 

0 

MODPSDEL 

1066 

REF 

2 

LAST  1179 

12,2644 

24651 

0 

MODPSDEL 

1067 

12, 2645 

77745 

1 

DELOK  DLOAD 

1-063 

1 2, 7646 

000.0J_ 

0 

OD 

1069 

RFF 

2 

LAST  1178 

12, 2647 

00015 

0 

NEWDEL  STORE 

DEL  I NDEP 

1070 

12, 2650 

776  16 

0 

RVQ 

1071 

12,2651 

45345 

1 

MODPSOEL 

DLOAD 

DSU 

1 072 

REF 

4 

LAST 

117  9 

1 2 >-2  6 52 

ODO  17 

1 

MAIL 

1073 

REF 

4 

LAST 

1179 

12, 2653 

02766 

1 

INDEP 

1074 

12,2654 

52005 

0 

DMP 

GOTO 

1075 

RIF 

4 

-LAST- 

117  8 

12,-2-65-5 

-107  72- 

l 

D P9 / 10 

1076 

REF 

2 

LAST 

1178 

12,  2656 

24647 

1 

NEWDEL 

1077 

REF 

125 

LAST 

1122 

12,2657 

4 4753 

0 

CHECKCTR 

CS 

ONE 

1078 

REF 

52 

LAST 

110  3 

12,2660 

50  120 

1 

INDEX 

F I XL  DC 

1079 

R.EF 

4 

LAST 

116l9 

12x2  6.61 

6.0026. 

0 

AD 

I TERCTP 

1080 

REF 

53 

LAST 

1179 

12, 2662 

50  120 

1 

INOEX 

F I X L OC 

1081 

REF 

5 

LAST 

1179 

12, 2663 

54  026 

1 

TS 

I TER  CTR 

1082 

RFF 

.7  0.9  . 

.LAST 

11.4  6 

12x2664 

54  154 

0 

TS 

MPAC 

ioe3 

RFF 

55 

LAST 

108  9 

12,2665 

0 6060 

1 

TC 

DANZ  IG 
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1084 

12, 2666 

44545 

0 

NFWSTATE  DLOAD 

SR4R 

1085 

REF 

9 

LAST 

117  7 

12,2667 

00041 

1 

R 1 

12,2670. 

74225 

_1_ 

DSU  - 

--VXSC 

1090 

REF 

4 

LAST 

1177 

12,2671 

00035 

1 

XSOC  (XI ) 

1091 

REF 

3 

LAST 

1169 

12, 2672 

02722 

1 

UR  1 

1 2, 2673 

653  72- 

JL 

V.SL1 

pjm 

1093 

REF 

19 

LAST 

1177 

12,2674 

00025 

0 

X 

1 094 

12,2675 

60316 

0 

OSO 

NORM 

1 0 9.5 

REF 

35 

LAST 

1178 

12,2676 

00047 

-1— 

XI 

1096 

12,2677 

57275 

0 

DMPR 

OMPP 

1097 

REF 

5 

LAST 

1177 

12,2700 

00023 

0 

1/ROCTMU 

P EF 

?o 

J AST 

LI  8 0 

L2-,  2 JO  1 

00025 

0 

-X  _ _ 

1099 

12,2702 

53605 

1 

DMP 

SRP* 

1100 

REF 

5 

LAST 

1177 

12,2703 

00033 

1 

SIX1I 

1 7,2704 

215  72 

1 

0.  -7-,  1 

1102 

12,2705 

77621 

1 

BDSU 

1103 

REF 

11 

LAST 

1177 

12, 2706 

00037 

0 

T 

1 1 04 

12,2707 

74352 

0 

SL1 

vxS-C. 

1105 

REF 

10 

L AST 

737 

12,2710 

02744 

1 

VVEC 

1106 

12, 2711 

53372 

1 

VSL1 

V AD 

1107 

12,-2.712 

415  12 

VSL4  - 

PUSH 

HOB 

12, 2713 

77646 

0 

ABVAL 

1109 

12,2714 

77701 

1 

LAMENTER  NORM 

11  LQ 

REF 

19 

LAST 

c 

cc 

12, 2715  - 

0004.7 

1 

XI  — 

1 1 1 1 

REF 

i 

12,2716 

16720 

0 

STOOL 

R2 

1112 

REF 

4 

LAST 

1176 

12,2717 

00031 

0 

XI 

11 13 

12^.2720 

45205 

1 

DMP 

DSU 

1114 

REF 

6 

LAST 

1180 

12,2721 

00033 

1 

S 1 X I ) 

1115 

REF 

2 

LAST 

1174 

12,2722 

10754 

0 

Dl/128 

] 1 1 h 

12,  2 723 

764X15 

1 

OMP 

SLIP 

1117 

REF 

2 

LAST 

1174 

12,2724 

00021 

1 

R POT  MU 

1118 

12,2725 

53605 

1 

DMP 

SLR* 

1119 

R FF 

-21 

LAST 

..XI  8 0 

12  ,-22126 

00Q25 

0 

1120 

12,2727 

21176 

1 

0 -3,1 

1121 

12,2730 

74271 

0 

DDV 

VXSC. 

1 122 

REF 

? 

LASI 

-118.0 

- 12,2731 

0272.0 

0 

R 2 

1123 

REF 

4 

LAST 

1180 

12,2732 

02722 

1 

UR  1 

1124 

12,2733 

65372 

1 

VS  L 1 

PDDL 

1125 

- R£F  _ 

5 

1 AST 

1180 

—12, 2734 

0D0  3 5 

1 

XSOC  (XI  ) 

1126 

12, 2735 

56257 

1 

SLR* 

DDV 

1127 

12,2736 

21175 

1 

0 -4,1 

1 128_ 

RFF 

3 

1 AST 

_11 8 0 

1_2, _2  73  7 

02720 

0 

R 2 

1129 

12,2740 

77621 

1 

BDSU 

1130 

REF 

2 

LAST 

1174 

12,2741 

10770 

0 

Dl/256 

1131- 

12,2742 

53361 

0 

VX  SC 

VAD 

1132 

REF 

11 

LAST 

1180 

12,2743 

02744 

1 

VVEC 

1133 

12,2744 

43412 

1 

VSL8 

R VO 

D 1 1 

0D=(R1-XS0CI XI ) )UR1  1+33  OR  31)  PL  AT  6 


PL  AT  0 


6 0=V  2VEC  PART  (+15  OR  13) 


PL  AT  12 


PL  AT  6 
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1135 

REF  3 LAST  60 

04,2000 

SETLOC  C0NICS1 

1136 

04,2750 

BANK 

1137 

REF  2 LAST  60 

TO  61  : 

16 

16* 

COUNT*  $ $/C  ONI C 

R 1 1 38 

DO  NOT  D I STURB  THE 

ORDER  OF 

THESE  CDS, 

OVERL  AYS 

HAVE  BEEN  MADE. 

04  f 7 7^0 

000  00 

1 BEE  17 

DFC  0 

. KEEP 

WITH  Dl/8  2 DEC  1 

. OB- 17 

( 0000004000) 

1140 

04, 2 751 

04000 

0 

Dl/8 

2DEC  1.0  B— 3 

1140 

04,2752 

00000 

1 

04 , 2 753 

00200 

n 

- Dl/ 123 

2D EC  1.0  B— 7 . . 

1141 

04,2754 

00000 

i 

1142 

04, 2 755 

00400 

0 

Dl/64 

2DEC  1.0  B— 6 

1 1 47 

04. 2 756_ 

00000 

1 

1143 

04,2757 

10000 

0 

Dl/4 

2DEC  1.0  B— 2 

1143 

04,2760 

00000 

1 

1 1 44__ 

04,2761 

-02  000. 

_a 

Dl/ 16 

.2DEC  1.0  B— 4 

1144 

04,2762 

00000 

l 

1145 

04,2763 

01000 

0 

Dl  / 32 

2DEC  1.0  B-5 

1 1 4J> 

-04,2  764 

00000 

1 

1146 

04,2765 

00020 

0 

01/ 1024 

2DEC  1.0  B-l 0 

1146 

04, 2 766 

00000 

1 

H47 

04,  2-767 

00100  0 

Dl/ 2 56 

..  2D.EC  1 .0  P-P  _ - 

1147 

04, 2 770 

00000 

1 

1148 

04,2771 

346  31 

1 

DP9/10 

2DEC  .9 

1 1_4£ 

0 4,  2-7-72 

-23146 

_0_ 

1149 

REF  4 LAST  336 

11,2274 

KEPZERO 

EQUALS  L 06  Z EROS 

1150 

04, 2773 

77467 

1 

-50  SC 

2DEC  -53. 0 B— 12 

11-5-0 

04,2-774 

77777 

0 

1151 

04,2775 

03110 

1 

2PISC 

2DEC  6.28318530  B-6 

1151 

04,2776 

17665 

1 

_ 11-5-2 

iULF  _L 

04,2762 

_3_EEJL9 

EQUALS  Dl/32  -1 

2 DFC 

1.0  B— 19  (00000 

01000) 

1153 

REF  3 LAST  1180 

04, 2766 

BEF22 

EQUALS  Dl/256  -1 

2 DEC 

1.0  B — 2 2 (00000 

00100) 

1154 

04, 2777 

00000 

1 

ONEBIT 

2DEC  1.0  B-28 

1154 

- 04,3-000 

0 0-0-0  L- 

0 

1155 

04,3001 

37767 

0 

COGUPL I M 

2DEC  .999511597 

1155 

04,3002 

37737 

0 

gj*  1 ^ 

04 ,3.0-03- 

40010 

_1 

cnr.i  m tm 

2J0-EC  -.999511  597 

1156 

04,3004 

40040 

1 

P 1 1 57 
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1158 

REF 

2 

LAST 

1 L 6 8 

12,2000 

SETLOC 

CONICS 

1159 

12,2745 

BANK 

1160 

REF 

2 

LAST 

1169  TO 

1181 : 

485  485* 

COUNT* 

* I/CONIC 

1161 

12,2745 

40220 

0 

TIMETHET 

STQ 

SETPD  PL 

AT 

0 

1 

12,-2746- 

02710 

0- 

RTNTT  

1163 

12,2747 

00001 

0 

0 

1164 

12,2750 

63375 

0 

VLOAD 

PDVL  SETUP  FOR  PAR  AM  CALL  PL 

AT 

6 

R-EF 

g 

J 

7 37 

12  ,-2  751 

026  55 

_Q 

RVFC 

1166 

REF 

12 

LAST 

1180 

12,2752 

02744 

1 

VVEC 

1167 

12,2753 

77624 

1 

CALL 

1 1 6_R 

REF 

1 

1 2 1_2  7 54- 

11005 

1 

PAR  AM 

1169 

12,2755 

45000 

0 

BOV 

CALL  PL 

AT 

0 

1170 

REF 

1 

12,2756 

24775 

1 

COGAOVFL 

1171 

-REF 

1 

12,7757 

25000 

0 

GET*  

1172 

12,2760 

43145 

0 

COMMNOUT 

□LOAD 

BON 

1173 

REF 

5 

LAST 

1180 

12,2761 

00031 

0 

XI 

1174 

R-EF 

1 

12,-2762_ 

04310 

1 

I NF I NFLG 

1175 

REF 

2 

LAST 

1182 

12,2763 

02710 

0 

RTNTT 

1176 

12, 2764 

45014 

0 

CLEAR 

CALL 

1177 

_rff 

J. 

12,2765 

042  73 

-0 

COGA  FLAG 

1178 

REF 

2 

LAST 

117  1 

12,2766 

24434 

1 

DEL  T IME 

1179 

12, 2767 

45014 

0 

BON 

CALL 

1 1 80~ 

REF 

_7 

E-AST 

73  7 

I,?  ,-2-7  70 

03  706 

0- 

RVSW 

1181 

REF 

3 

LAST 

118  2 

12,2771 

02710 

0 

RTNTT 

1182 

REF 

1 

12,2772 

246  66 

1 

NFWSTATE 

1 1 8-3- 

1.2,  2 773 

77650- 

1 

GOTO 

1184 

REF 

4 

LAST 

118  2 

12,2774 

02710 

0 

RTNTT 

1185 

12,2775 

77614 

1 

COGAOVFL  SETGO 

1186 

REF 

2 LAST  LI  8 2 

12,2776 

04033 

0 

COGA FLAG 

-1-1-87- 

— S-EE — 

— 5 LAST -11-3  2 

12, 2777 

02710 

_Q_ 

RTNTT 

GAP 
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3JL83 


L CCNIC  SUBROUTINES  USER'S  PAGE  NO.  30  F5  S3 


11872 

04,3005 

BANK 

4 

11874 

REF 

4 

LAST 

118  1 

04,2000 

SETLOC 

CONICSl 

04  , 3 005 

BA.NK  _ 

11878 

REF 

3 

LAST 

118  1 TO 

1182: 

29 

454 

COUNT* 

$i/CON!C 

1188 

04, 3005 

43020 

1 PARAM 

STQ 

CLEAR 

MPAC=V1VEC,  0D=RI VEC 

PL 

AT 

6 

1 1 RP 

2 

L AST 

1 4f 

04^  T006 

02753 

1 

RTNPRM 

1190 

REF 

5 

LAST 

783 

04,3007 

03665 

1 

NORMSW 

11901 

04,3010 

776  14 

1 

CLEAR 

1 1 90? 

RE-E 

3- 

east 

_L18  2 _ 

04, 301 1 

042  73 

0 . 

COGAFLAG 

1191 

04,3012 

45131 

0 

SSP 

CALL 

1192 

REF 

3 

LAST 

697 

04,3013 

02673 

1 

GEOMSGN 

]4 

04-1-3  01 4 

27777 

0 _ . . 

_ 3.7777 

GAMMA  ALWAYS  LESS  THAN  180DEG 

1194 

REF 

1 

04, 3015 

11051 

0 

3F0M 

MPAC  = SNGA  (+1),  0 D=CS  G A (+1) 

PL 

AT 

2 

1195 

04,3016 

14045 

0 

STOOL 

36D 

360=S IN  GAMMA  ( +1  ) 

PL 

AT 

0 

1 1 96 

-0-4,3  017 

562  6-L 

J 

_ SP  ...  _ 

DDV 

1197 

04,3020 

20606 

0 

5 

1 

04,3021 

00045 

Q_  - - 

86n 

1199 

REF 

2 

LAST 

140 

04, 3022 

32766 

1 

STOVL* 

COG  A 

1200 

REF 

4 

LAST 

116  9 

04, 3023 

10005 

0 

MUTABLE, 1 

12-Q-L 

R-E-E 

_ 2- 

LAST 

1.1-6. 9 . 

04,3024 

14017 

1 

STOOL 

1 / MU  . 

1202 

REF 

3 

LAST 

140 

04, 3025 

02720 

0 

MAGVEC2 

1203 

04,3026 

60316 

0 

OSQ 

NORM 

1204 

-REF 

_40 

LAS.T. 

118J3 

-04,3  023 

Q OOA2 

1 - 

XI 

1205 

04, 3030 

41275 

1 

DMPR 

OMP 

1206 

REF 

3 

LAST 

1183 

04,3031 

00017 

1 

1/MU 

1207 

REE 

1-0- 

—LAST 

U 8 C 

04,3032 

00041- 

1 

R] 

1208 

04, 3033 

77657 

0 

SRR* 

1209 

04,3034 

215  76 

0 

0 -3,1 

12 1-0— 

04,-3035 

442-06 

0 

PUSH 

RQSJJ 

0 D=R l V1SQ/MU  ( +6 ) 

PI 

AT 

2 

1211 

REF 

2 

LAST 

118  1 

04,3036 

10764 

0 

D 1 / 3 2 

1212 

REF 

3 

LAST 

65  8 

04,3037 

16742 

1 

STODL 

R 1 A 

R 1 A (+6) 

PL 

AT 

0 

1213 

04, 3040 

60205 

0 

OMP 

NORM 

1214 

04,3041 

00045 

0 

3 60 

1215 

- REE 

41 

IASI  1183  _ 

Q 4 , 3 042-  - 

00047 

-1 

XI 

1216 

04, 3043 

53605 

1 

DMP 

SR* 

1217 

04, 3044 

00045 

0 

3 60 

121-8- 

_04,3  045 

20575 

1 

J)  -4,1 

1219 

REF 

4 

LAST 

64  5 

04, 3046 

02740 

0 

STORF 

P 

P (+4) 

1220 

04,3047 

77650 

1 

GOTO 

1221 

-REE- . 

3 

LAST 

1183 

Q4U05-0 

02753 

1 

RTNPRM 

GA_p  ; A^Mt€-RWS-I-GN-a6-9-Sf-  A-G4^4aMM-UW4-TOY^  BY  NASA — 20  211  1^011 
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L 

CCMC 

SUBROUTINES 

USER'S  PAGE  NO.  31  E5  S3 

1225 

04,3051 

77656 

1 

GEOM 

UNIT 

M PAC=V 2VEC , 0D=R l VFC  PL  AT 

6 

1226 

REF 

2 

LAST 

140 

04,3052 

16712 

1 

STOOL 

U2 

U 2 ( + 1) 

04*  3053 

00045- 

0 

360 

1228 

REF 

4 

LAST 

113  3 

04, 3054 

26720 

0 

STOVL 

MAGVEC2 

PL  AT 

0 

1229 

04, 3055 

77656 

1 

UNIT 

l ftC  T 

1J  8 0 

0 4 ,-3-05-6 

027  22 

JL- 

-STORE. 

-URL 

UR1  < +1) 

1231 

04,3057 

72441 

0 

DOT 

SL1 

1232 

REF 

3 

LAST 

1184 

04, 3060 

02712 

1 

U2 

] ? 88 

04,3  061 

77725  1 

POOL 

OD=CSTH  (+1)  PL  AT 

2 

12  34 

04,3062 

00045 

0 

36D 

1235 

REF 

11 

LAST 

11  8 3 

04, 3063 

24041 

1 

STOVL 

R 1 

R 1 1+29  OR  +27) 

1 ? 

R F F 

5 

-LAST 

11  8 4 

_04*3_Q64  . 

..  02722_  1 

-JPL— 

1237 

04, 3065 

76435 

1 

VXV 

VSL1 

1238 

REF 

4 

LAST 

1184 

04, 3066 

02712 

1 

U2 

] ? 8Q 

_Q4,3H67 

752  14. 

-1 

RON 

SIGN  _ 

1240 

REF 

6 

LAST 

1183 

04,3070 

03705 

0 

NOR  NSW 

1241 

REF 

1 

04, 3071 

11103 

0 

HAVENORM 

1 242 

P FF 

4 

LAST 

1183 

- 04*  3 0J2 

02673 

1 

GFOMS-GN  .. 

1243 

04,3073 

40056 

0 

UNIT 

BOV 

1244 

REF 

i 

04,3074 

11101 

1 

COL  I NEAR 

1 2 4 5 

R F F 

4 

L-AS  T 

-6  9 6 

04,  3075 

166  74 

0 

.UNIT  NORM 

STODL 

UN 

UN  ( + 1) 

1246 

04,3076 

00045 

0 

36D 

1247 

04, 3077 

43  5 65 

0 

SIGN 

R VO 

M PAC  = SNTH  (+1),  34D=SNTH. SNTH  (+2) 

1248 

_REF  _ 

5 

-LAST 

1 184 

_Q4 ,810  o 

02673- 

1 

geo_ms-.cn 

] 24Q  - 

-04-,  810  1 

52162 

0 

COL INFAR 

VSR  1 

-GUT-P— 

1250 

REF 

i 

04  j 3102 

11075 

0 

UNITNORM 

1251 

04,3103 

75246 

0 

HAVENORM 

ABVAL 

SIGN 

1252 

REF 

6 

LAST 

11  84 

04,3104 

02673 

1 

GEPMSGN 

— L2-53- 

QA  Ji 05.  . 

77616 

0 

RVQ 

M PAC=  SNTH  1 + 1),  34D=SNTH.  SNTH  (+2) 
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L 

CCNIC 

SUBROUTINES 

USER'S  PAGE  NO.  32 

E5  S3 

12  54 
1255 

RFF 

3 LAST  1182 

12,3000 

12,2000 

BANK 

SETLOC 

1 2 

CONICS 

1256 1-2,3  000 BANK 


12565 

REF 

3 

LAST 

1 182 

TO  1183: 

27  512* 

COUNT* 

/CCNIC 

] ? T toplo 

66374 

1 OFT  X AXT.2 

_SS  P 

- - A-S-SUPES  P 1 + 4)  IN  PPAC 

1258 

12,3001 

00003 

i 

3 

1259 

REF 

26 

LAST 

1150 

12,3002 

00052 

0 

S2 

1 2 » 3-00  3 

00001 

0 

1261 

12,3004 

77614 

i 

CLEAR 

1262 

REF 

1 

12, 3005 

04276 

0 

360SW 

1 ?T  3006 

65366 

L 

SORT 

porL 

0 0=  SORT  I P ) 

PL  AT 

2 

1264 

REF 

6 

LAST 

73  7 

12,3007 

02732 

0 

CSTH 

1265 

12,3010 

44342 

1 

SRI 

BDSU 

] ? 6A 

-REP 

2 

[ AST 

3-6 

12,  3G-L-1 

107-60- 

1 

Dl/4 

1267 

12,3012 

54325 

1 

PDDL 

SRR 

PL 

AT  4 D 

1268 

REF 

8 

LAST 

737 

12,3013 

02730 

1 

S NTH 

12-6.9 

- 12,  3-G-1A 

21-607 

0 

6 

1270 

12, 3015 

77671 

1 

DOV 

PL 

AT  2 

1271 

12,3016 

77600 

1 

BOV 

12  72 

_RFF 

1 

L2.J-017 

25133 

-1— 

360CHECK 

1273 

12, 3020 

41225 

1 

DSU 

DPP 

1274 

REF 

3 

LAST 

1183 

12,3021 

02766 

1 

COGA 

PL  AT 

0 

L2JJL5 

L2-,30l22-  - 

40132 

OL- 

S12R 

-BP-V 

1276 

REF 

2 

LAST 

118  5 

12, 3023 

25133 

i 

360CHECK 

1277 

12, 3024 

634  06 

0 WLOOP  PUSH 

DSO 

0 D=W  (+5) 

PL  AT 

2 

12  78 

_ -1 2 » 332  5 

653-51- 

0 

TLOAD 

pnm- 

2DiWSQ-(+I0) 

PL  AT 

5 

1279 

REF 

710 

LAST 

1179 

12, 3026 

001  55 

0 

MPAC 

1280 

REF 

4 

LAST 

11  83 

12,3027 

02742 

1 

R 1 A 

1284 

12 » 3 03  0 

762-02- 

-0 

SR  4 

TAEL 

PL 

AT  2 

1282 

12,3031 

75440 

0 

BMN 

SORT 

1283 

RFF 

i 

12, 3032 

25216 

0 

I NF I NITY 

12  84 

12,  3033- 

433  0 6 

0 

ROUND 

DAO 

PL 

AT  OD 

1285 

12,3034 

61000 

0 

BOV 

T I X , 2 

1286 

REF 

i 

12, 3035 

25131 

0 

RESETX? 

1287 

-REF- 

i_ 

12. 3036 

25024 

_Q 

Kl  OOP 

12  89 
1290 

1-2-94 

REF 

REF 

3 

2 

LAST 

LAST 

1130 
11  85 

12. 3040 

12.3041 
12, 5042  - 

10754 

25216 

41440 

0 

0 

1 

POL YCOEF  BMN 

Dl/1 28 
INF  I NITY 
PILS-H 

0D=1/W  l + 2 ) OR  16/W  (+6) 

PL  AT  2 

1292 

REF 

3 

LAST 

1185 

12,3043 

25216 

0 

I NF  I NITY 

1293 

12,3044 

77716 

1 

DSO 

1-294 

12  f 3-045 

413  01 

Q 

NORM 

OMP 

1295 

REF 

42 

LAST 

1183 

12, 3046 

00047 

i 

X 1 

1296 

REF 

5 

LAST 

1185 

12,3047 

02742 

i 

R 1 A 

12-9  7 

12, 3050 

77457 

i 

S-RR*  - 

_EX  ILL 

12.3051  21567  0 

12.3052  0 7221  1 


1298 

1299 


REF 


6 LAST  1176 


TC 


0 - 1 OP, 1 
POLY 


— gap; — 
L 

ACC  cum  c DCWTCIflM  HAG  nir  A r.r  ODnCDAM  I LI  M T MARY  RV 

WAU  9Q  711JJMI1  1 - 1Q:07  NDV-  7 5.1963 

-SKJ-PPEfi-  . 

070  PAGE  1186 

CCNIC  SUBROUTINES 

USER'S  PAGE 

NO.  33 

E 5 S3 

1300 

12,3053 

00005  1 

DEC 

5 

1301 

12,3054 

20000  0 

2DEC 

. 5 

12*3  Q5  -5 

00000  L 

1302 

12, 3056 

72525  0 

2DEC 

-.166666770 

1302 

12,3057 

52471  1 

13Q3_ 

1 2.3060 

03146  1 

- . 2 DEC 

. 100000392 

1303 

12,3061 

15003  0 

1304 

12,3062 

75556  0 

2DEC 

- .07 1401 086 

13-04 

12,  3063 

-45210-  0 _ 

1305 

12,3064 

01615  1 

2DEC 

. 055  503292 

1305 

12,3065 

13553  0 

130-6 

12,3066 

76371 0- 

2D  EC 

- .047264098 

1306 

12,3067 

63777  o 

1307 

12,3070 

01232  0 

2DEC 

. 040694704 

1 3-D  7 

- 12, 3071 

27367  0 

i3oe 

REF  22 1 LAST  1176 

12,  3072 

0 6036  1 

TC 

INTPPET 

1309 

12, 3073 

76405  1 

DMP 

SLIP 

PL  AT  00 

1310 

12,3074 

43006-  0 - 

PUSH  - 

-BEN 

1311 

REF  2 LAST  118  5 

12,3075 

04316  1 

360SH 

1312 

REF  1 

12,3076 

25203  1 

TRUE  360X 

13-1  3_ 

12,-3077 

60316.  0 XCOMMON 

DSQ 

NORM 

1314 

REF  43  LAST  1185 

12,  3100 

00047  1 

X 1 

1315 

12,3101 

53605  1 

DMP 

SRR* 

-1316- 

RFF  6 LAST  11 8 5 

12,3102 

02747  1 

P ] A 

1317 

12, 3103 

21565  1 

0 - 1 2D, 1 

1318 

REF  6 LAST  1182 

12, 3104 

14031  0 

STOOL 

XI  X I ( +6) 

1319 

REF  12  LAST  1184 

12,3105 

00041  1 

R 1 

..  - 1 3-2-0- 

1? , 3 1-06 

755242  0 

SRI 

SORT 

1321 

12,3107 

41306  1 

ROUND 

DMP 

1322 

12,3110 

77632  0 

SL4R 

PL  AT  0 

1323- 

R-EE 22 LAST  11-8  0- 

- 12,3111 

-00025-  0 

— SX0-RE- 

X X (+17  OR  +16) 

1325 

REF 

44 

LAST 

1186 

12,3113 

00047 

1 

XI 

-—  - ; 

1326 

12,3114 

41325 

0 

POOL 

DMP 

0 D=X SO  (+34  OR  +32  -N1 ) 

PL  AT  2 

13-27 

—REE  _ 

5 

LAS-T 

118  3 

12^3115 

02740 

0 

p 

1328 

REF 

13 

LAST 

1186 

12,3116 

00041 

1 

R 1 

1329 

12, 3117 

75452 

0 

SL  3 

SORT 

1330 

1 2,  3 120 

56405 

0 

DMP 

SL3P 

1331 

REF 

4 

LAST 

1185 

12,3121 

02766 

1 

COGA 

1332 

REF 

3 

LAST 

1177 

12, 3122 

14043 

0 

STODL 

K F PC  1 

1333 

R-Ef  - 

7 

LAST 

113  6 

1 7.  3 1 23 

07742 

1 

Rl  A 

1334 

12,3124 

43021 

0 

BDSU 

CLEAR 

1335 

REF 

3 

LAST 

1169 

12, 3125 

10756 

1 

D 1 / 6 4 

1336 

- -R  E F- 

_ 2 

LAST 

118  2 

L2,  3126 

.042  70 

0 

INF1 NFLG 

1337 

REF 

3 

LAST 

1177 

12,3127 

00045 

0 

STORE 

KEPC  2 

1338 

12, 3130 

77616 

0 

RV  Q 
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-GAP-: 


L CONIC  SUBROUTINES 


USER'S  PAGE  NO.  34  E5  S3 


1339  12,3131  77774  0 RESETX2  AXT,2 

13<+0  12,  3132  00003  1 3 


1341 

12.3133 

12.3134 

51001 

00001 

1 

0 

3 60 CHECK  SETPD 

BPL 

on 

1343 

REF 

1 

12, 3135 

25140 

0 

I MVR  SEON 

1344 

12,3  136 

77614 

1 

SET 

1345  - 

— REE — 

3 LAST  1186 

_Li._3J.3J__ 

04076 

_] 

360  SW 

1 ?T  3-  L40 

75545 

L 

-I-MV-RSEQN 

DLQAD- 

SORT 

1347 

REF 

6 

LAST 

11  86 

12, 3141 

02740 

0 

P 

1348 

12, 3142 

41325 

0 

PDDL 

DMP 

0 D=  SORT ( P ) (+2) 

PL  AT 

2 

1 34Q 

R FF 

<3 

1 AST 

118  5 

12, 3143 _... 

027  30 

1 

S NTH 

1350 

REF 

5 

LAST 

1186 

12,3 144 

02766 

1 

COGA 

1351 

12, 3145 

65352 

0 

SL1 

PDDL 

2D=SNTH  COGA  (+5) 

PL  AT 

4 

1 35? 

p Ef 

7 

LAST 

11  3 5 

1?t3146 

07732  0 

_ CSTH 

1353 

12,3147 

43202 

0 

SR4 

DAD 

1354 

REF 

3 

LAST 

1183 

12,3150 

10764 

0 

Dl/32 

12,3151- 

41225 

1 

DSU  - - 

DHP 

PL  AT  2,0 

1356 

12,3152 

55301 

0 

NORM 

BODY 

1357 

REF 

45 

LAST 

1186 

12,3153 

00047 

1 

X 1 

1 3 58 

REF 

1_Q_ 

L AS  T 

Li  a 7 

12,-3154 

02730 

1_... 

SNTH 

1359 

12,3155 

51457 

0 

SLR* 

ABS 

NOTE:  NEAR  360  CASF 

TREATED  DIFFERENTLY 

1360 

12, 3 156 

21174 

0 

0 -5,1 

1364 

_ 12,  3 15  7 

.63406 

_0. 

PUSH 

. QSQ 

0D=1/W  (-1) 

PL  AT  2 

1362 

12,3 160 

14043 

0 

STOOL 

34D 

1363 

REF 

i 

12,3161 

10762 

0 

D 1/1  6 

1364 

12,316  2 

63406 

JD 

l /wi  nop 

PUSH 

nso 

7D=G  (+4) 

PL  AT 

4 

1365 

12,3163 

65234 

1 

RTB 

PDDL 

PL  AT  7 

1366 

REF 

ii 

LAST 

1177 

12,3 164 

21537 

0 

TPMODE 

1367 

-REE  _ 

8 

LAST 

1L86 

12,3165- 

02742 

1- 

R 1A 

1368 

12,3 166 

40405 

1 

DM  P 

S R 4 

1369 

12,3167 

00043 

0 

3 4D 

1370 

12-^317-0 

77  7 71 

0 

TAD 

PL  AT 

4 

1371 

12,3171 

75440 

0 

BMN 

SORT 

13  72 

REF 

4 

LAST 

118  5 

12,3 172 

25216 

0 

I NF  I NITY 

1373 

12,3173 

77615  0 

DAD 

PL  AT  2 

1374 

12, 3174 

603  04 

0 

TI  X , 2 

NORM 

1375 

REF 

i 

12,3175 

25162 

0 

l /WL GOP 

13  76 

REF 

4-6— 

LAST 

-Ll-8  7 

12,3176 

0D047 

X 1 

1377 

12, 3 177 

77665 

1 

RDDV 

PL  AT 

0 

1378 

12,3200 

52057 

1 

SLR* 

GOTO 

13  79 

12  , 3 2D  1 

21172 

0 

0 -7,1 

1380 

REF 

i 

12,3202 

25042 

0 

POLYCOFF 

1381 

1382 


REF 


9 LAST  1187 


12.3203 

12. 3204 


50145  1 TRUE360X  DLOAO  BMN 
02742  1 R 1 A 
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GAP-: 


CCNIC  SU  BRCUT I NFS  USER'S  PAGF  NO.  35  F5  S3 


1383 

REF 

5 

LAST 

1187 

12,3205 

25216 

0 

INFINITY 

1384 

12,3206 

60366 

1 

SORT 

NORM 

R£F 

__4J7 

—LAST 

118  7 

12, 3207 

00047 

1 

XI 

1386 

12, 3210 

53665 

1 

BODV 

SL* 

1387 

REF 

2 

LAST 

1170 

12, 3211 

10776 

0 

2PISC 

12,3212 

20176 

n 

_ 0 -3.1 

1389 

12,3213 

41425 

i 

DSU 

PUSH 

00=2PI/SQRT(R1A)  -X  PL  AT  0,2 

1390 

12,3214 

77650 

i 

GOTO 

RFF 

1 

12,3-215 

25077 

o 

X C DM  MON  .. 

1392 

12,3216 

40001 

i 

INF 1N1TY 

SETPD 

BOV 

NO  SOLUTION  EXISTS  SINCE  CLOSURE  THROUGH 

1393 

12,3217 

00001 

0 

0 

INFINITY  IS  REQUIRED 

1 33l4 

RE-F 

1 

1 2 r 3220 

2 52 ZL 

1 

OVF  L Cl  R 

1395 

12,3221 

43414 

1 

OVFLCLR 

SET 

RVQ 

1396 

REF 

3 

LAST 

1186 

12, 3222 

04070 

1 

I NF  I NFLG 

9A9 
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1397 

1398 

REE 

5 

LAST 

140 

12. 3223 

12. 3224 
1 7, 8275 

40220  0 LAMBERT 
02710  0 
nonoi  9 

STQ 

SETPD 
RTNL AMB 
00 

1400 

12.  3226 

76614 

0 

CLEAR 

VLOAD* 

1401 

REF 

1 

12, 3227 

02674 

0 

SOL  N SW 

1 403 

RFF 

5 

1 AST 

1183 

1 2.  3230 

10..CLQ5_ 

0 _ 

MUTABLE. 1 

1404 

RFF 

4 

LAST 

1183 

12, 3231 

140  17 

1 

STOOL 

1/MU 

1405 

REF 

3 

LAST 

696 

12, 3232 

02671 

0 

TDES  IRED 

lZt  3233 

77675 

0 . 

DM  PR 

1407 

REF 

1 

12, 3234 

10763 

1 

B EE  1 9 

1408 

REF 

2 

LAST 

1 4 C 

12,3235 

02764 

0 

STORE 

EPS  I LONL 

1 2,3  23  6 

772L4 

0 

SET 

VI  PAD 

1410 

REF 

2 

LAST 

1178 

12, 3237 

00474 

0 

SLOPESW 

1411 

RFF 

6 

LAST 

698 

12,3240 

02655 

0 

R 1 V E C 

1 2 r ft  741 

45  LL  5 

0 _ 

PD3/.L 

r.  / 1 L.  _ . . 

0 D=  R 1 V E C (+29  OR  +27) 

PI 

AT 

6 

1413 

REF 

10 

LAST 

698 

12,3242 

02663 

0 

R2VEC 

MPAC=R2VEC  (+29  OR  +27) 

1414 

REF 

2 

LAST 

1183 

12,3243 

11051 

0 

GEOM 

] 4.  J 

RF  P 

l l 

1 AX  T 

LL  ft  7 

12,3244 

L673Q 

L 

ST  091 SNTB 

OD=CSTH  (+1) 

PI 

AT 

2 

1416 

REF 

5 

LAST 

1184 

12, 3245 

02720 

0 

MAGVEC2 

1417 

12,3246 

65301 

0 

NORM 

PDDL 

PL 

AT 

4 

1-4-1  ft 

REF 

48 

LIST 

118  8 

12,324.7 

.90047 

1 

_ JLL  ...  _ 

1419 

REF 

14 

LAST 

1186 

12, 3250 

00041 

1 

R 1 

1420 

12,3251 

56342 

1 

SRI 

DDV 

PL 

AT 

2 

1421 

12,3252 

65257 

1 

SL* 

PDDL 

DXCH  WITH  OD,  0D=R1/R2  (+7) 

°L 

AT 

0,2 

1422 

12, 3253 

20173 

0 

0 -6,1 

1423 

12,3254 

77626 

0 

STADR 

1424 

R-F-F 

8 

LAST 

118  7 

12,3255 

27504.5 

1 

STORE 

CSTH 

CSTH  (+1) 

1425 

12,3256 

44342 

1 

SRI 

BDSU 

. 1426 

REF 

3 

LAST 

11  8 5 

12,3257 

10760 

1 

Dl/4 

-1427 REE 2 LAST LAO 1 2 . 3,260 02734  Q STORE Ljr.dSJEH 1-CSTH  (+21 


1428 

14-29 

R F-F 

1 

12,3261 
1_2-,  32X2 

53106 
254  72 

0 

L 

ROUND 

BZE 

3 SOX  AMB 

1430 

1431 
1-432 

REF 

49 

LAST 

118  9 

12. 3263 

12.3264 
1 7,  3755 

65301 

00047 

0QQ.01 

0 

1 

0 

NORM 

PDDL 
X 1 

on 

PL  AT  4 

1433 

12, 3266 

56342 

1 

SRI 

DDV 

PL  AT  2 

1434 

12,3267 

75457 

0 

SL* 

SORT 

1-435 

12, 3270 

201  76 

0 

0 -3.1 

1436 

12,3271 

54325 

1 

PDDL 

SR 

20=SQRT(2R1/R2( 1-CSTH)  ) (+5)  PL  AT  4 

1437 

REF 

12 

LAST 

1189 

12,3272 

02730 

1 

S NT  H 

1435  - 

12.3273 

20607 

1 

6 

1439 

12,3274 

43271 

1 

DDV 

DAD 

PL  AT  2 

1440 

REF 

3 

LAST 

1189 

12, 3275 

02734 

0 

1-CSTH 

14401 

12.3276 

77626 

0 

STADR 

14402 

REF 

1 

12,3277 

77760 

0 

STORE 

COG A MAX 

1441 

12, 3300 

50000 

1 

BOV 

BMN 

IF  OVFL,  COGAMAX=COGlJPL  IM 

144-2 

REF  - 

— 1— 

.12,3  30)  . 

. 253915 

0..  _ . 

IP  1 I M 

IF  NEG.  USE  FVEN  IF  LT  COGLOLIM,  SINCE 

1442  1 

RFF 

1 

12,3302 

25311 

0 

MAXCOGA 

THIS  WOULD  BE  RESET  IN  LAMBLOOP 

14422 

12, 3303 

50025 

0 

DSU 

BMN 

IF  COGAMAX  GT  COGUPLIM,  C OGA M AX=COGUP L I M 
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14423 

REF 

1 

12,3304 

11002 

0 

COGUPLIM 

14424 

RFF 

2 

LAST 

1189 

12,3305 

25311 

0 

MAXCOGA 

1 2 t 3 3f)6 

77745 

1 

UP-1  I M 

DLOAD 

14426 

REF 

2 

LAST 

1190 

12,3307 

11002 

0 

COGUPL IM 

14427 

REF 

2 

LAST 

1199 

12, 3310 

00017 

1 

STORF 

COGAMAX 

12,3-311 

77745 

1 

MAXCOGA 

OLOAD- 

1444 

REF 

9 

LAST 

1189 

12,3312 

02732 

0 

CSTH 

1445 

12,3313 

45261 

0 

SR 

DSU 

^446 

12,3314 

_ 20607 

1 

6 „ _ 

1447 

12,3315 

77626 

0 

ST  ADR 

1448 

REF 

2 

LAST 

140 

12,3316 

61041 

0 

STOOL 

CSTH-RHO 

1 449 

RFF 

7 

LAST 

118  4 

12,3317 

02673 

1 

GFOMSGN 

1450 

12,3320 

71240 

1 

BMN 

DLOAD 

1451 

REF 

i 

12, 3321 

25512 

0 

LOLI  M 

1452 

REP 

3 

[ AST 

1L9-0 

12, 3327 

0273-6 

_L_ 

CSTH-RHO 

1453 

12, 3323 

56352 

0 

SL1 

DDV 

1454 

REF 

13 

LAST 

1189 

12, 3324 

02730 

1 

SNTH 

1455^ 

12,3325 

77600 

_1 

BOV 

1456 

REF 

2 

LAST 

1190 

12, 3326 

25512 

0 

LOL  I M 

1457 

REF 

1 

12,3327 

00011 

1 

MINCOGA 

STORE 

COGAMIN 

1-45  ft 

12, 3330 

66214 

0 

BON 

SSP 

1459 

REF 

3 

LAST 

697 

12, 3331 

00715 

1 

GUFS  SW 

1460 

REF 

1 

12,3332 

25476 

0 

NIOGUFSS 

1461 

_ RPP  _ 

3— 

last 

1L7  9 

12,3333 

- 00051 

XL 

TWEEK.IT 

1462 

12, 3334 

00001 

0 

3000  1 

1463 

12, 3335 

77745 

1 

DLOAD 

146-4 

-REF 

6- 

-LAST! 

118  7 

12.3336 

02766 

JL_ 

CDGA 

-1465 L2-,-3-33J 7-76-05-1 I.AMRLOnP  DMP 


1466 

RFF 

14 

LAST 

1190 

12,3340 

02730 

1 

SNTH 

1467 

12,3341 

45342 

0 

SRI 

DSU 

146  8 

REF 

4 

- L ASX- 

113-0  _ 

12,334? 

02736 

1 

CSTH-RHO 

1469 

12, 3343 

65301 

0 

NORM 

PDDL 

1470 

REF 

50 

LAST 

1189 

12, 3344 

00047 

1 

XI 

1 4-7-1 

RPP 

4 

LAST 

118  9 

12,3345 

0273-4 

_jQ_ 

1 -CSTH 

14  72 

12,3346 

56257 

i 

SL* 

DDV 

1473 

12,3347 

20170 

0 

0 — 9D,  1 

14874 

- 1 2,3350  - 

53040 

0 

-.  BMN 

BZ1 

1475 

REF 

i 

12,3351 

25426 

0 

NFGP 

14  76 

REF 

2 

LAST 

1190 

12, 3352 

25426 

0 

NEGP 

L4-77 

REF 

7 

L ASX 

1L87- 

- X 2, 3353  - 

16J740 

0- 

ST0D1 

P 

1478 

REF 

7 

LAST 

1190 

12, 3354 

02766 

1 

COGA 

1479 

12, 3355 

43316 

1 

DSQ 

DAD 

1480 

REE- 

1 

12, 3356 

10766 

1 

D 1/ 1024 

1481 

12,3357 

41301 

0 

NORM 

DMP 

1482 

REF 

51 

LAST 

1190 

12, 3360 

00047 

1 

XI 

1 4 ft  3 

REF 

8- 

LAST 

119  0 

12,3361 

02  740 

0 

P 

OTHERWISE  OK,  SO  GO  TO  MAXCOGA 


C OGUP L I M=. 999511597  = MAX  VALUE  OF  CnGA 
NOT  CAUSING  OVFL  IN  P IA  CALCULATION 


PL  AT  0 


COGAMIN  (+51 


00=  SNTH  COGA-I CSTH-RHO ) (+7+C(Xl>)  »L  = 2 


1-CSTH  (+2)  PL  AT  0 


P=(  1-CSTH) /( SNTH  COGA-(CSTH-RHO)  ) (+4) 


1484 

1485 


12. 3362 

12. 3363 


44257  1 
20571  0 


SR* 


BDSU 
0 -80,1 


GAP 
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1486 

REF 

4 

LAST 

118  7 

12, 3364 

10764 

0 

Dl/32 

14  87 

REF 

10 

LAST 

1187 

12, 3365 

16742 

1 

STOOL 

R 1 A 

R 1A=2-P ( 1+COGA  COGA)  (+6) 

1488 

REF 

9 

LAST 

1190 

12,3366 

02740 

0 

P 

1489 

12, 3367 

45000 

0 

BOV 

CALL 

lZf-3370 

25-43 1 

_Q_ 

“i  I E N LPGV  _ 

1491 

REF 

2 

LAST 

1182 

12, 3371 

25000 

0 

GET  X 

1492 

12,3372 

77745 

1 

DLOAO 

LAST- 

118  0 

12, 3373 

00037 

0 

I 

1494 

REF 

1 

12,3374 

16762 

0 

STOOL 

TPRE  V 

1495 

REF 

7 

LAST 

1186 

12, 3375 

00031 

0 

X I 

12, 3376 

_ 45014 

-0 

. BUN . _ 

CALI  _ __ 

1497 

REF 

4 

LAST 

1138 

L 2 , 3 37  7 

04310 

1 

I NF I NFLG 

149  8 

REF 

3 

LAST 

1190 

12,3400 

25426 

0 

NEGP 

HAVE  EXCEEDED  THEORETICAL 

BOUNDS 

1499 

REE- 

8 

1 AST 

1 1 8 2 

12,_3A01 

24434 

1 

3ELT IMF 

1500 

12,3402 

442  00 

0 

BOV 

BOSU 

1501 

REF 

1 

12, 3403 

25446 

0 

B IGT  IMF 

1 5 Q2 

_R£E 

4 

1.  AST 

1L8  9 

. 12,3404 

07671 

0 

IDES  I R ED 

1503 

REF 

1 

12, 3405 

027  60 

1 

STORE 

TERR  LAMB 

1504 

12,3406 

44246 

1 

ABS 

BOSU 

l 5115- 

Rff  _ 

3- 

LAST 

11.8  9 

12*3.40  7 

02764 

0 

EPSI LONL 

1506 

12,3410 

47044 

1 

BPL 

RTB 

15  07 

REF 

i 

12, 3411 

25515 

1 

1 NIT  V 

15  08  - 

-REE 

2 

last 

1173- 

12,3412 

24j65  7 

0 

CHECKCTR 

1509 

12,3413 

45030 

0 

BHI  Z 

CALL 

1510 

REF 

i 

12,3414 

25457 

0 

SUFFCHFK 

15  11 

r.  E F 

1 

1 2 ♦ 341 5 

245  51 

0 

I TFR  ATOR 

1512 

12, 3416 

53145 

1 

DLOAD 

BZE 

1513 

REF 

711 

LAST 

1185 

12,3417 

00155 

0 

M P AC 

15 14 

REE 

2— 

last  - 

119  1- 

13,  3A20- 

.2543  7 

0 

SUErCHEH 

1515 

12, 3421 

77615 

0 

DAO 

1516 

REF 

8 

LAST 

1190 

12, 3422 

02766 

1 

COGA 

1517 

REF 

9 

LAST 

119  1 

12,3423 

02  7 64- 

1 

STORE 

CQGA^ 

1518 

12,3424 

77650 

1 

GOTO 

1519 

REF 

i 

12, 3425 

25337 

1 

LAMBLOOP 

1520 

12, 3426 

51145 

0 

NEGP  DLOAD 

BPL 

IMPOSSIBLE  TRAJFCTORY  DUE 

TO  INACCURATE 

1521  - 

-R-EL 

i 

12,3477 

00015 

0 

PCOGA 

BOUND  CALCULATION.  TRY  NEW 

COGA. 

1522 

REF 

i 

12,3430 

25451 

0 

LOENERGY 

1523 

1524 

152  5— 

RFF 

1-0 

LAST 

119  1 

12. 3431 

12.3432 

12.3433 

71201 
00001 
02  7 66 

1 

0 

_L 

HIENFRGY 

SETPD 

DLOAD 

0 

COGA 

HIGH  ENERGY 
TN  OVFI  OF 

TRAJECTORY  RESULTED 
P OR  R 1 A , OR  XI  EXCEEDING  50. 

1526 

REF 

2 

LAST 

119  0 

12, 3434 

000  11 

1 

STORE 

COGA  MIN 

THIS  IS  THE 

NEW  BOUND. 

1527 

12, 3435 

70545 

1 

COM  MONL  M 

DLOAD 

SRI 

1528 

— REE 

2- 

—LAST 

-LL9  1 

12, 3436 

_ 0Q015 

0 

PCOGA 

1529 

REF 

3 

LAST 

119  1 

12,3437 

00015 

0 

STORE 

OCDGA 

USE  DCOGA/2 

AS  DECREMENT 

1530 

12,3440 

442  54 

1 

BZE 

P.DSU 
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15301 

1531 

REF 

REF 

OFF 

3 

11 

12 

LAST 
LAST 
1 AST 

119  1 
119  1 
11  9 2 

12,  344  1 

12.3442 

12. 3443 

25457 

02766 

Q2J66 

0 

1 

1 

STORE 

SUFFCHFK 

COGA 

catA_  . . 

1533 

1534 

REF 

2 

LAST 

119  1 

12.3444 

12.3445 

77650 

25337 

1 

1 

GOTO 

LAMBLOOP 

RESTART  THIS  LOOP 

1535 

RFF 

2 

1 AST 

119  1 

12,3446 
12 , 3 447 

77745 
027  62 

1 

0 

BIGTIME 

OLOAD 

TPREV 

1537 

RFF 

13 

LAST 

119  1 

12,3450 

00037 

0 

STORE 

T 

1538 

12, 3451 

71201 

1 

LOENERGY 

SETPO 

DLOAD 

LOW  ENERGY  TRAJECTORY  RESULTED 

1539 

12,3452 

00001 

0 

0 

1 540 

rff 

A3 

last 

4.1  9 2 

12,3453 

02  7 66 

1 

CCGA 

IN  OVERFLOW  OF  TIMF. 

1541 

REF 

3 

LAST 

1190 

12, 3454 

000  17 

l 

STORE 

COGAMAX 

THIS  IS  THE  NEW  BOUND. 

1542 

12,3455 

77650 

1 

GOTO 

1-54.3 

REF 

— 

12, 3456 

25_433 

-J 

COMMONLM 

L544 12.3  457 51-5-45-  -1 — SUF-F  CH  E K DLOAO ABS 


1545 

REF 

2 

LAST  119  1 

12, 3460 

02760 

1 

TERR  LAMB 

1546 

12,3461 

41325 

0 

PDDL 

DMP 

PL 

AT 

2D 

1547 

RFF 

5 

LAST  11  9 1 

12j  3 462 

02671 

0 

TDES  I RED 

1548 

REF 

1 

12, 3463 

10751 

0 

B EE  1 7 

1549 

12, 3464 

45215 

0 

DAD 

DSU 

PL 

AT 

OD 

15-50. 

. -R-EF- 

1 

1 2,3  46  5 

110  00 

1 

ONEB  IT 

1551 

12,3466 

43044 

0 

BPL 

SETGO 

1552 

REF 

2 

LAST  1191 

12,3467 

25515 

1 

INIT  V 

1 5 53 

R-fLF 

LAST  113  9 

12-»3  4 70 

02434 

-JO 

SOL  NSW 

1554 

REF 

3 

LAST  1192 

12,3471 

25515 

i 

I N I T V 

1555 

12, 3472 

43001 

i 

360LAMB 

SETPD 

SETGO 

LAMBFRT  CANNOT  HANDLE 

CSTH=1 

1336 

12,5473  - 

00001 

_0 

0 

1557 

REF 

3 

LAST  1192 

12,3474 

02434 

0 

SOLNSW 

1558 

REF 

6 

LAST  1189 

12, 3475 

02710 

0 

R T ML  AMB 

1559 

12, 3476 

71331 

0 

NOGUESS 

SSP 

OLOA  D 

1360 

-REF  . 

_4 

LAST  11 9 0 

12j3.477 

. 0005 1. 

„Q 

TWFFKIT 

1561 

12, 3500 

10000 

0 

20000 

1562 

REF 

3 

LAST  1191 

12,3501 

000  11 

1 

COGA MIN 

1563 

12,3502 

65342 

1 

SRI 

PDDL 

PL 

AT 

2 

1564 

REF 

4 

LAST  1192 

12, 3503 

00017 

1 

COGAMAX 

1565 

12,3504 

43342 

0 

SRI 

DAD 

1 566 

1 2j  3 505 

77626 

0 

ST  ADR 

PL 

AT 

0 

1567 

REF 

14 

LAST  1192 

12, 3506 

75011 

0 

STORE 

COGA 

1568 

REF 

4 

LAST  1191 

12,3507 

00015 

0 

STORE 

DCOGA 

1569  _ 

12.3510 

77650 

1 

GOTO 

1570 

REF 

3 

LAST  1192 

12,3511 

25337 

1 

LAMB  LOOP 

GAP-: 
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1574  12,3512  52145  0 LOLIM 

1575  REF  1 12,3513  11004  0 

1-574 R-iF 1 1-2 , 3 5-14 2532-7-  -0 


DLOAD  GOTO 

S0GLCL1M 
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1578 

1579 
1 8 PD 

REF 

REF 

15 

52 

LAST 

LAST 

1189 

1190 

12. 3516 

12. 3517 
12,  3 520 

00041 

00047 

70525 

1 

1 

_L 

POOL 

P 1 
XI 

SRI  PL 

AT 

2 

1581 

REF 

10 

LAST 

119  1 

12,3521 

02740 

0 

P 

1582 

12,3522 

77671 

1 

DDV 

PL 

AT 

0 

1 5PT 

1 2.  3523 

75437 

0 

_ _SJL* 

SORT 

1584 

12,3524 

20175 

0 

0 -4,1 

1585 

12,3525 

72405 

0 

DM  P 

SL1 

1 5 B6 

-REF 

3 

-IASI 

11-8  0 

1 2,  3-5Z6 

00021 

1 

RODTMU _ 

1587 

12,3527 

41206 

0 

PUSH 

DMP  0 D= VT  AN  (+7)  PL 

AT 

2 

1588 

REF 

15 

LAST 

1192 

12, 3530 

02766 

1 

COGA 

1 EA9 

12,3  531 

74261 

_] 

SI 

vxsc  _ ____  _ ____ 

1590 

12,3532 

202  06 

1 

5 

1591 

REF 

7 

LAST 

1184 

12, 3533 

02722 

1 

UR1 

159? 

12,  3 534 

77725 

PDDL 

_ . XCH  WITH  00  PL 

AT 

0,6 

1593 

12,3535 

76561 

1 

VX  SC 

VSL 1 

1594 

REF 

5 

LAST 

1184 

12,3536 

02674 

0 

UN 

15  95 

12,3537 

_ 53233 

0 _ _ 

vxv 

UA9  PL 

AT 

0 

1596 

REF 

8 

LAST 

119  3 

12, 3540 

02722 

1 

UP1 

1597 

12, 3541 

77772 

0 

VSL1 

1 ROQ 

REP 

L3 

L AST 

1 1 a ? 

1 7 T 3 S47 

02  7 44 

1 

STORE 

J/VEC 

1600 

12,3543 

531  35 

0 

SLOAO 

8ZF 

1601 

REF 

5 

LAST 

698 

12, 3544 

02702 

0 

V TAP  GTAG 

L6-Q-2 

_R_E_F 

1 

1Z, 353,5 

255  50 

0 

T ARGFTV 

1603 

12,3  546 

77650 

1 

GOTO 

1604 

REF 

7 

LAST 

1192 

12, 3547 

02710 

0 

1TNLAMB 

1605 

1606 

R-E-F 

6— 

L AST 

118-9 

12.3550 

1 2.3551 

45145 
- 02720 

0 TARGETV 

_0 

DLOAD 

CALL 
MAGV  FC.2 

1607 

REF 

1 

12,3552 

24714 

0 

L AMF  NTER 

1608 

REF 

4 

LAST 

699 

12, 3553 

02703 

1 

STORF 

7 TAP  GET 

1609 

12,3  554 

77650 

J 

GOTfl 

1610 

REF 

8 

LAST 

1193 

12,3555 

02710 

0 

RTNL AMB 
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L 

CCMC 

SUBROUTINES 

USER'S  PAGE  NO.  41  E5  S3 

1611 

1612 

REF 

l 

12.3556 

12.3557 

- 12,3  560  __ 

40220 

02710 

000CLL- 

o o o 

TIMERAD 

STO 

SETPD 
RTNT  R 

0 

PL  AT 

0 

1614 

12, 3561 

63375 

0 

VLOAD 

PDVL 

PL  AT 

6 

1615 

REF 

9 

LAST 

1182 

12, 3562 

02655 

0 

PVEC 

- LAS  IE 

-11 9 3 

12*3563 

02744 

1 

VVFC  _ - 

1617 

12, 3564 

77624 

l 

CALL 

1618 

REF 

2 

LAST 

1132 

12,3565 

11005 

l 

PARAM 

12*  3566 

71200 

0 

BOV  - 

_ OLD  AD 

PL  AT 

0 

1620 

REF 

2 

LAST 

1182 

12, 3567 

24775 

i 

COGA  CVFL 

1621 

REF 

5 

LAST 

119  1 

12,3570 

10764 

0 

Dl/32 

] ft  ? ? 

12, 3571 

41225 

J 

DSU 

CLFP 

1623 

REF 

11 

LAST 

119  1 

12,3572 

02742 

1 

R 1 A 

1624 

REF 

11 

LAST 

1193 

12,3573 

02740 

0 

P 

J ft  ? ft 

12  *3  5 74 

41366- 

S.QRT. 

DHP 

1626 

REF 

16 

LAST 

119  3 

12,3575 

02766 

1 

COGA 

1627 

12,3576 

74212 

0 

SL4 

VXSC 

1 

REF 

5 

_ LASl 

118  4. 

1 2,3577 

02712 

1 

J-2  - 

1629 

12,3600 

45325 

1 

POOL 

OSU 

PL  AT 

6 

1630 

REF 

4 

LAST 

1186 

12,3601 

10756 

1 

D 1 / 6 4 

1631 

REF 

-12 

-LAST 

1194 

12  ,-3602 

02742 

1- 

R 1 A 

1632 

12,3603 

52361 

1 

VX  SC 

VSU 

PL  AT 

0 

1633 

REF 

9 

LAST 

1193 

12, 3604 

02722 

1 

UR1 

1 634 

12*3305 

5351  2 

-I— 

VSL4. 

-U-NIT  

16345 

12,3606 

77600 

1 

BOV 

16346 

REF 

2 

LAST 

1189 

12,3607 

25472 

1 

3 63  L AMB 

NO  SOLUTION  SINCE  CONIC  IS  A CIRCLE 

12 ,3610 

60325 

0 

POOL 

fcLQ&M 

0Q=UN_I  T ( ECC  ) (+3)  PL  AT 

6 

1636 

REF 

2 

LAST 

140 

12,3611 

02756 

1 

ROES  IRED 

36D=ECC  (+3) 

1637 

REF 

53 

LAST 

1193 

12, 3612 

00047 

1 

XI 

1 63R- 

13, 3613 

41  376 

n 

PDDL 

ELHF 

PL  AT  8 

1639 

REF 

16 

LAST 

1193 

12,3614 

00041 

i 

R 1 

1640 

REF 

12 

LAST 

1194 

12, 3615 

02740 

0 

P 

1641—  - 

- 13,3616  - 

5625  7 

1 

SL* 

DOV 

PL  AT  6 

1642 

12,3617 

20201 

0 

0,1 

1643 

12, 3620 

56225 

1 

DSU 

DDV 

1644- 

R_E£L 

2 

—LAST 

1L8  7 

12j_3  62  1 

10762 

n 

Ql/1  6 

1645 

12, 3622 

00045 

0 

360 

36D=ECC  H-3) 

1646 

REF 

1 

12,3623 

00031 

0 

STORE 

COSF 

1647- 

12,3  624 

-63400 

0 

BOV 

D SO 

1648 

REF 

1 

12, 3625 

25665 

0 

BADR  2 

1649 

12, 3626 

50021 

1 

BOSU 

RMN 

1650 

REF 

4- 

—LAST 

1 L8-9- 

12-*3623 

10760 

1 

ni  / 4 

16505 

REF 

2 

LAST 

1194 

12,3630 

25665 

0 

B A DR  2 

1651 

12,3631 

75366 

0 

SORT 

SIGN 

1652 

REF 

2 

- LAST 

140 

12,  3 632 

02  755 

1 

SGNR  DOT 

16525 

12, 3633 

77614 

1 

CLEAR 

1653 

REF 

1 

12, 3634 

04272 

1 

APSFSW 

1654 

12,3635 

76561 

1 

TFRMNVEC 

VXSC 

VSL1 

1655 

REF 

6 

LAST 

1193 

12,3636 

02674 

0 

UN 
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L 

CONIC 

SU8RCUT I NE  S 

USER'S  PAGE  NO.  42 

E5  S3 

1656 

12,3637 

63235 

0 

vxv 

PDVL 

VXCH  WITH  00 

PL  AT  0 ,6 

1657 

12,3640 

00001 

0 

OD 

1 2 » 364 1 

53364- 

Q_. 

__  VXSC  - 

.VI D 

PL  AT  0 

1659 

REF 

2 

LAST 

1194 

12, 3642 

00031 

0 

C OS  F 

1660 

12, 3643 

41572 

1 

VSL 1 

PUSH 

0 D=U2 

PL  AT  6 

1661 

12, 3644 

56241 

0 

DOT 

DDV 

LIMITS  RESULT  TO  POSMAX  OR 

NEGMAX 

1662 

REF 

10 

LAST 

1194 

12,3645 

02722 

1 

UP1 

1662  2 

REE 

_L 

12*3-646 

- 23702. 

0 

DPI/4 

1662  A 

12,3647 

40142 

1 

SRI 

BOV 

SCALE  BACK  DOWN  TO  NORMAL 

16625 

12,3650 

25651 

1 

+ 1 

CLEAR  OVFIND  IF  SET 

1 

R F F 

1 0 

L AST 

11  9Q 

_ 12, 3651 

26732 

0 

STOVL 

CSTH 

CSTH  (+1) 

1 664 

REF 

n 

LAST 

1195 

12,3652 

02722 

1 

JP1 

1665 

12, 3653 

76435 

X 

VXV 

VS  L 1 

12,  3 654 

72441 

-0 

..  dux  „ 

S LI 

1667 

REF 

7 

LAST 

1194 

12,3655 

02674 

0 

UN 

1668 

REF 

15 

LAST 

1190 

12,3656 

16730 

1 

STOOL 

SNTH 

SNTH  (+1) 

1669 

REE 

13 

LAST- 

1L9  4 

12,3657 

02740- 

0 

P 

1670 

12,3660 

77624 

1 

CALL 

1671 

REF 

3 

LAST 

119  1 

12, 3661 

25000 

0 

GFTX 

16-72-  - 

12,3  662 

77614^ 

1 

CLRCLO 

16725 

REF 

4 

LAST 

1192 

12,3663 

02634 

1 

SOL  NSW 

1673 

REF 

i 

12, 3664 

24760 

0 

COMMNOUT 

1674 

12, 3665 

75345 

1 

BADR2 

DLCIAD 

SIGN 

16741 

RFE 

3— 

-LAST 

3-3  7 

12, 3666 

222  73 

4- 

LODPHALF 

16742 

REF 

3 

LAST 

1195 

12,3667 

00031 

0 

COSE 

16743 

REF 

4 

LAST 

1195 

12,3670 

14031 

0 

STODL 

C OS  F 

162-5 — 

-REE 

_ A — 

lase 

-41  7 1 

42 1 3 671 

222  75 

1 

KF  PZERO 

16755 

12, 3672 

77614 

1 

SETGO 

1676 

REF 

2 

LAST 

1194 

12, 3673 

04032 

1 

APSESW 

1A  7-7  R E E- 

1 

12,  3 6 74 

?_56  3 5 0 

TERMMVEC 

1678 

12,3675 

40220 

0 

APSIDES 

STQ 

SETPD 

PL 

AT 

0 

1679 

REF 

1 

12,3676 

02710 

0 

RTNAPSE 

1-6&Q 

- 12,3-6  77 

000-04 

o 

_QJ1 

1681 

12, 3700 

63375 

0 

VLOAD 

PDVL 

PL 

AT 

6 

1682 

REF 

10 

LAST 

1194 

12,3701 

02655 

0 

R V EC 

16-8-3 

REF 

15 

-LAST 

1X9  4 

12.3702  _ 

.02744 

X 

VVFC 

16  84 

12,3703 

77624 

1 

CALL 

1685 

REF 

3 

LAST 

1194 

12,3704 

11005 

1 

PAR  AM 

1686 

12,-3  705. 

7X6D  Q. 

_L 

BOV 

PL 

AT 

0 

1687 

REF 

1 

12,3706 

25707 

0 

GETECC 

1688 

12,3707 

42405 

0 

GET  ECC 

DM  P 

SL4 

16-89 

REF 

-L3— 

-LASX- 

-119  4 

12,3710 

.02742- 

J— 

R 1 A 

1690 

12,371 1 

75421 

1 

BDSU 

SORT 

1691 

REF 

5 

LAST 

1194 

12,3712 

10756 

1 

Dl/64 

16-92 

R E-F  - . 

2- 

L-ASX. 

6-4-5 

12,  3 713 

02752- 

-0. 

STORE 

ECC 

1693 

12, 3714 

65215 

1 

DAO 

0 DDL 

PL 

AT 

2 

1694 

REF 

1 

12,3715 

10752 

0 

31/8 

£_Ap_;-  ASSEMBLE  REVISION  069  OF  AGC  PRO  GRAM  LU  MI  NARY  BY  NASA  20  2 L 1 12- Oil 


_ iq:o?  Nn»,  sktppfr  .070  paof  i l 96 


L CONIC  SUBROUTINES 


USER 1 S PAGE  NO.  43  E5  S3 


1695 

REF 

17 

LAST 

1194 

12, 3716 

00041 

1 

R 1 

1696 

12,3717 

72405 

0 

DM  P 

S LI 

J ART 

119  5 

1 2 * 3 7 2-0 

-02740 

0 

_P 

1698 

12,3721 

77671 

1 

DDV 

1699 

12,3722 

60325 

0 

POOL 

NORM 

P FF 

14 

1 AST  - 

119  5 

42-, -3-723 

-027A2 

1 

R 1 A 

1701 

REF 

54 

LAST 

1194 

12,3724 

00047 

1 

XI 

1702 

12, 3725 

53725 

1 

POOL 

SL* 

1703 

RFF 

L8 

LAST 

1L9  6 

12,3726 

.00041 

1 

R 1 

17  04 

12,3727 

20174 

1 

0-5,1 

1705 

12,3730 

45271 

1 

DOV 

DSU 

1707) 

_ 12,3731 

5 0.0  0.0  _ 

1 

BOV 

RMN 

1707 

REF 

i 

12,3732 

25736 

1 

I NF I NAPO 

1708 

REF 

2 

LAST 

1196 

12,3733 

25736 

1 

INF  I NAPO 

1709 

12,  3 734  _ 

77650 

L 

GOTO 

1710 

REF 

2 

LAST 

1195 

12,3735 

02710 

0 

PTNAPSF 

1711 

12, 3736 

52145 

0 

INFINAPO  DLOAD 

GOTO 

] 7 1 2 

R Ff 

1 

12  T 3-737 

223  06 

1 

_ LDPOSMAX 

1713 

REF 

3 

LAST 

1196 

12,3740 

02710 

0 

RTNA  PSE 

0 0=  RP  (+29  OR  +2  7) 


RETURNS  WITH  APOAPSIS 


THAT  PL  IS  AT  0. 


PL  AT  0 
PL  AT  2 


PL  AT  4 


PL  AT  2,0 


IN  MPAC , PER  I APS  I S 


- GAP  : ASS  E-M-8L-E- TITEV-tS-I-SN— 0-69 — OF— A-GG— P&QGftA-M— L-UMT-MAR¥ — BY— NA-SA—  2021112-011 — 

L CCNIC  SUBROUTINES 

1725  REF  3 LAST  711  11,2305  LDPOSMAX  EQUALS  LODPMAX 

FU-7-27 ERASABLE  A SS  I-&NH E NT-S 


19oXL2-Nnv,  2.5,1963 SKIPPFR  .070 

USER'S  PAGE  NO.  44 


DPPOSMAX  IN  LOW  MEMORY. 


PAGF  1 1 92. 
E5  S3 


R 1 72  8 KLPL'-R  SUBROUT  INF 


R1729 


INPUT 


R1730 RRECT 

R 1731  VRECT 
R l 732  TAU. 


ERASE *-5- 


ERASE 

ERASE 


+ 5 
+ 1 


R 1734 
R 1 73  5 
1 7 36 

TC 

XPREV 

ERASE 

ERASE 

+ 1 
+ 1 

0 0 1 6 _ 

1/MU. 

EQUAL  S.  14C  _ . 

1737 

1738 
R1739 

nilTPUT  - 

0020 

0022 

ROOTMU 
1 /ROOTMU 

EQUALS  1 6 D 
EQUALS  1 80 

R 1 7 40 

RCV 

ERASE 

+ 5 

R 1 74  1 

VCV 

ERASE 

+ 5 

R 1742 

- R-C 

—ERASE 

+ L- 

R 1 743 

XPREV 

ERASE 

+ i 

j <; 

1745 

0010 

ALPHA 

EQUALS  80 

1746 

0012 

XMAX 

EQUALS  100 

1747 

0 014 

XMIN  . 

EQUALS  L2D 

1748 

0024 

X 

EQUALS  20D 

1749 

0030 

XI 

EQUALS  2 40 

jnl-7-50-  - 

0032 

Si  XI ) 

EQUAL S_26D 

1751 

0034 

XSQCIXI I 

EQUALS  280 

1752 

0036 

T 

EQUALS  300 

1753  - 

0 040 

R 1 

EQUALS  3 2D 

1754 

0042 

KEP  Cl 

EQUALS  34D 

1755 

0044 

KEPC2 

EQUALS  360 

81756 

DELX 

ERASE — 

+i 

R 1 7 5 7 

DELT 

ERASE 

+ 1 

R 1 7 58 

URRECT 

ERASE 

+ 5 

R-1759 — 

RCA GRP 

-ER-AS-E— 

FI 

R 1 760 

XPREV 

EQUALS 

X KEP 

R 1761 

LAMBERT 

SUBROUTIN  E 

R4-7^2 

I-N-P-UT- 

R 1 763 

R 1 V EC 

F R A S E 

+ 5 

R 1764 

R2VEC 

FRASE 

+ 5 

81765 

- TOE  SI  RED 

— ERAS£- 

R 1 766 

GECMSGN 

ERASE 

+ 0 

R 1 76  7 GUE  SSI* 


0 IF  COCA  GUESS  AVAILABLE,  1 IF  NOT 
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L CCNIC  SUBROUTINES 


USER'S  PAGE  NO.  45  F5  S3 


R1  768 
P I 769 
R 177Q 

COC-A 
NCRMSW 
UN 

ERASE 

-ERASE— 

+ 1 

_+_5 

I NPUT 
0 IF 
ONLY- 

ONLY 
UN  TO 
USED 

IF  GUESS W IS  ZERO. 

BE  COMPUTED,  1 IF  UN  INPUT 
TF  NORMSW  IS  1 

R 177 1 
R 1772 

VTARGTAG 
TWEEK  IT 

ERASE 

EQUALS 

+ 0 
4 00 

ONLY 

USED 

IF  GUESSW  IS  0 

R 1 773  OUTPUT  - 

R 1774  VTARGET  ERASE  +5  AVAILABLE  ONLY  IF  VTARGTAG  IS  ZERO. 

-R 17-75 V1VEC EQUALS  MPAC 

R 1 776  DEBRIS  - 

-R 1-7-77 p, -TNLA-MB E-RAS-E tO 

R 1 778  U2  ERASE  +5 

R 1 779  MAGVEC2  ERASE  +1 

R 1780 UR-1 -ERASE + 5 

R1781  R 1 EQUALS  31D 

R 1 7 82  UN  ERASE  +5 

-R- 1-7-83 S-N-T-N ERASE tl 

R 1784  CSTH  ERASE  +1 

R 1785  1-CSTF  ERASE  +1 

R 1-786 C-STH-RHO  ERASE JO 


1787 

0016 

COGAMAX 

EQUALS 

1 4D 

CLOBBERS  1/MU 

1788 

0010 

COGAMI N 

EQUALS 

8 D 

1789 

WWWnm  4 

DCOGA 

EQUALS 

1 2J5_ 

R 1790  TVvFFK  IT  EQUALS  4 00 

R1791  P ERASE  +1 


R-l-7-92 C-OjG-A ERASE +L 


R 1 793 

R 1 A 

ERASE 

+ 1 

R1794 

X 

EQUALS 

2 OD 

R 1-7-9 

-X  SQ 

E-QUAt  S 

22-0- 

R 1 796 

XI 

EQUALS 

24D 

R1797 

S(XI) 

EQUALS 

260 

R 1 798 

X-SQC  ( X I ) 

-EGUAL-S 

_2-  80-  - 

R 1 7 99 

T 

EQUALS 

3 OD 

R 1800 

KEPC1 

EQUALS 

34D 

r i ao  i 

KEEC2- 

-EQUALS- 

3 6D 

R 1802 

SLCPESW 

R 1 803 

SOLNSW 

R 1 3 04  - 

OTHERS  - 

R 1 805 

RVEC 

EQUALS 

R 1 VEC 

-RL8-Q6  __ 

V VL  C . _ 

E-RASJE 

+ 5 

R 1 807 

COC-AFLAG 

R1808 

RVSW 

R 1809 — 

LNFLNELG 

R 1 8 1 0 

APSESVv 

R 18  1 1 

36CSW 

R 18 1-2- 

R-IATT 

EQU-ALS- 

RTNI  AMR 

R 1 8 1 3 

ECC 

ERASE 

+ 1 

R1814 

RTNTR 

EQUALS 

R TNLAMB 

-L9.lQZ-MaV^  25,1963 SKTPPFR  .070 PAGF  1 1 99 
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L CONIC  SUBROUTINES 


USER'S  PAGE  NO.  46  E5  S3 


R 1 8 1 5 RTNAPSE  EQUALS  RTNLAMB 

R 18 16  R2  EQUALS  MAGVEC2 

— taw oxiao — 

R 1 81 8 RTNPRM  ERASE  +0 

R 1 8 1 9 SGNRDCT  ERASE  +0 

R 1 8-2-0 R C-E-S4-R-E  D —ERAS  E U 


XOSF EQUALS  PAD 


— R 1821 TTE  PAT-OR— SUSP  0UT4-NE 

R 1 822  ORDER  SW 

1823 001  6 MAX EQUALS  14D CLOBBERS  1/MU 

1824  0010  MIN  EQUALS  8D 

R 1 82  5 INDEP  ERASE  + 1 

18-2-6 nni  4 DFI  INDFP  EQUALS  12D 

1827  0026  ITERCTR  EQUALS  22D 

1828  0036  DEP  EQUALS  30D 

-R-l-82  9 OEL-DEE ERASE + 1 

R 1 830  DEPREV  ERASE  +1 

1831  0050  TWEEKIT  EQUALS  40D 


P.1832  MORE  KEPLEP 


R 1 833  EPS ILCNT  ERASE  +1 


R 1 834  MORE  LAMBERT 


R-1835 

R 1836 


H RRL  AMR  EQUALS  D ELOL  P 
I PR  f V EQUALS  DEPREV 


R 1837 


EPSILCNL  EQUALS  EPSILONT  +2 


DOUBLE  PRECISION  WORD 


GAP : ASSENBL-E  RF-VISIGN  0 69  Of  4GC  PROGRAM  LUMINARY  BY  NASA  2-021112-011 

L I NT EGR  AT ION  INITIALIZATION 


-l-9i-02  NOV.  25,1968 SKIPP-ER  .070 g-AGF  1 7 00_ 

USER' S PAGE  NO.  1 EO  S3 


R0006 
R0007 
R 00-08- 
R0009 
R001 1 
-ROOL3- 
R0015 
R0017 
- R0018- 
R0019 
R0021 
- R0023 — 
R0025 
R0026 

. 000-27 

R0029 
R 003 1 

-RQ032 

R0034 
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1.0  INTRODUCTION 


FRCM  A USERS  POINT  OF  VIEW,  ORBITAL  INTEGRATION  IS  ESSENTIALLY  THE  SAME  AS  THE  278  INTEGRATION 

PROGRAM.  THE  SAME  ENTRANCES  TO  THE  PROGRAM  WILL  BE  MAINTAINED,  THE  SAME  STALLING  ROUTINE  WILL  BE  USED  AND 

-OUTPUT^  W-I-L-L  -SJ-I-LJ RF  VTA  THF  PIISHI  1ST.  THF  PRIMARY  0 1 F FFR  ENC  E5_J_Q_A_USER  INVOLVE  THE  ADDED  CAPABILITY  OF 

TERMINATING  INTEGRATION  AT  A SPECIFIC  FINAL  RADIUS  AND  THF  DIFFERENCE  IN  STATE  VECTOR  SCALING  INSIDE  AND  OUT- 
SIDE THE  LUNAR  SPHERE  OF  INFLUENCE. 

IN  ORDER  TO  MAKE  THE  CSM1LEMJPREC  AND  C SM I L EM) C ON  I C ENTRANCES  SIMILAR  TO  FLIGHT  278,  THE  INTEGRATION  PROGRAM 
WILL  ITSELF  SET  THE  FINAL  RADIUS  (RFINAL)  TO  0 SO  THAT  REACHING  THE  DESIRED  TIME  ONLY  WILL  TERMINATE 

INTEGRATION.  THF  DP  RFGTSTFR  RFTNAI  MUST  BF  S FT  BY  USERS  OF I NT FOR VS  AND  INTEGRV , AND  MUST  Bc  DONE  AFTER  THE 

CALL  TO  INTSTALL. 

WHFN  THF  1M  IS  ON  THF  IUNAR  SURFACE  I INDICATED  B_Y  LUNAR  SURFACE  FI  AG  SET)  CALLS  TO  LEMCONIC,  LEMPREC,  AND 
INTEGRV  WITH  VINFLAG  = 0 WILL  RESULT  IN  THE  USE  OF  THE  PLANFTAPY  INERTIAL  ORIENTATION  SUBROUTINES  TO  PROVIDE 
BOTH  THE  L MS  POSITION  AND  VELOCITY  IN  THE  REFERENCE  COORDINATE  SYSTEM. 

THF  PROGRAM  Will  PROVinF  OUTPUT  AS  IF  INTEGRATION  WAS  USED.  THAT  IS,  THE  PUSHLIST  WILL  BE  SET  AS  NOTED  BELOW  AND 
THE  PERMANENT  STATE  VECTOR  UPDATED  WHEN  SPECIFIED  BY  AN  INTEGRV  CALL. 

USERS  OF  TN'TFORVS  D FS  T RLN-G  INTEGRA!  LQN  1 TNTVPFI.  G = JOT  SHOULD  _NQTE_  THAT  T HE  OBLATENESS  PERTURBATION  COMPUT  AT  I ON 
IN  LUNAR  ORBIT  IS  TIME  DEPENDENT.  THEREFORE,  THE  USER  SHOULD  SUPPLY  AN  INITIAL  STATE  VECTOR  VALID  AT  SOMF  REAL 
TIME  AND  THE  DESIRED  TIME  ( T DEC  1 ) ALSO  AT  SOME  REAL  TIME.  FOR  CONIC  , , I N T EGR A T I ON , , THE  USER  MAY  STILL  USE  ZERO 
-A-S  THE  INI-T-I AL  7 I ME  AMD  DELTA  T IMF  AS  THF  DESIRED-TIME. 

2.0  GENERAL  DESCRIPTION 


THE  INTEGRATION  PROGRAM  OPERATES  AS  A CLOSED  INTERPRFT I VE  SUBROUTINE  AND  PERFORMS  THESE  FUNCTIONS 

1-) LNI.FGR  AT  FS  [PRECISION  OR  CnNIC)  FTTHFR  GSM  OR  LM  STATE  VFCTOR 

2)  INTEGRATES  THE  W-MATRIX 

3)  PERMANENT  OR  TEMPORARY  UPDATE  OF  THE  STATE  VECTOR 


THERE  ARE  SIX  ENTRANCES  TO  THE  INTEGRATION  PROGRAM.  FOUR  OF  THESE  (CSMPREC,  LEMPREC,  CSMCONIC,  LEMCONIC)  SET 
ALL  THE  FLAGS  REQUIRED  IN  THE  INTEGRATION  PROGRAM  ITSELF  TO  CAUSE  THE  PRFCISION  OR  CONIC  INTEGRATION  (KEPLER)  OF 
XhE_LN  OR  CSM  _ST  A TF  VECTOR.  AS  THE  NAMES  SUGGFST.  ONE  ENTRANCE  (INTFGR_VS)  PERMITS  THE  CALLING  PROGRAM  TO 
PROVIDE  A STATE  VFCTOR  TO  BE  INTEGRATED.  THE  CALLING  PROGRAM  MUST  SET  THE  FLAGS  INDICATING  (1)  PRECISION  OR 
CG NIC  INTEGRATION,  (2)  IN  DR  OUT  OF  LUNAR  SPHERE,  (3)  MIDCOURSF  OR  NOT,  AND  THE  INTEGRATION  PROGRAM  COMPLETES 
THF  FIAG  SETTING  TO  BYPASS  W-MATRIX  INTEGRATION.  THF  I AST  ENTRANCE  C INTEGRV,  USED  IN  GENERAL  BY  THE 
NAVIGATION  PROGRAMS)  PERMITS  THE  CALLER  TO  SET  FIVE  FLAGS  (NOT  MOONFLAG  OR  MIDFLAG)  BUT  NOT  TO  INPUT  A STATE 
VECTOR.  ANY  PROGRAM  WHICH  CALLS  I NTEGRVS  OR  INTEGRV  MUST  CALL  INTSTALL  BEFORE  IT  SETS  THE  INTEGRATION  FLAGS 
-AND/OR — ST ATF  VECTOR. 

THREE  SETS  OF  42  REGISTERS  AND  2 FLAGS  ARE  USED  FOR  THE  STATE  VECTORS.  TWO  SETS,  WHICH  MAY  NOT  BE  OVERLAYED,  ARE 
USED  FOR— THE  PERftANEMJ  ST AT F VFCTORS  FOR  THF  GSM  AND  I M.  THF  THIRD  SET.  WHICH  MAY  BE  OVERLAYED  WHEN  INTEGRATION 
IS  NOT  BEING  DONE,  IS  USED  IN  THE  COMPUTATIONS. 

-THE  P FRM-ANLENT_ST  ATE  VECTORS  WILL  BF  PFRIODT  CAI  1 Y UPDATFD  SO  THAT  THE  VECTORS  WILL  NOT  BE  OLDER  THAN  4 TIMESTEPS. 
THE  ° ERM AN EN T STATE  VECTORS  WILL  ALSO  BE  UPDATED  WHENEVER  THE  W-MATRIX  IS  INTEGRATED  OR  WHEN  A CALLER  OF  INTEGRV 
SETS  STATEFLG  [THE  NAVIGATION  PROGRAMS  P20,  P22.) 
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S3 

R0082 
R0083 
p nn  «/, 

APPENDIX  B OF  THE  USERS  GUIDE  LISTS  THE  STATE  VECTOR  QUANTITIES. 
2 * 1 RESTARTS 

R0085 

R0086 

pr>npH 

PHASE  CHANGES  WILL  BE  MADE  IN  THE  INTEGRATION  PROGRAM  ONLY  FOR  THE  INTEGRV  ENTRANCE  (I.E.,  WHEN  THE 
INTEGRATED  OR  PFRMANFNT  STATE  VECTOR  IS  UPDATED.)  THE  GROUP  NUMBER  USED  WILL  BE  THAT  FOR  THE  P20-25 

W-MATRIX  IS 
PROGRAMS 

R 0090 
R 0092 
R.0094 

(I.E.,  GROUP?)  SINCE  THE  INTEGRV  ENTRANCE  WILL  ONLY  BE  USFD  BY  THESE  PROGRAMS.  IF  A RESTART  OCCURS  DURING  AN 
INTEGRATION  OF  THE  STATE  VECTOR  ONLY,  THE  RECOVERY  WILL  BE  TO  THE  LAST  PHASE  IN  THE  CALLING  PROGRAM.  CALLING 
PROGRAMS  WHICH  IISF  THE  TNTFGRV  OR  INTFGRVS  ENTRANCE  OF  INTEGRATION  SHOULD  ENSURE  THAT  IF  PHASE  CHANGING  IS  DONE 

R 0096 
R0097 
p.  nagfi 

THAT  IT  IS  PRIOR  TO  SETTING  THE  INTEGRATION  INPUTS  IN  THE 
THIS  IS  BECAUSE  THE  PUSHLIST  IS  LOST  DURING  A RESTART. 

PUSHLIST. 

R0099 
R0100 
— P01-01 

2.2  SCALING 

THE  I NTF  GR  AT  T ON— fi-OilT  T NE  Will,  MAINTAIN  THE  PERMANENT  MEMORY  STATE  VECTORS  IN  THE  SCALING  AND  UNITS  DEFINED 

IN 

R0103 
R0105 
- R 01-07 

APPENDIX  B OF  THE  USERS  GUIDE.  THE  SCALING  OF  THF  OUTPUT  POSITION  V ECTOR  DEPENDS  ON  THE  ORIGIN  OF  THE  COORDINATE 
SYSTEM  AT  THE  DESIRED  INTEGRATION  TIME.  THE  COORDINATE  SYSTEM  TRANSFORMATION  WILL  BE  DONE  AUTOMATICALLY  ON 
MIMTIPIF  TIMFSTFP  FNC.KF  INTEGRATION  ONIY.  THUS  IT  IS  POSSIRLF  TO  HAVE  OUTPUT  FROM  SUCCESSIVE  INTEGRATIONS  IN 

R0109 
R0110 
RQ-LLl 

DIFFERENT  SCALING. 

HOWEVER,  RATT,  VATT  WILL  ALWAYS  BE  SCALED  THF  SAME. 

R01 12 
R 0 1 1 3 
R-0-1-14 

3.0  IN  PUT /OUTPUT 

R0115 

R0117 

R0-U9 — 

PROGRAM  INPUTS  ARE  THE  FLAGS  DESCRIBED  IN  APPENDIX  A AND  THE  PERMANENT  STATE  VECTOR  QUANTITIES  DESCRIBED 
PEND I X B OF  THE  USERS  GUIDE,  PLUS  THE  DESIRED  TIME  TO  INTEGRATE  TO  IN  TDEC1  (A  PUSH  LIST  LOCATION). 

FOR  I-NJEGRVS.  THF  Rf-_V_.Vr.V  . TFT  OF  THF  TFMPORARY  STALE  VECTOR  MUST  BE  SET,  PLUS  MOONFLAG  AND  MIDFLAG 

IN  AP- 

R0121 
R0122 
— R-0  1 7 3 

FOR  SIMULATION  THE  FOLLOWING  QUANTITIES  MUST  BE  PRESET  

R01  24 
R0125 

R-O-l-2-6 — 

RRI  C-ICSM  t FM)  - RI  CTI  FI!  0 PCS  I I ION  VECTOR  _ MFTFRS 

EARTH  MOON 
29  27 

2 2 

R 01 2 7 
R0128 

R -012-9 — 

VRH.1  CSMILFM)  — . R FCT  I F I FD  VFIOCITY  VFC.TOR  H/CSFC 

7 5 

7 7 

R0130 

R0131 

R0132 — 

J-EJCSMI  LEM  ) - -TIME  STATF  VFC.TOR  IS  VALID  C S.E  C 

28  28 
2 2 

R0133 
R 01  34 

R.0.13  5 

CUSTOMARILY  0,  BUT  NOTE  LUNAR 
ORBIT  DEPENDENCE  ON  REAL  TIME. 

R0136 
R01  37 

R-Gl-38 — 

DELTAVCSM(LEM)  - POSITION  DEVIATION  METERS 

- --  - 0 IF  TCCSM11FM)  = 0 

22  18 
2 2 

R0139 
R 01  40 
RO.14-1 

ND-V-C-S-M  X -LELMT - VF)  PC  ITY  DEVIATION  M/C  SEC 

3 -1 

2 2 

R0142 
R 0 1 43 

0 IF  TCCSM(LEM)  = 0 
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R0144 

R0145 

RCVCSMI LEM) 

- CONIC  POSITION 

- EQUALS  RRECTCSM 1 LEM)  IF 

METERS 

29 

2 

27 

2 

R0147 

R0148 

TCCSM(LEM)  = 0 

_ 7 

5 

R0150 

R0151 

Rni  s? 

VCVCSMl LEM) 

- CONIC  VELOCITY 

EQUALS  VRECTCSM(LEM)  IF 
TCCSMII FM)  = 0 

M/CSEC 

2 

2 

R0153 

R 0 1 54 

28 

28 

RQ155 

JCCSM(LEM) 

- T1MF  SINCE  RECTIFICATION 

CSECS 

2 

2 

R0156 

CUSTOMARILY  0 

' 

R0157 

R01  58 

1/2 

17 

16 

R0159 

XKEPCSM1LEM ! 

- ROOT  OF  KEPLERS  EQUATION 

M 

2 

2 

R0160 

0 IF  TCCSM(LEM)  = 0 

RD  V/KJ 

R0162 

CMCONFLG 

- PERMANENT  FLAGS  CORRESPONDING 

0 

0 

RO 163 

CM  IDFLAG 

TO  MOONFLAG  AND  MIOFLAG 

0 , 1 

0,1 

I MfflNFI  F. 

c = C SMt  l = 1 M 

0 - 

0 

R0165 

LMIDFLG 

0,1 

0,  1 

R 0 1 66 

RQ167 

-3UREF  LAO 

- LUNAR  SURFACE  flag 

0,1 

0,1 

R0168 

R 0 1 69 

IN  ADDITION,  IF 

( L ) CM IDFLAG  IS  SET,  THE  INITIAL  INPUT  VALUES  FOR 

LUNAR 

_ RO  1 70 

sn  AS  F P HF  MFJLI  DE.S  SUBRT1UT  IMF  AND  PLANETARY  INERTIAL 

. OR  LEM  TAT  ION 

SUB-  . 

ROl  71 

ROUTINE  MUST  BE 

PRESET. 

RO  1 72 

ROl 73 

_ OUTPUT 

RO  1 74 

AFTER  EVERY  CALL  TO  INTEGRATION 

RO  1 75 

EARTH 

MOON 

RO 1 lb 

29 

29 

R 0 1 77 

OD  RATT 

POSIT  ION 

METFRS 

2 

2 

R 01  78 

7 

7 

-ROl  79 

6-D  . VAT T 

v fi  nr.  t ty 

M/CSEC 

2 

2 

R 01  80 

28 

28 

ROl  8 1 

12D  TAT 

T IME 

2 

2 

&Q-1-82  .. 

29 

27 

RO  1 83 

140  RATT1 

POSITION 

METERS 

2 

2 

ROl  84 

7 

5 

ROl 85 

20-D  VATI1 

V ELOC  ITY 

M/CSFC 

2 

2 

ROl  86 

3 2 

36 

30 

RO  1 87 

260  MU(P) 

MU 

M /CS 

2 

2 

RQL88 

ROl  89 

XI 

MUTABLE  ENTRY 

-2 

- 10D 

R0190 

ROl 91 

X2  . 

COORD  I NT 

ROl  92 

X2 

COORDINATE  SYSTEM  ORIGEN 

0 

2 

RO  193 

(THIS,  NOT  MOONFLAG,  SHOULD  BE 
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R0194  USED  TO  DETERMINE  ORIGIN.) 

R0195 

R 0 1 P/S IN  /'PPITION  TO  THF  AROVF  f THF  PFRMANFNJ_SlTAT£  V EC  TQlL_jLSL-JiEDA3£D^H^^ 

R0197  STATEFLG  WAS  SET  AND  WHENEVER  A W-MATRIX  IS  TO  BE  INTEGRATED.  THE  PUSH 
RO 198  COUNTER  IS  SET  TO  0 AND  OVERFLOW  IS  CLEARED  BEFORE  RFTURNING  TO  THE 

R.Q1-99 C A-L-L I-NG-  PROGRAM. 

R0200 

R0201  4 . C CALLING  SEQUENCES  AND  SAMPLE  CODE 

R 02  0 2 - 

R0203 

R0204  A)  PREC ISION  ORBITAL  INTEGRATION.  CSMPRE C » LE MPREC  ENTRANCES 

R02DF I -X STORF  TIMF  TO  95T5791T5  T 95  PUS  L9ST  (T4531) 

R0206  L CALL 

R0207  L+I  CSMPREC  I OR  LEMPREC) 

R-0208 L±2 RETURN 

R 02  09  INPUT  28 

R0210  TCEC1  (PD  32  D I TIMF  TO  INTEGRATE  T 0 ...  CENT  I SECONDS  SCALED  2 

R 02  I 1 nilTPLJT 

R02 1 2 THE  DATA  LISTED  IN  SECTION  3.0  PLUS 

R02 1 3 RCVV  POSITION  VECTOR  OF  VEHICLE  WITH  RESPFCT  TO  SECONDARY 

r o 2 1 4 Rnny...  mftfrs  b-29  only  if  midflag  = dimoflag  = 1 

R0215  6)  CONIC  INTEGRATION.  CSMCONIC,  LEMCONIC  ENTRANCES 

R0216  L-X  STORE  TIME  IN  PUSH  LIST  (TDEC1) 

— R 02 1 7 — — L CALL — 

R0218  L +1  CSMCONIC  (OR  LEMCONIC) 

R0219  INPUT/OUTPUT 

— R 02-2-0 S-AM.E-  -AS-  PfiJLG I -S_T_0 N TNXFGR  AXTJ1N,_  EXCEPT  ROW  NnT  S FT 

R0221  C)  INTEGRATE  GIVEN  STATE  VECTOR.  INTEGRVS  ENTRANCE 

R0222  CALL 

RQ-223 1 NTS  TALI 

R0224  V LOAD 

R0225  POSITION  VECTOR 

R022-6 SJOVL RX-V 

R0227  VELOCITY  VECTOR 

R0228  STOOL  VCV 

R0229 TIMF  STATF  VECTOR  VALID 

R0230  STOOL  TET 

R0231  FINAL  RADIUS 


R0  2 32 

- -STORE  RE^IMAL 

R0233 
R 02  34 

RD2-35 

SET(CLEAR) 

SET (CLEAR ) 
I NTYPFLAG 
MQQNEL  AG- 

R0236 

SET (CLEAR ) 

DLOAD 

R0237 

DESIRED  TIME 

R02  36 

-STCALL 

TDEC-L 

R 0239 

INTEGRVS 

R0240 

INPUT 

R02AL 

B-CV- 

P CSI  T IQN_  VECTOR 

MFTFRS 

R0242 

VCV 

VELOCITY  VECTOR 

M/CSEC 

R0243 

TET 

TIME  OF  STATE  VECT0R1MAY  = 0) 

CSEC  B-28 
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R0244  TCECl  TIME  TO  INTEGRATE  TO  CSEC  B-28  I PD  32D) 

R 0245  (MAY  BE  INCREMENT  IF  TET=0 ) 

R0246 OUTPUT 

R0247  SAME  AS  FOR  PRECISION  OR  CONIC  INTEGRATION, 

R0248  DEPENDING  ON  I NT YPFLG. 

ROpA-g p)  TNTFGRATF  STATF  VFC  TOR.  I NTGRV  ENTRANCE, 

R0250  L-X  STORE  TIME  IN  PUSH  LIST  ( TDEC1 ) ( MAY  BE  DONE  AFTER  CALL  TO  INTSTALL) 

R0252  L-8  CALL 

80253 L=2 

R0254  L-6  SET(CLEAR)  SET ( CLEAR ) 

R0255  L— 5 VINTFLAG  1=CSM,  0=LM 

RP2  BA L-4 INTYPFLAG 1 = C0NIC.  Q=PRECISION 

R0257  L— 3 S ET (CLEAR ) SET(CLEAR) 

R02  5 8 L-2  DIMOFLAG  1 = W-MATRIX,  0 = N0  W-MATRIX 

RQ259 D60R9FLG L^9X9_,  0=-6X6 

R0260  L SET  DLOAD 

R0261  L+l  STATEFLG  DESIRE  PERMANENT  UPDATE 

R0262 L ±2 FINA1  RAD.  OF  STATF  VECTOR 

R0263  L+3  S TC ALL  RFINAL 

R 02  64  L +4  INTEGRV 

R076S I CJSU NORMAL  USE — WILL  UPDATE  STATE 

R0266  L+l  INTEGRV  VECTOR  IF  D I MOFL AG= 1 . ( ST AT EFL G IS 

R0267  L+2  RETURN  ALWAYS  RESET  IN  INTEGRATION  AFTER 

ejOZbA IT  IS  USED.) 

R0269  INPUT 

R0270  T DEC  1 (PD  32D)  TIME  TO  INTEGRATE  TO  CSEC  B-28 

RXL2-Z1 nUTPUT 

R0272  SAME  AS  FOR  PRECISION  OR  CONIC  INTEGRATION 

R0273  THE  PROGRAM  WILL  SET  MOONFLAG,  MIDFLAG  DEPENDING  ON 

RO 2-74 THE — RS-R-M AN E N T STATE-VECTOR  REPRESENTATION.. 


02741 

— .02742 

-R-EF- 

3 

LAST 

25  1 

11,2311 
1 3 , 2000 

BANK  11 

SETLOC  INTINIT 

02743 

13,2604 

BANK 

02744 

REF 

7 

LAST 

978 

E3, 1 554 

EBANK=  RRECTCSM 

_ -0-204  5- 

REF 

3- 

LA_SI 

-25  1 ICL 

25 A.: 

34 3.6* 

-CCLUNT*  _$$/I  NT  IN 

0275 

REF 

106 

LAST 

1148 

13, 2604 

0 5353  1 

STATFINT 

TC  PHASCHNG 

02  76 

13,2605 

00052  0 

OCT  00052 

02J-2 

- REF 

10 

LAST 

_ 7.8  5 _ 

13,  2-606 

3 5017  1 

CAF  PPI05 

0278 

REF 

39 

LAST 

96  4 

13, 2607 

0 5105  0 

TC  FIND  VAC 

0279 

REF 

8 

LAST 

1204 

E3 , 1554 

EBANK=  RRECTCSM 

0280 

-REE. 

2_ 

...LAST 

_235_ 

1 3j_2  610 

0.2613  1 

2CAQR  STATINT1 

0280 

13,2611 

26063  0 

0281 

REF 

70 

LAST 

1127 

13, 2612 

0 5261  1 

TC  TASKOVER 

- - 0282 

REF 

222  . 

LAST 

1186 

13,2613 

0 6036  1 

STAT I NT  1 

TC  INTPRET 

0283 

13,2614 

47014  1 

BON  RTB 

0283  l 

REF 

2 

LAST 

3 1 3 

13, 2615 

04712  1 

QIJITFLAG  KILL  INTEGRATION  UNTIL  NEXT  POO. 

02B32- 

R-EF. 

1 

13.2616 

26653  0 

NCINT 

0284 

REF 

28 

LAST 

974 

13,2617 

21462  1 

LOADTIME 

0286 

REF 

55 

LAST 

97  1 

13, 2620 

00041  1 

STORE  TDEC1 
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0323 

13,2621 

77624  1 

CALL 

0324 

REF 

27 

LAST  1148 

13,2622 

27412  0 

I NT  S TALL 

1 3 t ? A2  3 

45014 0 

S£T 

CALL 

03251 

REF 

4 

LAST  251 

1 3 » 2 624 

01076  1 

NODPFLAG 

0326 

REF 

7 

LAST  594 

13,2625 

26644  0 

SET  I FLOS 

1 3 ,2  62  6 

77650  1 

GOD 

0328 

REF 

1 

13,2627 

26026  1 

STATEUP 

0356 

13,2630 

00003  1 

600SECS 

20EC 

60000 

_03  56 

13,  2 63  1 

-25140.  £L_ 

0404 

13,  2 632 

77414  0 

ENDINT 

CLEAR 

EXIT 

0405 

REF 

4 

LAST  594 

13,  2633 

01672  0 

STATFFLG 

Q4Q  ft 

RFF 

1 07 

LAST  1704 

1 3.  2 £3  4 

Q 53_53  1 

TC 

PHASCHNG 

0409 

13, 2635 

20032  1 

OCT 

20032 

0411 

13,2636 

0 0006  1 

EXTEND 

041-2 

RFC 

2 

LAS  T 25_4 

13,2637 

3 2631  1 

DC  A 

600S  ECS 

0413 

REF 

3 

LAST  742 

13,2640 

0 5277  0 

TC 

LONG CALL 

0414 

REF 

4 

LAST  312 

E3, 1626 

EBANK= 

R PEC  THIS 

041-5  - 

- R CF 

3 

L AST 2-54 

1 3,2641 

_ -026-04  1 

?CAP° 

stateint 

0415 

13, 2642 

26063  0 

0416 

REF 

145 

LAST  971 

13,2643 

0 5155  0 

TC 

ENDOFJOB 

Q42& 

13, 2044  - 

43014  0 

SET IFLGS 

SET 

CLEAR  __  . 

0427 

REF 

5 

LAST  1205 

13,2645 

01472  1 

STAT  FFLG 

0428 

REF 

14 

LAST  791 

13, 2646 

01673  1 

I NT Y PFLG 

0429 

- - Li,-2-i>4Z 

430 14  0 

f.l  FAR 

C LEAP 

0430 

REF 

12 

LAST  594 

13,  2650 

01676  1 

DIMOFLAG 

04301 

REF 

8 

LAST  594 

13,2651 

01675  1 

D60P  9FLG 

0430  2 

13-,  2652 

776 1 4 0 

RVQ 

04303 

13,2653 

77776  1 

NOINT 

EXIT 

04304 

REF 

1C8 

LAST  1205 

13, 2654 

0 5353  1 

TC 

PHASCHNG 

0430  5- 

1 1,2  655 

00002  Q_ 

OCT 

0 000-2. 

04306 

REF 

90 

l AST  975 

13, 2656 

0 5516  0 

TC 

DOWNFLAG 

-0430  7 . PULE 

- 3 

LAST  120  4 

13,2A5  7 

on??]  o 

ADRES 

QUIT  FLAG 

04308 

REF 

146 

LAST  1205 

13,2660 

0 5155  0 

TC 

ENDOFJOB 

R0431  - A4-C-PC-SM  TRANSFERS  RRECT--T-Q  - RRECT  +41  TO  RREC-TCSM  TO  R R-E CLCS-M  -+41 


R0432 

R-Q4-3V 

CALLING  SEQUENCE 
L CALL 

R0434 
0 043  5 — 

L+ 1 ATOPCSM 

— N-C  R M A L -E  X 1-7-  - A T -1  + ? 

0436 

13, 2661 

47020  0 

ATOPCSM 

STQ 

RTB 

0437 

REF- 

27 

1 AS  T 1135  -- 

13,2.662 

00.0.51  0 

S 2 

0438 

REF 

2 

LAST  1152 

13, 2663 

26674  0 

MOVE  ACSM 

0439 

13, 2664 

45014  0 

SET 

CALL 

04-4-0 

— REE 

7 

LAS  T 719  - 

1 3. ? 665 

04063  0 

CMOONFl  G 

0441 

REF 

3 

LAST  1152 

13, 2666 

26114  1 

SVDWN1 

0442 

13,2667 

43014  0 

BON 

CLRGO 
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0443 

REF 

12 

LAST 

79  1 

13,2670 

00303  1 

MOONFLAG 

0444 

REF 

28 

LAST 

120  5 

13,2671 

00051  0 

S 2 

p pp 

g 

1 AST 

120  5 - 

13, 2572 

_ 04-223  0 

r Mnn  nflg  _ 

0446 

REF 

29 

LAST 

1206 

13, 2673 

00051  0 

S2 

0447 

REF 

1 

13,2674 

0 3036  1 

MOVFACSM  TC 

S FT  R ANK 

1 7 6 

13, 2 675 

_55-'5  0Q  1 

TS 

DIFEQCNT  . 

INITIALIZE  INDEX 

0449 

REF 

3 

LAST 

1206 

13,  2 676 

51' 500  0 

INDEX 

DIFFQCNT 

0450 

RFF 

6 

LAST 

1169 

13,2677 

3 1502  1 

CA 

RRECT 

RFF 

1 AS  T 

120  6 

13, 2 700 

-51*5  00  0 

INDEX 

DIFEQCNT  .. 

0452 

REF 

9 

LAST 

1204 

13, 2701 

55 1 554  0 

TS 

RRECTCSM 

0453 

REF 

5 

LAST 

1206 

13,2702 

11' 5 00  1 

CCS 

D IFE  QCNT 

IS  TRANSFER  COMPLETE 

0454 

RFF 

3 

1 AST  1 70  *5 

13 ,2703 

1 2675  0 

TXF  _ 

MOVE  ACSM  +1 

NO— 1 OOP 

0455 

REF 

56 

LAST 

1179 

13,2704 

0 6060  1 

TC 

DANZ  IG 

complete-  RFTURN 

R0456 

PTOACSM 

TRANSFERS  RRECTCSM  TO 

RRECTCSM 

+41  TO  RRFCT  TO 

RRFCT  +41 

R0457  C A L L DN  G— S ECU-EN-CE — 

R045  8 L CALL 

R0459  PTOACSM 


R0460 

NORMAL 

EXIT  AT 

L + 2 

0461 

13,2705 

43034 

1 

PTOACSM 

RTB 

BON 

0467 

R E F 

2 

L AS  T 

1152- 

13,-3706 

26723 

0 

MOV  F PC  SM 

0463 

REF 

9 

LAST 

120  6 

13, 2707 

04303 

0 

CMOONFLG 

0464 

REF 

1 

13,2710 

26716 

0 

SETMOON 

—04.65 

13,2711 

662  14- 

0 

CLRMOON 

CLEAR 

SSP 

0466 

REF 

13 

LAST 

120  6 

13,  2712 

00263 

0 

MOONFLAG 

0467 

RFF 

4 

LAST 

11  5 1 

13,2713 

02031 

1 

PBODY 

0463 

13, 2 714 

00000 

1 

0 

0469 

13,2715 

77616 

0 

RVQ 

0470 

13, 2716 

66214 

0 

SETMOON 

SET 

SSP 

04  71 

_ R-E-F 

-14 

LAST 

120-6 

13,271 7 

00063  - 

1 

MOONFLAG 

0472 

REF 

5 

LAST 

1206 

13,2720 

02031 

1 

PBODY 

0473 

13,2721 

00002 

0 

2 

.0474  _ 

13, 2722 

77616 

0 

RVQ_ 

0475 

REF 

2 

LAST 

1206 

13, 2723 

0 3036 

1 

MOVEPCSM 

TC 

SFTB ANK 

0476 

REF 

6 

LAST 

12  0 6 

13,2724 

55*500 

1 

TS 

D IFFOCNT 

.04  7.7 

REE 

7. 

LAST 

-L208_ 

13,_2  725 

51' 500 

0 

INDEX 

P I F E QCNT 

0478 

REF 

10 

L AST 

1206 

13,2726 

3 15  54 

1 

CA 

RRFC TCSM 

04  79 

REF 

8 

LAST 

1206 

13,2727 

51'  500 

0 

INDEX 

DIFE  QCNT 

04.8X1. 

. REF 

7 

LAST 

12.0  6 

13,2730 

55*502 

Q_ 

TS 

RRECT 

0481 

REF 

9 

LAST 

120  6 

13, 2731 

1 1 ' 500 

1 

CCS 

DIFEQCNT 

0482 

REF 

3 

LAST 

120  6 

13,  2732 

1 2724 

0 

TC  F 

MOVFPCSM  +1 

04.83  - 

RFF 

5 7 

LASI 

120  6 

13,_2  733 

0 .60  6.0 

1 

TC 

DANZ  IG 

R-04-84 

- A3-&PL-E-M- 

- T-RANSEER-S- 

-RRECT—  TH_RREC-X-  +41 

TO — RRECT-LEM— TO.  R-REC T LEM-  +41  _ 

13,2734  47020  0 ATOPLEH  STQ  RTB 


0485 
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0486 

REF 

30 

LAST 

1206 

13,2735 

0005  L 

0 

S2 

0487 

REF 

3 

LAST 

115  1 

13,  2736 

26747 

1 

MOVEALEM 

-Q  4-8-8 

1 7,  2737 

_ 45014 

0 

_ S.EI 

_J1AU 

0489 

REF 

3 

LAST 

587 

13, 2740 

04064 

1 

LMOONFLG 

0490 

REF 

2 

LAST 

115  1 

13,2741 

26070 

1 

SVDWN2 

n/fO ) 

13,7747 

43014 

-Q 

BON 

CLRC-O 

0492 

REF 

15 

LAST 

1206 

13, 2743 

00303 

1 

MOONFLAG 

0493 

REF 

31 

LAST 

1207 

13, 2744 

00051 

0 

S 2 

04-94- 

QFF 

4 

_L-AS.1L 

__12_07  _ 

1 3,7745 

042  24 

JL_ 

LMOONFLG 

0495 

REF 

32 

LAST 

1207 

13, 2746 

00051 

0 

S 2 

0496 

REF 

3 

LAST 

1206 

13, 2747 

0 3036 

1 

MOVEALEM  TC 

SETB ANK 

0497 

R FF 

in 

1 AST 

7.206 

13,  2750 

55. '5  0.0 

-L_ 

TS 

D I F F PC  NT 

0498 

REF 

1 1 

LAST 

120  7 

13, 2751 

5 1 ■ 5 00 

0 

INDEX 

D I F F QCNT 

0499 

REF 

8 

LAST 

1206 

13, 2752 

3 1502 

1 

CA 

RRFCT 

0500 

p EF 

12 

L-AST- 

120  7 

1 3,  ?753 

5-1  '.5lQ0 

_0— 

. T.NQEJ- 

0 1 F F QCNT 

0501 

REF 

2 

LAST 

12  7 

13, 2754 

55' 626 

0 

TS 

RRECTLEM 

0502 

REF 

13 

LAST 

1207 

13,2755 

11' 500 

1 

CCS 

DIFEOCNT 

0503 

ref 

4 

1 AST 

-1207 

13  ,.2  7 5.6. 

1 2750 

JL. 

IC-E 

MOVFALFM  ■ 

0504 

REF 

58 

LAST 

1206 

13,2757 

0 6060 

1 

TC 

DANZ  IG 

R0505 

PTC AL  EM 

TFANSFERS 

RRECTLEM  TO  RRECTLEM 

+41  TO  RRECT  TO 

RRECT  +41 

n S-0/-V 

. 1 ? 7-60  - 

47  04  4 1 

PTOALEM BON 

R-TB 

0507 

REF 

15 

LAST  844 

13, 2761 

04307  1 

SURFFLAG 

0508 

REF 

1 

13, 2762 

27001  0 

USE  P IOS 

05-09 

R-E-F 

2 

-L-AS4  11-54 

13,27 63 

— 2677-0-  0 

MOV E PLFM 

0510 

13,  2764 

52014  0 

BON 

GOTO 

0511 

REF 

5 

LAST  1207 

13, 2765 

04304  1 

LMOONFLG 

_ 05-1-2 

_ 1UEF- 

_LA-ST  12-0-6 

13. 2-7.66  26716  0 

SEIMXON 

0513 

REF 

1 

13,2767 

26711  1 

CLRMOON 

0514 

REF 

4 

LAST  1207 

13,2770 

0 3036  1 

MOVEPLEM  TC 

SFTBANK 

05-1  5 

REF 

44 

-LAST  120  7 

13  , 2 77  1 

5-5*500  1 

TS 

D IF  F OF  NT 

0516 

REF 

15 

LAST  1207 

13,2772 

51' 500  0 

INDEX 

DIFEOCNT 

0517 

REF 

3 

LAST  1207 

13, 2773 

3 1626  1 

CA 

RRECTLEM 

051 8 

R-EF 

1-6 

L AS  I 120  7 

13,2  774 

5-1  * 5 00  _Q 

IMDEX- 

DIFEOCNT 

0519 

REF 

9 

LAST  1207 

13, 2775 

55 1 5 02  0 

TS 

RRFCT 

0520 

REF 

17 

LAST  1207 

13, 2776 

11*500  1 

CCS 

DIFEOCNT 

mms2  i . 

R-EF. 

3 - 

-LAST  12  0 7 

1 3. 7 777 

1-2771  0 

TC  F 

MOVE  PLFM  +1 

0522 

REF 

59 

LAST  1207 

13,3000 

0 6060  1 

TC 

DANZ  IG 

0523 

13,3001 

77201 

1 

USEPIOS  SETPD 

VLDAD 

0524 

13,3002 

00001 

0 

0 

0-52-5 — 

R-E-F- 

12 

LAS-T  1L3-4 

13, 3-OjO .3l_ 

02023 

3.  - 

RLS 

0526 

13,3004 

41525 

0 

PDDL 

PUSH 

0527 

REF 

56 

LAST  1204 

13,3005 

00041 

1 

TOEC  1 

05-2-8 — 

- RFF 

— L2 

-LAS-T  --79  1 

13, 3 006— 

15517 

0 

STnm 

LET 

0529 

REF 

1 

13,3007 

27736 

0 

5/8 

0530 

13,3010 

77624 

1 

CALL 

-1-9.107  NOV.  25,1  968 SHIPPER  .070 PAGE  1208 


QAP  J ASSEMBLE  RE-V  ISI-QN  0-69  OF-AGC  PROGRAM  LUMINARY  8Y  NASA  20  2 1 L 12  - 0-11 


► L INTEGRATION  INITIALIZATION  USER'S  PAGE  NO.  9 E3  S3 


0531 

REF 

7 

LAST 

1130 

13, 3011 

51504 

1 

RP-TO-R 

0532 

REF 

15 

LAST 

1174 

13, 3012 

25535 

0 

STOVL 

RCV 

J_  A8T 

3 6 

13-,  3 01-3 

22  2 67 

1 

7 UNI T 

0534 

13,3014 

14001 

0 

STOOL 

OD 

0535 

REF 

13 

LAST 

1207 

13,3015 

01517 

0 

TFT 

13,30 1 6 

140  07 

0- 

— SXJOOL  . 

. 6.0. 

0537 

REF 

2 

LAST 

120  7 

13, 3017 

27736 

0 

5/8 

0538 

13,3020 

45014 

0 

SET 

CALL 

NEEDED  FDR  SETTING  XI  ON  EXIT 

05  38  1 

RFF 

16 

LAST 

-12X1.7 

13.,  3X121 

000  63 

1- 

M COE!  FLAP 

0539 

REF 

8 

LAST 

1208 

13,3022 

51504 

1 

RP-TO-R 

0540 

13,3023 

74235 

0 

VXV 

VXSC 

Ol54J 

RFF 

.16 

1 AST 

120-8 

13, 3024- 

0 1 5 3_5_ 

0 

RCV 

0542 

REF 

i 

13,3025 

26001 

1 

D MEG  MOON 

0543 

REF 

13 

LAST 

1174 

13,3026 

25543 

1 

STOVL 

VCV 

0 54-4— 

RFF 

8 

LAST 

1130 

19, 3077 

22275 

_L 

ZEKOVEC 

0545 

REF 

6 

LAST 

1151 

13,3030 

01521 

0 

STORE 

TDELTAV 

0546 

13,3031 

67174 

1 

AX  T , 2 

SXA  , 2 

0547 

13,3-032— 

000  02 

0 _ 

2 

0548 

REF 

6 

LAST 

12  0 6 

13, 3033 

02030 

0 

P BOD  Y 

0549 

RFF 

6 

LAST 

115  1 

13,3034 

35527 

1 

STCALL 

TNUV 

0580 

RFF 

1 . 

1 3 , 3-03  5 

27157 

1 

A-PC  HK 

0552 

RFF 

1 

13, 3036 

3 3042 

1 

SETBANK 

CAF 

I NT BANK 

0553 

REF 

37 

LAST 

1124 

13,3037 

54  0 06 

0 

TS 

BBANK 

REF- 

1 

1 3 , 3-040 

3 -3457 

1 

CAE- 

FORT YONE 

0555 

RFF 

323 

LAST 

1126 

13, 3041 

0 0002 

0 

TC 

Q 

0556 

REF 

11 

LAST 

1206 

E3, 1 554 

EBANK= 

RREC  TCSM 

0557 

_RFF 

9— 

L-AS.T 

-5  94 

13,3042 

260  63 

0— 

INT  BANK 

BBCON 

I1TEGRV 

- R0558-  SPECI  AL  PURPOSE  E -NT  RTF S TO  J3R3-LT AL — TNJ-E6R  AT  I PEL.  JHE-SE  — RQU T I N F S EROVTOF  FNTR  ANCFS  TO  INTEGRATION  ..ItLLTH 
R0560  APPROPRIATE  SWITCHES  SFT  OR  CLEARED  FOR  THE  DESIRED  INTEGRATION. 


R0561 

R0563 
R0564 
— R-0565 
R0567 
R0568 


-GSM-RR-E-C— AA1E— L FMP  R-HC  HER  EXRM — 0 RB-1T — IJ4T-E  GR  AT  1 0 N~  RV  THE  FNf.KF  HFTHOD  Tn  THE  TTHF  INDICATED  JJT  -TJ3EC  1 
ACCELERATIONS  DUE  TO  OBLATENESS  ARE  INCLUDED.  NO  W-MATRIX  INT.  IS  DONE. 

THF  PERMANENT  STATE  VECTOR  IS  NOT  UPDATED. 

-C-S!AC-ON7_c — A-ND — LEMC-CNJX — P E RE 0 R N ORBIT  I-MXEGl.—  BY  KEPLERS  METHOD  TP  THE  TIME  INDICATED  IN  TDEC1 
NO  DISTURBING  ACCELERATIONS  ARE  INCLUDED.  IN  THF  PROGRAM  FLOW  THF  GIVEN 
STATE  VECTOR  IS  RECTIFIED  BEFORE  SOLUTION  OF  KEPLERS  EQUATION 


P0569 
R0570 
R05  71 

THF  ROUTINES 
SWITCHES  SET 

ASSUME 

PRIOR 

C.S-MPR.EC 

THAT  THE  CSM  (LEM)  STATE  VECTOR 
TO  ENTRY  TO  THE  MAIN  INTEG.  PROG 
C SMC  ON  I C LEMPREC  LEMCONIC 

IN  P-MEM  IS  VALID. 
ARE  AS  FOLLOWS 

R0572 

VINTFLAG 

SET 

SET 

CLEAR 

CLEAR 

R0573 

INTYPFLG 

CLEAR 

SET 

CLEAR 

SET 

-RXL52Z4- 

DTJYOFLAG  

CHEAS- 

CLEAR  . 

C L FAR 

Cl  EAR 

CALL  I NG— S EXU-ENGE 

L-X  STORE  TDECI 
L CALL 


R0575 

R0576 

R0577 


(STCALL  TDECI) 
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INTEGRATION  INITIALIZATION 

R0578 

L+l  CSMPREC  (CSMC0NIC,  LEMPREC,  LEMCONIC) 

p n d 7 q 

MPPMA1  FY  IT  TH  1 -f?  

n qc  o r\ 

IN  L p I'l  H L C'A  i~t ro 

ci'PnmiTTMcc  r ai  i trn  

-K-q^oU — 

R0581 
R0582 
P 0 5 83 

jtj~C  n Hi  C j — ctttiEii 

I NT  EGR  VI 

PREC0UT  FOR  CSMPREC  AND  LEMPREC 
CCNICCIUT  FOP  rSMOONTO AND  LE MC ON I-C 

R0584 — 
R0585 
R0586 
0-5  8 7-— 

OUTPUT  - SEE  PARE  2 Of  THIS  1 OG  SFC-TITIM 

I NPUT 

TCECl  TIME  TO  INTEGRATE  TO  . CSECS  R-28 

13,3043 45020  1 CSMPREC 

STQ 

CALL 

0588 

0589 

0590 

REF  55  LAST  1196  13,3044  00046  0 

REF  28  LAST  1205  13,3045  27412  0 

13.3046  43130  1 

SXA.  1 

XI 

INTSTALL 

SET 

0591 

0592 

REF  2 LAST  130  13,3047  02102  0 

REF  17  LAST  594  13,3050  01474  1 

l RETURN 
V I NT  FLAG 

0593 

13,3051 

43014 

0 

I FL  AGP 

SET 

CLEAR 

0594 

REF 

3 

LAST 

25  1 

13,3052 

01467 

0 

PREC  IF LG 

A5Q5-- 

_ R-F  F 

13- 

1 AS  T 

120  5 

13*3-0-53- 

016  76 

1 

_ DIMO  FLAG 

0596 

13, 3054 

776  14 

1 

CL  RGO 

0596  1 

REF 

15 

LAST 

1205 

13,3055 

01633 

0 

IMTYPFLG 

- - 05Q6-2 

R F-f  - 

1 

13*  3056 

271  36 

0 - 

T NTF GRV1 

0597 

13,3057 

45020 

1 

LEMPREC 

STQ 

CALL 

0598 

REF 

56 

LAST 

1209 

13,3060 

00046 

0 

XI 

059-9 

— R-E-F- 

-29- 

- -L-AST- 

-12-0-9 

1 3,-3  0-61 

-27412- 

-0— 



I NT  S T AI  1 

0600 

13, 3062 

43130 

l 

SXA,  l 

C LRGO 

0601 

REF 

3 

LAST 

1209 

13, 3063 

02102 

0 

IRFTURN 

0602  - 

RE-F 

13 

LAST 

12  0 9 

13, 3064 

01634 

1 

VINT  FLAG 

0603 

REF 

i 

13,3065 

27051 

0 

I FLAGP 

Q/,04 

i 3T  ^ n^A 

450  20 

r smedn i r 

STQ 

r ai  i 

0605 

REF 

57 

LAST 

1209 

1 3 i 3067 

00046 

0 

XI 

0606 

REF 

30 

LAST 

1209 

13,3070 

27412 

0 

INTSTALL 

0607 

1 3, 3071  _ 

43130 

1 

SXA,  I 

SET 

0608 

REF 

4 

LAST 

1209 

13, 3072 

02102 

0 

{RETURN 

0609 

REF 

19 

LAST 

1209 

13, 3073 

01474 

1 

VINT  FLAG 

-061-0 

1 3,  30  74 

430 14 

0 

I FL  AGC 

CLEAR 

SIT  C-_D 

0611 

REF 

14 

LAST 

1209 

13, 3075 

01676 

1 

DIMO  FLAG 

0612 

REF 

16 

LAST 

1209 

13,3076 

01433 

1 

INTYPFLG 

— 06-1 3 

R-&F 

2 

_ 4_-AST 

12-0  9 - 

1 3 , 3 0 7.  7 

27136 

0 

I UUEJGRY1 

0614 

13, 3100 

45020 

1 

LEMCONIC 

STQ 

CALL 

0615 

REF 

58 

LAST 

1209 

13,3101 

00046 

0 

XI 

0-6.16 

_ R-EF  . 

_ LAST 

120J9 

1 3 ,-3  102 

-27412- 

0 

INTSTALL 

0617 

13,3103 

43130 

1 

SXA,  1 

CLRGG 

0618 

REF 

5 

LAST 

1209 

13,3  104 

02102 

0 

I RFT  URN 

« 
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0619 

REF 

20 

LAST 

1209 

13,3105 

01634 

1 

VINT  FLAG 

0620 

REF 

1 

13,3106 

27074 

1 

I FLAGC 

0621 

13,3107 

66214 

0 

INTEGRVS  SET 

SSP 

0622 

REF 

4 

LAST 

1209 

13,3 110 

01467 

0 

PREC  IFLG 

DA73 

— RXE 

7 

1 AST  120  8 

13,311  1 

0Z03L- 

1 

P_BQPY 

0624 

13, 3112 

00000 

1 

0 

0625 

13,3113 

66214 

0 

BOF 

SSP 

0626 

REF 

17 

—LAST 

120  8 

13, 3114_ 

00343 

0 

MOON  FLAG 

0627 

13,3115 

27120 

1 

+ 3 

0628 

REF 

8 

LAST 

1210 

13,3116 

02031 

1 

P BOD  Y 

0A.2  A 1 

13,3117 

-000-0 2_ 

-0 

2 

0629 

13,3120 

77220 

1 

STQ 

VLOAD 

0630 

RFF 

6 

LAST 

1209 

13, 3121 

02102 

0 

I RET  URN 

| AST 

12  0 8 

13.3122 

222  75 

l 

ZEPOVEC 

0632 

REF 

7 

LAST 

1208 

13, 3123 

01521 

0 

STORE 

TDEL  TAV 

0633 

RFF 

7 

LAST 

1208 

13,3124 

35527 

1 

STCALL 

TNUV 

0634 

RFF 

2 

LAST 

11  51 

13,3125 

23345 

1 

RECTIFY 

0635 

13,3126 

43014 

0 

CL  EAR 

SET 

0636 

REF 

15 

LAST 

1209 

13, 3127 

01676 

1 

D I MO  FLAG 

0637- 

- RFF- 

1 

13,3130 

0 40-6-2 

1 

NFW I FLG  - 

0637  1 

13, 3131 

77614 

1 

SETGO 

06372 

REF 

1 

13,  3132 

04020 

1 

RPQF  LAG 

0638 

RFF 

13,  3 133 

27150 

0 

ALOADED 

R0639  INTEGRV  IS  AN  ENTRY  TO  ORBIT  INTEGRATION  WHICH  PERMITS  THE  CALLER  , 

R 06 AO  NORMALLY  THE  NAVIGATION  PROGRAM  ,T0  SET  THE  INTEG.  FLAGS.  THE  ROUTINE 

R 0641 I-S  FN T ERED-  A T -INLEGRV 1-  3 Y CSMPREC  ET  . AL  . AND  AT  ALOADED  _BY_-  INTEGRVS. 

R0642  THE  ROUTINE  SETS  UP  A-MEMORY  IF  ENTERED  AT  INTEGRV, 1 AND  SETS  THE  INTFG. 
R0643  PROGRAM  FOP  PRECISION  OR  CONIC 


R0644  THE  CALLER  MUST  FIRST  CALL  INTSTALL  TO  CHECK  IF  INTEG.  IS  IN  USE  BEFORE 
R0645  SETTING  ANY  FLAGS. 

R 0646 -T-H-E — E-L-AGS— Wil  C-H  -S-HQU.LH— B-E_- S-EJ-QR  CLEARED  ARE 

R0647  VINTFLAG  (IGNORED  WHEN  ENTERED  FROM  INTEGRVS) 

R0648  INTYPFLG 

P-0649 D-tMOFL  AG 

R0650  D60R9FLG 

R0651  CALLING  SEQUENCE 

R 0 6 5 2 L-X C ALI - 

R0653  L-Y  INTSTALL 

R0654  L-L  SET  OR  CLEAR  ALL  FOUR  FLAGS.  ALSO  CAN  SET  STATEFLG  IF  DESIRED 

__ P 0.6 55 AND  DTMOFLAG  IS  CLEAR.  _ 

R0656  L CALL 

R0657  L+l  INTEGRV 

R0658 INITI Al  I 7ATI  ON 

R0659  FLAGS  AS  ABOVE 

R0660  STORE  TIME  TO  INTEGRATE  TO  IN  TO  EC  1 

_RX16Aa nilTPIIT  

R0662  RATT  AS 

P-066  3 VATT  DEFINED 
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USER'S  PAGE 
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R0666 

TAT 

BEFORE 

0665 

13, 3136 

77620 

0 

INTEGRV 

STQ 

0666 

REF 

7 

LAST 

1210 

13,3135 

02102 

0 

I RETURN 

1 3 1 3 1 36 

43014  0 

LNTEGRV1 

SFT 

-_S_£T  . 

0668 

REF 

2 

LAST 

1210 

13, 3137 

06060 

0 

RPQF  LAG 

0669 

REF 

2 

LAST 

121  0 

13, 3160 

06062 

1 

NFWI FLG 

33,3X41 

77731 

1 

INTEGRV2 

SSP 

0671 

REF 

16 

LAST 

1152 

13, 3162 

00053 

1 

QPPET 

0672 

REF 

2 

LAST 

1210 

13,3163 

27150 

0 

ALOADED 

06-73 

13, 3166 

52016 

0- 

BON 

GOTO 

0676 

REF 

21 

LAST 

1210 

13, 3165 

01716 

1 

VI  NT  FLAG 

0675 

REF 

1 

13,3166 

26705 

1 

PTOACSM 

06-76 

RPF 

2- 

LAST 

3_L2 

13. 3167 

- 26760- 

1- 

PTCA  LEM 

0677 

13,  3 150 

77765 

1 

ALOADED 

DLOAD 

0678 

RFF 

57 

LAST 

1207 

13,3151 

00061 

1 

TDEC  1 

06-79 

RRF 

2 

LAST 

12-0 

13, 3152 

0111.6 

0 

STORE  . 

TDFC  . 

0680 

13, 3153 

52016 

0 

BOFF 

GOTO 

0681 

REF 

17 

LAST 

1209 

13, 3156 

01753 

1 

I NT Y PFLG 

06  8 ? 

RRF  - 

1 

13,31 55 

222  53 

0 

TEST  LOOP 

0683 

REF 

1 

13, 3156 

27261 

0 

RVCON 

0686 

13, 3157 

77616 

0 

A-PCHK 

BOFCLR 

EXIT 

068-5 

R-E-F 

6 IIS  T 

120  5 

13,-3-16-9 

01652- 

l 

. STATFFLG 

0686 

REF 

i 

13,3161 

27200 

0 

REC TOUT 

0687 

REF 

109 

LAST 

1205 

13,3162 

0 5353 

1 

TC 

PHASCHNG 

0688 

13, 3163 

Q6XL2Z- 

0- 

OCT 

0607  2 

06  89 

RFF 

66 

LAST 

1169 

13, 3166 

0 5506 

0 

TC 

UPFL  AG 

PHASE  CHANGE  HAS 

OCCURRED  BETWEEN 

0690 

REF 

3 

LAST 

1169 

13, 3165 

00236 

0 

AORES 

REINTFLG 

INTSTALL  4ND  INTWAKE 

06-92- 

-JLE-F 

-223- 

L AS  T 

1706 

_ 1 3,  3 1 66 

0 60.36- 

1 

TC. 

TJSITP  PET 

0693 

13,3167 

77731 

1 

SSP 

0696 

REF 

15 

LAST 

121  1 

13, 3170 

000  5 3 

1 

QPRE  T 

06  95 

REF.. 

i_ 

13, 3171 

27176  1 

PHFX  IT 

0696 

13, 3172 

52016 

0 

BON 

GOTO 

0697 

REF 

22 

LAST 

121  1 

13,3173 

01716 

1 

VI  NT  FLAG 

0698 

_ R6F 

3- 

1 AST 

5-0  7 - 

13,3174 

-Z66-6X- 

1 

AJtlP  CSM 

0699 

REF 

2 

LAST 

36 

13, 3175 

26736 

0 

ATOPLEM 

0700 

13,3176 

776  26 

1 

PHEXIT 

CALL 

— 070 1 

REF 

22- 

LAST 

115  2 

13,3177 

11165 

0 

C.PP2  PC 

0702 

13, 3200 

65001 

1 

REC  TOUT 

SETPD 

CALL 

0703 

13, 3201 

00001 

0 

0 

OTUliU 

-RIF 

3 

— LAST 

121-0- 

1 3,370? 

23345 

1 

RFCT  IFY 

0705 

13, 3203 

53775 

1 

VLOAD 

V SL  * 

0706 

REF 

10 

LAST 

1207 

13, 3206 

01503 

0 

RREC  T 

- 07  07-  - 

13,3 20 5 

57576 

1 

0,2 

0708 

13,3206 

53715 

1 

PDVL 

VSL* 

RATT  TO  POO 

0709 

RFF 

7 

LAST 

1176 

13,3207 

01511 

0 

VRECT 

0X10 

_ 13  , 3-210 

57576 

1 

_0j  2 

0711 

13, 3211 

63325 

0 

PDDL 

PDVL 

VATT  TO  P06  TAT  TO  PD12 

0712 

REF 

16 

LAST 

1208 

13,3212 

01517 

0 

TET 
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0713 

REF 

11 

LAST  1211 

13, 3213 

01503 

0 

RPECT 

0714 

13,3214 

64715 

0 

PDVL 

PDDL  * 

07 1 r 

R FF 

P 

LAST  1 21 1 

13, 3 215 

01511 

0 

_ VRJEC  T _ 

0716 

REF 

2 

LAST  696 

13, 3216 

51770 

0 

MUE  A PTH » 2 

0717 

13,3217 

76006 

0 

PUSH 

A X T , 1 

1 3 . 32  2 0 

777*5 

0 

DEC 

- LD __  _ 

0719 

13, 3221 

76014 

0 

BON 

AXT  , 1 

0720 

REF 

18 

LAST  1210 

13,3222 

00303 

1 

MOONFLAG 

072  lr 

13, 3223 

27225 

1 

+ 2 _ ... 

0722 

13, 3224 

77775 

1 

DEC 

-2 

0723 

13,3225 

40001 

1 INTEXIT 

SETPD 

B DV 

0724 

13, 3226 

00001 

0 

0 

0725 

13, 3227 

27230 

0 

+ 1 

07251 

13,3230 

43014 

0 

CLEAR 

CLEAR 

07-25  2 

2-- 

LAST  33  4 

11,3231 

1 

AVER IDSW 

ALLOW 

UPDATE  OF  DOWNLINK  STATE  VECTOR 

07253 

- 

REF 

5 

LAST  1210 

13,3232 

01667 

1 

PREC  I FLG 

0726 

13, 3233 

77535 

1 

SLOAD 

EXIT 

0727 GEE 8 I AST  171  1 13.3234 02103  1 I RET  URN 

0728  REF  712  LAST  1191  13,3235  3 0154  1 CA  MPAC 

0729  REF  54  LAST  1179  13,3236  50  120  1 INDEX  FIXLOC 

—0730 REE 1 6 LAST  1211 13,3237 54  0_52  I LS QPRFT 


07  31 

REF 

4 LAST 

1152 

13,3240  0 

3427  0 

TC 

INTWAKE 

R0732 

RVCCN 

SETS  UP 

ORB  IT 

INTEGRATION 

TO  DO  A CONIC 

SOLUTION 

FOR  POSITION  AND 

R 0 73  3 VELOCITY  F CP. -J-HE  INTER  V3U ( TET-IDEC  ) 


0734 
0 735 

R-EF 

3- 

LAST 

L2X  1 

13.3241 

13. 3242 

45345 
01 116 

1 RVCON 
0 

DLOAD  DSU 
TQFC 

0736 

REF 

15 

LAST 

121  1 

13, 3243 

01517 

0 

TFT 

0737 

REF 

12 

LAST 

1173 

13, 3244 

36074 

1 

STCALL  TAU. 

0728 

-R-&F 

4 

L ASX 

12  1 1 

13,  3-245 

-233  45 

1 

RECTIFY 

0739 

13, 3246 

77624 

1 

CALL 

0740 

REF 

i 

13, 3247 

22311 

1 

KFPPREP 

- 07-4 1 - 

13,3250- 

43345 

1 

DLOAD  DAD 

0742 

REF 

8 

LAST 

1174 

13,3251 

01551 

1 

TC 

0743 

REF 

16 

LAST 

121  2 

13, 3252 

01517 

0 

TET 

0744 

-&.EJ 

-3LX 

LAST. 

121  2 

13,3253 

35517 

1 

STCALL  TFT 

0745 

REF 

2 

LAST 

121  1 

13, 3254 

27200 

0 

R EC  TOUT 
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P07455 

TESTLOOP 

1 6755 

43- QJ-  4 

0 

TESTLOOP  BOF 

CLRGQ  - 

07462 

REF 

4 

LAST  1205 

13, 3256 

04752 

0 

QUIT  FLAG 

07463 

13,3257 

27262 

1 

+ 3 

n 74  A 4 

re_f 

7 

LAST  1711 

13,  3260 

01632 

1 

STAT  EFLG 

07465 

REF 

i 

13,3261 

27225 

1 

INTFXIT 

STOP  INTEGRATION 

0746  6 

13, 3262 

73001 

1 

+3  SETPO 

LXA,  2 

i)747 

1 3, 3263 

00013 

0 

i on 

0748 

REF 

9 

LAST  1210 

13, 3264 

02030 

0 

PPODY 

0749 

13, 3265 

51575 

1 

VLOAD 

ABVAL 

X)75Q 

RF-F 

17 

L AS  X -12  Q 8 

13,3266 

01535 

0 

RCV 

0751 

13, 3267 

43006 

0 

PUSH 

CLEAR 

RC  TO  10D 

0752 

REF 

i 

13,3270 

00262 

1 

MIDFLAG 

.H7-B3 

13*3271 

50023 

0 

. _ - _ nsu*  ... 

BN.N  _ . 

M I DFL  AG=0  IF  P G.T.  RMP 

0754 

REF 

i 

13,  3272 

55467 

1 

R ME  , 2 

0755 

13,3273 

27276 

1 

+ 3 

0756 

13,3274 

77614 

1 

SET 

0757 

REF 

2 

LAST  1213 

13, 3275 

00062 

0 

MIDFLAG 

0758 

13, 3276 

41345 

0 

NORFINAL  DLOAO 

DMP 

_ _ -07-59  _ 

13, 3277 

- 00013 

.0  . 

1 OD 

0760 

13, 3300 

00043 

0 

3 40 

0761 

13,  3301 

55762 

1 

SR  1R 

UDV* 

07-62 

-_-R.ee  _ 

3_ 

LAST  1212 

- 13-,  3 302 

- 51770- 

.0 

MUE A PTH, 2 

0763 

13,3303 

41366 

1 

SORT 

DPP 

07  64 

REF 

i 

13, 3304 

23676 

1 

• 3D 

0766 

13,3305 

40442 

1 

SR  3 

S R 4 

DT  IS  TRUNCATED  TO  A MULTIPLE 

0766 

13, 3306 

54345 

1 

DLOAD 

SL 

0767 

REF 

713 

LAST  1212 

13,3307 

00155 

0 

MP4C 

0768 

13 , 33 10 

20220 

0 

15-D 

OF  128  CSECS. 

0769 

13,3311 

40006 

0 

PUSH 

BOV 

0770 

REF 

1 

13, 3312 

27337 

0 

MAX  D T 

0771 

13*  3313 

- 5-0021 

1 

BDSLL 

R MN 

0772 

REF 

1 

13,3314 

27411 

0 

DT/2  MAX 

0773 

REF 

2 

LAST  1213 

13, 3315 

27337 

0 

MAXDT 

0774 

13-,_3  3-16-_  - 

45345 

1 

DT72C0MP  DLOAD 

DSJ 

0775 

REF 

4 

LAST  1212 

13,3317 

01116 

0 

TDEC 

0776 

REF 

18 

LAST  1212 

13,3320 

01517 

0 

TFT 

- 0777 — 

13,3321 

_ 54234 

0 

RTB 

SI 

0778 

REF 

6 

LAST  943 

13, 3322 

21516 

0 

SGNAGPEE 

0779 

13, 3323 

20211 

1 

8 D 

0780 

RFF  - 

2 

-LAST  I3Q 

13.3324 

02  0 76 

1 

STORE 

OT/2 

8-1  9 

0781 

13,3325 

51400 

1 

BDV 

ABS 

0782 

REF 

1 

13,3326 

27343 

0 

G E T MAXDT 

- 0783 

17,3327 

50025 

0 

DSU 

B M M 

IS  TIME  TO  INTEG.  TO  GR  THAN  MAXTIMF 

0784 

13, 3330 

00015 

0 

1 2 D 

0785 

REF 

1 

13,3331 

27347 

1 

POOHCHK 

0786 

— 



13,3  332.  - 

753  45 

_L_ 

ll.SJE  MAXDT  DLOAD 

— S LGN 

REF 


3 l AST  1?  I 3 
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0789 

REF 

4 

LAST 

121  3 

13, 3335 

36076 

0 

STCALL 

DT/2 

0790 

REF 

2 

LAST 

1213 

13, 3336 

27347 

1 

POOHCHK 

13 , 3337 

6 53  4 5 

0 

MAXDT 

DLOAD 

PD-OL-  _ __ 

EXCHANGE  DT/2MAX  WITH  COMPUTED  MAX. 

0792 

REF 

2 

LAST 

1213 

13, 3340 

27411 

0 

DT/2MAX 

0793 

13, 3341 

77650 

1 

GOTO 

H7  Q L.  RFF 

1 

13  4-3342- 

-27316 

.0 

DT/ 2 COMP 

0795 

13,  3 343 

77634 

0 

GETMAXDT 

RTB 

0796 

REF 

13 

LAST 

375 

13,3344 

21664 

0 

SIGNMPAC 

0797 

R£F 

5 

LAST 

1214 

13,3-345 

36076 

-0- 

STCALL 

DT/2 

0798 

REF 

i 

13, 3346 

27332 

0 

USEMAXDT 

0799 

13, 3347 

51545 

1 

POOHCHK 

OLOAO 

ABS 

08-00  _ 

R-EF 

6_ 

-LAST 

1214 

13, 3350  . 

02076 

1 

DT/2 

0801 

13, 3351 

50025 

0 

DSU 

BMN 

0802 

REF 

i 

13,3352 

27407 

1 

DT/2MIN 

0 8 03-  - 

R£J= 

_ 2- 

-LAST 

1208  __ 

13,3353 

27157 

1 

A — PC  HK 

0804 

13, 3354 

46135 

1 

SLOAD 

BHI  Z 

0805 

REF 

16 

LAST 

837 

13,3355 

01012 

0 

MODREG 

--0-&Q.6 

-13  , 3 3 5-6 

273  61 

0 

+8 

0807 

13,3357 

77650 

1 

GOTO 

0808 

REF 

1 

13,3360 

23156 

1 

TIMESTEP 

-0S08  1 

13, 3361 

77614 

J. 

RON  - - 

WAS  THIS  CALL  VIA  CSMILEMIPREC 

08082 

REF 

6 

LAST 

1212 

13, 3362 

01707 

0 

PREC  IFLG 

08083 

REF 

2 

LAST 

1214 

13, 3363 

23156 

1 

TIME  STEP 

YES 

_ 0BO9 

-4.3,  3 364 

45345 

-1 

DLOAD 

DSU__  . 

0810 

REF 

7 

LAST 

1214 

13,3365 

02076 

1 

DT/2 

0811 

13, 3366 

00015 

0 

1 2D 

-0812 

13, 3867 

43040 

_L 

BMN 

BOFC  LP 

0813 

REF 

3 

LAST 

1214 

13, 3370 

27157 

1 

A -PC  HK 

0814 

REF 

3 

LAST 

121  1 

13,3371 

04242 

1 

NEW  I FLG 

- 0 aL5- 

REF 

3— 

-LAST 

L2L4  _ 

13, 3372 

23156 

1 

TIME  STF  P 

0816 

13, 3373 

45345 

1 

DLOAD 

DSU 

0817 

REF 

5 

LAST 

121  3 

13, 3374 

01116 

0 

TDEC 

0-818 — 

R-EF 

19- 

LAST- 

12  L3  - 

13,3375 

01517 

0 

TET 

08181 

13,3376 

77640 

0 

BMN 

NO  BACKWARD  INTEGRATION 

08182 

REF 

2 

LAST 

12  1 3 

13,3377 

27225 

1 

INTE  XIT 

03-19 

13,3400 

403  25 

1 

PDDL 

SR4 

0820 

REF 

8 

LAST 

1214 

13, 3401 

02076 

1 

DT/2 

IS  41 DT ) LSI TDEC  - TET ) 

0821 

13, 3402 

44322 

1 

SR2R 

BDSU 

NO 

-0822 

43 , 3 40-3. 

-52040 

1 

BMN 

GOTO 

0823 

REF 

3 

LAST 

1214 

13,3404 

27225 

1 

INTE  XIT 

0824 

REF 

4 

LAST 

1214 

13, 3405 

23156 

1 

TIMESTEP 

-002-5 

13.3406 

. -000  00 

J— 

DT/2MIN 

2DEC 

3 B—  20 

0825 

13,3407 

01400 

1 

0826 

13,3410 

14152 

1 

DT/2MAX 

2DEC 

4000  E2  B— 20 

0826 

-43.,  3 411 

00000 

_L 

0828 

13, 3412 

77776 

1 

INTSTALL 

EX  I T 

0829 

REF 

221 

LAST 

1148 

13, 3413 

3 4755 

1 

CAF 

ZERO 

. 0830 

8JEF 

211 

LAST 

112  3 

13,3414 

54  001 

1 

ALLSTALL 

TS 

L 

0831  REF  1 13,3415  3 0106  0 CA  R ASF  LAG 

0832  REF  212  LAST  1214  13,3416  50  001  0 INOEX  L 
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0833 

REF 

1 

13, 3417 

7 3510 

1 

MASK 

INTBITAB 

IS  THIS  STALL  AREA 

FREE 

0834 

13,  3420 

0 00  06 

1 

EXTEND 

D E F 

13, 342L 

1 34-  66 

1 

BZF 

OKTOGPAB . 

_ _ YES 

0836 

REF 

213 

LAST  1214 

13, 3422 

50  001 

0 

INDEX 

L 

0837 

REF 

1 

13, 3423 

3 3505 

1 

CAF 

WAKE  STAL 

l AS 47  7 

13,  34.7  4 

0 5 133 

0 

TX 

.1  OB  SLEEP 

0839 

13,3425 

77776 

1 

I NT  WAKE  0 

EXIT 

08395 

REF 

2 

LAST  719 

13,3426 

1 3447 

1 

TCF 

I NTWAKE1 

0840 

REF 

2 

LAST  1214 

13,3427 

4 0106 

1 

INTWAKE 

CS 

RASF  LAG 

IS  THIS  INTSTALLED 

ROUTINE  TO  BE 

0841 

REF 

1 

1 3,  3430 

7 4745 

1 

MASK 

RFINTBIT 

RESTARTED 

0842 

REF 

18  1 1 AST  1176 

13j  J 43 1 

1 0 080 

Q_ 

CCS  _ 

A 

0843 

REF 

3 

LAST  1215 

13,3432 

0 3447 

0 

TC 

I NT  W AKE1 

NO 

1 AS  T L7 1 7 

13, 3433 

50  1-20 

1 

INDEX 

F I XL  OC  

0845 

REF 

17 

LAST  1212 

13, 3434 

3 0052 

0 

CA 

QPTET 

0848 

REF 

5 

LAST  897 

13,3435 

55 ' 055 

1 

TS 

TBASE2 

YES,  DONT  RESTART  1 

WITH  SOMEONE  ELSES  0 

0849 

REF 

110 

LAST  1211 

13,3436 

0 5353 

1 

TC 

PHASCHNG 

0850 

13, 3437 

04022 

0 

OCT 

0432  2 

0851 

RFF 

6 

LAST  1215 

13, 3440 

3 1055 

0 

CA 

TBASE2 

0852 

REF 

56 

LAST  1215 

13,3441 

50  120 

1 

INDEX 

F I X L OC 

0853 REF 18 LAST  1215 13,3442 54  052-1 IS QJPJ3JEX 


0854 

REF 

2 

LAST 

1215 

13, 3443 

3 4745 

0 

CAF 

REINTBIT 

Q-RJ5-5- . 

R-E  F 

1 AST 

12  1 5 

1 3 , 3444 

7 0106 

1 

MASK- 

RASF LAG 

0856 

13, 3445 

0 0006 

l 

EXTEND 

0857 

REF 

1 

13,3446 

1 34  71 

1 

BZF 

GOBAC 

DONT  INTWAKE  IF  WF  CAME  HERE  VIA  RESTART 

0858 

REF 

222 

LAST 

12  14 

13, 3447 

3 4755 

1 

I NT  WAKE  1 

CAF 

ZERO 

0859 

REF 

1 

13, 3450 

54  154 

0 

WAKE 

TS 

STAL  TEH 

INDEX  OF  ANY  STALL  USER 

0 S6D- 

-R-EF 

2 

LAS  T 

12  1 5 

13,3451 

-50  154 

1 

-WAKE1 

INDEX 

STAL  TFM 

0861 

REF 

2 

LAST 

1215 

13, 3452 

3 3505 

1 

CAF 

WAKE  STAL 

0862 

13,3453 

0 0004 

0 

INHINT 

086  3- 

REF 

5- 

LASJ 

4 7 8 

13l,_3  454. 

0 51  37 

1 

TC 

JOBW  AKE 

0864 

REF 

22 

LAST 

1106 

13, 3455 

10  0 64 

1 

CCS 

LOCC  TR 

0865 

RFF 

1 

13,3456 

1 3451 

0 

TCF 

WAKE  1 

MAY  BE  MORE  TP  WAKE  UP 

0866  _ 

- 13,3  457 

00051 

0 

FORTYONE 

DEC 

41 

0867 

REF 

3 

LAST 

121  5 

13, 3460 

50  154 

1 

INDEX 

STALTEM 

0868 

REF 

2 

LAST 

12  1 5 

13, 3461 

4 3510 

1 

CS 

I NT  B ITAB 

0863 

REF. 

4_ 

LAST. 

121  5 

13,3462 

7 0106 

1 

MASK 

RASF  LAG 

0870 

REF 

5 

LAST 

1215 

13, 3463 

54  106 

1 

TS 

RASF  LAG 

RELEASE  STALL  AREA 

0871 

13, 3464 

0 0003 

1 

RELINT 

0S72 

R-FF 

2 

LAST 

12 1 5 

13,  3465 

1 3471 

1 

TCF 

_G  0 B A C 

0873 

REF 

214 

LAST 

121  5 

13, 3466 

50  001 

0 

OKTOGRAB 

INDEX 

L 

NO,  WAIT  UNTIL  AVAILABLE 

0874 

REF 

2 

LAST 

23  1 

13, 3467 

3 4736 

1 

CAF 

I NT  F LB  I T 

0-825 

REF 

_ 6 

-LAST 

121  5 

13,3  470 

_ 26  1.06 

1 

ADS 

R A S F 1 AG 

0876 

REF 

224 

LAST 

121  1 

13, 3471 

0 6036 

1 

GOBAC 

TC 

INTPRFT 

0877 

13,3472 

77616 

0 

RVO 

> 
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0878 

13,3473 

77776 

1 

ERASTA11 

EX  IT 

0879 

REF  126 

LAST 

1179 

13,3474 

3 4753 

1 

CAF 

ONE 

9 E F 1 

13,3  475 

1 3414 

1 

TCF 

ALLSTALL 

0881 

13,3476 

77776 

1 

ERASTAL2 

EXIT 

0882 

REF  78 

LAST 

1126 

13, 3477 

3 4752 

0 

CAF 

TWO 

08  83 

R£F 2 

_ 1 AST 

12  L6 

13,3500 

1 3414 

1 

TCF 

Al  l.  STALL 

0884 

REF  127 

LAST 

121  6 

13,3501 

3 4753 

1 

ERASWAK1 

CAF 

ONE 

0885 

REF  1 

13,3502 

1 34  50 

1 

TCF 

WAKE 

0 8.86-  . 

REF  79. 

LAST 

12  L6 

13, 3 503 

3.4.7  52 

0 

ERASWAK2 

CAF 

TWO 

0887 

REF  2 

LAST 

121  6 

13,3504 

1 3450 

1 

TCF 

WAKE 

0888 

RFF  32 

LAST 

1209 

13, 3505 

27413 

1 

WAKESTAL 

CADR 

INTSTALL  +1 

0849— 

REF  1 

13,-3  506 

274  74 

0 

CADR  . . 

FRASTAL1  +1 

0890 

REF  1 

13, 3507 

27477 

0 

CADR 

EPASTAL2  +1 

089  L 

REF  714 

LAST 

12  1 3 

0154 

STALTEM 

EQUALS 

MPAC 

089? 

13, 3510 

20100 

1 

INTBITAB 

OCT 

20100 

0893 

13,3511 

10040 

1 

OCT 

10040 

0894 

13,3512 

040  20 

1 

OCT 

04320 
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P0895  AVETCMID 

R-0-896 T-HI-S— ROUT-TNE  PERFORMS  THE  TRANSITION  FROM  A T-HRUSTIMG-  RHA-S-E-TO  THE  COAST 

R0897  PHASE  BY  INITIALIZING  THIS  VEHICLES  PERMANENT  STATE  VECTOR  WITH  THE 
R0898  VALUES  LEFT  BY  THE  AVERAGEG  ROUTINE  IN  RN , VN, P I PT I ME . 

R08  99  BEFORE  THIS  IS  DONE  THE  W-MATRIX,  IF  ITS  VALID  I ORWFL AG  OR  PENDWFLG  IS 

R 0900  SET)  IS  INTEGRATED  FORWARD  TO  PIPTIME  WITH  THE  PRE-THRUST  STATE  VECTDR . 

R0901  IN  ADDITION,  THE  OTHER  VEHICLE  IS  INTEGRATED  (PERMANENT)  TO  PIPTIME. 

R-0902 F I RALL  Y-  TR  KMKCNT  I-S-  ZEROE  D 


-(  A?IT 

170  4 

1 3. 7 000- 

SETL-QC- 

I_MX1  MI  T 

0904 

13,3513 

BANK 

\ A 9X 

1 70  4 Tfl 

1717-: 

4 5 _5_  4 9 1 * 

CQLJMX* 

$ $ / I NT  I N 

0906 

13, 3513 

43020 

1 

AVETOMID 

STQ 

BON 

0907 

REF 

6 

LAST 

1152 

13, 3514 

02772 

1 

EGPE  SS 

no  ns 

RFF 

Li 

1 AST 

84  4 

1 3,  3 515 

02716 

0 

R ENDWFLG 

0909 

REF 

i 

13, 3516 

27562 

0 

INT/W 

W-MATRIX  VALID  ,G0  INTEGRATE  IT 

0910 

13,3517 

77614 

1 

BON 

09  1 1 

R FF 

1 

1 3 ,-  3 520 

01711 

1 

O.RBW  FLAG 

0912 

REF 

2 

LAST 

121  7 

13,3521 

27562 

0 

INT/W 

W-MATRIX  VALID  ,G0  INTEGRATE  IT 

09  1 \ 

13, 3522 

451  4 5 

o 

OTHERS 

-DLOAlD 

CALX 

GET  SET  F nR  OTHFR  VFH1CIF  TNTFGR  AT  TflN 

0914 

REF 

19 

LAST 

900 

13,3523 

01235 

1 

PIPTIME 

DESIRED  TIME 

0915 

REF 

33 

LAST 

121  6 

13, 3524 

27412 

0 

I NT  S T ALL 

0-9-1-6- 

13, 3525 

- 450.14 

0 

SET 

CALL 

0917 

REF 

23 

LAST 

121  1 

13, 3526 

01474 

1 

VINTFLAG 

CM 

0918 

REF 

8 

LAST 

1205 

13,3527 

26644 

0 

SETI FLGS 

SETS  UP  NONE  W-MAT.  PERMANENT  INTEG. 

09-2-3- 

REF 

58 

L AS  I 

12  11 

13, 3530 

34041 

0 

STCALL 

TDEC  l 

0924 

REF 

10 

LAST 

120  8 

I 3,  3531 

27134 

1 

INTEGRV 

09  7 5 

1 3 1 3 5 3 7 

46  1 74 

1 

AXT  , 7 

CALX 

NOW  MDVF  PRHPFR1Y  Sf.Al  F RN.IJN  AS  WELL  AS 

0926 

13, 3533 

00002 

0 

2 

PIPTIME  TO  INTEGRATION  ERASABLES. 

0927 

RFF 

34 

LAST 

1217 

13, 3534 

27412 

0 

I NT  S TALI 

092  8 

1 3,3-53  5 

770  14 

1 

BON 

AXT,  2_ 

0929 

REF 

6 

LAST 

1151 

13, 3536 

04304 

1 

MOONTHIS 

0930 

13, 3537 

27541 

1 

+ 2 

093J_ 

13, 3540 

00000 

1 

0 

0932 

13, 3541 

53775 

1 

VLOAD 

VSR* 

0933 

REF 

13 

LAST 

882 

13, 3542 

01221 

1 

RN 

—0934 

13, 3543 

57176 

0 

0,2 

0935 

REF 

12 

LAST 

121  2 

13,3544 

01503 

0 

STORE 

RRECT 

0936 

REF 

18 

LAST 

1213 

13, 3545 

15535 

0 

STOOL 

RCV 

0932 

—REF  _ 

20 

LAST 

-1217 

1 i,  3346 

01235 

1 

PIPT  IMF 

0938 

REF 

20 

LAST 

1214 

13,3547 

255  17 

0 

STOVL 

TFT 

0939 

RFF 

10 

LAST 

88  2 

13,3550 

01227 

1 

VN 
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0940 

13,3551 

45057 

1 

VSR* 

CALL 

0941 

13,3552 

57176 

0 

0,2 

P FF 

3 

1 AST 

718 

13, 3553 

23361 

1 

MINI RECT 

FINISH  SFTTING  UP  STATE  VECTOR 

0943 

13,3554 

66234 

1 

RTB 

SSP 

0944 

REF 

i 

13,  3555 

26747 

1 

MOVATHIS 

PUT  TEMP  STATE  VECTOR  INTO  PERMANENT 

RFF 

LA 

1 AST 

8 3 9 

1 3,  3556 

--034.6-L 

1 

_ LR  KMKCNT 

0946 

13,3557 

00000 

1 

0 

0947 

13,3560 

77650 

1 

GOTO 

2 

1 AST 

1 1 5-2 

13*  3 56  1 

471  30  . 

0. 

E AZA  B5 

0949 

13, 3562 

45145 

0 INT/W 

DLOAD 

CALL 

QQ  50 

-R-E-F 

-21  _ 

L AST 

12  17 

.13, 3563 

. 01235 

1 

P IPT  IMF 

INTEGRATE  W THRU  BURN 

0951 

REF 

35 

LAST 

1217 

13,3564 

27412 

0 

INTSTALL 

0952 

13,3565 

43014 

0 

SET 

SET 

0953 

_ RFF 

16 

LAST 

1210 

13,  35.66 

01  476 

0 ... 

01  MO  FLAG 

00  W-MATR I X 

0954 

REF 

3 

LAST 

1212 

13,3567 

044  76 

0 

A VEM  IDSW 

SO  WONT  CLOBBER  R N, VN , P I P T I ME 

0955 

13, 3570 

43014 

0 

SET 

CLEAR 

0956 

_ REE, 

. _9 

LAST 

120  5 _ 

13, 357 1 

01475. 

.0  _ 

D60R9FLG 

9X9  FOR  LM 

0957 

REF 

24 

LAST 

121  7 

13,3572 

01674 

0 

VINT  FLAG 

LM 

0964 

REF 

59 

LAST 

1217 

13,3573 

34041 

0 

STCALL 

TDEC  1 

0965 

.R.F£_ 

11 

L AST 

1217 

13  , 357.4 

27  134 

-1 

ULTEGRy 

0966 

13,3575 

77650 

1 

GOTO 

0967 

REF 

1 

13, 3576 

27522 

1 

DTHE  RS 

NOW  GO  DO  THE  OTHER  VEHICLE 
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P0968  MICT0AV1 

R 0969 TB-I-5 — P-GU-T-I-MI-  I-NT  E GR  AT  ES  (PRECISION)  TO  - THE  TIME  SPECIFIED-  -I  N-TOE-C  1. 

R 0970  IF,  AT  THE  END  OF  AN  INTEGRATION  TIME  STEP,  CURRENT  TIME  PLUS  A DELTA 

R0971  TIME  (SEE  TIMEDELT BASED  ON  THE  COMPUTATUON  TIME  FOP  ONE  TIME  STEP) 

P 09  7?  TS  GRFATFR  THAN  THF  DESIRED  TIME.  ALARM  1X0_3_-LS-_S£TXA_!1D_J>1E — INTEGRATION 

R0973  IS  DONE  TO  THE  CURRENT  TIME. 

R0974  RETURN  IS  IN  BASIC  TO  THE  RETURN  ADDRESS  PLUS  ONE. 


R0975  IF  THE  INTEGRATION  IS  FINISHED  TO  THE  DESIRED  TIME,  RETURN  IS  IN  BASIC 
R0976  TC  THE  RETURN  ADDRESS 


R0977  IN  EITHER  CASE  , BEFORE  RETURNING,  THE  EXTRAPOLATED  STATE  VECTOR  IS  TRAN 
R0978  FERRED  FROM  R , VA  T T TO  R , V Nl-P I PT I M E 1 IS  SET  TO  THE  FINISHING  INTEGRA- 

R 0-97 9 T-I-C-N  T I-M-E — AN D MPAC  I S SET-JO  THE  DELTA  TIME—-- 

R 0980  TAT  MINUS  CURRENT  TIME. 


R0981  MIDT0AV2 

-R-09&2- TFH-S — REHJ-’ET-NE  I NT  E GRATES-  -T-H I S V E H I CUES — STATE — V-EC-T-OR — TO — THE  -CURfiE-NX-  T IMF. — 

R0983  NO  INPUTS  ARE  REQUIRED  OF  THE  CALLER.  RETURN  IS  IN  BASIC  TO  THF  RETURN 

P0984  ADDRESS  WITH  THE  ABOVE  TRANSFERS  TO  R , VN1-P I PT I ME  1- AND  MPAC  DONE 


0985 

REF 

2 

LAST 

167 

E 7 , 1743 

EBANK= 

IRETURN1 

0986 

13, 3577 

43020 

1 

MIDT0AV2 

STQ 

CLRGC 

INTEGRATE  TO  PRESENT  TIME  PLUS  TIMEDELT 

. ...  0987 

REF 

3 

LASX 

121  9 

13,3££L0 

03743 

1 

I RE  T URM 

0988 

REF 

i 

13, 3601 

04634 

1 

MIDI  FLAG 

0989 

REF 

i 

13, 3602 

276  16 

0 

ENTM ID2 

0990 

13,  3603 

43020 

1 

MIDT0AV1 

STQ 

SET 

INTEGRATE  TO  TDEC 1 

0991 

REF 

4 

LAST 

1219 

13,3604 

03743 

1 

I RETURN1 

0992 

REF 

2_ 

LAST 

121  9 

1 3 , 3605 

04474 

1 

MIDI  FLAG 

0993 

13,3606 

43234 

0 

RTB 

DAD 

INITIAL  CHECK,  IS  T0EC1  IN  THE  FUTURE 

0994 

REF 

29 

LAST 

1204 

13,3607 

21462 

1 

LOADTIME 

0995 

REF 

1 

13,3610 

27720 

1 

T I ME  DELT 

0996 

13, 3611 

51021 

0 

BDSU 

B PL 

0997 

REF 

60 

LAST 

121  8 

13,3612 

00041 

1 

TDEC  1 

_ -0  9-98  - 

--E-EF 

1 

1 3 , 36 13 

27622 

J. 

ENLTMID1 

Y5S 

0999 

13,3614 

77624 

1 

CALL 

1000 

REF 

1 

13, 3 615 

27706 

0 

NOT  I ME 

NO,  SET  ALARM,  SWITCH  TO  MIDT0AV2 

1001 

13, 3616 

43234 

0 

ENTM ID2 

RTB 

DAD 

1002 

REF 

30 

LAST 

1219 

13,3617 

21462 

1 

LOADTIME 

iao3_ 

RE-EX 

2- 

LAST 

1219- 

13.3620 

27720 

1 

TIMEDELT 

1004 

REF 

61 

LAST 

1219 

13,3621 

00041 

1 

STORE 

TDEC  1 

1-005 — 

13, 3 622 

7762-4 

1 

_£-NTM  LD1 

CALL 

1006 

REF 

36 

LAST 

121  8 

13,3623 

27412 

0 

INTSTALL 

1007 

13,3624 

450  14 

0 

CLEAR 

CALL 

SAP 
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1008 

REF 

17 

LAST 

121  8 

13,3625 

01676 

1 

D I MO  FLAG 

NO  W-MATRIX 

1009 

REF 

1 

13, 3626 

26066 

0 

THI S VINT 

- 1 3 t ^ 62  7 

440  1 4 

o 

CLEAR 

SET 

1011 

REF 

18 

LAST 

121  1 

13, 3630 

01673 

1 

I NT  Y PF1  G 

1012 

REF 

1 

13,3631 

04475 

0 

M IDA VFLG 

LET  INTEG.  KNOW  THF  CALL  IS  FOR  MIDTOAV. 

13,3  632 

77624 

1 

CALI 

1014 

REF 

12 

LAST 

1218 

13,3633 

27134 

1 

INTEGRV 

GO  INTEGRATE 

1015 

13,3634 

77214 

0 

CLEAR 

VLDAD 

101-6 

REF 

2 _ 

LAST 

1220 

13,3  63  5 

04675 

1 

MI  DA VFLG 

1017 

REF 

37 

LAST 

97  1 

13, 3636 

00001 

0 

R ATT 

1018 

REF 

9 

LAST 

882 

13,3637 

27543 

0 

STOVL 

RN1 

10L9 

REF 

25 

1 AST 

95? 

13,  3 640 

00007 

0 

VATT 

1020 

REF 

8 

LAST 

882 

13, 3641 

17551 

0 

STOOL 

VN1 

1021 

REF 

15 

LAST 

790 

13, 3642 

00015 

0 

TAT 

....  4022 

-REF 

13 

X AS  T 

-8  9 3 

13,  3643 

03557 

0 

STORE 

PIPTIME1 

10221 

13, 3644 

66134 

1 

SX  A , 2 

SXA  , 1 

10222 

REF 

17 

LAST 

88  1 

13, 3645 

03376 

0 

RTX2 

1022  3 

RE-F 

12 

L AST 

7 7 3- 

13,3  646 

033  75 

-0 

R T X 1 

1023 

13,3647 

77776 

1 

EXIT 

1 0 2-4 

1 3 , 3650 

0 0004 

o 

INHINT 

1025 

13,3651 

0 0006 

1 

EXTEND 

1026 

REF 

29 

LAST 

986 

13,3652 

4 0025 

1 

DCS 

TIME2 

1027 

. ref 

715 

LAST 

1216 

13  ,3653 

20  155  - 

1 

DAS 

MPAC 

1028 

REF 

14 

LAST 

10  5 2 

13,3654 

0 7256 

1 

TC 

T PAG  REF 

1029 

R E F 

5 

L AST 

12  19 

1 3,3655 

3 1 743- 

o 

CA 

I RET  URN1 

1030 

REF 

17 

LAST 

896 

13, 3656 

0 4640 

1 

TC 
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11,2466 

02072 

-0 

BETA  M 

0118 

REF 

5 

LAST 

1226 

11,2467 

02070 

1 

STORE 

ALPH AM 

0119 

11,2470 

71214 

0 

BOF 

DLOAD 

-Qj.-2-Q 

REF 

_ 3— 

LAST 

12  13 

11  »-2  47-1 . 

0034-2- 

1 

J3I DF  LAG 

0121 

REF 

i 

11,2472 

22726 

1 

OBLATE 

0122 

REF 

24 

LAST 

1225 

11,2473 

01517 

0 

TET 

- 01 

LI » 2-474 

77624 

1 

CALL 

0124 

REF 

3 

LAST 

98  0 

11, 2475 

33663 

1 

ISPOS 

0125 

11, 2476 

72174 

0 

AX T , 2 

LXA  , 1 

0126 

11,2477 

00002 

o 

2 

0127 

REF 

34 

LAST 

122  6 

11,2500 

00051 

0 

S2 

0128 

11,2501 

77614 

1 

BOF 

0129 

REF  _ 

22- 

-LAST 

1224 

11,2502 

00343 

0 

MOON  FLAG 

0130 

11, 2503 

22506 

1 

+ 3 

0131 

11, 2504 

77076 

0 

VCOMP 

AXT  , 2 

0132— 

11, 2505 

- 00000 

1- 

0 

11.2506 

11.2507 


0133 

0134 


REF 

REF 


4 LAST  1226 
3 LAST  131 
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STORE  BETAV 
STOVL  RPQV 
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0135 

11,2510 

00003 

1 

2D 

0136 

REF 

2 

LAST 

130 

11,2511 

02122 

1 

STORE 

RPSV 

-LI,  2512 

45335 

Q 

SLOAD 

DSJ  — _ __  _ - — — 

0138 

REF 

17 

LAST 

1214 

1 1, 2513 

01012 

0 

MODR FG 

0139 

REF 

1 

1 1, 2514 

23722 

1 

0CT27 

11,2515 

43030 

-0 

BH I Z _ 

b or  — - — . _ . . . .. 

0141 

1 1, 2516 

22521 

i 

+ 3 

0142 

REF 

19 

LAST 

1226 

11,2517 

01756 

i 

DIMOFLAG 

R FF 

1 

1 1 , 2-520 

22535 

_L_ 

GETRPSV.  — 

0144 

11,2521 

74375 

0 

VLOAD 

VX  SC 

0145 

REF 

23 

LAST 

1226 

1 1, 2522 

02032 

1 

ALPHAV 

0146 

REF 

-6 

- LAST 

1226 

11,2523 

_ 02070 

1 

ALP  HAM  _ . 

0147 

1 1, 2524 

52257 

0 

VSR* 

VSU 

01  48 

11,2525 

57175 

0 

1,2 

0 1 49 

_ R_E  f 

-5 

L AS  T 

1226. 

21, 2526 

02040 

1 

BETA  V 

0150 

1 1, 2 527 

77724 

0 

XCHX.2 

0151 

REF 

21 

LAST 

1226 

11,2530 

01500 

0 

D1FFQCNT 

0152— 

REF 

- 9 

—LAST 

12  26 

11,2531 

1 2 L 40 

1 

STORE 

VECTAe  +6,7 

0154 

REF 

7 

LAST 

13  1 

11,2532 

02114 

1 

STORE 

ROW 

0155 

1 1, 2533 

77724 

0 

XC  HX  , 2 

0156 

REF 

22 

LAST 

1 22  7 

11, 2534 

01500 

-0 

DIFEQCNT 

0157 

11, 2535 

62175 

0 

GETRPSV 

VLOAD 

1 NCR  ,1 

0158 

REF 

4 

LAST 

1226 

11,2536 

02105 

1 

RPQV 

0159 

1 1 , 253-7 

00004 

0 

4 

0160 

11,2540 

43014 

0 

CLEAR 

BOF 

0161 

REF 

3 

LAST 

121  1 

11,2541 

04260 

1 

RPQF  LAG 

R FF 

23 

1 AST 

12  2 6 

11,?  542 

00343 

0 

MQONFL AG 

0163 

11,2543 

22550 

1 

+ 5 

0164 

11,  2544 

53261 

1 

VSR 

VAD 

- 016-5 

1 1,2545 

20-612 

0 

9D 

0166 

REF 

3 

LAST 

1227 

11,2546 

02122 

1 

RPSV 

0167 

REF 

4 

LAST 

1227 

11,2  547 

02122 

1 

STORE 

RPSV 

0-L68 

1L,_2550 

77624^ 

1 

CALL 

0169 

REF 

2 

LAST 

1226 

11,2551 

22563 

1 

GAMC  OMP 

0170 

11,2552 

62174 

1 

AXT  , 2 

I NCR  ,1 

0171 

11,2553 

00004 

0 

4 

0172 

11,2554 

00004 

0 

4 

0173 

11,2555 

77775 

1 

VLOAD 

0174 

- REF 

5 

LAST 

122  7 

1 Lj-2556 

02122 

1 

PPSV 

0175 

REF 

6 

LAST 

122  7 

11,2557 

36040 

0 

STCALL 

BETAV 

0176 

REF 

3 

LAST 

122  7 

11,2560 

22563 

1 

GAMC  OMP 

0177 

1 1,2  561 

77650 

1 

GOTO 

0178 

REF 

2 

LAST 

1226 

1 1, 2562 

22726 

1 

OBLATE 

0179 

11, 2563 

74575 

0 

GAMCOMP 

VLOAD 

V SR  1 

-01-80 

— REF 

— T— 

—LAST 

12  2 7 

11,2564 

02  040 

-1 

BETAV 

0181 

11,2565 

402  36 

1 

VSQ 

SETPD 

0182 

11,2566 

00001 

0 

0 

-01-83— 

_ 

... 

11,2567  _ 

61301 

1 

NORM 

ROUND 

0184 
01  85 


11.2570 

11.2571 


00040  0 
60325  0 


3 1 D 
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PDDL 
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0186 

REF 

7 

LAST 

1227 

1 1, 2572 

02070 

1 

ALPHAM 

NORMALIZE  (LESS  ONE)  LENGTH  OF  ALPHA 

01  87 

11, 2573 

00041 

1 

3 2D 

SAVING  NORM  SCALE  FACTOR  IN  XI 

m Rft 

11, 2574 

63342 

_L_ 

SRI 

. P.D.V  L 

0189 

REF 

8 

LAST 

1227 

11,2575 

02040 

1 

BET  A V 

C ( PDL+? ) = ALMOST  NORMED  ALPHA 

0190 

11,2576 

77656 

1 

UNIT 

n l q i 

REF 

s 

-LAST 

122  8 

Ll,2_577 

-160.40 

1 

ST-QD-L 

BFT  A V 

0192 

11,2600 

00045 

0 

36D 

0193 

REF 

3 

LAST 

1226 

11,2601 

02072 

0 

STORE 

BETAM 

LI « 2602 

55301 

0 

NORM 

BDD  V 

FORM  NORMALIZED  QUOTIENT  ALPHAM/BETAM 

0195 

11,2603 

00042 

1 

3 3D 

0196 

11,2604 

41562 

0 

SR  1 R 

PUSH 

C ( PDL+2 I = ALMOST  NORMALIZED  RHO. 

o 1 97 

11,2 605 

77743 

1 

DL0.A-Q4 

0198 

REF 

1 

11, 2606 

27734 

1 

ASCA  LE, 1 

0199 

REF 

22 

LAST 

1225 

11,2607 

00051 

0 

STORE 

SI 

1 1 , 2-6  -1 0 

57  124 

1 

XCHX , 2 

XAD-,  2 

0201 

REF 

23 

LAST 

1228 

11,2611 

00050 

1 

SI 

0202 

1 1,  2612 

00040 

0 

32D 

n_?0  3 

LI  ,2  613- 

-712-64 

1 

.XSU_,.2  . 

DLOA-D - 

0204 

1 1 ,2614 

00041 

1 

3 3D 

0205 

11,2615 

00003 

1 

2D 

02  06 

11. 2616 

-65057 

0 

SR*  . 

XCHX  ,2 

0207 

11,2617 

57177 

1 

0 -1,2 

0208 

REF 

24 

LAST 

1228 

1 1,2620 

00050 

1 

SI 

02  09 

11,  2621 

74406 

0 

PUSH 

SRI  P 

RHO/4  TO  4 D 

0210 

11,2622 

50315 

0 

PDVL 

DOT 

0211 

REF 

24 

LAST 

1227 

11,2623 

02032 

1 

ALPHAV 

-02  12 

REF 

10 

LAST 

122  8 

11, 2-624 

. 020.4.0- 

1 

BETA  V 

0213 

11,2625 

44372 

1 

SL1R 

BDSU 

(RHO/4)  - 21 ALPHAV/2.BETAV/2) 

0214 

11,2626 

57206 

1 

PUSH 

DMPR 

TO  PDL+6 

02-1  5 

1 1, 2627 

- 00-0-05 

1 

4 

02155 

11, 2 630 

77752 

1 

SL1 

0216 

11, 2631 

43206 

l 

PUSH 

DAD 

02  17 

ref 

1 

1 1 ,2-632 

23702- 

0 

DQUAPTFR 

0218 

11, 2633 

75406 

1 

PUSH 

SORT 

0219 

11,2634 

41475 

1 

DM  PR 

PUSH 

0220 

11,2635 

-.00013 

.0  - 

1 CD 

0221 

11,2636 

43352 

1 

SLl 

DAD 

0222 

REF 

2 

LAST 

1228 

11,2637 

23702 

0 

DQUAPTEP 

2223 

11.2640 

43325 

1 

POOL 

DAD 

( 1/41+21 (Q+l )/4)  TO  PD+140 

0224 

11,2641 

00013 

0 

10D 

0225 

REF 

3 

LAST 

93  5 

1 1, 2642 

22273 

1 

HA  L F DP 

0226. 

1 1.2  643 

72475 

1 

DM  PR 

SLl 

0227 

11,2644 

000  11 

1 

8 D 

0228 

11, 2645 

56215 

1 

DAD 

DDV 

Q2-29  _ 

..RFF 

1 

1 1. 2646 

23674 

0 

T HP  E E/8 

0230 

11,2647 

00017 

1 

14D 

0231 

11,2650 

74275 

1 

DM  PR 

VXSC 

0-232 

11,2651 

00007 

0 

6 

0233 

REF 

11 

LAST 

1228 

11,2652 

02040 

1 

BETA  V 

- 

0234 

11,2653 

64515 

1 

PDVL 

VSR3 
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0235 

0236 

REF 

25 

LAST 

122  8 

11.2654 

11.2655 

1 1 . 2656 

02032  1 
41455  0 
41345  0 - . 

VAO 

QLJQAD  . 

ALPH AV 

PUSH  A 12  + CIPD  + 16D)  TO  P0+16D 

. D-ME. _ _ - 

02  3 8 
0239 

1 1 i 2 65  7 
11,2660 
1 1,  2 661 

00001  0 
00015  0 

61501  1 

. -NORM 

0 

1 2D 

ROUND 

0241 

0242 

0 74  7 

1 1. 2662 

11.2663 
11,2  664 

00037  0 
40665  0 
_ 0-00-03  1 

BDDV 

300 

DMP* 

2 

0244 

0245 
-0ZA.6- 

REF 

6 

LAST 

122  3 

11.2665 

11.2666 
11.2667 

51770  0 
74276  1 
- 5.7124  1 

DCOMP 
XCHX , 2 

MUEA  PTH, 2 
VX  SC 
X AO  , 2 

0247 

REF 

25 

LAST 

1228 

11,2670 

00050  1 

SI 

0248 

REF 

35 

LAST 

1226 

11, 2671 

00051  0 

S 2 

02-49 

11,2A72 

55064  0 

XSU  , 2 

XSU,  2 

0250 

11,2673 

00036  1 

30D 

0251 

11,2674 

00037  0 

310 

02  5-13 

1 1,2675— 

77600  1— 

- B.OV  . 

CLEAR  OVIND 

02516 

11, 2676 

22677  1 

+ 1 

0252 

1 1, 2677 

65057  0 

VSR* 

XCHX  ,2 

02  53 

1 14  270-0 

57177  1 

3 -1.2 

0254 

REF 

26 

LAST 

1229 

11,2701 

00050  1 

SI 

0255 

11, 2702 

77655  1 

VAO 

-02  56- 

REF 

3- 

LAST 

122  6 

-1 1 T 7703 

0206Z-1 

FV 

0257 

REF 

4 

LAST 

1229 

11,2704 

02062  1 

STORE 

FV 

025805 

1 1, 2705 

43400  1 

BOV 

R VO  RETURN  IF  NO  OVERFLOW 

02-5  81 

11, 2-70-6 

-22707  r . 

+ 1 

025815 

11,2707 

54345  1 GOBAQUE 

DLOAD 

SR 

02582 

REF 

2 

LAST 

130 

11,2710 

02100  1 

H 

- - 0 25-8-25 

11,2711 

20612  0 

90 

02583 

11,2712 

44206  0 

PUSH 

BDSU 

025835 

REF 

11 

LAST 

1225 

11,2713 

01551  1 

TC 

02  584 

REP 

15 

LAST 

122-5 

-11,271-4 

16074  0 

STODL 

TAJ.. 

025845 

REF 

25 

LAST 

1226 

11,2715 

01517  0 

TET 

02585 

l 1, 2716 

45425  0 

DSU 

STAOP 

QZ-58  55 

RE-F 

26 

LAST 

L2Z9  _ 

11. ,-2-717 

422_60  0 

STCALL 

TFT 

02586 

REF 

3 

LAST 

1225 

1 1, 2720 

22311  1 

KEPP  REP 

025865 

11,2721 

77624  1 

CALL 

___O2-50  7 

-RE-F 

6 

LAST 

12-2-1 

11, Z7ZZ 

233-45  1 

RECT  IFY 

025875 

1 1,  2 72  3 

77614  1 

SETGO 

02588 

REF 

4 

LAST 

12  2 7 

11,2724 

04020  1 

RPOF  LAG 

025-8-85- 

-REF 

4_ 

-LASH- 

122-0- 

11,2225 

27255  .0 

tfstloop 
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0265 

0266 

REF 

13 

LAST 
L ART 

1226 
122  8 

11.2726 

11.2727 

11. 2730 

11.2731 

11. 2732 
11 , ? 733 

71354 
02030 
_ DZO-ZQ- 
44601 
00001 
50027- 

0 

0 

JL_ 

0 

0 

1 

OBLATE 

LX  A, 2 

DLOAD 
PBODY 
ALPHAM.  - 

02  6 8 
0269 

SETPD 

DSU* 

0 

R D E , 2 . 

0271 

11,2734 

43044 

0 

BPL 

BOF 

GET  URP V 

0272 

REF 

i 

11,2735 

23136 

1 

NBR ANCH 

5FF 

last 

122-7 

1 1,2  73-6  _ 

00343- 

0 . 

MO0NJFLAG 

0274 

REF 

i 

11,2737 

23145 

0 

COS P HI E 

0275 

1 1,  2740 

65375 

0 

VLOAD 

PDDL 

0276 

R EF 

_ 26 

LAST 

122  9 

11,2741 

02032 

1 

ALPHAV 

0277 

REF 

27 

LAST 

1229 

11,2742 

01517 

0 

TET 

0278 

11,2743 

451  25 

0 

PDDL 

CALL 

02J9 

-REF 

1 

1 1 .2744 

23  672 

0 

3/5 

0280 

REF 

5 

LAST 

1128 

11,2745 

51531 

1 

R-TO-RP 

0284 

REF 

1 

11,2746 

00017 

1 

STORE 

UR  P V 

0285  - 

11,-2747 

47375 

0 

VLOAD 

V X 7 

0286 

REF 

3 

LAST 

1137 

11,2750 

02013 

1 

504LM 

0287 

REF 

3 

LAST 

1208 

11,2751 

22267 

1 

ZUNI  T 

a?  88 

11,2X5-2- 

612-55- 

_1 

- VAD  . 

VXM 

0289 

REF 

4 

LAST 

1230 

11, 2753 

22267 

1 

ZUNI  T 

0290 

REF 

8 

LAST 

1140 

11,2754 

00025 

0 

MMATRIX 

02°  1 

11, 2 755 

77656 

1 

UNIT 

POSSIBLY  UNNECESSARY 

0292 

REF 

1 

1 1,2756 

00025 

0 

COMTERM 

STORE 

UZ 

0293 

11,2757 

57345 

1 

DLOAD 

DMPR 

02-94 

-REF- 

1 

11 ,2  760 

000-23- 

0 

COSPHI/2 

0295 

REF 

1 

1 1, 2761 

23704 

0 

3/32 

0296 

11,2762 

63525 

0 

PDDL 

DSQ 

P2/64  TO  P DO 

_ 02  97 

_REF 

2 

1 ASJ 

JLZ3D 

1 1_,_2  763 

00023 

0 

COSP  HI /2 

0298 

1 1,  2764 

45275 

0 

DM  PR 

DSU 

0299 

REF 

i 

11,2  765 

23706 

1 

15/16 

0300 

—REE 

i 

11,-2  766 

23700 

1 

3/64 

0301 

11,2767 

57206 

1 

PUSH 

DMPR 

P3/32  TO  PD2 

0302 

REF 

3 

LAST 

1230 

11,2770 

00023 

0 

COSPHI/2 

, 030  3 - 

11.2771 

76405 

1 

DM  P 

SLIP 

0304 

REF 

1 

11,2772 

23712 

1 

7/12 

0305 

11,2773 

57325 

1 

POOL 

DMPR 

; 0306 

11*2-77-4 

00001 

0 

0 

0307 

REF 

1 

11,2775 

23720 

0 

2/3 

0308 

11,2776 

41421 

0 

BDSU 

PUSH 

P4/128  TO  PD4 

0309 — 

1 1 ,-2  77  7 

572  75- 

0 

DMPR 

DMPR 

0310 

REF 

4 

LAST 

1230 

11,3000 

00023 

0 

COSP  HI/2 

BEGIN  COMPUTING  P5/1024 

0311 

REF 

i 

11,3001 

237  14 

1 

9/16 

0312 

11, 3002 

57325 

1 

PDDL 

DMPR 

0313 

11,3003 

00003 

1 

2 

0314 

REF 

i 

11,3004 

23716 

0 

5/12  8 

-&AP- 
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0315 

11,3005 

77621  1 

8DSU 

03  16 

11, 3006 

77603  1 

DMP* 

11,3-QO-Z  _ 

3.1764  -0 

J48EQ/J3.2 

0318 

1 1, 3010 

43271  1 

DDV 

DAD 

-3 

0319 

REF 

9 

LAST 

1230 

11,3011 

02070  1 

ALPH  AM 

t ( ( P 5 / 2 56 ) B 2 /R  + P4/32I  /R  + P 3/ 8 ) ALPH A V 

1U3-0L2- 

000-05 1 

4 

4 3 

0321 

11,3013 

56273  1 

DM  PR# 

DDV 

0322 

REF 

i 

11, 3014 

51760  1 

2J3P  E/J2 ,2 

1 ft 

1 AST 

123  1 

1 1 , 3-0.15 

020.70.  1 

AL  0 H AM 

0324 

1 1 ,3016 

74215  1 

DAD 

VXSC 

0325 

11,3017 

00003  1 

2 

RFF 

27 

J AST 

123-0 

11,3022  _ 

02032  .1  _ 

ALPH AV 

0327 

REF 

i 

1 1,  3021 

14033  1 

STOOL 

TVEC 

0328 

11,3022 

70403  1 

DM  P* 

SRI 

\ AST 

12  3 1 

1 1 ,3-023  - 

51764  0 

J4R2Q/J3-J-2 

0330 

11, 3024 

43271  1 

DDV 

DAD 

0331 

REF 

ii 

LAST 

123  1 

11 , 3025 

02070  1 

ALPHAM 

-3 

11,332-6 

50473  1 

DJI  PR* 

S R 3 

0333 

REF 

2 

LAST 

123  1 

11, 3027 

51760  1 

2J3RE/J2.2 

3 4 
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0520 

REF 

11 

LAST 

1235 

11, 3361 

01511 

0 

MINIRECT  STORE 

VREC  T 

0521 

UEf 

20 

_LASE- 

123-6 

1 1,3  362  - 

255  43- 

1 

STOVL 

VCV 

0522 

REF 

ii 

LAST 

1226 

11,3363 

22275 

1 

Z ERO VEC 

0523 

REF 

1 1 

LAST 

1236 

11,3364 

01521 

0 

STORE 

TDEL  TAV 

0524 

-REF 

-11 

LAST. 

12  3 6 

_ 11,3365 

15527 

0- 

STOOL 

TNU  V 

0525 

REF 

12 

LAST 

1236 

11,3366 

22275 

1 

Z ERO VEC 

0526 

REF 

12 

LAST 

1229 

1 1, 3367 

01551 

1 

STORE 

TC 

052-7 

REE- 

— 3— 

-LAST- 

122-4 

— 11,3  370 

01553 

-0- 

...  -STORE  . 

XJSE-P. 

0528  11,3371  77616  0 
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P0529  TFE  THREE  DIFEQ  ROUTINES  — DIFEQ+O,  QIFEQ+12,  AND  DIFEQ+24  - ARE  ENTERFDTO  PROCESS  THE  CONTRIBUTIONS  AT  THE 


R0531 

BEGINNING,  MIDDLE, 

AND  END  OF 

THE  TIMESTEP,  RESPECTIVELY.  THE  UPDATING 

IS  DONE 

BY  THE  NYSTROM 

METHOD. 

1 1 , 3272 

64575 

1 DIFFQ+O 

V.LQAD  . 

- VS?  3.  _ _ 

0534 

REF 

7 

LAST 

123  2 

11,3373 

02062 

1 

F V 

0535 

REF 

2 

LAST 

130 

11, 3374 

36046 

0 

STCALL 

PHI  V 

Rf  F 

1 

1.1  , 3 375 

_ 23552 

1 

-DIFEQCOM 

0537 

11, 3376 

74575 

0 DIFEQ+1 

VLOAD 

V SR  1 

0538 

REF 

8 

LAST 

1237 

11,3377 

02062 

1 

FV 

053  9 

110400  . 

532  06 

0 

PUSH 

VAD 

0540 

REF 

3 

LAST 

12  3 7 

11,3401 

02046 

1 

PHI  V 

0541 

REF 

2 

LAST 

130 

11, 3402 

26054 

1 

STOVL 

PSI  V 

054? 

1 1 ,3 403 

53362 

0- 

VSR1 

VAD 

0543 

REF 

4 

LAST 

1237 

11,3404 

02046 

1 

PHI  V 

0544 

REF 

5 

LAST 

1237 

11, 3405 

36046 

0 

STCALL 

PHI  V 

0 545  - - 

R Ef 

2 

LASJ 

12  3 7 

11 , 3406  - 

23552 

1 

-DIFE-QCOtL  - 

0546 

11, 3407 

57345 

1 DIFEQ+2 

DLOAD 

DMPR 

0547 

REF 

4 

LAST 

1234 

11, 3410 

02100 

1 

H 

0548  - 

JLEf  - 

2 

i AS  T 

1223 

11,3411 

- 23720 

0 

. D P-2  / 3 

0549 

11, 3412 

74206 

0 

PUSH 

VXSC 

0550 

REF 

6 

LAST 

1237 

11, 3413 

02046 

1 

PHI  V 

05-5 1 

11,  3414 

53372 

1 

VS  L 1 

VAD 

0552 

REF 

2 

LAST 

1234 

11, 3415 

01135 

1 

ZV 

0553 

11,3416 

53361 

0 

VX  SC 

VAD 

0554 

R-EE_ 

5- 

_LASJ 

0237 

- llj_3  41 7 _ 

02100 

3- 

H 

0555 

REF 

4 

LAST 

12  3 4 

11, 3420 

01127 

1 

YV 

0556 

REF 

5 

LAST 

12  3 7 

11 , 3421 

25127 

1 

STOVL 

Y V 

0557 

REF 

9 

-LAST 

123  7 

IX,  3 422 

02062. 

1- 

E-V 

0558 

11, 3423 

53322 

1 

VSR3 

VAD 

0559 

REF 

3 

LAST 

1237 

11,3424 

02054 

1 

PSIV 

-0550- 

11,3425 

765-61 

1 

VX  SC 

VSU 

0561 

11, 3426 

77655 

1 

VAD 

0562 

REF 

3 

LAST 

1237 

11, 3427 

01135 

1 

ZV 

. 0 564 

RE  F 

4 

LAST 

12  3 7 

11,3  43-0 

01135 

1 

STORE 

IV 

0565 

11, 3431 

45014 

0 

BOFF 

CALL 

0566 

REF 

3 

LAST 

1234 

11,3432 

00341 

1 

JSWI TCH 

0557 

-RE  F 

1 

11,3433 

73503 

0 

F-RD  STATE 

0568 

REF 

23 

LAST 

121  1 

11,3434 

11165 

0 

GPP2PC 

0569 

11, 3435 

77354 

0 

LX  A , 2 

VLOAD 

0570 

REF  _ 

2 

L ASJ. 

120 

1 1 ,3  43-6- 

01117 

1 

COL-PEG 

0571 

REF 

5 

LAST 

123  7 

11,3437 

01135 

1 

ZV 

0572 

11 , 3440 

77732 

1 

V SL  3 

ADJUST 

W-POS I T I ON  FOR 

STORAGE 

0533 

-REF 

30- 

-LASX- 

115-0- 

11,3  4-41 

124-6-7 

1 

STORF 

W 5 4D , 2 

0574 

11,344? 

77775 

1 

VLOAD 

0575 

REF 

6 

LAST 

1237 

11,  3443 

01127 

1 

YV 

0515 

1 1,  3444 

_401  32 

0 

VSL3 

RDV 

0577 

REF 

i 

11, 3445 

23575 

1 

MAT  END 

0578 

REF 

31 

LAST 

12  3 7 

11, 3446 

12401 

1 

STORE 

W,  2 

0579 

1 1 ,3447 

77624 

1 

CALL 

0580 

REF 

24 

LAST 

12  3 7 

11,3450 

11165 

0 

GRP2 PC 
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0501 

11, 3451 

66354 

0 

LXA  , 2 

SSP 

0582 

REF 

3 

LAST 

1237 

11,3452 

01117 

1 

COLREG 

]?;q 

1 1 , 3453 

00-0  57 

0 - 

_S  2 

0584 

11,3454 

00000 

1 

0 

0585 

11, 3455 

67114 

1 

INCR.2 

SXA,  2 

11, 3456 

000X16- 

1 

_6 

0587 

REF 

7 

LAST 

1237 

11,3457 

01126 

0 

Y V 

0588 
ns  rq 

11, 3460 

45104 

0 

T I X , 2 

CALL 

REF 

I 

ILL,  3_46 1 

_ 23546  1 

R E L 0 AOS  V 

0590 

REF 

25 

LAST 

12  3 7 

11, 3462 

11165 

0 

GRP2  PC 

0591 

11, 3463 

671  54 

0 

LXA, 2 

SXA  , 2 

0592 

RFF 

8 

L£SI 

123  8 

11,  3 464 

Oil  26 

0 

Y V 

0593 

REF 

4 

LAST 

1238 

11, 3465 

01117 

1 

COLR  EG 

1 1 T 3466 

77624 

1 NEX  TOOL- 

CALL 

0595 

REF 

26 

LAST 

1238 

11 , 3467 

11165 

0 

GRP2PC 

0596 

11, 3470 

76754 

0 

LXA, 2 

V LO A 0* 

r_F  F 

5 

1 A^T 

12  3 8 

11,3471 

01117 

J . 

C GIF  EG 

0598 

RFF 

32 

LAST 

1237 

11,3472 

75376 

1 

W , 2 

0599 

11,3473 

77722 

0 

VSR3 

ADJUST  W-POS IT  1 ON 

FOR 

INTEGRATION 

n.snn 

R-F-F 

O 

I AST 

12  3 8 

11 , 3 474 

01127 

XL-  - - 

STORE 

Y V- 

0601 

11 , 3475 

761  73 

0 

VLOAD* 

A XT  , 1 

0602 

REF 

33 

LAST 

12  3 8 

11, 3476 

75310 

1 

W +540,2 

Oh  a3 

11 ,3477 

000  00- 

1 

0 

0604 

11 , 3500 

77722 

0 

VSR3 

ADJUST  W-VELOCITY 

FOR 

I NT  EGR  AT  I ON 

0605 

REF 

6 

LAST 

12  3 7 

11,3501 

35135 

0 

STCALL 

ZV 

0-60-6 EUSE l LL, 3.502 232 46  JO DIFEQCL 


0607 

11,3503 

77200 

0 

ENDSTATE  BOV 

VLOAD 

- 06-07  1 

RFF 

_2_ 

LAST 

123  2 

1 1 ,3_504- 

.22707 

1 

GOBAQUE 

0608 

REF 

7 

LAST 

1238 

11,3505 

01135 

1 

1 V 

0609 

REF 

12 

LAST 

12  3 6 

11 , 3506 

25527 

0 

STOVL 

TNUV 

0610  _ 

REF 

1.0_ 

-LAST  L238 

11,-35-0  7 

01127 

1 

YV 

0611 

RFF 

12 

LAST 

123  6 

11,3510 

01521 

0 

STORE 

TDE L TAV 

0612 

11,3511 

43014 

0 

BON 

R OF  F 

0643  1 

-JREF 

3- 

L ASX- 

L22-Q- 

11 ,3-54  2 

04715 

0 

M IDAVFLG 

06122 

REF 

i 

11,3513 

27657 

0 

CKMI D2 

CHECK 

FOR  MID2  BEFORE  GOING  TO  TIMEINC 

0613 

REF 

20 

LAST 

1227 

11, 3514 

01756 

1 

D IMO  FLAG 

0614- 

- +R-F-F 

_5_ 

LAST 

L2?-9- 

1143-515 

22255 

0 

TEST  1 OOP 

06141 

1 1, 3516 

77776 

1 

EXIT 

0615 

REF 

113 

LAST 

1222 

11,3517 

0 5353 

1 

TC 

PHA  SCHNG 

0616 

1 1 , 3570 

04022- 

0 

OCT 

04322 

PHASE 

1 

0617 

REF 

65 

LAST 

121  1 

11, 3521 

0 5 5 04 

0 

TC 

UPFLAG 

PHASE 

CHANGE 

HAS  OCCURRED  BETWEEN 

0618 

REF 

4 

LAST 

121  1 

11, 3522 

00236 

0 

ADRES 

REI NTFLG 

I NT ST  ALL  AND 

INTWAKE 

06-20 

FLEE 

22.8 

LAST 

12  2 2 

11,3  52-3 

0 6036 

1 

TC 

INTPRET 

0621 

11,3524 

77731 

1 

SSP 

0621  5 

REF 

20 

LAST 

1235 

11,3525 

00053 

1 

QPRET 

0627 

-REF. 

1 

11,3526 

23533 

0 

AMOVED 

0623 

1 1, 3527 

52014 

0 

BON 

GOTO 

0624 

REF 

25 

LAST 

1218 

1 1, 3530 

017  14 

1 

V I NT  FLAG 

GAP  : ASSEWJtE^  RE4/-IST-0N— 0-69 — Of — 4&€— PROGRAM — tUMWWHf — BY— NASA  2021117-011 


L ORBITAL  INTEGRATION 


0625 

0626 

REF 

REF 

5 

4 

LAST 

LAST 

1222 
12  2 2 

11. 3531 

11.3532 
11,3  533 

26661 

26734 

66214 

1 

0 

0 AMO-VED 

SET 

ATOPCSM 

ATOPLEM 

SSR 

0628 

0629 

REF 

REF 

4 

6 

LAST 

LAST 

1237 
123  8 

11. 3534 

1 1. 3535 
- 11,3-536 

00061 
01120 
77  7-41 

0 

0 

0 - 

DFJL 

JSWI TCH 
COLR EG 
-30 

0631 

11, 3537 

66214 

0 

BOFF 

SSP 

0632 

REF 

10 

LAST 

121  8 

11,3540 

01755 

1 

D63R  9FLG 

R FF 

1 

1 1,3  541 

-23-466 

1 

NEXT  COL 

0634 

REF 

7 

LAST 

1239 

1 1, 3542 

Oil  20 

0 

COLR  EG 

0635 

1 1, 3543 

77717 

0 

DEC 

-48 

1 L,  3 5-44 

72650 

1 

GOTO 

0637 

REF 

2 

LAST 

1239 

11,  3545 

23466 

1 

NEXTCOL 

0638 

11,3546 

77745 

1 

RELOADSV 

DLOAD 

0639 

REF 

9 

LAST 

1220 

11,3547 

01116 

0 

TDEC 

_ 064-0- 

R£F 

6? 

_ LASJ  12  29 

11,355.0 

34041 

0 

STCALL 

T DEC  1 

0641 

RFF 

i 

11,3551 

27141 

0 

INTEGRV? 

0642 

11,3552 

43345 

1 

DIFEQCOM 

DLOAD 

DAD 

0643- 

-R  EE 

- jj. 

-LAST 

1233 

11,3553 

07  0.7.6 

1 

DT_/  7 

0644 

REF 

6 

LAST 

1237 

11, 3554 

02100 

1 

H 

0645 

11,3555 

66110 

1 

I NCR , 1 

S X A , 1 

0646 

-44-,  3-5  5 6 

77  763 

-0- 

DEC 

-1  2 

0647 

REF 

25 

LAST 

1234 

11, 3557 

01  500 

0 

D IFFQCNT 

0648 

REF 

7 

LAST 

1239 

11,3560 

02100 

1 

STORE 

H 

064-9 

1 1 ,3-564 

74561  _Q 

vx SC  - 

_ VSR  1 

0650 

REF 

10 

LAST 

1237 

11, 3562 

02062 

1 

FV 

0651 

11, 3563 

742  55 

0 

VAD 

VXSC 

0652 

R-EE- 

8 

4.  AST 

123-8 

1-L,  3-5-64 

04135 

_4— 

7 V 

0653 

REF 

8 

LAST 

1239 

11, 3565 

02100 

1 

H 

0654 

11 , 3566 

77655 

1 

VAD 

0655 

REF- 

4-1 

LAST- 

423-8 

1 L»35l67  _ 

01127 

1 

YV 

0656 

REF 

32 

LAST 

1234 

11,3570 

02032 

1 

STORE 

ALPHAV 

0657 

11,3571 

52014 

0 

BON 

GOTO 

045-8 

-REF 

5— 

-LAST 

123-9— 

- 11,3372 

.00301 

_Q_ 

JSW I TCH 

0659 

REF 

2 

LAST 

1234 

LI,  3573 

23611 

0 

DOW.  . 

0660 

REF 

1 

11,3574 

22411 

0 

FBR3 

0661 

11,3575 

43014 

0 

WMAT  END 

CLEAR 

CLEAR 

0662- 

RE-F 

21 

-LAST- 

-1238 

11,3-57-6- 

01676 

1 

D I MO  FLAG 

0663 

REF 

3 

LAST 

1222 

11,3577 

01671 

0 

ORB W FLAG 

0663  1 

11,3600 

77614 

1 

CLEAR 

Q6632 

-R-EE 

43 

LAST 

12  2-2 

IT  , 3-60 1 

02676 

J. 

P FNnWFt  G 

0664 

11, 3602 

77414 

0 

SET 

EXIT 

0665 

REF 

8 

LAST 

121  3 

11, 3603 

01472 

1 

STAT  EFLG 

0666 

—RE-F— 

41 

LAST 

-1221- 

1 1 , 3604 

0 5567  0 

TC 

ALARM 

0667 

11, 3605 

004  21 

0 

OCT 

421 

0668 

REF 

229 

LAST 

1238 

1 1,3606 

0 6036 

1 

TC 

I NT  P PET 

9 : 0 7— N-QV.-  ? 5 , 1 9.63- 


E— 1239 


USER'S  PAGE  NO.  17  EO  S3 


RELOAD  TEMPORARY  STATE  VECTOR 
FROM  PERMANENT  IN  CASE  OF 


BY  STARTING  AT  INTEGRV2. 
INCREMENT  H AND  D IFFQCNT . 


DIFEOCNT  SET  FOR  NEXT  ENTRY. 


PONT  INTEGRATE  W THIS  TIME 
INVALIDATE  W 


PICK  UP  STATE  VECTOR  UPDATE 
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EO  S3 

0669 

0670 

REF  6 

LAST  1238 

11, 3607 
11,3610 

77650  1 
27255  0 

GOTO 

TESTLOOP 

FINISH  INTEGRATING  STATE 

VECTOR 
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ORBITAL 

INTEGRAT  I ON 

USER'S  PACE  NO.  19 

EO  S3 

P0671 

ORBITAL 

ROUTINE  FOR 

EXTRAPOLATION  OF 

THE  W 

MATRIX.  IT  COMPUTES  THE  SECONO  DERIVATIVE  OF  EACH  COLUMN 

POSITION 

R0673 

VECTOR  OF  THE 

MATRI X 

AND  CALLS  THE  NYSTROM 

INTEGRATION  ROUTINES  TO  SOLVETHE 

DIFFERENTIAL  EQUATIONS. 

THF  PROGRAM 

a rip  np  \/  fm  T r i F P n S T T T.flN  VFCTQRS  -COMPUTED  DURIN-G-  1-UE — IN  1 hGR  A 1 I UN  Qh_ 

THFVFHICIES  POSITION  AND  VELOCITY. 

0677 

11,3611 

70754 

0 DOW 

LX  A , 2 

DLOAD* 

0678 

REF 

17 

LAST 

1236 

11,3612 

02030 

0 

PBODY 

l AST 

1J>  ? 9 

1 1,  3-61  3 

51  7Z£L 

0 

MUFARTH.7 

0680 

RFF 

4 

LAST 

122  8 

11,3614 

36072 

1 

STCALL 

BETAM 

0681 

REF 

1 

11,3615 

23637 

1 

DOW.  .1 

0-68? 

R£-F 

I 1 

last 

_L23  9 _ . 

11,3.616 

020  62 

1- 

STORE 

FV 

0683 

11,3617 

62014 

0 

BGF 

INCP  ,1 

0684 

REF 

5 

LAST 

1233 

11, 3620 

00342 

1 

M IDF  LAC 

06-85 

RFF 

? 

LAST 

1230 

11.3621 

231  36 

1 

NBRANCH 

0686 

11, 3622 

77771 

0 

DEC 

-6 

0687 

11, 3623 

70744 

1 

LXC  , 2 

DLOAC* 

0S88 

REF 

18 

1 AST 

1241 

1 1 , 3624 

02030 

-0  ..  — 

PBODY 

0689 

REF 

8 

LAST 

124  1 

1 1 ,3625 

51772 

1 

MUFARTH  -2,2 

0690 

REF 

5 

LAST 

1241 

11, 3626 

36072 

1 

STCALL 

BETAM 

06  91 

-R-EF 

2 

LAST 

-1241 

11,3-627 

23-63.7 

-J 

DOW. . 1 

0692 

11, 3630 

50414 

0 

BON 

V SR  6 

0693 

REF 

29 

LAST 

1235 

11, 3631 

00303 

1 

MOONFLAG 

0694 

1 1 , 3-632 

23633 

0 

* 1 

0695 

11, 3633 

77655 

] 

VAD 

0696 

REF 

12 

LAST 

124  1 

11, 3634 

02062 

1 

FV 

0597 

RXF 

X 3— 

LAS-T 

-12-4X 

11,-3.635— 

36062 

0— 

STCALL 

FV 

0698 

REF 

3 

LAST 

124  1 

11,3636 

23136 

1 

NBRANCH 

0699 

11, 3637 

60575 

0 DOW 

..1  VLOAD 

VSR  4 

_ _ 0700 

REF 

7 7, 

-LAST 

1239 

11,3  64-Q- 

-02032 

1 

ALPH AV 

0701 

11, 3641 

53513 

0 

PDVL* 

UNIT 

0702 

REF 

10 

LAST 

12  2 7 

11,3642 

02132 

0 

VECTAB.l 

_ __  0703 

11,-3-643- 

46315 

1 

P03/L 

V PR  0 J 

0704 

REF 

34 

LAST 

124  1 

11,  3 644 

02032 

1 

ALPHAV 

0705 

11, 3645 

52361 

1 

VXSC 

VSU 

- 0706 

REF -- 

5 

LAST 

12  33- 

11, 3646 

-23710 

0 

3/4 

0707 

1 1, 3 647 

60325 

0 

PDDL 

NORM 

0708 

11,3650 

00045 

0 

36D 

070-9 

R-EE 

37- 

__L  ASX- 

1238- 

11  r-3-651 

- 0005? 

0 

S2 

0710 

11, 3652 

63406 

0 

PUSH 

DS3 

0711 

11,3653 

77605 

1 

DM  P 

07 -12 

11,3654 

65301 

EL 

NORM 

POOL 

0713 

11,3655 

00043 

0 

34D 

0714 

REF 

6 

LAST 

124  1 

11, 3656 

02072 

0 

BETA  M 

074-5 

LX, -3  65  7 

56342  1 

SfiX 

nnv 

0716 

11,3660 

77761 

1 

VXSC 

0717 

11,3661 

571  54 

0 

LX  A , 2 

XAD,  2 

07X8 

REF 

3 8 

LAST 

1241 

_11 ,3-6 62_ 

.00051 

0 

S 2- 

0719 

REF 

39 

LAST 

1241 

11,3663 

00051 

0 

S 2 

0720 

11, 3664 

57074 

0 

X AD , 2 

XAD,  2 

Qi2J 

RFF 

4.0 

L-ASTL 

124  1 

1 1 l3_66-5- 

Q0051 

0 

S 2 

0722 

11,3666 

00042 

1 

34D 

0723 

11,3667 

43457 

0 

VSL* 

R VO 
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GAP  : 


L ORBITAL  INTEGRATION 


USER • S PAGE  NO.  20  EO  S3 


0724  1 1 » 3 670  57606  0 

0725  REF  1 11,2000 

07-26 LI, 2-671 


0 - 8 D , 2 

SETLOC  0RBITAL1 
_ BANK 


0727 

11.3671 

1 1 . 3672 

04631 

231-46 

i 

3/5 

20EC 

.6  B-2 

0728 

11,3673 

14000 

1 

THREE/8 

2DEC 

. 375 

0728 

11,3674 

00000 

1 

LI , 3 675 

02314 

0 

.30 

2DEC 

.3  B-2  - 

0729 

11,3676 

31463 

1 

0730 

11,3677 

01400 

1 

3/64 

2DEC 

3 B — 6 

0730 

1 I ,3700 _ 

000-0-0 

1 

0731 

11, 3701 

10000 

0 

DPI  /4 

2DEC 

.25 

0731 

11,3702 

00000 

1 

073? 

LAST  11-9  5 

-11,3701 

DQUARTER 

EQUALS- 

DPI/4 

0733 

REF  3 

LAST  1242 

11,3701 

POS 1/4 

EQUALS 

DPI/4 

0734 

11, 3703 

03000 

1 

3/32 

2DEC 

3 B - 5 

0734 

1 1 , 3704 

00000 

1 

0735 

11,3705 

36000 

1 

15/16 

20EC 

15.  B -4 

0735 

11,3706 

00000 

1 

073& 

1 1 , 3-10  7 

. 3-O  Q O-O 

1 

374 

2D-EC 

3.0  B -7  _ 

0736 

11,3710 

00000 

1 

0737 

11,3711 

22525 

0 

7/12 

2DEC 

. 5833333333 

0737 

LI  ,3  712 

- 12  5-25 

D 

0738 

11,3713 

22000 

1 

9/16 

2DEC 

9 B -4 

0738 

11,3714 

00000 

1 

07  3Q 

11,3715 

01200 

L 

5/L28 

2DEC 

5 B-7 

0739 

I 1,3716 

00000 

1 

0740 

REF  13 

LAST  1236 

11,2274 

DPZERO 

EQUALS 

ZEROVFC 

0741 

11,3717 

25252__ 

0 

DP2/3 

2DEC 

. 6666666667 

0741 

11, 3720 

25253 

1 

0742 

REF  3 

LAST  1237 

11,3717 

2/3 

EQUALS 

DP2/  3 

07455  - 

1 1 , 3 72  1 

00027 

L 

OCT  2 7 

OCT 

27 

R0746 

LM5C4  IS 

TEMPORARY 

07462 

13, 3721 

BANK 

13 

_ 07-4-63  - 

RFF 2 

_LAS  I - 61 

1 3.2000 

SETLOC 

OP  B I TAL2 

07464 

13, 3721 

BANK 

R0747  IT  IS  VITAL  THAT  THE  FOLLOWING  CONSTANTS  NOT  RE  SHUFFLED 
— 074.8 12,3721 77764  1 DEC  -11 


0749 

13, 3722 

77775 

1 

DEC 

-2 

0750 

13,3723 

77766 

0 

DEC 

-9 

- 0751  - — 

.13,3  7-2-4 

77773- 

0 

DFC 

-6 

0752 

13,3725 

77775 

1 

DEC 

-2 

0753 

13,3726 

77775 

1 

DEC 

-2 

- 0754 

13,3727 

00000 

1 

DEC 

0 

0755 

13, 3730 

77763 

0 

DEC 

-12 

0756 

13, 3731 

77766 

0 

DEC 

-9 

- 0757  _ 

33, 3 732 

77773 

3 

DEC 

-4 

0758 

13,  3733 

77770 

1 ASCALE 

DEC 

-7 

0759 

13,  3734 

77771 

0 

DEC 

-6 
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GAP  : 


ORBITAL  INTEGRATION  USER'S  PAGE  NO.  21  EO  S3 


0770 

13, 3735 

24000 

1 

5/8 

2DEC 

5 B-3 

0770 

13,  3736 

00000 

1 

077  ] 

1 3, 3737 

74631 

0 

-1/12 

2DEC 

-.1 

0771 

13, 3740 

63145 

1 

0773 

13, 3741 

00243 

1 

RECRATIO 

2DEC 

. 01 

0773 

J3j  3 742_ 

32703 

] 

0774- 

13, 3743 

03654 

0 

R SPHERE 

20EC 

64373.76  E3 

9-29 

0774 

13, 3744 

21000 

1 

r»77R 

13,  3 745 

03654 

0 

RDM 

2DEC 

1 6093.44  E 3 

B — 27 

0775 

13, 3746 

21000 

1 

0776 

13, 3747 

046  27 

0 

RDE 

2DEC 

80467.20  E3 

B-29 

0Z76 

_ 13,3750  _ 

25200 

_-L  _ 

0777 

0000 

RATT 

EQUAL  S 

00 

0778 

0006 

VATT 

EQUALS 

6 D 

0779 

0 0-14 

TAT 

£QUAL_S_ 

1 2D 

0780 

0016 

RATT1 

EQUALS 

14D 

0781 

0024 

VAT  T 1 

EQUAL  S 

POD 

07  02 

00-37 

MU<  P) 

EQUALS 

26D 

0783 

0040 

TDEC1 

EQUALS 

32D 

0784 

0016 

URPV 

EQUALS 

140 

0785  REF 

6-  LAST  123  2 „ 0 022 

COSPHI/7 

EQUALS 

URPV  +4 

0786 

0024 

uz 

EQUALS 

2 OD 

0787 

0032 

TVEC 

EQUALS 

2 60 

GA-P 
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L 

INFLIGHT 

ALI GNMENT 

ROUTINES 

USER ' S PAGE  NO. 

1 

EO  S3 

0001 

0002 

REF 

2 

LAST 

338 

22,3731 
23,2000 
21,3  157 

BANK  22 

SETLOC  INFL  IGHT 
BANK 

0004 

REF 

22 

LAST 

970 

E 5 , 1642 

EBANK=  XSM 

R0005  CALCGTA  COMPUTES  THE  GYRO  TORQUE  ANGLES  REQUIRED  TO  BRING  THE  STABLE  MEMBER  INTO  THE  DESIRED  ORIENTATION. 


R0007  THE  INPUT  IS  THE  DESIRED  STABLE  MEMBER  COORDINATES  REFERRED  TO  PRESENT  STABLE  MEMBER  COORDINATES.  THE  THREE 

R0009  HALF-UNIT  VECTORS  ARE  STORED  AT  XDC,  YDC,  AND  ZDC. 


R0010  THE  OUTPUTS  ARE  THE  THREE  GYRO  TORQUING  ANGLES  TO  BE  APPLIED  TO  THE  Y,  Z,  AND  X GYROS  AND  ARE  STORED  DP  AT  IGC, 


R 00 1 2 

MGC  , 

AND 

OGC 

RESP  ECTIVELY. 

0013 

REF 

1 

COUNT* 

S $/ I NFLT 

0014 

23,3151 

71220 

1 CALCGTA 

ITA 

DLOAD 

PUSHDOWN 

00-03 

, 16D-27D.34D-37D 

on  i s 

REF 

41 

L AST 

124-1— 

- 23,3152 

00051 

0 _ _ _ 

S2 

XDC  = (XD1 

XD2 

XD  3 ) 

0016 

REF 

6 

LAST 

970 

23, 3153 

02665 

0 

XDC 

YDC  = ( YD1 

YD2 

YD3  ) 

0017 

23, 3 154 

65325 

0 

PDDL 

PDDL 

ZDC  = ( ZD1 

ZD2 

ZD3  > 

noli* 

RFF 

17 

L ASX 

11-4-2 

23, 3155— 

06424 

-0  - _ 

H I 6 Z EROS 

0019 

RFF 

7 

LAST 

1244 

23,3156 

02671 

0 

XDC  +4 

0020 

23,3157 

55476 

1 

DCOMP 

VDEF 

00?  1 

23,3-160 

77656 

1 

UNIT 

0022 

REF 

1 

23,3161 

14027 

1 

STODL 

ZPR I ME 

ZP  = UNIT! 

-XD3 

0 XD1)  = (ZP1  ZP2  ZP3) 

0023 

REF 

2 

LAST 

1244 

23,3  162 

00027 

1 

ZPR I ME 

0024 

23,3163 

77742 

0 

SRI 

0025 

RFF 

12 

LAST 

113  2 

23,3 164 

14023 

0 

STODL 

S INTH 

SIN (IGC)  = 

ZP1 

0-0-26— 

RFF 

3 

1 AS  T 

1744 

73.3165 

000  33 

1 

Z PR  I MF  +4 

0027 

23,3 166 

77742 

0 

SRI 

0028 

REF 

ii 

LAST 

1132 

23,3167 

340  21 

0 

STC ALL 

COST  H 

COS(IGC)  = 

ZP3 

(102-9 REF 4 L ASF 116 71.1170 472  27  0 ARCTRIG 


0030 

00-31-  ■ 

REF 
R-EF  - 

2 

a 

LAST 

LAST 

138 
12  4 4 

23,3171 
23,3  17 2 

16742  1 
026  67  1 

STODL 

IGC 

XHC  +2 

Y GYRO  TORQUING  ANGLE 

FRACTION  OF  REV. 

0032 

23, 3173 

77742  0 

SRI 

0033 

REF 

13 

LAST 

1244 

23, 3174 

14023  0 

STODL 

S INTH 

S I N ( MGC)  = XD2 

0014- 

R-F-F 

4 _ 

—LAST 

124,4 

-23 , 3 L75 

£0021  1 

7 PR  I ME 

0035 

23, 3176 

65205  0 

OMP 

PDDL 

— : 0036 

- R-EF- 

9 

— L-AST 

1244 

23,3177 

02-6  71.  0 

X DC_  +4 

PDOO  = ( ZP  l ) ( X D 3 ) 

0037 

REF 

5 

LAST 

1244 

23,3200 

00033  1 

Z PR  I ME  +4 

0038 

-23,  3201 

45205  1 

DMP 

D Sli 

0039 

REF 

10 

LAST 

1244 

23 i 3202 

02665  0 

XDC 

MPAC  = ( ZP  3 ) ( XD1 ) 

0040 

23, 3203 

77626  0 

STADP 

_ .00-41 

REJL- 

12 

LAST 

1244 

23.3204 

43756  1 

STC  AL  L 

COSTH 

COS ( MGC ) = MPAC  - PDOO 

0042 

REF 

5 

LAST 

1244 

23,3205 

47222  0 

ARCTPIG 

GAP: 

L 

0043 

0044 
0045 

0046 

0047 
0046- 

0049 

0050 

0051  - 

0052 

— Q05>3— 
0054 
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REF 

REF 

2 

6 

LAST 

LAST 

139 

1244 

23.3206 

23.3207 
2 3, 3 210 

26744  1 
00027  1 
77641  1 

STGVL 
. DOT 

MGC 

Z PR  I ME 

Z GYRO  TORQUING 

ANGLE 

FRACTION 

OF 

REV. 

REF 
REF 
— REF- 

REF 

4 

13 

— X— 

4 

LAST 

LAST 

929 
124  4 

23.3211 

23. 3212 

23.3213 

02701  0 
24021  1 
00-02-7  1 

STOVL 

Z DC 
COSTH 
7 PR  I MF  - 

COS(OGC) 

= ZP  . 

ZDC 

LAST 

929 
12  44 

23.3214 

23. 3215 
23,  3-216- 

77641  1 
02673  1 
34023  1 

DOT 

STEAL  L 

Y DC 

-S-LNT  H - 

SINtOGC) 

= Z-P  . 

Y DC 

REF 

6 

last 

1244 

23, 3217 

47222  0 

ARC  TR  IG 

l a<;t 

fl 

73,3 220 

36740-  1 

- ST-CAL  i-_n.Gr 

X-  GYRO  TORQIJING  ANGl  F 

FRACT  LO-N 

_QF 

REV. 

REF 

42 

LAST 

1244 

23, 3221 

00051  0 

S 2 

GAP 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER'S  PAGE  NO.  3 E5  S3 

R0055  ARCTRIG  COMPUTES  AN  ANGLE  GIVEN  THE  SINE  AND  COSINE  OF  THIS  ANGLE. 

— R 00-56 T H E — IN P-UT-S  ARE — S-I-N/-4— AND — C 0 S / A STORED  DP  AT— STNTH  AND  CfJSXH. 

R0057  THE  OUTPUT  IS  THE  CALCULATED  ANGLE  BETWEEN  +.5  AND  -.5  REVOLUTIONS  AND  STORED  AT  THETA.  THE  OUTPUT  IS  ALSO 
R 00-59 AVAILABLE— AT  MPAC. 


piiSHnowN  I6n-2in 


0061 

REF 

15 

LAST 

1245 

23, 3223 

00023 

0 

S I NTH 

0062 

23,3224 

50025 

0 

DSU 

BMN 

0063 

- REF 

1 

23,32.25 

07440 

.0 

-QTS-N45 

ABSI SIN/4)  - SINI45I/4 

0064 

REF 

1 

23, 3226 

47235 

0 

T R I G 1 

IF  (-45,45)  OR  (135,-135) 

0065 

23, 3227 

72545 

0 

DLOAD 

S LI 

(45,135)  OR  (-135,-45) 

0066 

REF 

14 

LAST 

1245 

23,3230 

00021 

1 

COST  H 

_ 0067 

23,3231 

753  26 

2L 

A CHS 

SIG-N 

0068 

REF 

16 

LAST 

1246 

23, 3232 

00023 

0 

S I NTH 

0069 

REF 

7 

LAST 

1132 

23, 3233 

00025 

0 

STORE 

THETA 

X = ARCCOS ( COS ) WITH  S I GN ( S I N ) 

- 0070- 

23,3234 

77616 

0 

RVQ 

0071 

23,  3235 

72-545- 

-0 

JR  IG-1 

DLOAD- 

_S_L1 

- 1-45,45)  31R  ( 1 35,-1  35  I 

0072 

REF 

17 

LAST 

1246 

23,3236 

00023 

0 

S INTH 

0073 

23, 3237 

77736 

0 

ASIN 

0074- 

RE-F 

a 

LAST 

12  4-6  — 

-23,3240 

14025 

0 

STOOL  . 

THETA 

X = ARCS  IN (SIN)  WITH  S I GN ( S I N ) 

0075 

REF 

15 

LAST 

1246 

23, 3241 

00021 

1 

COSTH 

0076 

23,3242 

77640 

0 

BMN 

0077 

- R OE 

1 

23,  3-2-4  3 

472  46  - 

1 

T R I G 2 

IF  ( 135.-135) 

0078 

23, 3244 

43545 

1 

DLOAD 

RVO 

0079- 

R-EF 

9 

LAST 

124  6 

23, 3245 

00-025- 

0 

THETA 

X = ARCS  I N ( S I N ) (-45,45) 

OQ-&Q- 

2 3,  3 246 

75  J45 

1 

TR  I G2 

01  -flAO 

S I G-N 

(135 , - 1351 

0081 

REF 

6 

LAST 

114  1 

23, 3247 

06422 

0 

HIDPHALF 

0082 

REF 

18 

LAST 

1246 

23,3250 

00023 

0 

S INTH 

00-83— 

—23,3251 

77625 

0 

DSU 

0084 

REF 

10 

LAST 

1246 

23,3252 

00025 

0 

THETA 

0085 

REF 

11 

LAST 

1246 

23,3253 

00025 

0 

STORE 

THETA 

X = .5  WITH  SIGN(SIN)  - ARCSIN(SIN) 

. 00.86 

23, 3254 

776  16 

0 

RVO 

(+)  - (+)  OR  (-)  - (-) 
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L 

R0087 
R0088 
R0Q89 — 


INFLIGHT  ALIGNMENT  ROUTINES  USER'S  PAGE  NO.  4 E5  S3 


SMNBt  NBSM , AND  AXISRQT,  WHICH  USED  TO  APPEAR  HERF . HAVE  BEEN 
COMBINED  IN  A ROUTINE  CALLED  AX*SR*T,  WHICH  APPEARS  AMONG  THE  POWERED 
FLIGHT  SUBROUTINES. 


CAP  ; ASSEMBLE  REV IS-I ON  069  01'  A GC  PROGRAM  CUMINARY  BY  NASA  20 2-U 1 P-011 


Nnv.  2S,iP68 sktppfr  .070 page  1 par 

INFLIGHT  ALIGNMENT  ROUTINES  USER'S  PAGE  NO.  5 E5  S3 


R0090  CALCGA  COMPUTES  THE  COU  DRIVING  ANGLES  REQUIRED  TO  BRING  THE  STABLE  MEMBFR  INTO  THE  DESIRFD  ORIENTATION. 

R0QO2 Thf  INPUTS  ARE ME- -NA-VT-GAT-TON- -BAS-E- -COORD -I-NA  XE-S-R-EE-E&RB  D-JO-AN  Y COORDl-NATF  SYSTFM.  THF  THREE  HALF-UNIT 

R 0094  VECTORS  ARE  STORED  AT  XNB.YNB,  AND  ZNB.  2)  THE  DESIRED  STABLE  MEMBER  COORDINATES  REFERRED  TO  THE  SAME 
R 0096  COORDINATE  SYSTEM  ARE  STORED  AT  XSM,  YSM,  AND  ZSM. 


R0097  THE  OUTPUTS  ARE  THE  THREE  CDU  ORIVING  ANGLES  AND  ARE  STORED  SP  AT  THETADi  THETAD  +1,  AND  THETAD  +2. 


0099 

23,3255 

77601 

0 

CALCGA 

SETPD 

PUSHDOWN  00-05,  16D-21D,  390-37D 

0100 

23,3256 

00001 

0 

0 

0101 

?3r 1?57 

973  75- 

0 

V.L  CLAD 

VXV  . . ... 

0102 

REF 

9 

LAST 

965 

23, 3260 

02665 

0 

XNB 

XNB  = OGA  I OUTER  GIM8AL  AXIS) 

0103 

REF 

2 

LAST 

138 

23, 3261 

02651 

1 

YS« 

YSM  = IGA  (INNER  GIMBAL  AXIS) 

0]  04 

_ 23 » 3,262 

9195.6 

a . 

UNI  T 

PUSH  _ __ 

P DO  = UNIT! OGA  X IGA)  = MGA 

0105 

23,  3263 

99091 

l 

DOT 

I TA 

n i 

-REF 

A 

-LAST 

976 

23, 3Z64 

027  OX 

0 

_ZN  B__  _ 

0107 

RFF 

93 

LAST 

1295 

23,3265 

00051 

0 

S 2 

0108 

REF 

16 

LAST 

1296 

23, 3266 

29021 

l 

STOVL 

COSTH 

COS(OG)  = MGA  . ZNB 

- 0109 

-23,3767 

.00001 

-0 

0 

0110 

23,3270 

77691 

1 

DOT 

Oil  1 

REF 

6 

LAST 

976 

23, 3271 

02673 

1 

YN8 

-OJ  1 _?  ... 

R-E-F 

19 

last 

1246 

23 -»  3-272 

34023 

1 

S.T  CALL 

SI  NTH 

SIN(GG)  = MGA  . YNB 

0113 

REF 

7 

LAST 

12  9 5 

23,3273 

97222 

0 

ARCTRIG 

0119 

REF 

15 

LAST 

1295 

23,3279 

26790 

0 

STOVL 

OGC 

-01-1-5 23^3-2-7-5 00001  0 a 


0116 
- 0 1 17 

REF 

10 

— L AST 

12  4 8- 

23.3276 

23. 3277 

50235 

02-6-6.5- 

o o 

VXV 

DOT 

XNP 

PROVISION  FOR  MG  ANGLE  OF  90  DEGREES 

OUR 

REF 

3 

LAST 

1298 

23, 3300 

02651 

1 

YSM 

0119 

23,3301 

77752 

1 

SL1 

0 1-20 

ref 

17 

L AST 

124  8 

23 ,330? 

?40?1 

1 

STQYL 

COSTH 

COS (MG)  = IGA  . (MGA  X OGA) 

0121 

REF 

9 

LAST 

1298 

23, 3303 

02651 

1 

YSM 

0122 

23,3309 

77691 

1 

DOT 

0123  - 

-R-E-F 

1 1 

LAST- 

12-9-8- 

23, 3305_ 

0-2665 

0 

XNtB 

0129 

REF 

20 

LAST 

1298 

23,3306 

390  2 3 

l 

STCALL 

S INTH 

SIN(MG)  = IGA  . OGA 

0125 

REF 

8 

LAST 

1298 

23, 3307 

97222 

0 

ARCTRIG 

0-126^ 

-REF  - 

3 

LAST 

129  5 

23,3310 

02799 

l 

STORE 

MGC 

0127 

23,3311 

95296 

0 

ABS 

DSU 

01-2  8 

- R-E  F 

1 

23,33X2- 

07442 

J 

• 166  • • . 

0129 

23,3313 

77699 

l 

BPL 

0130 

REF 

1 

23, 3319 

97335 

l 

GIMLOCKl 

IF  ANGLE  GREATER  THAN  60  DEGREES 

0131 

23, 3315 

50375 

0 CALCGA1 

VLOAD 

DOT 

0132 

REF 

2 

LAST 

138 

23, 3316 

02657 

1 

ZSM 

0133 

23,3  317 

00 001 

0 

0 

0139 

REF 

18 

LAST 

1298 

23, 3320 

29021 

1 

STOVL 

COSTH 

COSI IG)  = ZSM  . MGA 

0135 

REF 

23 

LAST 

1299 

23, 3321 

02693 

1 

XSM 
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USER'S  P AG F NO-  6 E5  S3 


0136 

23, 3322 

45441 

1 

OOT 

STADR 

0137 

REF 

21 

LAST 

1248 

23, 3323 

43754 

0 

STCAL L 

SINTH 

SIN!  IG)  = X S M . 

MGA 

PFF 

Q 

4_  AS-J 

124  8 

-23  ,-3324- 

- 47222 

0 

ARC-TRIG  _ 

0139 

REF 

3 

LAST 

1244 

23,3325 

26742 

1 

STOVL 

IGC 

n i 4 n 

RF-F 

1-6 

-LASJ 

12.4  8- 

23,3326 

02740 

0 

3GX 

0141 

23,3327 

43034 

1 

RTB 

BONC  LR 

01415 

REF 

4 

LAST 

49  5 

23, 3330 

21524 

1 

VIST  02S 

m 4? 

_iLEF 

1 

23,3331 

00.2  00 . 

-0 

C PH  I FLAG 

01425 

RFF 

44 

LAST 

1248 

23, 3332 

00051 

0 

S 2 

0143 

REF 

20 

LAST 

965 

23, 3333 

34322 

0 

STCAL  L 

THE  T AO 

0 144 

REF 

-A5 

LASI- 

124  9 

23, 3334 

0.0.05  1 

0 

S 2 

0145 

23,  3335 

77776 

1 

GIML0CK1 

EXIT 

m 4/» 

R F F 

42 

L ASX 

12  3 9 

23,3336 

0 5567 

-0 

TC 

ALAP  M 

0147 

23,3337 

00401 

1 

OCT 

0040  1 

0148 

REF 

66 

LAST 

1238 

23,3340 

0 5504 

0 

TC 

UPFL AG 

GIMBAL  LOCK  HAS 

OCCURED 

0445- 

„ R E-F 

2- 

LAST 

38  7 

23, 3341 

000  56 

1 

ADRES 

GL OK  FA  1 1 

0150 

REF 

230 

LAST 

1239 

23,  3342 

0 6036 

1 

TC 

INTPRFT 

0 1 51 

23, 3343 

77650- 

-1 

.GOTO 

0152 

REF 

1 

23,3344 

47315 

0 

CALCGA1 

19:02  N 0V._  25,1963 SKIPPFR  .070 PAGF  17  50 


-SAP-: — 
L 

R 0 L 53 

R0155- 
R0157 
R0159 
RO  16  1- 

R01 6? 
-R01-64- 


0165 

0166 
0167 
-0 1 6-8- 

0169 

01-70- 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

-Gt78- 

0179 

0180 

0181 

0182 

0183 

0184 
Ot85- 

0186 

0187 

0188 

0189 

0190 

0191 
-0  1-92 
0193 

01-94- 

0195 

0196 
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INFLIGHT  ALIGNMENT  ROUTINES  USER'S  PAGE  NO.  7 E5  S3 

AXISGEN  COMPUTES  THE  COORDINATES  OF  ONE  COORDINATE  SYSTEM  REFERRED  TO  ANOTHER  COORDINATE  SYSTEM. 


-T-HE— LNPST-S-4VR-F l ) THE  S TAP-1  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  A-  -SXflRFD  AT  STAR  AD. ?)  THF  STAR?  VECTOR 

RfPERRED  jo  COORDINATE  SYSTEM  A STORED  AT  STARAD  + 6.  3)  THE  STAR1  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  B STnRED 
AT  LOCATION  6 OF  THE  VAC  AREA.  4)  THE  STAR2  VECTOR  RFFERRED  TO  COORDINATE  SYSTEM  B STORED  AT  LOCATION  12D  OF 


T-KE- 

THE 

-VAC  AR-E/U 

OLTP UT  DEFINES 

COORDINATE 

SYSTEM 

A 

REFERRED  TO  COORDINATE  SYSTEM  B. 

THE  THREE  HALF-UNIT  VECTORS  ARE  STORED 

AJ— 1 

nr  at  ton 

xoc , 

XDC  +6  , __ XDC_ 

+ 12D  , -AND 

STARAD,  STARAD_. 

16,  STARAD  + 17D. 

2 3 » 3 345 

6-63.70- 

- 0 

-AXT  SGEN  - AXXj  1 

SSP  - - 

PUSHDOWN 00  — 300.  34D-3  7J3 

REF 

32 

LAST 

96  8 

23  j 3 346 

02714 

1 

STARAD  +6 

REF 

29 

LAST 

123  1 

23, 3347 

00051 

0 

SI 

R F F 

33 

LAST 

12  5 0 

23, 3350  _ 

02700- 

1 

STARAD  -6 

23, 3351 

77601 

0 

SETPD 

23,3352 

00001 

- 0 

0 

23, 3353 

46773 

0 

AX  I SGEN 1 VLOAD* 

vxv* 

06D  UA  = SI 

RFF 

34 

LAST 

1250 

23,3354 

02723 

0 

STARAD  + 1 2D , l 

STARAD  +000  UB  = SL 

- R ELF 

15- 

LAST 

12  5-0- 

02  7 3 1 0 

-S TAP  AD  + L80, 1 

23,3356 

77656 

1 

UNIT 

1 2D  VA  = UNITISl  X S 2 ) 

REF 

36 

LAST 

1250 

23, 3357 

06731 

1 

STORE 

STARAD  +18D, 1 

STARAD  +06 D VB  = UNITISl  X S2) 

23,3360 

77773 

-1 

VLQAD7. 

REF 

37 

LAST 

1250 

23, 3361 

02723 

0 

STARAD  + 1 2D , 1 

23*  3352 

764  3 3 

1 

vxv* 

V SL  1 

REF 

38 

LAST 

1250 

23, 3363 

02731 

0 

STARAD  +180,1 

18D  WA  = UA  X VA 

REF 

39 

LAST 

1250 

23,3364 

06737 

l 

STORE 

STARAD  +240,1 

STARAD  + 1 2 D WB  = UB  X VB 

23, 3365 

77700 

0 

T I X , 1 

REF 

1 

23, 3366 

47353 

1 

AX  I SGFN1 

23, 3367 

66160 

0 

AXC  , L 

SXA,  1 

23, 3370 

00006 

1 

6 

—23 , 3371 

00-03.6- 

1 

3 0.D 

23, 3372 

66370 

0 

h- 

X 

< 

SSP 

-23, 3373 

non??  i 

1 8D 

REF 

30 

LAST 

1250 

23,3374 

00051 

0 

SI 

23, 3375 

00006 

1 

6 

23, 3376 

66374 

1 

AXT, 2 

SSP 

23,3377 

00006 

1 

6 

REF 

LAST  1249 

23  , 3 AO  0 

0005?  0 

S? 

23,3401 

00002 

0 

2 

23,3402 

76720 

-JCL 

-AX  LSG£R2-  XCtLXjl 

VJLQA-D* 

23.3403  00036  1 TOD  Xl=-6  X2=  + 6 Xl  = -6  X2=+4  Xl=-6  X2  = +2 

23.3404  00001  0 0,1 


ASSEMBLE  R 
INFLIGHT 

EV-  IS- 1 ON  0-69 
ALIGNMENT 

nc  A rr  DDnC.DJi.bA  1 IIMIMARY  RY  ALA  CA  __2£L  1 1 ?- HI  1 19: 

-02— NOV.  2 5, 

1-9-65 S-RI-PF-ER  , 

JUO RAGE-  1251 

L 

ROUTINES 

USER1 S 

PAGE  NO.  8 

E5  S3 

0197 

0198 
ni  qq 

REF 

40 

LAST 

1250 

23.3405 

23. 3406 
23,3  407 

62757  0 
75062  1 
000-07  JO 

VXSC* 

PDVL* 

STAPAO  +6,2 
6,-1 

J=IUA)  (U81  ) 

J=(UA) (UB2) 

J=(UA)(U83> 

0200 

0201 

REF 

41 

LAST 

125  1 

23. 3410 

23. 341 1 
2 3 , 3 412 

77757  I 
75054  1 
3-0031—0 

VXSC* 
STnvi  * 

STARAD  +120,2 
240 

K=(VA) (VB1 I 

J=  I VA  ) ( V B 2) 

J=(VA) (VH31 

0203 

23, 3413 

00015  0 

1 2D  , 1 

O^CV 

25,  3 41-4 

533-  57  -0 

V-XSC* 

VAD 

0205 

0206 
n?n  7 

RFF 

42 

LAST 

125  1 

2 3 i 3 415 

23. 3416 

23.3 417  - 

75046  1 
76455  1 
00031  0 

VAD 

STARAD  +180,2 

VSL  1 

74D 

L=( WA) (WB1 ) 

J= ( WA ) ( W B 2 ) 

J = ( W A ) ( W B 3 ) 

0208 

0209 

0210 

RFF 

11 

LAS  I 

124  4 

23.3420 

23. 3421 
-23,3422  _ 

53520  0 
00036  1 
_ 067  07-  1 

XCHX, 1 
STORE 

UNI  T 

30D 

X DC  +18Djl 

X DC  = L + J + K 

YDC  = L+J+K 

Z DC  = L + J+K 

0211 

02.12 

RFF 

1 

23.3423 

23.3424 

77700  0 

47425  1 

T I X , 1 

AX  I SGEN3 

0213 

23,3425 

77704  1 AXISGEN3 

TIX  ,2 

0214 R-E-F 1 23.3A26 47  4.02--1 AXLSGENZ 


0215 
0?  16 

RFF 

12 

l ASJ 

12-5  1- 

23, 3427 
2 3^-3  43-0  - 

77775  1 
02665  0 

VLOAD 

X DC 

0217 

REF 

43 

LAST 

125  1 

23,  3431 

26707  0 

STOVL 

STAR  AD 

0218 

REF 

5 

LAST 

1245 

23,3432 

02673  1 

YDC 

-02  19- 

R F-F 

44 

L AS4 

12  54 

23, 3433 

26715  0 

STQVL 

STARAD 

0220 

REF 

5 

LAST 

L245 

23,3434 

02701  0 

Z DC 

0221 

REF 

45 

LAST 

125  1 

23,3435 

02723  0 

STORE 

STAR  AD 

+ 120 

0222  23,3436  77616  0 RVQ 


-GAP: 


0281 

0281 

02-82- 

0282 
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23,3437  05520  0 QTSN45  2DEC  .1768 

23.3440  26075  1 

23. 3441  052  52  1 .166... 

23.3442  25253  1 


2DE_C 


1 6 6 6666667 


GAP  : 
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xa:02  NOV.  SKTPPFR  .070  PAGF  1 PIT 

USER'S  PAGF  NO.  10  F5  S3 


L 


INFLIGHT  ALIGNMENT  ROUTINES 


GAP:  a S S E M B LE  PEVIS jQN-nAQ -nF  -ar,f,  PRnGRA-M-LU MINA RY- -BY  -NASA  2021112-011 


19:0?  MflV,  SKIPPER  .070 PAGE  1 254. 


L 

POWERED 

FL  IGHT  SUBROUTINES 

USER ' S PAGE  NO.  1 EO  S3 

0001 

0002 

REF  1 

14,3711 

23,2000 

23,3443  _ 

BANK  14 

SFTLOC  POWFLITE 
BANK_  _ 

SAME  FBANK  AS  THE  FINDCDUO  SUB-PROGRAM 

0004 

0005 — 

REF  1 

R-FF 1- 

0 142 

EB ANK=  D EX  D EX 

_ c n un y * a/ p cwi  i 

R0006 
-R-OOG7- 
R0008 
R0009 
-ROOLO- 
R001 1 
R0012 


CDUTRIG,  CDUTRIG1,  CDUTRIG2,  AND  CD*TR*GS  ALL  COMPUTE  THE  SINES  AND 

COSINES  OP  THREE  - 2 »S  COHB.LEMEN.T  ANGLES  AND  PLACE  THE_  RESULT,  DOUBLE 

PRECISION,  IN  THE  SAME  ORDER  AS  THE  INPUTS,  AT  SINCDU  AND  COSCDU.  AN 

ADDITIONAL  OUTPUT  IS  THE  l'S  COMPLEMENT  ANGLES  AT  CDUSPOT.  THESE 

pniiflNFS  GO  nilT  OF  THFTR  WAY  TO  IFAVF  THF  MPAC  AREA  AS  THE-Y  FIND  IT, 

EXCEPT  FOR  THE  GENERALLY  UNIMPORTANT  MPAC  +2.  THEY  DIFFER  ONLY  IN 
WHERE  THEY  GET  THE  ANGLES,  AND  IN  METHOD  OF  CALLING. 


R0013  CDUTRIG  (AND  CDUTRIGI,  WHICH  CAN  BE  CALLED  IN  BASIC)  COMPUTE  THE 

R0014  SINES  AND  COSINES  FROM  THE  CURRENT  CONTENTS  OF  THE  CDU  REGISTERS. 

Pf»ni  q THF  r.r-NTFNTS  OF  CDUTIMP.  FTC..  ARF  NOT  TOUCHED  SO  T HAT  THEY  MAY 

R0016  CONTINUE  TC  FORM  A CONSISTENT  SET  WITH  THE  LATEST  PIPA  READINGS. 


R001  7 C DUTR-I  Gl-  I S LIKE  CDUTRIG  EX-CF  PIT  HAT  IT  C AN— BF  CALLED  IK  BASIC. 


ROO 18  CC*TR*GS  FINDS  CDU  VALUES  IN  CDUSPOT  RATHER  THAN  IN  CDUTFMP.  THIS 

_ ROO  19 ALLOW-S-  U-SERS  T □— MAKE — T-RAN S FOR  MAXLHNS— US  IMG  ARBITRARY  ANGLES,,  OR  -B-EAI 

R0020  ANGLES  IN  AN  ORDER  OTHER  THAN  X Y Z.  A CALL  TO  THIS  ROUTINE  IS 

R002I  NECESSARY  IN  PREPARATION  FOR  A CALL  TO  AX*SR*T  IN  EITHER  OF  ITS  TWO 

RO022 MODES — 1 SMILE — 08— NB-S M -)  . S-INCE  AX*S-R*T  FXPFCTS  TO  FIN D__XHE SXME S AND  - 

R0023  COSINES  IN  THE  ORDER  Y Z X THE  ANGLES  MUST  HAVE  BEEN  PLACED  IN  CDUSPOT 

R0024  IN  THIS  ORDER.  CD*TR*GS  NEED  NOT  BE  REPEATED  WHEN  AX*SR*T  IS  CALLED 

ROO  25 -M-O-R-E— ILfclAN  ONCE,-  PROVIDED  I HE  ANGLFS  UAVI  NOT-XJH-ANG  ED. NOTE  THAI  SINCE 

R0026  IT  CLOBBERS  BUF2  (IN  THE  SINE  AND  COSINE  ROUTINES)  CD*TR*GS  CANNOT  BE 
R0027  CALLEC  USING  BANKCALL.  SORRY. 


R0028  CD*TR*C-  IS  LIKE  CO*TR*GS  EXCEPT  THAT  IT  CAN  BE  CALLED  IN 

R0029  INTERPRETIVE. 


0030 

23, 3443 

77776 

1 

CDUTR  IG 

EXIT 

0031 

REF 

1 

23,3444 

0 3453 

0 

TC 

CDUTRIGS 

-0032 

REF  731 

_L  T 

124  9 

__23t  3445 

0 6036 

1 

TC 

I NTPPET 

0033 

23,3446 

77616 

0 

RVQ 

003-4 

? 7t  3 44.7 

77776 

1 

CD*TP*G 

-EXIT 

0035 

REF 

1 

23,3450 

0 3461 

1 

TC 

CO*TR*GS 

0036 

REF 

232 

LAST 

1254 

23,3451 

0 6036 

1 

TC 

I NT  P RET 

0037  _ 

23, 3452 

77616 

o 

RVQ 

0038 

REF 

17 

LAST 

945 

23, 3453 

3 00  32 

0 

CDUTR  IGS 

CA 

C DU  X 

-0039  - 

_RFF 

26- 

LAST 

9-6_5 

23, 3454 

54  772  l 

TS 

CDUSPOT  +4 

0040 

REF 

8 

LAST 

945 

23, 3455 

3 0033 

l 

CA 

CDUY 

0041 

REF 

27 

LAST 

1254 

23,3456 

54  766 

1 

TS 

CDUSPOT 
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0042 

REF 

11 

LAST 

945 

23, 3457 

3 0034 

0 

CA 

C DU  Z 

0043 

REF 

28 

LAST 

12  5 4 

23,  3460 

54  770 

0 

TS 

C DU  SPOT  +7 

0044 

23, 3461 

0 0006 

1 

CD*TR*GS 

FX  TEND 

0045 

REF 

26 

LAST 

92  1 

23, 3462 

22  142 

0 

OXCH 

TEM2 

OQ  4 A 

REF 

?4 

LAST 

107  2 

23, 3463 

3 4751 

0. 

CAF 

FOUR 

0047 

RFF 

22 

LAST 

10  4 2 

23,3464 

7 6241 

1 

TP*GL**P 

MASK 

SIX 

MAKE  IT 

EVEN  AND  SMALLER 

0048 

REF 

13 

LAST 

92  1 

23, 3465 

54  143 

0 

TS 

T EM  3 

0049 

REF 

14 

last 

125-5  _ 

- 23,-3  4l6  6 

50  143 

1 

INDEX 

TFM3 

0050 

REF 

29 

LAST 

1255 

23, 3467 

3 0766 

0 

CA 

C DU  SPOT 

0051 

REF 

7 18 

LAST 

12  3 2 

23, 3470 

52  155 

1 

DXCH 

MPAC 

STORING 

2'S  COMP  ANGLE,  LOADING  MPAC 

on 

RE  F 

-65 

last 

a06-8_ 

. 23,  3 47  1 

52.  127 

L 

DXXH 

VBJF  +4 

STORING 

MPAC  FOR  LATER  RESTORATION 

0053 

REF 

5 

LAST 

824 

23,  3472 

0 4713 

0 

TC 

USPPCADP 

0054 

REF 

13 

LAST 

58  1 

23,3473 

21465 

0 

CADR 

CDULOGIC 

23-,  3 474 

- 000 06  1 

EXTEND 

0056 

REF 

719 

LAST 

125  5 

23, 3475 

3 0155 

0 

DC  A 

MPAC 

0057 

REF 

15 

LAST 

1255 

23,3476 

50  143 

1 

INDEX 

TEM3 

005-C- 

-RF-F 

30 

LAST- 

.1253 

23,3- 477 

52  76-7 

-0 

DXCH 

CPUS  POT  _ _ 

STORING 

l'S  COMPLEMENT  ANGLE 

0059 

REF 

6 

LAST 

1255 

23,  3500 

0 4713 

0 

TC 

USPP  CADR 

0060 

REF 

2 

LAST 

100  8 

23,3501 

01517 

0 

CADR 

COSI NE 

- 0.0  6-1 

RFF  . 7.2.0 

-LAST 

1255 

23,  3502 

52  15.5- 

-1— 

DXCH 

MPAC 

0062 

REF 

16 

LAST 

1255 

23,  3 503 

50  143 

1 

INDFX 

TEM3 

0063 

REF 

4 

LAST 

116 

23,  3504 

52  745 

0 

DXCH 

COSCDU 

STORING 

COSINE 

00.64 

. 23,  3505 

.0  0006 

1 

EXTEND 

0065 

REF 

17 

LAST 

1255 

23, 3506 

5 0143 

1 

INDEX 

TEM3 

0066 

REF 

31 

LAST 

1255 

23,  3507 

3 0767 

1 

DC  A 

C DUS  POT 

LOADING 

l'S  COMPLEMENT  ANGLE 

- - 



7 

LAST 

12  5 5 

23, 3510 

0 4713- 

0 

TC 

JSPR  CADR 

0068 

REF 

2 

LAST 

1008 

23,3511 

01531 

1 

CADR 

SINE  +1 

SINE  +1 

EXPFCTS  ARGUMENT  IN  A AND  L 

0069 

REF 

66 

LAST 

12  5 5 

23,  3512 

52  127 

1 

DXCH 

VBJF  +4 

BRINGING 

, UP  PRIOR  MPAC  TO  BE  RESTORED 

Q-03D 

REF 

-7  21 

last: 

125  5 

. -23-,3-51  3- 

52-1-55- 

1 - 

DXCH 

HP  AC 

0071 

REF 

18 

LAST 

125  5 

23,3514 

50  143 

1 

INDEX 

TEM3 

0072 

REF 

4 

LAST 

116 

23,3515 

52  737 

0 

DXCH 

S INCDU 

0073 

REF- 

19 

LAST 

12  5 5 

23  f 3 51  6 

10  1 43 

0 

CCS 

TEH3 

0074 

REF 

i 

23,3517 

1 3464 

0 

TC  F 

TR*G  L**P 

0075 

REF 

27 

LAST 

1255 

23,3520 

0 0142 

0 

TC 

TEM2 

— GAP-: — 

L 

P0076 

R 0-0  78 

R0080 

R0082 

RQ084- 

R0086 

0090  - 

00901 

00902 
0091 

0092 

0093 

- .0094 

0095 

0096 
0097- 

0098 

0099 

- 0100  - 
0101 
0102 

0-1-03 

0104 

0105 
0106— 

0107 
01  08 

0-10-9— 

01091 
0110 
01 101- 
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^c#*#**#**##^#*#*******#*#3!**3!:*#*****  j{e  **j}:  ***  **  # $*:}:  aje  4=  * # £ £ $ if.  # * if  ifif  if  if  if  if  if  if  if  if  if  if  if  if  ififif 

QUICT-P-IG,- INTENDED  FOR  GUIDANCE  CYCLF  USE  WHERE  TIME  IS  CRITICAL,  J.S_A_MUCH  FAST FR  VFRSION  OF  C.DATR  *G.Su. 

QUICTRIG  COMPUTES  AND  STORES  THE  SINES  AND  COSINES  OF  THE  2'S  COMPLEMENT  ANGLES  AT  CDUSPOT,  CDUSPOT  +2, 

AND  CDUSPOT  +4.  UNLIKE  CD*TR*GS,  QUICTRIG  DOES  NOT  LFAVE  THE  l'S  COMPLEMENT  VERSIONS  OF  THE  ANGLES  IN 
COLS PCI.  - QI'T  CT  RI G ' S FXFrilTinN  X LME  TS  4.1  MS:  XU  LS  IS  10  TIMES  AS  FAST  AS  CD*TR*GS.  QUICTRIG  MAY  BE 

CALLED  FROM  INTERPRETIVE  AS  AN  RTB  OP-CODE.  OR  FROM  BASIC  VIA  BANKCALL  OR  IBNKCALL. 


23 1 3 52  1 

0 0004 

0 

QUICTRIG 

INHINT 

TNHINT  STNCF  nAP  IISFS  THF  SAM  F 

TFMPS 

23,3522 

0 0006 

1 

EXTEND 

REF 

38 

LAST 

90  2 

23, 3523 

22  061 

0 

QXCH 

I TEMPI 

REF 

23 

LAST 

125.5 

. 23, 3524 

3 4 751- 

0 

CAF 

FOUR 

REF 

23 

LAST 

1255 

23,3525 

7 6241 

1 

+ 4 

MASK 

SIX 

REF 

14 

LAST 

902 

23, 3526 

54  062 

1 

TS 

ITEMP2 

REF 

L 5 

_L  AS  T 

12  5 6 

73, 3577 

50.0.62- 

0 - 

INDEX 

I TEMP2 

REF 

32 

LAST 

12  5 5 

23, 3530 

3 0766 

0 

CA 

CDUS  POT 

REF 

5 

LAST 

6 1 3 

23,3531 

0 5033 

1 

TC 

SPSI  N 

23, 3532 

-_0  0004 

1 

EXTEND 

REF 

75 

L AST 

1127 

23, 3533 

7 4736 

0 

MP 

BIT14 

SCALE  DOWN  TO  MATCH  INTERPRETER 

OUTPUTS 

REF 

16 

LAST 

1256 

23, 3534 

50  062 

0 

INDEX 

1 TEMP2 

REF 

_ 5 

LAST 

12  5 5 

23,353  5 

52  737 

0 

DXCK 

S1NC  DU 

REF 

17 

LAST 

1256 

23, 3536 

50  062 

0 

INDEX 

ITFMP2 

REF 

33 

LAST 

12  5 6 

23,3537 

3 0766 

0 

CA 

CDUSPOT 

_ -REF- 

5 

LAST 

-61-3  _ 

-23,3  540 

0 .5032.  0 

TC 

SPCF  S 

23, 3541 

0 0006 

1 

EXTEND 

RFF 

76 

LAST 

1256 

23,3542 

7 4736 

0 

MP 

BIT]  4 

-REF- 

18— 

-L  ASX 

12  5-6 

23,3543 

50  067 

0 

INDEX 

ITFMP2 

REF 

5 

LAST 

12  5 5 

23, 3544 

52  745 

0 

DXCH 

COSCDU 

REF 

19 

LAST 

1256 

23, 3545 

10  062 

1 

CCS 

ITEMP2 

- -RFF- 

_5  - 

LAST 

-9.1  1 

-23,  3 546- 

1 3525 

1 

TCF 

-QUICTRIG  +4 

REF 

39 

LAST 

1256 

23, 3547 

3 0061 

0 

CA 

I TEMPI 

23,3550 

0 0003 

1 

RELINT 

- P.F-F  3 82 

— LAST- 

12X5  . 

23, 3.551 

0 0000 

_J 

TC 

A 
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L POWERED  FLIGHT  SUBROUTINES 


USER'  S PAGE  NO.  A EO  S3 


ROlll 


#**#«**$**  $***<!*  $*****  $ ** ******4 ***********  ***£********  W**  *********  **  ****************  ****  *ii**»^*»«»ts**#* 


R0113  TFESE  INTERFACE  ROUTINES  MAKE  IT  POSSIBLE  TO  CALL  AX*SR*T,  ETC.,  IN 

R0114  INTERPRETIVE.  LATER,  WHERE  POSSIBLE,  THEY  WILL  BE  ELIMINATED. 


RO 1 27  THESE  INTERFACE  ROUTINES  ARE  PERMANENT.  ALL  RESTORE  USER’S  F3ANK 

RO 1 28  SFTTING.  ALL  ARE  STRICT  INTERPRETIVE  SUBROUTINES,  CALLED  USING  "CALL”, 

-R  01-2-9 RETURNING  VI A QP  RET. ALL  EXPECT  AND  RETURN  THE  VECTOR  TO  BE  TRANSFOR- 

R0130  MED  INTERPRETER-STYLE  IN  MPAC : COMPONENTS  AT  MPAC,  MPAC  +3,  AND  MPAC  +5. 


R 0 1 3 1 

R 0 1 32 
R0133 
R 013-4- 


T-RG-*6MAIB AND — T-R-GiNTTSM — BOXH— EXPECT — TO — SEE-  THE  2 1 S XO-MP LE  M FNT  ANGLES 

AT  CDU  SPOT  (ORDER  Y Z X,  AT  CDUSPOT,  CDUSPOT  +2,  AND  CDUSPOT  +4;  ODD 
LOCATIONS  NEED  NOT  BE  ZEROED).  TRG*NBSM  DOES  THE  NB  TO  SM  TRANSFOR- 
MATTON;  TRGASMNR  , V-LCE VERSA . 


RO  1 35  COU*NBSM  DOES  ITS  TRANSFORMATION  USING  THE  PRESENT  CONTENTS  OF 

RQ 136 THF  CPU  COUNTERS. nTHFRWISF  IT  IS  I IKE  TRG*N BSM. 


RO 1 36 1 CDU*  SMNB  IS  THE  COMPLEMENT  OF  COU*NBSM. 


01362 

01363 

- - G 1 364- 

REF 

REE 

2 

1 

LAST 

1254 

23. 3552 

23. 3553 

23.3554 

77776 

0 3453 

1 3557 

1 

0 

1 

CDU*SMNB 

EX  IT 

TC 

TCF 

CDUTP  IGS 
C*MM*N1 

0137 

23,  3555 

77776 

1 

TRG*SMNB 

EXIT 

0136 

REF 

? 

-LAST 

42  54 

2 3 , 3-5  5-6 

0 34-61 

4 

TC 

C_D*T  P*GS 

0139 

REF 

4 

LAST 

1065 

23,3557 

0 7531 

i 

C*MM*N 1 

TC 

MPAC  VBUF 

A X*  SR  *T  EXPECTS  VECTOR  IN  VBUF 

0140 

REF 

32 

LAST 

1094 

23, 3560 

4 6244 

i 

cs 

THREE 

SIGNAL  FOR  SM  TO  NB  TRANSFORMATION 

-01-44 

REF 

2 

L-AS  T- 

-61-2 

23 » 3-564 

-0  -360-1 

0 

C*MM*N2- 

TC 

^X*SR*T 

0142 

REF 

233 

LAST 

1254 

23,3562 

0 6036 

i 

TC 

INTPRET 

0143 

23, 3563 

43575 

i 

VLOAD 

RVO 

0144 

-REF 

_67 

LAST 

1255 

23,3564 

. 00123 

VBUF 

0145 

23, 3565 

77776 

i 

CDU*NRSM 

EXIT 

0-146- 

—REF-  _ 

3 

LAST  12  5 7 

23,3566- 

0 -34  53 

0 

TC 

C OUT  RIGS 

0147 

REF 

1 

23, 3567 

1 3572 

0 

TCF 

C*MM*N3 

0148 

23,  3-570 

77776 

1 

TRG*N3S^ 

EX  IT 

0149 

REF 

3 

LAST 

12  5 7 

23,3571 

0 3461 

1 

TC 

CD*TR*GS 

0150 

REF 

5 

LAST 

1257 

23,3572 

0 7531 

1 

C*MM*N3 

TC 

MPAC  VBUF 

FOR  AX*SR*T 

0151 

-REF 

J3 

LASTS 

125  7 

23, 3573 

3 6-244 

0 

_CA 

three 

SIGNAL  FOR  NB  TO  SM  TRANSFORMATION 

0152 

REF 

1 

23,3574 

1 3561 

1 

TCF 

C*MM*N2 

R01 53  *NBSM*--AND  *SMNB*  EXPECT  TO  SEE  T-HE  SINES  AND  COSINES  (AT  SLN.CDU 

R 0 1 54  AND  CCSCDU)  RATHER  THAN  THE  ANGLES  THEMSELVES.  OTHERWISE  THEY  ARE 
RO 1 55  LIKE  TRG*NBS  M AND  TRG*SMNB. 

R0156  NOTE  THAT  JUST  AS  CD*TR*GS  NEED  BE  CALLED  ONLY  ONCE  FOR  EACH  SERIES 

R0157  OF  TRANSFORMATIONS  USING  THE  SAME  ANGLES,  SO  TOO  ONLY  ONE  OF  TRG*N3SM 
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L POWERED  FLIGHT  SUBROUTINES 


r 01 58  AND  T RG*  SMNR  NEED  BE  CALLED  FOR  EACH  SERIES.  FOR  SUBSEQUENT  TRANSFOR- 
R0159  MAT  IONS  USE  *N3SM*  AND  *SMNB*. 

0160  23* 3575  77776  1 *SMNB*  EXIT 

0161  REF  2 LAST  1257  23,3576  1 3557  1 TCF  C*MM*N1 


0162 

0163  REF 


23,3577  77776  1 *NBSM*  EXIT 

LAST  1257  23,3600  1 3572  0 TCF  C*MM*N3 


R0166 

R0165 

RO 166 

R0167 
RO  1 68 

RO 169 

R0170 


AX*SR*T  COMBINES  THE  OLD  SMNB  AND  NBSM.  FOR  THE  NB  TO  SM 
TRANSFORMATION,  ENTER  WITH  +3  IN  A.  FOR  SM  TO  NB,  ENTER  WITH  -3. 

THF  VFnriR  TO  RF  TRANS  FOR  MFO-ARR  I V ES  . AALD_I  S RETURNED.  IN  VBUF. 

AX*  SR*T  EXPECTS  TO  FIND  THE  SINES  AND  COSINES  OF  THE  ANGLES  OF  POTATION 
AT  SINCDU  AND  COSCOU,  IN  THE  ORDER  Y Z X.  A CALL  TO  CD*TR*GS,  WITH 
THE  2JLS  C n MP 1 FMFNT  ANGLES— t ORQER  Y 11)  AT  CDUSPOT.  WILL  TAKE  CARE  OF 
THIS.  HERE  IS  A SAMPLE  CALLING  SEQUENCE:- 


-R  017-1 XC CDUTRIGS 

RO 1 72  CS  THREE  ( "CA  THREE"  FOR  NBSM) 

R 01 73  TC  AX*SR*T 


USER'S  PAGE  NO.  5 


EO  S3 


RO 1 76  THE  CALL  TO  CD*TR*GS  NEED  NOT  BE  REPEATED,  WHEN  AX*SR*T  IS  CALLED  MORE 
RO 1 75  THAN  ONCE,  UNLESS  THE  ANGLES  HAVE  CHANGED. 


RO  1 76 

A X*S  P*  T IS  GUARANTEED  SAFE  ONLY 

FOR 

VECTORS 

OF  MAGNITUDE  LESS  THAN 

R0177 

UNITY. 

A LOOK  AT  THE  CASE 

IN  WHICH 

A 

VECTOR  OF 

GREATER  MAGNITUDE 

R 01 78  - 

HAPPF-NS  TO  LIE  ALONG- 

_ ALL  AX  LS 

OF  THE 

SYSTEM  TO  WHICH  IT 

IS  TO  BE  TRANS- 

R0179 

FORMED  CONVINCES  ONE 

THAT  THIS  IS  A 

RESTRICTION 

WHICH  MUST  BE  ACCEPTED. 

- 0 4-80 

R-FF 

2 

| a rt  -4  2 5 4 - - 

- 2 4,  4A0T 

5-4  1 42 

1 

AX*  SF*T 

TS 

DEX-OEX 

WHFRF  TT  RFmMF5  THF  T N DF  X DF  TNDFXFS 

0181 

23,3602 

0 0006 

1 

EXTEND 

0182 

REF 

i 

23, 3603 

22  165 

1 

QXCH 

RTNS  AVER 

0183 

REF 

3 

LAST  1258 

23,3606 

10  162 

1 

R*7L**p 

CCS 

DEXDEX 

+ 3 — > 0 -3  — > 2 

0186 

REF 

6 

LAST  1258 

23,3605 

6 0162 

1 

CS 

DEXDEX 

THUS:  +2  — > 1 -2  — > 1 

-111-85- 

R-EF 

LASI  125  7 

23U-3  6Q-6 

6 6 2 44 

0 

AD 

THRE  F 

+ 1 — > 2 -1  — > 0 

0186 

23, 3607 

0 0006 

1 

EXTEND 

0187 

REF 

383 

LAST  1256 

23,3610 

5 0000 

1 

INDEX 

A 

- -0X88  _ 

R-E-F 

L 

23,  3611 

3 3670 

0 

dca 

I NDEXI 

0189 

REF 

1 

23, 3612 

52  166 

1 

DXCH 

DEXI 

-0-1-9-0 

- itE-F 

12a 

LAST  L2L6 

24, 451 4 

3 4353 

1 

CA 

nNF 

0191 

REF 

163 

LAST  1110 

23, 3616 

56  130 

1 

TS 

8UF 

0192 

23,3615 

0 0006 

1 

EXTEND 

0193- 

REF 

2 LAST  XX  6 

23, 3616 

5 0163 

1 

INDFX 

DEX  1 

0196 

REF 

68 

LAST  1257 

23,3617 

6 0123 

0 

DCS 

VBUF 

0195 

REF 

1 

23,3620 

1 3622 

0 

TCF 

LOOP  1 

REALLY  BE  A SUBTRACT,  AND  VICE  VERSA 

0196 

REF 

166 

LAST  1258 

23,3621 

52  131 

0 

LOOP  2 

DXCH 

BUF 

LOADING  VECTOR  COMPONENT,  STORING  INDEX 

GAP  : 
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0197 

REF 

722 

LAST 

1255 

23,3622 

52  155 

1 LOOP  1 

DXCH 

MPAC 

0198 

REF 

1 

23, 3623 

3 3666 

1 

CA 

SINE  SLOC 

t 

1 2 5 ft 

23,  3-624- 

6 0143 

1 

An 

.3 1 X I _ 

0200 

REF 

81 

LAST 

107  1 

23,3625 

54  1 16 

0 

TS 

ADDPWD 

10  8-0  - 
1258 

0 7 1 06 

l _ 

T-C 

Q-RE-S-Ua 

Mill  TIPI  Y RY  S IN  (CnilANG!  F) 

0202 

REF 

5 

LAST 

23, 3627 

10  142 

1 

CCS 

DEXDEX 

0203 

REF 

723 

LAST 

1259 

23,3630 

52  155 

1 

DXCH 

M PA  C 

NBSM  CASE 

_23, 3631 

1 36  34 

1 

TC  E_ 

+ 3 . 

0205 

23,3632 

0 0006 

1 

EXTEND 

SMNB  CASE 

0206 

REF 

724 

LAST 

1259 

23, 3633 

4 0155 

1 

DCS 

MPAC 

n?07 

REF 

1 

_23j  3 634 

52  160 

JL _ 

DXCH 

TERM1TMP 

0208 

REF 

24 

LAST 

1256 

23,3635 

3 6241 

0 

CA 

SIX 

SINCDU  AND  CDSCDU  (EACH  6 WORDS)  MUST 

n?  no 

RE  F 

82 

LAST 

12  5 9 

23,3636 

.26  116_0 

A.DS 

ADDRWD  _ 

8E  CONSECUTIVE  AND  IN  THAT 

ORDER 

0210 

23,3637 

0 0006 

1 

EXTEND 

OFF  UR 

] J\ST 

125  8 

23 , 3-643 

5 01  30 

0 

INDEX 

BIJF  _ __ 

02  12 

REF 

4 

LAST 

1259 

23, 3641 

5 0143 

1 

INDEX 

DEX  1 

0213 

REF 

69 

LAST 

1258 

23, 3642 

3 0123 

1 

DCA 

VBUF 

R-FF 

7 2 5_ 

1 -AST 

12  5 9 

2 3 , 3643 

5?  155 

1 

DXCH 

M PA  C _ 

0215 

REF 

22 

LAST 

1259 

23, 3644 

0 7106 

1 

TC 

DMPSUB 

MULTIPLY  BY  COS ( C DU ANGL E ) 

0216 

REF 

726 

LAST 

1259 

23,3645 

52  155 

1 

DXCH 

M PA  C 

0217 

REF  - 

? 

LAS  L 

125  9 

73, 3646 

20  -L60 

1 

DAS 

TFRM1 TMP 

0218 

REF 

3 

LAST 

1259 

23, 3647 

52  160 

1 

DXCH 

TERM  LTMP 

0219 

23,3650 

20  001 

1 

ODOUBL 

0220 

FLEE 

146 

LASX 

125  9 

23  ,3  651 

5 0 13.0 

0 

INDEX 

RUF 

0221 

REF 

5 

LAST 

1259 

23,3652 

50  143 

1 

INDEX 

DEXI 

0222 

REF 

70 

LAST 

1259 

23,3653 

52  123 

0 

DXCH 

VBUF 

_ - —0223 

R-Ef 

1 4 7- 

LAST  125  9 . 

73,3654 

52  1 31 

0 

-Q.XJ1B 

BUR 

LOADING  INDEX,  STORING  VECTOR 

COMPONENT 

0224 

REF 

384 

LAST 

1258 

23, 3655 

10  000 

0 

CCS 

A 

'CAUSE  THAT'S  WHERE  THE  INDEX 

NOW  IS 

022-5 

R-EF- 

-1 

23  ,3-6  56 

1 362X 

0 

TC  F 

mop 2 

0226 

23,3657 

0 0006 

1 

EXTEND 

0227 R-EF 6 LAST  12  5-9 23,3660-  -26  1 42  I _ DIM  DFXDFX DECREMENT  MAGNITUDE  PRESERVING  SIGN 


0228 

REF 

7 

LAST 

1259 

23,3661 

10  142 

1 

TSTPOINT  CCS 

DEXDEX 

ONLY  THE  BRANCHING  FUNCTION  IS  USED 

— 0229 

R-F  F - 

-l 

2 3*3-662 

1 36  04 

I 

TC  F 

p *T  L**p 

0230 

REF 

2 

LAST 

1258 

23,3663 

0 0145 

1 

TC 

RTNS  AVER 

0231 

REF 

2 

LAST 

1259 

23, 3664 

1 3604 

1 

TC  F 

r*TL**P 

0232 R££ 3 LAST  12  T9 23-,3-6-6.5 0 0145  1 IC RTNS  AVFR 


-0233 REE 

4> L AST  1-2  5-6- 

23, 3666 

007  36 

-0 

S IN-ESLDC  ADRL-S 

S IiNIC  DU 

FDR  USF  IN 

SFTT  INC 

A ODR  WD 

02-34 

23-,  3 6 6-7 

- 00Q04 

o 

INCLEXJL  __DE-C 

DDN  1 T 

0235 

23,3670 

000  02 

0 

DEC 

2 

TOUCH 

0236 

23,3671 

00000 

1 

DEC 

0 

THESE 
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USER' S 

PAGE  NO. 

7 EO  S3 

23,3672 

00004  0 

DEC 

4 

****  ****;!£* 

CONSTANTS 

P 02  38 
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L 

POWERED  FLIGHT 

SUBROUT INES 

USER'S  PAGE  NO.  8 EO  S3 

P0240 

THIS 

SU8R0UT INE  COMPUTES  INCREMENTAL 

CHANGES 

IN 

CDU(GIMBAL)  ANGLES  FROM  INCREMENTAL  CHANGES  ABOUT  SM  AXES.  IT 

R0242 

RFCUIRES  SM  INCREMENTS  4S  A DP 

VECTOR 

SCALED 

AT 

ONE  PEVOLUTI  ON  (D  THETASM  , + +4)  . S I N , CO  S 1 CDUY  , Z ,X  ) ARE  IN 

m i . + ? . +4  AMn  rn<;r  nil . +■  ? . +4 

R.ELSPECT  IVELY.,  SCALFO  TO  OII£  HALE.  C DU  INCRIFNTS  ARF  PLACED  IN  DCDU, + 2, +4  SCALFO  TP 

R0246 

ONE 

REVOLUTION 

• 

* rncnr.A  KprjM/iA  ] 

_Q 

■STNf  THA  ISFf.I  MfiA  ) 

R 0248 

* 

R0249 

* -COS ( IGA  ) T AN ( MG A ) 

1 

S I N ( IGA)  TAM  MGA  ) * 

R02  5D 

* _ _ 

* 

R0251 

* 

SIN(IGA) 

0 

CO  S ( IGA)  * 

1 4 4 "3711 

BA-NK 

1 4 - 

0253 

REF 

1 

23,2000 

SETLOC 

POWF  LITl 

0254 

23,3673 

BANK 

23,3673 

413  45 

G SMC  DURE  S 

DLOAD 

OMP 

0256 

REF 

1 

23,3674 

01265 

1 

DTHETASM 

0257 

REF 

6 LAST 

946 

23,3675 

00745 

1 

COSCDUY 

0258 

23, 3676 

41325 

0 

PDDL 

DMP 

0259 

REF 

2 LAST 

126  1 

23, 3677 

01271 

1 

DTHETASM  +4 

0260 

R E F 

6 LAST 

946 

23,3  700 

00737 

1 _ 

S1NC  DUY 

0261 

23,3701 

77621 

1 

BDSU 

0 262 

23,  3 702 

776  71 

1 . 

ODV 

0263 

REF 

10  LAST 

946 

23,3703 

00747 

0 

COSCDUZ 

0264 

REF 

1 

23,3704 

03234 

1 

STORE 

DCDU 

0265 

23, 3705 

72405 

0 

DM  P 

SL1  SCALE 

0266 

REF 

8 LAST 

945 

23,3706 

00741 

0 

SINCDU7. 

02  67 23-.3-7Q7 ZZ62I I BDSU 


0268 

REF 

3 

LAST 

126  1 

23, 3710 

01267 

0 

DTHETASM 

+ 2 

02  69 

REF 

? 

_J  AST 

12  6 1 

_ ?3 , 3 7 1 1 

17236 

_o 

STQDL 

TCDU  +2 

0270 

REF 

4 

LAST 

126  1 

23, 3712 

01265 

1 

DTHF TASM 

02  71 

23,3713 

65?  05 

o 

DM  P 

p pn  | 

0272 

REF 

7 

LAST 

126  1 

23  j 3 714 

00737 

1 

S INCDUY 

0273 

REF 

5 

LAST 

126  1 

23,3715 

01271 

1 

D T HE TASM 

+ 4 

02  74 

23, 3716 

43205 

1 

OMP 

DAD 

0275 

RFF 

7 

LAST 

126  1 

23,3717 

00745 

1 

COSC  DUY 

-027-6- 

23.3720 

77752 

1 

SLl 

0277 

REF 

3 

LAST 

126  l 

23,3721 

03240 

1 

STORE 

DCDU  +4 

0278 

23,3722 

77616 

0 

RVO 
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R0001  the  tff  subroutines  may  be  used  in  either  earth  op  moon  centered  coordinates,  thf  tff  routinfs  never 

R0003  KNOW  WHICH  ORIGIN  APPLIES.  IT  IS  THE  USER  WHO  KNOWS,  AND  WHO  SUPPLIES  RONF,  VONF  AND  l/SQRTIMU)  AT  THE 
-R0Q05 ATM?RGPR44LFE — SGAL E LEVEL  FOR  THF  P R QILEB — BJLLM-ARY — BOGY-. 


R0006 

EARTH  ORIGIN 

POSITION 
_ VELOCITY 

-29 

-7 

METERS 

MFTF  RS/CFNTISFCOND  _ 

R0009 

l/SQRTIMU) 

+ 17 

SORTICS  SQ/METERS  CUBED) 

MCTIN  HR  T HIM 

POSITION 

-2  7 

YLEXE  RS 

R 00 1 2 

VELOCITY 

-5 

METE  RS/C ENT I SECONDS 

R0014 

l/SQRTIMU) 

+ 14 

SORT  ICS  SQ/METERS  CUBED) 

R0016  ALL  DATA  PPOVIDEO  TO  AND  RECEIVED  FROM  ANY  TFF  SUBROUTINE  WILL  BE  AT  ONE  OF  THE  LEVELS  ABOVE.  IN  ALL  CASES, 

R0018  THE  FREE  FALL  TIME  IS  RETURNED  IN  CENTISECONDS  AT  (-28).  -PROGRAM  TFF/CONIC  WILL  GENERATE  VONE/RTMU  AND 

R 0020 LEAVE  IT  IN  vnNF«  AT  ( + 1 0 ) IF  EARTH  OR IGIN  AND  (+9 ) IF  MOON  OR  I G I N . 


R0021  THE  USER  MUST  STORE  THE  STATE  VECTOR  IN  RONE,  VONE  AND  MU  IN  THE  FORM  l/SQRTIMU)  IN  TFF/RTMU 

R0023  AT  THE  PROPER  SCALE  BEFORE  CALLING  TFF/CONIC.  SINCE  RONF,  VONF  ARE  IN  THE  EXTENDED  VERB  STORAGE  AREA, 

pnn?F  THF  1 1 S F R MUST  Also  I TICK  OUT  THE  EXTENDED  VERBS.  _ AND  RELEASE  THEM  WHEN  FINISHED. 


R0027 
R0029 
- R 00  3 1 

PROGRAMS  CALC/TFF 

RADIUS.  THIS  RESTRICTION  CAN  BE 

AND  CALC/TPER 
REMOVED  BY  A 15 

ASSUME  THAT 
W CODING  CH 

THE  TERMINAL  RADIUS  IS  LESS  THAN  THE  PRESENT 
ANC-E,  BUT  AT  PRESENT  IT  IS  NOT  DEEMED  NECESSARY. 

R0032 

R0034 

THE 

FOL LOWING 

ERASABLE 

QUANTITIES  ARE  USED  BY 

THF  TFF  ROUTINES,  AND  ARE  LOCATED 

IN  THE  PUSH  LIST. 

A0035 

BELOW  F:  is  USED  FOR 

EARTH 

ORIGIN  SCALE 

A0036 

M:  IS  USED  FOR  1 

MOON 

ORIGIN  SCALE 

A0037 

TFFSW 

= 

1 19D 

BIT1  0 = CALCTFF 

1 = 

CALCTPER 

0038 

0012 

TFFDELQ 

= 

1 OD 

Q2-Q1 

E : 

(-16)  M:  (- 

15  ) 

0039 

0014 

RMAG1 

- 

1 2D 

ABVALIRN)  M 

E: 

(-29)  M : ( - 

27  ) 

A0040 

R PE  R 

= 

1 4D 

PERIGFE  RADIUS  M 

E: 

(-29)  M:  (- 

27  ) 

0041 

0016 

TFFQ1 

= 

14D 

R.V  / SORT ( MUE ) 

E: 

(-16)  M:  (- 

15  ) 

A0042 

SD-ELF/2 

SINITHETA)  /? 

0043 

0016 

CDELF/2 

= 

14D 

COSITHETA)  / 2 

A0044 

RAPO 

= 

1 6D 

APOGEE  RADIUS  M 

E: 

(-29)  M:  (- 

27) 

- 00A  -5 

n n?n 

NRTFRM 

- 

1 60 

TERMINAI  RADIUS  M 

E : 

( — 29+NR ) 

A0046 

M: 

(-27+NR ) 

0047 

0022 

RTFRM 

= 

18D 

TERMINAL  RADIUS  M 

E: 

(-29)  M : ( - 

27) 

00-48  - 

- - 0 024  . _ 

TFFVSQ 

2 0JL 

-IV  SQUARED/MU) 

l /M 

F:  (20)  M: 

(18) 

0049 

0026 

TFF1/ALF 

= 

2 2D 

SEMI  MAJ  AXIS  M 

E:  I 

-22-2  NA) 

A0050 

M:  ( 

-20-2  NA) 

00-5-1- 

0 03-0 

TFFRTALF 

- 

243 

SORT  I ALFA ) F:  (10+NA) 

M:  (9+NA) 

0052 

0032 

TFF ALFA 

2 6 D 

ALFA  1/M  F:  (26-NR) 

M:  ( 24-NR ) 

0053 

0034 

TFFNP 

= 

28D 

SEMI  LATUS  RECTUM 

M 

E:  (-38+2  NR) 

. A 00 54 

M:  (-36+2  NR) 

0055 

0036 

TFF/RTMU 

= 

30D 

1 /SORT I MU ) 

E : 

( 17 ) M:  (14) 

0056 

0040 

NRMAG 

= 

32  D 

PRESENT  RADIUS  M 

E: 

( -29+NR ) 

- _ A 00 5 7 

M: 

(-27+NR ) 

0058 

0 042 

TFFX 

= 

34D 

0059 

0 044 

TFFTEM 

= 

36D 

TEMPORARY 

— GAP-s — 
L 

-ASSE  KBL-E--REV  IS  ION  069 
TIME  GF  FREE  FALL 

nr  /\GC  ppQT.pAM  -LUMJNADY  pv  MA^A  ?_0  7 1 1 1 ? - QJ  1 - - 1 Q:OP MOV.  7S.]QAR  SKfPPFR  ,.070  PAOF  1 

USER'S  P AGF  NO.  2 EO  S3 

A0060 

A0061 

REGISTERS  SI,  S2  ARE  UMTOUCHFD  BY  ANY  TFF  SUBROUTINE 

INDEX  REGISTERS  XI,  X2  ARE  USED  BY  ALL  TFF  SUBROUTINES.  THEY  ARE  EST AB- 
1 I S HE  n IN  TFF/r.ONTr.  AND  MUST  BE  PRF  SERVED  BETWEEN  CALLS  TO  SUBSEQUENT 

A0063 
A0064 
-AO  Q-6S- 

SUBROUTINES . 

-NR  CIXII  = NORM  COUNT  OF  R MAG 

-NA  C(X2)=  NORM  COUNT  OF  SORT  ( ABS  ( ALFA  ) ) 

GAP:  ASSEMBLE  REVISION  069  --OE— A-Gr  PRnnHA-M-LUMJ-MAa^.  BY  NAS  A.  .20  21 L 12- 01 1 -1-9:07  NOV.  78,1968 SKIPPER  .070 P-AGE  1764 

L TIME  CF  FREE  FALL  USER'S  PAGE  NO.  3 EO  S3 


P0066 


-R0067 SU&R-8 U T I N E-N  A M-i4-  TFFCONIC 

R 0069  MOD  NO:  0 

R0071  MOD  BY:  RR  BAIRNSFATHER 

-ROO-7-2 MOD-NC-i 1 MOD. 


-DATE-: 


Q..U  7 9.-67 


LOG  SECTION: 


TIME  OF  FREE  pALL 


BY:  RR  BAIRNSFATHER 


JOAiEJ 


1 J APR  67 


R0073 
R0075 
R 00-77 
R0079 
R0081 
ROO&7 


MOD  NC:  2 MOO  BY:  RR  BAIRNSFATHER  DATE:  21  NOV  67  ADO  MOON  MU. 

MOD  no:  3 MOO  BY:  RR  BAIRNSFATHER  DATE:  21  MAR  68  ACCEPT  DIFFERENT  EARTH/MOON  SCALES 

FUNCTIONAI  O F S CR  T PTT  flN : ___  THTS  SUBROUTINE  IS  CALLED  TO  COmJIE_THOSE_CONIC  PARAMETERS  RFQUIRED  BY  THE  TFF 

SUBROUTINES  AND  TO  ESTABLISH  THEM  IN  THE  PUSH  LIST  AREA.  THE  PARAMETERS  ARE  LISTED  UNDER  OUTPUT. 

THE  EQUATIONS  ARE 


R0083 

R0085 

R0086 

R0088 

R0089 


H = R N*V  N 

-L-CP  - H-.H-  / — I4U 

ALFA  = 2/RN  - VN.VN  / MU 


ANGULAR  MOMENTUM 
SFMI  I A TUS  RECTUM 


RECIPROCAL  SEMI  MAJ  AXIS,  SIGNED 


R0091 
R0092 
R 00-93 

AND  ALFA  IS  POS  FOR  ELLIPTIC  ORBITS 
0 FOR  PARABOLIC  ORBITS 

. NFG  FOR  HYPERBOLIC  ORBITS.  

R 0094 
R0095 
R00Q6 

CALLING 

SLBROUTINE  ALSO  COMPUTES  AND  SAVES  R M AG. 

SEQUENCE : 

TFFCONIC  EXPECTS  CALLER  TO  ENTER  WITH  CORRECT  GRAVITATIONAL 

CONSTANT 

IN  M P A C i 

, IN  THE  FORM 

R 0098 
ROIOO 
R 0 1-02 

l/SQRTIMU).  PROGRAM  WILL  SAVE  IN  TFF/RTMU  . THE  SCALE  IS  DETERMINED  BY  WHETHER  EARTH  OR  MOON 
ORIGIN  IS  USED.  THE  CALLER  MUST  LOCK  OUT  THE  EXTENDED  VERBS  BEFORE  PROVIDING  STATE  VECTOR  IN  RONE, 
VDNF  AT  PROPER  SCALF.  THE  EXTFNDED  VERBS  MUST  BE  F ESTORED  WHEN  THE  CALLER  IS  FINISHED  USING  THE 

R0104 
R0105 
R 01-07  - 

TFF  ROUTINES. 

ENTRY  POINT  TFFCONMU  EXPECTS  THAT  TFF/RTMU  IS  ALREADY  LOAOED. 
to  RPFFrFv  Mil;  01  ClAn  CAI  1 IF  MU  ALRFADY  STORED: 

CALL 

R0109 
R0111 
R-0 1 1-2- 

YOURMU  1/RTMU  E:  (17)  M: 

TFFCONIC 

PI  IS  HI  DC,  = ,P_D1  +n  . ARBITRARY  IF  1 FO  1 RD 

(14) 

TFFCONMU 

R0113 
R01 14  - 

SUBROUTINES  CALLED:  NONE 

JM P RMAI  EXIT  MOnFS:  RVO 

R 0 1 1 5 
R0I16 
R0117- 

ALARMS: 

OUTPUT: 

NCNE 

THE  FOLLOWING  ARE  STORED  IN  THE  PUSH  LIST  AREA. 

R-MAG1  F:I-79)  Mil-771  M RN.  PRESENT  RADIUS  IFNGTH. 

R0118 
R0119 
R 0L20  _ - 

NRMAG  E:  (-29+NR)  M RMAG,  NORMALIZED 

M:  (-27+NR) 

XI  -NR.  NORM  COUNT 

R0121 

TFFNP  E 

: (-38+2  NR ) 

M LCP 

, SEMI  LATUS  RECTUM,  WEIGHTED  BY  NR. 

FOP 

VGAMCALC 

R0123 

M 

: ( -36+2  NR ) 

R.012A 

TFF/RTMU 

E : ( 1 7 ) M : 

(14) 

l/SQRTIMU) 

R0I25 

TFFVSQ  E 

: ( 20 ) M : ( L 8 ) 1/M 

-(V  SQ/MU):  PRESENT  V E LOC I TY , NO RML I ZE D. 

FOR 

VGAMCALC 

RO  127 

TFFALFA 

E:  ( 26-NR ) 

1/M 

ALFA,  WEIGHTED  BY  NR 

RO 12-8  _ 

M : ( 74-NR ) 

R0129 
R 01 30 

TFFRTALF 

E:  QO+NA) 
M:  (9+NA) 

SORT ( ALFA ) , NORMALIZED 

-GAP  - -A-SSE  MBL  E RFV-IS-IQN  069  DF  A-GC-  PROGRAM  LUMINARY  -BY  NASA  2 0 21  1 1 2— 011- 
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R0131 

R0132 

X 2 -NA,  NORM  COUNT 

TFF1/ALF  E:  (-22-2NA)  SIGNED  SEMI  MAJ  AXIS,  WEIGHTED  BY  NA 
M:  ( -2 0-2 NA)  — 

RO  L 34 
R0135 

PUSHLOC  AT  PDL  + O 

THE  FOLLOWING  IS  STORED  IN  GENERAL  ERASARLE 

vnwF  • F : M 0 1 M:  19)  . V7RT  ( MU  ) NORMALIZED^  V-ELQC.I  T Y _ 

R0137 
R01  38 
R01  4X) 

ERASABLE 

INITIALIZATION  REQUIRED: 

RCNE  E : ( -29 ) M: ( -27  > M 

VDNF  E : I — 7 I M:  [-51  M/C_S  .. 

STATE  VECTOR 
..STATE  VFCTOR 

LEFT  BY  CALLER 
LEFT  BY  CALLER 

R0142 
R0144 
R-01  45— 

DEBRIS: 

TFF/RTMU  E : ( 17  ) M: 
QPRET , PDL+O  ... 

(14) 
PDL  + 3 

l/RTICS  SQ/M  CUBE) 

IF  ENTER  VIA 

TFFCONMU. 

_ m 4A 

33-,  3 7-55 

BANK— 

33 

0147 

0148 

REF 

1 

27, 2000 
27,3332 

SETLOC 

BANK 

TOF-FF 

0149 

REF 

2 

LAST  61  TO  61: 

2 

2* 

COUNT  7 

St/TFF 

m so 

-R-PO 

4 

1 AST  72  5 27,  3332 

00037 

a 

tfeCQNTC  STDRF 

TFF/RTMU 

1 /SORT  ( MIJ ) 

E:  ( 17  ) M:  (14) 

0151 

27, 3333 

53575 

0 

TFFCONMU  VLOAD 

UNIT 

COME  HERE  WITH  TFFRTMU  LOADED. 

-0152 

18 

-LAST  72  8 -2  7, 3 334  - 

02213- 

0— 

P.ONE 

SAVFD  RN.  M 

F:  (-29)  M:  (-27) 

0153 

27,3335 

77725 

i 

PDDL 

UR/2  TO  PDL+O 

, +5 

0154 

27,3336 

00045 

0 

3 6D 

MAGNITUDE 

01  55 

ROF 

1 

27,3337 

0-0.0 1 5 

0 

STORE 

RMAGI 

M F:  (-29) 

M:  (-27) 

0156 

27,3340 

77701 

1 

NORM 

0157 

R-FF 

63 

LAST  12  31  27,3  341 

00047 

_L 

X 1 

-NR 

0158 

REF 

i 

27,3342 

24041 

1 

STOVL 

NRMAG 

RMAG  M E: 

(-29+NR)  M:  (-27+NR) 

0159 

REF 

9 

LAST  728  27,3343 

02221 

1 

VONE 

SAVED  VN.  M/CS  E:  (-7)  M:  1-5) 

- 0-160- 

27,3344 

77761 

1 

vx  sc 

0161 

REF 

5 

LAST  1265  27,3345 

00037 

0 

TFF/RTMU 

E:  (17)  M: 

(14) 

0162 

REF 

1 

27, 3346 

02170 

0 

STORE 

VONE  ' 

VN/SQRT (MU ) 

E:  (10)  M:  (9) 

0163 

27,3347 

47361 

0 

VXSC 

VXV 

0164 

REF 

2 

LAST  1265  27,3350 

00041 

1 

NRMAG 

E:  (-29+NR) 

M:  (-27+NR) 

AO-165 

UR/2  FROM  POL 

0166 

27,3351 

47572 

1 

VSL1 

VSQ 

BEFORE:  E:(- 

19+NR)  M: (-18+NR) 

0167 

REF 

1 

27, 3352 

14035 

1 

STOOL 

TFFNP 

LC  P M E: ( 

-38+2NR)  M: (— 36+2NR ) 

AO-1-68 

SAVE  Al  SO  FOR 

VGAMCALC 

0169 

REF 

1 

27,3353 

06414 

0 

TFF I /4 

0170 

27,3354 

63271 

0 

DO  V 

PDVL 

(2/RMAG)  1/M 

E : ( 26— NR)  M:(24-NR) 

0171 

-B-E-F  _ _ 

3_ 

—LAST  1265  27.3355 

00041 

1 

NRMAG 

RMAG  M E : ( 

-29+NP)  M : ( -27+NR ) 

0172 

REF 

2 

LAST  1265  27,3356 

021  70 

0 

VONE  ' 

SAVED  VN.  E 

: (10)  M:  (9) 

0173 

27,3357 

57436 

1 

VSQ 

DCOM  P 

KEEP  MPAC+2  HONEST  FDR  SORT. 

0124 

RFF  _ 

] 

- 27,2160 

. 0.Q025 

_Q 

STORE 

TFFVSQ 

-(V  SQ/MU) 

F : (20)  M : ( 18) 

A01  75 

SAVE  FOR  VGAMCALC 

0176 

27,3361 

43257 

0 

SR* 

DAD 
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L 

TIME 

CF  FREE  FALL 

USEP'S  PAGF  NO.  5 EO  S3 

0177 

0178 

27. 3362 

27.3363 

20573 

77626 

1 

0 

STADR 

0-6,1 

GET  — VSO/MU  E : ( 26-NR ) M : ( 24-NR ) 

2/RMAG  FROM  POLE? 

0180 

REF 

1 

27,3364 

77744 

0 

STORE 

TFFALFA 

ALFA  1/M  E : ( 26-NR ) M:(24-NR) 

0181 

27, 3365 

41457 

1 

SL* 

PUSH 

TEMP  SAVF  ALFA  E:(20)  M:(18) 

27 r 3366 

20173 

0 

0-6,1 

0183 

27,3367 

75446 

0 

A8S 

SORT 

E:  (10)  M: (9) 

0184 

27, 3370 

77701 

1 

NORM 

7 8 1 AST  12  3 P 

2 7 f 3-371 

00  050- 

1 _ 

X?  - _ 

X_2 = — NA  _ 

0186 

REF 

i 

27, 3372 

00031 

0 

STORE 

TFFPTALF 

SORT ( ABS(ALFA)  ) E:(10+NA)  M:(9+NA) 

0187 

27,3373 

75316 

1 

DSQ 

SIGN 

NOT  SO  ACCURATE,  BUT  OK 

A 0 1 88 

ALFA  FROM  PDL+2  F:(20)  M : ( 1 B ) 

0189 

27, 3 374 

552  54 

1 

BZE 

BDDV 

S FT  1/ALFA  =0,  TO  SHOW  SMALL  ALFA 

0190 

27, 3375 

57377 

0 

+ 2 

0191 

RE J= 

? L-AS  J 126  5 - 

21,331b 

. 064 1 4. 

0 

TFF1 /4 

0192 

REF 

i 

27,3377 

00027 

1 

+ 2 

STORE 

TFF 1 /ALE 

1/ALFA  E : ( -22-2  NA)  M:(-20-2  NA! 

0193 

27, 3400 

776  16 

0 

DUMPCNIC 

RVQ 

A0194 


39  W 
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TIME  CF  FREE  FALL 


USER ' S PAGE  MO. 


FO  S3 


P01  95 
R 01  97 
-RQ1-99 
R 02  00 
R0201 
-RO203- 


SLEROLT I NE  NAME: 
MOD  MO:  0 

-MOD  3 y: R-R  BA-1PAI 

MCD  MO:  1 

MOD  NO:  2 


TFFRP/RA 

SEAIUER 

MOD  BY:  RR  BAIRNSFATHER 
MOD  BY:  RR  BAIRNSFATHER 


DATE:  01.17.67 

LOG  SECTION:  T T ME  OF  FREE  FALL 


DATE:  11  APR  67 

DATE:  21  MAP  68 


ACCEPT  DIFFFRENT  EARTH/MOON  SCALES 
ALSO  IMPROVE  ACCURACY  OF  RAPO. 


R0205  FUNCTIONAL  DESCRI 
R0207  APOGEE  R 

R0208 UROGRAM 

R0210  R 

R 02 1 2 WHERE 

-R-Q2-1-3 E. 


PTION:  USED  BY  C ALCTPER  AND  TFF  DISPLAYS  TO  CALCULATE  PERIGEE  RADIUS  AND  ALSO 

ADIUS  FOR  A GENERAL  CONIC. 

G1V  FS  PFRIGFF  RADIUS  AS APOGFF  RADIUS  IS  GIVEN  BY 

p = P /(1+EI  RA  = (1+E)  / ALFA 

2 

= 1 - P Al  FA 


R0214 
R02  16 
R0217 
R0218 
R0219 
-R0221 
R0222 
R0223 


IF  R A IS 
1 . 


THI  S SUB 
CALL  IJVG — SEQUENCE-: 


NEGATIVE  OR  SHOWS  DIVIDE  OVERFLOW,  THEN  PA  = POSMAX  BECAUSE 
APOGEE  RADIUS  IS  NOT  MEANINGFUL  FOR  HYPERBOLA 

2 .APOGEE  RADIUS  IS  NO  T DEFINED  _ EDS-  PAR  ABOI  A 

3.  APOGEE  RADIUS  EXCEEDS  THE  SCALING  FOR  FLLIPSE. 

ROUTINE  REQUIRES  THE  SIGNED  RECIPROCAL  SEMI  MAJ  AXIS,  ALFA, 

CALI 

TFFRP/RA 

PLSHLOC  = PDL  +0 , ARBITRARY  IF  l EQ  10D 


AND  SEMI  LATUS  RECTUM  AS  DATA. 


R0225 

-R-0226- 

SUBROUTINES  CALLED:  NONE 

NORMAL  EXIT  MODF : RVO 

R0227 
R 022  8 
R 02  2-9 

—ALARMS: 

IF  ELLIPSE,  WITHIN  NORMAL  SCALING,  RAPO  IS  CORRECT. 
OTHERWISE,  RAPO  = POSMAX. 

-NONE-  . . .. 

R0230 

R0232 

R 02  34 — 

OUTPUT : 

STORED  IN  PUSH  LIST 
RPFR  E : ! -2 9 ) M: ( 

RAPO  F : (-29 I M: 1 

AREA.  SCALE  OF  OUTPUT  AGREES  WITH 
-27)  M PERIGEE  RADIUS 

-27 1 M _ APOGFF  RADIUS 

DATA  SUPPLIED  TO  TFF/CONIC. 

DESTROYED  BY  CA LC TFF /C A LCTPER , TFFTRIG. 
WILL  BE  DESTROYED  BY  CALCTFF/CALCTPFR 

R0236 

R0237 

R0238— 

ERASABLE 

PUSHLOC  AT  PDL+O 
INITIALIZATION  REQUIRED: 

TFEALFA  E:(26-NR)  M 1/SEMI  MAJ  AXIS 

LEFT 

RY 

TFFCONIC 

R0240 
R0241 
R 0 2 4-3 

M:  (24-NR) 

TFFNP  E:  (-38+2NR) 
M : I -36  F_2  NR_1 

M LC  P,  SEMI  LATUS  RECTUM 

LEFT 

BY 

TFFCONIC 

R0244 

XI 

-NR,  NORM  COUNT  OF  RMAG 

LEFT 

BY 

TFFCONIC 

R0246 

X 2 

-NA,  NORM  COUNT  OF  ALFA 

LEFT 

BY 

TFFCONIC 

R0248 

DEBRIS: 

Q PR  FT  , PDI  +0  . ■ . 

PDL  F I 

ASS-fVBL-E-  REVISION  0 69  OF-  AGC --PR0GRA M -L UM1  NARY  BY  NASA  20211  L2--Q11 
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GAP : 


L TIME 

CF 

FREE 

FALL 

USER 1 S PAGE  NO.  7 EO  S3 

P0249 

0020 

RAPG 

_ 

16D 

APOGEE  RADIUS  M E : (-29)  M:!-27) 

- 0 0-16 

RPER 

= 

LAD 

P..ER_l-GjE-F  RADIUS  M E:(-79)  M:(-27) 

A0252 

02  53 

27, 3401 

41345 

0 

TFFRP/RA 

OLOAD 

DMP 

2 

LAST 

126-6 

-2X.3  4G2 

- -00033 

J_ 

T.FFALF-A 

ALFA  1/M  E : ( 26-NR)  M:(24-NR) 

0255  REF 

2 

LAST 

1265 

27, 3403 

00035 

1 

TFFNP 

LC  P M E : ( —3  8+2  NR  ) M:(-36+2NR) 

0256 

27,3404 

57457 

0 

SR* 

DCOM  P 

ALFA  P (-12+NR) 

02  57 

27,3A05 

2.0571 

-CL 

0 -8  D, 1 

ALFA  P (-4) 

0258 

27, 3406 

51415 

0 

DAO 

ABS 

( DCOMP  GIVES  VALID  TP  RESULT  FOP  SORT) 

A0259 

(ABS  PROTECTS  SORT  IF  E IS  VERY  NEAR  0) 

02-6-0-  R£  f 

1 

27,3407 _ 

1 7J-3.7 

_1— 

DP2 ( -4) 

0261 

27, 3410 

43366 

0 

SORT 

DAD 

E SQ  = (1-  P ALFA)  (-4) 

0262  REF 

3 

LAST 

1266 

27,3411 

06414 

0 

TFF 1 / 4 

0263 

27j  3 412  _ 

557  0-6 

0 

PUSH 

BDDV 

( 1 4- F ) (-2  ) TO  ° DL 4-0 

0264  REF 

3 

LAST 

1268 

27,3413 

00035 

1 

TFFN  P 

LCP  M F:  I -38-42NR  ) M : (-36+2 NR  ) 

0265 

27,3414 

53657 

0 

SR* 

SR* 

(DOES  SR  THEN  SL  TO  AVOID  OVFL) 

02-6-6 

. 27, 3415 

20-60.1 

1_ 

0,1 

X 1=-NR 

0267 

27,3416 

20572 

0 

0 -7,1 

(EFFECTIVE  SL) 

0268  REF 

3 

LAST 

729 

27,3417 

14017 

1 

STOOL 

RPER 

PERIGEE  RADIUS  M E:(-29)  M:(-?7) 

AC176Q  

( 1+E ) (-?_)  FP OM  PDL  + O . 

0270 

27, 3420 

41005 

1 

DMP 

BOVB 

0271  REF 

2 

LAST 

126  6 

27, 3421 

00027 

1 

TFF1 /ALF 

E : (-22-2NA)  M:(-20-2NA) 

0272  REF  - 

4 

LAS  J 

122  4 

_ 27,3422 

57725- 

a 

1C DANZIG 

CLEAR  OVFIND,  IF  OM. 

0273 

27, 3423 

53654 

0 

BZE 

SL* 

0274  REF 

i 

27, 3424 

57433 

l 

MAXRA 

SET  POSMAX,  IF  AL  FA=0 

-02-75  - 

27_,  3425 

57603 

_a_ 

Q --5  ,2 

- 5 + N A 

0276 

27,3426 

40057 

l 

SL* 

BOV 

0277 

27, 3427 

57576 

l 

0,2 

0-2-78 R-EF 

_2_ 

L AS  I 

126  8 

27, 3430 

57433 

l 

M AX  R A 

SET  POSMAX  IF  OVFL. 

0279 

27,3431 

77644 

l 

BPL 

CONTINUE  WITH  VALID  RAPO. 

0280 

27, 3432 

57435 

l 

4-3 

-02  81 

- 27,3  433 

77745 

1 

MAXRA 

OLOAD 

RAPO  CALC  IS  NOT  VALID.  SET  RAPO  = 

0282  REF 

3 

LAST 

857 

27,3434 

17743 

l 

N EAR  ONE 

POSMAX  AS  A TAG. 

0283  REF 

1 

27, 3435 

00021 

l 

+ 3 

STORE 

R APO 

APOGFE  RADIUS  M E:(-29)  M:(-27) 

02  84 

27,343  6 

776.L6 

-Q- 

OUMPRPRA 

-RVQ 

A0285 


30  W 


GAP:  A SS  F MBL  E-R  F VIS  ION  - 0 69  OF-  AGC  PROGRAM-LUMINARY  8Y  NASA  20  2 1-  i-l  2---0  -1-1- 


L-9— 02  -NOV.  25-t-L 9-68 SKIPPER  .070 PAG F 1269 


L 

TIME  CF  FREE  FALL  USER'S  PAGE  NO.  8 EO  S3 

POP  86 
R 02  88 

R 02-90 

R029I 
R 0292 

R 02-9-3 — 

R0295 

R0297 

RQ2-9-9 — 

R0301 
R0303 
R0305 — 

SUBROUTINE  NAME:  CALCTPER  / CALCTFF  DATE:  01.29.67 

M0D  N0:  0 LOG  SECTION:  TIME  OF  FREE  FALL 

Mrp  RY: RR  RA  TR  N SEAT  HFR 

MOD  NC:  1 MOD  BY:  RR  BAIRNSFATHER  DATE:  21  MAR  67 

MOD  NC:  2 MOD  BY:  RR  BAIRNSFATHFR  DATE:  14  APR  67 

MCD  up-  r Mm  RY:  RR  RA  I RNSEATHFR  DAT  F : R.1UJ  67  NEAR  EARTH  MUE  AND  NEG  TFF  1 3 ONE  P AST ) 

MOO  NC:  4 MOD  BY:  RR  BAIRNSFATHER  DATE:  21  NOV  67  ADD  VARIABLE  MU. 

MOD  NC:  5 MOD  BY:  RR  BAIRNSFATHER  DATE:  21  MAR  68  ACCEPT  DIFFERENT  EARTH/MOON  SCALES 

ppfury  j nn|  Al  n FP  rp  r PT  mw:  PROGRAM  CALCUI  ATFS  THE  FREF-FAI  1 TIME  OF  FLIGHT  FROM  PRESENT  POSITION  P.N  AND 

VELOCITY  VN  TO  A RADIUS  LENGTH  SPECIFIED  BY  RTERM  , SUPPLIED  BY  THE  USER.  THE  °OSITION  VECTOR 
RN  MAY  BE  ON  EITHER  SIDE  OF  THE  CONIC,  BUT  RTERM  IS  CONSIDERED  ON  THE  INBOUND  SIDE. 

THE  EQUATIONS  ARE 

P 0306 
R03CP. 

Q 2 = -SQRTIRTERM  (2-RTERM  ALFA)  - LCP)  (INBOUND  SIDE))  LEO  +-  LCE/SORTI ALFA ) 

R 0309 

01  = RN.VN  / SQRT(MU)  LEO  +-  LCE / SO R T ( ALE A ) 

R0311 — 

z - NUM-  /-  DEN 1 FO  +-  1 /SORT  1 Al  FA) 

R 03  l 3 
R 0-3 1-4  - 

WHERE,  IF  INBOUND 

NUM  =_  .RTERM  - RN  LEO  + - 2 LCE/ALFA 

R0316 

DEN  = Q2+Q1  LEO  +-  2 LCE / S QR T ( AL F A ) 

R03I8 — 

R03I9 

R0321 

AND-,-  IF  GUT-BOUND 

NUM  = 02-01  LEQ  +-  2 LCE / S QR T I AL F A ) 

DEN  = 2 - ALFA  (RTERM  + RN ) . LEQ  + - 2 LCE 

R0323 

IF  ALFA  ZZ  < 1.0  (FOR  ALL  CONICS  EXCEPT  ELLIPSES  HAVING  ABSIDEL  ECC  ANOM ) G 90  DEG) 

R0325 — 

R0326 

CH6-N X-  - ALFA  Z Z 

AND  TFF  = (RTERM  +RN  -2  ZZ  T ( X ) ) Z/SQRT1MU) 

RUL27 

R0328 

EXCEPT  IF  ALFA  PNZ-,-  AND — IF-  TFF  NEG, 

THEN  TFF  = 2 PI  /(ALFA  SQRT(ALFA))  + TFF 

R-032-9  — 

OR— 1-4= ALFA-Z-Z GEO 1-0 (-FOR-  ELL  I-PS-ES --HAVING  ABS-LD EL  FCC  ANOM  ) GFO  90  nFG) 

R0331 
R-O-332 

THEN  X = 1/ALFA  Z Z 

AND LEE— =-(  P I /S  QRJLLAL  F_A ) -02  +0  1 +2IX  TIX)  -1)  /ALFA  7 I /ALFA  SORT(MU) 

R0334 

RD33S 

R0336 

WHERE  T ( X ) IS  A POLYNOMIAL  APPROXIMATION  TO  THE  SFRIES 

2 3 _2 

1/3  -X/5  +X  / 7 -X  / 9 ...  (X  < 1.0) 

R033-7 

R0339 
R 0340 

R03A2 

R0344 

R0345 

CALLING  SEQUENCE-: ILME  TO--R-TERM TTMF  Tn  PFRTGFF 

CALL  CALL 

CALCTFF  CALCTPER 

C(MPA.C)  = TFRMNL  RAD  M C (MPAC)  = PER  IGFF  RAD  M 

FCR  EITHER,  E:  (-29)  M:  (-27) 

FCR  EITHER,  PUSHLOC  = PDL+O  , ARBITRARY  IF  LEQ  8D. 

GAP  : 


ASSEMRLF  REVISION  069  OF  AGC  PROGRAM  l IJM I NARY  BY  NASA  7021112-011 


iq:n?  now.  ?4riq6B  sktppfr  .n7n  page  i ?7n 


R 0346 
R0347 

- R0348 
R 03  50 
R0352 

--R0353 

R0355 

R0357 

- R0358-- 
R0360 
R0362 

--R0363 

R0365 

R0367 

- R0368 
R0369 
R0370 
R0371 
R0372 
R0373 
..R  0-37  5 
R0377 
R0379 


TIRE  GF  FREE  FALL 

SUBROUTINES  CALLE 
NCRM4L  EXIT  MODE: 

HQW-EVER  . 

A 

B 

C 

OUTPUT:  C(MPAC) 

THEJ! 

NRTERM 

TFFTEM 

NOTE:  T 

RMAS4 E 

TFF01  E 
TFFOELQ 

P-LS-HLQC — 

ERASABLE  INITIALI 
RONE  E 

YOME1 E 

R RAG  1 E 
C (MPAC!  E 


USER'S  PAGE  NO. 


EO  S3 


C:  T(X)  , VIA  RTB 

RVQ 

PROGRAM  FXITS  W1 TH  nNF  OF  T HE  FOLLOWING  VALUES  ..FOR 
. T FF=  FLIGHT  TIME.  NORMAL  CASE  FOR  POSITIVE  FLIGHT 
(THIS  OPTION  IS  NO  LONGER  USED.) 

. TFF  = POSMAX.  THIS  INDICATES  THAT  THE  CONIC  FROM 
THE  SPECIFIED  ALTITUDE.  ALSO  INDICATES  OUTBOUND 
(-28)  CS  TIME  OF  FLIGHT,  OR  TIME  TO  PERIGEE 

_IQJ Xj 

E:  (-29+NP)  M RTERM,  WEIGHTED  BY  NR 

M:  ( -27+  NR ) 

E:_ ( -59+  2NR1 
M:  (-55+2NR) 


TFF  (-23)  CS  IN  MPAC.  USER  MUST  STORE. 
TIME  LESS  THAN  ONE  ORBITAL  PERIOD. 

THE  PRESENT  POSITION  WILL  NOT  RETURN  TO 
PARABOLA  OR  HYPERBOLA. 

LEFT  FOR  ENTRY  DISPLAY  TFF  ROUTINES 


I CP  7 7 SGN1S0FIF) 

LCP  /ALFA  SGN(SDELF) 

FFTEM  = PDL  360  AND  WILL  BE  DESTROYED  BY  .:UNIT:. 

: (-2-9) Mi  (-27) PJ)J 12  MO T TOUCHED. 

PDL  1 AD 
PDL  10D 


LEFT  FOR  ENTRY  DISPLAY  TFF  ROUTINES 

LEFT  FOR  ENTRY  DISPLAY  TFF  ROUTINES 
LEFT  FOR  ENTRY  DISPLAY  TFF  ROUTINFS 


-15  I 
-15  ) 


: ( — 16  ) M:  ( 

E : I - 1 6 ) M:  ( 

-AT  PDL+O 

ZATION  REQUIRED: 
: (-29)  M : ( - 27 ) 

i ( + 10) Mi  1 + 9) 

: (-29 ) M : (-27) 

: ( -29 ) M : ( - 27 ) 


M STATE  VECTOR 

VN/SQRT1MU) 

PRESENT  RAOIUS,  M 

RTERM,  TERMINAL  RADIUS  LENGTH,  M 


LEFT  BY  USER 
L EFT  BY  TFF/CON IC 
LEFT  BY  TFFCONIC 
LEFT  BY  USER 


R03B1  THE  FOLLOWING  ARE  STORED  IN  THE  PUSH  LIST  ARFA . 

R0382  TFF/RTMU  E : ( 1 7 ) M:  ( 14)  1/SQRTtMU)  LEFT  BY  TFFCONIC. 

R0.384 NRM  AG F:  (-29+NR)  M RMAG.  NORM Al  I Z ED LEFT  BY  TFFCONIC 

P0386  M:  ( — 27+NR ) 

R0387  XI  -NR,  NORM  COUNT  LEFT  BY  TFFCONIC 

R038-9 TFFNP E :_C--38+2-N£L) M I CP,  SEMI  I ATUS  RECTUM.  WEIGHT  NR  LEFT  BY  TFFCONIC 

R0391  M : (-36+2NR) 

R0392  T FF ALFA  E:  (26-NR)  1/M  ALFA,  WEIGHT  NR  LEFT  BY  TFFCONIC 

R03-94 Mi (24 -NR ) 

R0395  TFF RT AL F E:(10  + NA)  SQRT(ALFA),  NORMALIZED  LEFT  BY  TFFCONIC 

R0397  M:  ( 9 + N A ) 

R0398 X2 -NA,  NORM  C nil  NT LEFT  BY  TFFCONIC 

R 0400  TFF1/ALF  E:  (-22-2NA)  SIGNED  SEMIMAJ  AXIS,  WEIGHTED  BY  NA  LEFT  BY  TFFCONIC 

R0402  M:  (-20-2NA) 

R-0-403 D-EBRXS-i QPR  EX., PDL+O  ...  PDI +3 

R0404  RTERM  E:(-29)  M: (-27)  RTERM,  TERMINAL  RADIUS  LENGTH 

P 0405  RAPO  E : 1 -29 ) M:(-27>  PDL  16D  ( =NRTERM ) 

Rfl.406 RPER  E : (-29 ) M:(-27)  PPL  14D  (=TFFQ1  ) 


-GAP  : ASSEMBLE-  R-EV-I-SION  069--QF-  AGO  PROGRAM  LUM  INAR  Y 8-Y  NASA  2-0?  11-12- 01-1- 

L TIME  CF  FREE  FALL 


-19:a2--MQ.\L.-  25,1963 SKIPPER  ,070 PAGE-  1Z.7.1 

USER' S PAGE  NO.  10  EO  S3 


P0407 

0408 

27,3437 

776  14 

1 

CALCTPER  SETGO 

ENTER  WITH  RPER  IN  MPAC 

27, 3440 

03436 

0 - 

. TFFSW 

0410 

27, 3441 

57444 

1 

■F  3 

0411 

27,3442 

776  14 

1 

CALCTFF  CLEAR 

ENTER  WITH  R TER  M IN  MPAC 

P F F 

2 

LAST  127 1 

27,3443 . 

03-676 

-0  . 

TFFSW 

0413 

REF 

i 

27,3444 

00023 

0 

+3  STORE 

RTFR  M 

E:  (-291  M:  (-27) 

0414 

27, 3445 

77657 

0 

SL* 

0415 

- 27,3  446- 

.20201 

-0- 

Qj  1 

X 1 =— NR 

0416 

REF 

i 

27,3447 

00021 

1 

STORE 

NRTERM 

RTERM  E:  (-29+NR)  M:  (-27+NP) 

0417 

27,3450 

442  05 

0 

DM  P 

BDSU 

Q4  1 P 

- RFF 

3 

LASJ  12-6  8- 

27. 345 1 

00033 

1— 

TFFA  LFA 

ALFA  E:  (26-NR)  M:  (24-NR) 

0419 

REF 

4 

LAST  1268 

27,3452 

06414 

0 

TFF1 /4 

0420 

27,3453 

41206 

0 

PUSH 

DMP 

(2-ALFA  RTERM)  (-3)  TO  PDL+O 

0421 

RE£ 

2 

L-AST  12-7-1 

27, 3454 

00021 

_1_ 

NRTERM 

E:  (-29+NR)  M:  <-27«-NR) 

0422 

27,3455 

53725 

1 

POOL 

SR* 

RTERM ( 2-AL  FA  RTERM)  TO  PDL  + 2 

A0423 

E:  (-32+NR)  M:  1-30+NR) 

0424-  _ 

_R-E-F  _ 

4 

LAST  126  8 

27,3  456 

-00035- 

J 

TFFN  P 

LC  P E:(-38+2NP)  M:(-36+2NR) 

0425 

27,3457 

20573 

1 

0 -6,1 

XI  = -NR 

0426 

27, 3460 

43276 

0 

DCOMP 

DAD 

DUE  TO  SHIFTS,  KEEP  PRECISION  FOR  SORT 

A 0427 

RTERM12-ALFA  RTFRM)  FROM  PDL  + 2 

A0428 

E:  (-32+NR)  M:  (-30+NR) 

0429 

27, 3461 

77657 

0 

SR* 

LEAVE  E:  (-32)  M:  (-30) 

-04-3-0 

21-9  3 462- 

20601 

1 

Oj  I 

X 1 - -NR 

0431 

27, 3463 

71214 

0 

BOFF 

DLOAD 

CHECK  T FF  / TP  ER  SWITCH 

0432 

REF 

3 

LAST  1271 

27, 3464 

03756 

0 

TFFSW 

- - 0433-  - 

27,3465 

57467 

0 

+ 2 

IF  TFF , CONTINUE 

0434 

REF 

1 

27, 3466 

06424 

0 

TFFZ  EROS 

IF  TPER,  SET  Q2  = 0 

0435 

27,3467 

75440 

0 

+ 2 BMN 

SORT 

E:  (-16)  M:  (-15) 

0436 

REF 

1 

27, 3470 

57622 

0 

MAXTFF1 

NO  FREE  FALL  CONIC  TO  RTERM  FROM  HFRE 

A0437 

RESET  POL,  SET  TFF=POSMAX,  AND  EXIT. 

0438 

27, 3471 

41076 

0 

DCOMP 

BOVB 

RT  IS  ON  INBOUND  SIDE.  ASSURE  0VFIND=0 

0439 

REF 

5 

LAST  1268 

27,  3472 

57725 

0 

TCDANZ IG 

ANY  PORT  IN  A STORM. 

0440 

-R-E-F 

1 

_ 27 f 3473 

24045 

a 

st  n vi 

TFFTFM 

02  F:  (-16)  M:  (-15) 

0441 

REF 

3 

LAST  1265 

27, 3474 

02170 

0 

VONF  • 

VN/SQRT(MU)  E:  (10)  M:  (9) 

0442 

27,3475 

52441 

1 

DOT 

SL3 

0443 

RE-F — 

-1-9  - 

-LAST  12  6 5 - 

- 27,  3-476 

-02213- 

- 0 

R OREL 

SAVED  RN.  F:  (-29)  M:  (-27) 

0444 

REF 

1 

27, 3477 

00017 

1 

STORE 

TFF01 

Ql,  SAVE  FOR  GONEPAST  TEST. 

A0445 

E:  (-16)  M:  (-15) 

- 0-446- 

- .27,3-500- 

44240 

1 

BMN 

BPSU 

0447 

REF 

1 

27,3501 

57522 

0 

I NBOUND 

USE  ALTERNATE  Z 

0448 

REF 

2 

LAST  1271 

27,3502 

00045 

0 

TFFTEM 

02  E:  1-16)  M:  (-15) 

A0449 

OUTBOUND  Z CALC  CONTINUES 

HERE 

0450 

R-E-F-  - 

1 

27,3503 

14043 

0 

STQDJ 

T FF  X 

NIJM=  Q2— 0 1 F : (-16)  M : (-15) 

0451 

REF 

4 

LAST  1271 

27,3504 

00033 

1 

TFFALFA 

ALFA  E:  (26-NR)  M:  (24-NR) 

0452 


27,3505  44205  0 


RDSU 


DM  P 


-GAP-; 


ASSTM-RLE  R EVTS I-Q-N  069 -OF  AGC  PROGRAM  LUM  INARY  BY-  NASA  20  21-1  17-011 


1 9:02  N Q.V.  2 5,1968 StCI-P-PFR  .070 


L 

TIRE 

CF 

FREE  FALL 

USER ' S PAGE  NO.  11  EO  S3 

0453 

REF 

4 

LAST  1265 

27, 3506 

00041 

1 

NPMAG 

R MAG  E:  (-29+NR)  M:  (-27+NR) 

A D4S4 

(2-RTERM  ALFA)  (-3)  FROM  POL+O 

046*3 

27,3-507 

PUSH.  _ 

ABS.  _ 

DEN  TO  PDL+O  E:  (-3)  OR  (-16) 

A 04  5 6 

M:  (-3)  OR  (-15) 

0457 

27, 3510 

40015 

1 

DAD 

BOV 

I NDFTERMINANCY  TEST 

21 , 3-5 1 1 

L 77-3-L 

1 

L.LM  ( -22) 

= 1 ,_Q-  B ( -2  2 ) 

0459 

RFF 

i 

27,3512 

57533 

0 

TFFXTFST 

GO  IF  DEN  >/=  BI-22) 

0460 

27, 3513 

65345 

0 

DLOAD 

PDDL 

SET  DEN=0  OTHERWISE 

REE — 

2 

1 AST  177  1 

27,3-514 

06424 

-0- 

IFlZiROS  _ 

A0462 

XCH  ZERO  WITH  PDL+O 

0463 

27, 3515 

57545 

1 

DLOAD 

DCOM  P 

04  ft.4 

REF 

5- 

LAST  J.Z7  1 

77,  3 5)6  - 

. 0.0.033- 

1 

TFFALFA 

ALFA  E:  (26-NR)  M:  (24-NR) 

0465 

27, 3517 

71240 

1 

BMN 

DLOAD 

FOR  TPER:  Z INDET  AT  DELE/2=0  AND  90. 

0466 

REF 

i 

27, 3520 

57627 

0 

TFFEL1 

ASSUME  90,  AND  LEAVE  0 IN  POL:  1/Z=D/N 

Z INOET.  AT  PERIGEE  FOR  PARAB  OR  HYPERB. 

0468 

27,3521 

77616 

0 

DUMPTFF l 

RVO 

RETURN  TFF  =0 

A046Q 

INBOUND 

Z CALC  CONTINUES  HERE 

0470 

27,3522 

77745 

1 

INBOUND 

DLOAD 

RESET  PDL+O 

04-71 

27 , 3323 

45345 

1- 

DLOAD 

DSU 

ALTERNATE  Z CALC 

0472 

REF 

2 

LAST  1271 

27,3524 

00023 

0 

RTEP  M 

E:  (-29)  M:  (-27) 

0473 

REF 

2 

LAST  1265 

27,3525 

00015 

0 

RMAG1 

E:  (-29)  M:  (-27) 

04-74- 

REF  - 

? 

- L AST  127  1 

_ 27_,  3 526 

14043 

CL_ 

ST0D1 

TF.EX 

N(JM=RT  ERM-RN  E:  (-29)  M:  (-27) 

0475 

REF 

3 

LAST  1271 

27, 3527 

00045 

0 

TFFTEM 

Q2  F:  (-16)  M:  (-15) 

0476 

27,  3530 

52015 

1 

DAD 

GOTO 

-04  7 7 

REF 

2 

—LAST  12  71 

27,3  531 

00017 

_L_ 

T FF  QJl 

01  E:  (-16)  M:  (-15) 

0478 

REF 

i 

27, 3532 

57507 

1 

SAVEDEN 

DEN  = Q2+Q1  E:  (-16)  M:  (-15) 

0479 

27, 3533 

65  2 L5 

1 

J FJLX  T£  S T 

QJ\D 

PDDL 

(ARS(DFN)  TO  Pm+?))  F:  (-3)  nR  (-16) 

A0480 

M:  (-3)  OR  (-15) 

0481 

RFF 

i 

27, 3534 

17733 

0 

DPl-22) 

RESTORE  ABS ( DEN  I TO  MPAC 

0482 

R-EF 

3 . 

LAST  1272 

27.3535  - 

0004? 

0 

TFFX 

NUM  E : (-161  OP  (-29)  M : ( - 15 ) OR  (-27) 

0483 

27, 3536 

53605 

1 

DM  P 

SR4 

0484 

REF 

2 

LAST  1266 

27,3537 

00031 

0 

TFFRTALF 

SQRT(ALFA)  E:  I10+NA)  M:  (9+NA) 

04  85  .. 

27.  3 540  _ 

57201 

0 

0 -3j2 

X 2=  — N A 

0486 

27, 3541 

77671 

1 

DDV 

C(MPAC)  = NUM  SORT ( AL F A ) E:(-3)  OR  (-16) 

A 04  8 7 

M : ( -3  ) OR  (-15) 

A0488 

A 8S ( DEN ) FROM  POL +2  E : ( — 3 ) OR  (-16) 

A0489 

M:  (-31  OP  (-15! 

04  90 

27, 3542 

401  45 

0 

DLOAD 

BOV 

(THE  DLOAD  IS  SHARED  WITH  TFF  ELL ) 

- 04-9-1— 

-REE 

_ 4_ 

LA9J  12X2 

27, 3 543 

00043 

0 

TFF  X 

NUM  F:  (-16)  OR  (-29)  Ml (-15)  OR  (-27) 

0492 

REF 

i 

27, 3544 

57625 

1 

TFFF  LL 

USE  EON  FOR  DELE  GEO  90,  LEQ  -90 

A049  3 

□ THER-WI  SE 

r.nNTTNMF  FOR  HFNFRAI 

CONIC  FOR  TFF  EON 

0494 

27, 3545 

45471 

1 

DDV 

STADR 

A 049-5- 

DEN  FROM  PDL+O  E:  (-3)  OR  (-16) 

M : ( - 3 ) HR  (—15) 

Z SAVE  FOR  SIGN  OF  SOELF. 


A0496 
04  97 


RFF 


4 LAST  1272  27,3546 


7773?  1 


STORE  TFFTFM 


ASSEMBLE  REV  -I-S  ION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-01) 
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GAP  : 


L 

TIME 

CF 

FREE 

FALL 

USER' S PAGE  NO.  12  EO  S3 

A0498 

E:  (-13)  M:  (-12) 

0499 

27,3547 

63406 

0 

PUSH 

DSC 

Z TO  PDL+O 

nsnn 

27,3-550  - 

41-206 

0 

PUSH 

OMP 

Z SQ  TO  PDL+2  E:  (-26)  M:  (-24) 

0501 

REF 

5 

LAST 

127  1 

27, 3551 

00035 

1 

TFFN  P 

LC  P E:  ( -38  + 2 NR ) M:  (-36+2NR) 

0502 

27,  3552 

75261 

0 

SL 

S13N 

orob 

- -27 , -1553 

_2  0-2  Q 6 

1 

5 , _ ..  . 

0504 

REF 

5 

LAST 

1272 

27, 3554 

00045 

0 

TFFTFM 

AFFIX  SIGN  FOR  SDELF  (ENTRY  DISPLAY) 

0505 

REF 

6 

LAST 

12  7 3 

27,3555 

14045 

0 

STQDL 

T FF  T EM 

P ZSO  E:  (-59+2NR)  M:  (-55+2NP) 

A 05  0-6 

(ARG  IS  USED  IN  TFF/TRIG) 

A0507 

Z SQ  FROM  PDL  + 2 F:  (-26)  M:  (-24) 

0508 

27,3556 

41206 

0 

PUSH 

DMP 

RESTORE  PUSH  LOC 

- 0509 

_ RFE 

6_ 

LAST 

127  2^ 

2 7-,  3-55-7 

00 JO  33 

1 

TFFALFA 

ALFA  E:  ( 26-NR ) M:  (24-NR) 

0510 

27,  3560 

77657 

0 

SL* 

0511 

27,3561 

20201 

0 

0,1 

X 1=-NR 

051-? 

R FF 

_5_ 

LAST 

12  7 2 

27, 3562 

00043 

0 _ 

STORE 

TFFX  - 

x 

0513 

27,3563 

41234 

1 

RTB 

DMP 

0514 

RFF 

i 

27,3564 

57707 

0 

T ( X ) 

POLY 

_A  05 1-5 

ZS_g.  from  PDL+2  E:  (-26)  M:  (-24) 

0516 

27, 3565 

44302 

0 

SR  2 

RDSU 

2 Z SQ  T ( X ) E:  (-29)  M:  (-27) 

0517 

REF 

3 

LAST 

1272 

27,3566 

00023 

0 

PTERM 

RTERM  E:  (-29)  M:  (-27) 

051-8. 

—27,3567 

412  15 

1 

--  -DA  D 

DMP 

0519 

REF 

3 

LAST 

1272 

27,3570 

00015 

0 

RM  AG  1 

E:  (-29)  M:  (-27) 

A0520 

Z FROM  PDL+O  E:  (-13)  M:  (-12) 

052-1  - 

27,-35-11- 

51-0A2  - 

_0 

SR  3 

BPL 

TFF  SQRT(MU)  E:  (-45)  M:  (-42) 

0522 

REF 

1 

27,3572 

576  13 

1 

ENDT  FF 

(NO  PUSH  UP) 

0523 

27,3573 

75206 

1 

PUSH 

SIGN 

TFF  SQRT(MU)  TO  PDL+O 

0 52-4  — 

REF  - 

- -3  .- 

LAST 

127  2 

27,3574 

00017 

_L_ 

TFFC1 

01  FOR  GONEPAST  TEST 

0525 

27,3575 

71244 

0 

BPL 

DLOAD 

GONE  PAST  ? 

0526 

REF 

i 

27,3576 

57617 

0 

NEGT FF 

YES.  TFF  < 0 . 

0-52-7 

R-E-F- 

3 

LASJ 

126  8 

2 7 ,3  57 7 

00027 

_J 

t££l/ALF 

1/ALFA  E:  (-22-2NA)  M:  (-20-2NA) 

0528 

27, 3600 

51076 

1 

ncoMP 

BPL 

ALFA  > 0 ? 

0529 

REF 

2 

LAST 

1273 

27,3601 

57617 

0 

NEGTFF 

NO.  TFF  IS  NEGATIVF. 

A0530 

CORRECT  FOR 

ORBITAL  PFRIOD. 

05^4 — 

2 7,-3-602 

776  76- 

o 

DCQMP 

yfs.  r n r r f r t for  hrr  pfrtpd. 

0532 

27, 3603 

56205 

0 

DMP 

DDV 

0533 

REF 

1 

27, 3604 

17727 

0 

P I / 1 6 

2 PI  (-5) 

- 0-5  34 

RFF 

— 3- 

LAST 

12  72 

27,3605- 

_ 00  03.1 

JQ 

TFFPTALF 

SQRT(ALFA)  E:  (10+NA)  M:  (9+NA) 

0535 

27,3606 

53657 

0 

SL* 

SL* 

0536 

27,3607 

57602 

1 

0 -4,2 

X 2=— NA 

0 53-7 

2-7,  3 610 

57602 

_3 

Q_  -4,2 

0538 

27,3611 

43257 

0 

SL* 

DAD 

0539 

27, 3612 

57576 

1 

0,2 

— AO-540-— 

TFF  SORT ( MU ) FROM  PDL  + O E : ( - 45 ) M:(- 

0541 

27,3613 

40005 

0 

ENDTFF  DMP 

BOV 

TFF  SQRT(MU)  IN  MPAC  E t ( -45 ) M:(  — 

0542 

REF 

6 

LAST 

1265 

27,3614 

00037 

0 

TFF/RTMU 

E:  (17)  M:  (14) 

0-5-43 

REF  - - 

77,3  615-  - 

576  23 

1 

MAXTFF 

SET  POSMAX  IF  OVFL. 

0544 

27,3616 

77616 

0 

DUMPTFF2  RVQ 

RETURN  TFF  (-28)  CS  IN  MPAC. 

GAP : ASSEMBLE  REV4-SI0-N  069  OF-  AGC  PROGRAM  LUMINARY  B-Y  NASA  20-21-1 12-011 
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L 

TIME 

OF 

FREE 

FALL 

USFR' S PAGE  NO.  13  EO  S3 

0545 

27, 3617 

77745 

1 

NEGTFF 

DLQAD 

A0546 

TFF  SORT ( MU ) FROM  PDL+O,  NEGATIVE. 

?1,  362-0 

776  5-0 

1 

GOTCL  _ 

0548 

REF 

2 

EAST 

1273 

27, 3621 

57613 

1 

ENDTFF 

?7f  T 622 

77  745 

1 

-MAXTFFl 

DLQAD 

- -RES-EJ  PDI 

0550 

27, 3623 

43545 

1 

MAXTFF 

DLQAD 

R VO 

0551 

REF 

4 

LAST 

1268 

27, 3624 

17743 

1 

NEARONE 

R0552 

TIME 

OF 

FLIGHT  ELLIPSE  WHEN  DEL  (ECCENTRIC  ANOM) 

GEQ  90 

AND  LEO  -90. 

NUM  FRnM  TFFX- E:  (-16)  nR  (-29) 

A0554 

M : (-15)  OR  (-27) 

0555 

27,3625 

77712 

0 

TFFFLL 

SL2 

NUM  E : ( — 14)  OR  (-27)  M:  ( — 13  > OR  (-25) 

0 5 5-6 

27 , 3 626_ 

41465- 

.0  - 

BDDV 

PUSH 

TEMP  SAVE  D/N  IN  PDL+O 

A0557 

DEN  FROM  PDL+O  F:(-3)/(  16)  M : (—3, /( —15 , 

A0558 

N/D  TO  PDL+O  E:  (11)  M:  (10) 

ns^Q 

27 , 3-627 

453  45 

1 

TFF  ELI 

OL  QAD 

HSU 

(ENTER  WITH  0/N=0  IN  PDL+O) 

0560 

REF 

7 

LAST 

1273 

27,3630 

00045 

0 

TFFTEM 

02  E:  (-16)  M:  (-15) 

0561 

REF 

4 

LAST 

1273 

27, 3631 

00017 

1 

TFF01 

Q 1 E:  (-16)  M:  (-15) 

ns£v? 

-R  F F 

1 

27 , 3-632 

14013 

_0_ 

STODL- 

TFFDELO 

<12-01  E:  (-16)  M:  (-15) 

A0563 

D/N  FROM  PDL+O 

0564 

27,3633 

77626 

0 

STADR 

Q565 

R F F 

_ 8_ 

—LAST 

12  7 4 

_27,3  63  4 

77732  1 

STORE 

TFFTEM 

D/N  F:  (11)  M:  (10) 

0566 

27,3635 

53605 

1 

DMP 

SL* 

0567 

REF 

4 

LAST 

1273 

27,3636 

00027 

1 

TFF1 /ALE 

1/ALFA  E:  (-22-2NA)  M:  (-20-2NA) 

0-563  _ 

27, 3637 

57576 

1 

0,2 

1/AIFA  Z E:  (-11-NA)  M:  (-10-NA) 

0569 

27, 3640 

41206 

0 

PUSH 

DMP 

TO  PDL+O 

0570 

REF 

9 

LAST 

1274 

27,3641 

00045 

0 

TFFTEM 

1/Z  E:  (11)  M:  (10) 

. - 05  71 

27-,  3 642 

41057 

0 

SL* 

BQVR 

0572 

27, 3643 

57576 

1 

0,2 

X 2=  -NA 

0573 

REF 

14 

LAST 

12  14 

27,3644 

21664 

0 

S IGNMPAC 

IN  CASE  X=  1.0,  CONTINUE 

0574 

R-E-F  - 

6_ 

LAST 

12X3— 

27 , 3645 

00043 

0 

STORE 

T F F X 

X= 1 / ALFA  ZSQ 

0575 

27, 3646 

41234 

1 

RTB 

DMP 

0576 

REF 

2 

LAST 

1273 

27, 3647 

57707 

0 

T ( X ) 

POLY 

-0577  - 

REF 

X. 

LAST 

12  7 4 

-XX, 3-650- 

00043 

0 

TFF  X 

0578 

27,3651 

45242 

1 

SR  3 

DSU 

0579 

REF 

1 

27,3652 

17735 

0 

DP2 (-3) 

- - 0580- 

_27,  3 653 

4L405 

0 

DMP 

PUSH 

2 ( X T(X)-L)  /Z  ALFA  E:  (-15-NA) 

A0581 

M:  ( — 14— NA ) 

A0582 

1/ALFA  Z FROM  PDL+O  E:  ( - 1 1-N A ) 

- -A  05-83- 

M:  ( — 10— NA ) 

0584 

27,3654 

41345 

0 

DLOAD 

DMP 

GET  SIGN  FOR  SOELF 

0585 

REF 

10 

LAST 

1274 

27, 3655 

00045 

0 

TFFTEM 

1/Z  E:  (11)  M:  (10) 

-0586 

-R-E-F 

4- 

LAST 

127  3-  _ 

27,3656 

00015  0 

RMAG  1 

E:  (-29)  M:  (-27) 

0587 

27,3657 

43312 

0 

SL  2 

DAD 

0588 

REF 

5 

LAST 

1274 

27,3660 

00017 

1 

TFF01 

0 
m 

T 

O' 

3 

1 

01 

- 05  89 

R££_ 

JJL 

LAST 

1274 

27, 3661 

14045 

0 

STODL 

TFFTEM 

(Ql  + R 1/Z)  =S GN  OF  SOELF  E : ( - 16 ) M:  (-15 

0590 

REF 

6 

LAST 

1273 

27,3662 

00035 

1 

TFFNP 

LC  P E:  (-38+2NR)  M:  (-36+2NR) 

0591 

27, 3663 

53605 

1 

DMP 

SL* 

CALC  FOR  ARG  FOR  TFF/TRIG. 

GAP  : ASSEMBLE  REV  IS  ION -0  69 -OF— A-GG  PROGRAM  LUMINARY — gj/  NASA  20  21112^041 19 1-Q-2  NOV. — 25,-1-9-68 SKIPPER — >070 PAGE  12  75 — 


L TIME  CF  FREE  FALL 


USER' S PAGE  NO.  1 A EO  S3 


0592 

REF 

5 

LAST 

12  7 A 

27,3664 

00027 

1 

T FF 1 /ALF 

1/ALFA  E : ( -22— 2 NA ) M:(-20-2NA) 

0593 

27, 3665 

57575 

1 

1,2 

X 2=— N A 

27,  3-666 

53765 

0 

SIGN.  . 

SL*  - _ 

0595 

REF 

12 

LAST 

1274 

27,3667 

00045 

0 

TFFTFM 

AFFIX  SIGN  FOR  SOELF 

0596 

27, 3670 

57576 

1 

0,2 

nsQ7 

R FF 

1 3 

J A^T 

- 12  7-5 

2-7,3671 

J.  4QA5 

0.  _ 

STOOL. 

LEE T EM  _ 

P/ALFA  F : (— 59+2NR ) M:(-55+2NR) 

A0598 

(ARG  FOR  USE  IN  TFF/TRIG) 

0599 

REF 

6 

LAST 

1275 

27, 3672 

00027 

1 

TFF1  /ALF 

1/ALFA  E : ( -22-2 N A ) M:(-20-2NA) 

27,  067  3 

41366- 

1 

SORT 

32  P . - 

0601 

REF 

2 

LAST 

12  7 3 

27,  3674 

17727 

0 

PI/16 

PI  (-4) 

0602 

27, 3675 

776  1 5 

0 

DAD 

A0603- 

2CXTIX)— 1) /Z  ALFA  FROM  POL  E:(-15-NA) 

A0604 

M: (-14-NA) 

0605 

27,3676 

45257 

0 

SL* 

osu 

06-06 

-27,3677 

57577 

0 

0-1  ,2 

0607 

REF 

2 

LAST 

1274 

27, 3700 

00013 

0 

TFFDELQ 

02-QL  E:  (-16)  M : (-15) 

0608 

27, 3701 

53605 

1 

DMP 

SL* 

06.09 

REJE_ 

1 

LAST 

127-5 -- 

27.3702 

-0.00-2-7-  1 

T FF 1 /ALF 

1/ALFA  E : ( -22-2N  A ) M:(-20-2NA) 

0610 

27,3703 

57601 

1 

0-3,2 

0611 

27, 3704 

52057 

1 

SL* 

GOTO 

0612. 

27,3705- 

-57602 

1 

0 -4,2 

0613 

REF 

3 

LAST 

1274 

27, 3706 

57613 

1 

ENDTFF 

T FF  SORT (MU ) IN  MPAC  E:<-45)  M:(-42) 

GAp;  -ASSEMBLE  -REV  I S-ION  0-69  OF  AGO  -PROGRAM-LUMINARY  BY  NA  SA-  2-02  1 1 1 2--  C-1 1 
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L 

TIME  GF 

FREE  FALL 

USER' S PAGE  NO.  15 

EO  S3 

P0614 

R0616 

PROGRAM 
MOD  NO: 

NAME:  TIX) 

0 

00  RA  TO  N SFATHFR 

DATE:  01.17. 

LOG  SECTION: 

67 

TIME  OF  FREE 

FALL 

R0619 

FUNCTIONAL  DESCRIPTION: 

THE  POLYNOMIAL  TIX)  IS  USED  BY  TIME  OF  FLIGHT  SUBROUTINES 

CALCTFF  AND 

R0621 

CALCTPER  TO  APPROXIMATE  THE 

SERIES 

2 

_ 3 

R0623 

1 /3 

-X/5  +X  / 7 -X  /9 

... 

ALFA  Z Z 

l-B 

ALFA  _Z  Z l EQ  1 

R 06  25 

X = 

l/IALFA  Z 

Z ) IF 

ALFA  Z Z G 1 

A 1 Q n Y K MFC.  FOR 

HYPFRRm  T r 

HRR-1  T S . 

R0627 

x = 

0 FOR  PARABOLIC  ORBITS 

R0628 

X IS  POSITIVE 

FOR  ELLIPTIC  ORBITS 

FPR  F!  I G HT 

?7R.  THF 

POI  YN_0M_TA1__. 

TLX)  IS  FITTFD 

OVER  THF  RANGE  (0,+l)  AND  HAS 

A MAXIMUM 

R 06  3 1 

DEV  IA  TI  ON 

FROM  THE  SERIES  OF 

2 

F-5  (TIX) 

IS  A CHEBYCHEV  TYPE  FIT  AND  WAS  OBTAINED  USING 

R0633 

MAC  PROGRAM  AUTC UR F I T294RR B 

AND  IS  VALID  TO  THE  SAME  TOLERANCE  OVER  THE  RANGE 

1— .08,+! )• 

1 

R0635 

f A J 1 I NG- 

SE-CU-EUCE  : - 

RTR 

R0636 

T ( X I 

R0637 

C(MPAC)  = 

X 

R0638 

SUBROUTINES  CALLED: 

NONE 

R 06  39 

NORMAL  EXIT  MODE: 

TC  DANZIG 

- - R 06-6  a - 

ALA  RMS : 

NCNF  ______  _ 

R 0641 

OUTPUT  : 

C(MPAC)  = 

TIX) 

R0642 

ERASABLE 

INITIALIZATION  REQUIRED: 

R 064  3 — 

C IMP  AC) 

- X - 

R0644 

DEBRIS: 

NONE 

064-5 

-R-&F  7 

1 AS  T 14-8-5 

? 7,  3 707 

0-72  21  - 

1 

T ( X ) _XT 

POLY 

0646 

27,3710 

00004 

0 

DEC 

4 N-l 

0647 

27,3711 

12525 

0 

2DEC 

3.333333333  E-l 

- —0-647 

2 7 , 3 7 1 ? 

12525 

0 

0648 

27,3713 

71463 

0 

2DEC* 

-1.999819135  E-l  * 

0648 

27,3  714 

57703 

1 

0649 

_ -27,  3 71  5 

04423 

0 

2DEC* 

1.418148467  E-l  4 

0649 

27, 3716 

17645 

0 

0650 

27, 3717 

74604 

0 

2DEC* 

-1.01310997  E-l  * 

065  0 

27, 3720 

43667 

1 

0651 

27, 3721 

01626 

1 

2DEC* 

5.609004986  E-2  4 

0651 

27, 3722 

37256 

1 

065? 

27, 3 723 

77404 

1 

2DEC4 

- 1. 536156925  E-2  * 

0652 

27, 3724 

52071 

0 

0653 

REF  60 

LAST  L207 

27, 3725 

0 6060 

1 

END T I X ) TC 

OANZ  IG 

0654 

REF  1 

27,3725 

TCDANZIG  = 

ENDT (X) 

GAP- 


ASSE MRL  F RFV  IS  ION- 069- OF  46G- P RS6RAM - LUMI WA-R¥ — GY  NASA  20  2H  12-011 
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L 

TINE 

CF  FREE  FALL 

USER' S PAGE  NO.  16  EO  S3 

P0655 

0656 

TFF 

CONSTANTS 

32,3766 

BANK 

32 

0657 

REF 

2 LAST  61 

27, 2000 

SETLOC 

T0F-FF1 

0658 

27,  3726 

BANK 

A0659 

NOTE  _ NOTE  _ ADJUSTED  MUE  FOR  NEAR  EARTH  TRAJ. 

MU-i-  - 

a.  99  0 815-471  FIX)  M CURF/f-S  SQ  _ 

A0661 

RTMUE 

1.997702549  E5  B-18*  MODIFIED  EARTH  MU 

A0663 NOT  E__ NflTF  ADJ1ISTFD  MU  F FOR  NEAR  FAPTH  TRAJ. 


A0664 

MUM 

= 

4.902  778  E8  M CUBE  /CS  SO 

A0665 

RTMUM 

2DEC* 

2.21422176  E4  B-18* 

0666 

27, 3726 

06220 

1 

PI/  16 

2 DEC 

3.141592653  R-4 

06^6- 

27, 3727 

375  53- 

0 

0667 

27, 3730 

37777 

1 

LIM (-22 ) 

20CT 

37777  37700  1 .0  -B(-22 ) 

0667 

27, 3731 

37700 

1 

0668 

_ 27,-3  732 

000  00 

1 

_DP  (-22) 

2QCT 

00000  00100  R (-22 ) 

0668 

27,  3733 

001  00 

0 

0669 

27,  3734 

04000 

0 

DP2 ( — 3 ) 

2DEC 

1 B— 3 

- 066-9  

27,3  735- 

000  00 

1 

0670 

27, 3736 

02000 

0 

DP2 (-4) 

2DEC 

1 B-4  1/16 

0670 

27,3737 

00000 

1 

R 06 74 RP AD] 2DEC 6 37333.8  B.-29  _M 1 - 29  ) =20  909  90]  . 57  FT 


0672 

REF 

4 

LAST 

725 

23, 2275 

RPAD1 

= R P AD 

-0673 

2 7,3  740-. 

-00305 

1 

_R300K 

2.CLEC  6464  778  B-29 

(-29)  M 

0673 

27, 3741 

11205 

0 

0674 

27, 3742 

37777 

1 

NFARONE 

2DEC  .999999999 

06  74 

27,3  743 

37777 

1 

0675 

REF 

18 

LAST 

1244 

23,2423 

TFF ZEROS 

EQUALS  H 16  Z EROS 

0676 

REF 

1 

23,  2413 

TFF1/4 

EQUALS  HIDP1/4 

gap  : AS S F MBLE  RF-V  IS  ION- 069— OF -AGC  PROGRAM  LUM  IN ARY  6Y  N A SA  20211 12-011 
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L AGC  BLOCK  TWO  SELF-CHECK 

R0001  PROGRAM  DESCRIPTION 

ROOO 3 PROGRAM  NAME  - SELF-CHECK 

-R-OO-O-5 MOD— N-C-— 1 

R0007  MCC  BY  - GAUNTT 


USER'  S PAGE  NO.  1 FO  S3 


DATE  20  DECEMBER  1967 

LOG  SECTION  AGC  BLOCK  TWO  SELF-CHECK 

A SSEMBLY  S UBROUTI NE  UTIL! TYM  REV  25 


R0008  FUNCTIONAL  DESCRIPTION 


140009 

R0011 

R0013 


_ PROGR AM  HAS- -TWO— MA-I-N — PARTS . -THE-  FIRST  -IS  SELF-CHECK  WHICH  -ROMS  AS  A ZERO  PRI0R.U_Y-J0.8  _WIIH._.NO_  COPE  SET,  AS 
PART  OF  THE  BACK-UP  IDLE  LOOP.  THE  SECOND  IS  SHOW-BANKSUM  WHICH  RUNS  AS  A REGULAR  EXECUTIVE  JOB  WITH  ITS  OWN 
STARTING  VERB. 


R0014 — 

R0016 

R0020 

ROOP? 

THE  PLRPOSL  OF  S E LI  - CHECK  LS  JO  LMEU4  UU  1 V AK  1 UU6_  lA,ut  — me. 

THE  PURPOSE  OF  SHOW-BANKSUM  IS  TO  DISPLAY  THE  SUM  OF  EACH  BANK 
IN  ALL  THERE  ARE  7 POSSIBLE  OPTIONS  IN  THIS  BLOCK  II  VERSION 
FOUND  TN  F-7065  B 1 OCK  I!  AGC  SELF-CHFCK  AMD  SHOW  BANKSUM  BY  EDM®  D 

, ONE  AT  A TIME. 

OF  SELF-CHECK.  MORE  DETAIL  DESCRIPTION  MAY  BE 
. SMALLY  DECEMBER  1966,  AND  ADDENOA  2 AND  3. 

R0024 

R0026 

-R0CL28- 

THE  DIFFERENT  OPTIONS  ARE  CONTROLLED  BY  PUTTING  DIFFERENT  NUMBERS  IN  THF  SMODE 
A DESCRIPTION  OF  WHAT  PARTS  OF  THE  COMPUTER  THAT  ARE  CHECKED  BY  THE  OPTIONS,  AND  THE 
OCTAI  . TO  I GAD  INTO  SMITH.  . _ __  . - 

REGISTER  (NOUN 
CORRESPOND ING 

27).  BELOW  IS 
NUMBER,  IN 

R0032 

R0033 

R0034 

+— 4 ERASABLE  MEMORY 

+— 5 FIXED  MEMORY 

+-1,2,3,6,7,10  -EVERYTHING  IN  OPTIONS  4 AMD  5. 

R0036 
R 00  37 

-0  SAME  AS  +- 1 0 UNTIL  AN  ERROR  IS  DETECTED. 

+0  NO  CHECK,  PUTS  COMPUTER  INTO  THE  BACKUP  IDLE  LOOP. 

R0038 

WARNINGS 

R0039 

R0041 


USE  OF  E MEMORY  RESERVED  FOR  SELF-CHECK  (EVEN  IN  IDLE  LOOP)  AS  TFMP  STORAGE  BY  OTHER  PROGRAMS  IS  DANGEROUS. 
SMOOE  SET  GREATER  THAN  OCT  10  PUTS  COMPUTER  INTO  BACKUP  IDLE  LOnP. 


R0042  CALLING  SEQUENCE 

R0043  TO  CALL  SELF-CHECK  KFY  IN 

R0044  V 21  N 27  E OPTION  NUMBER  E 

SO 0-4-7 TO  r.All  S HOW  — RAN K SUM  KFY  IN 

R 0 048  V 91  F DISPLAYS  FIRST  BANK 

R0049  V 33  E PROCEED,  DISPLAYS  NEXT  BANK 


P 0050  EXIT  MODES,  NORMAL  AND  ALARM 


R0051  SELF-CHECK  NORMALLY  CONTINUES  INDEFINITELY  UNLESS  THERF  IS  AN  ERROR  DFTFCTED.  IF  SO  + OPTION  NUMBERS  PUT 

R0053  CCMPUTER  INTO  BACKUP  IDLE  LOOP,  - OPTION  NUMBERS  RESTART  THE  OPTION. 

R 00-5 4-  XHF- _—  Cl  OPTION  PROCFFPS  FROM  THF  I INF  F01  LOWING  THF  LINF  WHERE  THE  ERROR  WAS  DETECTED. 

R0057  SHOW-BANKSUM  PROCEEDS  UNTIL  A TERMINATE  IS  KEYED  IN  (V  34  E).  THE  COMPUTER  IS  PUT  INTO  THE  BACKUP  IDLE  LOOP 

R0059 


R0060  OLTPLT 


GAP:  ASSE 
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R0061  SELF-CHECK  UPON  DETECTING  AN  ERROR  LOADS  THE  SELF-CHECK  ALARM  CONSTANT  (01102)  INTO  THE  FA ILREG  SFT  AND 

R0063  TURNS  ON  THE  ALARM  LIGHT.  THE  OPERATOR  MAY  THEN  DISPLAY  THE  THREE  FAILREGS  BY  KEYING  IN  V 05  N 09  E.  FOR  FURTHER 

P 006 5 INFORMATION  HE  MAY  K F Y IN  V 05  N OR  F,  THFDSKY  DISPLAY  IN  PI  WILI BE  ADDRESS*!  OF  WHERE  THE  ERROR  WAS  DETECTED, 

R0067  IN  R2  THE  BB CON  OF  SELF-CHECK,  AND  IN  R3  THE  TOTAL  NUMBER  OF  ERRORS  DETECTED  BY  SELF-CHECK  SINCE  THE  LAST  MAN 
R0069  INITIATED  FRESH  START  (SLAP1). 

pnn7^ puny— RANK  RUM  STARTING  WITH  RANK  0 DISPLAYS  IN  R 1 THE  BANK  SUM  (A  +— NUMBER  EQUAL  TO  THE  BANK  NUMBER),  IN  R 2 

R0075  THE  BANK  NUMBER,  AND  IN  R3  THE  RUGGER  WORD. 


R0076  ERASABLE  INITIALIZATION  REQUIRED 

*0077 AGCOMP-L  I-S-HE-D— B-Y  -FRESH  START 

R 0078  SMODE  SET  TO  +0 


R0079 


DEBR I S 


R0080— 

R0082 

- -A LX-  EXIT 
EXCEPTION  IS 

S -FRCM  THE  G-H8SK— QE 
A RESTART.  RESTART 

L-RAi 

THAT 

>A  84S  XtJXAS-CHKX-  RES-Ul-Rb-  URXG-IJMAJ CLUN1 . J U Kbb_l  S lJxRS 

OCCURS  DURING  ERASCHK  R ESTDRFS  ERASABLE,  UNLESS  THERE 

-UNU.fc.K.  LHrL.  K « 

IS  EVIDENCF  TO  DOUBT 

R0084 

E MEMCPY 

, IN 

WHI  CH 

CASE  PROGRAM 

THEN 

DOES  A FRESH  START 

(DOFSTAPT) . 

0085 

25,3671 

BANK 

25 

- 0086 

— RE£_ 

1 

_ -43-^20-00 

SETLCLC 

S EL  F CHEC 

0087 

43, 3240 

BANK 

0088 

RJ=E 1 

r.niiNT* 

$ S/SfLF 

0089 

REF 

54 

LAST 

1094 

4753 

SB I T 1 

EQUALS 

BITl 

0090 

REF 

52 

LAST 

1094 

4752 

SBI  T2 

EQUALS 

RIT2 

QQ-91 — 

RXF 

38  - 

-LAST 

10  9 4 

AX5-L 

SB  1X3- 

FOUAI  S R I T 3 

0092 

REF 

42 

LAST 

1094 

4750 

SBIT4 

EQUALS 

BIT4 

0093 

REF 

38 

LAST 

1009 

4747 

SBI  T5 

EQUAL  S 

B I T 5 

0094- 

R-EF 

-45— 

L-AST 

-X05X— 

4 746 

S-BIT6 

EQUAL  S 

B I T 6 

0095 

REF 

45 

LAST 

10  9 1 

4 74  5 

SBIT7 

EQUAL  S 

B I T 7 

0096 

REF 

37 

LAST 

1117 

4744 

SBIT8 

EQUALS 

B I T 8 

0037 — 

—REF 

—20— 

-LAST- 

- 97  8 

_ 4 743  _ - 

SBI  T9 

FOUAI  S R I T9 

0098 

REF 

47 

LAST 

1094 

4742 

SBI T10 

EQUAL  S 

BIT10 

0099 

REF 

34 

LAST 

1094 

4741 

SBIT11 

EQUALS 

B I T 1 1 

0X0-0 

— R£-E— 

.42 

LASJ 

109  4 

.4  74-0 

SB1T12 

EQUALS 

RIT12 

0101 

REF 

45 

LAST 

1094 

4737 

SBI T 1 3 

EQUAL  S 

BIT13 

0102 

REF 

77 

LAST 

1256 

4736 

SBIT14 

EQUALS 

BIT14 

0X03 

-.REF 

44 

LA  SI 

I0_9  4 

4 735- 

SBI T15 

EQUALS 

BITl  5 

0104 

REF 

223 

LAST 

12  1 5 

4755 

S+2ER0 

EQUALS 

ZERO 

0105 

. .R-EF- 

-55. 

LAST 

J.27  9. 

4753 

S + l 

EQUALS  RIT1 

0106 

REF 

53 

LAST 

1279 

4752 

S + 2 

EQUALS 

B I T2 

0107 

REF 

35 

LAST 

1258 

6 244 

S + 3 

EQUAL  S 

T HP  E E 

0108 

R-E-F- 

2-6  - 

-LASX 

12-5  6 - 

4EZ51 

S + 4 

FOUAI  S 

FOUR 

0109 

REF 

21 

LAST 

1029 

4756 

S + 5 

EQUALS 

FIVE 

0110 

REF 

25 

LAST 

1259 

6 241 

S+6 

EQUAL  S 

SIX 

GAP 
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SEL  F- 

■CHECK 

USER ' S PAGE  NO.  3 EO  S3 

0111 

REF 

17 

LAST 

109  4 

4757 

S + 7 

EQUALS  SEVEN 

0112 

REF 

15 

LAST 

1084 

4357 

S8B  ITS 

EQUALS  L0W8 

00377 

9 

4771 

CNTRCON 

= - OCI  50  - . _ - 

U.S.EH  IN  -CN-TRCHK 

Oil  4 

43, 3240 

00061 

0 

ERAS CONI 

OCTAL  00061 

USED  IN  ER4SCHK 

0115 

43, 3241 

01373 

1 

ERA  SC0N2 

OCTAL  01373 

USED  IN  FPASCHK 

R FF 

g_ 

1 ART 

10  9-4- 

5 007 

-ERA  SCON-6 

= OCT  14-0.0  . 

USED  IN  ERASCHK 

0117 

43, 3242 

01461 

0 

ERA  SC0N3 

OCTAL  01461 

USED  IN  ERASCHK 

0118 

43, 3243 

01773 

0 

ERASC0N4 

OCTAL  01773 

USED  IN  ERASCHK 

0110 

.REF 

20 

1 AST  1019 

5012 

S10BITS- 

_EQUAL  S L0W10 

01777,  USED  IN  ERASCHK 

0120 

REF 

3 

LAST 

906 

5020 

SBNK03 

EQUALS  PRIC6 

06000,  USED  IN  ROPECHK 

0121 

REF 

7 

LAST 

1094 

4350 

-MAXADRS 

= H 15 

FOR  ROPECHK 

01  ?? 

43j  3-244 

00060 

-1- 

SIXTY 

OCTAL  00060 

0123 

43,3245 

60017 

1 

SUPRCON 

OCTAL  60017 

USED  IN  ROPECHK 

0124 

43,3246 

17777 

0 

S13BITS 

OCTAL  17777 

01-2  5 

43, 3247 

25252 

0 

-C0NC  + S1 

OCTAL  .252  5 2 _ 

USFD  IN  CYCL  SHCT 

0126 

43, 3250 

52400 

1 

C0NC+S2 

OCTAL  52400 

USED  IN  CYCLSHFT 

0127 

43, 3251 

76777 

1 

ERA  SC  ON  5 

OCTAL  76777 

71-1  2 8 

R FF 

2 

L A S-J 

-2  4-7 

-5-66-0- 

S-7 

= OCI 77770 

0129 

REF 

2 

LAST 

1003 

6111 

S-4 

EQUALS  NEG4 

0130 

REF 

3 

LAST 

890 

7744 

S— 3 

EQUALS  NEG3 

0 1 31 

R E-F 

6 

-EAST 

1Q-9l8 

7745 

S— -2 

EQUALS  NEG2 

0132 

REF 

12 

LAST 

109  4 

7746 

S— 1 

EQUALS  NEGONE 

0133 

REF 

28 

LAST 

99  1 

4754 

S-ZERO 

EQUALS  NEGO 

0134 

REF 

46 

LAST 

1127 

E 3 , 1 400 

EBANK=  L ST  1 

0135 

REF 

3 

LAST 

30  6 

43, 3252 

01371 

0 

ADR  S 1 

ADRES  SKEEP1 

01-36— 

REF 

- 4- 

—LAST 

111  1 

_ 43,3253 

033_44 

1 

SELFADR  S 

ADRES-  SELFCHK 

SELFCHK  RETURN  ADDRESS.  SHOULD  BF  PUT 

AO  1 37 

IN  SELFRET  WHEN  GOING  FROM  SELFCHK  TO 

A0138 

SHOWSUM  AND  PUT  IN  SKEEP1  WHEN  GOING 

_ A 013-9— 

FROM  SHOWSUM  TO  SELF-CHECK. 

0140 

REF 

6 

LAST 

230 

43, 3254 

3 13  60 

0 

PRERRORS 

CA  F R F S TORE 

IS  IT  NECESSARY  TO  RESTORE  ERASABLE 

04-44 

43,3  255  - 

o oao6 

1 

EXTEND 

0142 

REF 

1 

43,3256 

1 3265 

1 

BZF  ERRORS 

NO 

0143 

43,3257 

0 0006 

1 

EXTEND 

04-4-4 — 

R-E-F  - 

3_ 

LAST- 

—23.0 

43 ,3260  _ 

3 1376 

1 

DC  A SK£FP5 

0145 

REF 

3 

LAST 

230 

43,3261 

51*377 

0 

INDEX  SKEEP7 

0146 

43, 3262 

52  001 

1 

DX  C H 0000 

RESTORE  THE  TWO  ERASABLE  REGISTFRS 

014  7 

REF 

2 

1ASJ 

3 0-5_ 

43,3263 

3 47  55 

1 

CA  S+ZFRO 

0148 

REF 

7 

LAST 

1280 

43, 3264 

55 ' 3 60 

1 

TS  F RF  STORE 

0149 

43, 3265 

0 0004 

0 

ERRORS 

INHINT 

0130 

REF 

334 

-LAST 

1203 

43,3366 

3 0002 

-Q 

CA  22 

0151 

REF 

3 

LAST 

48  4 

43, 3267 

55*357 

0 

TS  SFA1L 

SAVE  Q FOR  FAILURE  LOCATION 

0152 

REF 

3 

LAST 

320 

43,3270 

55*363 

1 

TS  ALMCADR 

FOR  DISPLAY  WITH  BBANK  AND  FR  COUNT 

0153 

- REE 

3 

_LAST 

2 2 6 _ 

43, 3271 

25*365 

n 

INCR  ERCOUNT 

KEEP  TRACK  OF  NUMBER  OF  MALFUNCTIONS. 

0154 

REF 

1 

43,3272 

0 5571 

l 

TCALARM2 

TC  A LA  R M2 

0155 

43, 3273 

01102 

0 

OCT  01102 

SELF-CHECK  MALFUNCTION  INDICATOR 

01  56 

RFF 

5 

1 AST 

32  0 

43,3  274 

11*362 

0 

CCS  SMODE 

0157 

0158 


REF 

REF 


3 LAST  1280 
6 LAST  1280 


43.3275  3 4755  1 SIDLOOP  CA 

43.3276  55 1 362  0 TS 


S + Z F PO 
SMOD  E 
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0159 

0160 

REF 

REF 

5 

4 

LAST 

LAST 

1280 

1280 

43,3277 

43,3300 

0 3344 
0 1357 

1 

1 

TC 

TC 

SEIFCHK 
S F A I L 

GO  TO  IDLE  LOOP 
CONTINUE  WITH  SELF-CHECK 

0161 

REF 

385 

LAST 

1259 

43, 3301 

10  000 

0 

— 1CHK  CCS 

A 

0162 

REF 

1 

43, 3302 

1 3254 

0 

TCF 

PREP  RORS 

fi  1 A 8 

REF 

2 

L AST 

12-8-1 

43-,  3303 

L 32  54 

0- 

_ . - TCF. 

PRFR  RORS 

0164 

REF 

386 

LAST 

128  1 

43, 3304 

10  000 

0 

CCS 

A 

0165 

REF 

3 

LAST 

128  1 

43,3305 

1 3254 

0 

TCF 

PRER  RORS 

R FF 

8 ? s 

1 ART 

12  8 0 

43,3306 

0 0002 

-0- 

TC  - 

__Q 

0167 

43, 3307 

0 0006 

1 

SMODECHK  EXTEND 

0 1 Ail  - 

REF 

4 

— L AST 

12  8 0 

- 43,3310 

23' 371- 

Q 

- _ QXC:< 

..SK.EE  PI 

0169 

REF 

i 

43,3311 

0 3340 

0 

TC 

CHFC  KNJ 

CHECK  FOR  NEW  JOB 

0170 

REF 

7 

LAST 

1280 

43,3312 

1 1 ' 3 62 

0 

CCS 

S POD  E 

0171 

REF 

1 

43,  3323 

0 332.0 

0 

TC 

SOPT IONS 

0172 

REF 

1 

43,3314 

0 3311 

1 

TC 

SMODECHK  +2 

TO  BACKUP  IDLE  LOOP 

0173 

REF 

2 

LAST 

128  1 

43, 3315 

0 3320 

0 

TC 

SOPT  IONS 

0174 

--R-RR. 

2- 

L-AS-T- 

12A 

43, 3316 

75’ 366 

_Q_ 

■ NCR 

SCOUNT 

0175 

REF 

5 

LAST 

128  1 

43,3317 

0 1371 

0 

TC 

SKEF  PI 

CONTINUE  WITH  SELF-CHECK 

- 0176 

R-EF 

1 

4 3,  3-320 

6 56-60- 

1 

SOP T IONS.  AD  - 

.3-7  - 

0177 

43,3321 

0 0006 

1 

EXTEND 

0178 

43, 3322 

6 3324 

1 

BZMF 

+ 2 

FOR  OPTIONS  BELOW  NINE. 

REF 

1 

43 , 3323 

-0-32  75 

_J 

B.NK.OPTN  T2 

JSi-DLOOP 

ILLEGAL  OPTION.  GO  TO  IDLE  LOOP. 

0180 

REF 

3 

LAST 

128  1 

43,3324 

2 5 ’ 366 

0 

I NCR 

SCOUNT 

FOR  OPTIONS  BELOW  NINE. 

0181 

REF 

1 

43,3325 

6 4757 

0 

AD 

S + 7 

0182 

REF 

3 87 

LAST 

128  1 

43,3326 

50  000 

1 

INDEX 

A 

0183 

RFF 

1 

43,3327 

0 3330 

1 

TC 

SOPT  TONI 

- 0164 

REF 

6— 

CAST 

128  1 

43r  3 3^0 

0 1^71 

0 

S-GPTJ-ONi-  TC 

SK  F F PI 

yAS  TC+TCF 

0185 

REF 

7 

LAST 

128  1 

43,3331 

0 1371 

0 

S0PTI0N2  TC 

SKEE  PI 

WAS  I N : OUT  L 

0186 

REF 

8 

LAST 

128  1 

43, 3332 

0 1371 

0 

SOP  T I ON  3 TC 

SKEF  PI 

WAS  COUNTCHK 

0 18  7 

REF 

1 

43,3  333- 

-0-3345 

-0 

SCPTI0M4  TC 

ERASCHK 

0188 

REF 

1 

43,3334 

0 3526 

0 

S0PTI0N5  TC 

ROPECHK 

0189 

REF 

9 

LAST 

128  1 

43, 3335 

0 1371 

0 

S0PTI0N6  TC 

SKEE  PI 

0.L9Q 

-REF 

- 10 

LAST  _ 

1232 

43,3  336 

0 1371 

0 

S0PTI0N7  TC 

SKFE  PI 

0191 

REF 

11 

LAST 

128  1 

43,3337 

0 1371 

0 

SOPTON 1 0 TC 

SKEF  PI 

CONTINUE  WITH  SELF-CHECK 

01-92 

4 3 ,-3-3-40 

0 0006 

1 

CHECKNJ  EXTFMO 

0193 

REF 

7 

LAST 

11  1 1 

43,3341 

2 3 1 3 6 1 

1 

QXCH 

SELF  RET 

SAVE  RETURN  ADDRESS  WHILE  TESTING  NEWJOB 

0194 

REF 

49 

LAST 

1152 

43, 3342 

0 4635 

0 

TC 

POST  JUMP 

TO  SEE  IF  ANY  JOBS  HAVE  BECOME  ACTIVF. 

01-95 REF 2 LAST  11 0-5 43,  3343 0371  1 0 CA DR  ADVAN 


0196 

REF 

2 LAST 

128  1 

43,3344  0 3307 

0 SELFCHK  TC 

SMODECHK 

**  CHARLEY,  COME  IN  HERE 

R0197 

R0198 

R 0 L9  -9-  - 

SKEEP7 
SKEEP6 
— SKFEP  5 

HOLDS 

HOLCS 

—HOLDS— 

LOWE  ST 
BIX  + l) 
B (X  ).. 

OF  TWO  ADDRESSES 

BEING  CHECKED. 

R0200  SKEEP4  HOLDS  C(EBANK)  DURING  ERASLOOP  AND  CHECKNJ. 

R0201  SKEEP3  HOLDS  LAST  ADDRESS  BEING  CHECKED  (HIGHEST  ADDRESS). 


-GAP 
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R0202 
R 02  04 

SKEEP2  CONTROLS  CHECKING  OF  NON-S W I T CH A BL E ERASABLE  MEMORY  KITH  BANK 
ERASCHK  TAKES  APPROXMATELY  7 SECONDS 

Dec  9 i A‘.  1 306  43.3345  3 4 7 5 3 I ERASCHK CA  _S_+1—  . 

NUMBERS  IN  EB. 

0206 

REF 

3 

LAST 

305 

43, 3346 

55' 372 

1 

TS 

SKFE  P2 

0207 

REF 

4 

LAST 

12  8 0 

43, 3347 

3 4755 

1 

OEBANK 

CA 

S + ZE  PC 

REF 

SO 

1 AST 

1-0  8 4 

43, 3350 

56  0 03 

0 

TS 

EBANK 

020^ 

REF 

1 

43, 3351 

3 3242 

0 

CA 

ERASC0N3 

01461 

0210 

REF 

4 

LAST 

1280 

43, 3352 

55*377 

1 

TS 

SKEE  P7 

STARTING  ADDRESS 

n?i  l 

2 FF 

1 

43,3353 

3 5012. 

1 

CA 

s ioe  ITS 

01777 

0212 

REF 

3 

LAST 

30  5 

43,3354 

55*373 

0 

TS 

SKFE  P3 

LAST  ADDRESS  CHECKED 

0213 

REF 

1 

43,3355 

0 3375 

0 

TC 

ERASLOOP 

0214 

REF 

1 

43,3356 

3 5007 

0 

E 1 34567  B 

CA 

ERAS  C0N6 

01400 

0215 

REF 

5 

LAST 

1282 

43, 3357 

55*377 

1 

TS 

SKEE  P7 

STARTING  ADDRESS 

1 AST 

1 PB  P 

_A3 , 3360 

3-5-012 

_L 

CA 

_ S10B  ITS  - 

01777 

0217 

REF 

4 

LAST 

128  2 

43, 3361 

55*373 

0 

TS 

SKEE  P3 

LAST  ADDRESS  CHECKED 

0218 

REF 

2 

LAST 

128  2 

43, 3362 

0 3375 

0 

TC 

ERAS  LOOP 

0219 

RFF 

2 

LAST 

1282 
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L 

AGC 

BLOCK  TWO 

SELF- 

•CHECK 

USER'S  PAGE  NO.  9 E3  S4 

0390 

REF 

5 

LAST 

1285 

43.  3623 

0 3625 

0 

TC 

CONTINU  +1 

AD  IN  THE  BUGGER  WORD 

0391 

REF 

7 

LAST 

1285 

43,3624 

3 4753 

1 

CONT INU 

CA 

S + l 

MAKE  SURE  TWO  CONSECUTIVE  TC  SELF  WORDS 

L 

1 ? A 6 

43f  3625 

*5.5  •8  75  0 

TS 

SKFFP5 . . 

03921 

REF 

5 

LAST 

1284 

43,3626 

1 1 ' 3 76 

0 

CCS 

SKEE  P6 

* 

03922 

REF 

21 

LAST 

11  1 1 

43,3627 

10  067 

1 

CCS 

NEWJOB 

* +1,  SHOWSUM 

R F F 

1 AST 

7 ? *5 

4At  A630 

- 0-5122 

0 

TC 

C HA-MG-l 

03929 

43,3631 

0 3633 

1 

TC 

+ 2 

* 

0393 

REF 

3 

LAST 

128  3 

43, 3632 

0 3340 

0 

TC 

CHEC  KNJ 

-0  IN  SKEEP6  FOR  ROPECHK 

0394 

REF 

14 

LAST 

1285 

43, 3633 

2 5 ' 3 73 

1 

ADRS+1 

INCR 

SKEEP3 

0395 

REF 

21 

LAST 

128  5 

43,3634 

1 1 ' 3 77 

1 

CCS 

SKEE  P7 

0396 

REF 

I 

43xJ3_635 

0 3541 

-l 

TC 

COMADRS 

0397 

REF 

2 

LAST 

1286 

43, 3636 

0 3541 

1 

TC 

COMADRS 

0398 

REF 

1 

43,3637 

0 3565 

1 

TC 

FXADPS 

03  99 

REF 

? 

LAST 

128  6 

43,3-640 

0 3565 

1 

TC 

F XADRS 

0400 

REF 

7 

LAST 

1284 

43,3641 

4 13  74 

1 

NXTBNK 

cs 

SKEEP4 

0491 

__  -H-F-F 

1 

- 43 1 3 642 

6 37  31 

1 

_JlD 

LSTBNKCH 

LAST  BANK  TO  BE  CHECKED 

0402 

43, 3643 

0 0006 

1 

EXTEND 

0403 

REF 

1 

43, 3644 

1 3137 

0 

BZF 

ENDSUMS 

END  OF  SUMMING  OF  BANKS. 

0404 

REF 

_ 8 

LAS  T 

128  6 

43,3645 

3 13  74 

0- 

CA 

SKEE  P4 

0405 

REF 

2 

LAST 

1285 

43, 3646 

6 4741 

1 

AO 

SPI T 11 

0406 

REF 

9 

LAST 

1286 

43, 3647 

55*374 

1 

TS 

SKEE  P4 

37  TO  40  INCRMTS  SKEEP4  BY  END  RND  CARRY 

0407 

RFF 

1 

43, 3650 

0-  36-54- 

-CL 

TC  _ 

C HKS  UPR 

0408 

REF 

1 

43,3651 

3 47  3 5 

1 

17T020 

CA 

SB  IT  15 

0409 

REF 

10 

LAST 

1286 

43,3652 

2 7 • 3 74 

1 

ADS 

SKEF  P4 

SET  FOR  BANK  20 

- -0-4 1 Q 

RE-F 

1 

43, 3653 

0 3670 

0 - 

TC 

GO NX TBNK 

0411 

REF 

9 

LAST 

1284 

43, 3654 

7 43  50 

1 

CHKSUPR 

MASK 

H 15 

0412 

43,3655 

0 0006 

1 

EXTEND 

04-13 

REF- 

1 

43,3656 

1 36.6i, 

0 

87- F 

NXTSUPR 

INCREMENT  SUPER  BANK 

0414 

REF 

1 

43,3657 

6 3246 

1 

27T030 

AD 

S13B  ITS 

0415 

43,3660 

0 0006 

1 

EXTEND 

0416 

- 43,3661 

1 3663 

0 

BZ  F 

+ 2 

BANK  SET  FOR  30 

0417 

REF 

2 

LAST 

1286 

43, 3662 

0 3670 

0 

TC 

GONXTBNK 

0418 

REF 

1 

43,3663 

3 32  44 

0 

CA 

SIXTY 

FIRST  SUPER  BANK 

04 1-9 

-REF 

11 

-LAST 

-L28  6 

43,-3  664- 

27*374 

1 

ADS 

SKEE  P4 

0420 

REF 

3 

LAST 

1286 

43, 3665 

0 3670 

0 

TC 

GONXTBNK 

0421 

RFF 

1 

43,3666 

6 3245 

1 

NXTSUPR 

AD 

SUPPCON 

SET  BNK  30  + INCR  SUPR  BNK  AND  CANCEL 

04-22 

— R-EE- 

12 

LAST- 

128  6 

4 3, 3 667 

_ 27 '3 74 

1 

ADS 

SKFE  P4 

ERC  BIT  OF  THE  37  TO  40  ADVANCE. 

0423 

REF 

22 

LAST 

1286 

43,3670 

1 1 *377 

1 

GONXTBNK 

CCS 

SKEE  P7 

0424 

REF 

1 

43,3671 

0 3533 

1 

TC 

COMM  FX 

042  5-- 

REF- 

8 _ 

LAST 

128  6 

43,3672 

3 4753 

1 

CA 

S + l 

0426 

REF 

1 

43,3673 

0 3551 

0 

TC 

FXFX 

0427 

REF 

1 

43, 3674 

3 4745 

0 

CA 

SBIT7 

HAS  TO  BE  LARGER  THAN  NO  OF  FXSW  BANKS. 

0428 

RFF 

? 

LAST 

1286 

43x3675  0 3533 

1 

TC 

CCMMFX 

0429 

REF 

13 

LAST 

1286 

43, 3676 

3 1374 

0 

SOP  T I ON 

CA 

SKEE  P4 

0430  _ 

_ REF- 

_ 10  . 

LAST 

1286 

43,3677 

7 43  50 

1 

MASK 

H I 5 

= BANK  BITS 

0431 

REF 

5 

LAST 

450 

43, 3700 

0 4331 

1 

TC 

LFFT5 

0432 

REF 

219 

LAST 

1285 

43,3701 

54  001 

1 

TS 

L 

BANK  NUMBER  BEFORE  SUPER  RANK 

GAP 


ASS  EM  BLE--R  EV  IS  ION  0 b-9 — OF  4GG  PR-OGRA  M LUM-IN  ARY  BY  NASA  _ 2021 1-12-01] 


3 9102  NOV.-  2-5,-1-968 SKIPPER  .070 PAG F 1 287 


L AGC  BLOCK  TWO  SELF-CHECK 


USER' S PAGE  NO.  10  E3  S4 


0433 

REF 

14 

LAST 

1286 

43, 3702 

3 1374 

0 

CA 

SKEE  P4 

04-34 

REF 

1 

43, 3703 

7 43  5 7 

0 

MASK 

S8BITS 

= SU°ER  BANK  BITS 

43_,  3 7Q4 

0 00  Q6__ 

_L 

EXTEND 

0436 

REF 

1 

43, 3705 

1 3713 

0 

8ZF 

SDPT 

BEFORE  SUPER  BANK 

0437 

REF 

23 

LAST 

128  4 

43,  3706 

54  021 

0 

TS 

SR 

SUPER  BANK  NECESSARY 

| A9T 

1 PR  h 

43,3-707 

3 0 00.1 

0 

CA 

L 

0439 

REF 

18 

LAST 

1280 

43,3710 

7 4757 

1 

MASK 

SEVEN 

0440 

REF 

24 

LAST 

1287 

43,  3711 

6 0021 

1 

AD 

SR 

-fi-F  F 

? ? 1 

1 A9I 

128  7 

43,3712 

54  OOL  1 

TS 

J 

BANK  NUMBER  WITH  SUPER 

BANK 

0442 

REF 

6 

LAST 

1286 

43,3713 

3 1376 

1 

SOPT  CA 

SKEE  P6 

* 

0443 

43,3714 

0 0006 

1 

EXTFND 

* 

0444 

43-,  3715 

1 3717- 

1 

- _ BZF 

±Z 

* ON  -0  CONTINUE  WITH 

ROPE  CHECK. 

0445 

REF 

i 

43,3716 

0 3121 

0 

TC 

SDI SPLAY 

* ON  +1  GO  TO  DISPLAY 

OF  SUM. 

0446 

REF 

18 

LAST 

1285 

43,3717 

l 1 1 3 71 

1 

CCS 

SKEE  PI 

FORCE  SUM  TO  ABSOLUTE 

VALUE. 

_ 044-6  1 

43, 3 77  0 

- 9 3722- 

_CL 

TC 

*2 

04462 

43, 3721 

0 3723 

1 

TC 

+ 2 

04463 

REF 

9 

LAST 

1286 

43, 3722 

6 4753 

1 

AD 

S + l 

04464  - 

-JLE.F 

19 

LAST 

.128  7. 

43 1 3 723 

55 '3  77 

1 

TS 

SKEE  PI 

0447 

REF 

222 

LAST 

1287 

43, 3724 

4 0001 

1 

BNKCHK  CS 

L 

= - BANK  NUMBER 

0448 

REF 

20 

LAST 

1287 

43,3725 

6 1371 

0 

AD 

SKEE  PI 

0449 

-R.E-F 

2_ 

LASJ 

128  5 _ 

_ 43,3  726 

6 . 7746 

-0 

AO 

-S--1 

0450 

REF 

5 

LAST 

1284 

43, 3727 

0 3301 

0 

TC 

- 1CHK 

CHFCK  SUM 

0451 

REF 

2 

LAST 

30  5 

43, 3730 

0 3641 

1 

TC 

N X T B NK 

0454 

REF 

22 

l AST 

1286 

0067 

EB ANK= 

NEW J CB 

0455 

43, 3731 

66100 

0 

LSTBNKCH  BBCON* 

* CONSTANT,  LAST  BANK. 
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PHASE  TABLE  MAINTENANCE  USER'S  PAGE  NO.  1 EO  S4 


P0001 

SUBROUT  I NE 

TO  UPDATE 

THE  PROGRAM  NUMBER 

DISPLAY  ON  THE  DSKY 

• 

COUNT  * 

$ t./PHASF 

0002 — 

0003 

5311 

BLOCK 

02 

0004 

REF  1 

4000 

SETLOC 

FFTAG1 

531  1 

-BANK  - 

0006 

REF  327 

LAST 

12  8 5 

5311 

50  002 

0 

NEWMODEX 

INDEX 

0 

UPDATE  MOOREG.  ENTRY  FOR  MODE  IN  FIXED. 

5312 

3 0000 

CAF 

Q _ 

0008 

REF  326 

LAST 

1288 

5313 

24  002 

0 

I NCR 

Q 

5 3 1 4 

- 5 5*01 1 

1 

-NEW-M0OEA 

J s 

MOOR  FG 

— ENTRY  FOR  MODF  IN  A. 

0014 

5315 

3 5320 

0 

MMDSPL AY 

CAF 

+ 3 

DISPLAY  MAJOR  MODE. 

0015 

REF  38 

LAST 

12  0 8 

5316 

22  006 

1 

PREBJUMP 

LXCH 

8 RANK 

PUTS  B3ANK  IN  L 

4 ART 

177  0 

5317 

1 4640- 

-0- 

T.CF 

BANK JUMP 

PUTS  Q INTO  A 

0017 

REF  1 

5320 

20071 

0 

CADR 

SETUPDSP 

RFTIIRW  T n 

f A1  1 FR  +3 

I F MOPE 

_ 

JLHAT  AT  CALLER.  +1.  OTHERWISE 

RETURN  TO  CAI  1 FR  +2. 

0020 

REF  329 

LAST 

1288 

5321 

50  002 

0 

CHECKMM 

INDEX 

Q 

5 322 

4 0000 

0 

CS  _ 

0 

0022 

REF  19 

LAST 

1288 

5323 

6 1011 

0 

AD 

MOOR  FG 

0023 

5324 

0 0006 

1 

EXTEND 

00?4. 

R£f  3 

1 ART 

110  0 

5 32L5 

_1  6740 

0 

BZf 

Q+2 

0025 

REF  4 

LAST 

53  2 

5326 

1 6736 

1 

TCP 

0 + 1 

NO  MATCH 

-0026 R-EF 4 LAST  12-8-8 6-7-41 ICQ = Q+2  + 1. 


0027 

14,3711 

BANK  14 

0D7-R 

- R-FF 

1 

1 0 1 7 000 

-SETLOC  PHASETAB 

0029 

10,2071 

BANK 

00-30 

R-F  F - 

1 

COUNT*  $ $ / P FiASE 

00  31 

10,2071 

0 0004 

0 

SETUPDSP 

INHINT 

0032 

REF 

40 

LAST 

903 

10,2072 

52  071 

0 

DXCH  RUPTREG1 

SAVE  CALLER-S  RETURN  2 C ADR 

0 033 

R-E-f 

11 

LAST 

10-94 

1 0, 7073 

3 4355 

0 

CAF  P P I-CL3 0 

EITHER  A TASK  OR  JOB  CAN  COME  TO 

0034 

REF 

26 

LAST 

11  1 6 

10,2074 

0 5072 

1 

TC  NOVAC 

NEWMODEX 

0035 

REF 

20 

LAST 

1288 

1011 

EBANK=  MOOR  EG 

00-36 

R E-f- 

1 

10,2075 

D3532 

0 

RCA DR  DSPMMJOB 

0036 

REF 

1 

10, 2076 

60102 

1 

0037 

REF 

41 

LAST 

1288 

10,2077 

52  071 

0 

DXCH  RUPTREG1 

— 0038 

10j  2 100 

0 0003 

1 

RELINT 

0039 

REF 

22 

LAST 

864 

10,2101 

52  006 

0 

DXCH  Z 

RETURN 

0040 

REF 

2— 

LAST 

-47  C 

4TU-3  53-2 

DSPMMJOB 

EQUALS  DSP^MJ” 

0042 

REF 

2 LAST  1288 

5 jc  1 
4000 

tiL-UUK — 

SETLOC 

-LLZ 

FFTAG1 

0043 

5327 

BANK 

GAP: 
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L PHASE  TABLE  MAINTENANCE  USER'S  PAGE  NO.  2 FO  S4 


P0044  PHASCHNG  IS  THE  MAIN  WAY  OF  MAKING  PHASE  CHANGES  FOR  RESTARTS.  THERE  APE  THREE  FORMS  OF  PHASCHNG,  KNOWN  AS  TYPE 

R0046  A,  TYPE  B,  AND  TYPE  C.  THEY  ARE  ALL  CALLED  AS  FOLLOWS,  WHERF  OCT  XXXXX  CONTAINS  THE  PHASE  INFORMATION, 


A0048 

A0049 

TC 

OCT 

PHASCHNG 

XXXXX 

R0050 
R 00  52 

TYPE  A IS  CONCERNED  WITH  FIXED 
OPTIONS  ARE,  WHERE  G STANDS  FOR 

PHASE  CHANGES, 

A GROUP  AND  .X 

THAT  IS, 
FOR  THF 

PHASE  INFORMAT IONTHAT  IS  STORED  PERMANENTLY.  THESE 
PHASE  , 

R0053 

R0055 

R0057 

G.O 

G.l 

G-.-EYEEI 

INACTIVE,  WILLNOT  PERMIT  A GROUP 
WILL  CAUSE  THE  LAST  DISPLAY  TO  BE 
A DOUBLE  TABLE  RESTART,  CAN  CAUSE 

G RFSTART 

REACTIVATED,  USED  MAINLY  IN  MANNED  FLIGHTS 
ANY  COMBINATION  OF  TWO  JOBS,  TASKS,  AND/OR 

R0059 

R0060 

G .ODD  NOT  .1 

LONGCALL  TO  BE 
A SINGLE  TABLE 

RESTARTED. 

RESTART,  CAN  CAUSE 

EITHER  A JOB,  TASK,  OR  LONGCALL  RFSTART 

R0062 

THIS  INFORMATION  IS  PUT  INTO 

THE  OCTAL  WORD  AFTER  TC  PHASCHNG  AS 

FOLLOWS 

ROO-A"} 

Tin  nn_P  ppp 

PPP 

_G.G£ 

R0065 
R 00-67 

WHERE  EACH  LETTER  OR  NUMBER 
OCTAI  0 - IP 7 0;S  MUST  BE 

STANDS  FOR  A BIT. 
0.  IF 

THE  G : S STAND  FOR 
ONE  WLSHES  TO.  HAVE 

THE  GROUP,  OCTAL  1 - 7,  THE  P:S  FOR  THE  PHASE, 
THE-  TBAJiE  OF  GROUP  G TO  BE  SET  AT  THIS  T IMF , 

R0069 

R0071 

T IS  SET  TO  1, 
IT  IS  SET  TO  0. 

OTHERWISE  IT  IS 
SOME  EXAMPLES, 

SET  TO  0.  SIMIARLY  IF 

ONE  WISHES 

TO  SET  LONGBASE,  THEN  L IS  SFT  TO  1,  OTHERWISE 

A0072 

A0073 

TC 

OCT 

PHASCHNG 
9000  3 

THIS  WILL  CAUSE  GROUP  3 TOBE  SET  TO  0, 
MAKING  GROUP  3 INACTIVE 

A 00  74 
A0075 

TC 

OCT 

PHASCHNG 
000  1 2 

IF  A RESTART  OCCURS  THIS  WOULD  CAUSE 
GROUP  2 TO  RESTART  THE  LAST  DISPLAY 

A0076 
A0077 
- - A0078 

TC 

OCT 

PHASCHNG 

40064 

THIS  SETS  THE  TBASE  OF  GROUP  4 AND  IN 
CASE  OF  A RESTART  WOULD  START  UP  THE  TWO 
THINGS  LOCATED  IN  THE  DOUBLE  4.6  RESTART 

A0079 

A0080 

AO  0-8-1 

TC 

OCT 

PHASCHNG 

_20L3_5 

LOCATION 

THIS  SETS  LONGBASE  AND  UPON  A RESTART 
CAUSES  5.13  TO  BE  RESTARTED  (SINCE 

A0082 

A0083 

A0084 — 

TX 

PHA.S  CHNG 

LONGBASE  WAS  SET  THIS  SINGLE  ENTRY 
SHOULD  BE  A LONGCALL) 

SINCE  BOTH  TBASF4  AND  LONGBASE  ARE  SET, 

A 00  85 
A0086 

OCT 

60124 

4.12  SHOULD  CONTAIN  BOTH  A TASK  AND  A 
LONGCALL  TO  BE  RESTARTED 

R0087 

R0089 

TYPE  C PHASCHNG 
PERMANENT  FORM, 

CONTAINS  THE  VARIABLE  TYPE  OF  1 
ONE  STORES  THE  DESIRED  RESTART 

^HASCHNG  INFORMATION.  INSTEAD  OF  THE  INFORMATION  BEING  IN  A 
INFORMATION  IN  A VARIABKE  LOCATION.  THE  BITS  ARE  AS  FOLLOWS, 

R0091  TLO  1 AD  XXX  CJW  GGG 


R 00-9 2 —WHERE  EACH  LETTER  OR  NUMRFR  STANDS  FOR  A BIT. T_HF  G:S  STANn  FOR  THE  GRnilP.  OCTAI  1-7.  IF  THE  RFSTART  IS  TO 

R0094  BE  BY  WAITLIST,  W IS  SET  TO  1,  IF  IT  IS  A JOB,  J IS  SET  TO  1,  IF  IT  IS  A LONGCALL,  C IS  SET  TO  1.  ONLY  ONE  OF 

R0096  THESE  THREE  BIT  S MAY  BE  SET.  X:S  ARE  IGNORED  1 MUST  BE  1,  AND  0 MUST  BE  0.  AGAIN  T STANDS  FOR  THE  TBASE , 
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R0098  AND  L FOR  LONGBASE.  T HP  BITS  A AND  D ARE  CONCERNED  WITH  THE  VARIABLE  INFORMATION.  IF  D IS  SET  TO  1,  A PRIORITY 
R0100  OR  DELTA  TIME  WILL  BE  READ  FROM  THE  NEXT  LOCATION  AFTER  THE  OCTAL  INFORMATION,  IF  THIS  IS  TO  BE  INDIRECT,  THAT 

R0102 IS,  THE  NAME  OF  A I nr  AT  T DN  r.nMT  + INING  THE  INFORMATION  (DELTA  TIME  ONLY),  THEN  THIS  IS  GIVEN  AS  THE  -GENADR  OF 

THAT  LOCATION  WHICH  CONTAINS  THE  DELTA  TIME.  IF  THE  OLD  PRIORITY  OR  DELTA  TIME  IS  TO  BE  USED,  THAT  WHICH  IS 
ALREADY  IN  THE  VARIABLE  STORAGE,  THEN  D IS  SET  TO  0.  NEXT  THE  A BIT  IS  USED.  IF  IT  IS  SET  TO  0,  THE  ADDRESS 

THAT  1.0111  n PF  PFSTARTFO  DURING  A RESTART  IS  THE  NEXT  LOCATION  AFTER  THE  PHASE  INFORMATION,  THAT  IS,  EITHFR 

(TC  PHASCHNG)  +2  OR  +3,  DEPENDING  ON  WHETHER  D HAD  BEEN  SET  OR  NOT.  IF  A IS  SET  TO  1,  THEN  THE  ADDRESS  THAT 
WOULD  BE  RESTARTED  IS  THE  2C ADR  THAT  IS  READ  FROM  THE  NEXT  TWO  LOCATIONS.  EXAMPLES, 


R01C4 
R0106 
fi-01-Oa- 
R01  10 
R0112 


A0114  AD 

AO  1 1 5 AD+1 

AQ-L1-6 — AH+Z 

AO 1 1 7 AD+3 


TC  PHASCHNG  THIS  WOULD  CAUSE  LOCATION  AD  +3  TO  BE 

OCT  05023  RESTARTED  BY  GROUP  THREE  WITHA  PRIORITY 

nr.T  73000 OF  23.  NOTE  UPON  RETURNING  IT  WOULD 

ALSO  GO  TO  AD+3 


A0118 

A0119 

A0120 

A0121 

A0122 
AO  1 2 3 
-A0124 


UVD TC  P-HASCHNG 

AD+ 1 OCT  27441 

AD+2  -GENADR  DELT  IME 
AD+3  2C ADR  CALLCALL 

AD+4 
AD+5 


GROUP 1 WOULD  CAUSE  C AU5JE JCA-LU1M-L  _ T 0 

BE  STARTED  AS  A LONGCALL  FROM  THE  TIME 
STORED  IN  LONGBASE  (LONGBASE  WAS  S FT ) BY 
A OELTATIME  STORED  IN  DELTIME.  THE 
BBCON  OF  THE  2C ADR  SHOULD  CONTAIN  THE  E 
BANK  OF  DELTIME.  PHASCHNG  RETURNS  TO 
LOCATION  AD+5 


R0125  NOTE  THAT  IF  A VARIABLE  PRIORITY  IS  GIVEN  FOR  A JOB,  THE  JOB  WILL  BE  RESTARTED  AS  A NOVAC  IF  THE  PRIORITY  IS 

ROI  27 NEGAT  I-VE-,  AS  -A-EI-NDY  AC  -IE,  THE,  P-RL.Q.RIT-Y  .1  S.  P Q SI  LI  VC. 


— R 0 1-2-8 — -FY-PE-  - B-P-HA-SGHN-G— l-S^A— COMBI-NAT-I  ON  OF  VARIABLE  -AND  F I X-ED  -EHAS-E  -CHAJVG-ES.,,-  IT  .MI  LI START  UP  A -JOB  AS  INDICATED 

P0130  BELOW  AND  ALSO  START  UP  ONE  FIXED  RESTART,  THAT  IS  EITHER  AN  G. 1 OR  A G. ODD  OR  THE  FIRST  ENTRY  OF  G. EVEN 
R0132  DOUBLE  ENTRY.  THE  BIT  INFORMATION  IS  AS  FOLLOWS, 


R0133  T LI  DAP  PPP  PPP  GGG 

ROI 34 WHERE  -FA-CH  LETTER  -OR — NU-NFFR — S-TA-NGS  -FOR  A BI  T . -THE — G^-S — STAND  FOR  THE— GROUP,  OCTAI 1 - 7.-IHF  P:S  FOR  THE  FIXED 

ROI 36  PHASE  INFORMATION,  OCTAL  0 - 127.  1 MUST  BE  l.  AND  AGAIN  T STANDS  FOR  THE  TBASE  AND  L FOR  LONGBASE.  D THIS 

R0138  TIME  STANDS  ONLY  FOR  PRIORITY  SINCE  THIS  WILL  BE  CONSIDERED  A JOB,  AND  IT  MUST  BE  GIVEN  DIRECTLY  IF  GIVEN. 

R0L40 AGAIN  A STANDS  FOR  THF  ADDRFSS  OF  THE  LOCATION  TO  BE  RESTARTED.  1 IF  THE  2CADR  IS  GIVEN  , OR  0 IF  IT  IS  TO  BE 

R0142  THE  NEXT  LCC AT  ION . ( THE  RETURN  LOCATION  OF  PHASCHNG)  EXAMPLES, 


-A  0443 

AD 

TC 

PHAS  CHN£ 

TBASF  IS  S FT  AND  APFST  ART  CAUSE  GROUP  3 

A0144 

AD+  1 

OCT 

56043 

TO  START  THE  JOB  AJOBAJOB  WITH  PRIORITY 

A0145 

AD+2 

OCT 

31000 

31  AND  THE  FIRST  ENTRY  OF  3.4SP0TIWF  CAN 

-AQ-L4& 

AD  + 3 

2C  ADR 

A JOB  AJOB 

ASSUME  IT  IS  A TASK.  SINCE  WE  SFT  TBASE3) 

A 01  4 7 

AD  + 4 

UPON  RETURN  FROM  PHASCHNG  CONTROL  WOULD 

A0148 

AD+5 

GO  TO  AD+5 

A0149 

AD 

TC 

PHASCHNG 

UPON  A RESTART  THF  LAST  DISPLAY  WOULD  BE 

A 0 1 50 

AD+1 

OCT 

10015 

RESTARTED  AND  A JOB  WITH  THE  PREVIOUSLY 

A 01 51  - . 

AD+2 

STORED  PRIORITY  WOULD  BE  BEGUN  AT  AD+2 

AO  1 52 


BY  MEANS  OF  GROUP  5 
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USER'S  PAGE  NO.  A 

EO  S4 

R0153 

THE  NCVAC-FI NDVAC  CHOICE 

FOR  JOBS  HOLDS  HERE  ALSO  - 

NEGATIVE 

PRIORITY  CAUSES  A NOVAC  CALL,  POSITIVE  A 

FINDVAC. 

R0155 

SUMMARY  OF 

BITS 

u n n np 

ppp  ppp  _&GG 

R0157 

TYPE  B 

TLl  DAP 

PPP  PPP  GGG 

R0158 

TYPE  C 

TLO  1 AO 

XXX  CJW  GGG 

■GAP- 
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POL59  2PHSCHNG  IS  USED  WHEN  ONE  WISHES  TO  START  UP  A GROUP  OP  CHANGE  A GROUP  WHILE  UNDER  THE  CONTROL  OF  A DIFFERENT 
R0I6L  GROUP.  FOR  EXAMPLE?  CHANGE  THE  PHASE  OF  GROUP  3 WHILE  THE  PORTION  OF  THE  PROGRAM  IS  UNDER  GROUP  5.  ALL  2PHSCHNG 
RO 1 63 GALLS  -ARE  MADE- IN  THE  FOLLOWING  MANNER, — 


AO  1 64 
A 04-6  5- 
A0I66 


TC  2PHSCHNG 

nr.T  xxxxx 

OCT  YYYYY 


R0I67 
RO  1 69 
R017I 


WHERE  OCT  XXXXX  MUST  3-E- 

DIFFERENCE  NOTE-  IF 

BE  DISREGARDED  IF  GIVEN 


OF  TYPE  a AND  OCT  vvvw  MAY  RF  OF  FTTHFR  TYPJE_A_  OR  TYPF  B OR  TYPFC THFRF  IS  nNF 

LONGBASE  IS  TO  BE  SET  THIS  INFORMATION  IS  GIVEN  IN  THE  OCT  YYYYY  INFORMATION,  IT  WILL 
WITH  THE  OCT  XXXXX  INFORMATION.  A COUPLE  OF  EXAMPLES  MAY  HELP, 


AO  1 73 
AO  1 74 
A n ] 7 8 

AD 
AD+  1 
AD+2 

TC  2PHSCHNG 

OCT  40083 

OCT  05025 

SET  TBASE3  AND  IF  A RESTART  OCCURS  START 
THE  TWO  FNTRIES  IN  3.8  TABLE  LOCATION 
THIS  IS  OF  TYPF  C,  SET  THE  JOB  TO  RE 

A0176 
A 01 77 

AD+  3 
A D+4 

OCT  18000 

TO  BE  LOCATION  AD+4,  WITH  A PRIORITY  18, 
FOR  GROUP  5 PHASE  INFORMATION 

0178 

REF 

1 

COUNT*  $T,/PHASF 

0179 

5327 

0 0004 

0 

2PHSCHNG 

INHINT 

THE  ENTRY  FOR  A DOUBLE  PHASE  CHANGE 

n l RD 

RILF 

3 TO 

L AST 

128  8 

5 33  0 

50  002 

0 

NDX  Q 

0181 

5331 

3 0000 

1 

CA  0 

0182 

REF 

331 

LAST 

1292 

5 33  2 

24  002 

0 

INCR  0 

-04-83 R-E-E I 5333 5 4- .0-72-0 IS LEMJ1P2. 


0184 
- 0485 

REF 

1 

5334 

5335 

7 4757 
6 OJ2Q0. 

1 

1 _ 

MASK  0CT7 

DOUBL.E-  . . 

0186 

REF 

1 

5336 

54  071 

0 

TS  TEMPG2 

Q4-8-3 

R£F 

2 

l AST  129  2 

5 337 

3 00  72 

1 

CA  _LEM£  P2  _ - 

0188 

REF 

i 

5340 

7 5030 

0 

MASK  OC  T 1 7770 

NEED  ONLY  1770,  BUT  WHY  GFT  A NEW  CONST. 

0189 

5341 

0 0006 

1 

EXTEND 

01 9-CL  . 

R-EF 

43 

-LAST  1279 

, -5342 

7 4740 

1 

MP  BIT12 

0191 

REF 

3 

LAST  1292 

5 343 

56  072 

1 

XCH  TEMPP2 

0193 

REF 

1 

5345 

54  066 

0 

TS 

TEMP  SW2 

INDICATES  WHETHFR  TO  SET 

TBASE  OR  NOT 

01932 

RFF 

3-32 

—LAST 

-12-9  2 

5 346 

5-0  0 02- 

_o 

IRQFX 

n 

01934 

5347 

3 0000 

1 

CA 

0 

01936 

RFF 

333 

LAST 

1292 

5350 

24  002 

0 

INCR 

Q 

0493-8- 

-REF 

- 4 

5334 

54  065 

-0 

TS 

TEMP  SW 

0194 

REF 

1 

5352 

1 53  63 

0 

TC  F 

“HAS  JUMP 

0195 

5353 

0 0004 

0 

PHASCHNG 

INHINT 

NORMAL  PHASCHNG  ENTRY  POINT. 

0196 

RFF 

334 

LAST 

12  9 2 

5354 

5 0 002 

0 

INDEX 

0 

0197 

5355 

3 0000 

1 

CA 

0 

0198 

REF 

335 

LAST 

1292 

5356 

24  002 

0 

INCR 

3 

0199 

5357 

0 0004 

0 

PHSCHNGA 

INHINT 

FIRST  OCTAL  PARAMETER  IN 

A. 
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0200 

0201 

REF 

REF 

2 

129 

LAST 
LAST 
1 AS  T 

1292 
125  8 
1 29  2 

5360 
5 361 
5 362 

54  065  0 
3 4753  1 
54  0-6.6-  Q ... 

TS 
CA 
TS 

TEMP  SW 
ONE 

TFMPSW2 

0202 

0203  REF 

1 

5 36  3 
5364 
5-36-5 

0 0006  1 
3 5367  0 
_5-2  - -Q -06— CL 

PHAS JUMP 

EXTEND 
DC  A 
PTC  R 

ADR  PCHN2 

OFF  TO  SWITCHED  BANK 

0205 

REF 

47 

LAST 

1280 

E3, 1400 
5 366 

02-LQ2  0 

ADRPCHN2 

EBANK= 

2CADR-- 

L ST  1 

PHS.C_HN.G2 

0206 

REF 

i 

5367 

20103  1 

0207 

REF  1 

5370 

2 2 0 73 

0 

ONEORTWO 

LXCH 

TEMP  BBCN 

0208 

REF  39 

LAST 

128  8 

5371 

22  006 

1 

LXCH 

BBANK 

07  00 

REF  ? 

LAST 

129  3 

-53  7-2 

22  0 73 

0 

LXCH 

T FM  P BBCN 

0210 

REF  1 

5373 

7 5024 

0 

MASK 

OCT  1 4000 

SEE  WHAT  KIND  OF  PHASE  CHANGE  IT  IS 

02X1 

RE-E— 392_ 

. LAST 

128-5 

. . 5374 

LQ— QO.CL 

0 

CCS  ... 

A 

0212 

REF  1 

5375 

1 7747 

0 

TCF 

CHECKB 

IT  IS  OF  TYPE  :B: 

07  1 ^ 

-REF  1 

53  J 6 

3 0062 

0 - 

CA  

T FM P P 

0214 

REF  46 

LAST 

1279 

5377 

7 4745 

1 

MASK 

8 IT7 

0215 

REF  393 

LAST 

1293 

5400 

10  000 

0 

CCS 

A 

SHALL  WE  USE  THE  OLD  PRIORITY 

0216 

REE I— 

3A01- 

1 5423 

0 

TCF 

GFTPPin 

NO  GFT  A NEW  PPinRTTY  (OR  DELTA  T) 

0217 

REF  1 

5402 

50  061 

0 

OLDPRIO 

NDX 

TEMPO 

USE  THE  OLD  PRIORITY  (OR  DELTA  T) 

0-2-18 

_RXF—  1 

5403 

3 1052- 

1 

.CA 

PHSPPDT1  -2 

0219 

REF  1 

5404 

54  070 

1 

TS 

TEMP  PR 

0220  . 

-REX  7 

4 ASX 

129  V 

5-405 

- 3 0362 

o 

—C0M1 

CA 

TFMP  p 

s E FIFA  _2-CADP  TS  GTVFN 

0221 

REF  38 

LAST 

1279 

5406 

7 4744 

0 

MASK 

BITS 

0222 

REF  394 

LAST 

1293 

5407 

10  000 

0 

CCS 

A 

0223  _ 

-REF-  1 

-.5410  _ 

1 5427 

1 

TCF 

_G  F TN  FWNM 

0224 

REF  336 

LAST 

1292 

5411 

3 0002 

0 

CA 

0 

02  25 

R-E-F 1 

5 412_ 

54  063 

0 

TS 

TEMPNM 

0226 

REF  1 

5413 

3 0006 

1 

CA 

BB 

0227 

5414 

0 0006 

1 

EXTEND 

PICK  UP  USERS  SUPFRBANK 

022-8 

REF  24 

LAST 

112  4 - 

. 5 41  5 

04  007 

-J 

ROR 

SUPFPBNK 

0229 

RFF  1 

5416 

54  064 

1 

TS 

TEMP  BB 

op  30 

R-F-F  1 

5 417- 

3 5422 

n 

mrnN2 

r a 

r DN  2 ADR 

BACK  Tn  SUlTTCHFn  RANK 

0231 

REF  3 

LAST 

1293 

5420 

22  073 

0 

LXCH 

TFMPBBCN 

0232 

5421 

52  006 

0 

DTCB 

0233 

REF  1 

5422 

02170 

0 

C0N2ADR 

GENADR 

C0N2 

02  34 

R-FF  337 

LTiST’ 

12  9 3 

_ 5 42  3 

50  -0-02- 

0 

- GET  P P-1 0 - 

-ND-X 

jQ- 

DON : T CARF  TF  DTRFCT  OR  I NOT  R FCT 

0235 

5424 

3 0000 

l 

CA 

0 

LEAVE  THAT  DECISION  TO  RESTARTS 

0236 

REF  338 

LAST 

1293 

5425 

24  002 

0 

INCR 

0 

OBTAIN  RETURN  ADDRESS 
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0237 

REF 

1 

5426 

1 5404 

0 

TCF 

CONI  -1 

s 42  7 

0 00  06 

1 

GFTNFWNM  EXTEND 

0239 

REF 

339 

LAST 

1293 

5430 

5 0002 

0 

INDEX 

Q 

0240 

5431 

3 0001 

0 

DC  A 

0 

n?  41 

RFF 

2 

1 AST 

129  3 

54  32 

52  064 

1 

DXCH 

TEMPNM 

0242 

REF 

80 

LAST 

121  6 

5433 

3 4752 

0 

CA 

TWO 

0243 

REF 

340 

LAST 

1294 

5434 

26  002 

1 

ADS 

Q 

OBTAIN  RETURN  ADDRESS 

0244 

REF 

1 

5435 

1 5417 

1 

TCF 

T0C0N2 

| AST 

SIS- 

-5-024  - 

QCT 14000 -EQUALS- 

R1H_L4- 

0246 

REF 

40 

LAST 

12  5 6 

0061 

TEMPG  EQUALS 

I TEMPI 

0247 

REF 

20 

LAST 

1256 

0062 

TEMPP  EQUALS 

I TEMP2 

RFF 

2_6 

I AST 

9 02 

-0-063-  - 

TEMPNM  EQUALS. 

I TEM_P3 

0249 

REF 

12 

LAST 

902 

0064 

TEMPBB  EQUALS 

I TEMP4 

0250 

REF 

50 

LAST 

906 

0 06  5 

TEMPSW  EQUALS 

ITEMP5 

0 2-5-1 

REP 

7 

] AST 

904 

0 066 

T.EMPSW.2  — E3UALS 

1 TFM  P6 

0252 

REF 

42 

LAST 

1288 

0070 

TFMPPR  EQUALS 

RUPTREG1 

0253 

REF 

8 

LAST 

273 

0071 

TEMPG2  EQUALS 

RUPT  REG2 

02-5-4 

_R.E_E 

. 10 

1_  ASJ 

9 95  

0 072  _ 

TEMPP2  EQUALS 

RUPT  RFG3 

0255 

REF 

5 

LAST 

995 

0073 

T EMP8BCN  EQUALS 

RUPTRFG4 

0256 GLEE AO LAST..  12  9 3 0006 OB EQUALS  BBANK 


0258 

REF 

2 

LAST 

1288 

10,2000 

SETLOC  PHASETAB 

02  59 

10,2 102 

BANK 

0260 

REF 

1 

E3, 1436 

EBANK=  PHSNAMF1 

0261 

REF 

2 

LAST 

1288  TO 

1292: 

9 

9* 

COUNT*  il/PHASE 

0262 

REP- 

_ . 4 

L AS-T 

12  93 

10 , 2 1 02 

2-2  0 73 

0 

PHSCHNG2  LXCH  TEMP  BBCN 

0263 

REF 

3 

LAST 

1293 

10, 2 103 

3 0065 

i 

CA  TEMPSW 

0264 

REF 

2 

LAST 

1292 

10,  2 104 

7 4757 

i 

MASK  DC  T 7 

0265- 

10,-2105 

6 00.00 

L 

DOUBLE- 

0266 

REF 

2 

LAST 

1293 

10, 2106 

54  061 

i 

TS  TEMPG 

02-6-7 

REF 

4 

-LAST 

12  9 4 

10, 21-0  7 

3-00  65 

_ 1 

CA  TFMPSW 

0268 

REF 

2 

LAST 

1292 

10,2  110 

7 5030 

0 

MASK  OCTl 7770 

0269 

10,2111 

0 00  06 

1 

EXTEND 

Q270 

REF 

44 

__LASJ 

1232 

1 0 j2  112 

7 4740 

1 

MP  BIT12 

0271 

REF 

3 

LAST 

1293 

10,2113 

54  062 

1 

TS  TEMPP 

0272 

-REF 

5- 

L ASJ 

12  9 4 . 

1.0, 2 114 

3 0065 

1 

CA  TFWPSW 

0273 

REF 

i 

10,2115 

7 4101 

l 

MASK  OC  T6  0000 

0274 

REF 

6 

LAST 

1294 

10, 2 116 

56  065 

1 

XCH  TEMPSW 

0275 

-R££. 

2- 

LAST 

129  3 

10. 2117 

7 50  23 

0 

MASK  OCTl 4000 

0276 

REF 

395 

LAST 

129  3 

10,2120 

10  000 

0 

CCS  A 

-G-AP- 
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0277 

REF 

1 

10,2121 

1 5370 

1 

TCF 

ONEORTWO 

3 00  62 

n 

CA  - 

T F M D P 

START  STOP  TNG  T HF  PH A S F T NFDR  M AT  T HN 

0279 

REF 

3 

LAST 

129A 

10,  2123 

50  061 

0 

NDX 

TEMPG 

0280 

REF 

2 

LAST 

23  2 

10.212A 

5A  751 

0 

TS 

PHASE1  -2 

0281 

REF 

3 

LAST 

1293 

10, 2125 

10  066 

0 

BEL  OW 1 

CCS 

TEMP  SW2 

IS  IT  A PHASCHNG  OR  A 2 PHSCHNG 

0282 

REF 

1 

10,2  126 

1 21A2 

0 

TCF 

BEL0W2 

I T : S A PHASCHNG 

0283 

10,2 127 

1 2130 

0 

TCF 

+ 1 

I T: S A 2PHSCHNG 

02  8 A 

REF 

A 

LAST 

129  2 

10,2130 

A 0072 

0 

CS 

TFMPP2 

028-5 

RFF 

_5 

LAS  11 

129  5 

10.2131 

22  -0  72. 

1 

LXCH 

TEMP  P2 

0286 

REF 

2 

LAST 

1292 

10,2132 

50  071 

1 

NDX 

TEMPG2 

0287 

REF 

6 

LAST 

866 

10,  2 133 

52  751 

0 

DXCH 

-PHASE1  -2 

0288 

REF 

A 

LAST 

1295 

10, 2 13 A 

10  066 

0 

CCS 

TEMPSW2 

0289 

10, 2135 

12  136 

0 

NO  OP 

C AN : T GET  HERE 

Op  Q.n 

-R-E_F 

2 

LAST 

129  5 

10  , 2 L36_ 

1 2142_ 

Q 

T-C  F - 

RFL0W2 

0291 

REF 

17 

LAST 

99  1 

10, 2137 

A 0025 

1 

CS 

TIME  1 

R-FF 

3 

1 AST 

12  9 5 

LO  , ?-140 

50  071 

_L 

NDX 

TEMPG2- 

0293 

REF 

2 

LAST 

7 A A 

10,  2 1 A l 

55'051 

0 

TS 

TBASEl  -2 

q?9 4 -- 

3 F F 

7 

1 AST 

1 2 q 4 

1 0-»  2 1 4-2 

1 o 065 

0 

BEL  0W2 

CCS_  -- 

TEMP  SW-  - 

SEE  IF  -WE  SHOULD  SET  TBASE  OR  L QNGBA-S E 

0295 

REF 

i 

10,  2 1A3 

1 2156 

0 

TCF 

BEL0W3 

SET  LONGBASE  ONLY 

0296 

REF 

i 

10,2 1AA 

1 2161 

1 

TCF 

BELOWA 

SET  NEITHER 

0297 

REF 

18 

LAST 

1295 

10,2 IA5 

A 0025 

1 

CS 

TIME1 

SET  TBASE  TO  BEGIN  WITH 

0298 

REF 

A 

LAST 

1295 

10,2 1A6 

50  061 

0 

NOX 

TEMPG 

02-95- 

.REF 

3 

LAST 

1295 

10, 21A7 

55 '.0  51 

0 

TS 

TBASF1  -2 

0300 

REF 

8 

LAST 

1295 

10,  2 150 

3 0065 

1 

CA 

TEMP  SW 

SHALL  WE  NOW  S FT  LONGBASE 

0301 

REF 

1 

10, 2 15  1 

6 7154 

0 

AD 

B IT  1 4C0M 

0302 

REF 

396 

LAST 

12  9 A 

10,2 152 

10  000 

0 

CCS 

A 

0303 

10,2153 

12  1 5 A 

1 

NOOP 

*****  cant  GET  HERF  ***** 

03-0  A-  - 

1Q_,  215 A 

1777J 

0 

BIT 1AC0M 

CLCJ 

17777 

*****  CANT  GET  HERE  ***** 

0305 

REF 

2 

LAST 

129  5 

10,2  155 

1 2161 

1 

TCF 

BELOWA 

NO  WE  NEED  ONLY  SET  TBASE 

0356 

10,  2156 

0 D O 06- 

1 

RF1  QW3 

fxtfmd 

SET  | nNGRASF 

03  07 

REF 

30 

LAST 

1220 

10,2157 

3 0025 

0 

DC  A 

T1ME2 

0308 

REF 

1 

10, 2 160 

53' 152 

1 

DXCH 

LONG  BASE 

0309 

RFF 

5 

LAST 

1295 

10,  2161 

A 00  62 

1 

BELOWA 

CS 

TEMPP 

ANO  STORE  THE  FINAL  PART  OF  THE  PHASE 

0310 

REF 

5 

LAST 

1295 

10,2162 

50  061 

0 

NOX 

TEMPG 

0311 

-REF 

7_ 

LASi 

12  9 5 

10,2-163 

.5  A 7 50 

1 

TS 

-PHASFI  -2 

0312 

REF 

3 A 1 

LAST 

12  9 A 

10,2 16A 

3 0002 

0 

CA 

0 

03.13 

REF 

*5 

LAST 

129_A_ 

_LDj  2365 

22_0  73  0 

LXCH 

TEMPBBCN 

03  1 A 

10,2166 

0 0003 

1 

RELINT 

0315 

10,2  167 

52  006 

0 

DTCB 

GAP ; 
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0316 

REF 

6 

LAST 

1295 

10, 2 170 

22  073 

0 CON  2 

LXCH 

TEMPBBCN 

-L  a<;t 

10 1 7 17 1 

\ oo 62 

0 

- CA_  - 

TE-MRP  - - - - - - - _ _ 

0318 

REF 

6 

LAST 

1295 

10,2172 

50  061 

0 

NDX 

TEMPG 

0319 

REF 

3 

LAST 

1295 

10,2173 

54  751 

0 

TS 

PHASE1  -2 

0320 

REF 

2 

LAST 

1293 

10, 2 174 

3 0070 

0 

CA 

TEMP  PR 

0321 

REF 

7 

LAST 

1296 

10,2175 

50  061 

0 

NDX 

TEMPG 

03 22 R-EF 2 LAST  -129-3 10, 2-L76 55' 052-0 IS PHSP.RQI1— _2 


0323 

0374 

R£F 

3 

LAST 

12  9 4 

10,2 177 
10,2200 

0 0006 
3 - 0064- 

1 

0 . _ 

EXTEND 

DC A TEMPNM  _ . _ _ _ 

0325 

REF 

8 

LAST 

1296 

10, 2201 

50  061 

0 

NDX  TEMPG 

0326 

REF 

2 

LAST 

1294 

10,2202 

5 3 ' 43  5 

0 

DXCH  PHSNAME1  -2 

0327 

REF 

1 

10,2203  1 2125  1 

7 747 

TCF 

- - - 3 LOCK  _ 

8ELCW1 
-03 

0329 

REF 

3 LAST  757 

6000 

SETLOC 

FFT AG6 

0330 

7 74  7 

BANK 

0331 

0332 
0 33-3 

REF 

REF 

1 

45 

-397 

LAST 

LAST 

1294 

129-5 

7747 
7 750 

7 4740 
1 0 OOP 

1 CHECKB 

0 _ __ 

COUNT  4 
MASK 
-COS 

$ F/PHASE 
8 I T 1 2 
A 

0334 

REF 

2 

LAST 

1293 

7751 

i 

5423 

0 

TCF 

GETPPIO 

-0335 — 

RFF 

1- 

-7  7-52 

i- 

54  02- 

0 

TCF 

OLDP RIO 

SINCE  THIS  IS  OF  TYPE  B,  THIS  BIT  SHOULD 
BF  HFRE  IF  WE  ARE  TO  GET  A NEW  PRIORITY 
IT  IS,  SO  GET  NEW  PRIORITY 

IT  ISN:T.  USE  THF  OLD  PRIORITY 


w 
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0001 

0002 

nnm 

REF 

2 

LAST 

254 

01, 3523 
01,2000 
OT  , 3 523 

BANK 
SETLOC 
. _ -BANK- 

01 

RESTART 

0004 

REF 

3 

LAST 

1296 

E 3, 1436 

EBANK= 

PHSNAME1 

GOPROG  MUST  SWITCH  TO  THIS  FBANK 

0005 

REF 

1 

COUNT* 

t T/R  SROU 

0006 

REF 

727 

LAST 

1259 

01,3523 

3 0161 

1 

RESTARTS  CA 

MPAC  +5 

GET  GROUP  NUMBER  -1 

0007 

01,3524 

6 0000 

1 

QOU_B_L_E 

SAVE  FOR  INDEXING 

0008 

REF 

1 

01, 3525 

54  155 

1 

TS 

TEMP2G 

0 1 3 57-6 

3 3765 

o 

CA- 

PHS?  f.  ADR  - 

SFT  UP  FX I T IN  CASE  IT  IS  AN  F VFN 

0010 

REF 

1 

01,  3527 

54  157 

0 

TS 

TEMPSWCH 

TABLE  PHASE 

0011 

- RFF 

1 

0-1 , 3530 

3-  3562 

-0 

PA 

RXRALCAOR 

TQ_  SAVE-  T I BE  ASSUME-  IT  WILL  G FT  NFXT 

0012 

REF 

1 

01,3531 

54  707 

0 

TS 

GOLOC  +2 

GROUP  AFTFR  THIS 

00  1 \ 

- R F F 

1 

01.3537 

-3-0  1 54 

1 

-CA 

TFMP  PHS 

0014 

REF 

9 

LAST 

1280 

01,3533 

7 5007 

1 

MASK 

3CT1400 

0015 

REF 

3 98 

LAST 

1296 

01, 3534 

10  000 

0 

CCS 

A 

IS  IT  A VARIABLE  OR  TABLE  RESTART 

0016 

REF 

-1 

—01 , 3 535 

1 3546 

1 

_ - TC  F 

ITSAVAR 

I T : S A VARIABLE  RESTART 

0017 

REF 

2 

LAST 

12  9 7 

01, 3536 

10  154 

0 

GETPART2  CCS 

TEMPPHS 

IS  IT  AN  X.l  RESTART 

oo  i a 

REF 

-3-SL9 

_LA  SJL 

129  7 

01,3537 

10  -000- 

-0  - 

CCS 

A 

0019 

REF 

i 

01, 3540 

1 3646 

1 

TCF 

I TSATBL 

NO,  ITS  A TABLE  RESTART 

002  0- 

-REE 

3 

LAST 

1294 

-01 , 3541 

3-  5024 

1 

CA  - 

PR-IC14 

TT  T9  AN  X.l  RF9TART,  THFRFFDRF  START 

0021 

REF 

40 

LAST 

1204 

01, 3542 

0 5105 

0 

TC 

F IND VAC 

THE  DISPLAY  RESTART  JOB 

0022 

REF 

48 

LAST 

1293 

E3, 1400 

EB ANK= 

LST  1 

00-2-3 — 

REF 

- 1- 

0 1 ,3  543 

02712 

_L_ 

2CADJL 

INITCSP 

0023 

REF 

1 

01,3  544 

20103 

1 

-0(024 REF 2 LAST-  12  9 7 Q-1 ,3  545 0-3562  0 — — — TC RT-R-NCAOR EINISHED  WITH  .THIS  GROUP, . GET  NEXT  ONE 


0025 

REF 

10 

LAST 

12  9 7 

01, 3546 

7 5007 

1 

ITSAVAR 

MASK 

OCT  1 400 

IS  IT  TYPE  B ? 

0026 — 

-R-FF 

4-00 

LAST 

129  7 

01 ,3 547 

10-000 

Q 

CCS 

A 

0027 

REF 

i 

01,3550 

1 3617 

0 

TCF 

ITSLIKEB 

YES, IT  IS  TYPE  B 

002-8 — 

01 , 3551 

-0  0006 

1 

EXTE-N-D- 

STORE  THF  -JOB_  (OR  T ASK  1 2-CADR  Fnp  .EXIT 

0029 

REF 

2 

LAST 

129  7 

01 ,3552 

5 0155 

0 

NDX 

TEMP2G 

0030 

REF 

4 

LAST 

1297 

01 ,3553 

3 1437 

0 

OCA 

PHSNAME1 

- 0-Q3J 

RFF 

2_ 

—LAS  T 

12  9 7 

- 01,3554 

52  706 

1 

OXCH 

GOLOC 

0032 

REF 

3 

LAST 

129  7 

01 , 3555 

3 0154 

1 

CA 

TEMP  PHS 

SEE  IF  THIS  IS  A JOB,  TASK,  OR  A LONGCAL 

00-33 

-R-F-E- 

3- 

LAST 

1294 

-0.1, 3 556 

7 4757 

1 

-MASK 

0 C T 7 

0034 

REF 

3 

LAST 

1150 

01, 3557 

6 7745 

0 

AO 

MINUS2 

0035 

REF 

401 

LAST 

1297 

01,3560 

10  000 

0 

CCS 

A 

0036 

R-E-F- 

L- 

—01,3-56-1 

1 3 731 

-0 

TCF 

I TSLNGCL 

I TS  A LONGCAI  L 

0037 

REF 

6 

LAST 

97  8 

01,3562 

0 46  31 

1 

RTRNCAOR 

TC 

SWRETURN 

CANT  GET  HERE 

GAP: 
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0038 

REF 

1 

01, 3563 
O-T  t 3 S A4 

1 3565 
1 3632 

0 

1 

TCF  ITSAUAIT 

Tf_F  . I TSA JDR  

ITS-  A -JOB 

0040  REF 

1 

01, 3565 

3 3771 

0 

I TSAWAI T 

CA 

WTLTCADR 

SET  UP  WAITLIST  CALL 

1 ART  129  7 

01,3  5-66 

-5-4  704- 

-0-  - - 

TS 

GDI  nc  -1 

0042 

REF 

3 

LAST  1297 

01 ,3567 

50  155 

0 

NOX 

TEMP  2G 

DIRECTLY  STORED 

REF 

3 

L AST  12  9 6 

01,3570 

3 1054 

1 

CA 

P-HSP  R D T1 

0044 

REF 

402 

LAST  1297 

01,3571 

10  000 

0 

TIMETEST 

CCS 

A 

TS  IT  AN  IMMEDIATE  RESTART 

0045 

REF 

403 

LAST  1298 

01,3572 

24  000 

1 

I NCR 

A 

NO, 

0046 

RFF 

1 

01,3573 

1 3576 

1 

TCF 

F INDTIMF 

FIND  OUT  WHEN  IT  SHOULD  BEGIN 

0047 

REF 

1 

01, 3574 

1 5436 

1 

TCF 

I TSI NDIR 

STORED  INDIRECTLY 

0048 

REF 

1 

01,3575 

1 3615 

1 

TCF 

IMED  IATE 

IT  WANTS  AN  IMMEDIATE  RESTART 

TM  FTXFD  FTXFD  ***** 

0050 

5436 

BLOCK 

02 

on  *v  i 

R F F 

1 

4000 

SETLQC 

FFTAG2  . 

0052 

5 43  6 

BANK 

- 00  s 3 

—REF 

1 

. COUNT  * 

5-$/RSfiQU- 

0054 

REF 

4 

LAST  12  9 8 

5436 

2 2 7 06 

0 

ITSINDIR 

LXCH 

GOLOC  +1 

GET  THE  CORRECT  E BANK  IN  CASE  THIS  IS 

0055 

REF 

2 

LAST  1293 

5437 

2 2 0 06 

1 

LXCH 

BB 

SWITCHEO  ERPASIBLF 

0056 

REF 

404 

LAST  1298 

5440 

5 0 000 

1 

NDX 

A 

GET  THE  TIME  INDIRECTLY 

0057 

5 441 

3 0001 

0 

CA 

1 

0058 

REF 

3 

LAST  1298 

5 44  2 

22  006 

1 

LXCH 

BB 

RESTORE  THE  BB  AND  GOLOC 

0059 

REF 

5 

LAST  1298 

5443 

22  706 

0 

LXCH 

GCLOC  +1 

0060 

REF 

2 

LAST  1298 

5444 

1 3576 

1 

TCF 

F INDTIME 

FIND  OUT  WHEN  IT  SHOULD  BEGIN 

R 006 1 *-*■*-*-* -AAOU M AY— R-ETWN— TO SWITCHED  F I XEO- 


0062 

01,3576 

BANK  01 

0063 — 

- REF- 

3 

LAST- 

12  9 7 

01 ,2000 

SFTLOC  RESTART 

0064 

01 ,3576 

BANK 

006-5 

- R-EF- 

2 

-LA-ST 

129  7 Til 

129fl_: 

43 

43* 

CHUNT*  $$/iLS.POU 

0066 

01,3576 

4 0000 

0 

FINDTIME  COM 

MAKE  NEGITIVE  SINCE  IT  WILL  BE  SUBTPACTD 

0067 

REF 

223 

LAST 

12  8 7 

01,3577 

54  001 

1 

TS  L 

AND  SAVE 

0068 R-EF 

4_ 

_ LA-SJ 

129  8 

01. 3600 

50  155 

0 

NDX  TEMP2G 

0069 

REF 

4 

LAST 

1295 

01,3601 

4 1053 

1 

CS  TBASE1 

0070 

01, 3602 

0 0006 

1 

EXTEND 

0071 

- REf 

19 

LAST 

1295 

01, 3603 

60  025 

0 

SU  TIME1 

REF  4 C 5 LAST  1298 


0072 

0073 


01 . 3604  1 0 000  0 

01.3605  4 0000  0 


CCS 

COM 


A 
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0074 

REF 

2 

LAST 

174 

01 ,3606 

6 7730 

1 

AO 

DC  T 3 7776 

0075 

REF 

130 

LAST 

129  3 

01 , 3607 

6 4753 

1 

AD 

ONE 

0076 

- REF 

224 

1 AST 

129  8 _ 

_ 0 1 ,43_64  0 

6 0004 

0 . 

AD 

L 

0077 

REF 

4C6 

LAST 

1298 

01,3611 

10  000 

0 

CCS 

A 

0078 

REF 

224 

LAST 

1279 

01, 3612 

3 4755 

1 

CA 

ZFRO 

00X9 

0-1,3  6X3 

1 3615 

_J 

TCF 

+ 2 

0080 

01, 3614 

1 3615 

1 

TCF 

+ 1 

0081 

REF 

131 

LAST 

1299 

01,3615 

6 4753 

1 

I ME  D I AT  E AD 

ONE 

R-FF 

I A S T 

12  9 8-  - 

01,  36X6 

0 0 704 

_-4_ 

TC 

GOLOC  -1 

0083 

REF 

3 

LAST 

1297 

01,3617 

3 3562 

0 

ITSLIKEB  CA 

RTRNCADP 

TYPE  B,  SO  STORE  RETURN  IN 

0084 

REF 

2 

LAST 

1297 

01,3620 

54  1 57 

0 

TS 

TEMP  SWCH 

TEMPSWCH  IN  CASE  OF  AN  EV FN  PHASE 

0085 

REF 

1 

01,3621 

3 3766 

0 

CA 

PRT2  CADP 

SET  UP  EXIT  TO  GET  TABLE  PART  OF  THIS 

0086 

REF 

7 

LAST 

1299 

01,  3622 

54  707 

0 

TS 

G010C  +2 

V AR I ABLE  TYPE  OF  PHASE 

0087 

REF 

4 

LAST 

1297 

01, 3623 

3 0154 

1 

CA 

TEMP  PHS 

MAKE  THE  PHASE  LOOK  RIGHT  FOR  THF  TABLE 

0088 

REF 

1 

01, 3624 

7 6073 

1 

MASK 

OCT  1 77 

PART  OF  THIS  VARIABLE  PHASE 

00-89 

-REE 

5_ 

—LAST 

129  9 _ 

0 44.3-6.25 

_54  154 

.0.. 

T S.  _ 

TFMP  PHS 

0090 

01,3626 

0 0006 

1 

EXTFND 

0-091 

RFF 

- 5 

L AS4 

129  a - 

01, 3627 

5 .0155 

0- 

NDX 

TEMP2G 

OBTAIN  THE  JOB:S  2CADP 

0092 

REF 

5 

LAST 

129  7 

01,3630 

3 1437 

0 

DCA 

PHSNAME1 

0093 

REF 

8 

LAST 

1299 

01,3631 

52  706 

1 

DXCH 

GOLOC 

0094 

REF 

6 

LAST 

1299 

01, 3632 

50  1 55 

0 

ITSAJOB  NDX 

T EMP2G 

NOW  ADD  THE  PRIORITY  AND  LET : S GO 

0095 

REF 

4 

LAST 

1298 

01, 3633 

3 10  54 

1 

CA 

PHSP RDT 1 

-QQ-96  - 

REF 

9 

L ASF 

129  9 

01, 3634 

5 4 7 04 

0 

CHKNQVAC  TS 

cm  nr  -1 

S AYJL  PR  I 0 UNTIL  _WE  SEE  IF  ITS 

0097 

01, 3635 

0 0006 

1 

EXTEND 

A FINDVAC  OR  A NOVAC 

0098 

REF 

i 

01,3636 

6 3642 

1 

BZMF 

I TSNOVAC 

0099 

REF 

i 

01,  3637 

3 3770 

1 

CAF 

P V AC  CADP 

POSITIVE,  SFT  UP  FINDVAC  CALL. 

0100 

REF 

10 

LAST 

1299 

01,3640 

56  704 

1 

XCH 

GCLOC  -1 

PICK  UP  PRIO, 

0-1-01 

EE-F 

-44- 

LAST 

12-9  9 - 

01, 3641 

-0-  070.4. 

1 

TC 

GOLOC  -1 

A NO  GO 

0102 

REF 

1 

01 , 3642 

3 3772 

0 

I TSNOVAC  CAF 

NOVA  CADP 

NEGATIVE, 

01-03 

-R.FF 

...  12 

XAS4- 

42-9  9. 

01.3643 

56.  7 04 

1 

XCH 

GOLOC  -1 

SET  UP  NOVAC.  CALL, 

0104 

0 1, 3644 

4 0000 

0 

COM 

CORRECT  PRIO, 

0105 

REF 

13 

LAST 

1299 

01, 3645 

0 0704 

1 

TC 

30L0C  -l 

AND  GO 

0106 

REF 

45 

LAST 

128  4 

01, 3646 

54  020 

1 

ITSATBL  TS 

CYR 

FIND  OUT  IF  THE  PHASE  IS  ODD  OR  EVEN 

0107 

REF 

46 

LAST 

1299 

01, 3647 

10  020 

1 

CCS 

C YR 

oi-oa  _ 

-01,3650- 

1 3.653 

1 

TC  F 

+ 1 

I T : S EVEN 

0109 

REF 

i 

01,3651 

1 3747 

1 

TCF 

I TSE  VEN 

0110 

-REF 

4- 

—EAST 

1-29  9 

01, 3652 

3 3-5  62 

0 

CA 

P TR  N T ADR 

TN  C ASF  THTS  IS  THF  SF  f ON  D PART  OF  A 

0111 

REF 

14 

LAST 

1299 

01, 3653 

54  707 

0 

TS 

GOLOC  +2 

TYPE  B RESTART,  WE  NEED  PROPER  EXIT 

0442 

- REF- 

6- 

LAS-T 

4259 

-0 1 ,4654 — 

_3  0154^ 

1 

CA 

JLEMPPhLS 

SET  UP  PQLNLEP  _EHR  FINQIJiG  OUR  PI  ACF  IN 

0113 

REF 

25 

LAST 

1287 

01, 3655 

54  021 

0 

TS 

SR 

THE  RESTART  TABLES 

0114 

REF 

26 

LAST 

1299 

01 ,3656 

6 00  21 

1 

AD 

SR 
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0115 

REF 

7 

LAST 

129  9 

01,3657 

50  155 

0 

NOX 

TEMP2G 

0116 

REF 

1 

01 ,3660 

6 2003 

0 

AD 

SIZETAB  +1 

01  ,3661 

54  156 

J__ 

- IS 

POINTER  _ 

m 18 

01 , 3662 

0 0006 

1 

C0NTBL2  EXTEND 

FIND  OUT  W HA T : S IN  THE  TABLE 

R F F 

2 

-LAST 

1300  01. 3663 

5 0156 

0 

— NCX 

P-O-I NJ-ER 

0120 

REF 

i 

01,3664 

3 2002 

1 

DC  A 

C ADR  TAB 

GET  THE  2C ADR 

| AS  T 

129  0 

0 1 » 3665 

22  706 

0 

LXCH 

-G010-C  +1 

STDRP  THF  RR  INFORMATION 

0122 

REF 

407 

LAST 

1299 

01,3666 

10  000 

0 

CCS 

A 

IS  IT  A JOB  OP  IS  IT  TIMED 

LAST 

1 3flO 

0 1 , 3667 

-2  4 0-00- 

1 

LNC-R 

A 

POSITIVE.  MUST  BE  A JOB 

0124 

REF 

1 

01,3670 

1 3743 

0 

TCF 

I TS  A J0B2 

0 1 f 3671 

2 4 000 

1 

I NCR 

A - - 

- MUST  BE  -EITHER A— WAITLIST  ..OR  _L_Q.NG.CALL 

0126 

REF 

16 

LAST 

1300 

01,3672 

54  705 

1 

TS 

GOLOC 

LET-S  STORE  THE  CORRECT  CADR 

i AS  T 

1 29  fl 

01 , 3673 

3 37-71 

0 

. CA  _ _ 

« IlT  CALR  - 

_ SET  UP  OUR  f X I I TO  W AI  T 1. 1 S I __  _ ..  ...  . . 

0128 

REF 

17 

LAST 

13  0 0 

01, 3674 

54  704 

0 

TS 

GOLDC  -1 

J AST 

13  00 

O 1 f 3 6 7-5 

3—0706- 

0 

CA 

-SQL  DC  +1 

NOW  FIND  OUT  IE.  IT..LS,  A WAITLIST  CALL 

0130 

REF 

48 

LAST 

1279 

01 , 3676 

7 4742 

0 

MASK 

B I T 1 0 

THIS  SHOULD  BE  ONE  IF  WE  HAVE  -BB 

0131 

REF 

4 10 

LAST 

1300 

01,3677 

10  000 

0 

CCS 

A 

FOR  THAT  MATTER  Sn  SHOULD  BE  BITS  9,8,7, 

AO  132 

6,5,  AND  LAST  RUT  NOT  LEAST  (PERHAPS  NOT 

A0133 

IN  IMPORTANCE  ANYWAY.  BIT  4 

0134 

REF 

1 

01,3700 

1 3736 

1 

TCF 

I TS W TL  ST 

IT  IS  A WAITL 1ST  CALL 

0135 

REF 

3 

LAST 

1300 

01,3701 

50  156 

0 

NDX 

POINTER 

OBTAIN  THE  ORIGINAL  DELTA  T 

0136 

REF 

1 

01,3702 

3 2000 

0 

CA 

PRDTTAB 

ADDRESS  FOR  THIS  LONGCALL 

0137 

REF 

1 

01,3703 

1 5445 

0 

TCF 

I TSLGCL1 

NOW  GO  GET  THE  DELTA  TIME 

0 0138 *****  THIS  M-U-ST-  BE  1 1-4  F I XE-D-- F-IXEO- ***  ** 


0139 
01 40 

-RE-F 

2 

LAST  129  8 

5445 

4000 

BLOCK  02 
SETLOC  FETAG.2 

0141 

5445 

BANK 

— 0-142 

REF 

..  2 

LA^T  129ft  IQ 

1 29ft  l 

7 

7* 

COUNT*  &S/RSPGU-  - - 

0143 

REF 

19 

LAST  1300 

5 44  5 

2 2 7 06 

0 

I TSLGCLL  LXCH  GOLOC  +1 

OBTAIN  THE  CORRECT  E BANK 

0144 

REF 

4 

LAST  1298 

5446 

22  006 

1 

LXCH  BB 

CLL45. 

REF 

2_0 

LAST  1300 

2?  706 

n 

LXCH  GOLOC  +1 

AND  PRESERVE  OUR  E AND  F BANKS 

0146 

5450 

0 0006 

l 

EXTEND 

GET  THE  DELTA  TIME 

_ 0147 

RET 

.4  11 

LAST  1300 

545  1 

5 0000 

_1 

NDX  A 

0148 

5452 

3 0001 

0 

DC  A 0 

01-49 

— R-&E 

2-1- 

1 AST  13  0 0 - 

5 453 

22  706 

0 

i xr.H  cm  nr.  +1 

RESTORE  OUR  F AND_F  BANK 

0150 

REF 

5 

LAST  1300 

5454 

22  006 

i 

LXCH  BB 

RESTORE  THE  TASKS  E AND  F BANKS 

0151 

REF 

22 

LAST  1300 

5455 

22  706 

0 

LXCH  GOLDC  +1 

AND  PRESERVE  OUR  L 
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0152 

REF 

1 

5456 

1 3704 

0 

TCF 

ITSLGCL2 

NOW  LET : S PROCESS  THIS  LONGCALL 
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1 7Q-R  in 

1 300-: 

7 0 1-1-3* 
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3 2 0.00 

0 

CA 
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0015 
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0016 

07,2667 

BANK 
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1 
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$$/ I MODE 
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INHINT 
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4 L0  36 

1 

CS 
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0020 
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0 
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LAST  1300 
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TCF 
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TC 
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07,2676 

1 3632 

1 

TCF 
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TC 
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4.1303 

1 

CS 
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REF 
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l 

WAND 
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07,7711 
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4) 
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0044 

REF 
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LAST  1279 

07,2712 

3 4747 

i 
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0.0.43 
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7 
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REF 
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REF 

2 
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REF 

3 

LAST 

1304 
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TC 
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REF 
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0 

TC 
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0 

CAF 
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R-FF 
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REF 
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1 
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REF 
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07, 2761 

16103 

1 

0086 

REF 

2 

LAST 

1304 

07, 2762 

1 2730 

0 

TC  F 

MODEEXIT 

07 1 ? lb  3 

0 3^14- 

| 
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TC 

CAGE  TEST 

0088 

REF 
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LAST 

1304 
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3 4746 

0 

CAF 

3 IT6 

ENABLE  ALL  THREE  ISS 

CDU  ERROR  COUNTERS 

0089 

07,2765 

0 00  06 

1 

EXTEND 

0090 

R-E  F 

57 
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07,-2-76-6 

-OS  Q12- 

1 

WOE  - 
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REF 
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07,2767 
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0 

CAF 
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1 

MP 

BIT1  3 
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1 
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1303 

07, 3006 

2 3 ' 4 71 

1 

LXCH 

COMMAND 

0107 

REF 

9 

LAST 

1306 

07,3007 

1 1'4  74 

0 

CCS 

CDUI ND 

0108 REE ] 07.  3010 0 2770  0 IC SOAR  SI 


0109 

REF 

82  LAST 

1306 

07,3011 

3 4752 

0 

CAF 

TWO 

MINIMUM  OF  4 MS  WAIT 

OJ_LQ 

_ REF 

-U LAST1 

1305 

07.3012 

0 5224 

0 

TC 

VARDELAY 
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L 

IMU 

MCDE 

SWITCHING 

ROUT INES 

USER'S  “AGE  NO.  5 E3  S4 

0111 

REF 

4 

LAST  1306 

07,3013 

0 3614 

1 

CDARS2 

TC 

CA3FTFST 

DONT  CONTINUE  IF  CAGED. 

0112 

REF 

42 

LAST  1306 

07,3014 

54  061 

1 

TS 

I TEMPI 

SETS  TO  +0. 

07  , 3-015 

3 47  52 

0 

CAF  _ _ 

-TW'0  .. 

— _ SEX  CPU  INDICATOR 

0114 

REF 

10 

LAST  1306 

07,3016 

55. 474 

0 

+ 3 

TS 

C DU  I ND 

1 A S T 14  0 7 

07,3-017 

5 1 1 474 

1 

T-ND  E X 

C-DU  I-NO 

0116 

REF 

3 

LAST  1306 

07,3020 

1 1 ' 471 

0 

CCS 

COMMAND 

NUMBER  OF  °ULSES  REQUIRED 

0117 

REF 

1 

07, 3021 

0 3025 

0 

TC 

COMPOS 

GREATER  THAN  MAX  ALLOWED 

R FF 

1 

07,3-0 22 

0 3034  .0 

TC  _ 

NEXTCDU  +1 

0119 

REF 

1 

07,3023 

0 30  72 

1 

TC 

COMN  EG 

0120 

REF 

2 

LAST  1307 

07, 3024 

0 3034 

0 

TC 

NEXTCDU  +1 

0121 

REF 

1 

07,3025 

6 3720 

1 

COMPOS 

AD 

-COMMAX 

COMMAX  = MAX  NUMBER  OF  PULSES  ALLOWED 

0122 

07, 3026 

0 0006 

1 

EXTEND 

MINUS  ONE 

0 123 

REF 

] 

_ Q_7 , 3027 

6 3102 

1 

BZMF 

COMZ  ERO 

0124 

REF 

12 

LAST  1307 

07,3030 

51 '474 

1 

INDEX 

C DU  I ND 

0125 

REF 

4 

LAST  1307 

07, 3031 

5 5 ' 4 71 

0 

TS 

COMMAND 

REDUCE  COMMAND  BY  MAX  NUMBER  OF  PULSES 

0126 REA 1 OX,  3 032  4 37-2.1 1 CS -.COMMAX- ALLOWED 


0127 

REF 

43 

LAST 

1307 

07, 3033 

24  061 

0 

NEXTCDU  INCR 

I TEMPI 

m pm 

R FF 

2_9 

1 ART 

12  BC 

07 , 3-034 

6 4-7  54 

0 

AD 

NF.GQ 

0129 

REF 

13 

LAST 

130  7 

07, 3035 

51 '474 

1 

INDEX 

C DU  I ND 

0130 

REF 

3 

LAST 

297 

07, 3036 

54  050 

0 

TS 

CDU X CMD 

SET  UP  COMMAND  REGISTER. 

0131 

REF 

14 

LAST 

1307 

07,  3037 

1 1’474 

0 

CCS 

CDUI ND 

0132 

REF 

1 

07,3040 

0 3016 

0 

TC 

C0ARS2  +3 

0133 

REF 

44 

LAST 

130  7 

07,3041 

10  061 

1 

CCS 

ITFMP1 

SEE  IF  ANY  PULSES  TO  GO  OUT. 

0134 

REF 

1 

07,3042 

1 3106 

l 

TCF 

SENDPULS 

0135 

REF 

16 

LAST 

111  6 

07, 3043 

0 5221 

0 

TC 

F I XD  EL AY 

WAIT  FOR  GIMBALS  TO  SETTLE. 

0136 

07,3044 

00226 

1 

DEC 

1 50 

0137 

REF 

84 

LAST 

1307 

07,3045 

-01-38- 

RE_F 

45 

1 ASJ 

130  7 

C7 ,3  0-46- 

0139 

REF 

4 14 

LAST 

1304 

07, 3047 

0140 

REF 

20 

LAST 

130  6 

07, 3050 

01  41 

07, 3051 

0142 

REF 

4 6 

LAST 

1307 

07,  3052 

0143 

REF 

22 

LAST 

1306 

07,3053 

0144 

fi-EE- 

-415 

LAST 

13-0-7- 

_Q7,3  054 

0145 

REF 

1 

07,3055 

0146 

RFF 

1 

07,3056 

014X 

__REF 

2 

LAST 

1X0  7 

. 07,3.057 

3 4752  0 CAF  TWO 

54  06J — 1 CHKCORS LS I TE  M.P_1_ 

50  000  1 INDEX  A 

3 0032  0 CA  C DUX 

0-0006  1 FXTFND 

5 0061  0 INDEX  ITEMP1 

20  321  0 MS U THETAD 

i o ooo  o r.r.s  a 

1 3063  0 
1 3060  0 
I 3063  0 


AT  END  OF  COMMAND,  CHECK  TO  SEE  THAT 
GIMBALS  ARE  WITHIN  2 DEGREES  OF  THET  A 0 ._ 


TCF 

TCF 

TCF 


COAR  SERR 
COR  SCHK2 
COAR  SERF 
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0148  REF  47  LAST  1307  07,3060  10  061  1 C0RSCHK2  CCS  ITFMP1 

0149  REF  1 07,3061  1 3046  1 TCF  CHKCORS 

ni^n  rff  7 l AST  1303  07,3067  1 3604  1 TILE ENDI  M.U END  OF  COARSE  ALIGNMENT. 


0151 

REF 

1 

07,3063 
07, 3 064— 

6 3071 
0 0006 

1 

1 

COARSERR  AD  C DA  R STOL 

FXTFND  _ _ ... 

2 DEGREES. 

0153 

REF 

2 

LAST 

130  7 

07,  3065 

6 3060 

1 

BZMF  C0RSCHK2 

O 65  67 

0 

TC  _ - ALAR!-’  _ _ 

0155 

07 j 3067 

00211 

0 

OCT  211 

0156 REF 2 L AS  T L&C 07,-3  0-7-0 1-J6-1-2  0 TCE LEUB-AO- 


0157 

07, 3071 

77511 

1 

COARSTOL 

DEC 

-.01111 

2 DEGREES  SCALED  AT  HALF-REVOLUTIONS 

0158 

REF 

2 

LAST 

1307 

07, 3072 

6 3720 

1 

COMNEG 

AD 

-COMMAX 

0155 

07,3073 

0 OO-OA 

_L_ 

EXTEND 

0160 

REF 

2 

LAST 

130  7 

07, 3074 

6 3102 

1 

BZMF 

COMZERO 

0161 

07,3075 

4 0000 

0 

COM 

01  65 

R£-F 

15 

-LAST 

13  0 7 

07, 3Q76 

51 '474. 

1 

INDEX 

CDUI-ND 

0163 

REF 

5 

LAST 

13  0 7 

07, 3077 

55' 471 

0 

TS 

COMMAND 

0164 

REF 

2 

LAST 

1307 

07, 3100 

3 3721 

0 

CA 

-COMMAX- 

Q-L-6-5 RTF 3 L AST-  1307 07,  310.1 0-3.03.3  1 IC HEXXCDU 


0166 

REF 

226 

LAST 

130  3 

07,3102 

3 4755 

1 

COMZERO  CAF 

ZERO 

n i 67 

rff 

16 

1 AST 

130  8 

07 , 3 103 

5 i » 4 74 

1 

INDEX 

_CDUIND 

0168 

REF 

6 

LAST 

1308 

07, 3104 

5 7 ' 4 7 1 

1 

XCH 

COMMAND 

0169 

REF 

4 

LAST 

1308 

07,3105 

0 3033 

1 

TC 

NFXTCDU 

0170 
015 1 

REF 

3 

LAST 

543 

07, 3106 
_ 0 7,3107 

3 7737 
0 0006 

0 

1 

SENDPULS  CAF 

FXTEND 

13, 14,15 

0172 

REF 

16 

LAST 

906 

07, 3110 

05  014 

1 

WOR 

CHAN  14 

0173 

REF 

1 

07,3111 

3 3722 

0 

CAF 

500MS 

00X4 

-FLEE- 

2_ 

LAST 

-030-7 

. 07,3112 

1 30  12 

_£L_ 

IC  F 

C0ARS2  -1  THEN  TO  VARDELAY 

0-1-75 REF 4-8 LAST  13  0-6 07,3113  -3-47 46  0 r.A+FCF  r.AF B IT 6 ENABLE  ALL  THREE  ISS  CPU  ERROR  COUNTERS 


0176 

07, 3114 

0 0006 

1 

EXTEND 

0177 

REF 

58 

LAST 

1306 

07, 3115 

05  012 

1 

WOR 

CHAN  12 

QU78 

REF- 

-7.1 

LAST 

120  4 

07,3116 

0—52.6-1 

1 

TC 

TASK  OVER 

GAP:  ASS  EM-BL-E--R  E V IS  I ON  -0-69-  OF  AGC  PROGRAM  UJ  M IN  ARY  BY  NASA-- 2021 1-12- 0 1 1 
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0179 

REF 

43 

LAST 

1279 

07, 3 117 

3 4750 

1 

SETCGARS 

CAF 

BIT4 

BYPASS  IF  ALREADY  IN  COARSE  ALIGN 

0180 

07,3120 

0 0006 

1 

EXTFND 

01  fi-1 

— R-tF 

5-9 

-L-AST- 

13X)  8 

0-7  »3  121  - 

-02_OL2 

_Q 

RAND 

CHAN  12 

0182 

REF 

416 

LAST 

130  7 

07,3  122 

10  000 

0 

CCS 

A 

0183 

REF 

343 

LAST 

13  0 3 

07,3123 

0 0002 

0 

TC 

Q 

0184 

REF 

49 

LAST 

1308 

07, 3124 

4 4746 

1 

CS 

0 I T 6 

CLEAR  ISS  ERROR  COUNTERS 

0185 

07,3125 

0 0006 

1 

EXTEND 

oi  a6 

REF 

60 

-LAST 

130  5 

0 7,3  L2i> 

_ 03  01-2 

-WAND 

CHAM  2 

0187 

REF 

49 

LAST 

1300 

07, 3127 

4 4742 

0 

CS 

BIT10 

KNOCK  DOWN  GYRO  ACTIVITY 

—07,3  13-0 

0 0-0  Oix- 

1 

EX  LEND 

0189 

REF 

17 

LAST 

1308 

07,3131 

03  014 

1 

WAND 

CHAN14 

0190 

REF 

227 

LAST 

1308 

07, 3 132 

4 4755 

0 

CS 

ZERO 

0] 

R£F 

2 

LAST 

19  0 

-07,3 133 

54  047 

0 

IS  . 

G YPOCMD 

0192 

REF 

44 

LAST 

1309 

07, 3134 

3 4750 

1 

CAF 

BTT4 

PUT  ISS  IN  COARSE  ALIGN 

01  93 

-07,3  13-5  - 

o Jio  0-6 

1 

EXTEND 

0194 

REF 

61 

LAST 

1309 

07, 3136 

05  012 

1 

WOR 

CHAN  12 

(_  A T 

130  4 

-07,  3 1 37 

4 1 036> 

1 

CS 

D-SP  TAB  ♦ 1 1 D 

TURN  DN  l\|D  ATT  .LAMP 

0196 

REF 

1 

07,3140 

7 3162 

0 

MASK 

0 CT4 C010 

0197 

REF 

44 

LAST 

13  0 9 

07, 3141 

2 7 1 0 3 6 

1 

ADS 

DSFTAB  + 1 1 D 

0198 

REF 

45 

LAST 

130  5 

07,3142 

4 1303 

1 

CS 

IMOOES33 

DISABLE  DAP  AUTO  AND  HOLD  MODFS 

0199 

REF 

50 

LAST 

1309 

07, 3 143 

7 4746 

1 

MASK 

BIT6 

0200 REF 46 LAST  130  9 07,3144 ?7'303  1 AOS I MOD  ES33 


0201 

REF 

52 

LAST 

1305 

07,3145 

4 1302 

0 

CS 

I MODE S30 

DISABLE  IMUFAIL 

0 ? (12 

RFF 

4_5 

I-3ST 

13  0 9- 

07, 3 146 

7—47-5-0  - 

0 

-MASK 

B 1 T 4 

0203 

REF 

53 

LAST 

1309 

07, 3 147 

27 ' 302 

0 

ADS 

IM0DES30 

-0  2-04  - 

RFF 

L4- 

LAST 

52  9 

__07,  3 1 50- 

4 4747 

o 

RNfXREFDR  CS 

- T-RA-C-KB I T 

PI  PAR  TRAP  K FI  AT- 

0205 

REF 

28 

LAST 

906 

07, 3 151 

7 0075 

1 

MASK 

FLAGWRDl 

0206 

REF 

29 

LAST 

1309 

07,3152 

54  075 

l 

TS 

FLAGWRD1 

0207 

REF 

3 

LAST 

85  8 

07,3153 

4 4735 

0 

CS 

DRFTBIT 

CLFAR  DRIFT  FLAG 

0208 

REF 

28 

LAST 

1116 

07, 3154 

7 0076 

1 

MASK 

FLAGWRD2 

-02  09 REF 2-9 LAST  -13X19 07,  3X55 54  076  J IS FLAG  HR 02 


0210 

REF 

6 

LAST 

972 

07, 3156 

4 4737 

1 

CS 

REFSMBIT 

CLEAR  R EF S MM AT  FLAG 

- 021 1 

-REF  - 

- 18 

-LAST 

.972 

07, 3157 

7 0077 

Q 

MASK 

FLACWRD? 

0212 

REF 

19 

LAST 

1309 

07, 3160 

54  077 

0 

TS 

FLAGWRP3 

02-13— 

REF 

-344- 

LAST 

-1-3-Q-S — 

07,3161 

...0  0002 

_0 

- IC 

Q 

0214 


07,3162 


40010  1 OCT 40010  OCT 


40010 
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L 

IMU 

MODE 

SWITCHING 

ROUTINES 

USER'S  PAGE  NO.  8 E3  S4 

P0215 

IMU  1 

FINE  ALIGN  MODE 

SWITCH. 

a no 04. 

o 

IMUF INE 

IN H T NT 

0217 

REF 

4 

LAST 

1306 

07  t 316  4 

0 3626 

0 

TC 

CA3ETSTJ 

SEE  IF  IMU  BEING  CAGED. 

n7^  ^ i a.s 

4- 17 1 7 

1 

cs 

_ 8 I T S 4—5 — 

R-E-S-FT 7 FRO  AND  CflARSF 

0219 

07|3166 

0 0006 

1 

EXTEND 

0220 

REF 

62 

LAST 

1309 

07, 3 167 

03  012 

1 

WAND 

CHAN  12 

0221 

REF 

51 

LAST 

1309 

07, 3170 

4 4746 

1 

CS 

BIT6 

INSURE  DAP  AUTO  AND  HOLD  MOOES  ENABLED 

0222 

REF 

47 

LAST 

1309 

07,3171 

7 1303 

1 

MASK 

IM0DES33 

RFF 

48 

LA-SJ 

13 1C 

07j  3 1 72 

5 5 ' 3 03 

1 

TS 

I MOD  ES33 

0224 

REF 

4 

LAST 

1304 

07, 3173 

0 3241 

0 

TC 

NOATTOFF 

0225 

REF 

50 

LAST 

1309 

07,3174 

3 4742 

1 

CAF 

BIT10 

IMU  FAIL  WAS  INHIBITED  DURING  THE 

0226 

REF 

40 

LAST 

1306 

07,3175 

0 5203 

0 

TC 

WAITLIST 

PRESUMABLY  PRECEDING  COARSE  ALIGN.  LFAVE 

0227 

JIFF 

17 

LAST 

130  8 

_E3_*JL  474 

E B A.NK  = 

CDUI  ND 

0228 

REF 

i 

07, 3 176 

03207 

1 

2CA0R 

I FA  I LOK 

IT  ON  FOR  THE  FIRST  5 SECS  OF  FINF  ALIGN 

0228 

REF 

i 

07, 3 177 

16103 

1 

0229 

REF 

7 

LAST 

964 

07,3200 

3 5000 

1 

CAF 

2 SFC  S 

0230 

REF 

41 

LAST 

131  0 

07, 3201 

0 5203 

0 

TC 

WAITLIST 

- a2  3-1  — 

_ REE_ 

18 

last 

13  10 

- F3, 1 474 

FBAMK=  CDUIND 

0232 

REF 

i 

07,3202 

03205 

0 

2C  ADR 

IMUF  INED 

0232 

REF 

i 

07, 3203 

16103 

1 

0233 

RFF 

3 

LAST 

1306 

07, 3204 

1 2730 

0 

TC  F 

MQDEFXIT 

02  34 

REF 

5 

L AST 

-13-0  7 

07  *-3-2-05- 

0 3614 

1 

IMUF  IJslF  D- 

TC 

CASE TEST 

SFF  THAT  NO  ONF  HAS  CAGED  THE  LM11. 

0235 

REF 

3 

LAST 

1308 

07, 3206 

1 3604 

1 

TC  F 

END  I MU 

AGO  PROGRAM  LUMINARY  -BY  NASA  202-1-1  12-OU 
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0236 

REF 

1 

07, 3207 

0 3621 

1 

I FA  I LOK 

TC 

CAGETSTQ 

ENABLE  IMU  FIAL  UNLESS  IMU  BEING  CAGED. 

0237 

REF 

72 

LAST 

1308 

07, 3210 

1 5261 

0 

TCF 

TASK  OVFR 

IT  IS. 

0238 

REF 

46 

LAST 

1309 

07,3211 

3 4750 

1 

CAF 

BIT4 

DONT  RESET  IMU  FAIL  INHIBIT  IF  SOMEONE 

0239 

07,3212 

0 0006 

1 

EXTEND 

HAS  GONE  INTO  COARSE  ALIGN. 

LAST 

13  10 

0 7,  3-213 

02  01  2 

-0 

RAND 

CHAN12 

0241 

REF 

417 

LAST 

1309 

07,3214 

10  000 

0 

CCS 

A 

0242 

REF 

73 

LAST 

13  1 1 

07, 3215 

1 5261 

0 

TCF 

TASKOVER 

0243 

REF 

54 

LAST 

1309 

07,3216 

4 1302 

0 

CS 

I M0DES30 

RESET  IMUFAIL. 

0244 

REF 

47 

LAST 

1306 

07, 3217 

7 4737 

1 

MASK 

BIT13 

RFF 

55 

1 ART 

13  1 1 

D7  T 3 770 

27*302 

0- 

. ADJS 

1 MOD  E S30 

0246 

RFF 

47 

LAST 

131  1 

07,3221 

4 4750 

0 

CS 

BIT4 

0247 

REF 

56 

LAST 

131  1 

07,3222 

7 1302 

0 

PFA! L0K2 

MASK 

I MDDES30 

0248 

RELF 

5J 

-LAST 

13  1 1 

07, 3223 

55 ' 3 OZ 

0 

TS 

I MOD  ES30 

0249 

REF 

49 

LAST 

1305 

07,3224 

0 4674 

0 

TC 

I BN K CALI 

THF  TSS  WARNING  LIGHT  MAY  COME  ON  NOW 

0250 

REF 

6 

LAST 

130  5 

07, 3225 

14703 

0 

CADR 

SET  I SSW 

THAT  THE  INHIBIT  HAS  BEEN  REMOVED. 

0281 

RFF 

74 

1 AST  1311 

07,  2L22-6 

1 5261 

£_ 

TCF 

TASKOVER 

0252 

REF 

2 

LAST 

131  1 

07, 3227 

0 3621 

1 

PFAILOK 

TC 

CASE  TSTQ 

ENABLE  PIP  FAIL  PROG  ALARM. 

CL?  8 3 

R FF 

75 

L AST 

13  1 1 

0 7 , 323-0 

1 52  61 

0 

TCF 

TASKOVER 

0254 

REF 

58 

LAST 

13  1 1 

07, 3231 

4 1302 

0 

CS 

I MOD  ES30 

RESET  IMU  AND  PIPA  FAIL  BITS. 

02  8^ 

RFF 

5 1 

1 -AS-I 

13-1  0 

07, 3232 

7 4742 

.0 

-MASK 

BJT10 

0256 

REF 

59 

LAST 

131  1 

07, 3233 

2 7 ' 302 

0 

ADS 

I MOD  ES30 

- \ AST 

T3  1 0 

07f  3234 

4 1303 

1 

rs 

I HUD.  E S3  3-  - 

0258 

REF 

48 

LAST 

13  1 1 

07, 3235 

7 4737 

1 

MASK 

B I T 1 3 

0259 

REF 

50 

LAST 

131  I 

07,3236 

27 ' 3 03 

1 

ADS 

IM0DES33 

0260 

REF 

41 

LAST 

130  5 

07, 3237 

4 4747 

0 

CS 

B1T5 

0261 

REF 

1 

07,3240 

1 3222 

1 

TCF 

PFAI L0K2 

0262 

REF 

2 

LAST 

1309 

07,3241 

4 3162 

0 

NGATTOFF 

CS 

OCT  4001 0 

SUBROUTINF  TO  TURN  OFF  NO  ATT  LAMP. 

0263 

REF 

45 

LAST 

1309 

07, 3242 

7 1036 

1 

MASK 

DSP  TAB  + 1 1 D 

- __  0264 

- -R-E-F.- 

46_ 

-LAST 

120  2 

07, 3243 

6 7,735 

1 

AD 

BIT1  5 

0265 

REF 

46 

LAST 

131  1 

07,3244 

55 1 036 

1 

TS 

DSPTAB  +11D 

0266 

REF 

345 

LAST 

1309 

07,  3245 

0 0002 

0 

TC 

0 

GAP : 
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IMU  MCDE  SWITCHING  ROUTINES  USER'S  PAGE  NO.  10  E3  S4 


P0267 

RCUITNES  TO 

IN I T I AT E 
07*  3247* 

AND  TERMINATE  PROGRAM  USE 
U 47-55  0-  P TP  USE  f.S 

OF  THE  PIPAS. 
ZERO 

NO  IMUSTALL  REQUIRED  IN  EITHER  CASE. 

0273 

REF 

13 

LAST 

*900 

07, 3247 

54  037 

1 

TS 

P I PA  X 

0274 

REF 

5 

LAST 

900 

07, 3250 

54  040 

1 

TS 

PIPAY 

R FF 

x 

| ART 

_901 

07 , 3 25J. 

5 4 041 

0 

JS- 

P I PA  Z 

02752 

REF 

3 

LAST 

1311 

07,3252 

0 3621 

1 

PIPUSE1 

TC 

CAGETSTO 

DO  NOT  ENABLE  PIPA  FAIL  IF  IMU  IS  CAGED 

n?  75  4 

REF 

8 

LAST 

13  0 5 

07, 3253 

1 4631-  0 

TCF 

SWRFTUR-N. 

02756 

07, 3254 

0 0004 

0 

INHINT 

Rf  F 

56 

_ 1 ASX 

12  7 9 

07  *3  25-5 

4 4753- 

0 

-C.S.  - 

-B_LT1 

IF  P_I  P A FAILS  FROM  NOW  ON  (UNTIL 

0277 

REF 

60 

LAST 

131  1 

07, 3256 

7 13  02 

0 

MASK 

I MOO  ES30 

PIPFREE),  LIGHT  I SS  WARNING. 

0278 

REF 

61 

LAST 

131  2 

07,3257 

55 ' 302 

0 

TS 

IM3DES30 

0279 

REF 

50 

LAST 

131  1 

07, 3260 

0 46  74 

0 

PIPFREE2 

TC 

I BNK  CALL 

ISS  WARNING  MIGHT  COME  ON  MOW. 

0280 

REF 

7 

LAST 

131  1 

07, 3261 

14703 

0 

C A OR 

SETI SSW 

( OR  GO  OFF  ON  PIPFREE) . 

0281 

REF 

4 

LAST 

131  0 

07,3262 

1 2730 

0 

TCF 

MODFEX  IT 

o?r? 

0 7,  3253 

0-  -0-00-4 

-0 

P I P FREE 

INHINT 

PROGRAM  DDNF  WTTH  PIPAS.  DONT  LIGHT 

0283 

REF 

62 

LAST 

131  2 

07,  3 264 

4 1302 

0 

CS 

I MOD  ES30 

ISS  WARNING. 

0284 

REF 

57 

LAST 

131  2 

07, 3265 

7 4753 

0 

MASK 

B I T 1 

0285 

REF 

A3 

1 AST 

1312 

0 7,3266 

27' 302 

0 

ADS 

I MOD  ES30 

0286 

REF 

52 

LAST 

131  1 

07, 3267 

7 4742 

0 

MASK 

BIT10 

IF  PIP  FAIL  ON,  DO  PROG  ALSRM  AND  RESET 

0287 

RFF 

4 1 8 

L ASX 

13  1 1 

07,3270 

10  QOO 

0 

CCS 

A 

ISS  WARNING. 

0288 

REF 

5 

LAST 

131  2 

07, 3271 

1 2730 

0 

TCF 

MODEEXIT 

02&9 

R-EF 

4-6- 

—LA  S T 

-13-Q-8 

07,3272 

0 5557 

-0 

TC 

ALARM 

0290 

07, 3273 

00212 

0 

OCT 

212 

0^94 

07-,  3 2 74 

-0—0-0-04 

-CL- 

I N HI  NT. 

REF  I 07,3275  1 3260  1 TCF  PIPFPEE2 


0292 
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p 02 93  THE  FOLLOWING  ROUTINE  TORQUES  THE  IRIGS  ACCORDING  TO  DOUBLE  PRECISION  INPUTS  IN  THE  SIX  REGISTERS 

R0295  BEGINNING  AT  THE  ECADR  ARRIVING  IN  A.  THE  MINIMUM  SIZE  OF  ANY  PULSE  TRAIN  IS  16  PULSES  (.25  CDU  COUNTS).  THF 
R02 97 UNSENT  PORTION  OF  - THE -COM MA ND—  IS  LEFT-INTACT — LN-  THE LMJ3UT  CO-MMAND  REGISTERS. 


0299 

F3, 1400 

EBANK= 

1400 

VARIABLE,  ACTUALLY. 

0300 

REF 

732 

LAST 

1302 

07, 3276 

54  161 

0 

IMUPULSE 

TS 

MPAC  +5 

SAVE  ARRIVING  ECADR. 

0301 

REF 

5 

LAST 

13  10 

07,3277 

0 3626 

0 

TC 

CA3ETSTJ 

DONT  PROCEED  IF  IMU  BEING  CAGED. 

0302 

REF 

2 

LAST 

23  7 

07, 3300 

11*314 

1 

CCS 

LGYPO 

SEE  IF  GYROS  BUSY. 

0303 

REF 

1 

07,3301 

0 3342 

1 

TC 

S YROBUSY 

SLEEP. 

0304 

REF 

733 

LAST 

131  3 

07,3302 

54  156 

1 

TS 

MPAC  +2 

0305 

REF 

52 

LAST 

131  0 

07, 3303 

3 4746 

0 

CAF 

BIT6 

ENABLE  THE  POWER  SUPPLY. 

o r n f > - 

- 0 7,  3304 

0 00  06- 

-L 

EXTEND 

0307 

REF 

18 

LAST 

1309 

07,3305 

05  014 

1 

WDR 

CHAN  14 

REF 

27  - 

| ART- 

12  7 9 

07  , 3 306 

3 4751 

0 

-CAF 

FOUR 

0310 

REF 

42 

LAST 

131  0 

07, 3307 

0 5203 

0 

GWAKE2 

TC 

WAITLIST 

(IF  A JOB  WAS  PUT  TO  SLEEP,  THF  POWER 

0311 

REF 

19 

LAST 

1310 

E 3 , 1474 

EBANK= 

CDJ I ND 

SUPPLY  IS  LEFT  ON  BY  THE  WAKING  JOB). 

0^1  ? 

_r_£F- 

1 

37,3310 

033  60- 

1 

2CADB- 

S TR  T C-YRC 

0312 

REF 

1 

07, 3311 

16103 

1 

. 03  1 R 

R F F 

734 

1 AST 

131  3 

07,3312 

3 0161 

1 

CA 

_51P  AC  +5 

- SET  UP  FRANK,  SAVING  CALLFR'S  FRANK  FOR 

0314 

REF 

57 

LAST 

1283 

07,3313 

56  003 

1 

XCH 

EBANK 

RESTORATION  ON  RETURN. 

0315 

REF 

735 

LAST 

1313 

07,3314 

56  161 

1 

XCH 

MPAC  +5 

0316 

REP 

3— 

—LAST 

131  3 _ 

07, 3315 

5 5 ' 3 1A- 

_L 

TS 

LGYRO 

RESERVES  GYROS. 

0317 

REF 

16 

LAST 

1280 

07,3316 

7 43  57 

0 

MASK 

LOW  8 

0318 

REF 

48 

LAST 

1308 

07, 3317 

54  061 

1 

TS 

I TEMPI 

0319 

REF 

85 

LAST 

130  7 

07, 3320 

3 4752 

0 

CAF 

TW3 

FORCE  SIGN  AGREEMENT  ON  INPUTS. 

0320 

REF 

736 

LAST 

131  3 

07,3321 

54  157 

0 

GYROAGRF 

TS 

MPAC  +3 

03 -24 

07*3322 

6 0000 

1 

DOUBLE 

0322 

REF 

49 

LAST 

1313 

07, 3323 

6 0061 

0 

AD 

I TEMPI 

0323 

REF 

737 

LAST 

1313 

07,3324 

54  160 

1 

TS 

MPAC  +4 

- 0 324 

- 0-7, 3325 

-_0  0006 

1 

EX  TEND 

0325 

REF 

419 

LAST 

131  2 

07, 3326 

5 0000 

1 

INDEX 

A 

0326 

07,3327 

3 1401 

0 

DC  A 

1430 

-032  7 

REF 

7 38 

L AS  T 

1313 

_Q 7 , 3 330 

52  155 

1 

DXCH 

MPAC 

0328 

REF 

15 

LAST 

1220 

07, 3331 

0 72  56 

1 

TC 

T PAG  REE 

0329 

REF 

739 

LAST 

131  3 

07,3332 

52  155 

1 

DXCH 

MPAC 

03-30— 

REF 

7 4-0  - 

- L AS  T 

13-1-3- 

-07-4-3333 

50  160. 

0. 

INDEX 

MPAC  +4 

0331 

07,3334 

5 3 ' 4 01 

1 

DXCH 

1400 

0332 — 

741 

LAST 

131  3 

07, 3335 

10  157 

0 

CCS 

MPAC  +3 

0333 

REF 

i 

07,3336 

1 3321 

0 

TC  F 

GYRO AGRE 

-0  334 

REE 

7 42 

4 AS2 

131  3 

- 07,  333-7 

3 41161 

1 

CA 

MPA-C  +5 

PFSTDRF  f. A 1 1 F R * S FRANK  . 

0335 

REF 

58 

LAST 

1313 

07, 3340 

54  003 

0 

TS 

FBAMK 

0336 

REF 

6 

LAST 

131  2 

07, 3341 

1 2730 

0 

TCF 

MODEEXIT 
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IMU  MODE  SWITCHING  ROUTINES  USER'S  PAGE  NO.  12 


P0337 

ROUTINES  TO 

ALLOW  TORQUING  ! 

0 7.  3 3 a ? n nnnA_ 

BY 

1 

ONLY  ONE  JOB  AT 
GYRO  BUSY  EXTEND 

A TIME. 

_ SAV_E  RFTIIRN  RFC  ADR . 

0339 

REF  23 

LAST 

1080 

07, 3343 

3 0134 

i 

OCA 

BUF2 

0340 

REF  743 

LAST 

131  3 

07,3344 

52  155 

i 

DXCH 

MPAC 

P EF  1 

07, 3345 

3 33-5  7 

0— 

-REGSLEEP  CAE 

L-GiLAKE-  _ 

0342 

REF  5 

LAST 

121  5 

07, 3346 

1 5133 

1 

TCP 

JCSBSLEFP 

L4S^T 

1M  ^ 

07, 3347 

M • 314 

1 

GWAKF  rcS 

LG-YPL 

WHFN  AWAKFNFD,  SFF  TF  GYROS  STI!  L BUSY. 

0344 

REF  1 

07i 3350 

1 3345 

1 

TCF 

REGSLEEP 

IF  SO,  SLEEP  SOME  MORE. 

4 AS  T 

-134-4 

07, 335 1 

54  156 

1 

TS 

MLAC  ±2 

0346 

07 1 3352 

0 0006 

1 

EXTEND 

0347 

REF  745 

LAST 

1314 

07, 3353 

3 0155 

0 

DC  A 

MPAC 

-03A8 

-REF  24 

LAST 

1314 

Q7*3354 

52  134 

a 

DXCH 

BUF2 

RESTORE  SWRFTURN  INFO. 

0349 

REF  132 

LAST 

1299 

07,3355 

3 4753 

l 

CAF 

ONE 

0350 

REF  1 

07, 3356 

1 3307 

l 

TCF 

GWAK E2 

0351 

REF  1 

07, 3357 

17347 

i 

LGWAKE  C ADR 

GWAKE 

LUMEN  A-RY  by  NASA  70-2-1 11-2--01 1 
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IMU  MODE  SWITCHING  ROUTINES  USER'S  PAGE  NO.  13  E3  S4 


P0352 

GYRO-TQR  OU ING  WAITLIST  TASKS 

strtgyro  CS 

EX  TEND 
WAND 

-GP&SELCI 

n-P.~SFi.FC-T  LAST  nvRn- 

03-53 — 

0354 

0355 

REF 

19 

LAST  1313 

07. 3361 

07. 3362 

6 0006 
03  014 

1 

1 

C HA  N 14 

0356 

REF 

6 

LAST  1310 

07,3363 

0 3614 

1 

TC 

CAGETEST 

3 13  14 

0 

STRTGYR2  CA 

l.GYP  0 _ 

JUMP  ON  PH  AS  F CDUNTFR  IN  BITS  13- 1 4. 

0358 

07,  3365 

0 0006 

1 

EXTEND 

0359 

REF 

48 

LAST  1311 

07, 3366 

7 4750 

0 

MP 

B I T 4 

p P P 

470 

1 ASJ  13  1 3 

07,  3367 

5 0 OOP 

1 

INDEX 

A 

0361 

07, 3370 

1 3371 

0 

TC  F 

+ i 

0362 

REF 

i 

07, 3371 

0 3406 

0 

TC 

GSELECT 

=0.  DO  Y GYRO. 

07,  3 372 

00202- 

1 

nci  - 

00202 

03  64 

REF 

2 

LAST  1315 

07, 3373 

0 3406 

0 

TC 

GSEL  ECT 

=1.  DO  Z GYRO. 

0 7 1 3 374 

003  02_ 

0 

_ ncT 

0030? 

0366 

REF 

3 

LAST  1315 

07, 3375 

0 3404 

1 

TC 

GSELECT  -2 

=2.  DO  X GYRO. 

4)367 Q-7-,-33-76 OOIOO  0 OCT 00100 


0368 

REF  229 

LAST 

131  2 

07, 3377 

3 4755 

1 

CAF 

ZERO 

=3.  DONE 

-Q-3-69- 

REF 

6- 

L AS  T 

131  5 

07,-3  4.00 

5-5-*  3 L4_ 

1 

TS 

LG_YR  Q 

0370 

REF 

2 

LAST 

1314 

07, 3401 

3 3357 

0 

CAF 

LGWA  KE 

WAKE  A POSSIBLE  SLEEPING  JOB. 

0371 

REF 

6 

LAST 

121  5 

07, 3402 

0 5137 

1 

TC 

JOBW ARE 

0372 

REF 

2 

LAST 

1310 

07, 3403 

1 3205 

1 

NORESET  TCF 

I MU F INED 

DO  NOT  RESET  POWER  SUPPLY 

CAP:  ASSEMBLE-  REVISION  069  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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ROUTINES 

USER'S  PAGE  NO.  14  E3  S4 

0373 

REF 

28 

LAST 

131  3 

07, 3404 

4 4751 

1 

-2 

CS 

FOUR 

SPECIAL  ENTRY  TO  REGRESS  LGYRO  FOR  X. 

0374 

REF 

7 

LAST 

1315 

07,3405 

27*314 

1 

ADS 

LGYRO 

0375 

REF 

346 

LAST 

131  1 

07, 3406 

50  002 

0 

GSELECT 

INDEX 

0 

SELECT  GYRO. 

037ft 

07,3407 

3 0000 

1 

CAF 

0 

PACKED  WORD  CONTAINS  GYRO  SELECT  BITS 

LARI 

1 ?Q4 

- 07  + 3410 

5 4 0-64 

1 

IS- 

IJ01P4- 

AND  INCREMENT  TC  LGYRO. 

0378 

REF 

19 

LAST 

12  8 7 

07,3411 

7 4757 

1 

MASK 

SEVF  N 

0379 

REF 

49 

LAST 

131  1 

07, 3412 

6 4737 

0 

AD 

BIT13 

REF 

07,3413 

27*314 

1 

ADS 

EGYPT 

0381 

REF 

59 

LAST 

1313 

07,3414 

54  003 

0 

TS 

EBANK 

0382 

REF 

17 

LAST 

131  3 

07, 3415 

7 4357 

0 

MASK 

LOW  8 

0383 

REE 

50 

_last 

1313 

OTj  3416 

54.  061 

1 

TS 

I TEMPI 

0384 

REF 

20 

LAST 

131  6 

07,3417 

4 4757 

1 

CS 

SEVFN 

03  88 

RFF 

14 

-LAST 

13  1 6 

07, 3420 

7 0064 

1 

MASK 

I TFMP4 

0386 

REF 

15 

LAST 

131  6 

07, 3421 

54  064 

1 

TS 

I TEMP4 

0^87 

07,  3 4-22 

0 00  06- 

1 

EXTEND- 

MOVE  DP  COMMAND  TO  RUPTREGS  FOR  TESTING^ 

0388 

REF 

51 

LAST 

131  6 

07, 3423 

5 0061 

0 

INDEX 

ITEMP1 

0389 

07,3424 

3 1401 

0 

DC  A 

1400 

03  90 

REF 

43 

LAST 

12  9 4 

07+  3-425 

52  071 

0 

DXCH 

RUPTREC1 

0391 

REF 

44 

LAST 

1316 

07, 3426 

10  070 

1 

CCS 

RUPTREG1 

039? 

^R-F-E 

1 

- Q7-+3-42  7 

L 3442 

1 

TCF 

_M  A J + 

0393 

07, 3430 

1 3432 

0 

TCF 

+ 2 

0394 

REF 

1 

07,3431 

l 3562 

1 

TCF 

MA  J- 

0395 

REF 

9 

LAST 

1294 

07,3432 

10  071 

0 

CCS 

RUPTREG2 

0396 

REF 

1 

07, 3433 

1 3437 

0 

TCF 

MIN  + 

03  9-7  _ 

-REE— 

1 

07, 3434 

1 33  64 

1 

TCF 

S TP T GYP  2 

0398 

REF 

1 

07,3435 

1 3557 

1 

TC  F 

MIN- 

0399 

REF 

2 

LAST 

1316 

07,3436 

1 33  64 

1 

TCF 

STRTGYR2 

-1-9:  Qj— NOV.  2-5.-L96-3 SKIPPER  .070 2AG-E L3J. 7 
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L 

I HU 

MCDE 

SWITCHING 

ROUT INES 

USER*  S PAGE  NO.  15  E3  S4 

0400 

RFF 

1 

07,3437 

6 3473 

1 

MIN  + 

AD  -GYROMIN 

SMALL  POSITIVE  COMMAND.  SEE  IF  AT  LEAST 

0401 

07, 3440 

0 0006 

1 

EXTEND 

16  GYRO  PULSES. 

P FF 

3 

IAS  J 

134  6 

07,3441 

6—3-364_ 

Q- 

8XMF  STRTGYR2 

0403 

07,3442 

0 0006 

1 

M A J + 

EXTEND 

DEFINITE  POSITIVE  OUTPUT. 

07 , 34-4-3 

3 36-Q3- 

1 

DCA  GYRPFRAC 

0405 

REF 

45 

LAST 

131  6 

07,3444 

20  071 

0 

DAS  RUPTPEG1 

07,  344 9 

3 0044 

0 

1 

s 

u 

b- 

a 

SELECT  POSIT  I VF  TOROIITNG  EOR  THIS  GYRO. 

0407 

07,  3446 

0 0006 

1 

EXTEND 

0408 

REF 

20 

LAST 

131  5 

07, 3447 

05  014 

1 

WOR  CHAM  14 

0400 

RFF 

10 

LAST 

1302 

07,  3450 

3 6073 

0 

CAF  L0W7 

LEAVE  NUMBER  OF  POSSIBLE  8192  AUGMENTS 

0410 

REF 

10 

LAST 

1316 

07, 3451 

7 0071 

0 

MASK  RUPTREG2 

TO  INITIAL  COMMAND  IN  MAJOR  PART  OF  LONG 

RFF 

1 1 

J AST 

131  7 

D7 , 3487 

56  071  1 

XCH  RUPTPEG2 

TFRM  STORAGE  AND  TRUNCATED  FRACTION 

0412 

07, 3453 

0 0006 

1 

GMERGE 

EXTEND 

IN  MINOR  PART.  THE  MAJOR  PART  WILL  BE 

0413 

RFF 

39 

LAST 

1293 

07,3454 

7 4744 

0 

HP  BIT8 

COUNTEO  DOWN  TO  ZERO  IN  THE  COURSE  OF 

044  4_ 

RFF 

21 

1 AST 

129  4 

07, 3485 

54  06-2 

_L 

TS  ITEMP2 

PUTTING  OUT  THE  ENTIRE  COMMAND. 

0415 

REF 

4 6 

LAST 

13  1 7 

07, 3456 

3 0070 

0 

CA  RUPTREG1 

0416 

07,3457 

0 0006 

1 

EXTEND 

044  7 

RF  F 

3-1 

-4.-AST 

130  4 

. 07, 3460 

7 4743 

1 

MP  BITS 

0418 

REF 

47 

LAST 

131  7 

07, 3461 

54  070 

1 

TS  RUPTREG1 

0419 

REF 

227 

LAST 

1306 

07, 3462 

3 0001 

0 

CA  L 

0-470 

0 7,  3463 

0-00  0-6- 

1 

FXTFND 

0421 

REF 

78 

LAST 

1279 

07,3464 

7 4736 

0 

MP  BITL4 

0422 

REF 

22 

LAST 

13  1 7 

07, 3465 

26  062 

1 

AOS  ITFMP? 

INITIAL  COMMAND. 

0423 

07,3466 

0 0006 

1 

EXTEND 

SEE  IF  MORE  THAN  ONE  PULSE  TRAIN  NEEDED 

0424 

REF 

48 

LAST 

131  7 

07,3467 

3 0071 

1 

DCA  RUPTREG1 

(MORE  THAN  16383  PULSES). 

04  7 S 

R 6-F 

1 

- -0  7-,  3 470 

o 

AD  MI  NU  SI 

0426 

REF 

421 

LAST 

131  5 

07,3471 

10  000 

0 

CCS  A 

0427 

REF 

1 

07,3472 

1 3516 

1 

TCF  LONGGYRO 

0428 

07,-3473 

77601 

0 

-GYROMIN 

OCT  -176 

MAY  BE  ADJUSTED  TO  SPECIFY  MINIMUM  CMD 

0429 

07, 3474 

1 3500 

0 

TCF  4-  4 

Q430 

RFF 

79 

-4  A S4 

1 3 17 

07^-3-4-75- 

3 4-736 

1 

CAF  _B_I  T 1 4 - 

0431 

REF 

23 

LAST 

131  7 

07,3476 

26  062 

1 

ADS  ITEMP2 

0432 

REF 

230 

LAST 

131  5 

07,3477 

3 47  55 

1 

CAF  ZERO 

REF  52  LAST  1316  07,3500  50  061  0 +6  INDEX  ITEMP1 

07,3501  53*401  1 OXCH  1400 


0433 

0434 
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I MU 

MCDE 

SWITCHING 

ROUTINES 

USER'S  PAGE  NO.  16  E3  S4 

0435 

RFF 

24 

LAST 

131  7 

07,3502 

3 0062 

0 

CA 

I TEMP2 

ENTIRE  COMMAND. 

0436 

REF 

3 

LAST 

1309 

07, 3503 

54  047 

0 

LASTSEG 

TS 

G YPOCMD 

0 7, 3-504 

0.  0006 

1 

EX  TEND- 

043  8 

REF 

53 

LAST 

131  2 

07, 3505 

7 4742 

0 

MP 

BIT1  0 

WAITLIST  DT 

0439 

REF 

37 

LAST 

1302 

07, 3506 

6 6244 

0 

AD 

THREE 

TRUNCATION  AND  PHASE  UNCERTAINTIES. 

O^JtO 

R£f 

43_ 

last: 

131  3 - 

07,3507 

0 32-03 

- .0  - 

TC 

WAITLIST 

0441 

RFF 

20 

LAST 

131  3 

E3 , 1474 

EBANK= 

C DU  I ND 

0442 

REF 

2 

LAST 

131  3 

07, 3510 

03360 

1 

2CADR 

STRTGYRO 

D44  ? 

07, 3-51  L 

16103 

-1 

044  8 

RFF 

54 

LAST 

131  8 

07, 3512 

3 4742 

1 

GYROEXI T 

CAF 

BJT10 

07,3313 

0 00-06 

1 

EXTEND- 

0450 

REF 

21 

LAST 

131  7 

07,  3514 

05  014 

1 

WOR 

CHAN  14 

0451 

REF 

76 

LAST 

131  1 

07, 3515 

l 5261 

0 

TCF 

TASKCVER 

0452 

REF 

53 

LAST 

131  7 

07, 3516 

50  061 

0 

LONGGYRO 

INDEX 

I TEMPI 

0453 

07, 3517 

5 3 ' 40 1 

1 

DXCH 

1400 

INITIAL  COMMAND  OUT  PLUS  N AUGMENTS  OF 

R_FF 

80- 

last 

131  7 

07, 3520 

3 4 73-6 

1 

CAF 

B I T 1 4 

8192.  INITIAL  COMMAND  IS  AT  L F AST  8192. 

0455 

REF 

25 

LAST 

131  8 

07, 3521 

6 0062 

0 

AD 

I TEMP2 

0456 

REF 

4 

LAST 

131  8 

07, 3522 

54  047 

0 

TS 

GYROCMD 

0457 

07, 3523 

0 0006 

1 

AUG3 

EXTEND 

GET  WAITLIST  DT  TO  TIME  WHFN  TRAIN  IS 

0458 

REF 

55 

LAST 

131  8 

07, 3524 

7 4742 

0 

MP 

B I T 1 0 

ALMOST  OUT. 

045.9 

REF 

4 

1 AST 

12.8  0 . 

_ 07,3525 

6 7744  1 

AD 

NEG3 

0460 

REF 

44 

LAST 

1318 

07, 3526 

0 5203 

0 

TC 

WAITLIST 

0461 

REF 

21 

LAST 

1318 

E 3 , 1474 

EB ANK= 

C DU  I ND 

0-4-6?- 

ref 

I 

07,3.527 

03532 

0 

?C  ADR 

8192  AUG 

0462 

REF 

1 

07,3530 

16103 

1 

0463 

REF 

1 

07, 3531 

1 3512 

0 

TCF 

GYROEX  IT 

0464 

REF 

7 

LAST 

13  1 5 

07, 3532 

0 3614 

1 

8 19  2 AUG 

TC 

C AGE  TEST 

04441 

RJEF 

— 49 

1 A*vT 

13  15 

07,3533 

3 435X) 

1 

CAF 

B I T4 

04642 

07, 3534 

0 00  06 

1 

EXTEND 

04643 

REF 

64 

LAST 

131  1 

07,3535 

02  012 

0 

RAND 

CHAN  12 

04-64  4 

REF 

LASX 

131  7 

. 07- ,_3l53 6- 

10  0.0.0. 

-0 

CCS 

A 

0464  5 

REF 

3 

LAST 

1308 

07,3537 

1 3612 

0 

TCF 

I MUB AD 

0465 

REF 

9 

LAST 

1316 

07, 3540 

3 1314 

0 

CA 

LGYPO 

ADD  8192  PUL  SF S TO  GYROCMD 

0466 

REF  . 

— 6XL 

-LAST 

1316 

07,  3341 

54  003 

0 

TS 

EBAN  K 

0467 

REF 

18 

LAST 

1316 

07, 3542 

7 43  57 

0 

MASK 

L0W8 

0468 

REF 

54 

LAST 

131  8 

07, 3543 

54  061 

1 

TS 

[TEMPI 

0469 

REF 

55 

LAST 

131  8 

07, 3544 

50  061 

0 

INDEX 

I TEMPI 

SEE  IF  THIS  IS  THE  LAST  AUG. 

0470 

07, 3545 

1 1'400 

0 

CCS 

1 400 

047J 

.REF— 

1 

-07,3  546 

1 3552 

-1 

TCF 

AUG2 

MORE  TO  COME. 

04  72 

REF 

81 

LAST 

13  1 8 

07, 3547 

3 4736 

1 

CAF 

BIT14 

0473 

REE- 

5 

EAST 

13  1 8 

07.3550 . 

2 6 .047 

0 

ADS 

GYROCMD 

0474 

REF 

1 

07,  3551 

1 3504 

1 

TCF 

LASTSEG  +1 

AS-S-E-MBLE  «E-VT-SION  069  -QF-AGC  PROGRAM-  LUMINARY  BY  NASA  2021112-011 
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GAP : 


I MU 

MODE 

SWITCHING 

ROUTINES 

USER' S PAGE  NO.  17 

E3  S4 

0475 

RFF 

56 

LAST  1318 

07,3552 

50  061  0 

AUG2 

INDEX 

ITEMP1 

0476 

07, 3553 

5 5 1 4 00  0 

TS 

1400 

LAST  l 3 l fl 

D7t  3 5^4 

3 4736-  1 

CAF  . 

BIT14_. 

0478 

REF 

6 

LAST  1318 

07,3555 

26  047  0 

ADS 

GYROCMD 

0479 

REF 

1 

07, 3556 

1 3523  1 

TCF 

A UG  3 

COMPUTE  DT. 

GAP : ASSEMBLE  REV  IS  ION- 069  OF  AGO  PROG-RAM  LUMINARY  BY  NASA  2021 112-011 


19:02  NOV.  75.1  968 SKIPPFR  .070 PAGE  1320 


L 

IMU 

MCDE 

SM  TCHING 

ROUTINES 

USER'S  PAGE 

: MO.  1 8 

E3  S4 

04  80 

REF 

2 

LAST 

1317 

07,3557 

6 3473 

1 

MIN- 

AD 

-GYR  CM I N 

POSSIBLE  NEGATIVE  OUTPUT. 

0481 

07,3560 

0 0006 

1 

EXTEND 

REF 

4 

l AS  T 

13  1 7 

07,3-561 

_ 6-  3364^ 

0 

BZHF 

STRTGYR2  _ .. 

0483 

07, 3562 

0 0006 

1 

MAJ- 

EXTEND 

DEFINITE  NEGATIVE  OUTPUT. 

R-EF 

2 

1 ART  13  17 

07, 3563 

4 3603 

0 

DCS 

_G  YlP  C_F  P A C 

0485 

REF 

49 

LAST 

131  7 

07, 3564 

20  071 

0 

DAS 

RUPTPEG1 

l 7 

LAST 

1^17 

07 1 3 56  5 

3 00E4 

0 

_CA 

I TEKP4 

SFI  FCT  NFGAT I VF 

TCIRQU  TNG  FOR  THIS  GYRG. 

0487 

REF 

32 

LAST 

131  7 

07, 3566 

6 4743 

0 

AO 

B I T9 

0488 

07, 3567 

0 0006 

1 

EXTEND 

0489 

REF 

22 

—LAST 

131  8 

07,3570- 

. 05  Q14l 

1 

JOR 

CHAN14  _ 

0490 

REF 

50 

LAST 

1320 

07, 3571 

4 0070 

1 

cs 

RUPT  PEG1 

SET  UP  RUPTREGS 

TO  FALL  INTO 

GMERGF. 

-0-491 

REF 

51 

-LAST 

132  0 

- 07+3572 

54  07a 

1 

TS 

RUPTREG1 

ALL  NUMBERS  PUT 

INTO  GYROCMO 

ARE 

0492 

REF 

12 

LAST 

131  7 

07,3573 

4 0071 

0 

CS 

RUPTREG2 

POSITIVE  - R I T 9 

OF  CHAN  14  DETERMINFS 

0493 

REF 

11 

LAST 

131  7 

07, 3574 

7 6073 

1 

MASK 

L0W7 

THE  SIGN  OF  THE 

COMMAND. 

_ _ 0494 

07, 3575 _ 

4 0000 

0 

COM 

0495 

RFF 

13 

LAST 

1320 

07, 3576 

56  071 

1 

XCH 

RUPTPEG2 

0496 

07, 3577 

4 0000 

0 

COM 

04-97-  - 

REF 

I— 

- 07, 3600 

1 3453 

J_ 

TCF 

GMERGF 

0498 

07, 3601 

01700 

1 

GDESELCT 

OCT 

1700 

TURN  OFF  SELECT 

AND  ACTIVITY 

BITS. 

07,  3602  00000  1 GYROFRAC  2 DEC  .215  B -21 

07,3603  00034  0 


0499 

0499 
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L 

[MU 

MCDE 

SWITCHING  ROUTINES 

USER' S 

PAGE  MO.  19  E3  S4 

P0500 

l NU  MODE  SWITCHING 

ROUTINES 

COME  HERE 

WHEN  ACTION  COMPLETE. 

Q 7 T 3 AO-4 

0 -0004- 

1 ENDIMU- 

EXTEND 

MQDlE—  is  bad 

.11.  CAGE-  HAS  JOC CURED  OP-  IF 

0502 

REF 

33 

LAST  1111  0 7^  3 605 

00  Oil 

1 

READ  D SA  l MOUT 

ISS  WARNING 

IS  ON. 

0503 

RFF 

58 

LAST  1312  07,3606 

7 4753 

0 

MASK  BIT1 

05-04- 

R£F 

423 

_LAST  1318  _ 07,-3. 6J37 

10  000. 

CL 

_ CHS  A 

0505 

REF 

4 

LAST  1318  07,3610 

1 3612 

0 

TCF  IMUBAO 

0506 R-gF 3 l-AS-T 524 07,361! 1 -3640-  1 1 MU  GOOD IOE GOODEISID WITH  CtAl  =-_g 


0507 

REF 

231 

LAST 

131  7 

07, 3612 

3 4755  1 

IMUBAO 

CAF 

ZERO 

0508 

RFF 

2 

LAST 

574 

07 ,3.613 

1 3635  0 

TCF 

B AOFNO 

0509 

REF 

53 

LAST 

13  13 

07,3614 

3 4746  0 

CAGETEST 

CAF 

B I T 6 

SUBROUTINE  TO  TERMINATE  I MU  MODE 

05  10 

RFF 

64 

last 

131  2 

07, 3615 

7 1302  0 

MASK. 

. I MOD  ES3.0 

SWITCH  IF  IMU  HAS  BFEN  CAGED. 

0511 

REF 

424 

LAST 

132  1 

07,3616 

10  000  0 

CCS 

a 

0512 

REF 

5 

LAST 

132  1 

07,3617 

1 3612  0 

TCF 

I PUB  AD 

DIRECTLY. 

0513 

R-E  F— 

347 

L AST  - 

13-L6 

-0  7_,3  620 

0 -0002.0 

TC 

Q 

WITH  CIA)  = +0. 

0514 

REF 

65 

LAST 

13  2 1 

07, 3621 

4 1302  0 

CAGETSTO 

CS 

I MOD  ES30 

SKIP  IF  IMU  NOT  BEING  CAGED. 

0345 

REF 

5-4- 

last 

132  1 

-0-7,  3 622  - 

7 4746  1 

MASK 

B I T 6 

0516 

REF 

425 

LAST 

13  2 1 

07,3623 

10  000  0 

CCS 

A 

0517 

REF 

348 

LAST 

132  1 

07,3624 

24  002  0 

1 NCR 

0 

001-8 REF  349 LAST  137J 07,-3625 0 0002  0 IC Q_ 


0519 

0520 

REF  66 
R F£—  -5-5- 

LAST 
L AS  T 

1321 
132  1 

07,3626 
07 ,3627 

4 1302  0 
7 4746  1 

CAGETSTJ  CS 

MASK 

I M3DES30 
B IT6 

IF  DURING  MODE  SWITCH 
IT  IS  FOUND  THAT  THE 

INI TI AL IZATTON 
IMU  IS  BEING  CAGED, 

0521 

REF  426 

1 AST 

132  L 

07,3630 

10  000  0 

CCS 

A 

SET  IMUCADR  TO  -0  TO 

INDICATE  OPERATION 

0522 

REF  350 

LAST 

1321 

07,3631 

0 0002  0 

TC 

Q 

COMPLETE  BUT  FAILED. 

RETURN  IMMEDIATELY 

0523 

REF  232 

LAST 

132  1 

07, 3632 

4 4755  0 

CS 

ZERO 

TO  SWRETURN. 

0524 

REF  4 

LAST 

11  l 6 

07,3633 

55’ 304  0 

TS 

I MUC ADR 

0625 — 

— R-FF 7- 

- LAST- 

-13  1 3 

0 7,3  634 

-.1  2730—0 

TCF 

..  MQD.E-EX-U 
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L IMU  MODE  SWITCHING  ROUTINES  USER'S  PAGE  NO.  20  E3  S4 


P0526  GENERALIZED  MODE  SWITCHING  TERMINATION.  ENTER  AT  GOODENO  FOR  SUCCESSFUL  COMPLETION  OF  AN  I/O  OPERATION 

R0528  OR  AT  BADEND  FOR  A N UNSUCCESSFUL  ONE.  CIA)  OR  ARRIVAL  =0  FOR  IMU,  1 FOR  OPTICS. 


0530 

REF 

14 

LAST 

132  C 

07, 3635 

54  071 

0 

RAOEND 

TS 

RUPTREG2 

DEVICE  INDEX. 

0531 

REF 

233 

LAST 

132  1 

07,3636 

4 4755 

0 

cs 

ZERO 

FOR  FAILURE. 

RE  F 

4 

1 AST 

13  ? 1 

07 , 3637 

l 36  42 

0 - 

TCF 

_G POP  END  + 2 

0533 

REF 

15 

LAST 

13  2 2 

07,3640 

54  071 

0 

GOODEND 

TS 

RUPTREG2 

0 53-4 

REF 

1 33 

l AST 

131  4 

07,3641 

4 4753 

0 

CS 

ONE  ..  . 

FOR  SUCCESS. 

0535 

REF 

ii 

LAST 

1294 

07,3642 

54  072 

0 

TS 

PUPTREG3 

0 53-6 

REF- 

16 

LASI 

13-2-2 

07,3643 

50  0 71 

1 

INDEX 

RIJPTRFG2 

SEE  IF  USING  PROGRAM  ASLEEP. 

0537 

REF 

5 

LAST 

289 

07, 3644 

11*304 

0 

CCS 

MODECADR 

0538 

07, 3645 

1 36  51 

1 

TCF 

+ 4 

YES  - WAKE  IT  UP. 

0539 

REE_ 

1 

07,3646 

1 3661 

1 - 

TCF 

ENDMODE 

IF  0,  PROGRAM  NOT  IN  YET. 

05392 

07,3647 

0 0006 

1 

EXTEND 

05  394^ 

R EE  - 

2 

_L  ASJ 

1322 

_ 07 , 3 650 

1 3662- 

-1  _ 

BZF 

ENDMODF  +1 

BZF  = TCF  IF  MODECADR  = -0. 

0540 

REF 

234 

LAST 

1322 

07,3651 

3 4755 

1 

CAF 

ZERO 

WAKE  SLEEPING  PROGRAM. 

054-4 

REE 

17 

— L AS  T 

13  2 2 

07,  3652 

5-0  071 

l 

INDEX 

RU.PTPEG2 

0542 

REF 

6 

LAST 

1322 

07,3653 

57' 304 

1 

XCH 

MODECADR 

0543 

REF 

7 

LAST 

1315 

07, 3654 

0 5137 

1 

TC 

JOBWAKE 

0544 

0545 

--  - -0546-- 

REF 

REF 

-REE 

12 
23 
43  _ 

LAST 

LAST 

—LAST 

13  2 2 
121  5 
11 LL 

07. 3655 

07. 3656 

07. 3657 

4 0072 
50  064 
-.26  164 

0 

0 

0 

CS 

INDEX 

ADS 

RUPTREG3 

LOCCTR 

LCC 

ADVANCE  LOC 

IF  SUCCESSFUL. 

0547 

REF 

77 

LAST 

131  8 

07, 3660 

1 5261 

0 

TCF 

TASKOVER 

0548 

0549 

0550 — 

REF 

REF 

REE- 

13 
18 
- 7 

LAST 

LAST 

-LAST 

13  2 2 
1322 
132-2  - 

07. 3661 

07. 3662 
07,3  663 

3 0072 
50  071 
55 ' 3 04 

1 ENDMODE 

1 +1 

0 

CA 

INDEX 

TS 

RUPT  PEG3 
RUPTPEG2 
MODECADR 

-0  INDICATES 
UNSUCCESSFUL 
SUCCESSFUL . 

OPERATION  COMPI.FTF  BUT 
: -1  INDICATES  COMPLETE  AND 

0551 

REF 

78 

LAST 

13  2 2 

07,3664 

1 5261 

0 

TCF 

TASK  CVER 
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L I MU  MCDE  SWITCHING  ROUTINES 


USER' S PAGE  NO.  21 


P0552 


GENERAL  STALLING  ROUTINE.  USING  PROGRAMS  COME  HERF  TO  WAIT  FOR  I/O  COMPLETION. 


-R0-B54 PROGRAM  OBSGRIPTION 

R0555 

R0556  MOO  8Y—  R . ME  LA  NS  0 N TO  AOD  DOCUMENTATION 


- DATE — 23  FEB  1967 

LOG  SECTION  IMU  MODE  SWITCHING 
ASSEMBLY  SJNDISK  REV.  82 


E 3 S4 


P 0 5 5 7 FUNCTIONAL  DESCRIPTION- 

R0558  TO  CELAY  FURTHER  EXECUTION  OF  THE  CALLING  ROUTINE  UNTIL  ITS  SELECTED 

_ R0559 I/O  FUNCTION  10  C-QMPI  FTF-THF  FOLLOWING-  CHECKS  ON  THE  CALL  I NG  ROUT INF: S 

R0560  MODECADR  ARE  MADE  AND  ACTED  UPON. 

R0561  1)  +0  INDICATES  INCOMPLETE  I/O  OPER AT  ION. C ALL  I NG  ROUTINE  IS  PUT  TO 

RQB62 SLEEP-  

R0563  2)  -1  INDICATES  COMPLETED  I/O  OPERATION.  STALL  BYPASSES  JOBSLEEP 

R0564  CALL  AND  RETURNS  TO  CALLING  ROUTINE  AT  L+3 

R n 9 A 5 3)  -n  TNniCATFS  CQMPI  FTFD  I/O  WITH  FAILURE.  STALL  CLEARS  MODECADR  

RO 566  AND  RETURNS  TO  CALLING  ROUTINE  AT  L + 2. 

R0567  4)  VALUE  GREATER  THAN  0 INDICATES  TWO  ROUTINES  CALLING  FOR  USE  OF 

RDBAB S AM  F nFVICF.  STAII  FXITS  TO  ABORT  WHICH  EXECUTES  A PROGRAM 

R0569  RESTART  WHICH  IN  TURN  CLEARS  ALL  MODECADR  REGISTERS. 

R 05-7-0 CALLING  SEQUENCE- 

R0571  L TC  BANKCALL 

R0572  L + L CADR  (ONE  OF  5 STALL  ADDRESSES  I.E.  I MUST  ALL , OPTSTALL , RADSTALL , 

RCL5T3 AQTS  T ALL » OR  ATTSTALL) 

R0574  NORMAL— EX  IT  MODF- 

R-0675 T-CF JOBS-LEE  P QRJX-F MQOEXIT 

R0576  ALARM  OR  ABORT  EXIT  MODE- 
RQ577 T-G ABORT 

R 0578  OUTPUT- 

— R-0-57-9 M-QQF-CADR  = CAPS IF JQRSL  EEP 

R0580  MODECADR=fO  IF  I/O  COMPLETE 

R0581  BUF2=L+3  IF  I/O  COMPLETE  AND  GOOD. 

- RO 5 82 BUF2=1.  *■?  IF_I/P  COMPLETE  BUT  FAILED. 

RO  5 83  ERASABLE  INITIALIZATION- 

R 0 5-8-4 B1IFL2— -CPNTA-LN-S  RETURN  A D DR F S S PIUS  1.114-2) 

R0585  BUF2  + 1 CONTAINS  F BANK  VALUE  OF  CALLING  ROUTINE. 

R0586  MODECADR  OF  CALLING  ROUTINE  CONTAINS  +0,-l,-0  OR  CADR  RF  T URN  ADDRESS. 


R0587  DEBRIS- 

R 05  88  R LPTREG2  AND  CALLING  ROUTINE  MODECADR. 


0589 

REF 

1 34 

LAST 

1322 

07,3665 

3 

4753 

1 

AOTSTALL 

CAF 

ONE 

AOT. 

0590 

REF 

1 

07,3666 

0 

3672 

1 

TC 

STALL 

0591 

REF 

86 

LAST 

131  3 

07,3667 

3 

4752 

0 

RADSTALL 

CAF 

TWO 

0592 

REF 

2 

LAST 

1323 

07, 3670 

i 

3672 

0 

TCF 

STALL 
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L 

I MU 

MODE 

SWITCHING 

ROUTINES 

USER*  S PAGE  NO.  22  E3 

S4 

0593 

REF 

3 

LAST 

95  8 

07,3665 

CIPTSTALL 

EQUALS 

AOTS  TALL 

Z 4 7 5 5 

1 

T MU  S XA!  1 

XAF 

z E-FLO 

XMLU- 

0595 

07,  3672 

0 0004 

0 

STALL 

INHINT 

05Q^ 

_RFP 

1 Q 1 

_0  7-»  3 6l73 

5A  071 

0 . 

TS 

RUPTPFG2 

SAVE  DEVICE  INDEX. 

0597 

REF 

427 

LAST 

13  2 1 

07,  3674 

5 0 000 

I 

INDEX 

A 

SEE  IF  OPERATION  COMPLETE. 

0598 

REF 

8 

LAST 

1322 

07,3675 

1 1' 304 

0 

CCS 

MODE  CADP 

05-99 

REF 

1 

07,3  676 

1 371t 

J_ 

TCF 

MODA  BORT 

ALLOWABLE  STATES  ARE  +0,  -1,  ANO 

-0. 

0600 

REF 

1 

07,3677 

1 3710 

0 

TCF 

MODE  SLP 

OPERATION  INCOMPLETE. 

0601 

REF 

I 

07, 3700 

1 3704 

0 

TCF 

MODE  GOOD 

COMPLETE  AND  GOOD  IF  = -1. 

0602 

REF 

20 

LAST 

1324 

07, 3701 

50  071 

1 

MG2 

INDEX 

RUPTREG2 

COMPLETE  AND  FAILED  IF  -0.  RESET 

TO  *-0. 

0603 

REF 

9 

LAST 

1324 

07, 3702 

55*304 

0 

TS 

MODE  CADR 

RETURN  TO  CALLER. 

R FF 

8 

1 ART 

13?1 

07,3-7-03 

1_2730 

0 

TCF 

MODEEX IT 

0605 

REF 

428 

LAST 

13  2 4 

07, 3704 

10  000 

0 

MODEGOOD 

CCS 

a 

MAKE  SURE  INITIAL  STATE  -1. 

06  06  - 

R FF 

2 

L ASJ 

132  4 

07,3  705 

3714 

1 

TCF 

MCDA BORT 

0607 

REF 

25 

LAST 

131  4 

07, 3706 

24  133 

0 

I NCR 

BUF2 

IF  SO,  INCREMENT  RETURN  ADDRESS 

AND 

0608  PEF  I 07,  3 707 ] 3 TOLL  JO TO  F MG? RETURN  IMMEDIATELY.  SETTING  C APR  = +0. 


0609 

REF 

13 

LAST 

934 

07, 3710 

0 4645 

1 

MODESLP 

TC 

MAKECADR 

CALL  FROM  SWITCHABLE  FIXED  ONLY. 

06-i  a 

_R_E-F 

21  _ 

LAST 

132  4- 

07,  37 1 1 

50  071 

1 

INDEX 

RUPT  PEG2 

0611 

REF 

10 

LAST 

1324 

07, 3712 

55*  304 

0 

TS 

MODECADR 

0612 

REF 

6 

LAST 

131  4 

07,3713 

1 5133 

1 

TCF 

JOBS  LFEP 

0613 

REF 

26 

LAST 

1324 

07, 3714 

52  134 

0 

MODABORT 

DXCH 

BUF2 

06132 

REF 

6 

LAST 

112  1 

07,3715 

0 5710 

1 

TC 

BA  I L OUT 1 

TWO  PROGRAMS  USING  THE  SAMF  DEVICE. 

-0644- 

07.3716 

01210 

0 

_QC_T 

__  1 210  _ __ 
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L I MU  MODE  SWITCHING  ROUTINES 


USER'S  PAGE  NO.  23  E3  S4 


P0615  CONSTANTS  FOR  MODE  SWITCHING  ROUTINES 


_(  a<;t 

96  9 

S 74? 

FUTS3L4 

_ 

OCI-1  4 _ 

0617 

REF 

3 

LAST 

1280 

4771 

BITS4S6 

= 

OCT  5 0 

0618 

07, 371 7 

00030 

1 

BITS4-5 

OCT 

00030 

DA 

P F F 

40 

last 

1317 

_ 4 744 

1MU-SEF  LG. 

FQIIAI  S 

R I TP 

INTFRPRFTFR 

SWITCH  7. 

0620 

07, 3720 

77500 

I 

-CO  MM  AX 

DEC 

-191 

06  21 

07, 3721 

77477 

0 

-COMMAX- 

DEC 

-192 

0622 

.07,3  722- 

000  74. 

L 

6.0013  S_  . 

DEC  . 

60- 

0623 

REF 

6 

LAST 

96  5 

07,  3 163 

IMUF IN20 

IMUF  INF 

0624 

REF 

4 

LAST 

38  2 

07, 3723 

3 1307 

1 

GOMANUR 

CA 

ATTCADR 

IS  K ALCMANU 

FREE 

0625 

07. 3724 

_Q  0006 

_L 

EXTEND 

0626 

07,3725 

l 37  30 

1 

8ZF 

+ 3 

0627 

R Ff 

. 5 

L AST  - 

-8-1-2- 

07,322-6 

-0  5652- 

0 

TC 

pnnnnn 

..  AID  _ 

0628 

07, 3727 

01210 

0 

OCT 

1210 

2 TRYING  TO 

USE  SAME  DEVICE 

0629- 

07,3  730 

0-00-06- 

1 

+ 3 

FXT-FNn 

0630 

REF 

27 

LAST 

1324 

07, 3731 

3 0134 

1 

DC  A 

BUF2 

0632 

REF 

5 

LAST 

132  5 

07,3732 

53' 310 

0 

DXCH 

A TTC ADR 

SAVE  FINAL  ! 

RETURN  FOR  KALCMAN3 

06  3 3 

REF 

41 

LAST 

1294 

07, 3733 

3 0006 

1 

CA 

BBANK 

0634 

REF 

21 

LAST 

131  6 

07, 3734 

7 4757 

1 

MASK 

SFVE  N 

0-635 R-EF 6 L AS-T— 132-5 07,3  735 27.13 10- -0 4QS &JTC  ADR-+J 


0642 

REF 

32 

LAST 

1108 

07, 3736 

3 0167 

1 

CA 

PRIORITY 

0643 

—REF 

2- 

— L-AS-T- 

—24-7- 

07,3731 

7 7724 

_0_ 

-MAlS-K 

PR  I n 37 

0644 

REF 

2 

LAST 

382 

07,3740 

5 5 ' 3 1 1 

1 

TS 

ATTPRIO 

SAVE  USERS  PRID 

0645  2 

. R EF  - 

1 

Q 7 , 3-74-1  - 

—3—374-5- 

_4 

r af 

K A|  F RrnN 

8FT  FRANK  FOR  KAITMflNB 

06453 

REF 

61 

LAST 

131  8 

07,3742 

54  003 

0 

TS 

EBANK 

06454 

REF 

50 

LAST 

128  1 

07, 3743 

0 4635 

0 

TC 

POST  JUMP 

0-6455- 

-REF 

1_ 

07, 3744 

44Q04_  0 

CAOP 

KALC  MAN3 

06456 

REF 

13 

LAST 

497 

07, 3745 

03274 

0 

KALEBCON  ECADR 

BCDU 
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P0646  PROGRAM  DESCRIPTION 

R0647  IMU  STATUS  CHECK  ROUTINE  R02  (SUBROUTINE  UTILITY) 

R-06-48 MOD  NO  -- -1 

R0649  MOD  BY  - N.8RODEUR 
R0650  FUNCTIONAL  DESCRIPTION 
- R0651-  - - - - 

R0652  TO  CHECK  WHETHER  IMU  IS  ON  AND  IF  ON  WHETHER  IT  IS  ALIGNED  TO  AN 

R 06 5 3 ORIENTATION  KNOWN  BY  THE  CMC.  TO  REQUEST  SELECTION  OF  THE  APPROPRIATE 

p.06g./j  pppg»AM  IF  THF  TM1I  T9  OFF  nR  NOT  Al  TKNFD  TO.  AN  JQR1ENXAT 1 ON . .KNOWN. .B.Y  THF 
R 0655  CMC.  CALLED  THROUGH  BANKCALL 
R0656  CALLING  SECUENCE- 

R0657 - 

R0658  L TC  BANKCALL 

R0659  L+l  CADR  R02BOTH 

RQ660 S-UBRD-UX  LN£_S  CALL  ED 

R0661 

R0662  VARALARM 

R 06-6-3 — FLAG  UP 

R0664  NORMAL  EXIT  MODES 
R 0665 

R0666 A.T.  ..U--2-  OE-DALL  ING  . SEQUENCE 

R0667  ALARM  OR  ABORT  EXIT  MODES 

R0668  GOTOPOOH,  WITH  ALARM 

R0673 E 9A  SABLE  -I-NI J-LAL  L2AT EON- REQU I RED  _ 

R0674 

R0675  NONE 

RD6T6 DE&R-I-S 

R0677 

R0678  CENTRALS— A, QtL 


06X-9 

-3A,  3X60 

BANK 

34 

0680 

REF 

1 

04, 2000 

SETLOC 

R02 

0681 

04,3174 

BANK 

06  8? 

- REF 

1 

COUNT* 

$ i/P 02 

0683 

04, 3174 

00063 

1 

DEC  51 

DEC 

51 

0684 

REF 

7 

LAST 

1309 

04, 3175 

3 4737 

0 

R02  BOTH 

CAE 

REFSMBIT 

0685 

RFF 

.ED— 

LAS_T 

130.9 

04, 3176 

7 0077 

0 

MASK 

EL AGWPD3 

0686 

REF 

429 

LAST 

13  2 4 

04,3177 

1 0 000 

0 

CCS 

A 

0687 

REF 

1 

04, 3200 

0 3211 

0 

TC 

R02  ZERO 

ZERO  IMUS 

0688 

REF 

67 

LAST 

13  2 1 

04, 3201 

3 1302 

1 

CA 

I MOD  ES30 

0689 

REF 

33 

LAST 

1320 

04, 3202 

7 4743 

1 

MASK 

B I T 9 

IS  ISS  INITIALIZED 

069.0— 

- _04,  3203 

0_  0006 

1 

FXTEND 

0691 

04, 3204 

1 3206 

1 

BZE 

+ 2 

0692 

REF 

50 

LAST 

131  8 

04,3205 

4 4750 

0 

cs 

B IT4 

SEND  IMU  ALARM  CODE  210 

06-93— 

— REF 

-1 

04,3206 

6 3214 

Q 

AD 

0CT220 

SEND  RFFSMM  ALARM 

06  94 

REF 

A 

LAST 

63  1 

04, 3207 

0 5735 

0 

TC 

VARA  LARK 

0695 

REE. 

67 

LAST 

_ 9J7  a_ 

04, 321 0 

0 6 001 

0 

TC 

G OT  0 POOH 

0700 

REF 

67 

LAST 

1249 

04,3211 

0 5504 

0 

R02ZFRO 

TC 

UPFL  AG 
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L I MU  MODE  SWITCHING  ROUTINES 


USER' S PAGE  NO.  25  E3  S4 


0701  REF  6 LAST  978  04,3212  00007  0 AOPES  IMUSE 

0702  REF  9 LAST  131  2 04,3213  1 4631  0 TCF  S WR  E TURN 

07025 04,3214  00770  1 OCT  220 OCT ZZQ 


GAP-: — 

L 

P07  03 

R 97-04- 

R0705 

R9707 

R 07  09 

R 9 7 1 9 

R0711 

R077r2- 

R 07 1 3 
R0716 
R0719 


ASS-EMBLF  REVISION  069  DF  AXiC  PROGRAM  -LUMINARY  BY  .NASA  2021L12-01] 

1.9 : 02_Nay_..-_25_,  156.8 

_SKJLPP  Efi_ 

.070  PAGE  1 32  B _ _ 

IMU  MODE  SWITCHING  ROUTINES 

USER'S  PAGE 

NO.  26 

E3  S4 

PROGRAM  DESCRIPTION  P06  I0FER67 


-TRANSFER  THE  I--SS/CMG  FROM- THE  OPE-RA-TFTO  THF  STANDBY-  CONDITI OAU- 

THF  NORMAL  CONDITION  OF  READINESS  OF  THE  GNCS  WHEN  NOT  IN  USE  IS  STANDBY.  IN  THIS  CONDITION  THE  I MU 

HEATER  POWER  IS  ON.  THE I Ml  I OPFRATF P-CLWE-R— LS-OFF.-  THE C-QUEiLT  E R PUH  ER I.S  ON. THE  OPTICS POWER  IS  OFF. THF 

CMC  STANDBY  ON  THE  MAIN  AND  LEB  DISKYS  IS  ON. 

CALLING  SECUFNCE: 

ASTRONAUT  REQUEST  THROUGH  DSKY  V37E  06E. 

SU&FOUTINE-S— CALT-HU 

GOP  ER  FI 
BANKCALL 

F LAGDOW-N 


&AP: A S-S  E M &L-E  -RE  VISION  Q69-0F  A GG-PR  OGRA-M-  L-UM I NARY  BY  NASA  20211  12-011 LST-Q-2-  NOV.  25,-1988 SKTPPFR  .070 P£G£  £329 


L 

I MU 

MODE 

SWI TCHI NG 

ROUTINES 

USER'S  PAGE  NO.  27  F3  S4 

P0810 

P R E ST  AND 

PREPARES 

FOR  STANDBY 

BY  SNAPSHOTTING  THE  SCALER  AND  T I ME  1 

TIME2 

R 08  1 1 

THE 

LCW 

5 B I TS 

, OF 

THE  SCALER 

ARE  INSPECTED  TO  INSURE  COMP  AT  A B I L I TY 

BPTUFCM 

THF  QTAI  FR 

R F-AD  I NG AJ\1  D THF.  TIMF1  T I ME2  READ  TNG. 

08125 

REF 

1 

37,2000 

SETLOC 

P05P06 

37, 3641— 

BANK 

0813 

REF 

2 

LAST 

115 

0314 

E8ANK= 

T IME2SAV 

COUNT* 

s$ypo6  . 

08145 

RFF 

68 

LAST 

1326 

37,3641 

0 5504 

0 P06 

TC 

UPFLAG 

SET  N0D0V37  BIT 

RFF 

5_ 

1 AST 

120-5 

37,  3-6 AZ- 

000  54 

0 

ADRFS 

NHDCFLA.G 

0815 

37,  3643 

0 0004 

0 PRESTANO 

INHINT 

0816 

37, 3644 

0 0008 

1 

EXTEND 

0817 

REF 

32 

LAST 

130  1 

37,3645 

3 0025 

0 

DCA 

T IME2 

SNAPSHOT  TIME1TIME? 

0818 

REF 

3 

LAST 

1329 

37, 3646 

52  315 

1 

DXCH 

T IME2SAV 

_ _ 0819 

R EF 

L- 

_ 37,  3 647 

. 0 3700 

_0._ 

TC. 

SCAL  PREP 

0820 

REF 

i 

37,3650 

0 3643 

0 

TC 

PRESTAND 

T1.T2, SCALER  NOT  COMPATIBLE 

0821 

REF 

746 

LAST 

1314 

37,3651 

52  155 

1 

DXCH 

MPAC 

T 1 , T 2 AND  SCALER  OK 

0822  - 

ItE-F 

L 

37, 3657 

52  317 

0 _ 

DXCH 

SCAL  SAVE 

STORE  SCALER 

0823 

37, 3653 

0 0004 

0 

INHINT 

0824 

REF 

301 

LAST 

97  2 

37, 3654 

0 46  16 

1 

TC 

BANKC.ALL 

0825 

REF 

3_ 

1 AST 

1-9  1 

37.,  3655 

17150. 

0 - _ 

CADR 

RNDR  EFDP 

REFSMM,  DRIFT,  TRACK  FLAGS  DOWN 

0826 

REF 

91 

LAST 

120  5 

37,3656 

0 5516 

0 

TC 

DOWNFLAG 

0 82-7- 

R 5 F 

7 

1 A ST 

132  7 

37, 3657 

Q0007 

0 

AD-RFS 

IJ4US  £ 

I MUSE  DOWN 

08271 

REF 

92 

LAST 

1329 

37,3660 

0 5516 

0 

TC 

DOWNFLAG 

08272 

REF 

6 

LAST 

83  9 

37, 3661 

00010 

0 

ADRFS 

RNDV  ZFLG 

RNDVZFLG  DOWN 

0828 

REF 

36 

LAST 

1305 

37, 3662 

3 4741 

1 

CAF 

8 1 T 1 1 

0829 

37,3663 

0 0006 

1 

EXTEND 

0830 

REF 

19 

L-AST 

9_8  7 

_ 37, 3664 

05  013 

0 

WOR 

CHAN  13 

SET  STANDBY  ENABLE  BIT 

0831 

REF 

114 

LAST 

1238 

37, 3665 

0 5353 

1 

TC 

PHASCHNG 

SET  RESTART  TO  POSTAND  WHEN  STANDBY 

0832 

3 7, 3 66  6 

0702.4 

0 

OCT 

07024 

R ECOVER S 

0833 

37,3667 

20000 

0 

OCT 

20000 

08335 

RFF 

2 

LAST 

13  2 9 

0316 

EBANK= 

SCAL  SAVE 

0834  _ 

RFF- 

1 

37,3  670 

03720 

_1 

2C  ADR 

POSTAND 

0834 

REF 

1 

37, 3671 

76060 

0 

0835 

REF 

1 

37, 3672 

3 4774 

1 

CAF 

0CT62 

0836 

REF  - 

3-02 

-LAST 

13-2  -9- 

3 !,  3 673 

0 4616 

1 

TC 

BANKCALL 

0837 

REF 

10 

LAST 

969 

37, 3674 

2 04  76 

0 

CADR 

GOPE  RF1 

0838 

37, 3675 

1 3672 

0 

TC  F 

-3 

0838 

37, 3676 

1 36  72 

0 

TC  F 

-4 

0840 

37, 3677 

1 3672 

0 

TCF 

-5 

- 084-0-5 

-R  EF  - 

3 

LAST- 

-610 

4774 

OCT  6 2 

FOUAI  S - 5 S F C 

D Ff.  50  = OCT  62 

R0R41 

THE 

LCW 

5 BITS 

OF  THE  SCALER 

READS  10000  FOR  THE 

FIRST 

INTERVAL  AFTER  A 
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R0842  T 1 INCREMENT.  IF  SCALPREP  DETECTS  THIS  INTERVAL  THE  T 1 , T2  AMO  SCALER 
R0843  DATA  ARE  NOT  COMPATABLE  AND  RETURN  IS  TO  L+l  FOR  ANOTHER  READING  OF  THE 

R0844 DATA,  nj HF R» I S Ff  _XHF_ELF-X1LBM  TS  Tn  H-2  TO  PROCEED.  ROUTINE  AL  SCL  PREPAR  ES 

R0845  THE  SCALER  READING  FOR  COMPUTATION  OF  THE  INCREMENT  TO  UPDATE  T1T2.  (THE 
R0846  10  MS  BIT  (BIT  6)  OF  THE  SCALER  IS  INCREMENTED  5 MS  OUT  OF  PHASE  FROM 

R 08.47  _T_L.  1 AnniTlON  OF  5 MS  I B I T 5 1 TO  _T  HE  SCALER  READING  HAS  THE EFFECT  OF 

R0848  ADJUSTING  BIT  6 IN  THE  SCALER  TO  BE  IN  PHASE  WITH  BIT  1 OF  Tl.  T HF  LOW  5 

R0849  BITS  OF  THE  SCALER  READING  ARE  THEN  SET  TO  ZERO,  TO  TRUNCATE  THE  SCALER 

.8085-0 DA T A TO  10  MS.  R ESULTS  ARE  STORED.  LN. -MPAC,  _ +1. 


0851 

37, 3700 

0 0006 

1 

SCALPREP  EXTEND 

08  5,7 

p ff 

747 

L ASJ 

132  9 

37,3  701  . 

22  1 56 

-0. 

QXCH  _ 

MPAC 

+ 2 

0853 

REF 

3 

LAST 

394 

37, 3702 

0 4103 

1 

TC 

FINETIMF 

+i 

0854 

37, 3703 

0 0003 

1 

RELINT 

085  5 

R Ff 

748- 

l AST 

13  3 0 

37, 3704 

52  155 

1 

DXCH 

MPAC. 

0856 

REF 

42 

LAST 

1311 

37, 3705 

3 4747 

1 

CA 

3 I T 5 

ADD  5 MS  TO  THE  S C AL  FR  READING. 

0857 

REF 

228 

LAST 

131  7 

37, 3706 

54  001 

1 

TS 

L 

0858 

-REF 

2 36 

6 AST 

132  4 

37,3707 

3 -4755 

1 

CA 

Z E R E 

0859 

REF 

749 

L AST 

1330 

37, 3710 

20  155 

1 

DAS 

MPAC 

0860 

REF 

9 

LAST 

75  1 

37, 3711 

4 43  46 

0 

CS 

LOW  5 

SET  LOW  5 BITS  OF  (SCALER+5MS)  TO 

ZERO 

_ 0861 

REE 

7-5.0 

-IASI- 

133  0 

37,3717 

7 0155 

1 

MASK 

MPAC 

+i 

AND  STORE  RESULTS  IN  MPAC.+I. 

0862 

REF 

751 

LAST 

1330 

37,3713 

56  155 

0 

XCH 

MPAC 

+i 

0863 

REF 

10 

LAST 

1330 

37, 3714 

7 4346 

0 

MASK 

L0W5 

TEST  LOW  5 BITS  OF  SCALER  FOR  THE 

FIRST 

- _ AO 86.4-  ... 

INTERVAL  AFTEP  THE  Tl  INCREMENT 

A0865 

(NOW  = 00000,  SINCE  BIT  5 ADDED). 

0866 

REF 

430 

LAST 

1326 

37, 3715 

10  000 

0 

CCS 

A 

IS  IT  1ST  INTERVAL  AFTER  Tl  INCREMENT 

. - 0867 

-REE 

752 

-1  AST  133  0 

37,3716 

24  156 

0 

INCR 

MPAC 

+ 2 

NO 

0868 

REF 

753 

LAST 

1330 

37, 3717 

0 0156 

0 

TC 

MPAC 

+2 

YES 

- R0869 PO-STAND  RECOVERS  TIME  AFTER  STANDBY. THE  SCALER  IS  SNAPSHQTT.ED_ALiD_.iHE  - 

R0870  T I ME  1 T I ME  2 COUNTER  IS  SET  TO  ZERO.  THE  LOW  5 BITS  OF  THE  SCALER  ARE 

R08T1  INSPECTED  TO  INSURE  COMP A T AB I L I TY  BETWEEN  THE  SCALER  READING  AND  THE 

R 089-2 C-l-E-AR-I-MG— 0-E — THE — EJ .ME — C-Q1J N T E R . IT  TRELL  COMPUTFS  THE  DIFFFRFNCF  TN  SCAI  FR 

R0873  VALUES  (IN  DP)  AND  ADDS  THIS  TO  THE  PREVIOUSLY  SNAPSHOTTED  VALUES  OF 

R0874  TINE1  T I ME  2 AND  PLACES  THIS  NEW  TIME  INTO  THE  T I ME  1 TIME2  COUNTER. 


0875 

REF  1 

COUNT  * $ $/ P 05 

087-4 

R FF  37 

LAST- 

132  9 

37,3  720 

4 4741 

0 

POST  ANH_CS_  RTT  1 1 

RFCOVER  TIME  AFTER  STANDBY. 

0877 

37, 3721 

0 0006 

1 

EXTEND 

0878 

REF  20 

LAST 

1329 

37, 3722 

03  013 

0 

WAND  CHAN  13 

CLEAR  STANDBY  ENABLE  BIT 

. 08.79  - 

. 37, 3723 

0 0004 

0 

INHINT 

0880 

REF  237 

LAST 

1330 

37, 3724 

3 4755 

I 

CA  ZFRD 

0881 

REF  229 

LAST 

1330 

37, 3725 

54  001 

1 

TS  L 

08.82 — 

REF 33 

1 AST 

13_2  9 

- 3 7,  3 726 

52  025 

1 

DXCH  TIMF2 

CLEAR  T I ME  IT  I ME2 

0883 

REF  2 

LAST 

1329 

37,3727 

0 3 7 00 

0 

TC  SCALPREP 

STORE  SCALER  IN  MPAC,  MPAC+1 

0884 

REF  2 

LAST 

1329 

37,  3730 

0 3723 

1 

TC  POSTAND  +3 

T1.T2, SCALER  NOT  COMPATIBLE 

0-885 

37, 3731 

. 0-  0-0.06 

JL 

EXTEND 

T 1 , T 2 AND  SCALER  OK 

0886 

REF  3 

LAST 

1329 

37, 3732 

4 0317 

0 

DCS  SCALSAVE 

0887 

REF  754 

LAST 

1330 

37, 3733 

20  155 

1 

DAS  MPAC 

FORM  DP  DIFFERENCE  OF  POSTSTANDRY  SCALER 
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L 

IMU 

MODE 

SWITCHING 

ROUT  I NES 

USER' S PAGF  NO.  29  EO  S3 

0888 

REF 

56 

LAST 

131  8 

37, 3734 

3 4742 

1 

CAF 

BIT10 

MINUS  PRESTANDBY  SCALER  AND  SHIFT  RIGHT 

0889 

REF 

10 

LAST 

86  2 

37,3735 

0 7306 

0 

TC 

SHORTMP 

5 TO  ALIGN  BITS  WITH  TIME1TIME2. 

-L-A9  T 

18  8 0 

87,  3 78-6 

3-4755 

1 

_CAF _ . 

ZLRO  — _ _ 

0891 

REF 

755 

LAST 

1330 

37,3737 

54  156 

1 

TS 

MPaC  +2 

NEEDED  FOR  TP  AGREE 

0892 

REF 

16 

LAST 

131  3 

37, 3740 

0 72  56 

1 

TC 

TPAGRFE 

MAKE  DP  DIFF  AGREE 

1 £91 

J88  1 

37  f 37  41 

LO  154 

0 

CCS 

JAP AC  _ 

0894 

REF 

1 

37, 3742 

0 3747 

0 

TC 

POSTCOM 

IF  DP  DIFF  NFT  +,  NO  SCALER  OVERFLOW 

0895 

REF 

2 

LAST 

133  1 

37, 3743 

0 3747 

0 

TC 

POSTCOM 

BETWEEN  PRE  AND  POST  STANOBY. 

0896 

J 7 ,.3  744 

0.  3745 

_I 

TC 

+ 1 

IF  DP  DIFF  NET  -,  SCALER  OVERFLOWED.  ADD 

0897 

REF 

57 

LAST 

133  1 

37, 3745 

3 4742 

1 

CAF 

B I T 1 0 

BIT  10  TO  HIGH  DIFF  TO  CORRECT. 

0898 

REF 

757 

LAST 

133  1 

37, 3746 

26  154 

0 

ADS 

M PA  C 

08-99 

3 7j  3 747 

0 0006 

L POSTCOM 

EXTEND 

CIMPAC.+l)  IS  MAGNITUDE  OF  DELTA  SCALER. 

0900 

REF 

4 

LAST 

1329 

37, 3750 

3 0315 

0 

DCA 

T IME2SAV 

PRFST  ANDBY  TIME1TIME2 

0901 

REF 

758 

LAST 

133  1 

37,3751 

20  155 

1 

DAS 

M P AC 

090? 

REP 

17 

LAST 

18  8 1 

37,3752 

0 7256 

1 

TC 

T PAG  REE 

FORCE  SIGN  AGREEMENT 

0903 

REF 

759 

LAST 

133  1 

37, 3753 

52  155 

1 

DXCH 

M PA  C 

UPDATED  VALUE  FOR  Tt,T2. 

0904 

REF 

34 

LAST 

1330 

37, 3754 

20  025 

1 

DAS 

T IMF  2 

LOAD  UPDATED  VALUE  INTO  T 1 , T2 , WITH 

0QO4  r 

REP 

93 

1 A9T  1 8?  9 

37,3  755 

0 5516 

0 - 

TC 

DDL  N FI  AC- 

CLEAR  NODOFLAG 

09046 

REF 

6 

LAST 

1329 

37, 3756 

00054 

0 

ADRES 

NODOFLAG 

090-5 

REF 

- -68- 

-LAST- 

1-32  6 

3 7,  3 7-5-7 

--0-60-0-1- 

-0 

-ETC 

-GnTOPOClH 
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L 

KEVRUPT, 

UPRUPT 

USER'S  PAGE  NO.  1 

EO  S3 

nnm 

14,3711 

BANK 

14 

0002 

REF 

1 

04, 2000 

SETLOC 

KEYPUPT 

04,3215 

BANK 

0004 

REF 

1 

COUNT* 

*$/K  EYUP 

14  2 4 

04t  3215 

54  016 

1 

KEYRUPT1 

TS 

ELANKJLUPT 

0006 

REF 

351 

LAST 

13  21 

04, 3216 

56  002 

0 

XCH 

Q 

0007 

REF 

8 

LAST 

1124 

04, 3217 

54  012 

0 

TS 

QRUPT 

2 

J AST 

45  1 

04,3220  - 

0 44Q0 

1 

TC 

LODSAMPT 

TIME  IS  SNATCHFD  IN  RUPT  FOR 

NOUN  65. 

0009 

REF 

ii 

LAST 

1330 

04, 3221 

3 4346 

1 

CAF 

L0W5 

0010 

04, 3222 

0 0006 

1 

EXTEND 

on  1 1 

RE_E 

2 

LAST 

233 

04, 3223 

02  015 

1 

RAND 

MNKE YIN 

CHECK  IF  KEYS  5M-1M  ON 

0012 

REF 

6 

LAST 

1294 

04,3224 

54  073 

1 

KEYCOM 

TS 

RUPTREG4 

0013 

REF 

26 

LAST 

914 

04, 3225 

4 0101 

0 

CS 

FLAGWPD5 

0014 

R£F 

1 

-0  4,  3226 

7 4735 

0 

MASK 

OSK YFBIT 

0015 

REF 

27 

LAST 

1332 

04,3227 

26  101 

0 

ADS 

FLA3WRD5 

R F-F 

£ 

-1  AST 

LO  9 4 

04>  3230 

3 4355- 

-0 

ACCEPTUP- 

CAF  . 

OH  RJ2JLLQ . . 

_ < NOT  F : RUP TRFG4  = KEY T E.MP  L I 

0017 

REF 

28 

LAST 

1302 

04, 3231 

0 5072 

1 

TC 

NOVAC 

0018 

REF 

66 

LAST 

471 

0 77  7 

EBANK= 

DSPCOUNT 

00-19 

REF 

1 

04,3232 

02077  0 

2CADP 

CHAP  IN 

0019 

REF 

1 

04, 3233 

60101 

1 

0020 

REF 

7 

LAST 

1332 

04, 3234 

3 0073 

0 

CA 

RUPTREG4 

00-21 

R-EF 

24 

-LASJ 

1322- 

04, 3235 

50.  0.64 

0 

INDEX 

LOCC  TP 

0022 

REF 

760 

LAST 

133  1 

04,3236 

54  154 

0 

TS 

MPAC 

LEAVE  5 BIT  KEY  CDF  IN  MPAC 

FOR  CHAR  I N 

0023 

REF 

22 

LAST 

989 

04, 3237 

0 5270 

1 

TC 

RESUME 
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P0024  UPRUPT  PROGRAM 


64- 0 1 h 

1 

UPRUPT 

IS 

bankrupt 

0026 

REF 

352 

LAST 

1332 

04,3241 

56  002 

0 

XCH 

0 

0027 

RFF 

9 

LAST 

1332 

04,3242 

54  012 

0 

TS 

ORUPT 

nn?8 

REF 

3 

LAST 

133-2 

04, 3243 

0 44  00 

1 

TC 

LQDS AMPT 

TIME  IS  SNATCHED  IN  RUPT  FOR  NOUN  65. 

0029 

REF 

239 

LAST 

133  1 

04, 3244 

3 4755 

1 

CAF 

ZERO 

0030 

REF 

2 

LAST 

237 

04, 3245 

56  045 

0 

XCH 

INLINK 

orm 

R-FF 

2 

L AST 

169 

- 04,  3246 

5.4  0 73- 

1 

TS 

KEYTEMP1 

0032 

REF 

39 

LAST 

1279 

04, 3247 

3 4751 

0 

CAF 

B I T 3 

TURN  ON  UPACT  LIGHT 

0033 

04, 3250 

0 0006 

1 

EXTEND 

(BIT  3 OF  CHANNEL  11) 

nn^4 

P FF 

^4 

LAST 

1321 

-04,3251  - 

05  Oil 

_L_ 

WOR 

JLSAL  MOUT 

0035 

REF 

12 

LAST 

1332 

04, 3252 

3 43  46 

1 

UPPPT1 

CAF 

LOWS 

TEST  FOR  TRIPLE  CHAR  REDUNDANCY 

0036 

REF 

3 

LAST 

1333 

04, 3253 

7 0073 

1 

MASK 

KEYT  EMP1 

L0W5  OF  WORD 

nn  V7 

—RFF 

4 

1_  AST 

13-3  3 

-04,3254 

56-073 

-0 

XCH 

KLY.TJEMP1 

LOW 5 INTO  KEYTEMP 1 

0038 

04, 3255 

0 0006 

1 

EXTEND 

0039 

REF 

58 

LAST 

133  1 

04, 3256 

7 4742 

0 

MP 

B I T 1 0 

SHIFT  RIGHT  5 

o 04-0 

_ REF 

1 

0-4,3257 

54  734_ 

0 

TS 

KEYTE.MP2 

0041 

REF 

13 

LAST 

1333 

04, 3260 

7 4346 

0 

MASK 

LOWS 

M ID  5 

0042 

REF 

1 

04,3261 

6 3315 

0 

AD 

H I 10 

0043 

-RFF 

- 1 

_ 04 ,3  262_ 

0 -3312- 

1 

TC 

UPTF ST 

0044 

REF 

59 

LAST 

1333 

04, 3263 

3 4742 

1 

CAF 

B I T 1 0 

0045 

04,3264 

0 0006 

1 

EXTEND 

OOA6_ 

RFF 

2 

1 AST 

1333 

04,3265 

7 0734 

-0 

MP 

KFYT  FMP2 

SHIFT  RIGHT  5 

0047 

REF 

14 

LAST 

1333 

04, 3266 

7 43  46 

0 

MASK 

L0W5 

HIGH  5 

0048 

04, 3267 

4 0000 

0 

COM 

07X49- 

REF 

2 

LASJ 

1333 

...  .04,  3270 

0 3312- 

1 

TC 

UPTFST 

0050 

REF 

i 

04, 3 271 

4 3320 

1 

UPOK 

cs 

ELRCODE 

CODE  IS  GOOD.  IF  CODE  = 'ERROR  RFSET ' , 

0051 

-REF 

5 

last 

133-3 

— —04,3  2 72 

6 0-0  73 

-0 

AD  KFYTFMP1 

C 1 FAR  UPI  0F.KF1  ( SFT  BIT4  OF  FLAGWRD7  = 0) 

0052 

04, 3273 

0 0006 

1 

EXTEND 

IF  CODE  DOFS  NOT  = 'ERROR  R ES  FT ' , ACCEPT 

0053 

REF 

i 

04,3274 

1 3302 

1 

8ZF 

CLUPLOCK 

CODE  ONLY  IF  UPLOCKFL  IS  CLEAR  (=0). 

0054 

REF 

i 

04, 3275 

3 4750 

1 

CAF 

UPLOCBIT 

TEST  UPLOCKFL  FOR  0 OR  1 

0055 

REF 

24 

LAST 

89  7 

04, 3276 

7 0103 

1 

MASK 

FLA GWRD7 

0056- 

RFF  . 

4-3-1 

—LAST  13  3 0 

04,3277 

10  O-OLL 

0 

CCS— 

A 

0057 

REF 

23 

LAST 

1332 

04,3300 

0 52  70 

1 

TC 

RESUME 

UPLOCKFL  = 1 

0058 

REF 

1 

04, 3301 

0 3230 

0 

TC 

ACCE  PTUP 

UPLOCKFL  = 0 

0059 

REF 

2 

LAST 

13  3 3 

04,3302 

4 4750 

0 

CLUPLOCK 

CS 

UPLOCBIT 

CLFAR  UPLOCKFL  (I.F..SET  BIT  4 OF  ) 

0060 

REF 

25 

LAST 

1333 

04,3303 

7 0103 

1 

MASK 

FLAG  WRD7 

FLAGWPD7  = 0) 

0.061 

- RE£_ 

26_ 

-LAST.. 

133  3 

04, 3304 

54  .T  03 

1 

TS 

FLA3WPD7 

0062 

RFF 

2 

LAST 

1333 

04, 3305 

0 3230 

0 

TC 

ACCEPTUP 

0064 

REF 

27 

LAST 

1333 

04,3306 

4 

0103 

1 

TMFAIL2 

CS 

FL  AGWRD7 

LOCK  OUT  FURTHER 

UPLINK  ACTIVITY 

0065 

REF 

3 

LAST 

1333 

04, 3307 

7 

4750 

0 

MASK 

UPLOCBIT 

(BY  SETTING  UPLOCKFL  = 1) 

UNTIL 

0066 

REF 

-2-8— 

LAST 

133  3 - 

04,3  3 1-0- 

-26  103 

1 

A-DS, 

F LAG-WRD7 

'ERROR  RESET’  IS 

SENT  VIA 

UPL INK. 

0067 

REF 

24 

LAST 

1333 

04,3311 

0 

5270 

1 

TC 

R FSUMF 

0069 

REF 

6 

LAST 

1333 

04,3312 

6 

0073 

0 

UPTFST 

AD 

KEYTFMP1 
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0070  REF 

0071  REF 

4 32 
1 

LAST 

1333 

04. 3313 

04.3314 

04 .3315 

10  000 
0 3306 
77740 

0 

1 

1 _ 

— HI10 

CCS 

TC 

. OCTL  .. 

A 

TMFA  IL2 
77740 

0073  REF 

0074  REF 

2 

353 

LAST 

LAST 

1334 

1333 

04.3316 

04.3317 

0 3306 
0 0002 

X 

0 

TC 

TC 

TMFA IL2 
Q 

0075 

04, 3320 

00022 

1 

ELRCODE 

OCT 

22 

— IT0<W6 
R0077 
R0078 
R00  7.9 


■UPLINK  ACTIVITY  -LIGHT-'  I S -TU-RN-EO--QF  F BY  

1.  VBRELDSP 

ERROR  RESET 

3.  UPDATE  PR  PGR  AM  LP2  7 ) ENTERED  BY  V 70, \I7 1 , V7?  , A ND  V73. 


R0081  THE  RECEPTION  OF  A BAD  CODE ( I . E CCC  FAILURE)  LOCKS  OUT  FURTHER  UPLINK  ACTIVITY  BY  SETTING  RITA  OF  FLAGWR07  = 1. 
R 0083  THIS  INDICATION  WILL  BE  TRANSFERRED  TO  THE  GROUND  BY  THF  DOWNLINK  WHICH  DOWNLINKS  ALL  FLAGWORDS. 

R008R  WHEN  UPLINK  ACTIVITY  IS  I Of. K F D TIIIT  , IT  CAN  BE  ALLOWFD  WHFN  THE  GROUND  UPLINKS  AND  'ERROR  RESET'  CODE. 

R0087  (IT  IS  RECOMMENDED  THAT  THE  'ERROR  LIGHT  RESET'  CODE  IS  PRECEEDED  BY  16  BITS  THE  FIRST  OF  WHICH  IS  1 FOLLOWED 

R 0089  BY  15  ZEROES.  THIS  WILL  FLIMINATE  EXTRANEOUS  BITS  FROM  INLINK  WHICH  MAY  HAVE  BFEN  LEFT  OVER  FROM  THF  ORIGINAL 

ROOST FAIL  U-RO) 

R 0092  UPLINK  ACTIVITY  IS  ALSO  A LL OWED ( UNLOC K ED ) DURING  FRESH  START  WHEN  FRESH  START  SETS  BIT4  OF  FLAGWR07  = 0. 

05124  REF  1 04,3321  4 4753  0 CS  XDSPBIT 
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R0001  DISPLAYS  CAN  BE  CLASSIFIED  INTO  THE  FOLLOWING  CATEGORIES— 

R0002 I.  P R4-GRT-T  Y 0 I SP  L AYS- - DI-SPl  AYS  - WH  I CH  -T  AKE-  PRIORITY  GVER-ALI OTHER  DISPLAYS.  USUAI  I Y THFSF  DISPLAYS  ARE  SENT  — 

R 0004  OUT  UNDER  CRITICAL  ALARM  CONDITIONS. 

R0005  2.  EXTENDED  VERB  DISPLAYS-  ALL  EXTENDED  VERBS  AND  MARK  ROUTINES  SHOULD  USE  EXTENDED  VERB  (MARK)  DISPLAYS. 

p Q007 ?.  NOPMAI  niRPlAYR-  A | I MISSION  PROGRAM  DISPI  AYS  WHICH  INTERFACE  WITH  THE  ASTRONAUT  DURING  THE  NORMAL 

R 0009  SEQUENCE  OF  EVENTS. 

R0010  A.  MISC.  DISPLAYS-  ALL  DISPLAYS  NOT  HANOLED  BY  THE  DISPLAY  I NTER F ACER  OUT  I NES . THESE  INCLUDE  SUCH  DISPLAYS  AS 

ROai? MM  DISPLAYS  ANn  S P FC  I A I PUR  POSF  DTSPI  -AYS  HAND!  FD  BY  PINBALL. 

R0013 5 AST-R&NAUI IN-IT-I-A-TED-DI-SPLAYS^-  ^ALL  -OI  -SP-LAYS  LNT  T I AXED-  E XXFP-NALl-Y. 

R0014  THE  FOLLOWING  TERMS  APE  USED  TO  DESCRIBE  THE  STATUS  OF  DISPLAYS- 

R-QQ1  5 1-^ -ACT4A/-E=LTHE-0 1-G-PL-AV— WHI-OH-I-S— (-1  -)— aEJNO- DI-STL. AY£D-_TO  THE  ASTRONAUT  _AND  WAITING  FOR  A RESPONSE  OR 

R0017  (2)  WAITING  FIRST  IN  LINE  FOR  THE  ASTRONAUT  TO  FINISH  USING  THE  DSKY  OR  (3)  BEING  DISPLAYED  ON  THE  DSKY 

R0019  BUT  NOT  WAITING  FOR  A RESPONSE. 

ROOPO  7.  tNACTTVF  -A  DISPI  AY  WHICH  HAS  11)  BEEN  ACTIVE  BUT  WAS  I NT ERRU PTE DB Y A DISPLAY  OF  HIGHER  PRIORITY, 

R0O22  (2)  BEEN  PUT  INTO  THE  WAITING  LIST  AT  TIME  IT  WAS  REQUESTED  DUE  TO  THE  FACT  A HIGHER  PRIORITY  DISPLAY 

R0024  WAS  ALREADY  GOING,  (3)  BEEN  INTERRUPTED  BY  THF  ASTRONAUT  (CALLED  A PINBRANCH  CONDITION,  SINCE  THIS  TYPE 

R0Q26 OF  TNACTTVF  DISPI  AY  I S USUAI  I Y REACTIVATED  ONLY  BY  PINBALL)  OR  (4)  A DISPLAY  WHICH  HAS  FINISHED  BUT  STILL 

R0028  HAS  INFO  SAVED  FOR  RESTART  PURPOSES. 


R0029  DISPLAY  PRIORITIES  WORK  AS  FOLLOWS- 

R0030 I-NT-ERRUPTS- _ 

R 003 1 1 . THE  ASTRONAUT  CAN  INTERRUPT  ANY  DISPLAY  WITH  AN  EXTERNAL  DISPLAY  REQUEST. 

R0033  2.  INTERNAL  DISPLAYS  CAN  NOT  BE  SENT  OUT  WHEN  THE  ASTRONAUT  IS  USING  THF  DSKY. 

RO-OTS X- — URT-flR  I T.Y  DASiTI  AYS TN.T  F RR  UPT  All  OTHER  TYPFS  OF  INTFR  NAL  DISP  LAYS.  A PRIORITY  DISPLAY  INTERRUPT  ING  ANOTHER 

R0037  PRIORITY  DISPLAY  WILL  CAUSE  AN  ABORT  UNLESS  8IT14  IS  SET  FOR  THE  LINUS  ROUTINE. 

R0039  4.  A MARK  DISPLAY  INTERRUPTS  ANY  NORMAL  DISPLAY. 

ROOAQ 5 A — MAR  K THA  T_  I NTFR  R UPT  S A MARK  COMPIFTFIY  RFPIACFS  IT. 

R0041  CROER  OF  WAITING  DISPLAYS- 

RQ-0A2 1-  ASTRONAUT  FXTFRNAI  USF 

R0043  2.  PRIORITY 

R0044  3.  INTERRUPTED  MARK 

R.0O4S 4^.-1  NT  FRRUPT  F n NORMA! 


R0046 

-R0047 

R004e 


5.  MARK  TO  BE  REQUFST  ED  (SEE  DESCRIPTION  OF  ENDMARK ) 

-&-. — MARX — UAITT-MG 

7.  NORMAL  WAITING 


GAp.; ASS  E R-E-V  ISION-0  69  OF  AGC  PROGRAM  LUMINARY  IVY  -NASA  2021112-011 19:07  NOV.-  25-,  L963 SKIPPER  _^OJJ PAGE  -133.6- 
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P0049 

R0051 

onfui 

THE  DISPLAY  ROUTINES  ARE  INTENDED  TO  SERVE  AS  AN  INTERFACE  BFTWEFN  THE  USER  AND  PINBALL.  THE 
FOLLOWING  STATEMENTS  CAN  BE  MADE  ABOUT  NORMAL  DISPLAYS  AND  PRIORITY  DISPLAYS  (A  DESCRIPTION  OF  MARK 
wri  i rn  i nw  1 A 1 F P. ) : - - ... 

ROUTINES 

ROO  54 
R0056 

I. 

ALL  ROUTINES  THAT  END  IN  R HAVE  AN  IMMEDIATE  RETURN  TO  THE  USER.  FOR  ALL  FLASHING  DISPLAYS  THIS  RETURN 
IV  TO  THF  IISFRS  CAM  CADR  +4.  FOR  THF  ONIY  NON  FLASHING  IMMEDIATE  RETURN  DISPLAY  (GODSPR)  THIS  RFTURN 

R0058 

R0059 

R00-61- 

2. 

3. 

IS  TO  THE  USERS  CALLING  LOC  +1. 

ALL  ROUTINES  NOT  ENDING  IN  R DO  NOT  DO  AN  IMMEDIATE  RETURN  TO  THE  USER. 

ALL  ROUTINES  THAT  END  _LN  R START  A SEPARATE  JOB  (MAKEPLAY)  WITH  USERS  JOB  PRIORITY. 

R0063 
R0065 
a noAi- 

4. 

__5_* 

ALL  ROUTINES  NOT  ENDING  IN  R BRANCH  DIRECTLY  TO  MAKEPLAY  WHICH  MAKES  THESE  DISPLAYS  A PART 
USERS  JOB. 

All  niSPlAY  ROUTINES  ARE  CALLED  VIA  BANKCALL ....  .. _ ...  ... 

OF  THE 

R0067 
R0069 
r no  7n 

6. 

7* 

TO  RESTART  A DISPLAY  THE  USER  WILL  GENERALLY  USE  A PHASE  OF  ONE  WITH  DESIRED  RESTART  GROUP  (SEE 
DESCRIPTION  OF  RESTARTS). 

-All  FI  ASHING  niSPlAYS  HAVF  3 RETURNS  TO. THE  USFR  FROM  ASTRONAUT  RESPONSES.  A TERMINATE  ( V34 ) BRANCHES 

R0072 
R0074 
R 00-7-5- 

TO  THE  USERS  CALL  CADR  +1.  A PROCEED  (V33)  BRANCHES  TO  THE  USERS  CALL  CADR  +2.  AN  ENTER 
(V32)  BRANCHES  TO  THE  USERS  CALL  CADR  +3. 

AL1  ROUT  INFS  MUST  BF  USED  UNDER  EXECUTIVE  CONTROL. 

OR  RECYCLE 

R0076 

A DESCRIPTION  OF  EACH  ROUTINE  WITH  AN  EXAMPLE  FOLLOWS: 

R0077 

GODSP  IS  USED  TO  DISPLAY  A VERB  NOUN  ARRIVING  IN  A.  NO  RETURN  IS  MADE  TO  THF  USER. 

R0079 

l 

GODSP  IS  NOT  REST ART ABLE 

R0080 

2. 

A VERB  PASTE  WITH  GODSP  ALWAYS  TURNS  ON  THE  FLASH. 

A0081 

CAF  V XX N YY 

ATXCL&2 

TC  BANKCALL 

40083  CADR  GODSP 

WOO  84 VXXNYY QCJ OXXY-Y 


R0085  GODSPR  IS  THE  SAME  AS  GODSP  ONLY  RETURN  IS  TO  THE  USER. 


A0086 
A0087 
— A0088 

CAF 

TC 

CADR 

VXXNYY 

BANKCALL 

GOOSPR 

A0089 

IMMEDIATE  RETURN  OF  GODSPR 

R0090 

R0092 

GOFLASH  DISPLAYS  A 
THE  ASTRONAUT  (SEE 

FLASHING  VERB  NOUN  WITH 
NO.  7 ABOVE). 

NO  IMMED1ATF 

RETURN  TO  THE  USER.  3 RETURNS  ARE  POSSIBLE 

FROM 

A0093 
A0094 
A0095 

CAF 

TC 

CADR 

VXXNYY 
BANKCALL 
GOFL  ASH 

VXX  NYY  WILL  BE  A FLASHING 

VERB 

NOUN  . 

A0096 
A0097 
A 0 0 9.8  . 

TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  OR  RECYCLE  RETURN 

R0099 

GDPERF1 

IS  ENTERED 

WITH  DESIRED  CHECKLIST 

VALUE  IN  A. 

GO  PE  R FI  WILL 

DISPLAY  THIS  V4LUF  IN  R1  BY  MEANS  OF 

A 
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R0101 
RO  103 

V01  N25.A  FLASHING  PLEASE  PERFORM  ON  CHECKLIST  ( 
USER  ( SEE  NO.  7 ABOVE ) . 

V50  N25 ) IS  THEN  DISPLAYED.  NO  IMMEDIATE  RETURN  IS  MADE  TO 

R0104 

GCPERF1  ELANKS  REGISTERS  R2  AND  R3 

CAB  - 

OCT  x x 

r.nnF  for  chfcki  tst  vai  iif  xx 

AO  1 06 
AO  1 07 
A01  OF 

TC 

CADR 

BANK  CALL 
GOPERFl 

TERMINATE  RETURN 

A0109 

A0110 

... 

... 

PROCEED  RETURN 
ENTER  RETURN 

R011 1 
R01 13 
R0-115  - 

G0PERF2  IS  ENTERED  WITH  A VARIABLE  NOUN 
REQUESTED  NOUN  BY  MEANS  OF  A V01NYY  OR  A 
DISPLAY.  NO  I-MM-EDI ATE  RETURN  IS  MADE  TO 

AND  V01  ( 
VOONYY. 
THE  USER 

VOO  FOR  NIO  OP  Nil)  IN 
PLEASE  PERFORM  ON  NOUN 
; (SEE  NO.  7 ABCVF). 

1 A.  G0PERF2  WILL  FIRST  DISPLAY  THE 
(V50  NYY)  THEN  BECOMES  A FLASHING 

R0116 

G0PERF2  DOES  NOT  BLANK  ANY  REGISTERS 

A 0 1 1 7 
AO  1 1 8 
AO  1 1 q 

CAF 

TC 

CADR 

V XXN  YY 
e ANKCALL 
_GQPERF2 

VARIABLE  NOUN  YY.  XX=00  OR  01. 

AO  1 20 
A0121 

AO-1-22 — 

TERMINATE  RETURN 

PROCEED  RETURN 

FNTFR  RETURN 

R0123  G0PERF3  IS  USED  FOR  A PLEASE  PERFORM  ON  A PROGRAM  NUMBER.  T HF  DESIRED  PROGRAM  NO.  IS  ENTFRED  IN  A.  G0PERF3 

R0L25 DISPLAYS  IHI  NO P.Y,  MFAALS OF-_A VP6  _N0  7 FOI  I OWED  BY  A FLASHING  V50  N07  FOR  A PLEASE  PERFORM.  NO  IMMEDIATE  RETURN 

R0127  IS  MADE  TO  THE  USER  (SEE  NO.  7 ABOVE). 


R 01-28 G G P E R F -3  - -BLANKS  RFG-I-ST-FRS  R2  AND  R3 


A0129 

A 0-1-30 

AO  1 3 1 
AO  1 32 

A 0 1 3 3- 

AO I 34 


CAF  DECXX  REQUFST  PERFORM  ON  PXX 

TC  BANKCALL 

CADR  G0PFRF3 

...  ...  TERMINATE  RETURN 

_.  PROCEED  RETURN 

...  ...  FNTER  RETURN 


R0L35 G-C-  P-E-R-F  4 IS  USED  FOR  A PLEASE  PERFORM  ON  AN  OPTION.  THE  OESiTRED  OPT  LON — I -SERXEELEO  IN  A AND  STORFD  IAL_Q£T  1QTLL. 

R0137  G0PERF4  DISPLAYS  R1  AND  R2  BY  MEANS  OF  A V04N06  FOLLOWED  BY  A FLASHING  V50N06  FOR  A PLEASE  PERFORM.  MO 

R0139  IMMEDIATE  RETURN  IS  MADE  TO  THE  USER  (SEE  NO.  7 ABOVE). 


A0140 
AO  141 
A0-L42 

CAF 

TC 

CADR 

3CTX  X 
BANKCALL 
Gn  P E P F 4 

REQUEST  PERFORM  ON  OPTION  XX 

AO  1 43 

TERMINATE  RETURN 

A0144 

... 

... 

PROCEED  RETURN 

A0L45 

• • . 

. • . 

ENTER  RETURN 

RO 146  G0PERF4  BLANKS  REGISTER  R3 
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01  SPLAY 

INTERFACE  ROUTINES 

USER'S  PAGE  NO.  4 FO  S3 

R0147 

R0149 

GODSPRET 

OUT. 

IS  USED  TO  DISPLAY  A VERB  NOUN  ARRIVING  IN  A 

WITH  A RETURN 

TO  THE  USER  AFTER  THE  DISPLAY  HAS  BEEN  SENT 

A0150 

A0151 

CAF 

TC 

f-ADR 

V XX  N YY 

BANKCALL 

GODSPRET 

AO  1 53 

RETURN  TO  USER 

R01  54 
R0156 

REGOOSP  IS  USED  TQ  DISPLAY  A VERB  NOUN  ARRIVING  IN  A. 
ACTIVE  NORMAL  DISPLAY  IF  ONE  WAS  ACTIVE. 

REGDDSP  IS  THE  SAME  AS  GODSP  ONLY  RFGODSP  REPLACES  ANY 

A0157 
A0158 
am  59 

CAF 

TC 

CADR 

V X X N YY 
BANKCALL 
R EGO  DSP 

R0160 

REFLASH 

IS  THE  SAME  AS  GOFLASH  ONLY  REFLASH  REPLACES 

ANY  ACTIVE  NORMAL  DISPLAY  IF  ONE  WAS  ACTIVE. 

AO  1 62 
A0163 

A Ql 64  — 

CAF 

TC 

CADR 

VXXNYY 
BANKCALL 
R EFL ASH 

VXX  N YY  WILL  BE  A FLASHING  VERB  NOUN 

A0165 
AO  1 66 

_ A 01-67 

* * * 

TERMINATE  RETURN 
PROCEED  RETURN 
ENTER  RETURN 

R0168 

GOFLASHR 

IS  SAME  AS  GOFLASH  ONLY  AN  IMMEDIATE 

RETURN 

IS  MADE  TO  THE 

USERS  CALL  CADR  +4. 

A0170 
A 0 1 7 1 
- AO  1 7? 

CAF 

TC 

CADR 

VXXNYY 
BANKCALL 
OOF  L ASHR 

AO  1 73 
AO  174 
Aai-J-5  - 

TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  nR  RECYCLE  RETURN 

A0176 

... 

... 

IMMEDIATE  RETURN  FROM  GOFLASHR 

R0177 

G0PERF1R 

IS  THE  SAME  AS  GOPERF 1 ONLY  GOPERFIR 

HAS  AN 

IMMEDIATE  RETURN  TOUSERS  CALL  CADR  +4. 

R0179 GOPERFIR  BLANK-S  R EGISTERS  R2.  AND  R 3 


A0180 

A01 81 — 

CAF 

— . ...  - _ TC  _ 

OCTX  X 
B AN K CAL  1 

CODE  FOR  CHECKLIST  VALUE  XX. 

A0182 
A0183 
AO  1-84- 

CADR 

G0PFRF1P 

TERMINATE  RETURN 
PROCEED  RETURN 

A0185 

... 

... 

ENTER  RETURN 

AO-1-86— 

IMMEDIATE  RFTURN  from  GOPERFIR 

R0187 

GCPERF2R  IS  THE  SAME  AS  G0PERF2  ONLY  AN  IMMEDIATE  RETURN  IS  MADE 

TO  USERS  CALL  CADR  +4. 
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R0189 

G0PERF2R 

DCES  NOT  BLANK  ANY  REGISTERS 

. CA-F 

VXXN YY 

VARIABLE  i\)DI  in  YV  rfqiifSTFD-  XX  = 00  HP  01 

A0191 

TC 

8 ANKCALL 

A0192 

CA  DR 

G0PEPF2P 

ADI 

TERMINATE  RETURN 

A0194 

... 

. . . 

PROCEED  RETURN 

A0195 

... 

. .. 

FNTER  RETURN 

A 0 1 96 

... 

... 

IMMEDIATE  RETURN  HERE  FROM  GO  PER  F 2R 

4?_THr  S AMF  A9  onPFRET  HALLY- 

A-N- 

T MMFF)  T ATF  RETURN  T MAflF 

TD  I1SFRS  CAI  1 CADR  -1-4. 

R 01 99 

G0PERF3R 

BLANKS  REGISTERS  R2  AND  R3 

A0200 

CAF 

PROG  XX 

PERFORM  PROGRAM  XX 

A0201 

TC 

BANKCALL 

A 02 02 

CA  DP 

HOP  E P E3P__ 

A0203 

• • • 

TERMINATE  RETURN 

A0204 

... 

• • • 

PROCEED  RETURN 

A 02-05  - 

ENTER  RFTURN 

A0206 

... 

. .. 

G0PERF3R  IMMEDIATELY  RETURNS  HERE 

R0207 

G0PERF4R 

IS  THE  SAME  AS  G0PERF4  ONLY 

AN 

IMMEDIATE  RETURN 

i IS  MADE 

TO 

USERS  CALL  CADR  +4. 

- A 02  09 

CAF 

ar.  t x x 

RFOUFST  PFRFflRM  ON  DPTTDNXX 

A02  10 

TC 

BANKCALL 

A0211 

CADR 

GOPF  RF4P 

A 02  1 ? 

TERMINATE  RFTURN 

A0213 

... 

... 

PROCEED  RETURN 

A0214 

... 

... 

ENTER  RETURN 

A0215 

... 

. .. 

IMMEDIATE  RETURN  TO  USER 

R0-2-L-6— 

G&P-£ft-FAR- 

BLANK  S R-LG I SI  FR  R 3 

R0217 

REFLASHR 

IS  THE  SAME  AS  REFLASH  ONLY 

AN 

IMMEDIATE  RETURN 

IS  MADE 

TO 

THE  USERS  CALL  CADR  +4. 

A0219 

CAF 

V XX  N YY 

VXX  NY Y WILL  BE  A FLASHING  VERB  NOUN 

A0220 

TC 

BANKCALL 

A022I — 

CADR 

RFFL  ASHR 

A0222 

... 

... 

TERMINATE  RETURN 

A0223 

• • • 

• • • 

PROCEED  RETURN 

UQ22A— 

ENTER  RETURN 

A0225 

... 

. .. 

IMMEDIATE  RETURN  TO  USER 

R0226 


REGODSPR  IS  THE  SAME  AS  REGODSP  ONLY  A RETURN  (IMMEDIATE)  IS  MADE  TO  THE  USER 
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A0228 

A0229 

A0230 


CAF  V XX  N YY 

TC  BANKCALL 

CADS  RJL3D  D S P R_ 


AO  23 1 


IMMEDIATE  RETURN  TO  USER 


< 


NASA  20711 17-011 

19:  Q 2 NHV-. 2-5-1.1916.3 SKIPPER  .070 

PAG  F Ii41 

L DISPLAY  INTERFACE  ROUTINES 

USER'S  PAGE  NO.  7 

EO  S3 

P0232  GCMARK  IS  USED  TO  DISPLAY  A MARK  VERB  NOUN  ARRIVING  IN 

A.  NO  RETURN 

IS  MADE  TO  THE  USER. 

A0235 

CAF 

IX 

V XXN  YY 
RANK  CAI  1 

V XXN Y Y CONTAINS  VERB  AND  NOUN 

A0237 

CADR 

GCMAPK 

OTHER  EXTFNOED  VERBS  USE  CADR 

GOXDSD 

DOO^Q  row  AO  17  D IQ  TUP  CAMP  AC  PPMARK  PN1Y  RFTI1RN.  .1  C Tfl 

THF  MSFR- 

R 0239  GOXDSPR  = GOMARKR 

A0240 

A0241 

CAF 

TC 

CADR 

VXXN YY 

BANKCALL 

GOMARKR 

OTHER  FXTENDED  VERBS  USE  CADR 

GOXDSPR 

A0243 

... 

IMMEDIATE  RETURN  OF  GOMARKR 

R0244  GOMARKF  DISPLAYS  A FLASHING  MARK  VERB  NOUN  WITH 

R0246  TEE  ASTRONAUT  (SEE  NO.  7 ABOVE  ). 

NO  IMMEDIATE  RETURN 

TO  THE  USER.  3 RETURNS  ARE  POSSIBLE  FROM 

R0247  GOXDSPF  = GOMARKF 

XA-F 

VXXN  YY 

_ y XXNYY  WILL  81  A FI  A R H T NG  MARK  VERB  NOUN 

A0249 

A0250 

TC 

CADR 

BANKCALL 

GOMARKF 

OTHER  EXTENDED  VERBS  USE  CADR 
TFRMINATF  RETURN 

GOXDSPF 

A0252 

A0253 

... 

... 

PROCEED  RETURN 

ENTER  OR  RECYCLE  RETURN 

R0254  GOMARKFR  IS  THE  SAME  AS  GOMARKF  ONLY  AN  IMMEDIATE  RETURN  IS  MADE 

TO 

THE  USER  CALL  CADR  +4. 

R02 56  GCXDSPFR  - GOMARKFR 

A0257 

A 02  5-8  - 

CAF 

TC 

VXXN  YY 
BANKCALL 

FLASHING  MARK  VERB  NOUN 

A0259 

A0260 

A026 I 

CADR 

GOMA  RKFR 

OTHER  EXTENDEO  VERBS  USE  CADR 
TERMINATE  RFTURN 
PROCEED  RETURN 

GOXDSPFR 

A0262 

... 

... 

ENTER  OR  RECYCLE  RETURN 

AO 263 

TMMFHTATF  RFTIIRN  TP  THF  USFR 

R0264  G0MARK1  IS  USED  FOR  A PLEASE  PERFORM  ON  A MARK 

FL026-6-.  RETURN-  -LS— MADE.  T HE  DESIRED  MARK  PLEASE  PERFORM 

REQUEST  WITH  ONLY 
VERB  AND  DESI.PFD__ 

1 ASTRONAUT  RETURN  TO  THE  USER.  NO  IMMEDIATE 
NOUN  I SENTERED  IN  A.  G0MARK1  DISPLAYS  PI,  R7,  R 

R0268  MEANS  OF  A V05NYY  FOLLOWED  BY  A FLASHING  V5XNYY  FOR  A PLEASE  PERFORM 

R0270  OR  MARK  REJECT  OR  AN  ENTER.  THE  ENTER  IS  THE  ONLY  ASTRONAUT  RESPONSE 

. THE  ASTRONAUT  WILL  RESPOND  WITH 
THAT  WILL  COME  BACK  TO  THE  USER. 

A MARK 

A0272 

A0273 

CAF 

TC 

V 5 XN  YY 
BANKCALL 

X = l,2,3,4  Y = NOUN 

GAO 
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A0274 

C ADR 

G0MARK1 

E-NIE  R _ R-EZLLHA! 

R0276 

***  IF  BLANKING  DESIRED  ON  NON  R ROUTINES,  NOTIFY  DISPLAYER. 

R0277 

GCMARK1R  IS  THE  SANE  AS  A GOMARKl  ONLY  AN  IMMEDIATE  RETURN  IS  MADE 

TO 

THE  USERS  CALL  CADR  +2. 

A0279 

CAF 

V 5XN  YY 

X= 1 , 2 » 3 , 4 YY  = NOUN 

AO?  RjO 

TC 

BANKCALL 

A0281 

CADR 

G0MARK1R 

ASTRONAUT  FNTFR  RFTURN 

A 02  83 

• * * 

... 

IMMEDIATE  RETURN  TO  USER 

_r.nfi-.Aa_K  2 IS  THF  s_Amf  as  GCLMARKI  ONI  Y 3 RFTIJR  NS  ARE  MADE- 

TO  THEJJS  ER  . 

FROM  THE  ASTRONAUT. 

A 02  86 

CAF 

V5XNYY 

X=l,2*3,4  YY=NOUN 

A0287 

TC 

BANKCALL 

A02-RR 

CADR 

. G_QMA_R.K_2 

A0289 

... 

TERMINATE  RETURN 

A 02  90 

. . . 

... 

PROCEED  RETURN 

AO?  9 1 

ENTER  RETURN 

R0292 

GCMARK2R  IS  THE  SAME  AS  G OMAR K 1 R ONLY  3 ASTRONAUT  RETURNS  ARE  MADE 

TO 

THE  USER. 

A 0 ? 94 

_ _ _ _ CAB-  - 

v F_x_7m 

X=0  , l,_2t 3.4  Y Y-NOIJN 

A0295 

TC 

BANKCALL 

A 02  96 

CADR 

G0MARK2R 

A 02  97 

... 

... 

TERMINATE  RETURN 

A 02  98 

. , . 

. . . 

PROCEED  RETURN 

A0299 

... 

... 

ENTER  RETURN 

A0300 

... 

... 

IMMEDIATE  RETURN  TO  THE  USER 

— -R  0 3 0 1 

H ilSFD  FOR  A PI  F ASF  PFRFDRM  ON  A MARK  R.FQUFST 

WITH  A3  rnMP. 

nFC  DISPIAY.  THF  DFSIRFD  MARK  PIFASE 

R0303 

PERFORM  VERB  AND  NOUN  ARE  ENTERED  IN  A.  G0MARK3  DISPLAYS  Rl,  R2,  R3 

BY 

MFANS  OF  A V06NYY  FOLLOWED  BY  A FLASHING 

R0305 

V5XNYY  FOR  A PLEASE  PERFORM.  G0MARK3  HAS  3 ASTRONAUT  RETURNS  TO  THE 

USER  WITH  NO  IMMEDIATE  RETURN. 

A0307 

CAF 

V5XN YY 

X = l,  2,3,4  YY=NOUN 

A0308 

TC 

BANKCALL 

A 030 9-*  - 

CADR 

G0MAPK3 

A 03 1 0 

TERMINATE  RETURN 

AO  3 1 1 

. . . 

. . . 

PROCEED  RETURN 

AO  3 12 

ENTER  RETURN 

R0313 

GCMARK4  IS  THE  SAME  AS  G0MARK3  ONLY  R2  AND  R3  ARE  BLANKED  AND  Rl  IS 

DISPLAYED  IN  OCTAL. 

A0315 

CAF 

V5XN YY 

X=L,2,3,4  YY=NOUN 

A0316 

TC 

BANKCALL 

A0317 

CADR 

G0MARK4 

A0318 

... 

TERMINATE  RETURN 

AO  3 1 9 

. . . 

. . . 

PROCEED  RFTURN 
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A0320  ...  ...  ENTER  RETURN 

R0321  EXDSPRET 1-5 U S ED TO PT-SRL  AY  - A V FR 8 — NOUN — ARR  I V I NG — I-N — A — W-IXB — A — RETURN  MADE — TO — THE — LLS-Efi — AFTFR — THE — PI  3 p L A Y — tLAS — BEEN 

R0323  SENT  OUT. 


A0-324- 

A0325 

A0326 

CAF — 

TC 

CADR 

V-XXN  YY 

BANKCALL 

EXDSPRFT 

A0327 

n FFMF1  riPANK  "HIT  All  MARK  n I SP1  AYS,  ( ACT  I V£  AND  INACTIVF).  AJLE.TURN 

RETURN  TO  USER 

IS  MADF  TO.  THE  JJ.SiLR  AFTFR  THE  MAEK_D  LSP  LAYS 

R0330 
A n i 

HAVE  BEEN  CLFANED  OUT. 

TC 

. XANXCALl 

A0332 
■ A0333  ■ 

CADR 

KLEE  NEX 

RFTURN  Tn  IISFR 

R0334 

MARKBRAN  IS  A SPECIAL  PURPOSE  ROUTINE  USED  FOR  SAVING 

JOB  VAC  AREAS 

(SEE  DESCRIPTION  OF  MARKBRAN  BELOW). 

A0336 

TC 

BANKCALL 

A 03  3 7 

CADR 

MARKBRAN 

A0338 

... 

... 

BAD  RETURN  IF  MARK  DISPLAY  NOT  ACTIVE 

A0339 — 

(GOnn  RFTURN  TO  TMMFDTATF  REJURN.XOC  QF 

A0340  LAST  FLASHING  MARK  R ROUTINE) 


-R  034 1 PXNURWGH— RXE-ST-ABXT  SUES — I HE--  LAST  ACT  I4/-E— FLASHING  -0  ISPLA-Y^IF  THERXXS-NO  ACT  I VF  FLASHING  DISPLAY,  THE  OSKX.IS 

R0343  BLANKED  AND  CONTROL  IS  SENT  TO  ENDOFJOB. 


A0344 TC POST  JUMP 

A0345  CADR  PINBRNCH 


— R 0346  PRI-ODSP  I S— USED  AS  -A  PR  I OR  l TY  D-I  SPL  AY  . - — LTXW-IXL  - O IXPL-A  Y —A  GX)  FL.ASH-XY  P E.  DISPLAY  WITH  THREE  POSSIBLE  XEXLLRNS_F_BLQM 

R 0348  TEE  A STRON AU T ! SE E NO. 7 ABOVE). 

R 0349  - -THE  MAINPURPOSE-- OF  PRIOOSP  IS--T-0  REPLACE  T_HF_  RRFXFMJXn  LRPI  AY  WITH  A niSPlAY  OF  HIGHER  PRIORITY  AND  TO 

R0351  PROVIDE  A MEANS  FOR  RESTORING  THE  OLD  DISPLAY  WHEN  THE  PRIORITY  DISPLAY 
R 03 52  IS  RESPONDED  TO  BY  THE  ASTRONAUT. 


R0353  THE  FORMER  DISPLAY  IS  RESTORED  BY  AN  AUTOMATIC  BRANCH  TO  WAKE  UP  THE  DISPLAY  THAT  WAS  INTERRUPTED  BY  THE 

R0355  PPIO  DISPLAY. 


A0356  CAF  VXXNYY  VXXNYY  WILL  BE  A FLASHING  VERB  NOUN 

A0357  TC  BANKCALL 

A 03  5 8 CADR_  _PPJOD_SP 

A0359 
A0360 


TERMINATE  RFTURN 
PROCEED  RFTURN 
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AO  36 1 ••• 

RL1362 PRIOO-SPR-IS  THE  SAME  AS  PRIODSPONLY  AN  -IMMEDI  ATE  R I!  TURN 


IS- MADE  TO  THE 


USER'S  PAGE  NO.  10 


ENTER  OR  RECYCLE  RETURN 
- ULS E-R S CALI CAELB— AA. 


EO  S3 


A03  64 
AO-3-65 
A0366 
A0367 
A 0368 
A0369 


CAF  V XX N YY  VXXMYY  WILL  BE  A FLASHING  VERB  NOUN 

JX BANK  CALI 

CADR  PRIODSPP 

TERMINATE  RETURN 

PROCEED  RETURN 

ENTER  OR  RECYCLE  RETURN 


--A0-3  ^70 


TMMFOTATF  RETURN 


R0371  PRIOLARM  DCES  A V05N09  PRIODSPR. 

R 037? r LFANPSP  Cl  FANS  OUT  ALL  N CRMAL  DISPLAYS  (ACTIVE  AND  INACTIVF).  A RETURN  IS  MADE  TO  THE  USER  AFTER  NORMAL 

R0374  DISPLAYS  ARE  CLEANED  OUT. 


AQ375 IX BANKC.AI  L 

A0376  CADR  CLEANDSP 


AO  3 7 7 


R E TURN  TO  USER 
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P0378 

R0379 

GENERAL  INFORMATION 

R0380 

ALARM  OR  ABORT  EXIT  MODES — 

A0381 

A0382 

PRIOBORT  TC  AB3RT 

OCT  1502 

R0383 

R0385 

PRIOBORT  IS  BRANCED  TO  WHEN  III  A NORMAL  DISPLAY  IS  REQUESTED  AND  ANOTHER  NORMAL  DISPLAY  IS  ALREADY  ACTTVF 
(REFLASH  AND  REGODSP  ARE  EXCEPTIONS)  OR  (2)  A PRIORITY  DISPLAY  IS  REQUESTED  WHEN  ANOTHER  PRIORITY  DISPLAY  IS 
AlPFflnv  A r T 1 V/F  (A  PRIORITY  WITH  LLNLLS  RT  T1 4 IS  AN  FXCFPT  I ON  ) . ..  . . ....  . _ 

EPASAELE  INITIALIZATION  REQUIRED — 

R 0389 
R0391 

ACCOMPLISHED  BY  FRESH  START-  1.  FLAGWRD4  (USED  EXCLUSIVELY  BY  DISPLAY  INTERFACE  ROUTINES) 

. 2.  WSAVI  = NORMAL-VERB.  AND  NOUN  _ REGISTER. 

R 0393 

3.  EBANKTEM  = NORMAL  INACTIVE  FLAGWORD ( ALSO  CONTAINS  NORMALS  EBANK) 

* 

R0395 
R0396 
RQ39-8 

5.  R1SAVE  = MARKBRAN  CONTROL  WORD 
4.  RESTREG  = PRIORITY  30  AND  SUPERBANK  3. 

JIL  TPUI — 

R 03  99 

_ . 

NVWORD  = PRIO  VERB  AND  NOUN 

NVWORD  +1  (MARKNV ) = MARK  \LER-8  AND  NOUN 

R0401 

NVWORC  +21NVSAVE)  = NORMAL  VERB  AND  NOUN 

R 040?  ■ 

_0  $p_f  L„G  ( E B AN  K SAV  ) = P R I-Q  F L A GW  OR  D ( T NT  1 11QT  N G E BANK-  ) 

R0403 
R 0404 

CSPFLC  +1 (MARKEBAN)  = MARK  FLAGWORD  (INCLUDING  EBANK) 
DSPFLG  +21EBANKTEM)  = NORMAL  FLAGWORD  (INCLUDIG  EBANK) 

R0405 
R0406 
R0407  - 

CADRFLSH  = PRIO  USERS  CALL  CADR  +1  LOCATION 

CADRFLSH  +1  ( MARKFLS  H ) = MARK  USERS  CALL  CADR  +1  LOCATION 

CADRELS-H  +24-IE-MPF.LSJH  ) = NORMA  1 USFR.S  CALL  CADR  +1  LOCAT  ION 

R0408 

R-04-09 

PRIOTIME  = TIME  EACH  PRIO  REQUEST  FIRST  SENT  OUT 
_r.PTU1M._=  DFSIRFn  OPTION  FROM  GQPEPF4 

R0410 

R0411 

R04I 2 

FLAGWRD4  = BIT  INFO  FOR  CONTROL  OF  ALL  DISPLAY  ROUTINES 
CSPTEM1  = Rl  INFO  FOR  ASTRONAUT  FROM  PERFORM  D I SP L AY S ( N ORMA L ) 

_S-UB.R  £LL‘  T_LN.ES USED  — N V S UB.  , FLAGUP,  FLAGDOWN,  ENDOF JOB , BLANKSUB,  ABORT,  JOBWAKF  , JOBSLFEP,  FINDVAC,  PRIOCHNG, 

R0414 
R 04 1 5 

JAMTERM,  NVSUBUS Y , FLASHON,  ENDIDLE,  CHANG1 , BANK JUMP,  MAKEC  ADR , NOVAC , 
DEBRIS—  (STORED  INTO) 

R0416 
R0418 
R 0 4 2 0 

TEMPORARY  TEMPORARIES-  A,  Q,  L,  MPAC  +2,  MPAC  +3,  MPAC  +4,  MPAC  +5,  MPAC  +6,  RUPTREG2,  RUPTRFG3, 
EBANK,  RUPTREG4,  LOC,  BANKSET,  MODE,  MPAC,  MPAC  +1  4,  FACEREG 

— ERASJlEES-LSHARFP  AND  USFD  WITH  OTHFR  PROGRAMS)  CADRSTOP,  DSPLIST,  LOC,  DSPTEM1,  0PTI0N1 

CYL  , 

R 0 A 2 2 


ERASABLES (US  ED  ONLY  BY  DISPLAY  ROUTINES)-  NVWORD , + 1 , +2 , DSP FLG , + 1 t <-2 * C ADR  FL  S H,  + 1 , +7  , PRIOTIME,  FLAGWRD4 
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L DISPLAY  INTERFACE  ROUTINES 

R0424  RISAVE,  MA  PK2  P AC  , 


USER' S PAGE  NO.  12  EO  S3 


R0425 

R0426 

R&427- 


DEBRIS__  (USED  BUT  NOT  STORED  INTO)-  NOUNREG,  VERBREG,  LOCCTP,  M0NSAVE1 
FLAGWCRD  DESCRIPTIONS — 

p L A&WRD4—  SEE  DESCRIPTION  UNDER  I CG  SECTION  ERASABL E A.1SJLGMHENT S_ 


R0428 
R 042  9 


DSPFLG,  DSPFLG+1,  DSPFLG  +2- 


GODSPRET 


R 04 30  BITS  1 BLANK  R1 

R0431  2 BLANK  R2 

RQ437 3 BLANK  R3 

R0433  4 FLASHING  DISPLAY  REQUESTED 

R0434  5 PERFORM  DISPLAY  REQUESTED 

RQ435 6 EX  DSP  RET 

R0436  7 PRIC  DISPLAY  

R0437  8 DEC  MARK  PERFORM 

R0438 9 EBA-NK 

R0439  10  EBANK 

R0440  11  EBANK 

R0441 12  V99PASTF 


R0442 

R0443 

R0444 


13  2ND  PART  OF  PERFORM 

15  REFLASH  OR  REDO  

14  MA-RK  REQUEST 


REFLASH  OR  REDO 


R0445  RESTARTING  DISPLAYS— 


R 0444 R-U!_~i-S — F&R — TRUE  -OSKY  OPERATOR  — 


R0447 
R 04-4-9 
R0451 
R0453 
R0454- 
R0456 
R0458 
R0-460 
R0462 
R0464 
-R 046-5 
R0466 
R0468 


1. 


2. 


PROCEEO  A 
_AS-4EH£-RE- 
RESPONSES 
WITH  PROC 
THE  ASTRO 
PROGRAM  S 
DUE  TO  T I 

LS— SENT  - 

OUT.  THE 
CONS  IDERA 
KE-Y—RELE  A 

A)  IF  THE 

B)  IF  THE 


ND  TERMINATE  SERVE  AS  RESPONSES  TO  REQUESTS 
IS  ANY  RFOUFST  AWAITING  OPFRATOR  RFSPONSE. 

TO  THAT  REQUEST.  CARE  SHOULD  BE  EXERCISED 
EED  AND  TERMINATE  FOR  THIS  REASON. 

NAUT  MUST  RESPOND  TO  A P8J0RITY  DISPLAY  NO 
ENT  OUT  THE  REQUEST  FOR  OPERATOR  RESPONSE  I 
ME  IT  TAKES  TO  GET  DISPLAY  SENT  OUT.)  IF  TH 
OUT  AGAIN  — AND  AGAIN  UNTIL  AN  ACCUMULATED 
SAME  2 SEC.  DELAY  WILL  OCCUR  AT  163.84  SECS 
TION. 

GF— .BUTTON- 


FOR  OPERATOR  RESPONSE  (FLASHING  V/N).  AS  LONG 
ANY  USE  OF  PROCEED  OR  TERMINATE  W I L L SERVE  AS 


IN  ATTEMPTING  TO  KILL  AN  OPERATOR  INITIATED  MONITOR 

SOONER  THAN  2 SECONDS  FROM  THE  TIME  T HF 

THE  ASTRONAUT  WOULD  SEE  THIS  DISPLAY  FOR  LESS  TIME 
E ASTRONAUT  RESPONDS  TOO  SOON,  THE  PRIORITY  DISPLAY 
2 SECS  F R 0M_ THE  TIME  THE  FIRST  PRIORITY  DISPL AY 

OR  IN  ANY  MULTIPLE  OF  THAT  TIME  DUE  TO  PROGRAM 


KEY  RELEASE  LIGHT  IS  ON,  IT  SIMPLY  RELEASES  THE  KEYBOARD  AND  DISPLAY  FOR  INTERNAL  USE. 

KEY  RELEASE  LIGHT  IS  OFF,  AND  IF  SOME  REQUEST  FOR  OPFRATOR  RESPONSE  (FLASHING  V/N)  IS  STILL 


R0472 
R0474 
. R0475 

4 . 

IF  AN  OPERATOR  WANTS  THEREFORE  TO  RE-ESTABLISH  BUT  CONDITION  (A) 
KEY  RELEASE  BUTTON  MAY  BE  NECESSARY. 

IT  IS  IMPORTANT  TO  ANSWER  ALL  REQUESTS  FOR  OPERATOR  RESPONSE. 

IS  ENCOUNTERED,  A 

SECOND 

DEPRESSION  OF 

R0476 

R0478 

5. 

IT  IS  ALWAYS  GOOD  PRACTICE  TO  TERMINATE  AN  EXTENDED  VERB  BEFORE 
OVER  AGAIN. 

ASKING  FOR  ANOTHFR 

ONE  OR 

THF  SAME  ONE 

R0479 

SPECIAL 

CONSIDERATIONS — 

GAP : ASSEMBLE-  REVISION  069  OF  AGC  PROGRAM-  -LUMINARY  BY-NASA  202111-2-0-14 — 


1 9:  02-  NOV.  25,1-968 SiLLg-PE-R -.-0 70 BAG£_43A7 


L 


R0480 

R0481 

R 04-83 - 

R0484 

R0486 

R-04-88-  - 

R0489 

R0491 

R-049-11 


OISPLAY  INTERFACE  ROUTINES  USER'S  PAGE  NO.  IT  EO  S3 


1.  MP  AC  + 2 SAVED  ONLY  IN  MARK  DISPLAYS 

2.  GODSP(R) >REGODSP(R),GOMARK(R)  ALWAYS  TURN  ON  THE  FLASH  IF  ENTERED  WITH  A PASTE  VERB  RFOUEST. 

A \ I MnRMAI  niSPlAVS  ARE  R F ST  ART  ABLE  EXCEPT  G0DSP1R).  REGODSP(R) 

4.  ALL  EXTENDED  VERBS  WITH  DISPLAYS  SHOULD  START  WITH  A TC  TFSTXACT  AND  FINISH  WITH  A TC  ENDEXT. 

5.  GODSP(R)  AND  REGODSP(R)  MUST  BE  IN  THF  SAME  EBANX  AND  SUPFRBANK  AS  THF  LAST  NORMAL  DISPLAY  RESTARTED 

BY  -A-  4 — R ESTART  P H ASF— CHANGE-. 

6.  IN  ORDER  TO  SET  UP  A NON  DISPLAY  .1  RESTART  POINT,  THE  USER  MUST  MAKE  CERTAIN  THAT  RESTREG  CONTAINS  THE 
CORRECT  PRIORITY  AND  SUPERBANK  AND  THAT  EBANKTEM  CONTAINS  THE  CO 

7.  IF  CLEANPSP  19  RFXTARTFD  VIA  A . 1_PHAS_E_£HANGF . CAF  ZERO  SHOULD  BE  EXECUTED  BEFORF  THE  TC  BANKCALL.  _ 
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P0492 
A 0493 
A0494 


A0495 


DISPLAY  INTERFACE  ROUTINES 
CALLING  SEQUENCE  FOR  BLANKING 


USER'S  PAGE  NO.  14 


EO  S3 


CAF 

JX 


B ITX 

. BLANJKEI. 


X = 1 . 2 » 3 BLANK  R1,R2,R3  RESPECTIVELY 


RETURN  TO  USER  HFRE 


-B0494-  t-N-QRUCR- 8-LANKET  CORRECTLY  THE  -USE R MUST-  USE  A D1S-PLAY  ROUTINE  THAT  ENDS  IN  R...EI.RS.T— FOLLOWED  BY  THE  CALL 
R0498  TO  BLANKET  AT  THE  IMMEDIATE  RETURN  LOC. 

BLOCK 0_2. 


0500 

0501 

REF 

1 

4000 

5464 

SETLOC 

BANK 

FFTAG4 

0502 

REF 

1 

COUNT* 

t $ / D SPL A 

0503 

REF 

761 

LAST 

1332 

5 464 

54  162 

0 

BLANKFT 

TS 

M p A C +6 

as  04 

R 

1 

4 0160 

1 

CS  - 

PLAY  TE.M4 

0505 

REF 

762 

LAST 

1348 

5466 

7 0162 

0 

MASK 

MPAC  +6 

0506 

REF 

763 

LAST 

1348 

5467 

50  161 

1 

INDEX 

MPAC  +5 

0507  - 

2 

-LAST 

1 3 48 

- -5  470  _ 

26-160 

-1  - 

ADS 

PLAY  TEM4 

0508 

REF 

354 

LAST 

133  4 

5471 

0 0002 

0 

TC 

0 

0511 

REF 

51 

LAST 

1325 

5472 

0 4635 

0 

ENDMARK 

TC 

POST  JUMP 

0512 

REF 

1 

5473 

20204 

0 

CADR 

MARK  END 

0512  1 

REF 

240 

LAST 

1333 

5 474 

3 4755 

1 

CLE  ARMRK 

CAF 

ZERO 

05122 

REF 

15 

LAST 

726 

5475 

55*044 

1 

TS 

EXTVBACT 

0512  3 

5476 

0 0004 

0 

INHINT 

05124 

REF 

59 

LAST 

132  1 

5477 

4 4753 

0 

CS 

B I T 1 

0 5 1-2-5 

R-EE 

5— 

— L AST 

-4-8-8-  _ 

_ . 5 50-0 

7 0100 

-MAS-K 

FLAG.kP.D4 

05126 

REF 

6 

LAST 

1348 

5501 

54  1 00 



1 

TS 

FLAGWRD4 

0 5 17  7 

5 50? 

0 ooo  ^ 

1 

RFJ  INT 

05128 

REF 

355 

LAST 

1348 

5503 

0 0002 

0 

TC 

0 

R 05  1 3 

*** AL  L EXTENDED  VERB 

ROUT INES 

THAT  HAVE 

AT  LEAST 

ONE  FLASHING  DISF 

-R  0515 

FIMSHECL 





0516  10,2204 

0-5  IT R-E.E 1 I 0,  2000 

0518  10,2204 


BANK  10 
SET-LUX  0 ISP  I AYS 
BANK 


—0519 REF 1 — _ COUNT*  tl/OSPlA 

R0520  NTFPONLY  IS  USED  TO  DIFFERENTIATE  THE  MARK  ROUTINE  WITH  ONLY  ONE  RETURN  TO  THE  USER  FROM  THE  MARKING  ROUTINE  WIT 
R 05 2 2 3 RETURNS  TO  THE  USER.  THIS  ROUTINE  IS  ONLY  USED  BY  G0MARK1  AND  GOM ARK  1 R . 


05291 

REF 

1 

10,2204 

0 5474 

0 

MARKEND 

TC 

CLEARMRK 

— — 

05297 

REF 

1 

10, 2205 

l 3274 

1 

TC  F 

MARK  OVER 

0530 

REF 

1 

10,2206 

54  155 

1 

GOMARK 

TS 

PLAY  TEM1 

ENTRANCE  FOR  MARK  GODSP 

(JA°  : ASSEMBLE  PF-VISION  0 69  OF  4GC-P-R0GRA-M  LUMl-N  ARY  BY  NASA-  20  2-111-2-011 1-93-02 — NCLV-. — 25 ,1.368 SKIPPER  .070 PAGF  1349 

L DISPLAY  INTERFACE  ROUTINES  USER'S  PAGF  NO.  15  EO  S3 


0531 

0532 

REF 

REF 

47 

1 

LAST 

131  1 

10, 2207 
10, 2210 

3 4735  1 
1 2353  l 

GOMARS 

CAE 

TCF 

8 I T 1 5 
G0FLASH2 

BIT15  SET  FOR  ALL  MARK  REQUESTS 

0533 

REF 

241 

LAST 

1348 

10, 2211 

3 4755  1 

KLEENEX 

CAE 

ZERO 

CLEAN  OUT  EXTFNOED  VERBS 

0534 

REF 

2 

LAST 

1348 

10,  2212 

54  155  1 

GOMARKF 

TS 

PLAYTEM1 

ENTRANCE  FOR  MARK  GOFLASH 

0535 

REF 

1 

10,  2213 

3 2704  0 

CAF 

MARKFMSK 

MARK, FLASH 

0536 

REF 

2 

LAST 

1349 

10, 2214 

1 2353  1 

TCF 

GOFL  ASH2 

0539 

REF 

3 

LAST 

1349 

10,2215 

54  155  1 

G0MARK2 

TS 

PLAYTEM1 

MARK  GOPERFS— 3 AST.  RETURNS 

0540 

REF 

1 

10,2216 

3 3373  0 

MARKFORM 

CAF 

MPEP  FMSK 

MARK,  PERFORM,  FLASH 

0 541 

REF 

L AS  I 

1349 

10,7717 

1 2353  1 

TCF 

GPFI  ASFI2 

0542 

REF 

4 

LAST 

1349 

10,2220 

54  155  1 

G0MARK3 

TS 

PLAY  TEMl 

USED  FOP  3C0MP  DECIMAL  PERFORM 

rj5  4 3 

-RF-F 

1 

10  , 2-22 1 _ 

3 33  60 . 1 

CAF 

MARJK3MSK 

0544 

REF 

4 

LAST 

1349 

10,2222 

1 2353  1 

TCF 

G0FLASH2 

JiFLF 

- 5 

1 AST 

1 

. i o^lppz 

54  155  1 

- G-0HARK4 

T5L 

PLAY  I EMI 

0546 

RFF 

i 

10, 2224 

3 3361  0 

CAF 

MARK4MSK 

MARK, PERFORM, FL  ASH, BLANK 

0547 

REF 

5 

LAST 

1349 

10,2225 

1 2353  1 

TCF 

GOFL  ASH2 

0548 

REF 

6 

LAST 

1349 

10,2226 

54  155  1 

GOMARKR 

TS 

PLAYTEM1 

FNTR+NCE  FOR  MARK  GODSPR 

0540 

-R-F-F 

AS 

1 ASJ- 

134  g 

1 0,2  PP 7 

3 4-7  3 5_  1 

CAF 

R T T1  F 

0550 

REF 

i 

10,2230 

1 2331  0 

TCF 

GOD  S PR? 

0551 REF 7 LA-Sl-l-349 10,  2231 54 — 1-55 — l GOMARKFR  TS PLAY  TEMl EA 


0552 

REF 

2 

LAST 

13  4 9 

10, 2232 

3 2704 

0 

CAF 

MARK  FMSK 

_ 0-553 

R FX_ 

X 

10, 2233 

1 2512 

3 

TCF 

GTOSPRS 

0559 

REF 

8 

LAST 

1349 

10,2234 

54  155 

1 

G0MARK2R 

TS 

PLAY  TEM1 

MARK  GOPERFS-3  AST.  PETS+  IMMEDIATE  RET. 

Q5£C 

£_F-F 

2 

LAST 

1X4  9 

1 0,2235 

3 3373 

0 

CAF 

u PJLP  FMSK 

MARK,  PERFORM,  FLASH 

0561 

REF 

2 

LAST 

1349 

10,2236 

1 2512 

1 

TCF 

GODSPRS 

03-64-1— 

R-EF— 

LAST 

134  9 

10,2237 

54  1 55_ 1 

- GOMARK3R 

T-S 

P L A Y TFM1 

05612 

REF 

2 

LAST 

1349 

10, 2240 

3 3360 

1 

CAF 

MARK3MSK 

0561  3 

REF 

3 

LAST 

1349 

10,2241 

1 2512 

1 

TCF 

GODSPRS 

0562 

REF 

135 

LAST 

13?  3 

10,2242 

3 4753 

1 

MAKFMARK 

CAF 

ONE 

0563 

REF 

1 

10,2243 

0 2610 

1 

TC 

COPIES 

0564 

REF 

7 

LAST 

1348 

10,2244 

3 0100 

0 

CA 

FLAG WP D4 

IS  NORM  OR  PRIO  BUSY  OR  WAITING 

0565 

RFF 

1 

10,2245 

7 33  74 

0 

MASK 

OCT  3 4300 

0566 

-R.EF 

433 

LAST 

133  4 

—IQ.,  2246 

10. .000 

_Q_ 

CCS 

A 

0567 

REF 

1 

10,2247 

1 2305 

1 

TCF 

CHKPRIO 

0568 

-REE— 

8- 

LAST 

13-4  9 - 

10,22  50 

3 0100 

0 

CA 

FI  AG  WR  04 

JS  HARK  SL  FFP  TNG  DUE-TD  ASTRO  QIJSY 

0569 

REF 

1 

10,2251 

7 4743 

1 

MASK 

MRKN VBIT 

0570 

10, 2252 

0 0006 

1 

EXTFND 
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L DISPLAY  INTERFACE  ROUTINES 

USER ' S PAGE  NO. 

16  EO  S3 

0571 

REF  1 

10,2253 

1 2255 

0 

BZF 

MARKPLAY 

NO 

—EAST- 

1-20  5 

1 0-,  ? 7 54 

1 5155 

1 

TCP 

. EMDOFjnP  _ _ 

0594 

10,2255 

0 0004 

0 

MARKPLAY 

INHINT 

-R  FF.  77 

-LAST 

12  7 9 

1-0,2  256— 

4 47  56 

-0 

XS. 

FIVF  _ 

RESET  MARK  OVFR  NORM. 

S FT  MARK 

0596 

REF  9 

LAST 

1349 

10,2257 

7 0100 

1 

MASK 

FL AGWR04 

05965 

REF  136 

LAST 

1349 

10,2260 

6 4753 

1 

AD 

DNF 

05  97 

R_E_F  10 

LAST 

13.5-0 

10,2  261 

54  100. 

. 1 

TS 

FLAG  WRD4  . 

0598 

10,2262 

0 0003 

1 

REL INT 

Q5  9-9 

OFF  . 1 

10 , 226 i 

4-  1071 

1 

GOGOMARX 

cs 

MARK  FI  AC 

PFRFDRM 

06  00 

REF  43 

LAST 

1330 

10, 2264 

7 4747 

0 

MASK 

B I T 5 

0601 

REF  434 

LAST 

1349 

10,2265 

10  000 

0 

CCS 

A 

—--0602- 

R E-F-  - 1 

10, 2266 

1 22  71 

0 

TCF 

MARK  COP 

0603 

REF  1 

10, 2267 

4 0370 

1 

CS 

MAR  K NV 

0604 

REF  2 

LAST 

1350 

10,2270 

54  370 

1 

TS 

MARK  NV 

0605 

REF  137 

LAST 

1350 

10, 2271 

3 4753 

1 

MARKCOP 

CAF 

ONE 

MARK  INDEX 

0606 

REF  1 

10, 2272 

1 2471 

0 

TCF 

PR  I 0 PL AY 

0607 

REF  1 

10, 2273 

3 01  65 

0 

COPYTOGO 

CA 

MPAC2SAV 

0608 

REF  764 

LAST 

1348 

10, 2274 

54  156 

1 

TS 

M P AC  +2 

0609 

REF  1 

10,2275 

50  164 

1 

COPYPACS 

INDEX 

C CP  I NDEX 

0610 

REF  1 

10, 2276 

3 3404 

1 

CAF 

PR  I n OCT 

-0611 R-EF 1 ia.rJ2.2n 54  16?  0 IS GENMA.SJ4 


0612 

REF 

2 LAST  1350 

10, 2300 

5 0 164 

1 

INDEX 

COPI NDEX 

Q 6-1-3 — 

R-i-F 

1 

-10,2301 

3 1070 

1 

CAF 

EBAAiKSAV 

0614 

REF 

1 

10,2302 

54  160 

1 

TS 

TEMP0R2 

ACTIVE  EBANK  AND  FLAG 

06 IS REF 62 EAST  1326 10,  2303  54-  003  0 — IS E-BAJStK 


0616 

REF  356  LAST  1348  10,2304 

0 0002  0 

TC 

Q 

R0617 

R0619 

R 06  2 1 

PINCHEK  CHECKS  TO  SEE  IF  THE 
(A  NORMAL  OR  A PRIO).  IF  THE 
IU  GUEST  IS  ENDED . IF  HE  TRIES 

CURRENT  MARK  REQUEST  IS 
ASTRONAUT  TRIES  TO  MARK 
TO  MARK  DURING  A NORM, 

MADE  BY  THE  ASTRONAUT  WHILE  INTERRUPTING  A GOPLAY  DISPLAY 
DURING  A PRtn,  THE  CHECK  FAIL  LIGHT  GOES  ON  AND  THE  MARK 
THE  MAF  K IS  ALLOWED.  IN  THIS  CASE  THE  NORM  IS  DUT  TO  SLEEP 

R0623 

UNTIL  ALL  MARKING  IS  FINISHFD 

• 

R0624 — 

IF  THE-  MARK  -REQUEST.  COMES  ER.QM.2LHF 

program 

DURING  A TIME  THE 

ASTRONAUT  IS  NOT  INTERRUPTING  A NORMA! 

OP  A 

R0626 

PRIO,  THE  MARK  REQUEST  IS  PUT 

TO  SLEEP 

UNTIL 

THE 

+RESENT  ACT  I VF  DISPLAY  IS  RESPONDED  TO  BY  THE  ASTRONAUT. 

06-2-8 — 

— REF 11 1 AST  13  5 0 10,2305 

3 01  0 Q_  a 

chkpr in 

CA 

F L AG  RP  04 

MARK  ATTFMPT  nil  P [ NG  PR  T 0 

0629 

0630 
i 

REF  1 10,2306 

RFF  435  LAST  1350  10,2307 

REI  1 __  10,2  310 

7 3127  1 
10  000  0 
1 332  7 0 

MASK 

CCS 

TCF 

DCT24100 

A 

MARS  LFEP 

0632 


REF  12  LAST  1350 


10,2311  4 0100  1 


CS 


F LAG  WP 04 
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0633 

0634 

REF 

RPf 

1 

L3 

J AST 

13  5-0 

10.2312 

10.2313 
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0053 

REF  1 

COUNT* 

$ $ / F L AG 

00-5 A-  ~ 

. R F F 3 67 

1 A-SX  13  68 

3 0 002 

0- 

IIPF1  AG 

-C.A 

Q 

0055 

REF  2 

LAST  750 

5505 

0 5522 

1 

TC 

□ EB  I T 

0056 

5506 

4 0000 

0 

COM 

+ ( 15  - BIT ) 

- 006  7 

_ 5507 

0 0006 

_L 

EXTFND 

0058 

RFF  16 

LAST  1021 

5510 

04  001 

1 

ROR 

LCHAN 

SFT  BIT 

0059 

REF  59 

LAST  1368 

5511 

50  061 

0 

COMFLAG 

INDEX 

I TFM  PI 

- 0O6£ 

-REF  34 

LAST  138  6 

5 5L2 

5 4 074 

0 

TS 

_ELAG WRDO 

0061 

REF  27 

LAST  1294 

5513 

22  063 

1 

LXCH 

ITEMP3 

0062 

5514 

0 0003 

1 

RELINT 

006-3- 

R-E-F — 2-4  3 - 

LAST  136  8 

5515 

0 0001 

-0 

TC 

L 

0-064 — 

— R-EF  - 368- 

L ASX  13  6 9 

5 5 16 

3 -0602- 

0 

DOWNELAO 

CA 

0 

0065 

REF  3 

LAST  1369 

5517 

0 5522 

1 

TC 

DEBIT 

0066 

REF  244 

LAST  1369 

5520 

7 0001 

1 

MASK 

L 

RESET  BIT 

-0067  _ 

REE 2_ 

-LAST  75-0 - 

-5-52-1 

-L  5511 

0 

TC  F 

COMFLAG 

0068 

-R  FF 1 46  - 

LAST  1364 

5 5-22 

6 47  53 

1 

DEB  1 T 

AD 

DNF 

GET  DF  RTTS 

0069 

5523 

0 0004 

0 

INHINT 

0070 

REF  28 

LAST  1369 

5524 

54  063 

0 

TS 

I TFMP3 

0071- 

.REF 2— 

LAST  10  3 7 

_ 5_525 

3 4762- 

0 

CA 

LOW  4 

DEC  1 5 

0072 

REF  60 

LAST  1369 

5526 

54  061 

1 

TS 

ITFMP1 

0073 

REF  29 

LAST  1369 

5527 

50  063 

1 

INDEX 

I TEMP3 

0074 

5-530— 

2 '7777 

0 

CA 

_Q  -1 

ADRES 

0075 

REF  245 

LAST  1369 

5531 

54  001 

1 

TS 

L 

0076 

REF  254 

LAST  1364 

5532 

3 4755 

1 

CA 

ZERO 
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0077 

0078 

REF 

61 

LAST 

LAST 

1369 
1 T7  n 

5533 

5534 
5 635 

0 0006 
10  061 
52  0 62 

1 

1 

1 

EXTEND 

DV 

DXCH  - 

I TEMPI 
I TEMPI 

A = FLAGWRD,  i 

0080 

REF 

63 

LAST 

1370 

5536 

50  061 

0 

INDEX 

ITEMP1 

0081 

REF 

35 

LAST 

1369 

5537 

3 0074 

1 

CA 

FL  AG  WP  DO 

—LAST 

1 

5540 

54  0-01 

_JL 

TS 

1 

CURRENT  STATE 

0083 

REF 

26 

LAST 

131  8 

5541 

50  062 

0 

INDEX 

ITEMP2 

0084 

REF 

49 

LAST 

1349 

5542 

4 4735 

0 

cs 

BIT15 

-(15  - BIT) 

0085 

REF 

3 69- 

— LASX 

136  9 

5 543 

_CL0002 

_Q 

TC 

Q 

-GAP; ASSEMBLE  REVISION- 069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211  12-011 
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P0086 

DELAYJOB- 

- A GENERAL 

ROUTINE  TO  DELAY 

A 

JOB  A SPECIFIC  AMOUNT  OF  TIME 

BEFORE  PICKING  UP  AGAIN. 

I Q-E  M EN 1 

A0089 

... 

CAF 

DT 

DELAY  JOB  FOR  DT  CENTISECS 

A0090 

TC 

BANK  CALL 

CA.DR  . 

D-E-L  A Y J 0.B- . 

0092 

06,3715 

BANK 

06 

o o , ? non 

SET  LQC_ 

J.LAY  JOE 

0094 

00  j 3 735 

BANK 

THTQ  V1ICT  RPMA  IN  T M 

RANK  n ft* ft* ftftftftft ft ftftft **************** ft***  ******** 

0096 

REF 

1 

COUNT* 

S S/D  ELAY 

0097 

00,3735 

0 0004 

0 

DELAYJOB 

INHINT 

00  98 

REf- 

370 

EAST 

137  0- 

. 00, 3736 

54  0 02 

1- 

TS 

Q 

STORE  DELAV  QT  IN  0 FOR  DL V -1  IN 

0099 

REF 

i 

00, 3737 

3 4752 

0 

CAF 

DELAYNUM 

WAITLIST 

0100 

REF 

52 

LAST 

13Z0. 

00,3740- 

54  0X0 

1 

DELLOOP 

TS 

RUPTREG1 

0101 

REF 

459 

LAST 

1365 

00,3741 

50  000 

1 

INDEX 

A 

0102 

REF 

4 

LAST 

23  7 

00,3742 

3 1326 

1 

CA 

DELAYLOC 

IS  THIS  DELAYLOC  AVAILABLE 

0 1-03 

00,3743 

0 00  0.6 

1 

EXTFND 

0104 

REF 

i 

00,3744 

1 3752 

0 

BZF 

3K2DELAY 

YES 

n ms  - 

-RFF 

53 

1 AST 

1 3 7 L 

-0  0 f 3-7-4  5 

1 o OJ-Q 

_1 

CCS 

P UP  I RFC  1 

NO.  TRY  NEXT  nFI  AY!  OF. 

0106 

REF 

i 

00, 3746 

1 3740 

0 

TCF 

DELLOOP 

0107 

REF 

pH 

l AST 

18  7 5 

OOt  3 747 

S 7 134 

o 

DXCH 

RJJF2 

0108 

REF 

7 

LAST 

1324 

00,3750 

0 5710 

1 

TC 

BAIL  CUT 1 

NO  AVAILABLE  LOCS. 

0109 

00,3751 

01104 

0 

OCT 

1104 

0110 

REF 

1 

00,3752 

3 3772 

0 

0K2DEL  AY 

CA 

TCSLEEP 

SET  WAITLIST  IMMEDIATE  RF TURN 

0111 

REF 

7 

LAST 

112  7 

00,3753 

54  061 

1 

TS 

WA1TEXIT 

0112 

REF 

30 

LAST 

1100 

00, 3754 

3 0004 

0 

CA 

FBANK 

0113 

REF 

54 

LAST 

137  1 

00, 3755 

6 0070 

0 

AD 

RUPTREG1 

STORE  BBANK  FOR  TASK  CALL 

ij 0114  . 

_R_EE- 

247 

LAST 

-1370 

OOj-3  75-6- 

54  001 

1 

TS 

L 

0115 

REF 

1 

00,3757 

3 3773 

1 

CAF 

WAKE  CAD 

STORE  CADR  FOR  TASK  CALL 

01-16 

RFF 

2 

LAST 

11 1 4 

00,3  760 

1 52  11 

1 

TC.  F 

DLV2  -1 

DLY  IS  IN  WAITLIST  ROUTINE 

0117 

REF 

15 

LAST 

1356 

00,3761 

0 4645 

1 

T CGETCAD 

TC 

MAKE  CADR 

GET  CALLERS  FCADR 

0118 

REF 

55 

LAST 

137  1 

00,3762 

50  070 

0 

INDEX 

RUPTREG1 

0119 

REF 

5 

LAST 

137  1 

00, 3763 

55' 326 

0 

TS 

DELAYLOC 

SAVE  DELAY  CADRS 

0120 

REF 

8 

LAST 

1357 

00,3764 

0 5133 

0 

TC 

JOBSLEEP 

01-24 

-RFF- 

255 

1-AS-T- 

-136  9 

0O-,  3 765 

1 

WAK-ER  

CAF 

ZERO— 

0122 

REF 

43 

LAST 

1355 

00,3766 

50  006 

1 

INDEX 

BBANK 

0123 

REF 

6 

LAST 

1371 

00, 3767 

57' 326 

1 

XCH 

DELAYLOC 

MAKE  DELAYLOC  AVAILABLE 
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0124 

REF 

13 

LAST 

1358 

00, 3770 

0 5137 

1 

TC 

JOBW  AKE 

A ] 0 C. 

pgp 

7_g 

^5  j 

±3  2 2 

00 ,3  771  - 

Q 5261 

1 

TC 

-TASKOVER 

U i C-  J 

0126 

REF 

1 

00,3772 

03757 

1 

TCSLEEP 

GEN ADR 

TCGETCAD 

0-127 

REF 

1_ 

-.00,3773 

_ 03765 

-0_ 

WAKEC-AD- 

GEN.  A OR 

MAKER 
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P0128  GENTRAN,  A BLOCK  TRANSFER  ROUTINE. 

-R  01-2  9 tfR-ITTEN  BY  D.  EYLES 

R0130  MOO  1 BY  KERNAN 


UTILITYM  REV  17  11/18/67 


RO 132 MBO-3— BY  SCHUL-EN-B ERG (REMOV-E  REL  INT  ) SK I PP  ER— REV-  4 2/28/6-8- 


R0133 
- R 0-1  3 5 


THIS  ROUTINE  IS  USEFULL  FOR  TRANSFERING  N CONSECUTIVE  ERASABLE  OR  FIXED  QUANTITIES  TO  SOME  OTHER  N 
CCNSECUTIVE  ERASABLE  LOCATIONS-. I F BOTH— BLOCKS  OF  D A T A.  A R E — IN  SWITCHA  8LE — EB.AN.KSt T H.E  Y MUST BE IN  THE  SAME  ONE. 


RO  1 37 

GENTRAN  IS  CALLABLE 

IN  A JOB 

AS  WELL  AS 

A RUPT 

. THE  CALLING 

SEQUENCE  IS: 

AO  1 39 
A0140 
A01A1 

I 

I +1 
..I  +2  _ 

CA 

TC 

ADR  F S 

V — 1 

GENTRAN 

_L 

# OF  QUANTITIES  MINUS  ONE. 

IN  FIXED-FIXED. 

STARTING  ADRES  OF  DATA  TO  BE  MOVED. 

AO  1 42 
A0143 

I + 3 
I +4 

AORES 

M 

STARTING  AORES  OF  DUPLICATION  RLOCK. 
RETURNS  HERE. 

R0144 

GENTRAN  TAKES 

2 5 MCT 

•S  (300  MICROSECONDS)  PER 

ITEM  + 5 

MCT  * S 

(60  MICS)  FOR  ENTERING  AND  EXITING. 

an-i-v* 

A T 1 

A\m  IT  F MP 1 A R F 

NflT  PRFRFRVFD* 

0147 

5 544 

BLOCK 

02 

0 148 

R FF  2 

J ART  

4000 

SETLOC 

FFTAG4 

0149 

5 544 

BANK 

- 04  5-Q 

&gjL  64 

1 AST 

13  7 0 

0061 

FRANK- 

I TE  M PI 

0151 

REF  1 

COUNT* 

i $ / T R AN 

0152 

5544 

0 0004  0 

GENTRAN 

INHINT 

0153 

REF  65 

LAST 

1373 

5545 

54  061  l 

TS 

I TEM  PI 

SAVE  N-l. 

01-54 

REF  371  . 

-LAST 

13  7 1 

SO  002  0 

INDEX 

Q 

C ( QJ  = ADRES  L. 

0155 

5547 

6 0000  1 

AD 

0 

ADRES  I L + N - 1 ) . 

0156 

REF  460 

LAST 

1371 

5550 

50  000  1 

INDEX 

A 

Q-l-5-7 

SS41 

3 0000  1 

CA 

0 

C ( ABOVE ) . 

0158 

REF  248 

LAST 

13  7 1 

5552 

54  001  1 

TS 

L 

SAVE  DATA. 

0159 

REF  66 

LAST 

1373 

5553 

3 0061  0 

CA 

I TE  M PI 

01-60 — 

-RE-F  33-2- 

-LAST 

13  7 3 

5554 

-50  002-0 

IMQEX 

CL 

0161 

5555 

6 0001  0 

AD 

i 

ADRES  ( M + N - 1 ) . 

0162 

REF  461 

LAST 

1373 

5556 

50  000  1 

INDEX 

A 

0163 

555.7 

-22.JQ.00  1 

LXCH 

0 

STUFF  IT. 

0164 

REF  67 

LAST 

1373 

5560 

10  061  1 

CCS 

I TE  M PI 

LOOP  UNTIL  N-l  = 0. 

0165 

REF  2 

LAST 

312 

5561 

1 5545  1 

TC  F 

GENTRAN 

+ 1 

0-166 

. REE 5- 

-LASX 

1288 

556? 

1 6740  0 

TCF 

Q±2 

RETURN  TO  CALLER. 
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7 

EO  S3 

P0167 

05CFF 

ZERO  BIT  5 OF  EXTVBACT,  WHICH  IS  SET  BY  TESTXACT. 

may  B-E-U SED  AS  NEE-SE-0  BY  ANY  EXTENDED  VERB  W-H  IC1  HAS  DONE  TESTX6CT 


0170 

REF 

1 

COUNT* 

tt/E  XTVB 

0171 

REF 

47 

LAST 

136  1 

5563 

4 4747  0 

B50FF  CS 

B I T 5 

0172 

REF 

16 

LAST 

1348 

5564 

7 1044  1 

MASK 

EXTVBACT 

i a<;t 

_J  \1  4 

5 565 

55*044  1 

TS 

EXTVBACT  . 

0 1 7 A 

REF 

157 

LAST 

1366 

5566 

0 5155  0 

TC 

ENDOFJOB 
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R 000 1 
R0003 

EITHER 

THE  FOLLOWING 
IN  INTERRUPT  OR 

SUBROUTINE  MAY 
UNDER  EXECUTIVE 

BE  CALLED 
CONTROL. 

TO  DISPLAY  A NON-ABORTIVE  ALARM  CONDITION.  IT  MAY  BE  CALLED 

R0004 

CALLING  SEQUENCE  IS 

AS  FOLLOWS: 

R0006 

R0007 

OCT 

A AANN 

ALARM  NO.  NN  IN 
(RETURNS  HERE) 

GENERAL  AREA  AAA. 

0008 

5567 

BLOCK  02 

0009 

REF  1 

4000 

SETLOC  FFTAG7 

nn  i o 

5567 

BANK _ 

0011 

REF  8 

LAST 

484 

0375 

EB  ANK=  FAILREG 

0012 

REF  1 

COUNT*  t$/ALARM 

R0013 

ALARM  TURNS  ON  THE  PROGRAM  ALARM  LIGHT 

, BUT  DOES 

NOT  DISPLAY. 

0014 

5567 

0 0004  0 

ALARM 

INHINT 

00-1  s 

.RFF  373 

I -AST 

13  7 3 

5 570 

3 0002  0 

CA  Q 

0016 

REF  4 

LAST 

1280 

5571 

5 5 1 3 63  1 

ALARM2 

TS  ALMCADR 

0017 

REF  374 

LAST 

1375 

5 5 72 

50  0 02  0 

INDEX  9 

0018  _ 

5573 

3-0000  1 

CA  0 

0019 

REF  249 

LAST 

1373 

5574 

54  001  1 

BORTENT 

TS  L 

0Q-2-Q 

R-FF 44 

-LAST 

137  1 

5-575 

3 00  0-6  1 

PR  I OF  NT 

CA  RRANK 

0021 

5576 

0 0006  1 

+i 

EXTEND 

0022 

REF  27 

LAST 

135  5 

5577 

04  007  1 

ROR  SUPFPBNK  ADD  SUPER  BITS. 

002-3 REE § LAST  13  7 5 5 60-0 55'364  0 TS ALMC  ADR  El . 


0024 

REF 

375 

LAST 

1375 

5601 

3 0002 

0 

LARMENT 

CA 

Q 

STORE  RETURN  FOR  ALARM 

QQ  2-5  - 

4 Afi 

— 1 AST 

137  3 

5-602 

54  061 

I 

TS 

I TEPP1 

0026 

REF 

9 

LAST 

137  5 

5603 

10  375 

1 

CHKFAIL 1 

CCS 

FAILREG 

IS  ANYTHING  IN  FAILREG 

— 00  2 7 

REF 

l 

1 56  07 

1 

TC  F 

CHKFAIL? 

YFS  TRY  NFXT  REG 

0028 

REF 

10 

LAST 

13  7 5 

5605 

22  375 

0 

LXCH 

FAILREG 

0029 

REF 

1 

5606 

1 5621 

0 

TC  F 

PRDGLARM 

TURN  ALARM  LIGHT  ON  FOR  FIRST  ALARM 

0030 

RFF 

11 

LAST 

1375 

5607 

10  376 

1 

CHKFAIL2 

CCS 

FAILREG  +1 

0031 

RFF 

1 

5610 

1 5613 

1 

TC  F 

F A I L 3 

QQ3-2 

REF 

—12 

_LASJ 

13  7 5 

561 1 

22  3J  6 

0 

LXCH 

FAILREG  +1 

0033 

REF 

1 

5612 

1 5624 

0 

TC  F 

MULTFXIT 

0QB4— 

— REF 

— L3— 

—LAST 

13  7 5 

_ 5613 

3 03  7 7 

1 

F A I L 3 

CA 

FAILREG  +2 

0035 

REF 

30 

LAST 

1123 

5614 

7 4733 

0 

MASK 

P OS MAX 

0036 

REF 

462 

LAST 

1373 

5615 

10  000 

0 

CCS 

A 

00-3-7  — 

R-E-E— 

1- 

_ 5-616 

1 5630 

0 

TC  F 

multeail 

003  8 

REF 

14 

LAST 

1375 

5617 

22  377 

1 

LXCH 

FAILREG  *2 

0039 

REF 

2 

LAST 

1375 

5620 

l 5624 

0 

TC  F 

MUL  TEX  IT 
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ALARM  ANO  ABORT 

USFR ' S PAGE  NO. 

2 EO  S3 

00  AO 
00  A 1 

REF 

REF 

A7 

2 

LAST 

LAST 

131  1 
13  5? 

5621 

5622 

5623 

A 1036 
7 56A2 
27' 036 

1 

0 

1 

PROGLARM 

CS 

MASK 

ADS 

DSPTAB  +110 

OCTAOAOO 

DSP  T AB  +-LLIL  _ 

0043 

REF 

69 

LAST 

137  5 

562A 

56  061 

0 

MULTEXIT 

XCH 

ITEMP1 

OBTAIN  RETURN  ADDRESS 

IN  A 

5 62  5 

0 0003 

1 

RFLTNT 

00A5 

REF 

A 63 

LAST 

1375 

5626 

50  000 

1 

INDEX 

A 

00A6 

5627 

0 0001 

0 

TC 

1 

00A7 

REF 

250 

LAST 

13  7 5 

5630 

3 0001 

0 

MULTFAIL 

CA 

L 

00  A 8 

REF 

50 

LAST 

1370 

5631 

6 A735 

1 

AD 

B IT  1 5 

o 04  9 

REF 

1 ^ 

LAST 

13  75 

5632 

5 A 377 

0 

T S_ . 

FAILREG  +2 

0050 

REF 

3 

LAST 

1375 

5633 

1 562A 

0 

TC  F 

MULTEXIT 

R0051 

PR IOL ARM 

DISPLAYS  V05N09  VIA 

PR  I OD  SDR  WITH  3 RETURNS  TO 

THE  USER  FROM 

THE  ASTRONAUT  AT  CALL  LOC  M,+2,+3  AND 

R0053 

AM 

IMMEDIATE  RETURN 

TO  THE  USER  AT  CALL 

LOC  +A. 

EXAMPLE 

POLL  OWS, 

CAF 

J3CTXX  - 

ALARM  CODF 

A0055 

TC 

BANKCALL 

A0056 

CADR 

PR  I OLARM 

A0057 

• • . 

. . • 

A0058 

• • • 

... 

_ A 005 9 

* * * 

• • • 

ASTRONAUT  RETURN 

A0060 

TC 

PHASCHNG 

IMMEDIATE  RETURN  TO  USER.  RESTART 

A0061 

OCT 

X.l 

PHASE  CHANGE  FOP  PRIO 

DISPLAY 

0062 

10 i 3 A5 1 

BANK 

10 

0063 

REF 

3 

LAST 

136  8 

10,2000 

SETLOC 

DISPLAYS 

01X64 

LQ  »3  451 

BANK 

0065 

REF 

3 

LAST  1368  TO 

1369: 

27  677* 

COUNT* 

$ $/ D SPL  A 

— 0066  - 

10, 3 A51 

0 00  OA 

0 

PRI OLARM 

INHINT 

* * * KEEP  IN  DISPLAY 

ROUTINES  BANK 

0067 

REF 

251 

LAST 

1376 

10, 3A52 

5 A 001 

1 

TS 

L 

SAVE  ALARM  COOE 

0040 

-R4F-- 

29 

LAST 

13  7 1 

10 1 345  3 

3 oi  bb  n 

CA 

BLJF? 

2 CADR  nF  PRini  ARM  USFR 

0069 

REF 

6 

LAST 

1375 

10, 3A5A 

5 5 ' 3 63 

1 

TS 

ALMC ADR 

0070 

REF 

30 

LAST 

1376 

10, 3A55 

3 0 1 3 A 

1 

CA 

BUF2  +1 

00X1- 

. REF— 

1 

10, 3A56 

0 55  76 

0 

TC 

PRIOFNT  +1 

* LEAVE  L ALONE 

0072 

10,3  A57 

77A67 

1 

-2SEC 

DEC 

-200 

***  DONT  MOVE 

0073 

REF 

6 

LAST 

928 

10,3  A60 

3 5006 

1 

CAF 

V05N09 

00-7  A 

REF 

? 

LAST 

-52  5 

LO,  3 461 

1 2357 

0 

TC  F 

PRI  ODSPP 

0075 

5 63  A 

BLOCK 

02 

-0.076 

—REF 

13  7 5 

AOOO 

SETLOC 

FFTAG7 

0077 

5 63  A 

BANK 

0-0X8  — 

—REE_ 

-2  LAST  1375  TQ 

1376:  . 

-37  3J* 

COUNT* 

it/ ALARM 

0079 

5 63  A 

0 OOOA 

0 

BAILOUT 

INHINT 

0080 

REF 

376 

LAST 

137  5 

5635 

3 0002 

0 

CA 

0 

— GAP-: — 

L 

A S S E M BL-E-  -REVISION  0 69-  OF 
ALARM  AND  ABORT 

A GC  PROGRAM  L UM I NAP  Y-  BY  -Hi 

\ ra  ?n?i  ii  ?-m  i 

1 Q: n?  NDV*  2Rt19^R  SKTPPFR  .070 

PAOT  1177 

USER'S  PAGE  NO,  3 

EO  S3 

0081 

REF  7 

LAST 

1376 

5636 

5 5 ' 3 63 

1 

TS 

ALMC ADR 

p ef  * 7 7 

[ ART 

1 1 1 h 

57>3  7 

-5  0 002 

0 

INDEX 

_Q 

0083 

5640 

3 0000 

1 

CAF 

0 

0084 

REF  1 

5 641 

0 5574 

1 

TC 

BORTFNT 

5 642 

40  4-00 

1_ 

--QCT4Q-400 

OCT  _ 

40400 

0086 

5 643 

0 0004 

0 

INHINT 

nnft7 

_RRF  9-Q 

L4ST 

1 36  2 

5-644 

3 4752 

0 

-WHIMPER 

CA 

TWO 

0088 

REF  23 

LAST 

128  8 

5645 

6 0005 

1 

AD 

Z 

0089 

REF  2 

LAST 

830 

5 646 

54  017 

0 

TS 

BPUPT 

00-9-0— 

_5  647 

.5  0017 

2— 

RESUME. 

0091 

REF  52 

LAST 

1348 

5650 

0 4635 

0 

TC 

POST  JUMP 

RESUME  SENDS  CONTROL  HERE 

0092 

REF  2 

LAST 

832 

5651 

12766 

0 

CADR 

ENEMA 

00-9-3— 

5 652 

0 0004 

0 

PCIODOD  „ 

I N H I NT 

0094 

REF  378 

LAST 

13  7 7 

5653 

3 0002 

0 

CA 

0 

0095 

REF  8 

LAST 

1377 

5654 

5 5 ' 3 63 

1 

ABOR  T2 

TS 

ALMC ADR 

_ _ 0096 

R-EF  37-9-  - 

LASX 

13  7 7 

5 65 3. 

50  002 

0 

INDEX 

Q 

0097 

5656 

3 0000 

1 

CAF 

0 

0098 

REF  2 

LAST 

1377 

5657 

0 5574 

1 

TC 

BORTENT 

009-9 

5 660 

77770 

1 

OCT  7777  0 

OCT 

77770 

DON'T  MOV F 

0100 

REF  2 

LAST 

109  1 

5 661 

3 4765 

1 

CAF 

DCT3  5 

4. 35 SPOT  FOR  GOPOODOO 

0101 

2 52 

L A-S-T 

-437  6 

5-662- 

-54  001 

1 

TS 

0102 

5663 

4 0000 

0 

COM 

0103 

REF  9 

LAST 

866 

5 664 

52  761 

0 

DXCH 

-PHA  SE4 

0404- 

5 665 

- 0—0004 

0 

GCPOODOO 

INHINT 

0105 

REF  29 

LAST 

1333 

5666 

3 0103 

0 

CA 

FL AGWRD7 

IS  SERVICER  CURRENTLY  IN  OPERATION? 

0106 

REF  3 

LAST 

29  5 

5667 

7 4746 

1 

MASK 

V37FLBIT 

0107 

R-EF  4 6-4 

LASJ 

13  7 6 

5-670 

10  0 00 

0- 

CCS 

A 

0108 

REF  1 

5671 

1 5675 

1 

TC  F 

STRTIDLE 

0109 

REF  303 

LAST 

132  9 

5672 

0 4616 

1 

TC 

BANKCALL 

01-1-0- 

— R-EE 2— 

LAST 

-22  7 

-56  73 

12643 

0 

CADR 

MR-,  K LEAN 

0111 

REF  2 

LAST 

866 

5674 

1 5644 

0 

TC  F 

WHIMPER 

0112 

REF  53 

LAST 

137  7 

5675 

0 4635 

0 

STRT IDLE 

TC 

POSTJUMP 

PUT  SERVICER  INTO  ITS  "GROUND' 

" STATE 

0-113 — 

REE 1 

5 67-6 

- 65711 

0 

CADR 

SEPV  IDLE 

AND  PROCEED  TO  GOTOPOOH. 

01  14 

5677 

0 0004 

0 

CCS  HDLE 

INHINT 

0115 

REF  380 

LAST 

1377 

5700 

3 0002 

0 

CA 

Q 

0116— 

REE 1— 

_ 5701 

0 5654 

0 

TC 

ABDR  T2 

0117 

5702 

01103 

1 

OCT  1103 

OCT 

1103 

0118 

5703 

0 0004 

0 

CURTA INS 

INHINT 

0119 

— REE — 3-81 — 

EAST 

137  7 

-5704 

-3—0002 

0 

CA 

Q 

0120 

REF  2 

LAST 

1280 

5705 

0 5571 

1 

TC 

ALA  R M2 

0121 

5 706 

00217 

0 

OCT217 

OCT 

0021  7 

012-2— 

REE 9 

EAST 

137  7_ 

5-70.7 

0 13  63 

0 

TC 

ALMCADR 

RETURN  TO  USER 

0123 

5 710 

0 0004 

0 

BA I LOUT  1 

INHINT 

0124— 

— REE 10 

LAST 

-1377 

5711 

- 53*364 

-0— 

-DXCFL 

ALMCADR  - - 

0125  REF  1 5712  3 5734  1 CAF 

0126  REF  70  LAST  1376  5713  54  061  1 80THABRT  TS 


A OP  4 04  00 
ITEMP1 
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0127 

0128 

0 129— 

0130 

0131 

0132- 

0133 

0134 

0135 

0136 

0 13-7- 

0138 

0139 
0140- 

0141 

0442— 

0143 

0144 

R-0445-- 

A0146 

AO  1-4-7-  - 


R0148 
01-49 — 


0150 

0151 

0152 


0153 

0154 

0155 
— 04-54> — 


ALARM  ANO  ABORT 


REF 

382 

LAST 

1377 

5714 

50  002 

0 

INDEX 

Q 

5715 

3 0000 

1 

CAF 

0 

— RE-F- 
REF 

-253- 

1 

— L-ASX 

137  7 

5 716 

54  001 

1 

IS 

1 

5717 

1 5603 

0 

TCF 

CHKFAIL1 

5720 

0 0004 

0 

P00D001 

INHINT 

R F F 

1 1 

LAST 

1377 

_5  121 

5 3*  3 64 

0 

DXCH 

ALMC ADR 

REF 

1 

5722 

3 5733 

0 

CAF 

ADR77770 

REF 

1 

5723 

1 5713 

0 

TCF 

BCTHABRT 

5 724 

0 0004 

0 

ALARM1 

INHINT 

REF 

12 

LAST 

1378 

5725 

53' 364 

0 

DXCH 

ALMCADR 

5 726 

0 -00-0-4 

.0 

ALMlNC  ADR_ 

J_N  HINT 

REF 

383 

LAST 

1378 

5727 

50  002 

0 

INDEX 

Q 

5 730 

3 0000 

I 

CA 

0 

-R-FF 

2_54 

LAST 

1378 

573  1 

54  001 

-1— 

TS- 

_L 

REF 

i 

5732 

1 5601 

1 

TCF 

LARMENT 

R-FF 

5— 

LAST- 

1365 

5 733-- 

1 56-60 

0 

ADR77770 

TCF 

00  7 7770 

REF 

3 

LAST 

1376 

5734 

1 5642 

0 

ADR  40400 

TCF 

DCT40400 

REF 

158 

LAST 

1374 

5155 

DOALARM 

EQUALS 

ENDOFJOB 

-CA1-L 1 NG  SEQUENCE  . -F  QR-  VARALARM 


CAF  (ALARM) 

TC VARALARM 


VARALARM  TURNS  ON  PROGRAM  ALARM  LIGHT  BUT  DOES  NOT  DISPLAY 


5 73  5 

__0_ 

0004- 

0 

VARAI  ARM 

I-N.HLMI._- 

REF 

255 

LAST 

1378 

5 736 

54 

001 

1 

TS  L 

REF 

384 

LAST 

1378 

5737 

3 

0002 

0 

CA  Q 

REF 

13 

LAST 

1378 

5740 

55 

*363 

1 

TS  ALMCADR 

REF 

2 

LAST 

1376 

5741 

0 

5575 

0 

TC  PRIOENT 

5 742 

000  14 

1 

OCT  1 4 

OCT  14 

REF 

14 

LAST 

137  8 

5 743 

0 

1363 

0 

TC  ALMCADR 

— R-&F- 

3- 

-LAST 

137  7 

5 644 

ABORT  - 

EQUALS  -WHJ-MP-ER 

19:0 2— N 0 V-  -25  ,4,94)8 SKIPPE-R  .070 PAGE  L3  78. 
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SAVE  USFRS  ALARM  CODE 
SAVE  USERS  Q 


DONT  MOVE 


RETURN  TO  USER 
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L 

UPDATE  PROGRAM 

USER’S  PAGE  NO.  1 EO 

S3 

R0001 

R0002 

PROGRAM  NAME: 
WRITTEN  BY: 

P 27 

KILROY/  DE  WOLF 

R0003 

R0004 

MOD  NO: 
MOD  BY: 
DATE: 

6 

KILROY 

0 1 DEC 6 7 - - - 

R0006 

LOG  SECTION: 

UPDATE  PROGRAM. 

R0007 
R0008 
- -ROOO-9- 

FUNCT.  DESCR: 

P 27  (THE  UPDATE  PROGRAM)  PROCESSES  COMMANDS  AND  DATA 
INSERTIONS  REQUESTED  BY  THE  GROUND  VIA  UPLINK. 
THF  P27  PROGRAM  WILL  ACCEPT  UPDATES 

R0010 

R0011 

ONLY  DURING  POO  FOR  THE  LM,  AND  ONLY  DURING  POO, 
P 02 , AND  FRESH  START  FOR  THE  CSM 

R0012 

CALLING  SEQ: 

PROGRAM  IS  INITIATED  BY  UPLINK  ENTRY  OF  VERBS  70,  71,  72  AND  73. 

R9WA 

R0016 

SOB-ROOT  LNES: — 

TESTXACT,  N6WM00FX , NEWMODEX  +3,  GOXOSPF,  BANKCALL,  FINDVAC,  INTPRFT , 1 NT  ST  Al  1 . TPAGREEj 

INTWAKEU,  ENDEXT,  POSTJUMP,  FALTON,  NEWPHASF  , PHASCHNG 

ROO 1 7 

-NORMAL  -EX4TJ  - 

T C ENDEXT - 

R0018 

ALARM/ABORT: 

TC  FALTON  FOLLOWED  BY  TC  ENDEXT 

R0019 
R0020 
R 002  2 

RESTARTS : 

P 27  IS  RESTART  PROTECTED  IN  TWO  WAYS... 

1.  PRIOR  TO  VERIFLAG  I NVER S I ON ( WH I CH  IS  CAUSED  BY  THF  GROUND/ASTRONAUT ’ S VERIFICATION  OF 
DATA  BY  SENDING  A V33E  WHEN  V21N02  IS  FLA  SHUVG) 

UPDATE 

R0023 
R0025 
ROO? 7 

NO  PROTECTION  EXCEPT  PRE-P27  MODE  IS  RFSTORED,  COAST  + ALIGN  DOWNLIST  IS  SELECTED  AND 
ACTIVITY  LIGHT  IS  TURNED  OFF. (JUST  AS  IF  A V34F  WAS  SENT  DURING  P27  DATA  LOADS). 

_ V 7 0 , V 7 L , V 7 2 OR  V 73  _WILL  HAVE  TO  ELE  COM  PJLE  TFL  Y R F SENT  BY  USFR. 

UPL I NK 

R0029 

R0031 

2.  AFTER  VERIFLAG  I N VE R S I ON ( WHEN  UPDATE  OF  THF  SPECIFIED  ERASABLES  IS  BEING  PERFORMED)  — 
PROTECTED  AGAINST  RESTARTS. 

ROO  32 
R0033 

RQ-03-5 

DEBRIS: 

UPBUFF  ( 20D ) TEMP  STORAGE  FOR  ADDRESSES  AND  CONTENTS. 

UPVERfi  (1)  VERB  NUMBER  MINUS  70D  (E.G.  FOR  V72,  UPVERB  = 72D  - 700  = 2) 

— UPJJLDMQQ  (1)  FOR  MAJOR  MODF  INTERRUPTED  BY  P27. 

R 00  36 
R0038 

R0039 

C OMPNUMB  (1)  TOTAL  NUMBER  OF  COMPONENTS  TO  BE  TRANSMITTED. 

UPCOUNT  (1)  ACTUAL  NUMBER  OF  COMPONFNTS  RECEIVED. 

- -U  PT  F-M-P  (11  SCRATCH.  RUT  IISUAMY  CnNTAINS  COMPONENT  NUMBFR  TO  BF  CHANGED  DURING  VERIFY  CYCLE 

— R0044 

-iWUT-: 

R0042 

ENTRY: 

DESCRIPTION 

R0043 

R0045 

&QQ47 

V70EXXXXXEXXXXXE  (LIFTOFF  TIME  INCREMENT)  DOUBLE  PRECISION  OCTAL  TIME  INCREMENT,  XXXXX  XXXXX, 

IS  AODED  TO  TEPHEM,  SUBTRACTED  FROM  AGC  C I OCX ( T I ME2 , T I M E 1) , SUBTRACTED  FROM  C SM  STATE 
ViLC  TOR  TLME  IT  ETC  SM  ) AND  SUBTRACTED  FROM  LEM  STATE  VECTOR  T I ME  ( T FTL  EM  ) . 

R0049 

THE  DP  OCTAL  TIME  INCREMENT  IS  SCALED  AT  2(28). 
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USER'S  PAGE  NO.  2 

EO  S3 

R0050 

R005I 

pnr>9? 

V7LE  I IEAAAAF 
XXXXXE 
XX XXX  F 

(CONTIGUOUS  BLOCK  UPDATE)  II-2  OCTAL  COMPO NENT S , XX X X X , 
ARE  LOADED  INTO  ERASABLE  STARTING  AT  ECADP,  AA  AA . 

IT  IS  . G£ . 3 .AND.  .LE.  20D.  , 

R0053 
R0054 
r nn56 

9 NEXT  BANK 

AND  ( A A A A + I I - 3 ) DOES  NOT  PRODUCE  AN  ADDRESS  IN  THE 
- SCALING  IS  SA«F  AS  INTEPNAL  REGISTERS. 

R 00  56 
R 00  5 7 

V72EI  IE 
AA AA  E XX  XX  XE 

(SCATTER  UPDATE)  (II-D/2  OCTAL  C OMPONF  N T S , XXX  XX  , ARF 
LOADED  INTO  ERASABLE  LOCATIONS,  A AAA . 

R0058 

R0060 

AAAAEXXXXXE 

II  IS  .GE.  3 .AND.  .LE.  19D,  AND  MUST  BE  ODD. 
SCALING  IS  SAME  AS  INTERNAL  REGISTERS. 

R0061 
R0062 
R006  3 

V73EXXXXXEXXXXXE  (OCTAL  CLOCK  INCREMENT)  DOUBLE  PRECISION  OCTAL  TIME 
INCREMENT  XXXXX  XXXXX,  IS  ADDED  TO  THE  AGC  CLOCK,  IN 
_ CENT  I SECOND  S SCALED  AT  (2)28. 

R0064 

THIS  LOAD  IS  THE  OCTAL  EQUIVALENT  OF  V55. 

R0065 

R0066 

OUTPUT  : 

IN  ADDITION  TO  THE  ABOVE  REGISTER  LOADS,  ALL  UPDATES 
COMPLEMENT  BIT3  OF  FL AGW0RD7. 

R0067 

ADDITIONAL  NOTES:  VERB  71,  JUST  DEFINED  ABOVE  WILL  BE  USED  TO  PERFORM  BUT  NOT 

LIMITED  TO  THE  FOLLOWING  UPDATES — 

R0069 

R0072 

1.  CSM/LM  STATE  VECTOR  UPDATE 

2.  REF  SMMAT  UPDATE 

R 007  3 

THE  FOLLOWING  COMMENTS  DELINEATE  EACH  SPECIAL  UPDATE 

R0074 

I.  CSM/LM  STATE 

VECTOR  UPDATEfALL  DATA  ENTRIES  IN  OCTAL) 



ENTRIES: 

DATA  DEFINITION!  SfAl  F 

F Af.T  HR  S : 

R0077 
R0078 
R-0  0 8 0 

V 7 1 E 
2 1 E 
AAAAE. 

CONTIGUOUSBLOCK  UPDATE  VERB 

NUMBER  OF  COMPONENTS  FOR  STATE  VECTOR  UPDATE 
EC ADR  CF  'UPSVFLAG ' 

R0082 
R0083 
RQ.0-84 

XXXXXE 

XX_X_XX_E_XXXXXE_  - 

STATE  VECTOR  IDENTIFIER:  00001  FOR  CSM,  77776  FOR  LEM  - EARTH 

00002  FOR  CSM,  77775  FOR  LEM  - LUNAR 

X POSITION 

SPHERE  OF  INFLUENCE 
SPHERE  OF  INFLUENCE 

SCALING 
SCAL  ING 

R0086 

R0088 

R0090 

XXXXXEXXXXXE 
XXXXXEXXXXXE 
--  XXXXXEXXXXXE  _ 

Y POSITION 
Z POSITION 
X VELOCITY 

R0092 
R00  94 
tO 096 

XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXXEXXXXXE  - 

Y VELOCITY 
Z VELOCITY 

T IMF  FROM  AGC  CLOCK  ZERO 

R0098 

V33E 

VERB  33  TO  SIGNAL  THAT  THE  STATE  VECTOR  IS  READY  TO  BF  STORED 

R0144 

R0145 


2.  RE  F SMMAT ( ALL  DATA  ENTRIES  IN  OCTAL) 
ENTRIES:  DATA  DEFINITIONS: 


SCALE  FACTORS: 
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R0147 
R0148 
RO150 

V71E 

24E 

AA-A.4E  - - - 

CONTIGUOUS  BLOCK  UPDATE  VERB 

NUMBER  OF  COMPONENTS  FOR  REFSMMAT  UPDATE 

F CADR  OF  ' P f r SM  MM  ' _ . . _ _ . 

R 01  52 
R0154 
RO 1-56 

XXXXXEXXXXXE 
XXXXXEXXXXXE 
- XXXXXEXXXXXE  - 

ROW  1 COLUMN 
ROW  1 COLUMN 
ROW  1 COLUMN 

1 2 ( - 1 ) 

2 21-1) 

3 2 ( — 1 ) 

R01  58 
R0160 
itO  1-62 

XXXXXEXXXXXE 
XXXXXEXXXXXE 
XXXXX-EXX  XX  XE 

ROW  2 COLUMN 
ROW  2 COLUMN 
ROW  2.  CO  LUMA! 

1 2 (- 1 ) 

2 21—1) 

3 2 t - 1 ) 

R 0 1 64 
R0166 
RO  1-6  8-  - 

XXXXXEXXXXXE 
XXXXXEXXXXXE 
X XXX  XE  XXXX  XE 

ROW  3 COLUMN 
ROW  3 COLUMN 
_ R.0.W_3.  COLUMN 

1 2 ( — 1 ) 

2 2 ( - 1 ) 

3 - - - 2 ( - 1 ) 

R0170 

V33E 

VERB  33  TO  SIGNAL  THAT  REFSMMAT  IS  READY  TO  BE  STORED. 

0171 

0172 

0173  - 

REF  7 LAST 

07, 3746 
312  43,2000 

43 , 3 732-_ 

BANK  07 

SETLOC  EXTVERBS 
_____  . BANK 

0174 

REF  4 LAST 

980  F 3 , 1706 

EB ANK=  TEPHEM 

0175 

REF 

1 

COUNT*  t $/P  27 

0176 

REF 

1 

43, 3732 

3 

4755  1 

V701JPDAT  CAF  UP70 

COMES  HERE  ON  V70E 

012-7- 

REF 

2 LAST 277 

43.3-73  3 

_L 

3741 1 

TCF  V73UPDAT  +1 

G12-S R-i-F 1 43,3  734  3 47  53  -1 VZ1UPDAT  CAF JR7J COMES  HFRE  ON  V71E 


0179 

REF 

3 

LAST 

138  1 

43, 3735 

1 3741 

1 

TCF 

V73UPPAT  +1 

0180 

REF 

1 

43,3736 

3 4752 

0 

V72UPDAT 

CAF 

UP72 

COMES  HERE  ON  V 72 E 

0181 

REF 

4 

LAST 

138  1 

43, 3737 

1 3741 

1 

TCF 

V 73 U PD AT  +1 

0182 

REF 

1 

43, 3740 

3 6244 

0 

V73UPDAT 

CAF 

UP73 

COMES  HERE  ON  V73E 

0183 

REF 

1 

43,3741 

55' 166 

0 

+ 1 

TS 

UPVERBSV 

SAVE  UPVERB  UNTIL  IT'S  OK  TO  ENTER  P27 

04&4 — 

— R-i-E— 

_4jg — 

-L  AST 

31  A 

43,  3 7-42 

0 2076 

1 

TC 

TEST  XAf T 

P,RAR  niFPlAY  IF  AVAT1ARIF,  DTHFPWTSF 

A0185 

TURN* OPERATOR  ERROR*  ON  AND  T ER M I NAT  E JOB 

Q-l-86 

- R-££ — 

21 

-LAST- 

12  a s 

43,  3 743- 

3 1011 

o 

r a 

m nn p ft. 

CHFCK  TF  HPnftTF  41  i nuFn 

0187 

43, 3744 

0 0006 

1 

EXTEND 

FIRST  CHECK  FOR  MODREG  = +0,  -0 

0188 

43,3745 

1 3750 

1 

BZF 

+3 

(+0  = POO,  -0  = FRESHSTART) 

018-9  - 

REF 

_5-4 

LAST 

13  7 7 

43,3  7_46 

0 4635 

0 

UPERROR 

TC 

POST  JUMP 

TURN  ON  'OPERATOR  ERROR*  LIGHT 

0190 

REF 

1 

43,3747 

11703 

0 

CADR 

JPERROUT  +2 

GO  TO  COMMON  UPDATE  PROGRAM  EXIT 

0104 

R-Ef 

-2-2 — 

LAST 

-138  1-  _ 

- 43,-3  7 50 

_3 1 A 0-1 1 

0 

CAE 

J40DP  EG 

UPDATE  A1  1 OWED. 

0191  5 

REF 

1 

43,3746 

CKMDMORE 

UPERROP 

0192 

REF 

2 

LAST 

120 

43, 3751 

55* 171 

0 

TS 

JP01 DMOr 

SAVE  CURRENT  MAJOR  MODE 

GAP 
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0193 

0194 

REF 

REF 

2 

2 

LAST 

LAST 

138  1 
120 

43, 3752 
43,  3753 

31' 166 
55' 172 

1 

0 

CAE  UPVERBSV 

TS  UPVERB 

SET  UPVERB  TO  INDICATE  TO  P27 
WHICH  EXTENDED  VERB  CALLED  IT. 

0195 

0196 

REF 

REF 

147 

2 

LAST 

LAST 

1369 

120 

43.3754 

43. 3755 

3 4753 
55' 173 

1 

1 

CAF  ONE 

TS  UPCOUNT 

INITIALIZE  UPCOUNT  TO  1 

0197 

REF 

55 

LAST 

138  1 

43,3  756 

0 46  3 5 

0 

TC  POSTJUMP 

LEAVE 

EXTFNDFD  VERB  BANK 

AND 

0198 

REF 

1 

43,3757 

11322 

1 

CADR  UPPART2 

GO  TO 

UPDATE  PROGRAM  I P2  7) 

BANK. 

0211 

REF 

256 

LAST 

137  1 

4755 

UP70 

EQUALS  ZERO 

Op]  7 

REF 

148 

1 AST 

1392 

4753 

UP7  1 

EQUALS  ONE 

0213 

REF 

91 

LAST 

1377 

4752 

UP7  2 

EQUALS  TWO 

0214 

REF 

43 

LAST 

1365 

6244 

UP73 

EQUALS  THREE 

0215 

04, 3322 

BANK  04 

0-21-^ 

H EF 

9 

1 A^T 

]??  1 

r>4t  p nnn 

SETLOC  UPDATE7 

0217 

04,3322 

BANK 

02  18 R-E-F 1 - COUNT  * S1/P27 


0219 

04, 3322 

UPPART2  EQUALS 

UPDATE  PROGRAM  - 

PART  2 

0220 

REF 

115 

LAST 

132  9 

04,3322 

0 5353 

1 

TC 

P HAS  CHNG 

SET  RESTART  GROUP 

6 TO  RESTORE  OLD  MODE 

0221 

04,3323 

07026 

1 

OCT 

07026 

AND  QOWNLIST  AND 

EXIT  IF  RESTART  OCCURS. 

0222 

- 04,3324 

30000 

1 

OCT 

30000 

PRIORITY  SAME  AS 

CHRPRIO 

0223 

REF 

4 

LAST 

219 

1 174 

EBANK= 

UPBUFF 

0224 

REF 

1 

04,3325 

03633 

1 

2C  ADR 

UPOUT  +1 

_ 0224 

_ R.EF 

1 

04,3326 

10102 

0 

0225 

REF 

149 

LAST 

1382 

04, 3327 

3 4753 

1 

CAF 

DNF 

02^-6- 

RFF 

- 10 

IASI 

98  7 

04,3330 

54  332 

1 

TS 

DNLSTCOD 

DOWNL 1ST 

0227 

REF 

6 

LAST 

806 

04,3331 

0 5311 

1 

TC 

NEWMODEX 

SET  MAJOR  MODE  = 

27 

0 228 04,3337  00033  1 OFC  27 


0229 

0230  — 

REF 

3 

LAST 

1382 

04. 3333 

04. 3334 

51' 172 
1 333  5 

1 

0 

INDEX 
TC  F 

UPVERB 

+ 1 

BRANCH  DEPENDING  ON  WHETHER  THE  UPDATE 
V E D B REQUIRES  A FIXED  OR  VARIABLE  NUMBER 

0231 

04,3335 

1 3340 

1 

TC  F 

+ 3 

V70  FIXED.  (OF  COMPONENTS. 

0232 

REF 

1 

04, 3336 

1 3343 

1 

TC  F 

OHWE  LL 1 

V71  VARIABLE  - GO  GET  NO.  OF  COMPONENTS 

- 02  33 

REF 

2_ 

EAST 

138? 

04,3337 

1 33  43 

1 

TC  F 

DHWE  LL1 

V 7?  VARIABLE  - GO  GET  NO.  OF  COMPONENTS 

0234 

REF 

92 

LAST 

1382 

04, 3340 

3 4752 

0 

CA 

TWO 

V 73  ( AND  V 70 ) FIXED 

0235 

REF 

3 

LAST 

219 

04, 3341 

55' 170 

1 

TS 

CGMPNUMB 

SET  NUMBER  OF  COMPONENTS  TO  2. 

0236 

J3EF 

1. 

04,  3342 

1 3366 

0 

TC  F 

OHWE  LL 2 

GO  G FT  THF  TWO  UPDATE  COMPONENTS 

0237 

REF 

1 

04,  3343 

3 3436 

0 

0HWELL1 

CAF 

ADUPBUFF 

* REQUEST  USER  TO  SEND  NUMBER  * 

02  3 8 

R.EF 

7 85 

. LAST 

1367 

04.  3 344 

54  156 

1 

TS 

MPAC  +2 

* OF  COMPONENTS  P AR AM E T ER I I I ) . * 

0239 

REF 

1 

04, 3345 

3 3437 

1 

+ 2 

CAF 

J PLOADNV 

( CK4V32  RETURNS  HERE  IF  V32  ENCOUNTFRED) 

0240 

REF 

304 

LAST 

1377 

04, 3346 

0 46  16 

1 

TC 

BANKCALL 

DISPLAY  A FLASHING  V21N01 
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0241 

REF 

10 

LAST 

725 

04, 3347 

202  12 

1 

CADR 

GOXDSPF 

TO  REQUEST  I I . 

0242 

REF 

1 

04, 3350 

1 3633 

0 

TCF 

JP0UT4 

V 34  TERMINATE  UPDATEIP27)  RETURN 

p pF 

1 AST 

? 

04,  3 3 5 1 

1 3345 

3 

TC  F 

-DHW  E LL  L L2  _ 

0244 

REF 

1 

04, 3352 

0 3427 

0 

TC 

CK4V32 

DATA  OR  V32  RETURN 

0245 

REF 

54 

LAST 

1279 

04, 3353 

4 4752 

1 

CS 

B I T 2 

5 

4 AST 

138  2 

Q4t  3354 

6 1 1 74 

1 

. AD 

J-LP-BAIE  F 

TS  T T ( NUMBER  OF  COMPONENTS  PARAMETER) 

0247 

04, 3355 

0 0006 

1 

EXTEND 

.GE.  3 AND  .LE.  20D. 

024R 

REF 

4 

LAST 

1383 

04, 3356 

6 3345 

0 

BZMF 

0HWFLL1  +2 

- n? 49 

R-FF 

6 

LAST 

13  8 3 

04 , 3357 

4 11  74 

0 

- CS 

IJPBUFF 

0250 

REF 

i 

04,  3 360 

6 4362 

1 

AD 

UP2  1 

0251 

04,3361 

0 0006 

1 

EXTFND 

02  52 

REF 

5 

L AST 

13  83 

04, 336-2 

6 3345 

0 

BZMF  _ 

ohweili  +2 

0253 

REF 

7 

LAST 

1383 

04, 3363 

31* 174 

1 

CAE 

UPBUFF 

0254 

REF 

4 

LAST 

1382 

04, 3364 

55' 170 

1 

TS 

COMP  NUMB 

SAVE  II  IN  COMP NUMB 

R0257 

UPBUFF  LOADING  SEQUENCE 

02571 

REF 

3 

LAST  1382 

04, 3365 

25> 1 73 

0 

I NCR 

UPCOUNT 

INCREMENT  COUNT  OF  COMPONENTS  RECEIVED. 

0258 

REF 

1 

04,3366 

3 3603 

1 

0HWELL2 

CAE 

ADUPBFM1 

CALCULATE  LOC AT  I ON ( EC ADR)  IN  UPBUFF 

- 02  55 

fLEP 

4 

1 AS  I 13  8 3 

0 40-3  6 7 

6 1173 

0 

AD 

UPCOUNT 

WHERE  NEXT  COMPONENT  SHOULD  BF  STORED. 

0260 

REF 

786 

LAST  1382 

04,3370 

54  156 

1 

+ 2 

TS 

MPAC  +2 

PLACE  ECADR  INTO  R3. 

0261 

REF 

2 

LAST  1382 

04, 3371 

3 3437 

1 

+ 3 

CAE 

UPLOADNV 

(CK4V32  RETURNS  HERE  IF  V32  ENCOUNTERED) 

0262 

3LFF _3_Q_5  L AST  13  8 2 _ 

04,  33 72 

0 -4616 

J 

TC_ 

BAM  CALI 

DISPLAY  A FLASHING  V21N01 

0263 

REF 

11 

LAST  1383 

04, 3373 

202  12 

L 

CADR 

GOXDSPF 

TO  REQUEST  DATA. 

0264 

REF 

2 

LAST  1383 

04, 3374 

1 3633 

0 

TCF 

UP0UT4 

V 34  TERMINATE  UPDATEIP27)  RETURN. 

02-65 

R _E-F ... 

2 

LAST  1 3il? 

-0)4,33  75 

1 3871 

0 

TC  F 

ITH  WF  1 12  +3 

V 33  PROCEED  RETURN 

0266 

REF 

2 

LAST  1383 

04, 3376 

0 3427 

0 

TC 

CK4V32 

DATA  OR  V 3 2 RETURN 

0267 

REF 

5 

LAST  1383 

04, 3377 

4 1173 

l 

CS 

UPCOUNT 

HAVE  WE  FINISHED  RECEIVING  ALL 

0 26  8- 

REP 

5 - 

LAST  138  3 

04,  3 400 

6 1170 

0 

AD 

_Z  0 MUNUMB 

THF  DATA  WF  EXPFCTFD. 

0269 

04,3401 

0 0006 

1 

EXTEND 

0270 

REF 

i 

04, 3402 

6 3404 

1 

BZMF 

UPVERIFY 

YES-  GO  TO  VERIFICATION  SEQUENCE 

0-27-2 REF 3 L-AS-T-L383 04,3403  1 3365  0 TOE  3HWELL2  -1 NO-  REQUEST  ADDITIONAL  DATA. 


0274 

RFF 

I 

04, 3404 

3 

3435 

0 

UPVERIFY  CAF 

ADUPTEMP 

PLACE  ECADR  WHERE  COMPONENT  NO.  INDEX 

0-2-75  - 

- -REE 

7 87 

LAST  .13.83 

04,  3 40-5. 

54_  15.6 

1— 

TS 

MPAC  +7 

IS  TO  BE  STORED  INTO  R3. 

0276 

REF 

1 

04,3406 

3 

3440 

L 

CAF 

U P V R FYNV 

( CK4V32  RETURNS  HERE  IF  V32  ENCOUNTERED) 

0277 

REF 

306 

LAST 

1383 

04, 3407 

0 

4616 

1 

TC 

BANKCALL 

DISPLAY  A FLASHING  V21N02  TO  REQUEST 

0278 

- REE 

-12- 

L AST 

13.83— 

04,3410 

202  12 

1 

CADR 

GOXDSPF 

DATA  CORRECTION  OR  VERIFICATION. 

0279 

REF 

3 

LAST 

1383 

04, 3411 

1 

3633 

0 

TCF 

UP0UT4 

V 34  TERMINATE  UPDATEIP27)  RETURN 

0280 

REF 

1 

04, 3412 

1 

3441 

1 

TCF 

UPSTORE 

V 33  DATA  SENT  IS  GOOD.  GO  STORE  IT. 

0281 

_ REF 

_3— 

LAS  T 

13  8 3 

04, 3413 

0 

3427 

a 

TC 

CK4V32 

COMPONENT  NO.  INDEX  OP  V3?  RFTUPN 

02  82 

REF 

4 

LAST 

120 

04, 3414 

3 

1 1 67 

0 

CA 

UPTEMP 

DOES  THE  COMPONENT  NO.  INDEX  JUST  SENT 

0283 

04, 3415 

0 

0006 

i 

EXTEND 

SPECIFY  A LEGAL  COMPONENT  NUMBER? 

02-8-4- 

-REE  _ 

2_ 

LAS  T 

-13-8  3 . 

04, 3416 

6 _34  0_4 

1 

BZMF 

UPVERIFY 

NO,  IT  IS  NOT  POSITIVE  NONZERO 

02  85 

REF 

5 

LAST 

1383 

04,3417 

4 

1167 

l 

CS 

UPTEMP 

0288 

REF 

6 

LAST 

1383 

04, 3420 

6 

1170 

0 

AD 

COMP  NUMB 

Idm?  N|nv.  7=;,iq^a  ^kipppr  _d70  pagf  i 384 
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0289 

0290 

0291 

REF 

RFF 

60 

3 

LAST 

LA-SI 

134-8 
13  S3 

04. 3421 

04. 3422 

04.3423 

6 

0 

6 

4753 

0006 

3404 

1 

1 

1 

AO 

EXTEND 

BZMF 

BIT1 

UPVE  P_L£Y_ 

NO 

0292 

REF 

2 

LAST 

1383 

04, 3424 

3 

3603 

1 

CAF 

ADUPBFM1 

YES-  BASED  ON 

THE 

COMPONENT  NO.  INDFX 

0293 

REF 

6 

LAST 

1383 

04, 3425 

6 

1167 

0 

AD 

JPTE  MP 

CALCULATE  THE 

ECADR  OF  LOCATION  IN 

029A 

RXF 

4 

LAST 

1383 

0 4,3  426 

_JL 

3 3 70- 

1 

TCF 

3HWELL2  +2 

UPBUFF  WHICH 

USER 

WANTS  TO  CHANGE. 

0295 

REF 

2 

LAST 

1382 

04,3633 

UP0UT4 

EQUALS 

UPOUT  +1 

COMES  HERE  ON 

V34 

TO  TERMINATE  UPDATE 

R0296 

CHECK 

. FOR 

VERB  32  SEQUENCE 

0297 

REF 

788 

LAST 

138  3 

04, 3427 

4 0154 

0 

CK4V32 

CS 

MPAC 

ON  DATA  RETURN  FROM  'GOXDSPF' 

0298 

REF 

58 

LAST 

1360 

04, 3430 

7 4746 

1 

MASK 

B IT6 

ON  DATA  RETURN  FROM  "GOXDSP”£  THE  CON- 

n?Q  q 

RFF 

46  5 

1 AS.T 

137  7 

04,343  1 

10  000 

Q 

CCS. 

A 

TFNTS  OF  MPAC.  = VFRB.  SO  TEST  FOR  V 32. 

0300 

REF 

385 

LAST 

1378 

04,3432 

0 0002 

0 

TC 

Q 

IT'S  NOT  A V32 , IT'S  DATA.  PROCEED. 

0301 

REF 

386 

LAST 

1384 

04,3433 

50  002 

0 

INDEX 

Q 

n^o?  - 

0 4,  3 43  4 

7 ' 7 7 7 1 

0 

TC.  _ 

0 -6 

V 3 2 ENCOUNTERFD  - GO  BACK  AND  GFT  DATA 

0305 

REF 

7 

LAST 

1384 

04,3435 

Oil  67 

0 

ADUPTEMP 

ADRES 

JPTEMP 

ADDRESS  OF  TEMP  STORAGE  FOR  CORRECTIONS 

03-04 

REF 

8 

LAST 

13  8 3 

04,3.43.6 

01174 

1 

ADUPBUFF 

ADRES 

UPBU FF 

ADDRESS  OF  UPDATE  DATA  STORAGE  BUFFER 

03  07 

04, 3437 

05201 

1 

UPLOADNV 

VN 

2101 

VERB  21  NOUN  01 

0308 

04,3440 

05202 

1 

UPVRFYNV 

VN 

2102 

VERB  21  NOUN  02 

- - 03-0-9 

RFF 

3_ 

_LASJ_ 

1094 

4362  _ 

UP2  1 

- 

MD1 

DEC  71  = MAX  NO  OF  COMPONENTS  +1 

03121 

REF 

23 

LAST 

1350 

4756 

UPDTPHAS 

EQUAL  S 

FIVE 

R 03-1-3 PRE-ST-ORE  AND  FAN  TO  A PPROPRI  AT E -BRANC H SEQUENCE 


0314 

04,  3441 

UPSTORE  EQUALS 

GROUND  HAS  VERIFIED  UPDATE.  STORE  DATA. 

0315 

04,3441 

0 0004 

0 

INHINT 

034-6 

REF 

30 

LAST 

137  7 

04^3-44  2- 

30  103 

0 

CAE 

F LAG WRD7 

INVERT  VERIFLAG1BIT3  0-F  FLAGWRJQ7)  TO 

03  17 

REF 

256 

LAST 

1378 

04, 3443 

56  001 

0 

XCH 

L 

INDICATE  TO  THE  GROUNDIVIA  DOWNLINK) 

0318 

REF 

1 

04, 3444 

3 4751 

0 

CAF 

VEP I EBIT 

THAT  THE  V33  (WHICH  THF  GROUND  SENT  TO 

0319 

04,3445 

0 00  06. 

-1 

EXTEND 

VERIFY  THE  UPDATE)  HAS  BEEN  SUCCESSFULLY 

0320 

REF 

17 

LAST 

1369 

04,3446 

06  001 

0 

RX  OR 

LCHAN 

RECEIVED  BY  THF  UPDATF  PROGRAM 

0321 

REF 

31 

LAST 

1384 

04, 3447 

54  103 

1 

TS 

F L AGWRD7 

0322 

REF 

1 16 

LAST 

1382 

04,3450 

0 5353 

1 

TC 

PHASCHNG 

SET  RESTART  GROUP  6 TO  REDO  THF  UPDATE 

0323 

04,3451 

04026 

1 

ncT 

0402  6 

DATA  STORE  IF  A RESTART  OCCURS. 

0324 

04,3452 

0 0004 

0 

INHINT 

(BECAUSE  PHASCHNG  DID  A RELINT) 

0325 

REF 

93 

LAST 

13  8 2 

04,3453 

4 4752 

1 

CS 

TWO 

GO  TO  UPFNDVAC  IF  INSTALL  IS  REQUIRED, 

0326 

. RE_F 

4 

LAST 

13  8 2 

04,3454 

6 1172 

1 

AD 

UPVE  PB 

THAT  IS,  IF  IT'S  A V70  - V 72. 

0327 

04, 3455 

0 0006 

1 

EXTEND 

GO  TO  UPEND73  IE  IT'S  A V 73. 

0328 

REF 

1 

04, 3456 

6 3465 

0 

BZMF 

UPFNDVAC 

R 03  30 


VERB  73  BRANCH 


-U/VP : ASSEMBLE  REV-I-S-ION  069  OF  AGC  PROGRAM  LUM4NARY-  -BY  NASA  30  21112-014 


49:02  NOV,  25,1968 SKIPPER  .OZO P-AGF  1 3B5_ 


UPDATE  PROGRAM  USER'S  ° AGE  NO.  7 E3  S4 


0331 

04,3457 

0 0006 

1 

UPEND73 

EXTEND 

V73-PERF0RM  OP  OCTAL  AGC  CLOCK  INCREMENT 

0332 

REF 

9 

LAST 

1384 

04,3460 

3 1175 

0 

OCA 

UP3UFF 

1 a<;t 

|3  ft  5_ 

04,3461 

53*205 

0 

-DXCH 

UPBUFF  +ao_  _ 

0334 

REF 

1 

04,3462 

0 3510 

0 

TC 

T IME  DIDL 

0335 

REF 

8 

LAST 

837 

04, 3463 

0 4364 

1 

TC 

FA1  TCN 

ERROR-  TURN  ON  *0  PER AT  OR  ERROR*  LIGHT 

13  A 4 

04,  8 4A4 

0 3 63  3- 

_L- 

TC_  _ _ 

UPOUT  +1 

GO  TO  COMMON  UPD4TE  PROGRAM  FXIT 

0337 

REF 

7 

LAST 

13  3 2 

04, 3465 

3 4355 

0 

UPFNDVAC 

CAF 

C HR  P R 10 

(USE  EXTENDED  VERB  PRIORITY) 

033P 

RFF 

43 

LAST 

136  1 

£4,  3466 

0 5105 

0 

TC  _ 

F INDVAC 

GET  VAC  AREA  FOR  'CALL  INTSTALL ' 

0339 

REF 

5 

LAST 

138  1 

E3, 1 706 

EBANK= 

TEPHEM 

0340 

REF 

1 

04, 3467 

03472 

0 

2C  ADR 

UPJOB 

(NOTE:  THIS  WILL  ALSO  SET  EBANK  FOR 

0840 

P EF 

1 

_0A,  3 4 70 

10103 

1 

0341 

REF 

159 

LAST 

1378 

04, 3471 

0 5155 

0 

TC 

ENDOFJOB 

•TEPHEM'  UPDATE  BY  V70 ) 

P EF 

7 34 

\ ACT 

17  5-7 

04*  3 47 2 

a 6036 

1 

UP  J OB 

TC- 

LL.T  P RET 

THIS  cmil  D BF  4 STATF  VFCTOR  UPDATE — SO 

0343 

04,3473 

77624 

1 

CALL 

W A I T ( PUT  JOB  TO  SLEEP)  IF  ORBIT  I NT ( 0 I ) 

0344 

REF 

37 

LAST 

121 9 

04,3474 

27412 

0 

I NTS  TALL 

IS  IN  PROGRESS — OR — GRAB  01  AND  RETURN 

AQ^4S 

TO  UPWAKE  IF  01  TS  NOT  IN  PROGRESS. 

0346 

04, 3475 

77776 

1 

UPWAKE 

EXIT 

0347 

REF 

117 

LAST 

1384 

04,3476 

0 5353 

1 

TC 

PHASCHNG 

RESTART  PROTECT (GROUP  6) 

0348 

04, 3477 

04026 

1 

OCT 

0402  6 

0350 

REF 

70 

LAST 

1359 

04,3500 

0 5 5 04 

0 

TC 

UPFL AG 

SET  INTEGRATION  RESTART  BIT 

0351 

REF 

5 

LAST 

1238 

04,3501 

00236 

0 

AORES 

REINTFLG 

0 3-52 

04, 3-50? 

0 0004 

0 

INK1NT 

0355 

04,3503 

UPP ART3 

EQUALS 

..  . 0 3 56 

5 

_1.  Ji  SLT  1 3 ft  A 

Q4  f 3 50  3 

61-*  1 77 

1 

I NDFK 

UP VERB 

RR  AN  f H Tn  THF  APPPnPP  T ATF  UPDATE  VFPR 

0357 

04,3504 

1 3505 

0 

TC  F 

+1 

ROUTINE  TO  ACTUALLY  PERFORM  THE  UPDATE 

0358 

REF 

1 

04,3505 

1 3644 

0 

TC  F 

UPEND70 

V70 

_ 03-59 

R E F 

— 1 

04,  3 506 

3 3553 

0 

TC  F 

UPEND71 

V71 

0360 

REF 

1 

04, 3507 

1 3605 

0 

TC  F 

UPEND72 

V 72 

R0361 

ROUTINE  TO 

I NCREMENT 

CLOCK! T IME2.T IME1 ) 

WITH  CONTENTS  OF  DP 

WORD  AT  UPBUFF. 

— 0363 

04 , 3 510 

O 00  06 

1 

T IMFO  I m 

py TEND 

0364 

REF 

8 

LAST 

1384 

04,3511 

23' 167 

0 

QXCH 

UPTEMP 

SAVE  Q FOR  RETURN 

0365 

REF 

257 

LAST 

1382 

04,3512 

3 4755 

1 

CAF 

ZERO 

ZERO  AND  SAVE  TIME2.TIME1 

0366 — 

04, 3513 

_22  007 

0 

_ZJ 

0367 

RFF 

35 

LAST 

1331 

04, 3514 

52  025 

1 

oxch 

T I M F 2 

0368 

REF 

11 

LAST 

1385 

04, 3515 

53*217 

0 

OXCH 

UPBUFF  +18D 

STORE  IN  CASE  OF  OVERFLOW 

0369 

REF 

1 

04, 3516 

3 4756 

1 

CAF 

UPDT  PHAS 

DO 

0370 

REF 

257 

LAST 

1384 

04, 3517 

54  001 

1 

TS 

L 

A 

037] 

_ 0 4, 3 520 

4 00  00 

0 

COM 

QUICK 

0371  1 

REF 

5 

LAST 

866 

04,3521 

52  765 

1 

DXCH 

-PHA  SE6 

PHASCHNG 
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0372 

04,3522 

0 0004 

0 

T I MED  I DR  INHINT 

3 47  55 

1 

CAF  _ 

ZE2Q- 

0374 

04,  3524 

22  007 

0 

ZL 

PICK  UP  INCREME NT ERIAND  ZERO 

0375 

REF  789 

LAST 

138  4 

04, 3525 

54  156 

1 

TS 

MPAC  +2 

IT  IN  CASE  OF  RESTARTS)  AND 

RTF  \ ? 

LAST 

13  8 5 

04, 3-5-26 

-53 ' 205 

0__ 

. -DXCH.. 

J-LPBUFF  +8D 

STORF  IT 

0377 

REF  790 

LAST 

1386 

04, 3527 

52  155 

i 

OXCH 

M P AC 

INTO  MPAC  FOR  TPAGREE. 

-0-4,  3 530 

0 0006 

1 

EXTEND 

0379 

REF  13 

LAST 

1386 

04,  3531 

3 1217 

i 

DC  A 

JPBUFF  +18D 

0380 

RFF  791 

LAST 

1386 

04,3532 

20  155 

i 

DAS 

MPAC 

FORM  SUM  IN  MPAC 

03  81 

__0_4,  3 533 

_Q  00  06) 

_] 

EXTFND 

0382 

REF  1 

04,3  534 

1 3543 

1 

8ZF 

DELT  ATOK 

TEST  FOR  OVERFLOW 

0383 

REF  259 

LAST 

1386 

04,3535 

3 4755 

i 

CAF 

ZERO 

03-84  - 

REF.  14 

LAST 

13  8_6 

_Q_4,  3 53  6 

53' 217 

0 - 

-DXCH 

UPBUFF  +18D 

OVERFLOW , RESTORE  OLD  VALUE  OF  CLOCK 

0385 

REF  36 

LAST 

138  5 

04, 3537 

20  025 

1 

OAS 

T I ME  2 

AND  TURN  ON  OPERATOR  ERROR 

D3R6 

RFF  1 1 8 

- 1 AST 

138  5 

_ 04 , 3 540 

_0  53-52 

1 _ 

TC 

EtiAS  CHMG 

RFSTAPT  PROTECT (GROUP  6) 

0387 

04| 3541 

04026 

1 

DC  T 

04026 

-03-88 REF-  -9 L-AS-T— 138-5 -04,  3-542 0— 1 1 47-  0 TC UPTFMfi GO  TO  ERROR  FXIT 


0389 

REF 

18 

LAST 

133  1 

04,  3543 

0 72  56 

1 

DELTATOK 

TC 

TPAGREE 

FORCE  SIGN  AGREEMENT 

03-90 

R-E-F 

7 92 

LAST 

--J33-6 

_ 52  J.55 

1 

OXCH 

MPAC 

0391 

REF 

37 

LAST 

1386 

04,  3545 

20  025 

1 

DAS 

T IMF  2 

INCREMENT  T1ME2.TIME1 

0392 

-RFF 

119 

LAST 

1386 

04,  3 546 

0 53  53 

1 

TC 

PHAS  CHNG 

RESTART  PROTECT (GROUP  6) 

0393 

04,  3547 

040  26 

i 

OCT 

04026 

- 039-4 

04,  3-550 

0 0004 

-0 

INhLLNT 

0395 

REF 

10 

LAST 

1386 

04, 3551 

51*167 

0 

INDEX 

UPTE  MP 

(CODED  THIS  WAV  FOR  RESTART  PROTECTION) 

0396 

04, 3552 

0 0001 

0 

TC 

i 

NORMAL  RETURN 

R0397 

VERB 

71  BRANCH  - 

0402 

REF 

15 

LAST 

1386 

04, 3553 

31*  175 

0 

UPEND71 

CAE 

UPBUFF  +1 

SET  EBANK 

04.03- 

R£E_ 

6-5_ 

_ LAST 

13  58 

04,  3-5-54 

54  003 

0 

TS 

EBANK 

AND 

0404 

REF 

19 

LAST 

1318 

04,  3555 

7 43  5 7 

0 

MASK 

L0W8 

CALCULATE 

0405 

REF 

1 1 

LAST 

138  6 

04,  3556 

55* 167 

1 

TS 

UPTEMP 

S-REG  VALUE  OF  RECEIVING  AREA 

0406 

REF 

5 

LAST 

131  8 

04, 3557 

6 7744 

1 

AD 

NEG3 

IN  THE  PROCESS  OF 

0407 

REF 

7 

LAST 

1383 

04, 3560 

6 1170 

0 

AD 

C OMP  NUMB 

PERFORMING 

04-0-8— 

-OA,  3 561 

- 0 00-0-6 

1 

EXTEND 

THIS  UPDATE 

0409 

REF 

1 

04,3562 

1 3570 

1 

BZF 

STOP  LP71 

WILL  WE 

0410 

REF 

34 

LAST 

1326 

04,3563 

7 4743 

1 

MASK 

B I T9 

OVERFLOW 

04T.-1 

REF 

446 

-LAST 

138  4 

04,3  56-4- 

L-0  OO..CL 

0 . 

CCS 

A 

INTO  THE  NEXT  EBANK.... 

0412 

REF 

2 

LAST 

138  1 

04,3565 

1 3701 

0 

TC  F 

UPERROUT 

YES 

Q4T3- 

REF 

6- 

— LAST- 

13  8 6 

04,3566 

_3  7744 

1_ 

CA 

NFC  3 

NO-  CALCULATE  NUMRFR  OF 

0414 

REF 

8 

LAST 

13  8 6 

04, 3567 

6 1170 

0 

AD 

COMP  NUMB 

WORDS  TO  BE  STORED  MINUS  ONE 

0415 

REF 

793 

LAST 

13  8 6 

04, 3570 

54  154 

0 

ST0RLP71 

TS 

MPAC 

SAVE  NO.  OF  WORDS  REMAINING  MINUS  ONE 

♦ 
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0416 

0417 

REF 

REF 

Of  F 

467 
16 
2 Sfl 

LAST 
LAST 
1 AST 

13  8 6 
1386 
13-8  5 

04. 3571 

04. 3572 
_04,35-73 

50  000 
3 1176 
54  0 01 

1 

0 

1 

INDEX 

CA 

TS 

A 

JPBUFF  +2 

_L 

TAKE  NEXT  UP  DAT  F WORD  FROM 
UPBUFF  AND 
SAVF  IT  IN  L 

0419 

0420 

REF 

REF 

Off 

754 
12 
4 f-  P 

LAST 
LAST 
1 AST 

1386 
1386 
13  8 7 

04. 3574 

04.3575 
04.,  3.5-76 
E 3 , 1 400 
04,3577 
E3 , 1 706 

3 0154 
6 1167 
5 0-0  00- 

1 

0 

_J 

CA 

AD 

- INDE-X 

M PA  C 
U PTE  MP 
A 

CALCULATE  NEXT 
RECEIVING  ADDRESS 

0422 

0423 
04.74 

REP 

6 

_LASJ 

138  5 

2 3 ' 400 

1 

EB ANK  = 
LXCH 
EB ANK= 

1 400 
1400 
TEPHEM 

UPDATE  THE  REGISTER  BY  CONTENTS  OF  L 

0425 

REF 

795 

LAST 

1387 

04, 3600 

10  154 

0 

CCS 

MP^C 

ARE  THERE  ANY  WORDS  LEFT  TO  BE  STORED 

0426 

RFF 

2 

LAST 

1386 

04,3601 

1 3570 

1 

TCF 

STOP  LP71 

YES 

RFF 

4i 

X AS  T 

1385 

04*3  6j02 

1 3632- 

1 - 

TCF  - 

_UP  CUT 

NO-  THEN  EXIT  UPDATE  PROGRAM 

0428 

REF 

17 

LAST 

13  8 7 

04, 3603 

01173 

0 

ADUPBFM1  ADRES 

UPBUFF  -1 

SAME  AS  ADUPBUFF  BUT  LESS  l (DON'T  MOVE) 

0429 

REF 

5 

LAST 

138  7 

04, 3604 

1 3632 

1 

TCF 

UPOUT 

NO-  EXIT  UPDATE! HER E WHEN  COMPNUMB  = 3) 

R0430  VERB  72  BRANCH 


0431 

REF  61 

LAST 

1384 

04, 3605 

3 4753 

1 

UPEND72 

CAE 

B I T 1 

HAVE  AN  ODD  NO.  OF  COMPONENTS 

0432 

REF  9 

LAST 

1386 

04, 3606 

7 1170 

1 

MASK 

COMPNUMB 

BEFN  SENT  FOR  A V 72  UPDATE... 

043  3 

R-E-F  469 

L AST 

138  7 

04,3607 

L.O  .000. 

0 

CCS 

A 

0434 

04,3610 

1 3612 

0 

TCF 

+ 2 

YES 

0435 

REF  3 

LAST 

1386 

04,3611 

1 3701 

0 

TCF 

UPEPROUT 

ERROR-  SHOULD  BE  ODD  NO.  OF  COMPONENTS 

04-51- 

R£-F  _5 5 

LASJ 

13-8  3 

04,3  612 

4 4752 

1 

CS 

R I T 2 

0452 

REF  10 

LAST 

138  7 

04,3613 

6 1170 

0 

AD 

COMPNUMB 

0453 

REF  796 

LAST 

138  7 

04, 3614 

54  154 

0 

LDL00P72 

TS 

MPAC 

NOW  PERFORM  THE  UPDATE 

0454 

R F-F  -470 

-LAST 

13  8 7 _ 

04,3615 

50  OOQ 

1 

INDEX 

A 

0455 

REF  18 

LAST 

1387 

04, 3616 

31' 175 

0 

CAE 

UPBUFF  +1 

PICK  UP  NEXT  UP  DAT  F WORD 

0456 

REF  471 

LAST 

1387 

04,3617 

22  000 

1 

LXCH 

A 

0457 

REF  797 

— L AS-T 

13-8  7 

- 0.4  *3.62X1- 

10-  L54 

0 

CHS 

MPA-C 

S FT  POINTER  TO  ECADRIMUST  BE  CCS) 

0458 

REF  798 

LAST 

1387 

04, 3621 

54  154 

0 

TS 

MPAC 

0459 

REF  472 

LAST 

1387 

04,3622 

50  000 

1 

INDEX 

A 

04-6  a 

REF  19 

-EAST 

138-7  - 

- 04  * 3623 

-31* 175 

0 

XAE 

UPB-UFF  +1 

PICK  UP  NFXT  EC ADR  OF  REG  TO  BE  UPDATED 

0461 

REF  66 

LAST 

1386 

04,3624 

54  003 

0 

TS 

EBANK 

SET  EBANK 

0462 

REF  20 

LAST 

1386 

04, 3625 

7 43  57 

0 

MASK 

L0W8 

ISOLATE  RELATIVE  ADDRESS 

04-63 

RE-F  4-73— 

...  LAST 

13  8-7  - 

04*  3 6 26 

50  0 00 

1 

IMDFX 

A 

0464 

E3, 1400 

EBANK= 

1400 

0465 

04,3627 

2 3' 400 

1 

LXCH 

1400 

UPDATE  THE  REGISTER  BY  CONTENTS  OF  L 

04-66 

-REP.  . JZ_ 

. LAST 

1387 

- £3,1706 

FB ANK= 

TEPHFM 

046  7 

REF  799 

LAST 

1387 

04,3630 

10  1 54 

0 

CCS 

MPAC 

ARE  WE  THROUGH  THE  V72  UPDATE... 

0468 

REF  1 

04, 3631 

1 3614 

0 

TCF 

LDL0PP72 

NO 

R0469 

NORMAL  FINISH  OF  P27 

0470 

04, 3632 

UPOUT 

EQUALS 

0471 

REF  1 

04,3632 

0 31  06 

0 

TC 

I NTW AKEU 

RELEASE  GRAB  OF  ORBITAL  INTEGRATION 

0472 

-REE 3- 

-LAST 

13B  1 

. -04,363.3 

_3  1 * 1 T1L_ 

1 

+ 1 

CA  F 

JPOLCMOD 

RESTORE  PRIOR  P27  MODE 

0473 

REF  7 

LAST 

1382 

04,3634 

0 5314 

1 

TC 

NEWMODEX  +3 

04  74 

REF  260 

LAST 

1386 

04, 3635 

3 4755 

1 

CAF 

ZERO 
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0475 

REF 

11 

LAST 

1382 

04,3636 

54  332 

1 

TS 

DNLSTCOD 

0476 

REF 

1 

04, 3637 

0 3706 

0 

TC 

UPACTOFF 

TURN  OFF  'UPLINK  ACTIVITY'  LIGHT 

0477 

04, 3640 

0 0006 

1 

EXTEND 

KILL  GROUP  6. 

0478 

REF 

30 

LAST 

1307 

04, 3641 

3 4755 

1 

OCA 

NEGO 

| AST 

IT  8-5 

04,3-642 

52  765 

1 

_ DXCH 

-PHA  S£6 

0480 

REF 

43 

LAST 

726 

04,3643 

0 5472 

0 

TC 

FNDEXT 

EXTENDED  VERB  EXIT 

R0481 

VERB 

70  BRANCH 

0482 

04, 3644 

0 0006 

1 

UPEND70  EXTFNO 

V 70  DOES  THE  FOLLOWING  WITH  DP  DELTA 

04  83 

REF 

20 

LAST 

138  7 

04, 3645 

4 1175 

1 

DCS 

JPBUFF 

TIME  IN  UPBUFF 

0484 

RFF 

21 

1 AST 

13  8.8 

04,3646 

5 3 ' 2 05 

0 

DXCH 

UPBUFF  +8D 

0485 

REF 

2 

LAST 

138  5 

04, 3647 

0 3510 

0 

TC 

T IMEDIDL 

DECREMENT  AGC  CLOCK 

R PF 

4 

IAS  T 

138  7 

04, 3650 

0 3701 

1 

TC 

UPFRRnUT 

. ERRlO-R  WHILE  DFCPFMFNTING  Cl  OCK  — FX  IT 

0487 

REF 

8 

LAST 

1387 

F3, 1706 

EB ANK= 

TEPHFM 

-Q4-8  8 

—04, 3651 

0 0006. 

1 

EX  TEND 

0489 

REF 

22 

LAST 

1388 

04,3652 

4 1175 

1 

DCS 

UPBUFF 

COPY  OECREMENTEPS  for 

0490 

REF 

23 

LAST 

1388 

04, 3653 

53' 2 07 

1 

DXCH 

UPBUFF  +10D 

RESTART  PROTECTION 

_ . 0491-  - 

- 04,  3654. 

0 0006 

1 

EXTEND. 

0492 

REF 

24 

LAST 

1388 

04, 3655 

4 1175 

1 

DCS 

UPBUFF 

0493 

REF 

25 

LAST 

138  8 

04, 3656 

53*  211 

0 

DXCH 

UPBUFF  +12D 

0494 

REF 

1 20 

LAST 

1386 

04,  3657 

0 5353 

1 

TC 

PHASCHNG 

RESTART  PROTECT (GROUP  6) 

0495 

04,3660 

04026 

1 

OCT 

04026 

0496 

REF 

261 

LAST 

1387 

04,3661 

3 4755 

1 

C.AF 

ZERO 

0497 

04,3662 

22  007 

0 

ZL 

- _ 0498-- 

-R-E5 

_ 26  _ 

- -LAS  T 

13  3 a 

04,3663 

5 3' 2 07 

1 

DXCH 

UPBUFF  +10D 

DECREMENT  CSM  STATE  VECTOR  TIME 

0499 

REF 

5 

LAST 

512 

04, 3664 

21*571 

1 

DAS 

TETC  SM 

Q5HQ 

- RFF 

2£2 

—LAST 

18  8 8 

04 1 8 

8 47  55 

1 

-CAF 

Z ER-Q— 

0501 

04 i 3666 

22  007 

0 

ZL 

0502 

REF 

27 

LAST 

1388 

04,3667 

5 3'  2 1 1 

0 

DXCH 

UPBUFF  + 1 2D 

DECREMENT  LEM  STATE  VECTOR  TIMF 

— 0503 R-E-E 3 U1SJ 513 04,3670 21 '643  0 HAS  TETLEM 


0504 

REF 

263 

LAST 

138  8 

04,3671 

3 4755 

1 

CAF 

ZERO 

0505 

0 4,  3_6  72 

22  007 

0 

ZL 

0506 

REF 

28 

LAST 

1388 

04, 3673 

53* 1 75 

1 

DXCH 

UPBUFF 

0507 

REF 

9 

LAST 

13  8 8 

04, 3674 

2 1 ' 7 10 

1 

DAS 

TEPHEM  +1 

INCREMENT  TP  TEPHFM 

--  05D8 

— R-EF 

10 

1 AST 

13  8 8 

04,3675 

27' 706 

0 

ADS 

TEPHFM 

0509 

REF 

121 

LAST 

1388 

04, 3676 

0 5353 

1 

TC 

PHASCHNG 

RESTART  PROTECT (GROUP  6) 

05  IQ 

04,3677 

04026 

1 

PC  T 

04026 

0511 

REF 

29 

LAST 

13  8 8 

1 174 

£BANK= 

UPBU  FF 

GAP : 
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L UPCATE  PROGRAM 

0512  REF  6 LAST  1387  04,3700  0 3632  0 TC  UPOUT 


USER' S PAGE  NO.  11  F?  S4 


GO  TO  STANDARD  UPDATF  PROGRAM  EXIT 


R051 3 ERROR  SEQUENCE 

051- i RFf g LAST  13-8  5 04,3  704 — -0  4364  1 UPERRDUT  IC EALXON TURN  ON  frOPFRAT  FIR  ERROR  * .4  I GHT 

0515  REF  7 LAST  1389  04,3702  1 3632  1 TC F JPOUT  GO  TO  COMMON  UPDATE  PROGRAM  EXIT 


— 0546 R-F-F- 

0517  REF 

0518  REF 

A 05 19 

A0520 

A0521 

A0522 


—40 LAST  13  8 9- 

2 LAST  1388 
44  LAST  1388 


04.3703  0 4364  1 

04.3704  0 3706  0 

04.3705  0 5472  0 


+2 


TC E-ALXON 

TC  UPACTOFF 

TC  ENDEXT 


TURN  ON  1 0 PF R ATnR  FRRDR  ' I TGHT 

TURN  OFF'UPLINK  AC  T I V I T Y' L I GHT 
EXTENDED  VERB  EXIT 

(THE  PURPOSE  OF  UPFRROUT  +2  EXIT  IS 
TO  PROVIDE  AM  ERROR  EXIT  WHICH  DOES  MOT 
RESET  ANY  RESTART  GROUPS) 


RO 5? 3 : UP  ACTOF-F-:-  I-S-A-- ROUTINE  -TO  -TURN  -OFF-  UP L I NK-ACT I V_1T  Y I IGHT  ON  AL1 EXITS  FROM  UPDATE  PROGRAM ( P 27JU. 


0525 

05-27 

REF 

42 

LAST 

1363 

04, 3706 
_ 04,3707 

4 4751 

a 00  06 

1 

1 

UPACTOFF  CS 

EXTEND 

B 1 T 3 

TURN 

OFF  UPLINK  ACTIVITY  LIGHT 

0528 

0530 

REF 

REF 

36 

387 

LAST 

LAST 

136  1 
1384 

04.3710 

04.3711 

03  Oil 
0 0002 

1 

0 

WAND 

TC 

D SAL  MOUT 

Q 

(BIT 

3 OF  CHANNEL  11) 

GAp-: ASSEMBLE  REVISION-  069  OF-  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 
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RTB  OP  CODES 

USER'S  PAGE  NO.  1 

EO  S4 

0001 

0002 

-000-3 

REF  1 

22, 3 731 
10,2000 
10,3462 

BANK 

SFTLOC 

BANK 

22 

RTBCODES 

0004 

REF 

12 

LAST 

1248 

E 5 , 1 664 

EBANK=  XNB 

P F F 

1 

COUNT*  t $/P  TB _ _ 

R 0006 

LOAD 

TIME2  , 

TIME1  INTO  MPAC : 

0007 

10,3462  0 0006  1 

LOADTIME  EXTEND 

0008 

REF 

38 

LAST 

1386 

10,3463  3 0025  0 

DC A T I ME  2 

D 

9 

i a<;t 

i n i 4 

_10 » 3A64-  1 6054  1 

TCF  SIOAD? 

R0010 

CONVERT  THE 

SINGLE  PRECISION  2’ 

'S  COMPLEMENT  NUMBER  ARRIVING  IN  MPAC 

(SCALED  IN  HALF-REVOLUTIONS)  TO  A 

CLP 

rnvpi  pmfmt  niimrfr  sr.Ai  Fn  tn  rfvhi utt DNS. 

0016 

REF 

800 

LAST 

1387 

10,3465  10  154  0 

CDULOGIC  CCS  MPAC 

onj  7 

R FF 

? ft  4 

i a<;t  i rr ft 

1 Of  3 4-66 3 -47  55  1 

CAF  ZAfLQ 

0018 

10,3467  1 3472  1 

TCF  +3 

0019 

10,3470  13  471  1 

NOOP 

JOOZO R-EE Zb LAST  -1097 10,3 471 4 6736  0 CS HALE 


0021 

REF 

301 

LAST  1390 

10, 3472 

54  155 

1 

TS 

MPAC  +1 

0022— 

-AE-E- 

765 

— LAST  1390 

10, 3473 

3 4755 

3- 

CAF 

ZERO 

0023 

REF 

302 

LAST  1390 

10, 3474 

56  154 

1 

XCH 

MPAC 

0024 

10,3475 

0 0006 

1 

EXTEND 

-0025 

- --R-E-F 

27 

-LAST  1300 

10,3  476 

7 47  36 

0 

MP 

HALF 

0026 

REF 

8C3 

LAST  1390 

10,3477 

20  155 

1 

DAS 

MPAC 

0027 

REF 

61 

LAST  1276 

10, 3500 

1 6060 

0 

TCF 

DANZIG 

MODE  IS  ALREADY  AT  OOU B LE-PRE C I S I ON 

R0040 

READ  THE  PIPS  INTO  1 

MPAC  WITHOUT 

CHANGING  THEM: 

00-41 — 

1 0 ♦ 3-50  I 

0 0 0-04 

o 

R-FADPTPS  INHINT 

0042 

REF 

14 

LAST  1312 

10, 3502 

3 0037 

0 

CA 

PIPAX 

0043 

REF 

304 

LAST  1390 

10, 3503 

54  154 

0 

TS 

MPAC 

0-044 — 

—Rtf 

6..  1 AST  L312 

10,3504 

3 0040 

0 

CA 

P IPA  V 

0045 

REF 

305 

LAST  1390 

10, 3505 

54  157 

0 

TS 

MPAC  +3 

0046 

REF 

8 

LAST  1312 

10, 3506 

3 0041 

1 

CA 

PIPAZ 

0047 

—10,  3_507 

0 0003 

1 

RELINT 

0048 

REF 

8 06 

LAST  1390 

10,3510 

54  161 

0 

TS 

MPAC  +5 

0049 — 

REF- 

-266 

—LAST  139  0 

10,3511 

3 4755 

1 

CAF 

ZERO 

0050 

REF 

307 

LAST  1390 

10,3512 

54  155 

1 

TS 

MPAC  +1 

0051 

REF 

808 

LAST  1390 

10, 3513 

54  160 

1 

TS 

MPAC  +4 

0052  _ 

RFF 

009 

LAST  1390 

10,3514 

54  162 

0 

TS 

MPAC  +6 

0053 

REF 

3 

LAST  1072 

10, 3515 

1 6520 

1 

VECMODE  TCF 

V MOD  E 

R 0 0 54 

FORCE  TP  S-LGN  AGREE f 

l 

0055 

REF 

19 

LAST  1386 

10, 3516 

0 7256 

1 

SGN AGREE  TC 

T P AG  REE 
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L 

RTB 

OP  CODES 

USER'S  PAGE  NO.  2 E5  S4 

0056 

REF 

62 

LAST 

1390 

10, 3517 

1 6060 

0 

TCF 

0 ANZ  IG 

A NGJ  - F R r.  A ! FT)  T- NL  RF  V-D J UT  T D N1 R _ 

TO A S TNG1  F PRFf.TSTON  ?'S  COMPIFMFNT  AMTL.E- 

R0059 

SCALED 

IN  HALF-REVOLUTIONS. 

1 0 T 3 S 20 

0 3550 

1 

1ST  D2S 

TC 

1 T02  SUB 

0061 

REF 

267 

LAST 

1390 

10  j 3 521 

3 4755 

1 

CAF 

ZERO 

0062 

REF 

810 

LAST 

1390 

10, 3522 

54  155 

1 

TS 

MPAC  +1 

—0063 

REF 

5 

1 ART 

1042 

10. 35-23 

1 6057 

1 

TCF 

NEWMODE 

R0064 

DO  1ST02S  ON  A VECTOR  OF  ANGLES: 

0065 

REF 

2 

LAST 

139  1 

10, 3524 

0 3550 

1 

V1ST02S 

TC 

1T02SUB 

ANSWER  ARRIVES  IN  A AND  MPAC. 

S 1 1 

1 ART 

1 T9  1 

1 Ot  3525 

52  1-62 

0 

-D-XCH 

-MPAC  +5  . 

0067 

REF 

8 12 

LAST 

1391 

loi 3526 

52  155 

1 

dxch 

MPAC 

0068 

REF 

3 

LAST 

139  1 

10,3527 

0 3550 

1 

TC 

1 T02 SUB 

DQ6-9 

R FF 

JU  3 

LAST 

13  91 

10*  3.530 

54  156 

1 

. IS.  — 

.MPAC  +2  - 

0070 

REF 

814 

LAST 

139  1 

10, 3531 

52  160 

1 

DXCH 

MPAC  +3 

007 1 

R FF 

R 1 

L AST 

1 3 9 1 

10  * 3-532 

5 2 L5  5 

1 

DXCH.  . 

MPAC  - . . 

0072 

REF 

4 

LAST 

139  1 

10, 3533 

0 3550 

1 

TC 

1 TO? SUB 

0073 

REF 

816 

LAST 

139  1 

10, 3534 

54  155 

1 

TS 

MPAC  +1 

0074 

REF 

817 

LAST 

139  1 

10, 3535 

3 0161 

1 

CA 

MPAC  +5 

0075 

REF 

818 

LAST 

139  1 

10, 3536 

54  154 

0 

TS 

MPAC 

0076 

REF 

150 

LAST 

1382 

10, 3537 

3 4753 

1 

TPMODE 

CAF 

ONE 

MODE  IS  TP. 

0077 

REF 

6 

LAST 

139  1 

10, 3540 

1 6057 

1 

TCF 

NEWMODE 

R0078 

V1ST02S  FOR 

2 COMPONENT  VECTOR 

. USED  BY 

RR. 

00-79 

R iF 

5^ 

LAST 

439  1 

10*  3 541 

Q 3550 

1 

2 V 1 RTD2  R 

TC 

1 TCL2  SUB 

0080 

REF 

319 

LAST 

139  1 

10, 3542 

52  160 

1 

DXCH 

MPAC  +3 

0081 

REF 

820 

LAST 

139  1 

10,3543 

52  155 

1 

DXCH 

MPAC 

00-82 

REF 

6- 

-LASJ1 

13.9  1 

-J.  CL*  3 544 

Q 3550 

1 

TC 

1 T02 SUB 

0083 

REF 

259 

LAST 

1387 

10, 3545 

54  001 

1 

TS 

L 

0084 

REF 

821 

LAST 

139  1 

10,3546 

3 0157 

1 

CA 

MPAC  +3 

00-85 

-R-EF 

-3- 

- LAST 

139  0 

10, 3547 

I 6054 

1 

TCF 

SLPA C2 

R0086 

SUBROUTI NE 

TO  DO  DOUBL ING  AND 

l'S  TO  2' 

S CONVERSION: 

0087 

REF 

822 

LAST 

13  9 1 

10,3550 

52  155 

1 

i to 2 sub 

DXCH 

MPAC 

FINAL  MPAC  +1  UNSPECIFIED. 

0088 

10,3551 

20  001 

1 

DDOUBl 

0089 

JLEF 

474- 

LAST 

13  8 7 

1.0.,  3 55  2 

10  000 

0 

CCS 

A 

0090 

REF 

151 

LAST 

139  1 

10, 3553 

6 47  53 

1 

AD 

ONE 

0091 

10, 3554 

1 3556 

0 

TCF 

+ 2 

0092 

10j  3555 

4 0000 

0 

COM 

THIS  WAS  REVERSE  OF  MSU. 

0093 

REF 

823 

LAST 

139  1 

10, 3556 

54  154 

0 

TS 

MPAC 

AND  SKIP  ON  OVERFLOW. 

— GAP: 
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0094 

REF 

388 

LAST 

1389 

10,3557 

0 0002 

0 

TC 

0 

4 7*^ 

£<;  J 

1 ^ q ] 

10, 3560 

5 0 0 00 

1 

INDFX 

.A 

0096 

REF 

5 

LAST 

1097 

10,3561 

3 4734 

0 

CAF 

LIMITS 

0097 

REF 

824 

LAST 

139  1 

10, 3562 

26  154 

0 

ADS 

M P AC 

0098 — 

R-EF 

3 8-9- 

LAST 

1392 

LO-,-3  56  3 

-0  0002 

_Q 

Tf. 

_Q 

USER'S  PAGE  NO.  3 E5  S4 
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P0099 

0102 

REF  1 

REF  1 4 ft 

SLBROUT I NE 

1 AQT  1 2 5 Q 

TO  INCREMENT  CDUS 
10,3564  3 3577  1 

10.35A.5_  .5.4  13  0.1 

INCRCDUS 

CAF 

TS. 

LOCTHFTA 

BUF  _ _ 

PLACE  ADRES(THETA)  IN  BUF. 

0104 

0105 

REF  825 
REF  1 

LAST 

1392 

10. 3566 

10.3567 

30  154  1 
0 3600  1 

CAE 

TC 

MP4C 
C DU  I NC 

INCREMENT  IN  IS  COMPL. 

0106 

0107 

REF  149 
REF  326 
R FF  7 

LAST 
LAST 
1 A S3 

1393 

1393 

1393 

10.3570 

10. 3571 
1 0 , 3 5 72 

24  130  0 
30  157  1 
0 36011  1 

INCR 

CAE 

TC 

BUF 

MPAC  +3 
C.DJ  INC 

0109 

REF  150 

LAST 

1393 

10,3573 

24  130  0 

INCR 

BUF 

0110 

R-F-F  8 2 7 

1 AST 

139  3 

10.,  3 574 

30  L61  1 

CAE 

MPAC  +5 

0111 

REF  3 

LAST 

1393 

10,3575 

0 3600  1 

TC 

CDUI NC 

p FF  i 

10,3  57-6 

1 351-5-  1 

TX-F 

VFC  ^ npF 

0113 

REF  23 

LAST 

1307 

10, 3577 

00321  1 

LOCTHETA 

ADRES 

THET AD 

R01 14 

THE  FOLLOWING  ROUTINE  INCREMENTS  IN  2S 

COMPLEMENT  THE  REGISTFR  WHOSE  ADDRESS  IS  IN  BUF  BY  THE  IS  COMPL. 

R0116 

QUANT  I TY 

FOUND 

IN  TEM2.  THIS 

MAY  8 E USED 

TO  INCREMENT 

DESIRED  IMU  AND 

OPTICS  CDU  ANGLFS  OR  ANY  OTHER  2S  COMPL. 

- - R01 IB 

(+0  UMFQUA1  in  -n ) 

QUANTITY. 

MAY  8 E CALLED  BY  BANKCALL/SWCAL 1 . 

0119 

REF  28 

LAST 

1255 

10,3600 

54  142  1 

CDUINC 

TS 

TEM2 

IS  COMPL. QUANT.  ARRIVES  IN  ACC.  STORE  IT 

- Q12Q 

R-E-E  151— 

1 AST 

139  3 

_LQ,J3  601 

50  130  0 

INDEX 

BUF 

0121 

10,3602 

1 0 000  0 

CCS 

0 

CHANGE  2S  COMPL.  ANGLE ( IN  BUF) INTO  IS 

0122 

REF  152 

LAST 

139  1 

10, 3603 

6 4753  1 

AD 

ONE 

XL23^ 

1 0 , 3 604 

1 3610  1 

ICE 

+ 4 

0124 

REF  153 

LAST 

1393 

10, 3605 

6 4753  1 

AD 

ONE 

0125 

REF  154 

LAST 

139  3 

10, 3606 

6 4753  1 

AD 

ONE 

OVERFLOW  HERE  IF  2S  COMPL.  IS  180  DEG. 

01-2-6 

1 0,3-607 

4 noon  n 

COM 

0127 

REF  29 

LAST 

1393 

10,3610 

6 0142  0 

AD 

TEM2 

SULT  MOVES  FROM  2ND  TO  3D  QUAD. (OR  BACK) 

0129 

-REF  47-6 

EAST 

1392 

10,3611 

10  000  0 

CCS 

4 

BACK  TO  2S  COMPL . 

0130 

REF  155 

LAST 

1393 

10,3612 

6 4753  1 

AD 

ONE 

0131 

10,3613 

1 3615  1 

TC  F 

+ 2 

-01-32- 

. 10  ,3  614 

4 ODOQ  0 

COM 

0133 

REF  30 

LAST 

1393 

10,3615 

54  142  1 

TS 

T EM  2 

STORE  14BIT  QUANTITY  WITH  PRESENT  SIGN 

0134 

10, 3616 

l 3622  0 

TC  F 

+ 4 

0135 

—REF  437- 

L AS  T 

13  9 3 

-10,3  617 

50  000  1 

INDFX 

A 

SIGN. 

0137 

REF  6 

LAST 

1392 

10,3620 

3 4734  0 

CAF 

LIMITS 

FIX  IT, BY  ADDING  IN  37777  OR  40000 

0138 

REF  31 

LAST 

1393 

10, 3621 

6 0142  0 

AD 

TEM2 

0139 

REF  152 

LAST 

1393 

10,3622 

50  130  0 

INDEX 

BUF 

0140 

10, 3623 

54  000  0 

TS 

0 

STORE  NEW  ANGLE  IN  2S  COMPLEMENT. 

01-4-1— 

—REF  3-9.0- „ 

-LAST. 

139_2 

-LO  ,3624 

0 0002  0 

TC  __ 

. Q _ 
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PO142  RTB  TO  TORQUE  GYROS,  EXCEPT  FOR  THE  CALL  TO  IMUSTALL.  ECADR  OF  COMMANDS  ARRIVES  IN  XI. 

OlVi  REF  57  LAST  1215 10,-3625 50  120-1  PULSFIMU  INDEX  EIXLOC AJ1DRFSS  OF  GYRO  COMMANDS  SHOULD- -BE  IN  XI 

0145  REF  64  LAST  1265  10,3626  3 0046  0 CA  XI 

0146  REF  3 C 7 LAST  1383  10,3627  0 4616  1 TC  BANKCAL! 

0147  REF  7 LAST  966  10,3630  17276  1 CADP  IMUPULSE_ 

0148  REF  63  LAST  1391  10,3631  1 6060  0 TCF  DANZIG 
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P0149  EACH  ROUTINE  TAKES  A 3X3  MATRIX  STORED  IN  DOUBLE  PRECISION  IN  A FIXED  AREA  OF  ERASABLE  MEMORY  AND  REPLACES  TT 

R015I  WITH  THE  TRANSPOSE  MATRIX.  TRANSP1  USES  LOCATIONS  XNB+0,+1  THROUGH  XNB+16D,  17D  AND  TRANSP2  USES  LOCATIONS 

RQ153  YNPl+n,+l  through  XNR1+160.  1JD.  FACH  MATRIX  IS  SXORED  .BY  RUHSj 


0154 

REF 

13 

LAST 

1390 

10. 3632 

10.3633  - 

02664 

0-3467 

1 

1 

XNBEB 
XNB1 EB 

ECADR 
Ff.  APR 

X MB 
X NR  1 

0156 

REF 

14 

LAST 

139  5 

E 5 1 1664 

EB  ANK  = 

XNB 

0164 

REF 

1 

10,3634 

3 3632 

0 

TRANSP1 

CAF 

XNBEB 

0165 

REF 

67 

LAST 

1387 

10,3635 

54  003 

0 

TS 

EBANK 

1_5 

1 AST 

13  0-5 

inf  363^ 

53' 667 

0 

DXCH 

X-NB_  +2- . 

0167 

REF 

16 

LAST 

1395 

10,  3637 

5 3 ' 6 73 

0 

DXCH 

XNB  +6 

0168 

REF 

17 

LAST 

1395 

10,3640 

53 ' 66  7 

0 

DXCH 

XNB  +2 

0169 

0170 
017J 

REF 

REF 

RFF 

18 

19 

20 

LAST 

LAST 

_LAST 

1395 

1395 

13-9-5 

10. 3641 

10. 3642 

10.3643 

5 3 ' 6 7 1 
5 3 ' 701 
_5  3_'  6 7 1 

1 

1 

1 - - 

DXCH 

DXCH 

DXCH 

XNB  +4 
XNB  +12D 
XNB  +4 

0172 

REF 

21 

LAST 

1395 

10, 3644 

5 3 ' 6 77 

1 

DXCH 

XNB  + 10D 

. Q4. 73  _ 

-RE-F 

2-2 

LAST 

-13-9-5- 

1 0,3645  - 

53' 703 

0 

DXCH 

XNB  +1 40 

0174 

REF 

23 

LAST 

1395 

10, 3646 

53*677 

1 

DXCH 

XNB  +10D 

0175 

REF 

64 

LAST 

1394 

10, 3647 

1 6060 

0 

TCF 

DANZ  IG 

0176 

REF 

2 

LAST 

1395 

E7, 1467 

EB  ANK  = 

XNB1 

0177 

0178 
— 01-&0 

REF 

REF 

-R-i-F- 

1 

68 

3 

LAST  1395 

1 AST  13 q 5 

10. 3650 

10.3651 

10. 3652 

3 3633 
54  003 
53*472 

1 

0 

Q 

TRANSP2  CAF 
TS 

DXCH 

XNB1 FB 
EBANK 
XNB1  +? 

0181 

REF 

4 

LAST 

1395 

10, 3653 

5 3 ' 4 7 6 

1 

DXCH 

XNB1 

+ 6 

0182 

REF 

5 

LAST 

1395 

10,3654 

5 3 ' 4 7 2 

0 

DXCH 

XNB  1 

+2 

0183 

REF 

6 

LAST 

1395 

10,3655 

5 3' 474 

0 

DXCH 

XNB1 

+4 

01  84 

REF 

7 

LAST 

1395 

10,3656 

53' 504 

0 

DXCH 

XNe  1 

+ 1 2 D 

0L85 

- R-F-f 

8 

LASJ 

1395 

10, 3657 

53*474 

0 

DXCH 

XNB1 

+4 

0186 

REF 

9 

LAST 

139  5 

10, 3660 

53' 502 

0 

DXCH 

XNB1 

+ iod 

-01R7  _ 

-R-F-F 

10- 

L-AST 

13  9-5 

10,3661 

53*  506 

_L 

DXCH 

XNB  1 

+ 140 

0188 

REF 

11 

LAST 

139  5 

10, 3662 

53*502 

0 

DXCH 

XNB1 

+ 1 0 D 

0191 

REF 

65 

LAST 

139  5 

10, 3663 

1 6060 

0 

TCF 

DANZ  IG 
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P0192  THE  SUBROUTINE  SIGNMPAC  SETS  C(MPAC,  MPAC  +1)  TO  SICN(MPAC). 

R0I93  FOR  THIS,  ONLY  THE  CONTENTS  OF  MPAC  ARE  EXAMINED.  ALSO  +0  YIELDS  POSMAX  AND  -0  YIELDS  NEGMAX. 


R0195  ENTRY  MAY  BE  BY  EITHER  OF  THE  FOLLOWING: 

-R0194 1. LIMIT  THE  SIZE  Of  MPAC  ON  IN TERPRETIVE  OVERFLOW: 

R0197  ENTRY:  BOVB 

R0198  SIGNMPAC 


R 0 1 99  2.  GENERATE  IN  MPAC  THE  SIGNUM  FUNCTION  OF  MPAC: 

R 02  00  ENTRY:  RTB 

R 02-64 S.-LGNMP.AC 


R0202  IN  EITHER  CASE,  RETURN  IS  TO  THE  NEXT  INTERPRETIVE  INSTRUCTION  IN  THE  CALLING  SEQUENCE. 


0204 

10,3664 

0 0006 

1 

SIGNMPAC 

EXTEND 

0205 

REF  2 

LAST 

454 

10, 3665 

3 4733 

1 

OCA 

DPOS  MAX 

02-06 

REF  328 

last 

1393 

10, 3666 

92  15-5 

X 

OXCH 

MPAC 

0207 

REF  478 

LAST 

13  9 3 

10,3667 

10  000 

0 

CCS 

A 

0208 

REF  268 

LAST 

139  1 

10, 3670 

3 4755 

1 

DPMODE 

CAF 

ZERO  SETS  MPAC  +2  TO  ZERO  IN  THE  PROCESS 

0209 

REF  4 

LAST 

1391  10.3671 

1 6056 

0- 

TCF 

SL3AD2  +2 

0210 

10,3672 

1 3673 

1 

TCF 

+ 1 

0211 

10,3673 

0 0006 

1 

EXTEND 

- --  021-2 

REE-  -3 

LAS_T 

1396 

10,3674 

4 4133 

-0- 

DCS 

DPOS  MAX 

0213 

REF  5 

LAST 

1396 

10, 3675 

1 6054 

1 

TCF 

SLDAD2 

R.021^  - 

rt  e 

E1P  nan  F -M-DR  MUNI  T IS  1 IKF  I NT.FRPP.F  T I VF  INSTRUCT  IDN  UNIT.  FXCFPT  THAT  IT  CAN  RF  DFPE! 

NDED  ON  NnT  TO  Rl  OW 

R 02  1 6 

UP  WHEN 

THE  VECTOR 

BEING  UNITIZEO  IS 

VERY 

SMALL  • 

— IT  WILL  BLOW  UP  WHFN  ALL  COMPONENTS  ARE 

ZERO.  IF  NORMUNIT 

R 02  1 8 

IS  USED 

AND  THE  UPPER  ORDER  HALVES  OF  ALL 

COMPONENTS  ARE  ZERO,  THE  MAGNITUDE  RETURNED  IN  36D  WILL  BE  TOO  LARGE 

R 022  0 

. -ft-Y  A - FAC TOR  OF  2(13)  AND  THF. 

SQUARED 

MAGNITUDE  RETURNED  AT  3 4D  WILL  BE  TOO  BIG  RY  A FACTOR 

OF  2(26). 

0222 

REF  156 

LAST 

1393 

10,3676 

3 4753 

1 

NORMUNX 1 

CAF 

ONE 

02  2-2-1 

£-EF  11 

-LAST 

9 11 

10,3677 

l 3701 

0 

TCE 

NORM  UNI T +1 

02222 

REF  269 

LAST 

1396 

10,3700 

3 4755 

1 

NORMUNIT 

CAF 

ZERO 

02223 

REF  58 

LAST 

1394 

10,  3701 

6 0120 

1 

AD 

F I X L CC 

02224 

REF  329  - 

LAS  I 

13-9-6 

10,3  702 

- 54  156 

1 

TS 

-MPAC  +2 

02225 

REF  308 

LAST 

1394 

10,3703 

0 4616 

1 

TC 

BANKCALL  GET  SIGN  AGREEMENT 

IN  ALL  COMPONENTS 

0223 

REF  3 

LAST 

106  5 

10,3704 

01010 

1 

CADR 

VECA  GPEE 

0224 

REF  8 3J3._ 

L AST 

139  6 

-LO, 3205 

10  154 

0 

CCS 

MPAC 

0225 

REF  1 

10,3706 

1 3742 

1 

TCF 

NOSH  IFT 

0226 

10, 3707 

1 3711 

1 

TCF 

+ 2 

0227 

RFF 2_ 

LAST  . 

139  6 _ 

. 10,3  710 

1 3742 

1 

TCF 

NOSHIFT 

0228 

REF  831 

LAST 

1396 

10,3711 

10  157 

0 

CCS 

MPAC  +3 

0229 

REF  3 

LAST 

1396 

10,3712 

1 3742 

1 

TCF 

NOSHIFT 

023.0 

-LO,  3713 

1 3715 

0 

TCF 

+ 2 

0231 

REF  4 

LAST 

1396 

10,3714 

1 3742 

1 

TCF 

NOSHIFT 

0232 

REF  832 

LAST 

1396 

10,3715 

10  161 

0 

CCS 

MPAC  +5 

- 023 3_ 

— REE 5 

LASX 

13  9-6 

10,3716 

1 -3742 

1 

TCF 

NOSHIFT 

02  34 

10,3717 

1 3721 

1 

TCF 

+ 2 

0235 

REF  6 

LAST 

1396 

10,3720 

1 3742 

1 

TCF 

NOSH  IFT 
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0236 

REF 

833 

LAST 

1396 

10, 3721 

3 0155 

0 

CA 

MPAC  +1 

SHIFT  ALL 

COMPONENTS  LEFT  13 

0237 

10,3722 

0 0006 

1 

EXTEND 

LAST 

1 V>  4 

1 3723 

7 47  36 

0 

M.P 

B IT14 ... 

0239 

REF 

834 

LAST 

139  7 

loi 3724 

20  155 

1 

DAS 

MPAC 

DAS  GAINS 

A LITTLE  ACCURACY 

0240 

REF 

835 

LAST 

1397 

10,3725 

3 0160 

0 

CA 

MPAC  +4 

10,3226 

Ol  0006- 

1_ 

EXTEND. 

0241  1 

REF 

87 

LAST 

1397 

10, 3727 

7 4736 

0 

MP 

BIT14 

02412 

REF 

836 

LAST 

1397 

10,3730 

20  160 

1 

DAS 

MPAC  +3 

n?4i  3 

RFF 

337 

-LAST 

130  7 

1 0, 3731 

3 016-2 

_ CA 

MPAC_  +6 

02414 

10,3732 

0 00  06 

1 

EXTEND 

0241  5 

REF 

88 

LAST 

1397 

10,3733 

7 4736 

0 

MP 

B I T 1 4 

Q2A1  6 

R FF 

33ft 

LAS  T 

139  7 

1 0. 3734 

20  162 

0 

DAS 

MPAC  +5 

02417 

REF 

2 

LAST 

1065 

10, 3735 

3 4761 

0 

CAF 

THI R TEEN 

0241  8 

REF 

339 

LAST 

1397 

10, 3736 

50  156 

0 

INDEX 

MPAC  +2 

_ 0241 9 

ILL  3 73  7 

54  045 

1 

TS 

37D 

0242 

RFF 

56 

LAST 

1382 

10,3740 

0 4635 

0 

OFF  TUN  I T TC 

POST  JUMP 

0243 

REF 

3 

LAST 

1008 

10,3741 

01024 

0 

CADR 

UNIT  +1 

SKIP  THE  " 

TC  VECAGREE"  DONE  AT  UNIT 

02431 

REF 

270 

LAST 

1396 

10, 3742 

3 4755 

1 

NOSHIFT  CAF 

ZERO 

07-432 

_RFF 

1 

10.3743 

1 3 7 36 

TCF 

OF  F T UNI T -2 

RQ  3^00 

RT  R VFFFFMAr, 

E ORE  F S— AOR  FF  MF.MT  QF  V FETOR  TAL  MPAf 

0301 

REF 

309 

LAST 

1396 

10, 3744 

0 46  16 

1 

VECSGNAG  TC 

BANKCALL 

- 0 JO-2 

RSF 

A 

LAST 

139  6 

10,-3  745 

01010 

1 

CADR 

O/ECACFFE 

0303 

REF 

66 

LAST 

1395 

10,3746 

0 6060 

1 

TC 

DANZ  IG 

NO-OP-  SKI  P-P  E-R  - . 0 7 0 *** — 


GAP: 

L 


R0001 

R0002 


R0003 
R 0004 

ROO  06- 

R0008 

R0009 

ROO  10 

R0011 
R0012 
— ROO  1-3- 
R0014 
ROO  15 

ROO-L6- 

R0018 

R0020 

R002-L- 

R0023 

R0025 

ROQ-2-6- 

R0028 

ROO 30 

R0031 

A-0032 

A0033 

R0034— 

A0035 

A0O-36- 

A0037 

A0038 


R 0039 

RO04Q 

R0041 


R 004-2- 

R0043 

-R-0-0-44- 

R0045 

R0046 
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PROGRAM  NAMES:  (1)  T 6 JOB CHK  MOO.  NO.  5 OCTOBER  2,  1967 

(2)  00T6RUPT 


MODIFICATION  BY:  LOWELL  G HULL  ( A . C . E L ECTRON I CS ) 

THESE  PROGRAMS  ENABLE  THE  LM  DAP  TO  CONTROL  THF  THRUST  TIMES  OF  THE  REACTION  CONTROL  SYSTEM  JETS  BY  USING  TIME6. 
SINCE  THE  LM  r>Ap  MAINTAINS  IXCLUSIVF  CONTROL  OVER  TIMF6  AND  ITS  INTFRRUPTS,  THE  FOLLOWING  CONVENTIONS  HAVE  BEEN 
ESTABLISHED  AND  MUST  NOT  BE  TAMPERED  WITH: 

1.  NO  NUMBER  IS  EVER  PLACED  INTO  TIME6  EXCEPT  BY  LM  DAP. 

2.  Nn  PROGRAM  OTHER  THAN  IM  DAP  ENABLES,  THET IME6_  COUTLLER-. 

3.  TO  USE  TIME6,  THE  FOLLOWING  SEQUENCE  IS  ALWAYS  F MPLOYED : 

A.  A POSITIVE  ( NON-ZERO)  NUMBER  IS  STORED  IN  TIME6. 

R,  THF  T1MF6  CIOCK  I S_ENABJ-EO . 

C.  TIME6  IS  INTERROGATED  AND  IS: 

I.  NEVER  FOUND  NEGAT I VE ( NON-ZER 0)  OR  +0. 

II.  SOMFTIMFS  FOUND  POSIT! VF( BFTWFFN  1 AND  240 D ) INDICATING  THAT  IT  IS  ACTIVE. 

III.  SOMETIMES  FOUND  POSMAX  INDICATING  THAT  IT  IS  INACTIVE  AND  NOT  ENABLED. 

IV.  SOMETIMES  FOUND  NEGATIVE  ZERO  INDICATING  THAT: 

_ A.  A T6RUPT  IS  ABOUT  TO  OCCUR  AT  THE  NEXT  D 1 NC , OR 

B.  A T6RUPT  IS  WAITING  IN  THF  PRIORITY  CHAIN,  OR 

C.  A T6RUPT  IS  IN  PROCESS  NOW. 

4)  All  PROGRAMS  WHICH  nPFRATF  IN  FTTHFR  INTERRUPT  MODE  OR  WITH  INTERRUPT  INHIBITED  MUST  CALL  T6J0BCHK 
EVERY  5 MILLISECONDS  TO  PROCESS  A POSSIBLE  WAITING  T6RUPT  BEFORE  IT  CAN  BE  HONORED  BY  THE  HARDWARE. 

— — PROGRAM-  JTLST,  IM  Q,R-AXE  S ,-  HAN  DLJE  S THE  INPUT  LI  ST.  ) 

T6J0BCHK  CALLING  SEQUENCE: 


4. T-C T6JCBCHK 

L +1  (RETURN) 


— DOT-6R-UPT  CALLING-  SEQUENCE  : 


OXCH  ARUPT  T6RUPT  LEAD  IN  AT  LOCATION  4004. 

FXTFND 

DC  A T6ADP 
DTCB 


SUBROUTINES  CALLED:  D0T6RUPT  CALLS  T6J0BCHK. 

HGR-MAL  EXIT  -MQOE-S-:  T-6J0aCBK— RETURNS  TO  L +1. 

D0T6RUPT  TRANSFERS  CONTROL  TO  RESUME. 

— ALARM /ABORT  MODE-S-i-NONE. - 

INPUT:  TIME6  N XT  6 ADR  OUTPUT:  TIMF6  NXT6ADR  CHANNEL  5 

TftNEXT T6NFXT  +1 T6NFXT  T6NEXT  +1  CHANNEL  6 

T6FURTHA  T 6 F UR  T HA  +1  T6FURTHA  T6FURTHA  +1  BIT15/CH13 

DEBRIS:  T6 JOB CHK  CLOBBERS  A.  DOT 6 RUP T CLOBBERS  NOTHING. 


0047 


5 744 


BLOCK  02 
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L 

T6-RUPT 

PROGRAMS 

USER*  S PAGE  NO.  2 EO  S4 

0055 

0056 

REF 

1 

17,2000 
17, 2000 
17,2000 

BANK 
SETLCIC 
BANK  ... 

17 

DAPS2 

0058 

0059 

REF 

REF 

2 

1 

LAST  234 

F6, 1464 

EBANK= 

COUNT* 

T6NF XT 
ST/DAPT6 

0060 
0061 
00  6? 

REF 

REF 

BFf 

1 

391 

?0 

LAST  1393 
1 AST  11  1 n 

17. 2000 

17.2001 
1 7.  2002 

10  031  1 
0 0002  0 
0 5677  1 

T6J0BCHK 

CCS 

TC 

TC 

T I ME  6 
Q 

CCS  HOLE 

CHECK  TIME6  FOR  WAITING  T6RUPT: 
NONE:  CLOCK  COUTING  DOWN. 

0063 

R0064 

REF  1 

CONTROL 

17, 2003 
PASSES  TO  T 6 JOB  ONLY 

0 2003  0 

WHEN  C( T IME6)  = -0 

TC  T6JCRCHK  +3 

(I.E.  WHEN  A T6RUPT 

MUST  BE  PROCESSED). 

0066 

0067 

REF 

31 

LAST  1375 

17.2004 

17. 2005 

3 4733  1 
0 0006  1 

T6J0B 

CAF 

EXTEND 

POSMAX 

DISABLE  CLOCK:  NEEDED  SINCE  RUPT  OCCURS 
l DINC  AFTER  T6  = 77777.  FOR  625  MUSECS 

0068  REF  21  LAST  1330  17,7  006 03  013  0 WAND C HA N 1 3 MUST  NOT  HAVE  T6  = +0  WITH  FN ABLE  SET 


0069 

0070 

REF 

32 

LAST 

1399 

17,2007 
17 T ?01 0 

3 4733  1 
? 2 007  0 

CA 

Z! 

POSMAX 

0071 

REF 

1 

17,201 l 

5 3 1 467  1 

DXCH 

T6FURTHA 

0072 

REF 

3 

LAST 

1399 

17, 2012 

5 3 ' 465  0 

DXCH 

T6NE  XT 

0073 

rff 

2 

1 AST  . 

234 

17,2033 

23*463  1 

LXCH 

NXT6 ADR 

0074 

REF 

2 

LAST 

1399 

17, 2014 

54  031  1 

TS 

T I ME  6 

QO_76- 

. -RTF 

:7 

I AST- 

126  3 

17,2-0-15 

6 7724  1 

AD 

PR  1337  _ _ _ _ . 

0076 

REF 

479 

LAST 

1396 

17, 2016 

54  000  0 

TS 

A 

0077 

REF 

1 

17, 2017 

1 2023  0 

TC  F 

ENABLET6 

0-07-8 

REF 

23_ 

—LAST 

1399 

17 , 2Q2XL 

3 4733  1 

CA 

POSMAX 

0079 

REF 

3 

LAST 

1399 

17,2021 

54  031  1 

TS 

T I M E 6 

0080 

REF 

1 

17, 2022 

1 2034  0 

TC  F 

G0CH56 

0081 

-RF-F 

5 l 

— L AS  T 

- 13  7 6 - 

1 7 , 202  3 - 

3 .4735  1 

ENABLET6 

CA 

_B  I T 1 5 

0082 

17,2024 

0 0006  1 

EXTEND 

0083 

REF 

22 

LAST 

1399 

17,  2025 

05  013  0 

WDR 

CHAN13 

0084- 

_ REF 

4 

L AST 

1399 

17 , 2 026 

3 1464  0 

CA 

T LNE.XT 

0085 

REF 

8 

LAST 

1399 

17,2027 

6 7724  1 

AD 

PR  1037 

0086 

REF 

480 

LAST 

1399 

17, 2030 

54  000  0 

TS 

A 

00-8-7 

REF- 

2_ 

L AST 13  99 

17,2031 

1 3034  0 

TC  F 

G0CH56 

0088 

REF 

34 

LAST 

1399 

17,2032 

3 4733  1 

CA 

POSMAX 

0089 

REF 

5 

LAST 

1399 

17, 2033 

55*464  1 

TS 

T6NE  XT 

_ 00  9 C 

- — REE 

? 6TL 

LAST 

13  9 1 

17,2.034 

50  001  0 

G0CH56 

INDEX 

L 

0091 

REF 

1 

17,2035 

1 5744  1 

TC  F 

WR1TFP  -1 

0093 

0094 

0095 

REF 

REF 

1 

14 

LAST 

913 

4000 
5 744 

— E6, 1633— 

SETLOC 

BANK 

EBANK= 

F E T A G9 
C DUX  D 

0096 

REF 

1 

COUNT* 

$ f / D AP  T6 

— -009-7 

ref 

4 

-LAST 

-2  34  _ 

3 1470  0 

CA 

NFXT  P 

0098 

5 745 

0 0006  1 WRITEP 

EXTEND 

0099 

RFF 

2 

LAST 

227 

5746 

01  006  0 

WRITE 

CHAN6 
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L T6-RUPT  PROGRAMS 


USER'S  PAGE  NO.  3 E6  S4 


OIOO 

REF 

392 

LAST 

1399 

5 747 

0 0002 

0 

TC 

0 

5 7 5 0 

3 1-4  71 

_1 

CA  

MF-X I U . - - 

0102 

REF 

261 

LAST 

1399 

5751 

54  001 

1 WRITEU 

TS 

L 

0103 

REF 

1 

5752 

4 5765 

1 

CS 

0031 40CT 

m 04 

5 753 

0 Q.0  06  - 

1 

EXTEND 

0105 

REF 

3 

LAST 

102  1 

5754 

02  005 

0 

RAND 

CHAN5 

0106 

REF 

262 

LAST 

140  0 

5755 

6 0001 

0 

AD 

L 

01  07 

5 756 

0 00  06 

1 

EXTEND 

0108 

REF 

4 

LAST 

140  0 

5757 

01  005 

0 

WRITE 

CHAN5 

0109 

REF 

393 

LAST 

140  0 

5760 

0 0002 

0 

TC 

0 

0110 
0111 
01  ]_? 

REF 

REF 

REF 

1 

263 

2- 

LAST 

LAST 

140  0 
1400 

5761 

5762 
5 763 

3 1472  1 
54  001  1 
3 5765  0 

WRI TEV 

CA 

TS 

CA 

NFXTV 

L 

0031 4DCT 

0113 

0114 

5764 

5765 

1 5753  1 
00314  1 

003140CT 

TC  F 
OCT 

— 5D 
00314 

0115 

17,2036 

BANK 

17 

0116 

REF 

2 

LAST 

1399 

17,2000 

SETLOC 

DAPS2 

- .04  1 7 

1 7,-2  03  6 

BANK 

0118 

REF 

6 

LAST 

1399 

E6, 1464 

EBANK= 

T 6NF XT 

0419 

R-F  F 

2 

LAST 

139 9 - TO 

1399 : _ 

30  .30* 

COUNT* 

$t/D APT6 

0120 

REF 

ii 

LAST 

133  3 

17,2036 

22  016  0 

D0T6RUP  T 

LXCH 

BANK  PUPT 

( INTERRUPT  LEAD  I NS 

CONTINUED) 

04  24 

17,  2037 

o 00.06-  i 

EXTEND 

0122 

REF 

10 

LAST 

13  3 3 

17, 2040 

22  012  1 

gxcH 

QRUP  T 

042  3 

2 

4 AST 

139  9 

1 7,2  04  4 

0 2000  0 

TC 

T6J-QB£Hie 

CALL  Tft.lflRCHK  . 

0124 

REF 

25 

LAST 

1333 

17, 2042 

1 5270  0 

TC  F 

RESUME 

END  TIME6  INTERRUPT 

PROCESSOR . 
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0001 

0002 

0007 

REF 

3 

LAST 

58 

20,2123 

20,2000 

20,2123  - - 

8ANK 

SETLOC 

____  BANK 

20 

DAPS3 

0004 

REF 

R-ILE 

15 

1 

LAST 

1399 

E6, 1633 

EB ANK= 
GOUNXA- 

CDUXD 

Ft/DAPIF 

R0006 

MOD 

0 

DATE  11/15/66 

BY  GEORGE  W, 

CHERRY 

R0007  MOD  1 


1/23/67  MODIFICATION  BY  PETER  ADLER 


R-QQ-Qg FUNCTIONAL  DES-CR4  P-T  ION 

R 0009  HEREIN  ARE  A COLLECTION  OF  SUBROUTINES  WHICH  ALLOW  MISSION  CONTROL  PROGRAMS  TO  CONTROL  THE  MODE 

R0011 AND  INTERFACE  WITH  THE  DAE-. 

P.  00 12  CALLING  SEQUENCES 


R0013 
R0014 
RO  01 5- 

IN  INTERRUPT  OR  WITH  INTERRUPT  INHIBITED 
TC  I BNKCALL 

___  _ FCADR  RCUTINL  __  _ __ 

R0016 
R 00-1 7 

IN  A JOB 

WITHOUT  INTERRUPT  INHIBITED 
I NHINT  

R0018 
R0019 
R 002-0- 

TC  IBNKCALL 

FCADR  ROUTINE 

REL I NT  - 

R 002  1 

OUTPUT 

R0022 

SEE  INDIVIDUAL  ROUTINES  BELOW 

-R-002  3 

BE-&JU-5 

R0024 


A,L,  AND  SOMETIMES  MDUETEMP 


ODE 


NOT  IN  PULSES  MODE 
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R0087  SUBROUTINE  NAMES: 

R0088  SETMAXDB,  SETMINDB,  RESTORDB,  PFLITEDB 


R 0089 

R0090 

R009I 
R 00-9-2 

MODIFIED:  30  JANUARY  1968  BY  P S WEISSMAN  TO  CRE, 

-MODI  F IFD : 1-  MARCH  1-9 68  BY  P S WEI-SSMAN  TO  SA VE  -El 

FUNCTIONAL  DESCRIPTION: 

SET MAXDB.  - SET  DEADBAND.  TO  .5.0  DEGREES 

ATE  RESTORDB  . 

TANK  AMD  .CREATE  PFLITEDB . ... 

R0093 
R0094 
ROJT-9-6 

SETMINDB  - 
RESTORDB  - 
..PFLITEDB.  - 

SET  DEADBAND  TO  0.3 
SET  DEADBAND  TO  MAX 
S-E.L-  DEADBAND  TO  l.Q. 

DEGREE 

OR  MIN  ACCORDING  TO  SETTING  OF  OBSELECT  BIT  OF  DAPBOOLS 
DEGRFE  AND  ZERO  THE  COMM ANDFD  ATTITUDE  CHANGE  AND  COMMANDED  RATF 

R0098 

ROIOO 

REFLECT 

ALL  ENTRIES  SET  UP  A 
THE  NEW  DEADBAND.  IT 

NOVAC  JOB 
SHOULD  BE 

TO  DO  1/ACCS  SO 
NOTED  THAT  THF 

THAT  THE  TJETLAW  SWITCH  CURVES  ARE  POSITIONED  TO 
DEADBAND  REFERS  TO  THE  ATTITUDE  IN  THE  P-,U-,AND  V-AXFS. 

R0102 

SUBROUTINE  CALLED: 

NOVAC 

-R-Q-l-03 

r.  a i i 

<vF  Cl  1 FMCF  : _SA  M F A S A B aV.  F 

A0104 

OR 

TC 

RESTCRDB  +1  FROM  ALLCOAST 

R010B 

DEBRIS: 

A,  L 

, 0,  RUPTREG 1,  ( ITEMPS  IN 

NOVAC) 

0106 

REF 

35 

LAST 

909 

20,2  123 

30  111 

0 

RESTORDB 

CAE 

DAPBOOLS  DETERMINE  CR EW- SE L ECT ED  DEADBAND. 

0107 

REF 

1 

20, 2124 

7 4750 

0 

MASK 

DBSE  LECT 

_ 0108  .... 

20_,  2 123  . 

0 0006 

1 _ 

EXTEND 

0109 

REF 

6 

LAST 

854 

20,2126 

1 2140 

1 

BZF 

SCTM  INDB 

044-0 

REF 

1 

2 0,-2127 

3 -7  1-51 

0 

SETMAXDB 

CAF  . 

W.LDEDB  SET  5 DEGREE.  HEAD BjAND • 

0111 

REF 

2 

LAST 

227 

20, 2130 

55*346 

0 

+ 1 

TS 

OB 

01  1 7 

2-0,2131 

0 -00  06 

1 

FXTENP 

SET  UP  .IDR  TO  RF-PnSITIDN  SWITCH  CURVES* 

0113 

REF 

56 

LAST 

137  1 

20,2132 

22  070 

0 

QXCH 

RUPT  PEGl 

0114 

REF 

4 

LAST 

75  1 

20,2133 

3 7714 

1 

CALLACCS 

CAF 

PRIC27 

044-5 

REF 

31 

LAST 

13-6  5 

_2  0,21 34 

0.  5072 

1 

TC 

NOVAC 

0116 

REF 

7 

LAST 

237 

E6, 1 537 

EBANK= 

A OS  Q 

0117 

REF 

2 

LAST 

207 

20,2135 

02454 

0 

2C  ADR 

1 / A C C JOB 

O-L-l-7 

— 20,2 13  6 

40106 

1— 

0118 

REF 

57 

LAST 

140  2 

20,2137 

0 0070 

0 

TC 

RUPTREG1  RETURN  TO  CALLER. 

0119 

REF 

1 

20,2140 

3 2150 

1 

SETMINDB 

CAF 

NARROWDB  SET  0.3  DEGREE  DEADBAND. 

0120 

REF 

2 

LAST 

795 

20,2141 

1 2130 

0 

TC  F 

SETMAXDB  +1 

0121 

20,2142 

0 0006 

1 

PFL ITEDB 

EXTEND 

THE  RETURN  FROM  CALLACCS  IS  TO  RUPTREG1 . 

0122 

REF 

5.8  . 

—LAST  140  2 

-20,2  1 43. 

22  070 

0 

QXCH 

PUPTPEG1 

0123 

REF 

9 

LAST 

854 

20, 2 144 

0 2153 

l 

TC 

ZATTEROR  ZERO  THE  ERRORS  AND  COMMANDED  RATES. 

0124 

REF 

1 

20,2145 

3 2152 

0 

CAF 

POWERDB  SET  DB  TO  1.0  DEG. 

0125 

-R-EL 

_ 3. 

-LAST 

14_0  2_  . 

20,2.1.4.6 

55*3  4.6  0 

TS 

DB 

0126 

REF 

1 

20,2  147 

1 2133 

0 

TC  F 

CALLACCS  SET  UP  l/ACCS  AND  RETURN  TO  CALLER. 

01261 

20,2  150 

00155 

0 

NARROWDB 

OCTAL 

00155  0.3  DEGREE  SCALED  AT  45. 
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01262 

0127 

20.2151 

20.2152 

03434 

00554 

1 

0 

WIDEDB 

POWERDB 

OCTAL 

DEC 

03434 
.022  22 

5.0  DEGREES  SCALED  AT  45. 

1.0  OEGREE  SCALED  AT  45. 

0128 

REF 

5 

LAST 

902 

20,2  153 

3 5015 

0 

ZATTEROR 

CAF 

EBANK6 

0-12° 

R F F 

6_9 

1 AST 

13-9  5 _ 

- 20  r 2154 

5 6 0 03 

1 

XCH 

FRANK  _ 

0130 

REF 

264 

LAST 

1400 

20,2155 

54  001 

1 

TS 

L 

SAVF  CALLERS  EBANK  IN  L. 

0131 

REF 

21 

LAST 

1307 

20, 2156 

30  032 

0 

CAE 

C DUX 

- ^ 01-3-2 

REF 

16 

LASJ 

14-0  1 

-2a,T157 

55 '633- 

1 

TS  _ _ 

C DUX  D 

0133 

REF 

10 

LAST 

1303 

20, 2 160 

30  033 

1 

CAE 

C DU  Y 

0134 

REF 

3 

LAST 

910 

20, 2 161 

5 5 ' 6 34 

0 

TS 

CDUYD 

0135 

-REF 

13  _ 

LASJ 

130  3 

. 20,-2162 

30  034 

0- 

CAE 

C DU  Z 

0136 

REF 

4 

LAST 

910 

20, 2 163 

5 5 ' 6 35 

1 

TS 

CDUZD 

0137 

REF 

8 

LAST 

923 

20,2164 

1 2170 

1 

TCF 

STOP  PATE  +3 

0138 

REF 

6 

LAST  1403 

20,2 165 

3 5015 

0 

ST0PR.4T  E 

CAF 

FBANK6 

70 

LAST  14-0  3 

20,2 166 

-5-6-  0-03- 

L 

XCH-  . 

FRANK 

0140 

REF 

265 

LAST  1403 

20,2167 

54  001 

1 

TS 

L 

SAVE  CALLERS  FBANK  IN  L. 

0141 

REF 

271 

LAST  1397 

20,2170 

3 4755 

1 

+ 3 

CAF 

ZERO 

0 1 42 

RF  F 

LI 

| AST 

917 

2D  ,-2-171 

5 5* 641  1 

TS 

DELE  GA  PD 

0143 

REF 

6 

LAST 

91  6 

20,2172 

55*642 

1 

TS 

OMEGAOD 

0144 

REF 

6 

LAST 

916 

20, 2 173 

55' 643 

0 

TS 

□MEG ARD 

01-45 

-R-E-F 

5 

LAST 

9 1 Z 

20, 2 174 

5 5 ' 63  6_ 

1 

TS 

DFLC  DLLX 

0146 

REF 

2 

LAST 

15  1 

20,2175 

5 5 ' 6 3 7 

0 

TS 

DELCDUY 

0147 

REF 

2 

LAST 

15  1 

20,2176 

55' 640 

0 

TS 

DEL  C DUZ 

- - 0 14-8 — 

REE 

4 

-LAST 

917- 

20,7177 

55 ' 277 

0 

TS 

DFI  PFRDR 

0149 

REF 

2 

LAST 

382 

20, 2200 

55' 300 

1 

TS 

DELQEROP 

0150 

REF 

2 

LAST 

382 

20,2201 

5 5 ' 3 0 1 

0 

TS 

DELRERQR 

-01-51 

_REF 

XT- 

LAST  J-4-Q3 

- 20, 2202 

22  0-03- 

1 

LXCH 

FRANK 

RESTORE  CALLERS  EBANK. 

0152 

REF 

394 

LAST  1400 

20,2203 

0 0002 

0 

TC 

0 

-RG1-53 STTBRGUT INF  NAHEi A LLCOA S T — 

R0154  WILL  BE  CALLED  BY  FRESH  STARTS  AND  ENGINE  OFF  ROUTINES. 


R0156  CALLING  SEQUENCE:  (SAME  AS  ABOVE) 

R0157 EXIT: RETURN  TO  Q, 

R0158  SUBROUTINES  CALLED:  STOPRATE,  RESTORDB,  NOVAC 

R0159  l ERG:  (FOR  ALL  AXES)  AOS,  ALPHA,  AOSTERM,  OMEGAD,  DELCDU,  DELFPDR 

R 0-1  60 OLT-P-UI -L-  DRI-FT-BI  T /OAPROOL  S,  OB,  J-QB  TO  DO-  1/ACCS 

R0161  DEBRIS:  A,  L,  Q,  RUPTREG1,  RUPTREG2,  (ITEMPS  IN  NOVAC) 


016? 

0163 


REF  22  LAST  1324 


20.2204  0 0006  1 ALLCOAST  EXTFND 

20.2205  22  071  1 QXCH  RUPTREG2 


SAVE  Q FOR  RETURN 
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016A 

0165 

REF 

REF 

Off 

9 

72 

LAST 
LAST 
1 AST 

1 AO  3 
1A03 
1A0  2 

20, 2206 
20,2207 
70, 7710 

0 2165 
22  003 
55' 537 

l 

1 

0- 

TC 

LXCH 

TS 

STOPRATE 

EBANK 

A.CSC 

CLEAR  RATE  INTERFACE.  RETURN  WITH  A=0 
AND  L=E8 ANK6.  SAVE  CALLERS  EBANK. 

0167 

REF 

9 

LAST 

1A  0 A 

20, 2211 

5 5 1 5 AO 

0 

TS 

AOSQ  +1 

0168 

REF 

1 

20,2212 

55'  5A1 

1 

TS 

AOSR 

Q FF 

9 

J A*vT 

140  4 

20, 2-213 

5-5*542 

1 

TS 

AOSR  +1 

0170 

REF 

2 

LAST 

210 

20, 221A 

55' A22 

0 

TS 

ALPH AO 

FOR  OOWNL 1ST. 

0171 

REF 

1 

20, 2215 

5 5 ' A 23 

1 

TS 

ALPHAP 

n 1 i? 

R_FF 

2 

1 AST 

-14-8 

-20, 2-216 

5 5 ' 5 A5 

0 

TS 

AOSQ  TERM 

0173 

REF 

i 

20,2217 

55*  5A6 

0 

TS 

AOSR  TERM 

01 7 A 

REF 

73 

LAST 

1A0  A 

20,2220 

22  003 

1 

LXCH 

EBANK 

RESTORE  EBANK  (EBANK6  NO  LONGER  NEEDED) 

0175 

REF 

36 

LAST 

1A0  2 

20,2221 

A 0111 

1 

cs 

0176 

REF 

3 

LAST 

7 A 7 

20,2222 

7 A7AA 

0 

MASK 

0177  _ 

.RE.  F 

3 7 

-LAST 

.LAO  A _ 

20, 2223 

26  111 

1 

ADS 

0178 

REF 

8 

LAST 

855 

20, 222A 

0 2 1 2 A 

1 

TC 

— 0-179 

REE 

23 

-L-ASJ— 

1A0  3- 

— 20,  2-22  5 - 

-0—00X1 

-1 

IC 

DAPR0OLS 
OR IETBIT 
OAPP  COLS 
R E ST  OR  DB 


+ 1 


SET  UP  DRIFTBIT 


RESTORE  DEADRANK  TO  CR E W- SEL FC TFD  VALUE. 


R1JPTR.EG2 


RFTI1RN 
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R0001 

TEE 

CAPIDLER  PROGRAM 

IS  STARTED  BY  FRESH  START  AND  RESTART. 

THF  DAPIDLER  PROGRAM  IS  DONE  10  TIMES 

R0003 

PER 

SECOND  UNT  1L  THE 

ASTRONAUT  DESIRES 

THE 

DAP  TO  WAKE 

UP,  AND  THE  I MU 

AND  CDUS  ARE  READY  FOR  USE  BY  THE  DAP. 

J5X)AX5  9 

THF 

MFTF  9 9 AR  Y 

TM  I T T A i 1.7 AT  TON 

-OF  - THE  _l 

DAP 

IS_ 

DONE 

BY  THE— CAPIDLER  -PROGRAM 

. 

0006 

16, 2000 

BANK 

16 

0007 

REF 

i 

16, 2000 

SETLOC 

DAPS  1 

00-0  P 

16, 7000 

BANK 

0009 

REF 

10 

LAST 

1404 

E6, 1 537 

EB ANK= 

AOSO 

0010 

REF 

l 

COUNT* 

L $/ DAP  I D 

00X5 

0-0006- 

1 

r HF  fXR  I T s 

EXT-EMD 

0012 

REF 

7 

LAST 

9 10 

16,2001 

00  031 

0 

READ 

C HA  N 31 

IF  BOTH  BIT13  AND  BIT14  ARE  ONE,  THEN 

0013 

16,2002 

4 0000 

0 

COM 

THE  MODE  SELECT  SWITCH  IS  IN  THE  OFF 

R-F-F 

6_ 

l AST 

_ SO  9 

16 ,2003 

7 -43  55  

-MASK  - BIT  13-14 

POSITION,  AND  SO  THF  DAP  SHOULD  BE  OFF, 

0015 

16, 2004 

0 0006 

1 

EXTEND 

WITH  NO  ATTITUDF  ERROR  DISPLAY. 

0016 

REF 

1 

16,2005 

1 2154 

1 

BZF 

MORE  IDLE 

0017 

REF 

51 

LAST 

1311 

16, 2006 

4 1303 

1 

CS 

I M0DFS33 

0018 

REF 

59 

LAST 

1384 

16, 2007 

7 4746 

1 

MASK 

BIT6 

00  1 9 

- R£F 

4fi  1 

£ A ST- 

13  9 9 

16,2010 

10  000 

0 

CCS 

A 

0020 

REF 

1 

16,2011 

1 2203 

0 

TCF 

JUMP  DSP 

0021 

REF 

4 

LAST 

234 

16,2012 

4 1273 

1 

CS 

RCSF  l AGS 

IMU  NOT  USABLE.  SET  UP  INITIALIZATION 

00 22- 

- -&EE 

_ 41- 

-LAST 

L3  3:9  _ 

16,  2 013 

7 47  51 

1 

MASK 

BIT3 

FLAG  FOR  ATT  ERROR  DISPLAY  ROUTINE. 

0023 

RFF 

5 

LAST 

140  5 

16,2014 

27' 2 73 

1 

ADS 

RCSF LAGS 

0024 

REF 

1 

16,2015 

1 2160 

0 

TCF 

SHUTDOWN 

0025 

RFF 

60 

LAST 

1333 

16,2016 

3 4742 

1 

CHEKMOR  E 

CAF 

B I T 1 0 

BIT  10  OF  30  IS  PGNCS  CONTROL  OF  S/C 

0026 

16, 2017 

0 0006 

1 

EXTEND 

0927 

R£J7 

_LQ_ 

L ASX 

910_  - 

1 6-,  2-0-20 

02  030 

0 

RAND 

_C  HAN  30 

BITS  IN  30  ARE  INVERTED 

0028 

REF 

482 

LAST 

140  5 

16, 2021 

10  000 

0 

CCS 

A 

0029 

REF 

2 

LAST 

140  5 

16, 2022 

1 2154 

1 

TCF 

MORE  IDLE 

0030 


16,2023  0 0002  0 


RETURN 
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P0031  DAPIDLER  ENTRY. 


LAST 

-1-400- 

] /S  t 2 (XT- 4- 

? ? n i 6 

n 

DAP  T m FR 

LXCH 

BANKRUPT 

INTERRUPT  LI  AD  INS  (CONTTNULU)  . . . 

0033 

16,2025 

0 0006 

i 

EXTEND 

0034 

REF 

11 

LAST 

1400 

16,2026 

22  012 

i 

QXCH 

QRUPT 

0035 

REF 

6 

LAST 

140  5 

16,2027 

3 1273 

0 

CA 

R CSF  LAGS 

0036 

REF 

53 

LAST 

1360 

16, 2030 

7 4737 

1 

MASK 

BIT13 

0037 

REF 

4-83 

--LAST 

140-5  - 

16,2  031 

1.0  0 00 

0 . 

CCS  . 

A 

CHECK  IF  1 / ACC JOB  HAS  BEEN  SET  UP  SINCE 

0038 

REF 

i 

16,2032 

1 2041 

1 

TCF 

CHECKUP 

THE  LAST  FRESH  START  OR  RESTART. 

00381 

REF 

54 

LAST 

1406 

16, 2033 

3 4737 

0 

CA 

B I T 1 3 

_ 0 03  8.2 

- RFF 

7 

LAST 

1406 

16,2034 

?7'2 73 

1 

ADS 

R C S F LAGS 

BIT  13  IS  1. 

00383 

*R  E F 

5 

LAST 

140  2 

16, 2035 

3 7714 

1 

CAF 

PR1027 

0039 

REF 

32 

LAST 

140  2 

16,2036 

0 5072 

1 

TC 

NOVAC 

SET  UP  JOB  TO  DO  A LITTLE  INITIALIZATION 

0040 

REF- 

11 

LAST 

L40-5 

E6, 1537 

EBANK= 

A PS  Q 

AND  EXECUTE  1/ACCS. 

0041 

REF 

1 

16, 2037 

02447 

1 

2C  ADR 

1 /ACCSET 

(WILL  BRANCH  TO  MORE I DL  E ON  ACCSOKAY) 

0041 

REF 

1 

16,2040 

40106 

1 

0042 

REF 

1 

16,2041 

0 2000 

0 

CHECKUP 

TC 

CHEKBITS 

CHECK  TO  SEE  IF  LM  DAP  IS  TO  GO  ON  AND 

A0043 

DO  ERROR  DISPLAY. 

0044 

REF 

38 

LAST 

1404 

16,2042 

30  111 

0 

CAE 

DAPBOOLS 

IF  1/ACCS  HAS  NOT  BEEN  COMPLETED,  IDLE. 

0045 

REF 

2 

LAST 

234 

16, 2043 

7 47  51 

1 

MASK 

ACCS  OKAY 

MOTE:  ONLY  FRESH  START  AND  RESTART 

0046 

36,2044 

0 00  0.6 

_1_ 

-FXTENID. 

KNOCK  THIS  BIT  DOWN. 

0047 

REF 

3 

LAST 

140  5 

16,2045 

1 2154 

1 

BZF 

MPPFIDLF 

Q£4£ 

-RFF 

3 1 

LAS  T 

134  2 

16  ♦ 2-04-6 

0 

STARTDAP 

TC 

I BN K CALL- 

7FRn  ATT  T T l IDF  F PR  OR  ANO  DFSTRFn  RATES. 

0049 

REF 

10 

LAST 

1402 

16,2047 

40153 

1 

FC  ADR 

ZATTEROR 

0050 

REF 

272 

LAST 

1403 

16,2050 

3 4755 

1 

CAF 

ZERO 

* *********  INITIALIZE:  ********** 

_ 00  51.  _ 

RFF 

_3 

LASI 

14  8 

_ 16,2051 

55' 524 

1 

TS 

T JP 

0052 

REF 

2 

LAST 

149 

16, 2052 

55' 525 

0 

TS 

T JU 

0053 

REF 

1 

16, 2053 

55' 526 

0 

TS 

T JV 

0054 

-RE-F 

- 7 

L AST 

210- 

16,-2054 

5 5 ' 4 1 7 

0 

TS 

[IMF  GAP 

RATES  IN  BODY  (PILOT)  COORDINATES. 

0055 

RFF 

7 

LAST 

778 

16,2055 

5 5 ' 420 

1 

TS 

OMEGAO 

0056 

REF 

1 

16,2056 

5 5 ' 4 2 1 

0 

TS 

OMEGAR 

0667 — 

-REF 

6— 

L AST- 

1-4  4 

L6-»-2  0 57 

55' 426- 

I 

TS 

TRAP  EDP 

0058 

REF 

i 

16,2060 

5 5 ' 427 

0 

TS 

TRAP  EDO 

0059 

REF 

i 

16, 2061 

55' 430 

0 

TS 

TRAP  EDR 

006-0 — 

-RE-F 

12 

-LAST 

-140  6 . 

16,2  0-62 

5 5 T5  37 

0 

TS 

AOSO 

OFFSET  ACCELERATION  ESTIMATES. 

0061 

REF 

13 

LAST 

1406 

16, 2063 

55' 540 

0 

TS 

APSQ  +1 

0062 

REF 

3 

LAST 

1404 

16, 2064 

5 5 ' 54 1 

1 

TS 

ACSR 

0063 

—REE- 

4^ 

LAST 

34-06-  - 

16, 2065  - 

5 5 ' 5 42- 

1 

TS 

AGSR  +1 

0064 

REF 

3 

LAST 

1404 

16,  2 066 

5 5 ' 4 22 

0 

TS 

ALPH AO 

COPIES  OF  OFFSET  ESTIMATES  FOR  DOWNLIST. 

0065 

REF 

2 

LAST 

140  4 

16,  2067 

55' 423 

1 

TS 

ALPH  AR 

. 0066 

REF 

3 

LAST 

-149 

16,2070 

5 5 ' 5 00 

1 

TS 

NEGUC 

0067 

REF 

i 

16,2071 

55' 502 

0 

TS 

NEGUP 

0068 

REF 

3 

LAST 

1404 

16, 2072 

55' 545 

0 

TS 

AOSQTERM 

QRAXIS  RATE  DERIVATION  TERMS  AND  KALMAN 

0069 

RFF 

2_ 

LAST 

1404 

16,2073 

55 ' 546 

0 

TS 

A OSR TERM 

FILTER  INITIALIZATION  TERMS. 

0070 

REF 

1 

16,2074 

55' 510 

0 

TS 

0 ACC  DOT 

DESCENT  ACCELERATION  DERIVATIVE  EST. 

0071 

REF 

1 

16, 2075 

55'5  12 

1 

TS 

R AC  C DOT 
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0072 

REF 

1 

16, 2076 

5 5 ' 5 01 

0 

TS 

ALL  DWGTS 

AOSTASK  FLAG  FOR  QRAXIS  RCS  CONTROL  USE. 

0073 

REF 

1 

16,2077 

5 5 ' 6 27 

1 

TS 

COTROLER 

DO  TRYGTS  ON  FIRST  PASS  (WILL  GO  TO  RCS) 

00  74- 

R-FF 

1 

16,_2100 

55 1 6_31 

0 

TS 

INST  S 

RECOGNIZE  FIRST  GTS  PASS  AS  SUCH. 

0075 

REF 

3 

EAST 

149 

16, 2 101 

5 5 ' 6 30 

1 

TS 

QGI MTIMR 

STOP  GIMBAL  DRIVES.  (PROBABLY  WOULD  BE 

0076 

REF 

1 

16,2  102 

5 5'  632 

0 

TS 

RGI MTIMR 

GOOD  ENOUGH  JUST  TO  INACTIVATE  TIMERS) 

R F F 

1 

16,2103 

5-5  • 4 5i> 

0 

TS- 

m ppmin 

MINIMUM  IMPULSE  MODE  ERASA8LES 

0078 

REF 

1 

16,2  104 

5 5 ' 4 57 

1 

TS 

OLDQRMIN 

0079 

REF 

48 

LAST 

1374 

4747 

CALLGMBL 

EQUALS 

B I T 5 

RCSFLAGS  INITIALIZATION. 

-00  RD 

RFF 

1 

16,210-5 

4 21  77 

-0- 

CS  _ _ 

MANF LAG 

0081 

RFF 

8 

LAST 

1406 

16,2 106 

7 1273 

1 

MASK 

RCSE  LAGS 

NEGUQ(R)  HAVE  BEEN  GENERATED. 

0082 

RFF 

9 

LAST 

140  7 

16,2107 

55 '273 

1 

TS 

RCSFLAGS 

R0083 

SET 

UP  " 

01 C" 

MEASURED  COU  ANGLES: 

16.21  10 

0 0006 

1 

EX  ZERO- 

0085 

REF 

22 

LAST 

1403 

16, 2111 

3 0033 

1 

OCA 

C DU  X 

OLDXFORP  AND  DLDYFORP 

0086 

REF 

3 

LAST 

145 

16,2112 

53*437 

1 

OXCH 

OLDX  FORP 

0118-7 

_R£-E 

LASJ 

-140-3  - 

16,2113 

3 0034 

0 

CA 

C DU  Z 

0088 

REF 

1 

16, 2114 

55*440 

1 

TS 

OLDZ  FORD 

0089 

REF 

10 

LAST 

1407 

16, 2115 

4 1273 

1 

CS 

RCSF  LAGS 

0000 

REF 

4 7 

1 -AS-T 

13-6  1 _ 

16 , 21 16 

7 4740 

1 . 

-MASK 

-BIT  12 

00901 

REF 

ii 

LAST 

140  7 

16,2  117 

27*273 

1 

ADS 

RCSF  LAGS 

BIT  12  SET  TO  1. 

0091 

REF 

31 

LAST 

135  8 

16,2120 

3 4751 

0 

CA 

FOUR 

0002 

-RF-F 

_2 

L-ASJ 

- 148 

16,2121 

55*535 

1 

TS 

SKIPU 

0093 

RFF 

i 

16,2122 

55*  536 

l 

TS 

SKI  P V 

0094 

REF 

35 

LAST 

1399 

16,2123 

3 47  33 

1 

CA 

PCS  M AX 

0095 

REF 

A— 

L-AST 

139  9 

16,2124 

54  031 

1 

TS 

T I ME  6 

0096 

REF 

7 

LAST 

1400 

16, 2125 

55*464 

1 

TS 

T6NEXT 

0097 

REF 

2 

LAST 

1399 

16,2126 

55' 466 

0 

TS 

T6FURTHA 

00-98 

REF 

-27  3 

-FAST 

140-6  - 

16 , 2 127 

_ 3 47  55 

_1  _ 

CA 

7FPn 

0099 

REF 

8 

LAST 

140  7 

16, 2130 

55*465 

0 

TS 

T6NEXT  +1 

0100 

REF 

3 

LAST 

1407 

16, 2131 

55*467 

1 

TS 

T 6FURTHA  +1 

0401- 

RFF 

3 

LAST 

13-9  9 _ 

16, 23-3-2  - 

55*  463 

0 

TS 

NXT6  ADR 

0102 

REF 

5 

LAST 

1399 

16,2  133 

5 5 ' 4 70 

1 

TS 

NEXT  P 

0103 

REF 

2 

LAST 

1400 

16,2134 

55*471 

0 

TS 

NEXT  U 

0104 

-REE- 

-2 

LAST- 

1400  . 

16, 2135 

_ 55*472 

0 

TS 

NEXT  V 

0105 

REF 

8 

LAST 

10  3 3 

16, 2136 

4 43  63 

1 

CS 

TEN 

0106 

REF 

1 

16,2137 

55' 755 

0 

TS 

DAPZRUPT 

JASK  NOT  IN  PROGRESS,  INITIALIZE  NEG. 

0-1-07 

-REF 

9-4  _ 

L-AST 

13  84 

16,  2-140 

- 3 4752 

0 

CA 

TWO 

0108 

REF 

1 

16,2 141 

5 5 ' 4 3 1 

1 

TS 

NPTR APS 

0109 

REF 

1 

16,2142 

55' 432 

1 

TS 

NGTR  APS 

04-40 

R-E-F- 

1— 

-16,-2-143 

-55*433 

0 - 

TO 

JMR  TP  APS 

0111 

16,2144 

0 0006 

1 

EXTEND 

0112 

REF 

1 

16,2 145 

3 2202 

0 

OCA 

PAX ADIDL 

04-4  3 

-R-E-F- - 

3_ 

LAST 

_ 2 34 

16,2  14-6 

5 3 12  75 

1 

DXCH 

T5ADP 

0114 

REF 

i 

16,2 147 

3 7726 

0 

SETT  IME5 

CAF 

MSI  0 0 

0115 

REF 

5 

LAST 

859 

16, 2150 

54  030 

0 

TS 

TIME  5 

04-16 

REE 

—26- 

- LAST. 

-1400  - 

16,2-15-1 

_ L 5-2  70  - 

0 

TC  F 

RFSUIMF 

0117 

REF 

14 

LAST 

1406 

F6, 1 537 

FR ANK= 

AOSQ 

0118 

REF 

2 

LAST 

237 

16, 2 152 

02024 

0 

idleradr 

2CADR 

DAP  I DLFR 

04-18 

-L6-.-2JL53  _ 

- -341 06 
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0119 

REF 

52 

LAST 

1406 

16,2154 

0 46  74 

0 

MORE  I OLE  TC 

I BNKCALL 

CALCULATE 

Q,R-AXFS  ATTITUDE  ERRORS. 

0120 

REF 

1 

16, 2 155 

36563 

1 

CADR 

QERR  CALC 

0121 

REF 

53 

LAST 

140  8 

16,2156 

0 4674 

0 

TC 

I BNKCALL 

0122 

REF 

1 

16, 2 157 

35425 

1 

CADR 

CAL  C PERR 

CALCULATE 

P AXIS  ATTITUOE  ERRORS. 

0123 

0124 
0126 

REF 

RE-F 

1 

4 

4 AST 

140  7 

16,2160 
16,2161 
- 16  , 2 16-2 

0 0006 
3 2153 
53*275- 

1 

1 

_L_ 

SHUTDOWN 

EXTEND 
DC  A 
OXCH 

IDLE  R AOR 
T5ADP 

0126 
0 17-7- 

REF 

R-fLF 

2 74 
-6 

LAST 
1 AST 

1407 
-140  7 

16.2163 

16. 2164 

3 4753 
5 5*470- 

1 

1 

CAF 

TS 

ZERO 

NEXTP 

KILL  ANY  POSSIBLE  JET  REQUESTS 

0128 

REF 

3 

LAST 

140  7 

16,2165 

55*471 

0 

TS 

NEXTU 

0129 

REF 

3 

LAST 

1407 

16,2166 

55*472 

0 

TS 

NEXT  V 

^ Q1  30 

16,2  167 

0 0006 

_3 

EXTEMD 

COMMAND  JETS  OFF. 

0131 

REF 

5 

LAST 

1400 

16,2170 

01  005 

0 

WRITE 

CHAN5 

0132 

16,2171 

0 0006 

1 

EXTEND 

0133 

REF 

3- 

LAST 

13-93 

16,-2-L72 

0 L -0-0-6- 

0 

WRITE 

CHAN  ,6— 

0134 

REF 

i 

16,2173 

4 2200 

0 

CS 

BGI M23 

TURN  TRIM  GIMBAL  OFF 

0135 

16, 2 174 

0 0006 

1 

EXTEND 

0136 

RFF 

65 

LAST 

13.1  8 

_ 16,-21X5 

03-  Q 12 

1 

WAND 

CHAN  12 

0137 

REF 

i 

16,2176 

l 2147 

0 

TC  F 

S FT  T IME5 

RETURN  IN  100  MSEC. 

0 1 37  1 

-1-6?  24 77 

030-21 

1 

MAIM-F-LAG 

-OCX 

-0302  1 

01  38 

16, 2200 

07400 

1 

BGI M23 

OCTAL 

07400 

0139 

REF 

8 

LAST 

1406 

E6, 1417 

EBANK= 

ONES AP 

- 0140 

REF 

1 

16,2201 

022 10. 

0- 

PAXADIDL 

2CADR 

PAXI  S 

0140 

REF 

1 

16, 2202 

34106 

1 

0141 

REF 

2 

LAST 

170 

7726 

MS  1 00 

= 

OC  T 3 7766 

Q 4-42 

R-E-F- 

74 

-4  AST 

13  7 7 

. 0 061 

-COS-MG  . 

= 

ITEMP1 

01431 

16, 2203 

0 0006 

l 

JUMPDSP 

EXTFND 

TRANSFER  TO  BANK  20 

01432 

REF 

i 

16,2204 

3 2207 

0 

DC  A 

DSPCADR 

FOR  ATTITUDE  ERROR  DISPLAYS 

01-43  3 

16  ,-220  5 

52  0 06- 

Q 

DTCB 

01434 

REF 

3 

LAST 

152 

E6 , 1757 

EB ANK= 

AK 

16. 2 206  022 26..  0 DSPCADR  2CADR ALTDSPLY 

16.2207  40106  1 


01-4-3  5 R-E-E 1 

01435  REF  1 
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01436 

01437 

REF 

4 

LAST  140  1 

20,2226 
20,2000 
70, 2 276 

BANK 

SETLOC 

BANK— 

20 

DAP  S 3 

01439 

REF 

1 

COUNT* 

tl/NFEDL 

ROW P-RGGR-SMi  ALT  DSPLY 

R0145  MOC  0.  6 EEC  1967 

R0146  AUTHOR:  CRAIG  WORK,  DON  KEENE,  MIT  IL 

RQ147 MOD  3- BY  D-GN  KEENE-  TUJG-U  -1-96  8-MOV-ED  PR-OGRAM  T-fl— BA-NK-  2 0 

R0148  PRCGRAM  DESCRIPTION: 


R0149  ALTDSPLY  REVERSES  THE  DSPLYALT  BIT  OF  RCSFLAGS  EACH  TIME  IT  IS  CALLED,  WHICH  IS  PRESUMABLY  EVERY  100  MS. 

R0151  IF  THE  REVERSED  BIT  IS  ONE,  NEEDLER  IS  CALLED  TO  DISPLAY  ATTITUDE  ERRORS.  IF  THE  BIT  IS  ZERO,  THE  ATTITUDE  FRR- 

ROl-53 QRS  ARE  -CALCULATED-  AS  1)  -DAE— E.EU.LOW  I NG_ -ERRORS,,.  IF  NEEDLFLG  = 0,  AND  2)  TOTAL  ATTITUDE  ERRORS  FOR  NEEDLFLG  = 1. 


R0155  WARNING:  ALTDSPLY  MAY  ONLY  BE  CALLED  WITH  INTERRUPT  INHIBITED. 


R0156  WARNING:  EBANK  MUST  BE  SET  TO  6 WHEN  USING  THIS  ROUTINE. 


R01 57 I-NP-UT- RGSFLAGS  AN D I)— IE— NE-E-&L-FL6=0  , INPUT  PERRQR,  Q ERROR  ,-R  ERROR-. 

R0158  2)  IF  NEEDLFLG=l,  INPUT  CPH I , C THE T A , C P S I ,CDUX , CD UY , C DUZ , Ml  1 , M2 1 , MB  1 , M2 2 , M 3 2.  (GPMATPIX) 


-R  0-16-0 OUTPUT-S-: RCSFLAGS  WITH  DSPLYALT  REVFRSFD.AK,  AK 1 , AK2  , NEF-D1  FR  OUTPUTS. 


ROlfal  ENTRY:  TCF  ALTDSPLY 


R0162  EXIT:  TCF  CHEKMORE 


ROT 6 3 AL  ARM-  CR  ABORT  EX  ITS:  NONE 


R0164  SUBPROGRAMS  CALLED:  NEFDLER,  0VERSUB2 


R 0 1 6 5 DEERIS:  A ,L , AND  NEEDLER  DEBRIS. 


- 0166 — 

R-EF 

-12 

L AST 

-140  7 

20+2226 

3 12  73 

0 

ALTDSPLY  CA  - 

JLC-SE  LAGS 

INVERT  THE  I)  IS  ELAY  ALTERNATION  BIT. 

0167 

REF 

266 

LAST 

1403 

20, 2227 

54  001 

1 

TS 

L 

0168 

REF 

1 

20,2230 

3 4750 

l 

CA 

DSPLYALT 

0-16-9 — 

20+2-23L 

0 -00_06 

1 

EXTFND 

0170 

REF 

18 

LAST 

1384 

20,2232 

06  001 

0 

RXOR 

LCHAN 

0171 

REF 

13 

LAST 

1409 

20, 2233 

55' 273 

1 

TS 

RCSFLAGS 

0172 

REF 

2 

LAST 

14  0 9 

20,2234 

7 4750 

0 

MASK 

DSPLYALT 

0173 

REF 

484 

LAST 

1406 

20,2235 

10  000 

0 

CCS 

A 

IS  ALTERNATION  FLAG  ZERO? 

- 01X4 

_ R-E  E 

1 

-20-.-2-236 

1—23-22 

1 

TCF 

NEEDLER 

0175 

REF 

36 

LAST 

1370 

20,2237 

30  074 

1 

CAE 

FLAGWRDO 

NEEDLFLG  WILL  INDICATE  TOTAL  OR  DAP  AT- 
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0176 

0177 
n i 7fi 

REF 

REF 

REF 

1 

485 

1 

LAST 

14  0 9 

20. 2240 

20.2241 
-20, 2242 

7 4750 
10  000 
1 22  5-2- 

0 

0 

1 

MASK 

CCS 

TCF 

NEEDLBIT 

A 

QSPLYTOT 

TITUDE  ERROR  DISPLAY  REQUEST. 
TOTAL  ERROR  IS  NEEDED  IN  AK.AK 

+ 1 , AK  +2 

0179 

REF 

2 

LAST 

147 

20, 2243 

4 1446 

1 

CS 

QERROR 

YES.  DISPLAY  ATT  ERRORS  ON  THE 

,-BALL. 

RFF  - 

4 

1 AST 

440  8 

20,-2244 

55' 760 

_Q_ 

TS 

- A K + 1 

ERROR  COMPLEMENTS  ARE  INPUT  TO 

NEEDLER. 

0181 

REF 

2 

LAST 

147 

20,2245 

4 1450 

0 

CS 

REPROR 

01815 

REF 

5 

LAST 

1410 

20, 2246 

5 5 ' 76 1 

1 

TS 

AK  +2 

01 -ftp  - 

--  REF 

2 

LAST 

16  9- 

-20, 2247 

4 1462 

1 

CS 

PERT?  DR 

0183 

REF 

6 

LAST 

14  10 

20, 2250 

57*757 

0 

XCH 

AK 

01R4 R-g£ 1 20,-2-251 1 24  42  -0 ICE RET N.M.OBE PISP1AY  THFSF  THE  NEXT  TIMF  THROUGH 


R 0 1 85 

CALCULATE  GIMBAL  ANGLF  TOTAL 

ERRORS, 

RESOLVE 

INTO  PILOT 

A X F S , STORE 

TOTAL  ERRORS  FOR  NEEDLER.  Q-AXIS  FIRST. 

0187 

20,2252 

0 0006 

1 DSPLYTOT  EXTEND 

0188 

REF 

72 

LAST 

1408 

20,2253 

22  061 

0 

QXCH 

ITEMP1 

SAVE  Q FOP  CHEKBITS  RETURN. 

0189 

REF 

3 

LAST 

49  1 

20,2254 

3 0322 

1 

CA 

CTHFTA 

DESIRED  ATTITUDE,  Y-AXIS,  2*S  COMP. 

0190 

20, 2255 

0 0006 

1 

EXTEND 

SUBTRACT  cuprfnt  ATTITUDE. 

- ai  9-1 

REE- 

1 L 

L AST 

140  3_ 

20, 2256 

20  033- 

0 

MSU 

C DU  Y 

DIFFERENCE  SCALED  AT  PI,  1*S  COMP. 

0192 

REF 

7 

LAST 

14  10 

20, 2257 

55*757 

1 

TS 

AK 

SAVE  FOR  R— ERROR  CALCULATION. 

0193 

20, 2260 

0 0006 

1 

EXTEND 

0194 

RET  _ 

2 

_L  AS  T 

—20  4 

20,2-261 

7 1413 

. I .. 

MP 

M 2 1 

(CHTETA-CDUY )*M21  SCALED  AT  PI  RADIANS. 

0195 

REF 

8 

LAST 

1410 

20,2262 

57*760 

1 

XCH 

AK  +1 

STORE  FIRST  TERM  OF  Q ERROR. 

0196 

REF 

5 

LAST 

530 

20,2263 

3 0323 

0 

CA 

CPS  I 

DESIRED  ATTITUDE, Z-AXI S,  2*S  COMP. 

019-7 

20,2-264 

0 00 Q6 

L 

EXTEND 

SUBTRACT  CURRENT  ATTITUDE. 

0198 

REF 

15 

LAST 

140  7 

20, 2265 

20  034 

i 

MSU 

CDUZ 

DIFFERENCE  SCALED  AT  PI,  1*S  COMP. 

0199 

REF 

9 

LAST 

141  0 

20,2266 

55' 761 

i 

TS 

AK  +2 

SAVE  Z-AXIS  TERM  FOR  R ERROR  CALCULATION 

020-0 

20,2267 

-0  0006 

1 

EX  TEND 

0201 

REF 

5 

LAST 

902 

20,2270 

7 1415 

i 

MP 

M22 

(CPSI-CDUZ )*M22,  SCALED  AT  PI  RADIANS. 

0202 

REF 

10 

LAST 

1410 

20, 2271 

6 1760 

i 

AD 

AK  +1 

Q ERROR  COMPLETE  , AT  PI  RAD. 

0-203 

-REF 

I 

20, 2272 

0 2435 

i 

TC 

OVER  SUR2 

PIN  NEEDLES  IN  CASE  OF  OVERFLOW. 

0204 

REF 

1 1 

LAST 

141  0 

20, 2273 

55*  760 

0 

TS 

AK  + 1 

— R02  05 R — ERR-C-E — CA-L-CUT  ATT-QN — NEXT 


0206 

REF 

12 

LAST 

1410 

20, 2274 

3 

1757 

0 

CA 

AK 

Y-AXIS  DIFFERENCE  STORED  BY  O-AXIS  CALC. 

020  7 - 

20,2275 

0 

0006 

1 

EXTEND 

0208 

REF 

2 

LAST 

204 

20,2276 

7 

1414 

0 

MP 

M 3 1 

I CTHETA— CDUY ) *M31 , SCALED  AT  PI  RADIANS. 

0209 

REF 

13 

LAST 

141  0 

20, 2277 

57 

' 761 

0 

XCH 

AK  +2 

FIRST  TERM  OF  R ERROR. 

- A 02 1-0 

Z-AXIS  DIFFERENCE,  STORED  BY  A CALC.  IS 

0211 

20,2300 

0 

0006 

1 

EXTEND 

RECOVERED  BY  THE  EXCHANGE. 

0212 

REF 

3 

LAST 

902 

20,2301 

7 

1416 

1 

MP 

M 32 

(CPS  I— CDU  Z ) *M3?  , SCALED  AT  PI  RADIANS. 

0213 

REF 

1A- 

X AST 

X-41CL 

20. 230? 

6 

176L 

0. 

AD 

AK  +2 

P ERROR  COMPLETF  , AT  PI  RAD. 

0214 

REF 

2 

LAST 

1410 

20, 2303 

0 

2435 

1 

TC 

OVER SUR2 

PIN  NEEDLES  IN  CASE  OF  OVERFLOW. 

0215 

REF 

15 

LAST 

1410 

20, 2304 

55 

' 761 

1 

TS 

AK  +2 

R0216  NOW  CALCULATE  P ERROR.  (NOTE  THAT  M13  = 1,  SCALED  AT  1,  SO  THE  MULTIPLICATION  IS  BY-PASSED.) 
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0218 
0219 
0 2 271 

REF 

REF 

16 

7 

LAST 
L-AST  - 

1410 

-2-03 

20.2305 

20.2306 

20.2307 

3 1757 
0 0006 
7 1412 

0 

1 

0 

CA 

EXTEND 

. MP_  _ 

AK 

Mil 

Y-AXIS  DIFFERENCE  STORED  BY  0 AXIS  CALC. 
(CTHETA-C DUYJ4M1 1 SCALED  AT  PI  RADIANS. 

0221 

REF 

17 

LAST 

141  1 

20,2310 

57 ' 7 5 7 

0 

XCH 

AK 

FIRST  TERM  OF  P ERROR  IN  AK,  AT  PI 

RAD. 

0222 

REF 

11 

LAST 

91  3 

20, 2311 

30  321 

1 

CAE 

C PH  l 

DESIRED  ATTITUOE,  X-AXIS,  2'S  COMP 

0223 

20, 2312 

0 0006 

1 

EXTEND 

SUBTRACT  CURRENT  X ATTITUDE. 

0224 

REF 

23 

LAST 

1407 

20,2313 

20  032 

1 

MSU 

C DUX 

X-AXIS  DIFFERENCE,  l'S  COMP,  AT  PI 

RAD. 

R02-25 M13 ■ =■  It  SC  BYPASS  THF  MULTIPLICATION-. 

R0226  EXTEND 

R0227  MP  M 13  (CPHI-CDUX)*M13  SCALED  AT  PI  RADIANS. 


0228 

0229 

0230 

REF 

REF 

RFF 

18 

3 

19 

LAST 
LAST 
1 AST 

141  1 
141  0 
14  11 

20. 2314 

20.2315 

20. 2316 

6 1757 
0 2435 
5 5 ' 7 5 7 

0 

1 

1 

AD 

TC 

TS 

AK 

OVER  SUB2 
AK 

P ERROR  COMPLETE 

PIN  NEEDLES  IN  CASE  OF 

, SCALED  AT  PI  RAO 
OVERFLOW. 

0231 
02  32 

RE-F 

73 

-LAST  14  1 0 

20, 2317 
-20  , 2320  _ 

0 0006 
. 22  061 

1 

0 _ . 

EXTEND 

QXCH 

PLM.Pl  ..  _ 

RFSTORE  0 FOR  CHEKBITS 

RETURN. 

0233 

REF 

2 

LAST 

14  10 

20, 2321 

1 2442 

0 

TC  F 

R FT  N NOP  F 

DISPLAY  THESE  THE  NEXT 

TIME  THROUGH 
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P0234 

FCAI  ATTITUOE  ERROR  DISPLAY  SUBROUTINE 

R 02-3  5 

-P RG G R A M DE -SC-R I-PT-1-GN-: 0.  K-E-E-NE 57-2-4/67 

R0236 

MOD  1 BY  CRAIG  WORK,  12  DEC  67 

R0237 

MOD  2 BY  CRAIG  WORK,  6 APRIL  68  CONVERTS  ATTITUDE  ERROR  DISPLAY  SCALING  FROM  16  7/8  DEG.  TO  42  3/16  DEGREES. 

R0239 — 

R0241 
R0243 
RQ2A5 

THIS  SUBROUTINE  IS  USED  TO  0ISP1AY  ATTITUDE-  ERRORS  ON  THE  IDAI  VIA  THE  DIGITAL  TO  ANALOG  XUNM-ERTERS  (DACS1  . 

IN  THE  C DUS.  CARE  IS  TAKEN  TO  METER  OUT  THE  APPROPRIATE  NUMBER  OF  PULSES  TO  THE  I MU  ERROR  COUNTERS  AND  PREVENT 
OVERFLCW,  10  CONTROL  THE  RELAY  SEQUENCING,  AND  TO  AVOID  INTERFERENCE  WITH  THE  COARSE  ALIGN  LOOP  WHICH  ALSO  USES 
THE  DACS.  _ _ _ _ _ - _ ____  _ 

RQ246 — 

--CAT-L-I-NG-SE-CUEN-CE-: 

R0247 

RQ24-9 — 

DURING  THE  INITIALIZATION  SECTION  OF  THE  USER'S  PROGRAM,  BIT3  OF  RCSFLAGS  SHOULD  BE  SET  TO  INITIATE  THE 
TURN— GN  FFQlIFNrF  WITHIN  THF  NFFD1  FS  PROGRAM: 

R0250 
RD2  51 

CS  RCSFLAGS  IN  EBANK6 

MASK  3 IT  1 - - --  - - - - - - - - - - __ 

R0252 

ADS  RCSFLAGS 

R02-5-3 — 

THEREAFTER,  I-HE  - A TI I T-UDE  ERRORS  GENERATED  BY  THE  USER  SHOULD BE-  TRANSFER  ED-  TJX  THF  FOLLOWING  LOCATIONS  IN  EBANK6 : 

R 02  55 
- R02  56- 
R0257 

AK  SCALED  180  DEGREES  NOTE:  THESE  LOCATIONS  ARE  SUBJECT 

- AK1  SCALED  18.0  DEGREES  - . TO  CHANGE 

A K2  SCALED  180  DEGREES 

R02  58 — 

R0260 

F-UL-L  SCALED  DEFLECT  I-ONOF  THE  NEEDLES  CORRESPONDS  J-Q-.5  1/16  fJFGRFFS,  WHTIF  384  BITS  IN  THF  I MU  ERROR  COUNTFR 

CORRESPONDS  TO  42  3/16  DEGREES.  { DAC  MAXIMUM  CAPACITY  IS  384  BITS.)  46  BITS  EFFECTIVELY  PIN  THE  NEEDLES. 

— RD262 — 

-A  -CALL— TO  -NFEDLER  WILL  THEN  U-PD-ALE-IHE  DISPLAY-: 

R0263 

R0Z64 — 

R0265 

R0266 

INHINT 

TC I BNKCALL MflXEJ EBANK  SHOULD  BF  SET  TO  E6 

CADR  NEEDLER 

REL INT 

R 02  6 7 
R 02  69 
R.027-0 

THIS  PROCESS  SHOULD  BE  REPEATED  EACH  TIME  THE  ERRORS  ARE  UPDATED.  AT  LEAST  3 PASSES  THRU  THE  PROGRAM  AR F 
REQUIRED  BEFORE  ANYTHING  IS  ACTUALLY  DISPLAYED  ON  THE  ERROR  METERS. 

-JLQJ-E-:-  EACH  r.AI  1 T C NFFDLFR  MUST  BF  SEPARATED  BY  AT  LEAST  50MS  TO  ASSURE  PROPER  RELAY  SEQUENCING. 

R 02  72 
R 02  73  _ 

ERASABLE  USED: 

- — -----  - _ - AK  _ CDUXC MD 

R0274 
R0275 
R 0276 

AK1  CDUYCMD 

AK2  CDUZCMD 

EDRIVEX  Aj/tQ 

R 02  77 
R 02  78 

EDRIVEY  T5TEMP 

EDRIVEZ  DINDX 
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R0279  SWITCHES:  RCS  FLAGS  BITS  3,2 

R02  80 I-/C— C-HANNEL-S  : C44AN-12 B-IJ  4- ( COARSF  AL IGN  - -READ —O-NI-YJ 

R0281  CHAN  12  BIT  6 (IMU  ERROR  COUNTER  ENABLE) 

r 02  82  CHAN14  BIT  13,14,15  ( DAC  ACTIVITY) 


R0283  SIGN  CONVENTION<  AK  = THETAC  - THETA 

-R-G2-&4 WHERE T-HETAC  = COMMAND  ANGLE 

R0285  THETA  = PRESENT  ANGLE 


0286 

REF 

14 

LAST 

1409 

20,2322 

3 1273 

0 

NFEDLER 

CA 

RCSFLAGS 

0287 

REF 

28 

LAST 

13  6 4 

20, 2323 

7 6241 

1 

MASK 

SIX 

0.2  88 

20  ,-2324 

0 0.00.6 

1 

EXTEND 

0289 

REF 

1 

20, 2325 

1 2362 

0 

BZF 

NFEDLFS3 

0290 

REF 

44 

LAST 

140  5 

20,2326 

7 47  51 

1 

MASK 

B I T 3 

0291 

20,2  32  7 

0 0006 

1 

EXTEND 

0292 

REF 

1 

20,2330 

1 2353 

l 

BZF 

NEEDLER2 

BIT3  = 0,  B I T 2 = L 

0293 

R F-F 

6_0 

1 ART 

140  5 

20-,J>331 

4 4746 

1 

AS 

B IT6 

-FIRST  PASS  B 1 13  = 1 

0294 

20,2332 

0 0006 

1 

EXTEND 

DISABLE  IMU  ERROR  COUNTER  TO  ZERO  DACS 

0295 

REF 

66 

LAST 

1408 

20, 2333 

03  012 

1 

WAND 

C HAN  12 

MUST  WAIT  AT  LEAST  60  MS  BEFORE 

-02  9-6-  - 

RJ^F  7 75 

LAST 

14  0 8 

20,-2  334 

A 475_5 

0 

NEE  DLE1 1 

r.s 

Z-ERO 

ENABLING  COUNTERS. 

0297 

RFF 

20 

LAST 

141  1 

20, 2335 

55' 757 

1 

TS 

AK 

ZERO  THE  INPUTS  ON  FIRST  PASS 

0298 

REF 

1 

20,2336 

55*  760 

0 

TS 

AKl 

02-0-9- 

R-F  f 

1 

_20,  ? 337 

55*761 

1 

TS 

A K2 

0300 

REF 

3 

LAST 

152 

20 j 2 340 

55' 762 

1 

TS 

EDR I VEX 

ZERO  THE  DISPLAY  REGISTERS 

0301 

REF 

1 

20,2341 

55' 763 

0 

TS 

FDR  I VEY 

0^02- 

R-iF 

1- 

_ 20,2  342- 

5 5*  -7  6 4 

1 

TS 

FDR  1 VEZ 

0303 

REF 

4 

LAST 

1307 

20,2343 

54  050 

0 

TS 

CDUXCMO 

ZERO  THE  OUT  COUNTERS 

0304 

REF 

2 

LAST 

189 

20,2  344 

54  051 

1 

TS 

CDUYCMD 

0305  . 

REF 

_ 2 -LAST 

190 

20, 2345 

54__Q5-2 

L 

TS 

CDUZ  C-MD 

0306 

REF 

29 

LAST 

141  3 

20, 2346 

4 6241 

1 

CS 

SIX 

RESET  RCSFLAGS  FOR  P AS  S 2 

0307 

REF 

15 

LAST 

141  3 

20,2347 

7 1273 

1 

MASK 

RCSF  LAGS 

- - 0308  _ 

-RE-L 

56 

LAS.T 

J.3  8 7 

20,-2  3 50  , 

6 4752 

0 

AD 

BIT2 

0309 

REF 

16 

LAST 

141  3 

20,2351 

55*273 

1 

TS 

RCSF  LAGS 

0310 

REF 

3 

LAST 

141  1 

20,2352 

1 2442 

0 

TCF 

P FTNMORE 

0311  REF  61  LAST  1413  20,2353  3 4746  0 NEEDLER2  CAF  BIT6 

0312  20,2354  0 0006  1 EXTEND 

03-13 Rif 67 LAST  1413 20,-2 355 05  01  2 1 WOR  C HAN  12 

0314  REF  30  LAST  1413  20,2356  4 6241  1 CS  SIX 

0315  REF  17  LAST  1413  20,2357  7 1273  1 MASK  RCSFLAGS 

0316 REE 18 L AST  1413- 20, -23-60  55 '7  73  1 _ TS ROSE  LAGS 

0317  REF  4 LAST  1413  20,2361  1 2442  0 TCF  RFTNMOPE 


-0314 

REF 

6-2— 

_L  AS  T-  -1A-1-3 

20,-23.62- 

3 4746 

__Q_ 

— NEEDLES3— CAE 

R TT6 

CHECK  TO  SEE  IF  T MU  FRROR  COUNTER . 

0319 

0320 

REF 

68 

LAST  1413 

20,2  363 
20,2364 

0 0006 
02  012 

1 

0 

EXTEND 

RANO 

C HAN  1 2 

IS  ENABLED 

ENABLE  IMU  ERROR  COUNTERS 


RESET  RCSFLAGS  TO  DISPLAY  ATTITUDE 
ERRORS  WAIT  ATLEAST  4 MS  FOR 
RELAY  CLOSURE 
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0321 

0322 

REF  486 
REF  1 

LAST 

1410 

20.2365 

20.2366 

1 0 000 
1 2373 

0 

0 

CCS 
TC  F 

A 

NEEDLES 

IF  NOT,  RF-INIT  I A L I Z E NEEDLER. 

0323 

REF  19 

LAST 

141  3 

20,2367 

4 1273 

1 

CS 

RCSFLAGS 

SET  UP  INITIALIZATION  FLAG  IN  RCSFLAGS. 

0324 

REF  45 

LAST 

141  3 

20, 2 370 

7 4751 

1 

MASK 

BIT3 

032-5 

REF  20- 

LAST. 

— L41-4_ 

20, 2371 

27' 273 

-1— 

ADS 

RCSFLAGS 

0326 

REF  5 

LAST 

141  3 

20,2372 

1 2442 

0 

TC  F 

R FT  N MOP  E 

032  7 

RFF  95 

1 AST 

140  7 

20, 2 373 

3-4J52 

0 

NEEDLES 

CAL 

TWO 

0328 

REF  1 

20, 2374 

54  063 

0 

DACLOOP 

TS 

DINDX 

0329 

REF  1 

20,2375 

4 2434 

1 

CS 

□ NET  FNTH 

RESCALE  INPUTS  TO  + OR  - 1800  DEGREES. 

033X3 

20,  2 376 

0 0006 

1 

_EX  TEND 

0331 

REF  2 

LAST 

1414 

20,2377 

5 0063 

1 

INDEX 

DINDX 

0332 

REF  21 

LAST 

141  3 

20, 2400 

7 1757 

1 

MP 

AK 

0333 

RFE  7 87- 

l ASX 

1409 

- 20,  2 401 

54  001 

1 

TS 

L 

0334 

REF  487 

LAST 

1414 

20,2402 

10  000 

0 

CCS 

A 

0335 

REF  1 

20,2403 

3 2432 

0 

CA 

DACL  IMIT 

0336- 

- 20,2404 

1 2-496 

_Q_ 

TC.F 

12  - 

0337 

REF  2 

LAST 

141  4 

20,2405 

4 2432 

1 

CS 

DACL  IMIT 

0338 

REF  268 

LAST 

14  14 

20, 2406 

6 0001 

0 

AD 

L 

_ 03  39 

- R£F  _l  - 

29,-2407 

- 54  061 

1 

TS 

T5TFMP 

OVFLO  CHK 

0340 

20, 2410 

1 2414 

0 

TC  F 

+ 4 

0341 

REF  488 

LAST 

141  4 

20, 241 1 

50  000 

1 

INDEX 

A 

ON  OVERFLOW  LIMIT  OUTPUT  TO  +-384 

0342 

_ REE 3 . 

L AS  I 

1414 

20,  2412  - 

- 3 2432 

0 

CAF 

DACL  IMIT 

0343 

REF  269 

LAST 

1414 

20,2413 

54  001 

1 

TS 

L 

0344 

RFF  3 

LAST 

14  1 4 

20,2414 

50  063 

1 

INDFX 

DINDX 

-0343 

R-EF  _ 4- 

.LAS  T 

141  3 

20j_2  415 

4 17  62 

1 

CS 

EDPIVFX 

CURRENT  VALUE  OF  DAC 

0346 

REF  270 

LAST 

1414 

20,2416 

6 0001 

0 

AD 

L 

0347 

REF  4 

LAST 

1414 

20,2417 

50  063 

1 

INDEX 

DINDX 

- -0348 

- REF  5- 

-LAST 

_L4-L3_ 

2EU.2-4Z0  - 

26  050 

-0 

ADS 

CDUXCMP 

0349 

REF  5 

LAST 

141  4 

20,2421 

50  063 

1 

INDEX 

DINDX 

0350 

REF  5 

LAST 

141  4 

20, 2422 

23*762 

0 

LXCH 

E DP  I VEX 

0351 

R-E-F  6- 

l AS  T 

14-1  4 

70 f 7 47  7 

10  .063 

0 

CCS 

DINDX 

0352 

REF  1 

20, 2424 

1 2374 

1 

TC  F 

0 AC  L OOP 

0353 

REF  5 

LAST 

1366 

20,2425 

3 7737 

0 

CAF 

13, 14,15 

0354 

20  ,-2426  - 

0 00.0.6 

1 

EXTEND 

0355 

REF  23 

LAST 

1320 

20,2427 

05  014 

1 

WOR 

CHAN  14 

SET  DAC  ACTIVITY  BITS 

0356 

REF  6 

LAST 

1414 

20,2430 

1 2442 

0 

TC  F 

R ETNMORF 

0357 

20, 2431 

77177 

0 

DEC 

-334 

0358 

20,2432 

37200 

1 

D ACL  I MIT 

DEC 

1 6000 

_ 03-5-9 

2.0j  2 433 

00600 

1 

DEC 

384 

0360 

20, 2434 

03146 

1 

ONETENTH 

OCT 

03146 

DECIMAL  +0.L,  SCALED  AT  1. 

0361 

— REE 56 

-LASSE 

13-6  0. 

-4-75-0 

DSPLYALT 

EOUAl S 

BTT4 

100  MS  ALTERNATION  BIT  IN  RCSFLAGS 

20-,  2435 54  0 07-  1 OVERSUB2  IS Z 

20.2436  0 0002  0 TC  0 

20.2437  50  000  1 INDEX  4 


0342 

0363 

0364 


RFF  395  LAST  L403 
REF  489  LAST  1414 


RETURNS  A UNCHANGED  OR  LIMITED  TO 
POSMAX  OR  NFGMAX  IF  A HAS  OVERFLOW 


I -9  :-02-  -N0AU 5_, -1-9  6 8 LMQAE- 


.01 2 PAGF  -1.415 
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0365 

REF 

7 

LAST  1393 

20, 2440 

4 4734 

1 

CS  LIMITS 

DUPLICATE  CODING  IN 

BANK  16 

0366 

REF 

396 

LAST  19 1 4 

20,2441 

0 0002 

0 

TC  3 

0367 

20,2442 

0 0006 

1 

RFTNMORE 

EXTEND 

RETURN  TO  CHEKMORE 

pnt p 44^ 

3 2 4 4-6- 

_Q  _ 

DC  A MOR  F CADR  _ _ _ 

0369 

20,2444 

5 2 0 06 

0 

DTC  8 

f At  1 «S^7 

E R tiUK^—A  C S 0 

0371 

REF 

1 

20,2445 

020  16 

1 

MORECADR 

2C ADR  CHEKMORE 

0371 

REF 

1 

20,2446 

34106 

1 
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0001 

0002 

REF 

2 

LAST  1405 

16, 2210 
16, 2000 

16,2210  - - 

BANK 
SETLOC 
BANK  _ 

16 

DAPS1 

0004 

REF 

R p p 

3 

l 

LAST  1410 

E 6 , 1462 

EBANK= 

COUNT* 

PERPOR 

$ I/.D  APP.  _ . . 

R0006 
r nan  r 

THE 

-THE 

FOLLOWING  T5RUPT  ENTRY  BEGINS  THE  PROGRAM  WHICH  CONTROLS  THE  P-AXIS  ACTION  OF  THE  LEM  USING  THE  RCS  JETS. 
AIPM-TMAI.  TIMF  R FXWJLFlsL  T H F P-AXIS  RUPTS  IS  100  MS  IN.  ALL  NON-IDLING  MODES  ;’T  I HE  DAP. 

0010 
OD  1 1 

REF 

-R-E-F 

2 

-6- 

LAST  1407 
-U\SJ  14.0  7 

16.2210  3 7726  0 

16.2211  2Jb  -03-0  0. 

PAX  IS 

CA 

ADS.  _ 

MS100 
T IMF  5 

***  NECESSARY  IN  ORDER  TO  ALI  OW  SYN- 

A001L5 

R-PP 

] ^ 

j T 140  6 

1 6 1 2 ? 1 2 2 2 0 16  0 

LXCJH 

RANKPJJPT 

C.  HRON  I Z AT  I ON  WITH  OTHER  INTERRUPTS  *** 
1 NTFRRIIPT  1 FAn  IN  (CONTINUED) 

0013 

0014 

REF 

12 

LAST  1406 

16. 2213  0 0006  1 

16. 2214  22012  1 

EXTEND 

QXCH 

OPUPT 

R0015 

CHECK  IF 

DAP  PASS  IS 

PERMISSIBLE 

_ 00-1-6 

R-i-F 

2 

LAST  140  7 

1 6»  2215  1 1*  755  0 

CC-S 

DAPZRUPT 

IF  0 AP  7R  l IP  T PnSTTIVF.  DAP  (JASK!  IS 

0017 

REF 

i 

16,2216  0 5634  0 

TC 

BAILOUT 

STILL  IN  PROGRESS  AND  A RESTART  IS 

0018 

16,2217  02000  0 

OCT 

02000 

CALLED  FOR.  IT  IS  NEVER  ZERO. 

0019 

REF 

2 

LAST  1406 

16,2220  0 2000  0 

TC 

CHEKBITS 

RETURN  IS  TO  1+1  IF  DAP  SHOULD  STAY  ON. 

ROD  2© 

— — K A-LG-M-A  NLMJA-R-AND—  "-R  AIE^HO  LOP-DAP 

INTERFACE 

R0021  THE  FOLLOWING  SECTION  IS  EXECUTED  EVERY  100  MS  (10  TIMES  A SECOND)  WITHIN  THE  P-AXIS  REACTION  CONTROL  SYSTEM 
-R0023 ALLT-QP  IlOT  (WHENEVER  THE  DAP  IS  IN  tlPFR  AT  TONI  . - 


0024 
0025 

REF 

0026 

REF 

0027 

REF 

0028 

RFF 

0029 

RFF 

0030 

0031  

-REF 

0032 

RFF 

0033 

REF 

003-4- 

R£-F_ 

0035 

0036 

REF 

0037 — 

REF 

0038 

REF 

0038  1 
0038.2- 

REF 

00383 

00384 

REF 

17  LAST  1403 


6 LAST  1403 
1 

18 I AST  1416 

4 LAST  1403 

3 LAS  114.0  3 

2 LAST  1416 

5 LAST  1416 

_5 I AST  1403 

3 LAST  1403 

3 LAST  1416 

6 LAST  1416 


16,2221 

3 1633 

0 

CA 

C DUX  D 

16,2222 

0 00  06 

1 

EXTEND 

16, 2223 

21*636 

1 

MSU 

DELCDUX 

16, 2224 

0 2245 

0 

TC 

1 STOTWOS 

16, 2225  . 

55*633 

1 

TS 

C [ U X 0 

16,2226 

3 1634 

1 

CA 

C DU  YD 

16,2227 

0 0006 

1 

EXTEND 

16,2230  . 

21*637 

0 

MSU 

DELI  DUY 

16,2231 

0 2245 

0 

TC 

I STOTWOS 

16, 2232 

55*634 

0 

TS 

CDUYD 

16,-2233— 

_ 3-  1635 

0 

XA 

r.nuzD 

16, 2234 

0 0006 

1 

EXTEND 

16,2235 

21*640 

0 

MSU 

DELCDUZ 

1-6,2236- 

0_  2243 

0 

TC 

1 STOTWOS 

16,2237 

55*635 

1 

TS 

CDUZD 

16, 2240 

0 0006 

l 

EXTEND 

16,-2241 

27*443 

1 

DIM 

TCP 

16,2242 

0 0006 

1 

EXTEND 

16, 2243 

27*455 

0 

DIM 

TCOR 

DIMINISH  MANUAL  CONTROL  DIRECT  R AT  F 
TIME  COUNTERS. 


1 
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A0039  RATELOOP  COMPUTFS  JFTRATEQ,  JETRATER,  AND  1JACC*N0.  PJETS  IN  ITEMP1. 

A0040  RETURNS  TO  BACKP. 


AOOAl  JETRATE  = 1JACC*N0. PJETS *TJP  (NOTE  TJ  IS  THE  TIME  FIRED  DURING  CSP) 

AQ042 JETRATEQ=  1 J.ACCQ1  T JU&NQ.UJ.E-TS-  -.-.T.J.VJlN.Q^LJ£LSJ 

A0043  J FT  R ATER=  1 J ACC P ( T JU*NO . U JETS  + T J V*NO. V JE TS ) 


0044 

REF 

1 

16,2244 

1 3624 

0 

TCF 

RATELOOP 

0045 

RFF 

490 

LAST 

141  4 

16, 2245 

10  000 

0 

1 ST  OT  WO  S 

CCS 

A 

REF 

1 57- 

J AFT 

13  9 6- 

1-6,  2 246 

6 4753 

1 

AD 

ONE 

0047 

REF 

397 

LAST 

141  5 

16,2247 

0 0002 

0 

TC 

Q 

0048 

REF 

491 

LAST 

141  7 

16, 2250 

4 0000 

0 

CS 

A 

nn4Q 

RFF- 

3 98 

4 AST 

14  1 7 

16  ,-2  2-5  1 

0 0002 

0 

.TC  . . 

-3 

0050 

16, 2252 

0 0006 

1 

SUBOIVDE 

EX  TEND 

OVERFLOW  P ROC  T I ON  ROUTINE  TO  GIVE 

0051 

REF 

3 

LAST 

148 

16,2253 

7 1737 

1 

MP 

DAPTEMP3 

POSMAX  OR  NEGMAX  IF  THE  DIVIDE  WOULD 

005? 

-REF 

3- 

LAST 

44  5 

16  ,-2254- 

21' 4-25 

1 

DAS  - 

□MFC AU 

OVERFLOW 

0053 

16, 2255 

0 0006 

1 

+ 3 

EXTEND 

00  53  1 

_ REF 

4 

LAST- 

14  1 7 

L6  *-2-2-5  6 

3 142  5 

0 

DC  A 

□MFGAU 

00532 

REF 

2 

LAST 

146 

16,2257 

5 3 ' 742 

0 

DXCH 

DAPT  EMP5 

00533 

REF 

5 

LAST 

141  7 

16,2260 

1 1'424 

0 

CCS 

OMEGAU 

0054 

16, 2261 

1 -2263- 

0 

TCF 

+ 2 

0055 

REF 

1 

16,2262 

1 2273 

1 

TCF 

DIV I DEP 

0056 

REF 

1 

16,2263 

6 2 3 04 

1 

AD 

-PCT630 

- 3-057 

- 16, 2-264 

0 -00.06- 

-L 

EX  TEND 

0058 

REF 

2 

LAST 

141  7 

16, 2265 

6 2273 

0 

BZMF 

DIV  I DER 

0 ft  5 Q 

RFF 

6- 

-1  AST 

44-1  7 

1 1*474 

n 

ms 

CNF  G AU 

0060 

REF 

36 

LAST 

1407 

16, 2267 

3 4733 

1 

CA 

POSM  AX 

45  DEG/SEC 

0061 

REF 

399 

LAST 

141  7 

16,2270 

0 0002 

0 

TC 

0 

00^2-- 

RFF- 

37 

LAST 

14  1 7 

16, 2271 

4 47  33 

0 

CS 

P QS  MAX 

0063 

REF 

400 

LAST 

141  7 

16,2272 

0 0002 

0 

TC 

0 

0064- - 

— R-FF 

J- 

—LAST 

141  7 

16, 2273 

- 53' 425 

1 

DIVIDER 

-DXCH 

-O-KEG  A U 

0065 

16, 2274 

0 0006 

1 

EXTEND 

0066 

RFF 

74 

LAST 

141  1 

16,2275 

10  061 

l 

DV 

ITFMPI 

0067— 

—RFF 

4-01- 

— LAST 

1417 

16,  2-276 

0 0002 

Q 

TC 

Q 

0068 

16, 2277 

54  007 

1 

OVERSUB 

TS 

7 

RETURNS  A UNCHANGED  OR  LIMITED  TO 

0069 

- REF 

-4-0-2— 

- LAST 

1417 

. -16-,_2-30H  _ 

0.  0.0-02 

-0  . 

TC 

0 

POSMAX  OR  NEGMAX  IF  A HAS  OVERFLOW 

0070 

REF 

492 

LAST 

1417 

16,2301 

50  000 

1 

INDEX 

A 

0071 

REF 

52 

LAST 

1399 

16, 2302 

4 4734 

1 

CS 

BIT15  -1 

0072— 

REF 

403 

-LASJL- 

141  7 

16,2_303  - 

0 . 0.0  02 

0 

TC 

Q 

0073 

16, 2304 

77147 

0 

-0CT630 

OCT 

7714  7 

0074 

REF 

19 

LAST 

15  2 

16,2305 

3 1735 

1 

BACKP 

CA 

DAPTFMP1 

0075 

16,2  306 

0 0006 

1 

EX  TEND 
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USER'S  PAGE  NO.  3 F6  S4 

0076 

0077 

REF  7 LAST 

REF  3 LAST 

917 

147 

16,2307 
16, 2310 

7 1530  1 
5 5 ' 743  1 

MP 

TS 

BEG  INN ING  OF 

1 J AC  C 
JETR  ATE 

THE  PAT*  Pf  R I V AT  I ON 

A0079 
A0080 
Anns  l 

OME  G AP , Q , R 
TRA  PER , 0 , R 
-NPi  QR)  TRAPS 

BODY  RATES  SCALED  AT  PI/4 

BODY  ANGLE  ERRORS  FROM  PREDICTED  ANGLE  (PI/40) 
NUMREP  OF  TIMES  ANGLE  ERROR  HAS  BEEN  ACCUMULATED 

A0082 

A0083 

A0&E4 

AOSOI R) TERM 
JETRATE,Q,R 
TRAPSIZE 

CHANGE  IN  R AT  F DUE  TO  OFFSET  AC CE LL E RA T ION . (PI/4) 
CHANGE  IN  R AT  F DUE  TO  JET  ACCE LLE RAT  ION . (PI/4) 
\1EGATIVE  LIMIT  OF  MAGNITUDE  OF  TR AP EDP  , EC T . 

A0086 

OME  GAU 

DP-TEMPORARY  STORAGE 

A008  2 IOMEGA  = flMFGA  + .IFTRATF  + ADSTFRM  H-TRAPFD/NTRAPS  IF  TRAP  ED  BIG) 


0088 

REF 

24 

LAST 

14  1 1 

16,2311 

30  032 

0 

CAE  C DU  X 

- 00  89 

REF 

271 

LAST 

1414 

16*2312 

54  001 

1 

TS  L 

0090 

16, 2313 

0 0006 

1 

EXTEND 

0091 

REF 

4 

LAST 

1407 

16, 2314 

2 1 ' 436 

0 

MSU  OLDXFORP 

SCALED  AT  PI 

. 0092- 

R-i-F 

5 

LAS-T 

14-1  8 

-1 6,  2315 

23*43-6 

_L 

LXCH  nLDXFCP.P 

0093 

REF 

20 

LAST 

141  7 

16,2316 

55' 735 

0 

TS  DAPTEMP1 

0094 

REF 

1 

16, 2317 

3 3603 

1 

CA  1/40 

009  5 

R-g  F 

75 

l AST 

1-4  1 7 

-16^-2  320 

54  061 

1 

TS  ITEMP1 

0096 

REF 

4 

LAST 

141  8 

16,2321 

4 1743 

1 

CS  JETPATE 

0097 

16, 2322 

0 0006 

1 

EXTEND 

_ 0 0 9-8- 

R^F 

89 

LAS-T 

139  1 

- 16-,.232-3l- 

7 4736 

-0 _ 

M.P  -BIT14 

0099 

REF 

7 

LAST 

1406 

16,2324 

27*426 

1 

ADS  TRAP  EDP 

0100 

REF 

1 

16,2325 

3 1744 

1 

CA  JETRATEQ 

01-0-1- 

REF 

-4 

LAST 

L40  6 

16,  2 326 

6 1545 

J 

AD  ACSQTERM 

0102 

16, 2327 

0 0006 

1 

EXTEND 

0103 

REF 

1 

16, 2330 

7 7735 

0 

MP  -BIT14 

0-104 

- REF 

2- 

-LAST 

14.0-6 — 

16*  233 1 

.2  7*  427 

0 

ADS  TRAP  EDO 

0105 

REF 

1 

16, 2332 

3 1745 

0 

CA  JETRATER 

0106 

REF 

3 

LAST 

1406 

16, 2333 

6 1546 

1 

AD  AOSPTEPM 

— 0107- 

16*-2334 

0 0006 

1 

EXTEND 

0108 

REF 

2 

LAST 

141  8 

16,2335 

7 7735 

0 

MP  -BIT14 

0109 

REF 

2 

LAST 
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0 

DAS  AOSQ 

0259 

REF 

19 

LAST 

1422 

16, 2617 

3 1537 

1 

CA  AOSQ 

0260 

REF 

5 

LAST 

1422 

16, 2620 

55*422 

0 

TS  ALPHAO 

0261 

16,2621 

0 00  06 

1_ 

EXTEND 

0262 

REF 

I 

16,2622 

7 3601 

1 

MP  200MS 

.2  AT  1 

0263 

REF 

7 

LAST 

1422 

16,2623 

55' 545 

0 

TS  AOSOTEPM 

JO-2-64  _ 

RFF 

2 

—LAST 

1406 

16, 2624 

3 1512 

n 

CA  P ACC  DOT 

0265 

16, 2625 

0 0006 

l 

EXTEND 

0266 

REF 

4 

LAST 

1422 

16,2626 

7 4 7 66 

0 

MP  CALLCODE 

OCTAL  00032  IS  DECIMAL  .1  AT 

2(6)  . 

0263 

-REE 

_ 7 

LAST 

1422 

16, 2627 

21' 542 

1 

DAS  A I S P 

0268 

REF 

8 

LAST 

1422 

16, 2630 

3 1541 

0 

CA  AOSP 

0269 

REF 

4 

LAST 

1422 

16,2631 

55 ' 423 

1 

TS  ALPHAR 

0270 

16, 2 632 

0 0006 

1 

EXTFND 

0271 

REF 

2 

LAST 

1422 

16, 2633 

7 3601 

l 

MP  200MS 

.2  AT  1 

0272 

RFF 

6 

LAST 

14  2 2 

16, 2634 

55' 546 

0 

TS  AOSPTFRM 

RX1233 

0274 

REF 

1 

16,2635 

3 4747 

1 

PAXFILT 

CA  CALL  GMRL 

EXECUTF  ACDT+C12,  IF  NEEDED. 

02742— 

J2EF 

21 

LAST 

141  4 

16,  2636 

7 1273 

1 

MASK  R C SF  LAGS 

02744 

REF 

494 

LAST 

142  2 

16,2637 

10  000 

0 

CCS  A 

CALLGMBL  IS  NOT  RIT15,  SO  THIS  TEST  IS 

02746 

REF 

1 

16,2  640 

0 3721 

0 

TC  ACDT+C12 

VAL ID. 
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0275 

REF 

12 

LAST 

1124 

16,2641 

52  Oil 

0 

DXCH 

ARUPT 

0276 

REF 

4 

LAST 

152 

16,2642 

53*752 

l 

DXCH 

DAPARUPT 

n?  77 

REF 

1 

16, 2 6-43  - 

3 26  54 

1 

-CA 

JS-U-EEPJOB  . 

SETTING  UP  THE  SUPERJOB 

0278 

REF 

3 

LAST 

1377 

16, 2644 

56  017 

l 

XCH 

B P UP  T 

0279 

REF 

13 

LAST 

1416 

16,2645 

22  0 12 

l 

LXCH 

QPUPT 

02  80 

R F F 

1 

16,2-646 

-5.3' 75.4 

l 

DXCH  _ 

DAPBORPT 

0281 

REF 

1 

16, 2647 

3 2653 

0 

CA 

SUPERADR 

0282 

REF 

1 

16,2650 

52  016 

1 

DXCH 

ZPUPT 

02  8 3-  - 

REF 

3- 

LAST 

JL416 

16, 2651 

. 53' 756 

-0 

DXCH 

DAPZ  RUPT 

0284 

REF 

i 

16, 2652 

1 52  75 

0 

TCF 

NOQBRSM  +1 

RELINT  (JUST  IN  CASE)  AND  RESUMF,  IN  THE 

A0285 

FORM  OF  A JASK,  AT  SUPERJOB. 

0286 

REF 

2 

LAST 

14  2 3 

16, 2653 

02655 

0 

SUPERADR 

GENADR 

SUPE  P JOB  +1 

R0287 

COUNT 

DOWN  GIMBAL  DRIVE  TIMERS  AND  TURN 

OFF  ORIVES  IF  RFQG I RED. 

0288 

REF 

4 

LAST 

140  7 

16,2  654 

11*630 

1 

SUPERJOB 

CCS 

QGIMTIMR 

Q-AXIS  GIMBAL  DRIVE  TIMER 

0289 

REF 

1 

16, 2655 

1 2667 

0 

TCF 

DECCTIMR 

POSITIVE-  COUNTING  DOWN 

02  <5-0 

REF 

1 

16 ,2-656 

1 -26  73. 

0- 

TCF 

TURNOFFQ- 

NEGATIVE-  DRIVE  SHOULD  BE  ENDED 

0291 

RFF 

2 

LAST 

140  7 

16,  2 657 

1 1' 632 

0 

CHKRT I MR 

CCS 

RGI MTIMR 

NEGATIVE-  INACTIVE 

0292 

REF 

1 

16,2660 

1 2671 

1 

TCF 

DECRTIMR 

(NEG  ZERO-  IMPOSSIBLE) 

02  93- 

-RE-F 

1 

16,26.61 

1 2 703 

0 

TCF 

TURNOFFR 

REPEATED  (ABOVE)  FOR  R AXIS. 

0293  1 

REF 

48 

LAST 

1407 

16, 2662 

3 4740 

0 

CA 

B I T 1 2 

02  93  2- 

RFF 

22 

XJVS-I  _L  4-2-2— 

16,2663 

7 1273 

1 

MASK 

R C SF LAGS 

0294 

16, 2664 

0 0006 

1 

EXTEND 

02941 

REF 

i 

16, 2665 

1 2713 

1 

BZF 

SKIPPAXS 

-02-942 

-RF-F 

1 

IS  ,2-666 

0 -2717- 

1 

TC  . 

CHJKV  I SF  Z 

0295 

REF 

5 

LAST 

142  3 

16,2667 

5 5 ' 630 

1 

DEC QT I MR 

TS 

QGIMTIMR 

COUNT  TIMERS  DOWN  TO  POS  ZERO. 

0296 

REF 

1 

16, 2670 

l 2657 

0 

TCF 

CHKPTIMR 

029  7 

RFF  . 

- 3- 

- LAST 

142  3 

16-f~2-6Xl 

5 5 '-6  32- 

0 

DECRT I M R_ 

TS 

RGI MTIMR 

0298 

REF 

2 

LAST 

142  3 

16, 2672 

1 2662 

0 

TCF 

CHKPTIMR  +3 

0299 

—RFF  - 

4 

1 AFT 

1 4-0  6 

1 f>,  ? A ? 3 

TURNDFFQ 

TS 

_MFC  ILD 

HALT  HR  T y F - 

0300 

REF 

3 

LAST 

1422 

16, 2674 

55' 5 10 

0 

TS 

OACCDOT 

0301 

REF 

1 

16,2675 

4 5007 

1 

CS 

QGIMBITS 

0302 

16,7  6 76 

0 00-06 

1 

EX  TEND 

0303 

REF 

69 

LAST 

141  3 

16,2677 

03  012 

1 

WAND 

C HA  N 1 2 

0304 

REF 

7 

LAST 

11  1 7 

16,2700 

3 4735 

1 

CA  F 

NFSM AX 

- 0305 

REF 

6 

- -LAST 

142  3 

L6 ,271)  1— 

-5-5*63  0 

1 

TS 

QGIMTIMR 

0306 

REF 

3 

LAST 

142  3 

16, 2702 

1 2657 

0 

TCF 

CHKPTIMR 

0307 

REF 

2 

LAST 

1406 

16, 2703 

5 5 ' 5 02 

0 

TURNOFFR 

TS 

NEGUR 

030-8 

-REF 

3 

—LAS-T 

142  2 

16,-2704 

5 5 ' 5 L2_ 

X 

TS 

R ACC  DOT 

0309 

REF 

1 

16, 2705 

4 5020 

1 

CS 

RGIMBITS 

0310 

16,2706 

0 0006 

1 

EXTEND 

0-314 

-REF  _ 

70- 

-LAST- 

J.42  3 

. 16,2707 

03  012 

1 

WAND 

CHAN  12 

0312 

REF 

8 

LAST 

142  3 

16, 2710 

3 4735 

1 

CAF 

NEGMAX 

0313 

REF 

4 

LAST 

142  3 

16,2711 

5 5 ' 632 

0 

TS 

RGI MTIMR 

0344 

R-i-F 

4 

LAST- 

1423 

16  ,-221 2 

1 766? 

0 

Tf  F r HK  R T T MR  +3 

0315 

REF 

n 

LAST 

1297 

5007 

QGIMBITS 

FOUAL  S 

nr  Ti4on 

BITS  9 AND  10  (OF  CHANNEL  12). 

0316 

REF 

4 

LAST 

1280 

5020 

RGIMBITS 

EQUALS 

PRI06 

BITS  11  AND  12  (OF  CHANNEL  12). 
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0317 

REF 

23  LAST 

14  2 3 

16, 2713 

4 1273 

1 

SKIPPAXS  CS 

RCSF  LAGS 

03171 

REF 

49  LAST 

1423 

16,2714 

7 4740 

1 

MASK 

B I T 1 2 

_24  4 A<\  T 

14  7 4 

_ ] f 2 71-  5 - 

2 7*2  73 

1 

ADS  - 

9XSF  LAGS 

BIT  12  SFT  TO  1.  _ 

0319 

REF 

i 

16, 2716 

1 3607 

1 

TCF 

ORAX  IS 

GO  TO  ORA X l S OR  TO  GTS. 

-A0320 Y=Z  TRANSLATION 


AO  32 1 

INPUT : 

BITS  9-12  OF  CH3 1 (FROM  TRANSLATION  CONTROLFR ) 

A0322 

OUTPUT: 

NEXTP 

A0373 

. . NEXT  P 

US.  T HE.  CH  ANN  FI 6 CODF 

ELF  J FT S FOR  THF  DESIRED  TRANSLATION. 

A0324 

IF  THERE  APE  FAILURES  IN  THE  DESIRED  POLICY,  THEN 

AOl?  5 - 

( 1 ) 

FOR  _D  I A3-0-N.AL.  T-RANS_: 

IINFAILFD  PAIR 

A0326 

ALARM  (IF  NO  PAIR ) 

AQ^27 

( 2 ) 

F OR  PRINCIP  Al T RAMS  : 

TRY  TO  TACK  WITH  DTAGONAI  PAIRS 

A0328 

ALARM  (IF  DIAGONAL  PAIRS  ARE  FAILED) 

0329 

16, 2717 

0 

0006 

1 

CHKVISFZ 

EXTEND 

03  50 

REF 

S- 

L AS  T- 

14-0  5 

1 6 , 2 7 20 

0 0 03X 

0 

READ  C.HAN31 

0331 

REF 

495 

LAST 

14  2 2 

16,2721 

4 

0000 

0 

CS  A 

0332 

REF 

1 

16, 2722 

7 

3576 

1 

MASK  074  0 OOC  T 

0333- 

-16-,  2 723 

..  0. 

00.0.6 

-L 

EXTEND 

0334 

REF 

1 

16,2724 

1 

2773 

1 

BZF  TSNFXTP 

0335 

16,2725 

0 

0006 

1 

EXTEND 

0336- 

REF 

4 7 

LAST 

129-3- 

16,2726 

xz 

4745. 

1- 

MP  B I T 7 

0337 

REF 

496 

LAST 

14  2 4 

16,2727 

50  000 

1 

INDEX  A 

0338 

REF 

1 

16,  2730 

3 

3555 

1 

CA  INDXYZ 

033-9 

-REE 

1 

- 16,  2 731 

55' 742 

0 

TS  ROT  I NDEX 

0340 

REF 

31 

LAST 

141  3 

16,2732 

3 

6241 

0 

TRYUORV 

CA  SIX 

0341 

REF 

1 

16,2733 

0 

3534 

0 

TC  SELECTYZ 

034-2 

R-EF— 

- 32 

LAST 

142  4 _ 

16, 2734 _ 

4- 

6241 

1 

CS  SIX 

0343 

REF 

1 

16, 2735 

6 

1741 

1 

AD  NUMBEPT 

0344 

16,2736 

0 

0006 

1 

EXTEND 

03-45 

REF 

- Z 

L AS-T 

142-4 

16,273  7 

1 

2772 

0 

BZF  TSNFXTP  -1 

0346 

RFF 

26 

LAST 

142  1 

16,2740 

4 

4756 

0 

CS  FIVE 

0347 

REF 

2 

LAST 

14  2 4 

16,2741 

6 

1742 

1 

AD  ROTINDFX 

034-8 

16,2742 

0 

0006 

1 

EX  TFNP 

0349 

REF 

1 

16,2743 

6 

2761 

0 

SZMF  AITFPYZ 

03  50 

REF 

2 

LAST 

1424 

16,2744 

4 

1741 

0 

CS  NUMBEPT 

- 0351 

REE 

32 

LAST 

140_7 

16.2745 

6 

4751 

0 

AD  FOUR 

0352 

16, 2746 

0 

0006 

1 

EXTEND 

0353 

REF 

3 

LAST 

1424 

16, 2747 

6 

2772 

1 

BZMF  TSNFXTP  -1 

.0354  _ 

_REF 

.47 

-LAST 

13L2 

16, 2750 

0 

5567 

n 

ABORTYZ 

TC  ALARM 

0355 

16, 2751 

02001 

l 

OCT  02001 

0356 

REF 

62 

LAST 

1387 

16,2752 

3 

4753 

l 

CA  BIT1 

INVERT  BIT  1 OF  RCSFLAGS. 

. 0 3.5  .6  1 

REF 

25 

LAST 

1424 

16, 2753 

23'  273 

0 

LXCH  RCSFLAGS 

03562 

16,2754 

0 

0006 

1 

EXTEND 

03563 

16, 2755 

06 

. 001 

0 

RXOR  1 
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03564 

REF 

26 

LAST 

14  2 4 

16,2  756 

55*  273 

1 

TS 

RCSF  LAGS 

0357 

REF 

279 

LAST 

1421 

16, 2757 

3 4755 

1 

CA 

ZERO 

n^R 

REP 

4 

— L AST 

142  4 

16,  2 760- 

1 2773 

1 . 

TC  F 

TSNF  XTP 

0359 

REF 

63 

LAST 

142  4 

16,2761 

3 4753 

1 

ALTER YZ  CA 

8 I T 1 

INVERT  BIT  1 OF  RCSFLAGS. 

0360 

REF 

27 

LAST 

14  2 5 

16,2762 

2 3' 2 73 

0 

LXCH 

RCSF  LAGS 

q^ai 

16*  2 763- 

0 0006 

-L_ 

EXTEND 

0361 1 

16,2764 

06  001 

0 

R X OR 

l 

03612 

REF 

28 

LAST 

142  5 

16,2765 

55*273 

1 

TS 

RCSF  LAGS 

- 036J  3 

RPF  A 4. 

_ p AS  T 

-142  5 

16, 2 764 

7 4753 

0 - 

MASK 

8 1 T 1 

0362 

REF 

33 

LAST 

142  4 

16, 2767 

6 4751 

0 

AD 

FOUR 

0363 

REF 

3 

LAST 

1424 

16, 2770 

27' 742 

0 

ADS 

ROT  I NDEX 

0364 

REP 

l 

1 6f  277  1 

1 7732 

1 - 

TCF 

TPYLLQPV 

0365 

REF 

1 

16, 2772 

3 1737 

0 

CA 

POLY  TEMP 

0366 

REF 

7 

LAST 

140  8 

16,2  773 

5 5 ' 4 70 

1 

TSNEXTP  TS 

NEXT  P 

A 03-6  J 

STATE  LOGIC 

A0368 

CHECK  IN  ORDER: 

IF  ON 

A 03  6.9 

LPDPHASE 

GO  TO  PURGENCY 

A0370 

PULSES 

MINIMUM  PULSE  LOGIC 

A0371 

DETENTIBIT15  CH31) 

RATE  COMMAND 

. A0372 

GO  TO  PURGFNCY 

0373 

REF 

55 

LAST 

1406 

16, 2774 

3 4737 

0 

CA 

8 I T 1 3 

CHECK  STICK  IF  IN  ATT.  HOLD. 

03  74 

16,2775 

0 0006 

1 

EXTEND 

- 03^7-5 

REP 

_ _ 9 

LAST. 

142  4 . 

16,2 776 

0-2-031 

JL  _ 

RAND 

.CHAN_31 

0376 

16,2777 

0 00  06 

1 

EXTEND 

0377 

RFF 

i 

16,3000 

1 3006 

0 

8ZF 

MANMODE 

0378 

REF 

41 

LAST 

1422 

16, 3001 

3 01  11 

0 

CA 

DAPBCOLS 

0379 

REF 

2 

LAST 

909 

16,3002 

7 4743 

1 

MASK 

X 0 V I NH  I B 

- - — Q-3-&0- 

-REP 

-497 

-LAST 

142  4 

— 16-,-3-00-3 

1-0  000 

0 

jC-CS 

A 

0381 

REF 

i 

16,3004 

1 3442 

1 

TC  F 

PURG ENCY 

ATTITUDE  STEEP  DURING  VISIBILITY  PHASE 

03^2 

-R  E P 

1 

1-6*  3 00-5 

1 31)  50 

o 

TCF 

DETF  NTCK 

0383 

REF 

4 

LAST 

747 

16, 3006 

3 4735 

1 

MANMODE  CA 

PULS  FS 

PULSES  IS  ONE  FOR  PULSF  MODE 

0384 

REF 

42 

LAST 

142  5 

16, 3 00  7 

7 0111 

1 

MASK 

DAPBCOLS 

03-85 

16,3010 

0 -0006 

I— 

FXTFND 

0386 

REF 

2 

LAST 

142  5 

16, 301 1 

1 3050 

0 

BZF 

D FT  F NTCK 

BRANCH  FOR  RATE  COMMAND 

03-87 

-RE-F- 

280 

—EAST 

-14-2  5 - 

16, 3012 

3-4755 

1 

. CA 

ZERCL 

0388 

REF 

4 

LAST 

14  16 

16, 3013 

55*462 

1 

TS 

PERROR 

R0389 

MINIMUM 

IMPULSE  MODE 

0390 

REF 

25 

LAST 

141  8 

16, 3014 

3 0032 

0 

CA 

C DU  X 

0391 

REF 

19 

LAST 

1416 

16,3015 

55*633 

1 

TS 

CDUXD 

0392 

REF 

2 

LAST 

1407 

16, 3016 

11*456 

0 

CCS 

OLDPMIN 

0393 

REF 

1 

16,3017 

1 3033 

0 

TCF 

CHECKP 

0394 

0395 


REF  46  LAST  14 1 4 


16.3020  3 4751  0 FIREP 

16.3021  0 0006  1 


CA  8 I T 3 

EXTEND 
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0396 

REF  10  LAST  1425 

16,3022 

02  031  1 

RAND  CHAN31 

03  97 

16, 3023 

0 0006  1 

EXTEND 

039B REF 1 16,3024 1 3043-J BZF + X.HI  N 


0399 

REF 

57 

LAST 

1414 

16, 3025 

3 4750 

1 

CA 

B I T 4 

04-CXO 

16,3  026 

0-00  06- 

J 

EXTEND 

0401 

REF 

11 

LAST 

142  6 

16,3027 

02  031 

1 

RAND 

CHAN  31 

0402 

16,3030 

0 00  06 

1 

EXTEND 

0403 

RFF 

1 

16,3031 

1 3041 

„0 

BZF  _ 

- X M I N 

0404 

REF 

1 

16,3032 

1 3421 

1 

TCF 

JETSCFF 

0405 

16, 3033 

0 00  06 

1 CHECKP 

EXTEND 

0406 

REF 

12 

LAST 

142  6 

16,3034 

00  031 

0 

READ 

CHAN  31 

0407 

RFF 

4 98 

4_  AST- 

04-2  5 

16,  3 035 

4 0000 

.0 

CS 

A 

0408 

REF 

6 

LAST 

1325 

16, 3036 

7 5742 

1 

MASK 

OCT  1 4 

0409 

REF 

3 

LAST 

1425 

16, 3037 

5 5 ' 4 56 

0 

TS 

OLDPMIN 

0410 REF 2 LAST  142  6 16,3  040  . 1 3421 L _ TC  F JET SOFT 


0411 

REF 

9 

LAST 

1407  16,3041 

4 4363  1 

— XM  IN 

CS 

TEN 

ANYTHING 

LESS  THAN 

14MS.  CORRECTED 

0412 

16,3042 

1 3044  0 

TCF 

+ 2- 

IN  JET 

SELECT  ION 

ROUTINE 

0413 

REF 

10 

LAST 

1426  16,3043 

3 4363  0 

HXMI  N 

CA 

TEN 

0414 

REF 

4 

LAST 

1406  16,3044 

5 5 ' 5 24  1 

TS 

T JP 

__0  4-L5- 

RTF 

-L5-8- 

LAST 

1417  16,  3045 

3 4753  1 

CA 

ONE 

0416 

REF 

4 

LAST 

1426  16,3046 

5 5 ' 456  0 

TS 

DLDPMIN 

0417 

REF 

1 

16,3047 

1 3327  0 

TCF 

PJETSLEC 

-6 

R0418 

MANUAL  RATE  COMMAND  MODE 

R0419 

— 

BY  ROBERT  F 

• -STEWG-FL 

R0421 

R0421 1 

THIS 

MODE 

PROVIDES  RCAH  MANUAL  CONTROL 

THRU  2 

CONTROL 

LAWS: 

l ) 

DIRECT  RATE  AND  2)  PSEUDO-AUTO. 

R0421 3 

--T-HE-- 

DIRECT  P.  A T E-M  ODE— AEF  ORDS 

IMMEDIATE 

CONTROL 

WTTH.OUT 

OVERS  HOOT. 

THE 

PSFUOO-AUTO 

MODE  PROVIDES  PRECISE 

R0421  5 R AT  F CONTROL  AND  ATTITUDE  HOLD. 

R 042 1 6 

R 0 4 2 17  IN  D1RFCT  RATE,  .IFTS  ARE  FIRED  WHF N STICK  PDSTTT ON  CHANGES  BY  A FIXFD  NUMBER  OF  INCREMENTS  IN  ONE  DAP  CYCLE. 

R04219  THE  'BREAKOUT  LEVEL*  IS  .6  D/S  FOR  LM-ONLY  AND  .3  0/S  FOR  CSM-DOCKED.  THIS  LAW  NULLS  THE  RATE  ERROR  TO  WITHIN 

R04221  THE  'TARGET  DEADBAND',  WHICH  EQUALS  THE  BREAKOUT  LEVEL. 

_ R0422-2 LN— PSFUDO-A1ITO,  BnPY-FTXFO  RATF  AND  ATTTTUDF  FRRORS  ARE  SUPPLIED  TO  TJETLAW,  WHICH  EXERCISES  CONTROL. 

R04224  CONTROL  SWITCHES  FROM  DIRECT  RATE  TO  PSEUDO-AUTO  IF  THE  TARGET  DB  IS  ACHIEVED  OR  IF  TIME  IN  (1)  EXCEEDS  4 SEC. 
R04226  IF  THE  INITIAL  COMMAND  DOES  NOT  EXCEED  THE  BREAKOUT  LEVEL,  CONTROL  GOES  TO  PSEUDO-AUTO  IMMEDIATELY. 

R0422  8 

R04229  SINCE  P-AXIS  CONTROL  IS  SEPARATE  FROM  Q,R  AXES  CONTROL,  IT  IS  POSSIBLE  TO  USE  (1)  IN  P-AXIS  AND  (2)  IN  Q, R AXES, 
R04231  OR  VICE  VERSA.  THIS  ALLOWS  A DEGREE  OF  ATTITUDE  HOLD  IN  UNCONTROLLED  AXES.  DUE  TO  U,V  CONTROL,  HOWEVER,  0 AND 

RO-4233 R AXFS  ARE  COUP!  FD  AND  MUST  1ISF  THF  SAME  CONTROL  LAW. 

R04234 

R04235  HAND  CONTROLLER  COMMANDS  ARE  SCALED  8Y  A L I NE AR /QU A DR  A T I C LAW.  FOR  THE  LM-ALONE,  MAXIMUM  COMMANDED  RATES  ARF  20 

— R 042327  -AND  4 HAS. . I N NORMAI  AND  F INF  SC.A1ING:  HOWEVER.  STICK  SENSITIVITY  AT  ZERO  COUNTS  (OBTAINED  AT  A STICK  DEFLECTION 

R04239  OF  2 CEGREES  FROM  THE  CENTERED  POSITION)  IS  .5  OR  .1  P/S  PER  DEGREE.  NORMAL  AND  FINE  SCALINGS  FOR  THE  CSM-DOCKED 
R04241  CASE  IS  AUTOMATICALLY  SET  TO  1/10  THE  ABOVE  VALUES.  SCALING  IS  DETERMINED  IN  ROUTINE  3. 
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A04243 

ZEROENBL 

ENABLES  COUNTERS  SO  THEY  CAN  BE  READ  NEXT  TIME 

A0425 

JUSTOUT 

FIRST  DETECTION 

OF  OUT  OF  DETENT  (BY  OURRCBIT) 

A0427 

0430 

16,3050 

0 

0006 

1 

OETENTCK 

EXTFNO 

0 4^.1  - 

RF-E 

1 3 

—LAST 

143  6 

1 6,3JD51 

_ 00  031 

0 

READ  . _ 

CHAN31 

0432 

REF 

i 

16, 3052 

55,441 

0 

TS 

CH31TEMP 

0433 

REF 

53 

LAST 

141  7 

16, 3053 

7 

4735 

0 

MASK 

B I T 1 5 

CHFCK  OUT-OF-DETENT  BIT. 

0434 

16, 3054 

0 

000.6 

1 

EXTEND 

0435 

REF 

1 

16, 3055 

1 

3202 

0 

BZF 

RHCMOVED 

BRANCH  IF  OUT  OF  DETENT. 

0436 

REF 

1 

16, 3056 

3 

4740 

0 

CAF 

OURRCBIT 

IN  DETENT.  CHECK  THF  RATE  COMMAND  BIT. 

043-7 

RFF 

43 

1 AST 

142  5 

16,3  05  7 

7 

0111 

1 

MASK 

3 A PB OOLS 

0438 

16,3060 

0 

0006 

1 

EXTEND 

0439 

REF 

2 

LAST 

142  5 

16, 3061 

1 

3442 

1 

BZF 

PURG  FNCY 

BRANCH  IF  NOT  IN  RATE  COMMAND  LAST  PASS. 

RQ44X3 

0441 

REF 

35 

LAST 

1386 

16, 3062 

3 

4743 

0 

CA 

B I T9 

JUST  IN  DETENT?? 

0441  1 

REF 

29 

LAST 

142  5 

16, 3063 

7 

1273 

1 

MASK 

RCSF l AGS 

0441  2 

16 , 3 064 

0. 

00.06 

_L_ 

EX  TEND. 

0441  3 

REF 

1 

16,3065 

1 

3077 

0 

BZF 

RUTH 

04426 

REF 

56 

LAST 

1425 

16, 3066 

3 

4737 

0 

CAF 

BIT13 

CHECK  FOR  ATTITUDE  HOLD. 

0442  7 

1-6+3 06  7 

Q_ 

00  06 

1 

EXTEND. 

04428 

REF 

14 

LAST 

1427 

16, 3070 

02  031 

1 

RAND 

C HAN  3 1 

04429 

16, 3071 

0 

0006 

1 

EXTEND 

0443 

R-&E 

1 

16,3072 

1 

3177 

1 

BZF 

RATEDAMP 

BRANCH  IF  IN  ATTITUDF  HOL  D . 

0443  1 

REF 

1 

16, 3073 

4 

5014 

0 

CS 

BITS9.il 

IN  AUTO. 

04432 

R4LF- 

30 

LAST 

L42  7 

L 6,3  074 

7 

12  73 

1 

MASK 

RCSF  LAGS 

(X-AXIS  OVERRIDE) 

04433 

REF 

31 

LAST 

14  2 7 

16, 3075 

5 5 1 2 73 

1 

TS 

RCSF  LAGS 

ZERO  ORBIT  (BIT  11)  AND  JUST-IN  BIT  (9). 

04434 

REF 

2 

LAST 

142  7 

16,3076 

1 

3177 

1 

TCF 

RATEDAMP 

04465 

REF 

32 

LAST 

14  2 7 

16,3077 

3 

1273 

0 

RUTH 

CA 

RCSF  LAGS 

0447 

REF 

1 

16, 3100 

7 

4742 

0 

MASK 

PBIT 

IN  ATTITUDE  HOLD. 

0448 

L6-,  3.10 1 

0 

0006  . 

1 

EXTFND 

0449 

16,3 102 

1 

3104 

0 

BZF 

+ 2 

BRANCH  IF  P-RATE  DAMPING  IS  FINISHFD. 

0450 

REF 

3 

LAST 

142  7 

16, 3103 

1 

3177 

1 

TCF 

R ATF  DAMP 

0451  .. 

_R££_ 

-33  - 

-X  ASJ 

342  7 

1.6.,  3 104 

3 

12  73 

0 

CA 

RCSF  LAGS 

0452 

REF 

1 

16,3105 

7 

4741 

0 

MASK 

QRB  I T 

0453 

16, 3106 

0 

00  06 

1 

EXTEND 

0434 

— R£-F 

1 

L6-,  3 10  7 

1 

3115 

0 

BZF 

3 A T F DHML 

BRANCH  I F J3iR  R AT  F DAMPING  IS  FINISHED. 

04541 

REF 

4 

LAST 

1427 

16,3110 

1 

3177 

1 

TCF 

R AT  F DAMP 

R04542 

0455 — 

IAmJUI 

000.0.1 

.0 

__ 1/10SEC 

OCT 

JL 

0455  1 

16,3112 

00050 

1 

40CYC 

OCT 

50 

04552 

16,  3113 

74777 

0 

PORBIT 

OCT 

74777 

04-5  53 

REF 

-.8.- 

—LAS  T 

95  4 _ 

5014 

BITS9.il 

EQUALS 

FBANK5 

04554 

16, 3114 

00056 

1 

L I NR  ATP 

OEC 

46 

R04561 

= ===- 

0457 

REF 

2 

LAST. 

142  7 

16,3115 

4 

4740 

1 

R ATEOONE 

CS 

OURRCBIT 

MANUAL  COMMAND  AND  DAMPING  COMPLETED  IN 

0458 

16,3116 

0 

0004 

0 

INHINT 

ALL  AXES. 

0459 

REF 

44 

LAST 

142  7 

16,3117 

7 

0111 

1 

MASK 

DAPBOOLS 
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0460 

REF 

45 

LAST 

142  7 

16, 3 120 

54  111 

i 

TS 

DAPBOOLS 

3 CD  U 

nFURFn  Rf=ni^TFR<; 

04611 

REF 

57 

LAST 

14  2 7 

16,3121 

3 4737 

0 

CAF 

BIT13 

1-6,  3122 

-0  00  06 

1 

-EXTEND 

0461  3 

REF 

15 

LAST 

142  7 

16, 3123 

02  031 

l 

RAND 

CHAN31 

04614 

16, 3124 

0 0006 

l 

EXTEND 

16,  3 126 

1 3131 

0 

-RTF 

+ 4 

04616 

REF 

26 

LAST 

14  2 5 

16, 3126 

3 0032 

0 

CA 

C DU  X 

(X-AXIS  OVERRIDE) 

04617 

REF 

20 

LAST 

142  5 

16,3127 

5 5 ' 6 33 

1 

TS 

CDUXD 

0461  ft 

16,3130 

0 3133 

0. 

TC 

+3 

0462 

REF 

54 

LAST 

1408 

16,3131 

0 46  74 

0 

TC 

I BNK  CALL 

0463 

REF 

11 

LAST 

1406 

16, 3132 

40153 

1 

FCADR 

ZATTEROR 

0.4-6  3 5 

16, 3 133 

0 00  03- 

-1. 

RFL  INT 

0464 

REF 

3 

LAST 

142  7 

16,3134 

1 3442 

1 

TC  F 

PUPG  ENCY 

R £X 

5_ 

J A9T 

142  5 

1_6.  3 135 

55' 462 

1 

TS 

P-EPRXR 

0466 

REF 

3 

LAST 

1427 

16, 3136 

3 4740 

0 

JUSTOUT 

CA 

OURRCBIT 

INITIALIZATION  - FIRST  MANUAL  PASS. 

04668 

REF 

46 

LAST 

142  8 

16,3137 

26  111 

1 

ADS 

DAPBDOLS 

-0467 

FLEF 

-28I_ 

LAST 

142  5 

16, 3 140 

3 4755 

1 

CA 

ZERO 

04671 

REF 

5 

LAST 

141  9 

16,3141 

55' 444 

0 

TS 

DXERROR 

04672 

REF 

6 

LAST 

142  8 

16, 3142 

5 5 ' 445 

1 

TS 

DXERROR  +1 

- 04673 

REF 

4 

LAST 

141  9 

16,3143- 

5 5 1 446 

1 

TS 

DYFRROR 

04674 

REF 

5 

LAST 

14  2 8 

16,3  144 

55*447 

0 

TS 

DYERROR  +1 

04675 

REF 

4 

LAST 

142  0 

16, 3 145 

5 5 ' 4 50 

0 

TS 

DZERROR 

04676 

R elf 

5 

—LAST- 

14  2 8 

16,  3 146 

5 5 ' 4 51 

1 

TS 

DZFPRGP  +1 

04679 

REF 

2 

LAST 

1419 

16,3147 

55 '452 

1 

TS 

PLAST 

046791 

REF 

2 

LAST 

1419 

16, 3150 

5 5'  4 53 

0 

TS 

a L A S T 

04  67  92 

R-FF- 

2 

L AST 

-14-2  0 

16, 3151 

-5-5*4  54 

1 

TS 

RLAST 

046793 

REF 

i 

16,3152 

54  042 

0 

TS 

Q-RHCCTR 

0468 

REF 

i 

16, 3 153 

54  044 

0 

TS 

R-RHCCTR 

04683 

REE 

L_ 

-L6,3  154 

3 3113 

-J- 

CA 

PORB  IT 

04684 

REF 

34 

LAST 

142  7 

16, 3 155 

7 1273 

1 

MASK 

RCSF  LAGS 

046  8 5 

REF 

35 

LAST 

14  2 8 

16, 3156 

55*273 

1 

TS 

RCSF  LAGS 

BITS  10  AND  11  OF  RCSFLAGS  ARF  0. 

- 04-6_8l5  1 

REF 

3-6__ 

-LAST 

142  8 

16,3157 

4 1273 

1 

CS 

RCSF LAGS 

SET  'JUST-IN*  BIT  TO  1. 

046852 

REF 

36 

LAST 

142  7 

16, 3160 

7 4743 

1 

MASK 

B I T 9 

046853 

REF 

37 

LAST 

14  2 8 

16, 3161 

27*273 

1 

ADS 

RCSF LAGS 

04-71 R-F-F 

_ 1 

16, 3162 

0 316^- 

JL 

TC 

ZEPOFNBL 

0472 

REF 

3 

LAST 

142  6 

16,3163 

1 34  21 

1 

TCF 

JFTSOFF 

04  73 

REF 

2 

LAST 

1428 

16, 3164 

22  044 

1 

ZER0FN8L 

LXCH 

R-RHCCTR 

04 Jjk 

REF 

-2_ 

LAST 

142  8 

li>,  3 165 

3 004-2- 

1 

CA 

Q-RHCCTR 

0475 

REF 

1 

16,  3 166 

5 3 ' 46 1 

1 

DXCH 

SAVEHAND 

0476 

REF 

282 

LAST 

142  8 

16, 3167 

3 47  55 

1 

CA 

ZERO 

04  77 

REF 

1 

1-6,  3170 

54  043 

1 

TS 

P-PHCCTP 

0478 

REF 

3 

LAST 

142  8 

16,3171 

54  042 

0 

TS 

Q-RHCCTR 

0479 

REF 

3 

LAST 

142  8 

16, 3172 

5 4 0 44 

0 

TS 

R-RHCCTR 

- - 04  80 

fi££ 

i - 

16. 3173 

3 3603 

n 

CA 

BlTS8i9 

04  81 

16, 3 174 

0 0006 

i 

EXTFND 

0482 

REF 

23 

LAST 

1399 

16,3175 

05  013 

0 

WOR 

CHAN13 

COUNTERS  ZEROED  AND  ENABLED 
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0483 

REF 

404 

LAST 

141  7 

16, 3176 

0 0002 

0 

TC 

0 

04831 

RFF 

283 

LAST 

142  8 

16,3177 

3 4755 

1 RATEDAMP 

CA 

ZERO 

p_F  F 

2 

i a<;t 

14?  8 

16 » 3-2  00 

54  0 43 

1 

TS 

P-PHCCTP 

04833 

REF 

i 

16, 3201 

1 32  06 

1 

TC  F 

RATERROR 

| A^T 

) 4?  8 

16*  370? 

3 4740 

0 RHC  MOVED 

XA- 

-3UR-PCBIT 

P CONTROL 

0485 

REF 

47 

LAST 

142  8 

16, 3203 

7 0111 

i 

MASK 

DAPBOOLS 

0486 

16,3204 

0 0006 

i 

EXTEND 

04  87 

REF 

1 

16, 3205 

1 3135 

i _ 

BZF 

J UST  CUT  -1 

04871 

RFF 

27 

LAST 

142  8 

16,3206 

3 0032 

0 RATERROR 

CA 

C DU  X 

F INDCDUW  REQUIRES  THAT  CDUXD=CDUX  DURING 

04872 

REF 

21 

LAST 

142  8 

16, 3207 

55*633 

1 

TS 

C DUX  D 

X-AXIS  OVERRIDE 

0488 

R£F 

3- 

LAST 

1 4 ? 9 

16,3210 

10  0-43 

-J 

CCS 

P-RHCCTP 

0489 

16, 321 1 

1 3214 

1 

TCF 

+ 3 

0490 

16, 3212 

1 3214 

1 

TC  F 

+ 2 

0491  ... 

16,-3213 

1 3214 

1 

TCF 

tl 

0492 

16,3214 

6 0000 

1 

D0U81F 

LINEAR/ QUA OR ATIC  CONTROLLER  SCALING 

0493 

16,3215 

6 0000 

1 

DOUBLE 

(SEE  EXPLANATION  IN  Q.R-AXES  RCS 

0494. 

RE-F 

1 

1 6-,3-2T  6 

_6  3-114 

0 . 

AO  _ 

L-LNR  ATP 

AUTOPILOT ) 

04961 

16, 3217 

0 0006 

1 

EXTEND 

04962 

REF 

4 

LAST 

14  2 9 

16,3220 

7 0043 

1 

MP 

P-RHCCTR 

Q4963 

REF 

2 74 

LAS-T 

1419 

16,3221 

3 0001 

0 

CA 

L 

04964 

16, 3222 

0 0006 

1 

EXTFND 

04965 

REF 

6 

LAST 

309 

16,3223 

7 1442 

0 

MP 

ST  IK  SENS 

04-9-66- 

RE-E— 

3 

LAST  142  8 

16-.-3224 

-5-7 '452 

0 

-XC-H 

PI  AST 

04967 

16,3225 

4 0000 

0 

COM 

04968 

REF 

4 

LAST 

1429 

16, 3226 

6 1452 

0 

AD 

PLAST 

0496  9 

- RFF  .. 

25 

LAST 

1421  - 

16,3227 

55*735 

0 

TS 

DAPT  FMP1 

0497 

REF 

2 

LAST 

142  8 

16,3230 

0 3164 

1 

TC 

ZERO  ENBL 

INTERVAL.  ZERO  AND  ENABLE  ACA  COUNTERS. 

0498 

REF 

5 

LAST 

1429 

16, 3231 

4 1452 

1 

CS 

PI  AST 

04-99 

R-E-F 

14 

LAST 

14-7  0 

1-6,3332 

6 1417 

1 

AD 

OMEG AP 

0500 

REF 

i 

16, 3233 

5 5' 425 

1 

TS 

E DOT  P 

0501 

REF 

26 

LAST 

1429 

16, 3234 

U'735 

0 

CCS 

DAPTEMP1 

IF  P COMMAND  CHANGE  EXCEEDS  BREAKOUT 

H5H2 

16, 3235 

1 32  40 

-0  - 

TCF 

+3 

1 FVF 1 . GO  TO  DTRFCT  P A T F CONTROL.  IF  NOT 

0503 

16,3236 

1 3246 

0 

TCF 

+ 8 

CHFCK  FOR  OIRFCT  RATE  CONTROL  LAST  TIME. 

0504 

16, 3237 

1 3240 

0 

TCF 

+ 1 

04*05 

-RE-R- 

5- 

i AST an 9. 

_ 1-6,3240 

_6  1474 

1 

ah 

-BAT-EDB 

0506 

16, 3241 

0 0006 

1 

FXTFND 

0507 

16, 3242 

6 3246 

1 

BZMF 

+ 4 

0508 

R-E-E- 

i 

16,3243 

3 3112 

.0 

CA 

40C  YC 

0509 

REF 

2 

LAST 

14  16 

16, 3244 

55*443 

1 

TS 

TCP 

05091 

RFF 

1 

16,3245 

0 3257 

1 

TC 

P EG  I 

0510 

REF 

3-8_- 

LAST 

-142-8- 

1.6*3246 

3 1273 

0 

CA 

RCSF  LAGS 

CHECK  FOR  OIRFCT  R A T E COMMAND  LAST  T I MF . 

05101 

REF 

2 

LAST 

1427 

16,3247 

7 4742 

0 

MASK 

PBIT 

05102 

16, 3250 

0 0006 

1 

EXTEND 

051-0-4- 

L6, 3-251 

1 32  53 

1 

BZF 

+ 2 

05106 

REF 

2 

LAST 

142  9 

16,3252 

0 3257 

1 

TC 

PEG! 

TO  PURE  RATE  COMMAND 

05108 

RFF 

7 

LAST 

142  8 

16, 3253 

3 1444 

1 

CA 

DXERROR 

PSFUDO-AUTO  CONTROL. 

0512 

R EH- 

1_ 

_ 1-6,  32  54 

-5.5'  750- 

0 - 

TS 

E 

X-ATTITUDE  ERROR  (SP) 

05121 

*RFF 

6 

LAST 

142  8 

16, 3255 

5 5'  4 62 

1 

TS 

PFRR  PR 

LOAD  P-AXIS  ERROR  FOR  MODE!  F DA  I DISPLAY 

05122 

REF 

4 

LAST 

142  8 

16, 3256 

0 3446 

1 

TC 

PURGENCY  +4 
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05125 

REF 

28 

LAST 

1429 

16, 3257 

3 0032 

0 

PEG  I CA 

C DUX 

DIRECT  RATE  CONTROL. 

05126 

REF 

22 

LAST 

1429 

16, 3260 

55*633 

1 

TS 

CDUXD 

R fLF 

7 R4-  - 

L A ST 

142  9 

16  f 3261 

3 4755 

_1 

CA 

ZERO  _ 

05128 

REF 

8 

LAST 

142  9 

16, 3262 

5 5 ' 444 

0 

TS 

DXERROR 

05129 

REF 

9 

LAST 

1430 

16,3263 

55*445 

1 

TS 

DXERROR  +1 

EF 

7 

1 AST 

147  q 

16 » 3264 

55-'  462- 

1 

TS 

PE  PR  OP 

7FR0  P-AXIS  ERROR  FOR  MODE  1 FDA  I DISPLAY 

0517 

REF 

2 

LAST 

1429 

16,3265 

11*425 

1 

CCS 

EDOTP 

0518 

16, 3266 

0 3271 

0 

TC 

+ 3 

05  19 

16,3267 

0 32  71 

0 

TC 

1 2 

0520 

16, 3270 

0 3271 

0 

TC 

+ 1 

0521 

REF 

1 

16, 3271 

55' 735 

0 

TS 

ABSE  DOTP 

0521 5. 

RFF 

\ 

16,  3 27  2 

6 14  74 

1 

AO 

TAPGFTD8 

0522 

16, 3273 

0 0006 

1 

EXTEND 

IF  RATE  ERROR  IS  LESS  THAN  DEADBAND, 

05225 

REF 

1 

16, 3274 

6 3304 

0 

BZMF 

LAST 

FIRE,  AND  SWITCH  TO  PSEUDO-AUTO. 

0523  _ 

REE 

3 

LAST 

1429 

L6_,  3275 

3-1443 

0 

CA 

TCP 

0524 

16, 3276 

0 0006 

1 

EXTEND 

IF  TIME  IN  RATE  COMMAND  EXCEEDS  4 SEC., 

05245 

REF 

2 

LAST 

1430 

16, 3277 

6 3304 

0 

BZMF 

LAST 

052-5 

REF 

39 

last 

-1429 

16,  3306 

4 1773 

1 

CS 

_RC  SF LAGS 

0525  1 

REF 

3 

LAST 

1429 

16,3301 

7 4742 

0 

MASK 

PE  IT 

05252 

REF 

40 

LAST 

1430 

16, 3302 

27*273 

1 

ADS 

R C SF LAGS 

BIT  10  IS  1. 

052601 

16,3  30  3 

1 33  07 

_L 

TC  F 

+ 4 

0526C2 

REF 

4 

LAST 

1430 

16,3304 

4 4742 

0 

LAST  CS 

PBTT 

052603 

REF 

41 

LAST 

1430 

16,3305 

7 1273 

1 

MASK 

RCSF  LAGS 

_ 052604 

REF 

42 

LAST 

14  30 

16,23306 

55*273 

-1 

TS 

. RCSF LAGS 

RIT  10  IS  0. 

05262 

REF 

3 

LAST 

1430 

16, 3307 

4 1425 

1 

CS 

EDDTP 

05263 

16, 3310 

0 0006 

1 

EXTEND 

05764 

RE-F 

1 

16,331 1 

7 1551 

_o_ 

MP 

1/AN  FTP 

1/2 JTACC  SCALED  AT  2EXP171/PI 

05265 

REF 

499 

LAST 

1426 

16,3312 

20  001 

1 

DAS 

A 

05266 

RFF 

10 

LAST 

1422 

16,3313 

0 22  77 

1 

TC 

OVFR  SUB 

- 0526  7 

16, 3314 

0 00  06_ 

1 

EXTEND 

05268 

REF 

1 

16,3315 

7 7715 

1 

MP 

25/32 

A CONTAINS  TJET  SCALED  AT  2EXP ( 4 ) ( 16 / 25 1 

05269 

REF 

5 

LAST 

1426 

16, 3316 

55*524 

1 

TS 

T JP 

4. JET  TIME 

052X- 

RE-F 

2 

-LAST 

1430 

16, 3317 

3 17  35 

1 

CA 

AB  SF  DOTP 

0528 

REF 

2 

LAST 

145 

16, 3320 

6 1473 

0 

AD 

-2JETLIM 

COMPARING  DELTA  RATE  WITH  2 JET  LIMIT 

0529 

16, 3321 

0 00  06 

1 

EXTEND 

0520 

16 , 3 ^77 

6 3325 

0 

BZMF 

+3 

0531 

REF 

33 

LAST 

1424 

16,3323 

3 6241 

0 

CA 

SIX 

0522 

16, 3324 

1-33  34 

1 

TC  F 

+ RD 

0533 

REF 

6 

LAST 

1430 

16, 3325 

3 1524 

0 

CA 

T JP 

0534 

REF 

7 

LAST 

1430 

16, 3326 

27*524 

1 

ADS 

T JP 

AO  53-5- 

GOES  TO  PJETSLFC  FC  P TWO  JETS 

A0536 

P-JET-S ELECT  I ON-ROUT  I ME  (ROTATION) 

A0537 

A0538 

INPUT:  NUMBERT 

TJP 

4,5,6  FOR  WHICH  PAIR 
+ FOR  +P  ROTATION 

OR  4 JETS 

A0539 

A0540 

OUTPUT:  CHANNEL  6 

P JUMP ADR 

FOR  P-AXIS 

SKIP 

-GAP  : ASSEMBL  E REV  IS-1QN  -0  69  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2021112-011 1-9-1-02  IMOV.  2 5,X9.68 LMQA2 .0X2 RAG.E.  143] 
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A0541 

( JTLST 

CALL  ) (SMALL  TJP) 

order  nF— pm  i.rj-F.S- TP LF-D  in  c.asf  nF  fa ti  urf 

A0543 

+ P 

-P 

A0544 

7,15 

8,16 

4,12  . 

. 3,  1 1 

A0546 

4,7 

8,11 

A0547 

7,  12 

11,16 

12, 15 

3,16 

A0549 

4,  15 

3,8 

A0550 

ALARM 

ALARM 

0551 

REF 

1 

16,-3  327 

_3  4747 

1 

CA 

ACTE  SYS!  _ _ 

0552 

REF 

4 8 

LAST  1429 

16, 3330 

7 0111 

1 

MASK 

D APE  COLS 

0553 

REF 

500 

LAST  1430 

16, 3331 

10  000 

0 

CCS 

A 

0554 

REF 

159 

- LAST  -142-6 

-L6  , 3332  - 

3 4753 

1 

CA 

□ NF 

0555 

REF 

34 

LAST  1425 

16, 3333 

6 4751 

0 

AD 

FOUR 

0556 

REF 

3 

LAST  1424 

16, 3334 

55' 741 

0 

TS 

NUMBEPT 

05-5-7 

REF 

16.0 

—LAST  1431 

16,3  335  - 

3 47  53 

1 

PJFTSLFC  CA 

ONE 

0558 

REF 

275 

LAST  1429 

16, 3336 

54  001 

1 

TS 

L 

0559 

REF 

8 

LAST  1430 

16,3337 

1 1' 524 

1 

CCS 

TJP 

as&a 

. 16,3340 

1-33  45- 

-1 

TCF 

+ 5 

0561 

REF 

4 

LAST  1428 

16,3341 

1 3421 

1 

TCF 

JFTSOFF 

0562 

16,3342 

1 3344 

0 

TCF 

+ 2 

0-563- 

REF 

5— 

-LAST  1431 

16,  3343 

-1  -342.1 

1 

-LCF 

JETSCEF 

0564 

16,3344 

22  007 

0 

ZL 

0565 

REF 

lfcl 

LAST  1431 

16, 3345 

6 4753 

1 

AD 

ONE 

_ 0556 

REF 

l— 

_ 16+  3346 

55* 735 

0 

IS 

ABSTJ 

0567 

REF 

4 

LAST  1425 

16, 3347 

23'  742 

1 

LXCH 

ROT  I NDEX 

0568 

REF 

1 

16, 3350 

0 3514 

1 

TC 

SELFCTP 

0560 

REF 

3-4 

L AST  143 0 

16,  3 3-5  1 

4 62-41 

1 

r s 

■ SIX 

0570 

REF 

4 

LAST  1431 

16, 3352 

6 1741 

1 

AO 

NUMBERT 

0571 

16, 3353 

0 0006 

1 

EXTEND 

0572 

16, 3354 

1 3356 

0 

BZF 

+ 2 

0573 

REF 

96 

LAST  1414 

16,3355 

4 4752 

1 

cs 

TWO 

0 5-7-4-  - 

-REF 

— 3-5 — 

-L  AS  I -143  1 - 

L6, 3 356_ 

6 4751 

0 

AD 

FOUR 

0575 

REF 

2 

LAST  148 

16, 3357 

5 5 ' 5 2 1 

1 

TS 

NC. P JFTS 

0576 

REF 

2 

LAST  1425 

16, 3360 

3 1737 

0 

CA 

POLV  TEMP 

05  77— 

RFF- 

2_ 

-L  AST— L3  9 9 

16,  3361 

0 5745 

1 - 

TC 

WP I T EP 

0578 

REF 

2 

LAST  1431 

16, 3362 

4 1735 

0 

cs 

ABSTJ 

0579 

REF 

1 

16,3363 

6 3575 

0 

AD 

+150MST6 

05  80  — 

16, 3 364  _ 

0 0006 

1 

EX  TEND 

0581 

REF 

2 

LAST  1424 

16,3365 

6 3607 

0 

8ZMF 

OR  A X IS  GO  TO  QRAXIS  OR  TO  GTS. 

0-582 — 

REF 

1— 

16, 3366 

-6  35  55 

1 

AD 

- 1 3 6 MS T 6 

0583 

16,3367 

0 0006 

1 

EXTEND 

0584 

16,3370 

6 3375 

0 

8ZMF 

♦ 5 

AOS  ABSTJ 
INDEX  ROTINDEX 


0585 

0586 


REF 

RFF 


3 LAST  1431 
5 LAST  1431 


16.3371  27 1 735  0 

16.3372  5 1 ' 742  1 
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0587 

REF 

1 

16, 3373 

3 3604 

0 

CA  MINTIMES 

0588 

REF 

9 

LAST  14  3 1 

16, 3374 

55' 524 

1 

TS  T JP 

0589 

REF 

4 

LAST  143  1 

16,3375 

3 1735 

1 

CA  ABSTJ 

0590 

16, 3376 

22  007 

0 

ZL 

QRQ1 

16, 3377 

0 00  04 

0 

[NHINT 

0592 

REF 

4 

LAST  1407 

16,3400 

5 3 ' 467 

1 

DXCH  T6FUPTHA 

0593 

REF 

55 

LAST  1428 

16, 3401 

0 4674 

0 

TC  I BN K CALI 

0594 

-RFF 

1 

16,3402 

37046 

1 

C A DR  JTLST 

0595 

REF 

50 

LAST  1424 

16, 3403 

4 4740 

1 

CS  BIT12 

0595  1 

REF 

43 

LAST  143  0 

16, 3404 

7 1273 

1 

MASK  RCSF  LAGS 

RFF 

44 

LAST  1432  _ 

16, 3 405 

5.5 ' 2 73 

1 

TS  RILSF  LACS 

BIT  L 2 SET  TO  0. 

0596  1 

REF 

i 

16,3406 

0 3410 

1 

TC  ALTSYST 

05962 

REF 

3 

LAST  143  1 

16,3407 

1 3607 

1 

TC  F QRAXIS 

0597 

REF 

49 

LAST  1431 

16,3410 

3 01  11 

0 

ALTSYST 

CA  DAPBOOLS 

ALTERNATE  P-AXIS  JETS 

0598 

REF 

276 

LAST  143  1 

16, 341 1 

54  001 

1 

TS  L 

0 59  9 

RFF 

2 

LAST— 143  1 

1 6,  341  7 

4747 

1 

CA  AQRBSYST 

0600 

16, 3413 

0 0006 

1 

EXTEND 

06  01 

REF 

19 

LAST  1409 

16, 3414 

06  001 

0 

RXOR  LCHAN 

-06-02 

REF 

59  - 

LAST  1432 _ 

16,3  415 

54  111 

1 

TS  DAPBOOLS 

0603 

16,3416 

0 0003 

1 

RELINT 

0604 

REF 

405 

LAST  1429 

16, 3417 

0 0002 

0 

TC  3 

0606 

REF 

2 

LAST  1432 

16,3420 

0 3410 

1 

DKALT 

TC  ALTSYST 

060^ 

-REF 

■ 3 

—LAST  1-43  1 

- 16, 3421 

-0-5  744 

0 

JETSOFF 

TC  WRITEP  -1 

0608 

REF 

285 

LAST  1430 

16, 3422 

3 4755 

l 

CA  ZERO 

0609 

REF 

10 

LAST  1432 

16,3423 

5 5 ' 5 24 

1 

TS  T JP 

0610 

-RFF 

4 

—LAST  143  2 

1A«  3 47  4 

_L  36  07 

1 

TC  F OR  AX  IS 

R0611 

(NOTE  — 

M 13  = 1 IDENTICALLY 

IMPLIES 

NULL  MULTIPLICATION. ) 

064-2 

REf 

13 

-LAST  1-41  8 

16, 3425 

3 00  33 

l 

CALCPFRR 

CA  r p n v 

P-FRROR  CAI  Clll  ATT  ON. 

0613 

16, 3426 

0 0006 

1 

EXTEND 

0614 

RFF 

6 

LAST  1416 

16, 3427 

21 '634 

0 

MSU  CDUYD 

C DU  VALUE  - ANGLE  DESIRED 

(Y-AXIS) 

0615 

16,3430 

-0-.00  06 

_1  _ 

EXTEND 

0616 

REF 

9 

LAST  1418 

16, 3431 

7 1412 

0 

MP  Mil 

(CDUY-CDUYD)Mll  SCALED  AT 

PI  RADIANS 

0617 

REF 

2 

LAST  1429 

16, 3432 

57'  750 

1 

XCH  E 

SAVE  FIRST  TERM  (OF  TWO) 

0618 

REF 

22 

LAST  143 0 

16, 3433 

.3__0Q  32 

0 

CA  C DUX 

THIRD  COMPONENT 

0619 

16, 3434 

0 00  06 

1 

EXTEND 

0620 

REF 

23 

LAST  1430 

16,3435 

21*633 

1 

MSU  CDUXD 

C DU  VALUE  - ANGLE  DESIRED 

(X-AXIS) 

81)671 

EXTEND 

R0622 

MP  M 1 3 

0623 

REF 

5 

LAST  1403 

16,3436 

6 1277 

1 

AD  DFLPEROR 

KALCMANU  I NERF  ACE  FRROR 

0624 

REF 

3 

-LAST  1432 

16,  3 43  7 

27' 750 

0 

ADS  E 

SAVE  SUM  OF  TERMS.  COULD 

BE  OVERFLOW. 

0625 

REF 

8 

LAST  1430 

16, 3440 

57*462 

0 

XCH  PERPOR 

SAVE  P-ERROR  FOR  EIGHT-BALL  DISPLAY. 

0626 

REF 

406 

LAST  1432 

16,3441 

0 0002 

0 

TC  0 

RETURN  TO  CALLER 

R0627 


P-AXIS  URGENCY  FUNCTION  CALCULATION. 
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0628 

0629 

REF 
REF 
R-F  F 

2 

12 

L5 

LAST 
LAST 
| AST 

140  8 
140  3 
142  9 

16,3442 
16,  3443 
16,  3-44-4 

0 3425 
4 1641 
6 1417 

1 

1 

1 

PURGENCY  TC 
CS 

AD--- 

CALF  PERR 
OMEGAPD 
ELME  GAP  _____ 

CALCULATE  P-AXIS  ERRORS. 
THIS  COOING  IS  COMMON  TO 
SPS-BACKUP  MODE. 

BOTH  LM 

DAP  AND 

0631 

REF 

4 

LAST 

14  3 0 

16,3445 

5 5 ' 4 25 

1 

TS 

E DOT  P 

EOOTP  = OMEGAP  - OMEGAPD 

AT  PI/4 

RAD/SEC 

0632 

REF 

162 

LAST 

143  1 

16, 3446 

4 4753 

0 

CS 

ONE 

0633 

REF 

2 

LAST 

147 

16, 3447 

55' 476 

1 

TS 

AXIS  CTR 

^J634-  - 

REF 

-5-1 

LAST 

1.432 

16,3450 ..... 

3 _01 1L 

0 

CA 

DAPBOOLS 

0635 

REF 

8 

LAST 

1420 

16, 3451 

7 4737 

1 

MASK 

CSMDOCKD 

0636 

16, 3452 

0 0006 

1 

EXTEND 

0637 

RJEF 

J 

16j_3  453 

1 34  70. 

0 

BZF 

HEADTJET 

0638 

16, 3454 

0 0004 

0 

INHINT 

I F 

CSMDOCKD  = 1,  GO  TO 

DOCKED  RCS  LOGIC 

0639 

REF 

56 

LAST 

143  2 

16, 3455 

0 4674 

0 

TC 

I BNKCALL 

- 0640 

R-EF 

J. 

16,  3456 

3770.0 

1 

CADR 

S PS  R CS 

0641 

REF 

1 1 

LAST 

1432 

16,3457 

3 1524 

0 

CA 

T JP 

1 6 r 3460 

0 00-0-6 

X- 

.EXTEND 

0643 

REF 

1 

16, 3461 

1 3420 

0 

BZF 

DKAL  T 

IF 

TJP  = ZERO,  CHANGE 

AORBSYST . 

0644 

16, 3462 

0 0003 

1 

REL  INT 

064  5 

R--F-F 

5_ 

_L  AST 

143  1 

16,-3-463 

4 1741 

0 

CS 

NUMBFRT 

0646 

REF 

35 

LAST 

143  1 

16, 3464 

6 6241 

0 

AD 

SIX 

0647 

16, 3465 

0 0006 

1 

EXTEND 

IF 

NUMBERT  = 6 BYPASS 

AORBSYST  CHECK 

0443 

REEF- 

2— 

_L  ASX 

-14-2  6 

X6»3-466 

1 3335 

0 

BZF 

P J FT  SI  FC 

AND  IJSF  FOUR  JFTS. 

OTHERWISE, 

0649 

REF 

3 

LAST 

1433 

16, 3467 

1 3327 

0 

TC  F 

P JETSLEC 

-6 

SELECT  AORBSYST  AND 

USE  TWO  JETS 

0650 

REF 

286 

LAST 

1432 

16, 3470 

3 4755 

1 

HEADTJET 

CA 

ZERO 

06-51 

-REF 

1 

L6,  3 471 

55' 477 

0 

TS 

SFNSETYP 

0652 

16, 3472 

0 0004 

0 

INHINT 

0653 

REF 

57 

LAST 

1433 

16, 3473 

0 46  74 

0 

TC 

I BNKCALL 

06  54 

— R£A- 

1 

L6l,  3 4 74 

37207 

-0 

CAJDR 

TJETLAW 

0655 

16, 3475 

0 0003 

1 

RFL INT 

0444- 

-R-F-F- 

1 

1-6 1 3-4X6 

4 17  3 7 

1 

CS 

F IP  F FCT 

0657 

REF 

1 

16, 3477 

6 3513 

0 

AD 

-FOURDEG 

0658 

16,3500 

0 0006 

1 

EXTEND 

- 0459- 

-R-EF 

4 

X AST 

143  3- 

16,3  501 

6 3327 

1 

XZMF 

P JFT  SLEC 

— 6 

0660 

REF 

12 

LAST 

14  3 3 

16, 3502 

1 1 ' 524 

1 

CCS 

TJP 

0661 

16,3503 

1 3505 

0 

TC  F 

+ 2 

044 2 — 

REF 

6 

l AST 

14  3 1 

16,3504 

1 3421. 

1 

TC  F 

J ETSGF F 

0663 

REF 

i 

16, 3505 

6 3512 

1 

AD 

-160MST6 

0664 

16,3506 

0 0006 

1 

EXTEND 

0665 

— R-EF— 

5— 

LAST 

1433 

-L6-,  3 50-7. 

6 3327 

-1  - 

RZMF 

P JFT  SLEC 

-6 

0666 

REF 

36 

LAST 

1433 

16,3510 

3 6241 

0 

CA 

SIX 

0667 

REF 

6 

LAST 

143  3 

16,351 1 

l 3334 

1 

TC  F 

PJFTSLEC 

-1 

0668 

16-,  3 512 

77377 

1 

-160MST6 

DEC 

-256 

0669 

16,3513 

75117 

1 

-FOUR  DEG 

DEC 

- .08  888 

GAP  ; ASSEMBLE  -REVISION  0 69  -OF-  AGO  PROGRAM  LUMINARY  BY  NASA  20  211-12-01-1 l-axXL2— MOA6.  25,1968 LMQAfi .012 PAGE  1434 

L P-AXIS  RCS  AUTOPILOT  USER'S  PAGE  NO.  19  E6  S4 

P06T7  JET  POLICY  CONSTRUCTION  SUBROUTINE 

Anft7a TMPUT:  ROTINDE-X,  NLIMBFRT 


OUTPUT:  POLYTFMP  (JET  POLICY) 


A0680 
06  81 

REF 

37 

LAST 

1433 

16, 3514 
16, 3 5L5 

3 6241 
55*740 

0 

1 

THIS  SUBROUTINE 
SELECTP  CA 
TS 

SELECT  A SUBSET 
SIX 

TFMPNUM 

OF  THE  DESIRED  JETS  WHICH  HAS  NO  FAILURE 

0683 
06  86 

REF 

REF 

0 p F 

6 

1 

6 

LAST 
1 AST 

1433 
3A3  1 

16.3516 

16. 3517 
1 6, 3570 

5 1 1 7 4 1 
3 3546 
51' 742 

1 

0 

1 

INDEX 

CA 

INDEX 

HUMBERT 
TYPEP 
ROTT  NDEX 

0686 
0687 
06  88 

REF 

REF 

REF 

1 

3 

6 

LAST 

LAST 

14  3 1 
7?  7 

16. 3521 

16. 3522 

16. 3523 

7 3537 
55' 737 
7 1263 

1 

1 

0 

MASK 

TS 

MASK 

JETSALL 

POLYTEMP 

CH6MASK 

0689 

0690 

0691 

REF 

R£F 

501 
.AO  7 

LAST 
1 AST 

143  1 
14  3 7 

16. 3524 

16. 3525 

1 6. 3526 

10  000 
1 3527 
0 000? 

0 

0 

0 

CCS 

TCF 

TC 

A 

<-2 

0 

0692 

REF 

2 

LAST 

1434 

16,3527 

11 '740 

1 

CCS 

TEMP  NUM 

0693 

16, 3530 

1 35  34 

1 

TCF 

+ 4 

0694 

Q F F 

4ft 

-LAST 

147  4 

16, 3531 

0 5567 

0 

TC 

ALARM 

0695 

16, 3532 

02003 

0 

OCT 

02003 

0696 

REF 

7 

LAST 

1433 

16,3533 

1 3421 

1 

TCF 

JETSOFF 

*****tcf  alarmjet  ********************* 

0697 

REF  - 

7 

L.ASJ 

143  4 

16,3.534 

55' 741 

0 

SELECT YZ 

TS 

HUMBERT 

0698 

REF 

2 

LAST 

143  1 

16, 3535 

1 3515 

1 

TCF 

SFIFCTP  3-1 

0699 

REF 

1 

16, 3536 

1 2752 

1 

-1 

TCF 

A BOP  TY  Z 3-2 

0700  - 

_ 16,3537 

00252 

1 

JETSALL 

□ CT 

00252 

0701 

16, 3540 

00125 

l 

OCT 

0012  5 

3-P 

0702 

16,3541 

00140 

1 

OCT 

00140 

-Y 

0703  - 

1_6-,  35A2— 

__  00006 

1 

OCT 

0 0006 

-z 

0704 

16, 3543 

00220 

1 

OCT 

00220 

3-Y 

0705 

16, 3544 

00011 

1 

OCT 

0001  1 

3-Z 

0 706 

16, 3545 

00151 

1 

OCT 

00151 

3-V  

0707 

16,3546 

00146 

1 

TYPEP 

OCT 

00146 

-u 

0708 

16,  3547 

00226 

1 

OCT 

0022  6 

-V 

- _ 070-9 

16,35-50 

00231 

1 

OCT 

0023  1 

3-U 

0710 

16,3551 

00151 

1 

OCT 

00151 

+v 

0711 

16,3552 

00132 

1 

OCT 

00132 

1-3 

0712 

16,  3553 

00245 

1 

OCT 

0 02  4 5 

2-4 

0713 

16, 3554 

00377 

1 

OCT 

00377 

ALL 

0714 

REF 

2 

LAST 

1431 

16,3555 

INDXYZ 

= 

-136MST6 

07-1-5 

1 6_, 33  55 

77445 

1 

-136MST6 

DEC 

-218 

0716 

16, 3556 

00004 

0 

DEC 

4 

0717 

16, 3557 

00002 

0 

DEC 

2 

07-1-8- 

16,3  5j6D 

07776 

0 

dct 

07776 

0719 

16, 3561 

00005 

1 

DEC 

5 

07  2 0 

16,3562 

00011 

1 

DEC 

9 

07-21 

_ 16_>_3563 

000  12 

1 

DFC 

10 

0722 

16,3564 

07776 

0 

OCT 

07776 

0723 

16,3565 

00003 

1 

DEC 

3 
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0774 

16, 3566 

00010 

0 

DEC 

8 

0725 

16, 3567 

00007 

0 

OEC 

7 

16,35-70 

07776 

0 

-OCT 

07776 

THFSF  INDEXES  OF  MASK  JETSALL  WILL 

0727 

16, 3571 

07776 

0 

OCT 

07776 

CHANGE  THF  INSTRUCTION  AT  SELECTP  +4 

0728 

16, 3572 

07776 

0 

OCT 

07776 

TO  BE  TC  JETSALL  -1 

07  29 

1 6, 3 573 

07776 

_Q_ 

0_C  T 

07776 

ONLY  USED  FOR  TRANSLATION  FAILURE 

0730 

16, 3574 

07776 

0 

OCT 

07776 

0731 

16, 3575 

00360 

1 

♦150MST6 

DEC 

243 

073  2 

16,3376 

0.74  0.0 .. 

_L_ 

074000C  T 

OCT 

07400 

R0733 

T-JET 

LAW  FI XEO  CONSTANTS 

1 6 ,3577  - 

QQ2-6-6- 

0- 

NORM SCI 

nr.T 

2-66  - - 

0737 

16, 3600 

74631 

0 

-100MS 

DEC 

-.i 

0738 

16, 3601 

06315 

0 

200MS 

DEC 

.2 

p.  ef 

5 LAST  9Jx\  7715 

25/33  _ 

- 

PRI031  . 

CDEC  .78125) 

0740 

16, 3602 

00600 

1 

BITS8.9 

OCTAL 

00600 

0741 

16, 3603 

00632 

0 

1/40 

DEC 

.02500 

0742 

1 6 , 3 604 

77  751 

1 

RUNTIMES 

. DEC 

-22 

0743 

16,3605 

00026 

0 

DEC 

22 

0744 

REF 

2 LAST  1423  16,3606 

02713 

0 

PSK IPADR 

GENADR 

SKI P PAXS 

A0745 
0746 
0747 

REF 
R_EfL 

7 

Z_ 

LAST 
1 AST 

140  3 
14  2? 

16,3607 
1 6.3610 

4 1643 
6 1421 

0 

_L_ 

GOES  TO 
QRAXIS 

Q.R-AXES  RCS  AUTOPILOT 
CS  OMEGARD 

AD  OMEGAR 

0748 

REF 

11 

LAST 

1430 

16,3611 

0 2277 

1 

TC 

OVERSUB 

0749 

REF 

2 

LAST 

145 

16, 3612 

55,435 

0 

TS 

EDOTR 

0-250- 

R-E-E — 

2- 

LAST 

140-3- 

16,3-6.13 

4 1647 

-1- 

CS 

OMEGAQD 

0751 

REF 

13 

LAST 

142  1 

16,3614 

6 1420 

0 

AD 

OMEGAO 

0752 

REF 

12 

LAST 

1435 

16,3615 

0 2277 

1 

TC 

OVER  SUB 

0753 

REF 

3_ 

last 

1 44 

16,  3616 

5 5*4  34 

1 

TS 

FnriTO 

0754 

16,3617 

0 0006 

1 

EXTEND 

0755 

RFF 

1 

16, 3620 

3 3623 

0 

DC  A 

OERR  CALL 

0736- 

1 6,-362 1 

-52—006 

-0— 

DTCR 

0757 

REF 

20 

LAST 

1422 

E 6 , 1 537 

EB ANK= 

AOS  Q 

075-8 

REF 

L 

1 6, 3627 

07063 

1 

OFRRCAI  1 

_2.C  ADR 

r.  A1  1 QFPR 

0758 

REF 

1 

16, 3623 

361  06 

0 
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L 

0 i R- 

AXES 

RCS  i 

AUTDP1 LOT 

USER'S  PAGE  NO.  1 

EO  S4 

0001 

0002 

REF 

3 

LAST 

1400 

17,2043 
17,2000 
1 7,  2 043 

BANK  17 

SETLOC  DAPS  2 
BANK  

0004 

REF 

24 

LAST 

1432 

E6 , 1633 

EB ANK=  C DUX  D 

0005 

REF 

1 

COUNT*  t $/  0 APQR 

00061 

RFF 

58 

LAST 

142  8 

17, 2043 

3 4737 

0 

CALLQERR  CA  B I T 1 3 

CALCULATE  Q,R  ERRORS  UNLESS 

THESE  AXES 

00062 

17,2044 

0 0006 

1 

EXTEND 

ARE  IN  MANUAL  RATE  COMMAND. 

0006  3 

R£F 

_L6 

last 

14?  a 

17,2045 

02  03L_ 

1 

RAND  C HA N 31 

00064 

REF 

502 

LAST 

14  3 4 

17, 2046 

10  000 

0 

CCS  A 

00065 

17, 2047 

1 2054 

0 

TCF  +5 

IN  AUTO  COMPUTE  Q , R ERRORS 

0007 

REF 

52 

LAST 

1433 

17,2050 

4 0111 

1 

CS  DAPRCOLS 

IN  MANUAL  RATE  COMMAND? 

00071 

REF 

5 

LAST 

1429 

17,2051 

7 4740 

1 

MASK  OUPRCBIT 

00072 

17, 2052 

0 0006 

1 

EXTEND 

#_E  p 

l 

1 7 f 2053 

1 -2055 

1 

BZf  Q,  POP.GTS 

IF  SO  BYPASS  CALCULATION  OF 

ERRORS . 

00074 

REF 

2 

LAST 

1408 

17, 2054 

0 2563 

0 

TC  QFRRCALC 

ROGOET 


0009 

REF 

2 

LAST 

1407 

17,2055 

1 1 ' 6 27 

1 

Q,RORGT  S 

CCS 

CDTPCLER 

0010 

REF 

1 

17,2056 

1 2544 

1 

TCF 

GOT  D GTS 

001  1 

-RLF 

1 

17,2057 

1 2521 

0 

TCF 

TP YG TS 

0012 

REF 

2 87 

LAST 

1433 

17,2060 

3 4755 

1 

RCS 

CAF 

ZERO 

0013 

REF 

3 

LAST 

1436 

17,2061 

55 ' 6 27 

1 

TS 

COTP  OLER 

0014 

REF 

4 

LAST 

1435 

17,2062 

53' 435 

0 

DXCH 

EDOTC 

0015 

REF 

1 

17,2063 

0 3100 

0 

TC 

RGT4  5DEG 

00  16 

REF 

LI- 

-LAST 

JA19 

17,  2.064- 

5 3 ' 42  5 1 

DXCH 

DMEG  AU 

CHOOSE  CONTROL  SYSTEM  FOR  THIS  DAP  PASS: 
GTS  (ALTERNATES  WITH  RC S WHEN  DOCKED) 
GTS  IF  ALLOWED.  OTHERWISE  RCS 
RC S (TRYGTS  MAY  BRANCH  TO  HERE) 


A0017 


TRANSLATION: 


A0018 

A0019 

A002Q 

INPUT: 

BITS  7,8  OF  CH31  (TRANSLATION  CONTROLLER) 
ULLAGER 

APSFLAG,  DPIFTRIT 

A0021 

ACC40R2X , AORBTRAN 

A 0022 

OUTPUT : 

HEX T U , MEXTV 

CODES  OF  TRANSLATION  FOR  AFTER  ROTATION 

A0023 

SENSETYP 

TELL  ROTATION  DIRECTION  AND  DESIRE 

- £-0-0-2  4- 

X-TRAfVS 

Pnj  I IFS  ARF  FTTHFR  4 

J FT  S OR 

A DTAOONAI 

PAIR.  TN  2-.1FT  TRANSLATION  THE  SYSTEM  IS  SPECIFIED.  A 

FAILURE 

R0026 

WILL 

OVERRIDE 

THI  S 

SPECIFICATION.  AN 

ALARM  RESULTS  WHEN  NO  POLICY 

IS  AVAILABLE  BECAUSE  OF  FAILURES. 

0028 

-R-LF 

4-8- 

-LAST 

142  4 

17,2065 

3 4 745 

0 SENSEGET 

CA  33  T 7 

INPUT  RITS  OVFRRIDF  THE  INTERNAL 

BITS 

0029 

0030 

0031 

RFF 

17 

LAST 

1436 

17. 2066 

17.2067 
17,  2070 

0 0006 
02  031 
0 0006 

i 

i 

i 

EXTEND 

RAND  C HA  N 31 

EXTEND 

SENSETYP  WILL  NOT  OPPOSE  ANYTPANS 

00  32 

REF 

1 

17,2071 

1 2117 

0 

BZF  +XORULCF 
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0033 

REF 

42 

LAST 

13  5 9 

17, 2072 

3 4744 

1 

CA 

B I T 8 

0034 

17,2073 

0 0006 

1 

EXTEND 

no  3 8 

RFF 

L8 

LAST 

143  6 

1 7,-2-074 

02-  031 

1 

RAND 

CHAN  31 

0036 

17,2075 

0 0006 

1 

EXTEND 

0037 

REF 

i 

17, 2076 

1 2120 

1 

BZF 

-XTR  ANS 

0038 

REF 

3 

LAST 

750 

17, 2077 

3 4746 

0 

CA 

JLLAGER 

0039 

REF 

53 

LAST 

1436 

17,2  100 

7 0111 

1 

MA  SK 

DAPBOOLS 

P EF 

6n3 

4 AST 

143  8 

17.2101 

1 0 900 

0 

CCS- 

A. 

0041 

RFF 

2 

LAST 

1436 

17,2102 

1 2117 

0 

TCF 

+XORULGF 

nn4? 

RFF 

4 

1 AST 

L4-0  8 

17,2  103 

5 5' 47 1 

_o_ 

TS  - 

XLEXIU 

STDRF  NUI  1 TRANSI  AT  I ON 

pm  TCI FS 

0043 

REF 

4 

LAST 

140  8 

17,2 104 

5 5 1 4 72 

0 

TS 

NEXTV 

0047 

REF 

54 

LAST 

14  3 7 

17,2105 

4 0111 

1 

CS 

DAPBOOLS 

BURNING  OR  DRIFTING? 

0048 

R8-F 

5 

LAST 

14-2  2 

17, 2X0-6 

7 4 744. 

Q 

MASK 

DP  IF  TBIT 

0049 

17,2107 

0 0006 

1 

EXTEND 

0050 

REF 

i 

17,2110 

1 21  15 

1 

BZF 

TSENSE 

0051 

REE 

18- 

LASJ 

863 

17  ,-2-11 1 

3 0106 

0- 

CA 

FLSWRD10 

DPS  ( INCLUDING  DOCKED) 

OR  APS? 

0052 

REF 

13 

LAST 

863 

17,2112 

7 4737 

1 

MASK 

APSFLBIT 

0053 

REF 

504 

LAST 

143  7 

17, 2113 

10  000 

0 

CCS 

A 

00-54 

- R-E-F  - 

97 

-LAST 

14  3 1 

17,2114 

3 4752 

0 

C4F 

TWO 

FAVOR  +X  JETS  DURING  AN 

APS  BURN. 

0055 

REF 

2 

LAST 

143  3 

17,2115 

55'  477 

0 

TSENSE 

TS 

SENSFTYP 

0056 

REF 

1 

17,2116 

1 2151 

1 

TCF 

QRCONTRL 

0057 

REF 

163 

LAST 

14  3 3 

17, 2117 

3 4753 

1 

+XORULGE 

CAF 

ONE 

0058 

REF 

36 

LAST 

143  1 

17, 2120 

6 4751 

0 

-XTR ANS 

AD 

FOUR 

0059 

R-EE 

7 

-LAST 

14  3 4 

17, 2 121 

55' 742 

0 

TS- 

ROT  1 NDEX 

0060 

REF 

7 

LAST 

1386 

17,2 122 

6 7744 

1 

AD 

NEG3 

00601 

REF 

3 

LAST 

143  7 

17,2123 

55*477 

0 

TS 

SENSFTYP 

FAVOR  APPROPRIATE  JETS 

DURING  TRANS. 

-QQ61- 

- RFF 

55— 

LAST- 

14  3 1— 

17,2  1-24 

- 3 01 1 1 

0 

CA 

_DAPB  CLOl  S 

0062 

REF 

2 

LAST 

308 

17,2125 

7 4741 

0 

MASK 

ACC  4 OR 2 X 

0063 

REF 

505 

LAST 

14  3 7 

17,2 126 

10  000 

0 

CCS 

A 

- 0064 

REF 

- -1- 

17,2X27 

1 7256 

0 

TCF 

TRAN  S4 

0065 

REF 

56 

LAST 

1437 

17,2130 

3 01  11 

0 

CA 

DAPBOOLS 

-0066 

iLEX 

1 

- 17,2131 

7 4742 

0 

MASK 

AORB  TRAN 

0067 

RFF 

506 

LAST 

1437 

17, 2132 

10  000 

0 

CCS 

A 

0068 

REF 

164 

LAST 

143  7 

17, 2133 

3 4753 

1 

CA 

ONE 

THREE  FOR  B 

0069 

- -REF 

-9.8 

LAST 

-14  3 7 

17,2X34 

6-  4752- 

0 

AD 

TWO 

TWO  FOR  A SYSTEM  2 JFT 

X TRANS 

0070 

REF 

8 

LAST 

1434 

17, 2 135 

5 5 ' 74 1 

0 

TSNUMBR  T 

TS 

NUMB  ERT 

00^4 — 

R-E-F 

in-  :V  ; 

1 7,2  1 36 

0 3 13  0 

o 

Tf 

c F 1 r T^lJR 

0072 

REF 

4 

LAST 

1434 

17,2137 

1 1 ' 7 3 7 

1 

CCS 

POLYTEMP 

00X3 — 

17,2  140 

1 2143 

1 

TC_F 

+ 3 

0074 

REF 

49 

LAST 

1434 

17, 2141 

0 5567 

0 

TC 

ALAR  M 

0075 

17,  2 142 

02002 

1 

OCT 

02002 

0076 

REF 

3_ 

XASX 

-14-0- 0- 

17,-2X43 

3 -5  765 

-0  - 

CA 

0031 40CT 

0077 

REF 

5 

LAST 

143  7 

17,2144 

7 1737 

1 

MASK 

POLYTEMP 

0078 

REF 

5 

LAST 

1437 

17, 2145 

55*471 

0 

TSNEXTS 

TS 

NEXTU 
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0079 

REF 

4 

LAST 

143  7 

17,  2 146 

4 5765 

1 

CS  003140CT 

0080 

REF 

6 

LAST 

143  7 

17,2147 

7 1737 

1 

MASK  POLYTEMP 

nna  l 

REF 

- 5 

LAST 

1432 

17, 2150 

55*472 

0 

T S __  . N_EX  T V 

A0082 

Q,R-AXES  RCS  CONTROL  MODE 

SELECTION 

A0083 

SWITCHES 

INDICATION  WHEN  SFT 

AOO-&S 

B IT13/CHAM31 

AUXO-, . GO  TO  ATTSTFFR 

A0086 

PULSES 

MINIMUM  IMPULSE  MODE 

A0087 

(OTHERWISE) 

RATE  COMMAND/ ATT ITUOE  HOLD  MODE 

0088 

REF 

59 

LAST 

1436 

17, 2 151 

3 4737 

0 

ORCONTRL  CA  BIT13 

CHECK  MODE  SELECT  SWITCH. 

0089 

17, 2 152 

0 0006 

1 

EXTEND 

0090 

RFF 

19 

LAST 

143  7 

17,2  153 

02  031- 

-1__ 

RAND  C HAN  31 

BITS  INVERTED 

0091 

REF 

507 

LAST 

143  7 

17, 2154 

10  000 

0 

CCS  A 

0092 

REF 

1 

17,2155 

1 2616 

0 

TCP  ATTSTEER 

. 0093 

ref 

_5- 

LAST 

1425 

17,2 156 

3 4735 

_L_ 

CHKBIT10  CAF  PULSES  - 

PULSES  = 1 Fnp  MIN  IMP  USE  OF  RHC 

0094 

REF 

57 

LAST 

143  7 

17,2157 

7 0111 

1 

MASK  DAPBOOLS 

0095 

17,2 160 

0 0006 

1 

EXTEND 

0-0-96 

RFF 

L 

17,2161 

1 2260 

_0 

BZF  CHEKSTIK 

IN  ATT-HOLD/P AT  E-COMMAND  IF  BIT10  = 0 

R0097 

MINIMUM 

IMPULSE  MODE 

0098 

17,2162 

0 0004 

0 

INHINT 

0099 

REF 

58 

LAST 

143  3 

17,2  163 

0 46  74 

0 

TC  I BNKCALL 

0100 

R EE- 

-12 

LAST 

142  8 

17,2164 

40153 

1 

CADR  ZATTEROR 

0101 

REF 

288 

LAST 

1436 

17,2165 

3 4755 

1 

CA  ZERO 

0102 

REF 

3 

LAST 

1410 

17,  2 166 

5 5 ' 446 

1 

TS  OERROR 

^ 0103- 

REF 

3 

LAST 

L4  10 

17 ,2 1 67 

5 5*  43  0 

0 

TS  RFRROR 

FOR  DISPLAYS 

0104 

17,2 170 

0 0003 

1 

RELINT 

0105 

17,2171 

0 0006- 

1 

EXTEND 

0106 

REF 

20 

LAST 

143  8 

17,2 172 

00  031 

0 

READ  C HAN  31 

0107 

REF 

1 

17,2173 

55' 735 

0 

TS  TEMP31 

I S EQUAL  TO  DAPTEMP l 

REF 

2 

—LAST 

140  7 - . 

17,7174 

1 1 ' 4_5  7 

1 

ccs  ni.no  rmin 

0109 

REF 

i 

17,2  175 

1 2217 

0 

TC  F CHECKIN 

01-40 — 

R-EF — 

— 2- 

LAST 

14  3 8 

17,2  17-6 

3 17  3 5 

1 

F IREOR  CA  T.EMP 31 

0111 

REF 

65 

LAST 

142  5 

17,2177 

7 4753 

0 

MASK  BIT1 

0112 

17, 2200 

0 0006 

1 

EXTEND 

01  1 3 

REF 

1 

17,  2201 

1 2223 

1 

BZF  +OMIN 

0114 

REF 

3 

LAST 

1438 

17, 2202 

3 1735 

1 

CA  TEMP31 

0-1-15 

-R-E£- 

5 7 

LAST 

141  3 

17,2203 

7 4752 

1 

MASK  BIT? 

0116 

17,2204 

0 0006 

1 

EXTEND 

0117 

REF 

1 

17, 2205 

1 2227 

0 

BZF  -QM1N 

0118 

REF 

4 

LAST 

143  8 

17,2206 

3 1735 

1 

CA  TEMP  31 

01  19 

REF 

49 

LAST 

1407 

17, 2207 

7 4747 

0 

MASK  B I T 5 
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0120 

0121 

REF 

1 

17.2210 

17.2211 

0 

1 

0006 

2233 

1 

0 

EXTEND 

BZF 

+ RMI  N 

0122 

REF 

5 

LAST 

143  8 

17,2212 

3 

1735 

1 

CA 

TEMP31 

0123 

REF 

63 

LAST 

141  3 

17,2213 

7 

4746 

1 

MASK 

8 IT6 

a i ? a 

..  17,2214 

0 

_0.0-0.6_ 

_a 

EXTEND 

0125 

REF 

1 

17,2215 

1 

2235 

0 

B7F 

-RM  I N 

04  24 R-&F 1 17,2-216 1 3015  1 ICE XXRANS — 


0127 

REF 

6 

LAST  1439 

17,2217 

4 1735 

0 

CHECKIN 

cs 

TEMP31 

o 12-8 

REF 

1 

17,2220 

7 2255 

0 

MASK 

0CT63 

0129 

REF 

3 

LAST  1438 

17, 2221 

55*457 

1 

TS 

OLDQRMIN 

0130 

REF 

2 

LAST  1439 

17,2222 

1 3015 

1 

TCF 

XTRANS 

0131 

REF 

1 

17, 2223 

3 3041 

1 

PQMIN 

CA 

1 4MS 

0132 

REF 

3 

LAST  1406 

17,2224 

5 5 ' 5 25 

0 

TS 

TJU 

ni-^v 

R E F 

- 2 

LAST  14-3  9 

1 7 , 222  5 

4—3061 

0 

CS-  _ 

1 4MS 

0134 

REF 

i 

17,2226 

1 2237 

1 

TCF 

MINOR 

0135 

REF 

3 

LAST  1439 

17, 2227 

4 3041 

0 

-QM  IN 

CS 

14MS 

01- 36-- 

R-EF 

4 

— L AST  14  3 9 

17, 2-23  0 

35  • 525- 

-0  - 

TS 

TJU 

0137 

REF 

4 

LAST  1439 

17, 2231 

3 3041 

1 

CA 

1 4MS 

0138 

REF 

2 

LAST  1439 

17,2232 

1 2237 

1 

TCF 

MINOR 

- 043-9 

RFF- 

5- 

LAST  14  3 9— 

17, 2233 

-3  3041 

1 

+ RMIN 

CA 

1 4MS 

0140 

17, 2234 

1 2236 

0 

TCF 

+ 2 

0141 

REF 

6 

LAST  1439 

17, 2235 

4 3041 

0 

-RM  IN 

CS 

1 4MS 

0-1-42 

5- 

-LAST  1439 

17, 2236 

55' 525 

0 

TS 

TJU 

0143 

REF 

2 

LAST  1406 

17, 2237 

55*526 

0 

MINOR 

TS 

T JV 

0144 

REF 

1 

17,2240 

3 22  54 

0 

CA 

MINADR 

Q-L4-5 

_R-F£  - 

1_ 

- 17,2-24 1 

5 5 ' 4 7 5 

1 

TS 

R FT  J ADR 

0146 

REF 

165 

LAST  1437 

17,2242 

3 4753 

1 

CA 

ONE 

0147 

REF 

4 

LAST  1439 

17,2243 

5 5 ' 4 57 

1 

TS 

OLDORMIN 

0146- 

REF-  - 

3- 

—LAST  4433- 

17,2244 

55' 476 

1 

MINRTN 

TS 

A X I SCTR 

0149 

REF 

58 

LAST  1438 

17,2245 

3 0111 

0 

CA 

0 A P B OCL  S 

0150 

REF 

2 

LAST  1437 

17,2246 

7 4742 

0 

MASK 

A ORBTPAN 

0 15-1 — 

RF-f 

-5  0-8- 

LAST  1438 

17+224  7 

_ 1-0  -00-0 

-0 

CCS  - 

A 

0152 

REF 

166 

LAST  1439 

17, 2250 

3 4753 

1 

CA 

ONE 

0153 

REF 

99 

LAST  1437 

17,2251 

6 4752 

0 

AD 

TWO 

04-54 

-REF 

9— 

—LAST  -143  7 

17,  2252 

55' 741 

0 

TS 

NIIMP,  ERT 

0155 

REF 

1 

17,2253 

1 2661 

0 

TCF 

AFTE  RTJ 

0456 

R E-F 

1 

17,2254 

022  44 

1 

MINADR 

G E-MAO  P 

kinp  in 

0157 

17,2255 

00063 

1 

OCT  63 

OCT 

63 

0158 

REF 

1 

17,3041 

14MS 

= 

+TJM INT6 

0164 

REF 

37 

LAST  1437 

17,2256 

3 4751 

0 

TRANS4 

CA 

FOUR 

0165 

REF 

1 

17,2257 

1 2135 

0 

TCF 

TSNUMBRT 

A01 66  RATE  COMMAND  MODE: 


19:07  MOV.  PS.IQM 1 MDAP 


01  7 P AG  F 1 440 


&a.p- ASSEMBLE  RLVISIQN-069  OF  AGC  PROGRAM  LUMINARY  8V  NASA  20  21U-2--0U 

L Q.R-AXFS  RCS  AUTOPILOT 

A0l67  DESCRIPTION  (SAME  AS  P-AXIS) 


1 T 

1 40  7 

1 7 , P 760  - 

55*631 

0 

CHFKSTI K 

TS  _ 

ILLGTS 

0172 

REF 

167 

LAST 

1439 

17, 2261 

4 4753 

0 

CS 

ONE 

0173 

RFF 

4 

LAST 

143  6 

17,2262 

5 5 1 6 27 

1 

TS 

COTPOLER 

Rf-F 

54 

LAST 

142-7 

17, 2263 

3 4J735- 

J— 

CA 

B I T L5 

0175 

REF 

2 

LAST 

142  7 

17, 2264 

7 1441 

0 

MASK 

CH31 TEMP 

0177 

17, 2265 

0 0006 

1 

EXTFND 

01771 

_r  ff 

1 

17,2266 

1 2305 

1 

BZF 

FU±C  A CT  IV 

0178 

REF 

6 

LAST 

1436 

17,2267 

3 4740 

0 

CA 

DURR  CBIT 

01781 

REF 

59 

LAST 

1439 

17, 2270 

7 0111 

1 

MASK 

DAPRCOLS 

0178  2 

17.  2271 

0 0006 

1 

-EXTEND- 

01783 

REF 

1 

17, 2272 

l 2616 

0 

BZF 

STI LLRCS 

01788 

REF 

37 

LAST 

142  8 

17,2273 

4 4743 

1 

CS 

B I T9 

01789 

RFT- 

45 

L-AS  T 

1432 

17,2274 

7 12  73 

1 

MASK 

R C S F LAGS 

017891 

REF 

46 

LAST 

1440 

17,2275 

55*273 

1 

TS 

RCSF  LAGS 

017892 

REF 

1 

17, 2276 

1 2302 

0 

TCF 

DAMPING 

-0215- 

17, 2277 

00050 

1 

40CYCL 

OCT 

50 

02151 

17, 2300 

00001 

0 

1/10S 

OCT 

1 

02152 

17, 2301 

00056 

1 

LINRAT 

DEC 

46 

0215  5 

RFF 

289 

LAST 

1438 

17,2302 

3 4755 

1 

DAMP ING 

CA 

ZERD 

021551 

REF 

2 

LAST 

142  8 

17, 2303 

55*  460 

0 

TS 

S AV  F HAND 

Q2-1 5-52 

RET 

3- 

LAST 

144  0- 

L 7, 23  0-4 

55/4-61 

1 

TS 

-SAVE  HAM) 

+ 1 

0220 

REF 

4 

LAST 

1440 

1 7,2  305 

1 1*460 

0 

PHC ACTIV 

CCS 

S A V F HAND 

0221 

17,2  306 

1 2311 

1 

TCF 

+ 3 

. -072  2 

17, 7 30-7 

1 2311 

L 

TCF 

+ 2 

0223 

17,2310 

1 2311 

1 

TCF 

+ i 

02231 

17,2311 

6 0000 

1 

DOUBLE 

02232  - 

L 7 ,2-3-12 

6 0000 

1 

DOUBLE- 

0224 

REF 

i 

17,2313 

6 2301 

1 

AD 

LINRAT 

0225 

17,2314 

0 0006 

1 

EXTEND 

0226 

R£JL_ 

5 

-LAST 

14-4  0 

17, 23L5 

7 1460 

0 

MP 

S A V F HAND 

0227 

REF 

2 77 

LAST 

1432 

17,2316 

3 0001 

0 

CA 

L 

0228 

17, 2317 

0 0006 

1 

EXTEND 

02281 

R££_ 

7 

—LAST 

1429  _ 

1 7 , 2-3-20 

7 1442 

0 

MP 

ST  IK  SENS 

02282 

REF 

3 

LAST 

142  8 

17,2321 

57*453 

1 

XCH 

QLAST 

02283 

17,2322 

4 0000 

0 

COM 

022-84 

RFF 

4 

LAST 

14-4  0 

17, 2323 

6 1453 

1 

AD 

QLAST 

02285 

REF 

5 

LAST 

141  9 

17,  2 324 

55*737 

1 

TS 

DAPT  EMP3 

0229 

REF 

6 

LAST 

1440 

17,2325 

1 1*461 

1 

CCS 

S A VF HAND 

+ 1 

0230 

17,2  32-6 

1 2331 

n 

TCF 

+ 3 

02305 

17,2327 

l 2331 

0 

TCF 

+ 2 

0231 

17,2330 

1 2331 

0 

TCF 

*1 

- 0231  1 

17,23-31 

6 0000 

I 

DOUBL E 

02312 

17, 2332 

6 0000 

l 

DOUBLE 

02315 

REF 

2 

LAST 

1440 

17,2  333 

6 2301 

l 

AD 

LINRAT 

0232 

17,2  334 

0 0006 

1 

F X T E N D 

0233 

REF 

7 

LAST 

144  0 

17, 2335 

7 1461 

l 

MP 

SAVEHAND 

* I 

0233  1 

RFF 

278 

LAST 

1440 

17,2336 

3 0001 

0 

CA 

L 

USER' S PAGE  NO.  5 E6  S4 


NOT  IN  GTS  WHEN  IN  ATT  Hm  n 

1/ACCS  WILL  DO  THE  NULLING  DRIVES 
COME  BACK  TO  PCS  NEXT  TIME 


BRANCH  TF  OUT  OF  DETENT. 

*********** 

* I N DETENT*  CHECK  FOP  MANUAL  CONTROL 
******  *****  LAST  TIME. 


BIT  9 IS  0. 


* * * * * * * * Jjc  * * * * * * t-  * * ❖ 

Q,R  MANUAL  CONTROL  WC  = A*(B+|D|)*D 


WHERE 


WC  = COMMANDED  ROTATIONAL  RATE 
A = QUADRATIC  SENSITIVITY  FACTOR 
B = LINEAR/QUADRATIC  SENSITIVITY 
1D|=  ABS.  VALUE  OF  DEFLECTION 
D = HAND  CONTROLLER  DEFLECTION 


COMMAND  Q RATE  SCALED  45  DEG/ SEC 


-ASSEMBLE  REV  IS  ION-0-69--QF-  AGC— PROGRAM  LUMINARY  BY  NASA  2-0-211 12- 0X1 


1-9X12-  NOV.  2 5 , L 9X3 LMQAJL 


0X2 GAG  F 1441 


GAP: 

L Q , R—  AXES  RCS  AUTOPILOT 


USER' S PAGE  NO.  6 E6  S4 


02332 

17, 2337 

0 0006 

1 

EXTEND 

02333 

REF 

8 

LAST 

1440 

17,2340 

7 1442 

0 

MP 

STIK  SENS 

ny  ^ ^ 4 

REF 

3- 

-LAS  T 

1 1±2  8 

-17,2341 

.5  7' 4.54 

0 

XCH 

BLAST  - — 

02335 

17,2342 

4 00  00 

0 

COM 

02336 

REF 

4 

LAST 

144  1 

17, 2343 

6 1454 

0 

AD 

R LAS  T 

02337 

REF 

FAST 

1 4 8 

17,2  344 

55' 740 

1 

TS 

DAPT  EMP4 

0234 

RFF 

5 

LAST 

1440 

17, 2345 

4 1453 

0 

CS 

OLAST 

INTERVAL. 

02  34  5 

REF 

14 

LAST 

1435 

17,2346 

6 1420 

0 

AD 

OMEG AO 

_ 02  3-5- 

- RFF 

1 

17,2347 

55 ' 4 34 

1 

TS 

Q_RAT  FDIF 

02355 

RFF 

5 

LAST 

144  1 

17,2350 

4 1454 

1 

CS 

RLAST 

0236 

REF 

8 

LAST 

143  5 

17, 2351 

6 1421 

1 

AD 

□MEG AP 

02  3-6 5 

-R  Ef 

I 

17,2352 

55' 435 

0 

IS 

RP  AT  ED  IF  ... 

0237 

REF 

2 

LAST 

144  1 

17, 2353 

5 3 ' 43  5 

0 

ENTERQR 

DXCH 

QRATEDIF 

TRANSFORM  RATFS  FROM  Q, R TO  U,V  AXES 

02371 

REF 

2 

LAST 

143  6 

17, 2354 

0 3100 

0 

TC 

RDT45DEG 

02372 

RFF 

1 

-3-7  ^2-3  5-5 

5.3' 425- 

_L_ 

DXCH 

URAT (DIF 

02373 

REF 

6 

LAST 

1440 

17,2356 

1 1 1 7 3 7 

1 

CCS 

3APTEMP3 

CHECK  IF  Q COMMAND  CHANGE  EXCEEDS 

02374 

17,2357 

0 2362 

1 

TC 

+3 

BREAKOUT  LEVEL.  IF  NOT,  CHECK  R. 

-Q-2-37  5 

1 7 , 2360 

0-2  3X2- 

1 

IC-- 

+ 2 

02376 

17, 2361 

0 2362 

1 

TC 

+ 1 

02377 

REF 

6 

LAST 

1429 

17, 2362 

6 1474 

1 

AD 

-PAT  FDB 

02-37  8 

17,23.63 

0 -0  0 0-6- 

1 

EXTEND 

02379 

17, 2364 

6 2366 

0 

BZMF 

+ 2 

0238 

REF 

1 

17,2365 

1 2404 

1 

TC  F 

ENTFPUV  -2 

BREAKOUT  LEVEL  EXCEEDED.  DIRECT  RATE. 

02381 

RFF- 

4_ 

LAST 

144  1 _ 

17.2366 

1 1 '740 

-1 

CCS 

DAPT  FMP4 

R COMMAND  BREAKOUT  CHECK. 

02382 

17,2367 

0 2372 

0 

TC 

+3 

02383 

17,2370 

0 2372 

0 

TC 

+ 2 

02384 

17,2371 

Q 23  72 

0 

TC 

+ 1 

02385 

RFF 

7 

LAST 

144  1 

17,2372 

6 1474 

1 

AD 

-PAT  EDB 

02386 

17, 2373 

0 0006 

1 

EXTEND 

02387 

17,2X74- 

6 237.6 

1 - 

BZMF 

+ 2 

02388 

REF 

2 

LAST 

144  1 

17,2375 

1 2404 

1 

TC  F 

ENTERUV  -2 

BREAKOUT  LEVEL  EXCEEDED.  DIRECT  RATE. 

02389 

REF 

47 

LAST 

1440 

17,2376 

3 1273 

0 

CA 

RCSF  LACS 

BREAKOUT  LEVEL  NOT  EXCEEDED.  CHECK  FOR 

02  3 R 91 

-RFF- 

2- 

LAS-T- 

14  2 7 

17,2377 

7.  4741 

0 

MASX 

-ORB  I T 

DIRFCT  RATE  CONTROL  LAST  TIME. 

0239 

17,2400 

0 0006 

1 

EXTEND 

02391 

17,2401 

1 2403 

0 

BZF 

+ 2 

023-92 

—RFF— 

3 

-XASX- 

144  1 

17,2.402 

.1  2-4  0.6 

0 

TC  F 

ENTERUV 

CONTINUE  DIRECT  RATE  CONTROL. 

02407 

REF 

2 

LAST 

1440 

17, 2403 

1 2616 

0 

TC  F 

STI LLRCS 

PSEUDO-AUTO  CONTROL. 

02408 

REF 

1 

17, 2404 

3 2277 

1 

CA 

40CYCL 

02-409 

REF 

2__ 

LAST 

141  6 

17,  2405 

5 5 ' 4 55 

0 

TS 

TC  0 R 

02414 

17, 2406 

0 0004 

0 

ENTERUV 

INHINT 

DIRECT  RATE  CONTROL. 

02415 

REF 

59 

LAST 

143  8 

17,  2407 

0 46  74 

0 

TC 

I BNKC ALL 

02416 - 

-REF_ 

-.  13 

--LASJ- 

143-8 

17,2410. 

40153 

1 

FC  ADR 

ZATT  ERDR 

0241  7 

17, 2411 

0 0003 

1 

RELINT 

02418 

RFF 

290 

LAST 

1440 

17, 2412 

3 4755 

1 

CA 

ZERO 

02419 

REF- 

- 6 LAST  1.42  8 

17,2413 

-5.5-'  446 

-1 

TS 

DYER  POP 

0242 

RFF 

7 

LAST 

144  1 

17,2414 

55' 447 

0 

TS 

DYERROR  +1 

02421 

REF 

6 

LAST 

142  8 

17, 2415 

5 5 ' 4 50 

0 

TS 

DZER  ROR 

-02422 

RFF 

7 

L AST  . 

-1443— 

17,-2416- 

5 5 ' 45 1 

J 

TS 

3ZFPR0R  +1 

02423 

REF 

2 

LAST 

144  1 

17,2417 

l 1' 424 

0 

CCS 

UR  A T ED  I F 

02424 

17,2420 

1 2423 

1 

TC  F 

+ 3 

GAP: ASS  E M BL  E -R  E V-I-S  -104-0  69  OFAGC  PROGRAM  LUMINARY  RY  NASA  2021112- Oil 


19:0-2  MOV*-  25- ,-L -9-6.8 LMOAP- 


.012 PAG  F 1 442_ 


L 

Q,R- 

■AXES 

RCS  AUTOPILOT 

USER'S  PAGF  NO.  7 E6  S4 

02425 

17,2421 

1 2423 

1 

TCF 

+ 2 

02426 

17, 2422 

1 2423 

1 

TCP 

+ 1 

2 

J T 

1 43  0 

17, 2 42  3 

6 14  74 

1 

AD 

T-AP-G  ET  re 

TF  TARGET  OB  IS  EXCEEDED,  CONTINUE 

02428 

17,2424 

0 00  06 

1 

EXTEND 

DIRECT  RATE  CONTROL. 

02429 

REF 

i 

17,2425 

6 2441 

1 

BZMF 

VDB 

REF 

1 

1-7, 2 426 

11*425 

_] 

CCS 

VP  AT-FDIF  ... 

024301 

17,2427 

1 2432 

1 

TCF 

+ 3 

024302 

17,2430 

1 2432 

1 

TCF 

+2 

02410^ 

1 243? 

1 

TC  F 

+ 1 

024304 

REF 

3 

LAST 

144  2 

17, 2432 

6 1474 

1 

AD 

TAPGFTDB 

024305 

17,2433 

0 0006 

1 

EXTEND 

0243  0.6 

17, 2434 

6 2436 

1 

BZMF 

<-? 

024307 

REF 

1 

17,2435 

1 2452 

1 

TCF 

QRT  I ME 

024308 

REF 

291 

LAST 

144  1 

17, 2436 

3 4755 

1 

CA 

ZERO 

0243  09 

REF 

? 

LAST 

144  2 

17, 2437 

55*425 

1 

TS 

VRAT  EDIF 

02431 

REF 

2 

LAST 

1442 

17,2440 

1 2452 

1 

TCF 

QRTIME 

024311 

REF 

3 

LAST 

1442 

17, 2441 

1 1 ' 4 25 

1 

VDB  CCS 

VPATEDIF 

02  43-2 

17,  2 44Z 

0 _2_445 

0 

TC 

+ 3 

02433 

17, 2443 

0 2445 

0 

TC 

+2 

02434 

17, 2444 

0 2445 

0 

TC 

+ 1 

0243-6 

RF-F 

L AST 

L44  2 

17, 2445 

6 1474 

1 

AO 

TARGETDB 

TF  TARGET  DB  IS  EXCEEDED,  CONTINUE 

02438 

17,2446 

0 0006 

1 

EXTEND 

DIRECT  RATE  CONTROL.  IF  NOT,  FIRE  AND 

0244 

REF 

1 

17, 2447 

6 2461 

0 

BZMF 

TOPSEUDO 

SWITCH  TO  PSEUDO-AUTO  CONTROL  ON  NEXT 

02441 

-RE  F 

2-92— 

LAST 

144-2— 

17, 2450 

3-4755 

1 

CA 

ZERO 

PASS. 

02442 

REF 

3 

LAST 

144  1 

17,2451 

55 ' 4 24 

0 

TS 

UPAT  EDIF 

02443 

REF 

3 

LAST 

144  1 

17,2452 

3 1455 

1 

QRTIME  CA 

TCQR 

DIRECT  RATE  TIME  CHECK. 

02446 

17, 2453 

0 0006 

1 

EXTEND 

02448 

17, 2454 

6 2461 

0 

BZMF 

F 5 

BRANCH  IF  TIME  EXCEEDS  4 SEC. 

02449 

REF 

48 

LAST 

144  l 

17, 2455 

4 1273 

1 

CS 

RCSF  LAGS 

024-5  _ 

-R-EUE 

3 

--LAST 

1441 

lTj-2456 

7 4741 

0 

MASK  ORBIT 

02451 

REF 

49 

LAST 

144  2 

17, 2457 

27*273 

1 

ADS 

RCSFLAGS 

BIT  11  IS  l. 

02452 

17, 2460 

0 2464 

0 

TC 

+ 4 

02453 

-REF 

4 

-X  AS  T 

-1442 

17,2461 

4 4741 

0 

TOPSEUDO  CS 

ORB  I T 

02454 

REF 

50 

LAST 

1442 

17, 2462 

7 1273 

1 

MASK 

RCSF  LAGS 

02455 

REF 

51 

LAST 

144  2 

17, 2463 

5 5 ' 2 73 

1 

TS 

RCSF  LAGS 

BIT  11  IS  0. 

0245-6 

RE-F 

1 

17-,  2464 

3-25 30 

0 

CA 

H -AMD  ADR 

02458 

REF 

2 

LAST 

14  3 9 

17, 2465 

5 5 ' 4 75 

1 

TS 

RETJADR 

0250 

REE 

168 

LAST 

1440 

17, 2466 

3 4753 

1 

CA 

ONE 

02-5-1 

REF 

_ 4 

-LAST 

143  9 

17,2467 

5 5*4  76 

1 

BACKHAND  TS 

A X I SCTP 

0252 

REF 

38 

LAST 

143  9 

17, 2470 

3 4751 

0 

CA 

FOUR 

. 02-5-3 

RE-F 

-10 

LAST 

143  9 

17, 2471 

_5 5*  741 

0 

TS 

NUMB  ERT 

02  54 

REF 

5 

LAST 

1442 

17, 2472 

51*476 

0 

INDEX 

AX  I S CTP 

02-5.5 

-REF 

3- 

LAST 

-L40  7 

17,2-473 

51*535 

0 

INDFX 

SKI  PU 

0256 

17,2474 

1 2475 

1 

TCF 

+ 1 

0257 

REF 

39 

LAST 

144  2 

17,2475 

3 4751 

0 

CA 

FOUR 

025-8 

RE-F 

6 

JL  AST 

1442 

17,2476 

5 1 ' 4 76 

0 

INDEX 

A X I SCTP 

0259 

REF 

4 

LAST 

144  2 

17, 2477 

55*535 

1 

TS 

SKI  PU 

0260 

REF 

1 

17, 2500 

1 2737 

l 

TCF 

LOOPER 

MAC  A 7071  1 17—011 

1 9x0 2 NOV.  2 5 , 1 968 L-MQAP-  . 017  PAO  E_  1 4 43 

L 

Q.R-AXES 

RCS  AUTOPILOT 

USER'S  PAGE  NO.  8 E6  S4 

0268 

RFF  7 

LAST 

1442 

17,2501 

51*476 

0 

INDEX 

AXIS  CTR 

0269 

REF  A 

LAST 

1442 

17, 2502 

1 1 ' 4 24 

0 

CCS 

UR AT  ED  IF 

INDEX  AXIS  QUANITY 

n?7H 

R_FF  2 9 3 

LAST 

144  2 

1 7,2  503 

3 4755 

1 

. -CA  - . 

Z-E-RQ 

0 -U  1/ JETACC-AOSU 

0271 

17,2504 

1 2506 

1 

TCF 

+2 

1 +U  1/ JETACC+AOSU 

0272 

REF  169 

LAST 

1442 

17,2505 

3 4753 

1 

CA 

ONE 

16  -V  1/ JETACC-AOSV 

p F F fl 

1 A^T 

144^ 

1 7 , 25lO  6 

- 51*4  76 

O - 

INDEX 

AX  I SCTR  _ 

17  +V  1/ JETACC+AOSV 

0274 

RFF  1 

17, 2507 

6 3657 

0 

AD 

AXISDIFF 

J ET  ACC  = 2 JET  ACCELERATION  (1  FOR  FAIL) 

L A9T 

17,25-10 

so  non 

1 

I MILE  X- 

A - _ 

0276 

REF  1 

17 i 2 51 1 

4 1571 

1 

CS 

1/ANET2  +1 

0277 

17,2512 

0 0006 

1 

EXTEND 

02  78 

9 

L AST 

1443 

- 17,7513 

5 1476 

CL 

I NHEX 

AXI  SCTR 

URATEDIF  IS  SCALED  AT  PI/4  RAD/SEC 

0279 

REF  5 

LAST 

1443 

17,2514 

7 1424 

0 

MP 

URATEDIF 

JET  TIME  IN  A SCALED  32  SFC 

0280 

REF  4C8 

LAST 

1434 

17,2515 

54  002 

1 

TS 

Q 

_ 02-8-1- 

REF  -510 

1 AS  I 1443 

1 7_>  25_16,  _ 

-_2Q  0 01 

1- 

DAS 

A 

0282 

REF  4C9 

LAST 

144  3 

17, 2517 

6 0002 

0 

AD 

Q 

0283 

REF  511 

LAST 

1443 

17, 2520 

54  000 

0 

TS 

A 

OVERFLOW  SKIP 

0284 

_ 17,2521 

1 *523 

0 

TCF 

+ 2 

0265 

REF  410 

LAST 

1443 

17, 2522 

3 0002 

0 

CA 

0 

RIGHT  SIGN  AND  BIGGER  THAN  150MS 

0286 

REF  10 

LAST 

144  3 

17,2523 

5 1 ' 476 

0 

SETTIME 

INDEX 

AXI SCTR 

■0287  _ 

ELE-F  —6- 

— L ASI 

143-9  _ 

-17 , 2-524 

5 5*  525 

0 

TS  __ 

T JU 

SCALED  AT  10.67  WHICH  IS  CLOSF  TO  10.24 

0288 

REF  2 

LAST 

14  3 9 

17, 2525 

1 2661 

0 

TCF 

AFTERTJ 

0289 — 

REF— 2 94 

-LAS-T 

14  4 3 

17 , 2526 

3 4 7-55 

1 

ZFR-OJ  J 

_CA_  

XJE-RjO 

0290 

REF  1 

17, 2527 

1 2523 

0 

TCF 

S F T T I ME 

0*91 R-EF 1 17-,  2 530 02-467  -0 — HA  WO  ADR  — GEN  APR.  B-ACK-HA.ND — 


40292 

GTS  WILL  BE  TRIFD  IF 

A 02  93 

1.  US-EQRJT  S = 

0 y 

A0294 

2.  ALLOWGT  S 

POS, 

A0295 

3.  JETS  ARE 

OF  F ( 0 , R— AXE  S ) 

02  96 

RFF 

4- 

LAST  - 854 

17,2531 

3 4736 

J— 

TRY-GTS  CAF 

USFORJTS 

IS  JET  USE  MANDATORY.  (AS  LONG  AS 

02  97 

REF 

60 

LAST  1440 

17,2532 

7 Oil! 

1 

MASK 

DAPBOOLS 

USEQRJTS  BIT  IS  NOT  BIT  15,  CCS  IS  SAFE) 

0298 

REF 

512 

LAST  1443 

17, 2533 

10  000 

0 

CCS 

A 

0299 

R-E  F 

L 

1 7,  2534 

1 2D  60 

1 

TCF 

PCS 

0300 

REF 

2 

LAST  1407 

17, 2535 

11' 501 

0 

CCS 

ALLOWGTS 

NO.  DOES  AOSTASK  OK  CONTROL  FOR  GTS? 

0301 

17, 2536 

1 2540 

0 

TCF 

+ 2 

03-02 — 

— R££- 

* 

LASX-  144  3- 

17, 2-53  7 

1 20  60 

1 

TC  F 

RCS 

0303 

17, 2540 

0 0006 

1 

EXTEND 

0304 

RFF 

6 

LAST  1408 

17, 2541 

00  005 

1 

READ 

CHAN5 

0305 

-REF-  - 

333- 

L-ASJ  1443  - 

17,  2 542 

LQ  0_00 

-0  . 

CCS 

A 

0306 

REF 

1 

17, 2543 

1 2547 

1 

TCF 

CHKINGTS 

0307 

17,2  544 

0 0006 

1 

GOTOGTS  EXTEND 

03*8— 

—REF— 

1- 

17,2545 

3-  25  62 

1 

DC  A 

STSC ADR _ 

0309 

17,2546 

5 2 0 06 

0 

DTCB 

03-1-0 — 

-R-EF 

3- 

LAST  14-4-0 

17,2 547— 

1 1 ' 6 3-L 

_Q 

CHKINGTS-  CCS  - 

CNGJ  S 

WAS  THF  TRIM  GTMRA1  C ON  TP  01  1 TNG 

0311 

17,2550 

1 2552 

0 

TCF 

+ 2 

YFS.  SET  UP  A DAMPED  NULLING  DRIVE. 

0312 

REF 

3 

LAST  1443 

17,2551 

l 2060 

1 

TCF 

RCS 

NO.  NULLING  WAS  SET  UP  BEFORE.  DO  RCS 
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L 

Q.R- 

■AXES 

RCS 

AUTOPILOT 

USER'S  PAGE  MO. 

9 

E6  S4 

0313 

0314 

REF 
P FF 

60 

1 

LAST 

144  1 

17. 2552 

17.2553 
17 , 2 5-54 

0 0004  0 
0 4674  0 
43450  1 

INHINT 

TC 

GADR 

I BNKCALL 
TIMEGMBL.  _ 

0316 

0317 
03X8 

REF 

RFF 

295 

4 

LAST 

L_AST 

1443 

144.3 

17.2555 

17.2556 

17. 2557 

0 0003  1 
3 4755  1 
55*631  0 

RELINT 

CAF 

TS 

ZERO 
I NGT  S 

0319 

REF 

4 

LAST 

1443 

17,2560 

1 20  60  1 

TC  F 

RCS 

R F F 

23 

1 JLST 

1 4 3 A 

F 6 t 1 A33 

JiB  ANK_= 

_C_QUX  D - - 

0321 

REF 

i 

17, 2561 

03263  0 

GTSCAOR 

2CADR 

GTS 

0321 

REF 

i 

17,2562 

42106  0 
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Q , R—  A X ES  RCS  AUTOPILOT 


USER'S  PAGE  NO.  10 


E6  S4 


P0322  SUBROUTINE  TO  COMPUTE  Q.R-AXES  ATTITUDE  ERRORS  FOR  USE  IN  THF  RCS  AND  GTS  CONTROL  LAWS  AND  THE  DISPLAYS. 


1 ' 1 

[ art 

-7  AT  ? 

1 7t2 563 

30  033 

1 

QER RCALC 

cae  cod  y 

0—  F R R DR  r.AI  rill  AT  T DN 

0326 

17,2564 

0 0006 

1 

EXTEND 

0327 

REF 

7 

LAST 

1432 

17, 2565 

21'634 

0 

MSU  C DU Y D 

C DU  ANGLE  - ANGLE  DESIRED  (Y-AXIS) 

_RJLE 

27 

1 AST 

142  9 

1 7 , 25-6-6 

5 5 1 735 

0 

TS 0APTEMP1 

SAVF  FDR  RFRRCAI C 

0329 

17,2567 

0 0006 

1 

EXTEND 

0330 

REF 

4 

LAST 

1419 

17, 2570 

7 1413 

1 

MP  M21 

(CDUY-CDUYD)*M21  SCALED  AT  PI  PADIANS 

n33i 

R FF 

4 

3.  ASJ 

14  3 2 

17  >2571 

35' 750 

0 

TS  E 

0332 

REF 

17 

LAST 

1419 

17, 2572 

30  034 

0 

CAE  C DU  Z 

SECOND  TERM  CALCULATION: 

0333 

17,2573 

0 0006 

1 

EXTEND 

0334 

RFF 

7 

LAST 

141  6 

1 7. 2574 

2 1 ' 6 3 5 

1 

MSU  SDUZD 

C DU  ANGLE  -ANGLF  DESIRED  (Z-AXIS) 

0335 

REF 

9 

LAST 

142  1 

17,2575 

5 5 ' 736 

0 

TS  0 APT  EMP2 

SAVE  FOR  REPRCALC 

0336 

17, 2576 

0 0006 

1 

EXTEND 

0337 

2FF 

7 

LAST 

141  9 

17, 2.577 

7 1415 

_L_ 

MP  M2? 

( CDUZ-CDUZD) *M22  SCALED  AT  PI  PADIANS 

0338 

REF 

3 

LAST 

140  3 

17,2  600 

6 1300 

0 

AD  DELOEROR 

KALCMANU  INERFACE  ERROR 

0339 

RFF 

5 

LAST 

144  5 

17,2601 

6 1750 

1 

AD  E 

0340 

RFF 

4 

_l  A S T 

143  S 

1 7 , 2-6-02 

57*446 

-JO 

XCH  DFRRflR 

SAVF  Q-ERROR  FOR  EIGHT-BALL  OISPLAY. 

0341 

REF 

28 

LAST 

144  5 

17,2603 

3 1 ' 735 

1 

RFRRCALC 

CAE  D APT  FMP1 

R-ERROR  CALCULATION: 

034? 

17^  2-6-04 

0 0006 

1 

EXTEND.  _ 

CDU  ANGLE  -ANGI  F DESIRED  (Y-AXIS) 

0343 

REF 

4 

LAST 

1419 

17,2605 

7 1414 

0 

MP  M31 

( CDU Y— COU YD ) *M3 1 SCALED  AT  P[  RADIANS 

0344 

REF 

6 

LAST 

144  5 

17, 2606 

55' 750 

0 

TS  E 

0345 

RFF 

10 — 

LAST 

144  5 

1 7 , 2 607 

3 1'  73.6 

l 

CAL  ELA-PXENP2 

SECOND  TERM  CALCULATION: 

0346 

17, 2610 

0 0006 

l 

EXTEND 

CDU  ANGLE  -ANGLE  DESIRED  (Z-AXIS) 

0347 

REF 

5 

LAST 

141  9 

17, 261 1 

7 1416 

l 

MP  M3? 

(CDUZ— CDUZD)*M32  SCALED  AT  PI  RADIANS 

0348 

-REF 

3 

LAST 

14  0.3. 

17, 2 612 

_6  1301 

i 

AD  DFLREPDR 

KALCMANU  INFRFACE  FRROR 

0349 

REF 

7 

LAST 

1445 

17, 2613 

6 1750 

l 

AD  E 

0350 

REF 

4 

LAST 

143  8 

17,2614 

57' 450 

l 

XCH  RFRROP 

SAVE  R-ERROR  FOP  EIGHT-BALL  DISPLAY. 

03  51— 

— REF 

-41-1- 

lASi 

144  3 

1 7.2615 

0 00D-2- 

D 

TC Q _ _ 

GAp; a-s.se  MBLER-E  VISION  0 69  OF  A GC  PROGRAM  LUMINARY ■ BY--NA  SA  ?0  21112-011 19 :Q?  NOV.  25,1968 LHDAP .012 PAGE-]  446 


L 

Q,R- 

AXES 

RCS  AUT0PI10T 

USER'S  PAGE  NO.  1L  E6  S4 

P 03  5 1 1 

"ATTSTEER"  IS 

THE  ENTRY  POINT 

FOR  Q,P 

L—  i 

AXES  (U.V-AXES)  ATTITUDE  CONTROL 

USING  THE  REACTION  CONTROL  SYSTEM 

j £<;j 

1 41  <5 

ATTSTEER  EQUALS 

S-TI  LLPC-S- 

" ST  T 1 1 RCS"  IS  THF  RCS  F XT T FROM  TRYGTS. 

0352 

REF 

5 

LAST 

1445 

17,2616 

3 1450 

i 

STILLRCS  CA 

RERROR 

Q 

RFF 

57  4_ 

L AST 

1443 

17  * 2 617 

22  0.00 

i 

1 XCH 

A 

03535 

REF 

5 

LAST 

144  5 

17,2620 

3 1446 

0 

CA 

OERROR 

0354 

REF 

3 

LAST 

144  1 

17, 2621 

0 3100 

0 

TC 

R0T45DEG 

n3  55 

R fF 

2 

LAST 

14  5 

17,2622 

53' 750 

0 

DXCH 

JERRCR 

A0359 

PREPARES  CALL  TO  TJFTLAW  (OP  SPSRCSI DOCKED) ) 

A 03-6Q 

PREFORMS  SKIP  LOGJ  C ON_U  OR  Y 

AXIS  IF  NEFDED. 

0361 

REF 

i 

17,2623 

3 3045 

0 

TJLAW  CA 

TJL A WADR 

0362 

REF 

3 

LAST 

144  2 

17, 2624 

5 5 1 475 

1 

TS 

RET J ADR 

m***  p.  ff 

170 

lj^st 

1443 

17,2625 

3 4753 

1 

CA 

ONE 

0364 

RFF 

ii 

LAST 

144  3 

17, 2626 

55*476 

1 

TS 

AXISCTR 

0365 

REF 

12 

LAST 

1446 

17, 2627 

51 ' 476 

0 

INDEX 

AXISCTR 

03A6- 

_REF 

- 5 

LASJ 

144? 

1 7-,  2 63.0. 

51' 535 

0 

INDEX 

SKIPU 

0367 

17, 2631 

1 2632 

0 

TCF 

+ 1 

0368 

REF 

40 

LAST 

144  2 

17, 2632 

3 4751 

0 

CA 

FOUR 

-03  69 

REE- 

13 

LAST 

144  6 

17, 2633  . 

5 1 ' 4 76 

0 

INDEX 

AXISCTR 

0370 

REF 

6 

LAST 

144  6 

17, 2634 

55*535 

1 

TS 

SKIPU 

0371 

REF 

2 

LAST 

1442 

17,2635 

1 2737 

1 

TCF 

LOOPER 

-03  72 

REF 

14 

-LAST 

144  6 

17 ,263-6  - 

5 1 ' 4 76 

0 

INDEX 

A X I SCTR 

0373 

REF 

3 

LAST 

1446 

17,2637 

3 1747 

1 

CA 

UERROP 

0374 

REF 

8 

LAST 

144  5 

17,2640 

55*750 

0 

TS 

E 

0375 

REF 

15 

-LAST 

144  6 

17, 2 64 L 

51*476 

0 

INDEX 

AXIS  CIS 

0376 

REF 

12 

LAST 

1436 

17, 2642 

3 1424 

1 

CA 

OMEGAU 

0377 

REF 

2 

LAST 

144 

17, 2643 

55*425 

1 

TS 

EDOT 

Q-3Za 

REF 

61 

LAST 

1443 

1 7.f_2-644 

3 am 

0 

CA 

DAPROOLS 

0379 

REF 

9 

LAST 

14  3 3 

17,2  645 

7 4737 

1 

MASK 

CSMDOCKD 

0380 

REF 

515 

LAST 

1446 

17,2646 

10  000 

0 

CCS 

A 

...  0381 

17,2647 

1 26  5 2 

0 

TCF 

+ 3 

0382 

REF 

2 

LAST 

1433 

17,2650 

0 3207 

1 

TC 

TJFTLAW 

0383 

REF 

3 

LAST 

144  3 

17,2651 

l 2661 

0 

TCF 

AFTERTJ 

03&A 

-REE 

62 

L_AS  T 

1446 

17,765? 

4 01 1 1 

1 

+ 3 CS 

OAPRCOLS 

DOCKED.  IF  GIMB4L  USABLE  DO  GTS  CONTROL 

0385 

REF 

5 

LAST 

144  3 

17, 2653 

7 4736 

0 

MASK 

JSEGPJTS 

ON  THE  NEXT  PASS. 

0386 

RFF 

516 

LAST 

1446 

17,2654 

1 0 000 

0 

CCS 

A 

USEQRJTS  8 I T MUST  NOT  BE  BIT  15. 

03  87 

-REE- 

5_ 

LAST 

14.4  0 

17,  2 655 

5 5 '6  27 

1 

TS 

:ptr  oler 

GIMBAL  USA3LF.  STORE  POSITIVE  VALUE. 

0388 

REF 

2 

LAST 

1433 

17, 2656 

0 3700 

0 

TC 

SPSRCS 

DETERMINE  RCS  CONTROL. 

0389 

REF 

41 

LAST 

1446 

17, 2657 

3 4751 

0 

CAF 

FOUR 

ALWAYS  CALL  FOR  2-JET  CONTROL  ABOUT  U,V. 

0-389-1- 

-REE 

11 

-LAST 

144  2 

1 7 , 266-0 

-5  5*  741 

0 

TS 

NUMB ERT 

FALL  THROUGH  TO  J FT  SELECTION,  FTC. 

A0390 

Q.R-JET-SELECT ION-LOGIC 

A0391 

INPUT:  AXISCTR 

0,  1 FOR 

U,  V 

A0391 1 

SNUFFBI T 

ZERO  T J ETU , V AND  TRANS.  ONLY  IF  SET  IN  A DPS  BURN 

A03Q7 

TJU, TJV 

JET  TIME 

SCALED  10.24  SEC. 

A0393 

NUMB  ERT 

INDICATES  NUMBER  OF  JETS  ANO  TYPE  OF  POLICY 

A0394 

RET  J A DP 

WHERE  TO 

RETURN  TO 
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L 

Q.R- 

AXES 

RCS  AUTOPILOT 

USER*  S PAGE  NO.  12  E6  S4 

A0395 

A0396 

OUTPUT: 

NO.UIVIJETS  PATE  DERIVATION  FEEDBACK 
CHANNEL  5 

SKTPU.SKTRV  FOR  LESS  THAN  150MS  FIRING 

A0398 

NOTES: 

IN  CASE 
JETS  OF 

OF  FAILURE  IN  DESIRED  ROTATION  POLICY, "ALL"  UNFAILED 
THE  DFSIRED  POLICY  ARE  SELECTED.  SINCE  THERE  ARE  ONLY 

A0400 

TWO  JFTS,  THIS  MEANS  THE  OTHER  ONE  OR  NONE.  THE  ALARM  IS  SENT 

A0401 

IF  NONE 

CAN  BE  FOUND. 

A 040  2 

TIMES  LESS  THAN  14  MSEC  ARE  TAKEN  TO  CALL  FOR  A SINGLE-JET 

A0403 

MINIMUM 

IMPULSE,  WITH  THE  JET  CHOSEN  S EMI-R ANDOML Y . 

0405 

REF 

28 

LAST 

13  3 2 

17,2661 

3 0101 

1 

AFTERTJ 

CA 

FLAGWRD5  IF  SNUFFB I T SET  DUPING  A DPS  BURN  GO  TO 

04051 

REF 

i 

17,2662 

7 4737 

1 

MASK 

SNUFFBIT  XTRANS;  THAT  IS,  INHIBIT  CONTROL. 

1 7,2 66  3 

0 0006 

1 

EXTEND 

04053 

REF 

i 

17,2664 

1 2675 

0 

BZF 

DOROTAT 

04054 

REF 

19 

LAST 

14  3 7 

17, 2665 

4 0106 

1 

CS 

FLGWRD10 

R Ff 

1 4 

1 AST 

143  7 

17  f 2666 

7 4737 

1 

MA  S K _ 

APSFLBTT  __ 

04056 

17, 2667 

0 0006 

1 

EXTEND 

0405  7 

REF 

2 

LAST 

144  7 

17, 2670 

1 2675 

0 

8 Z F 

DOROTAT 

0405  8 

fiEF 

63 

LAST 

144  6 

17,2671 

3 01 11_ 

0 

CA 

DAPR  COLS 

04059 

REF 

6 

LAST 

1437 

17,2672 

7 4744 

0 

MASK 

DR  IFTEIT 

0406 

17,2673 

0 0006 

1 

EXTEND 

04-06  1 

R FF 

3 

LAST 

14  3 9 

17,  2674l 

1 3015 

_1 

BZF 

X TP  A NS 

04062 

R FF 

ICO 

LAST 

1439 

1 7,2675 

3 4752 

0 

DOROT4T 

CAF 

TWO 

040  7 

p ff 

7 79 

1 AST 

-144  0 

17, 2676 

54  0Q1 

1 

TS 

L _ 

0408 

REF 

16 

LAST 

1446 

17,2677 

51*476 

0 

INDEX 

A XI SCTR 

0409 

REF 

7 

LAST 

1443 

17,2700 

11' 525 

0 

CCS 

T JU 

1 7,  2 701 

1 2 7_06- 

0 

ICF 

+ 5 

0411 

REF 

1 

17  j 2 70? 

1 2731 

1 

TCF 

NCROTAT 

0412 

17, 2703 

1 2705 

0 

TCF 

+ 2 

0413 

R-F-F 

2 

LAST 

144  7 

17, 2704 

1 2731 

1 

TCF 

N.0R.0  TAT 

0414 

17,2705 

22  007 

0 

ZL 

0415 

REF 

171 

LAST 

1446 

1 7, 2706 

6 4753 

1 

AD 

ONE 

— Q44  6 

R-F_F_ 

_ 5 

last 

143  2 

17,2707 

55’ 133 

0 

TS 

ABST  J ...  ... 

0417 

REF 

17 

LAST 

144  7 

17,2710 

3 1476 

0 

CA 

AXIS  CTR 

0418 

R-Ef 

2-80 

LAST 

1447 

17,2711 

6 0001 

0 

AD 

1 ...  . 

0419 

REF 

8 

LAST 

1437 

17,2712 

55*  742 

0 

TS 

ROTINDEX  0 12  3 = -U  -V  - + U +V 

042-0 

-R-S-F 

_6- 

LAS  T J 44  7 

17,  2 713- 

3 17  35 

1 

XA 

ABST  J 

0421 

REF 

i 

17, 2714 

6 3042 

1 

AD 

- 1 50  MS 

042? 

17,2715 

0 0006 

1 

EXTFND 

-0423 

REF 

- _JL 

117,2716 

6 27  42. 

1 

BZMF 

DOSK  IP 

0424 

REF 

2 

LAST 

1437 

17, 2717 

0 3130 

0 

TC 

SELC TSUB 

0425 

REF 

18 

LAST 

1447 

17,2720 

51*476 

0 

INDEX 

AXIS  CTR 

0426 

REF 

1 

17, 2721 

3 3037 

0 

CA 

INDEXES 
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L 

Q , R- 

AXES 

RCS 

AUTOPILOT 

USER’S  PAGE  NO.  13  E6  S4 

0427 

REF 

281 

LAST 

144  7 

17,2722 

54  001 

1 

TS 

L 

14  VP 

17*2  723 

3 1737 

-0- 

CA 

PniY TFMP 

04289 

17, 2724 

0 0004 

0 

INHINT 

0429 

REF 

282 

LAST 

144  8 

17,  2725 

50  001 

0 

INOEX 

L 

-LAST- 

1432 

17,  2 726 

0 5 745 

_L_ 

TC 

-UJ?  I T E-P 

04301 

17,2727 

0 0003 

1 

RELINT 

RFF 

1 

17,2  730 

1 3003 

0 

TC  F 

FEEDBACK 

0432 

REF 

19 

LAST 

1447 

17, 2731 

51 '476 

0 

NOROTAT 

INDEX 

AXIS  CTR 

0433 

REF 

2 

L ASX 

-1447 

17,2732 

3 3037 

0 

CA 

I-ND.E  YES 

0433  1 

17, 2733 

0 0004 

0 

INHINT 

0434 

REF 

517 

LAST 

1446 

17, 2734 

5 0 000 

1 

INDEX 

A 

0436 

R EF 

5 

LAST 

144  8 

17,2735 

0 5 744- 

0 

TC 

WPITFP  -1 

0435  1 

17, 2736 

0 0003 

1 

RELINT 

RFF 

2D 

1 ASX 

144  8 

17,  2 73  7 

1 1 • 476 

1 

LOQPER 

CCS- 

AXIS  CIF-  - 

0437 

REF 

4 

LAST 

1446 

17,2  740 

0 1475 

0 

TC 

RET  J ADR 

0438 

REF 

1 

17, 2741 

1 3173 

0 

TCP 

CLOSEOUT 

04"^  Q 

-RFF 

7 

1 AST 

144  7 

17,2742 

4 1735 

0 

DOSKIP 

cs 

ABST  J 

0440 

REF 

2 

LAST 

1439 

17, 2743 

6 3041 

1 

AD 

+TJMINT6 

14MS 

0441 

17,2  744 

0 0006 

1 

EXTEND 

-04A2 REE 1 17,2  745 A 2744  0 BZM.E NOTMIN 


0443 

REF 

8 

LAST 

1448 

17,2746 

27' 735 

0 

ADS 

ABST  J 

0444 

ref 

21  - 

LAST 

1448 

17, 2747 

_5  1 ' 4 76 

0 

INDEX 

A X I S CTR 

0445 

REF 

8 

LAST 

1447 

17,2  750 

11*525 

0 

CCS 

TJU 

0446 

REF 

3 

LAST 

144  8 

17,2751 

3 3041 

1 

CA 

+ TJM  I NT 6 

0447 

17,  2752 

_1  2 754 

1 

TC  F 

+ 2 

044  8 

REF 

4 

LAST 

144  8 

17,2753 

4 3041 

0 

CS 

+TJMINT6 

0449 

REF 

22 

LAST 

144  8 

17,  2 754 

5 l' 476 

0 

INDEX 

A X I S CTR 

04  50 BEE 9 LAST  144  8 17,2755  55*525  0 IS TJU 


0451 

REF 

4 

LAST 

1437 

17, 2756 

1 1 ' 477 

0 

CCS  SENS  ETYP 

ENSURE  M I N— IMPULSE  NOT  AGAINST  TRANS 

04,52 

_ REF- 

2 

_ L ASX 

144  8 

17,_2X57 

1 2163 

0 

TC F NOTMIN  -1 

0453 

17,2760 

0 0006 

1 

EXTEND 

0454 

REF 

4 

LAST 

394 

17,  2 761 

00  004 

0 

READ  LOSCALAR 

04-55— 

REE 

17? 

LAST 

144  7 

17, 2762 

7 4753 

0 

MASK  ONF 

0456 

REF 

12 

LAST 

1446 

17,2763 

55*741 

0 

TS  NUMBERT 

0457- 

-REE 

_ 3- 

-LAST 

14-47 

17,2764 

0 3130 

0 

NOTMIN  TC  SELCTSUB 

0458 

REF 

23 

L AST 

1448 

17,2765 

51*476 

0 

INDEX  A X I S CTR 

0459  - 

— REE 

3 

LAST 

144  8 

17,2766 

3 3037 

0 

CA  INDFXES 

0460 

17, 2767 

0 0004 

0 

INHINT 

0461 

REF 

5 

LAST 

143  2 

17, 2770 

55*467 

1 

TS  T6FURTHA  +1 

04  62 

REF 

8_ 

LASJ 

14.4  8 

17, 277 1 

3 1737 

0 

CA  POLYTEMP 

0463 

REF 

6 

LAST 

144  8 

17, 2772 

51*467 

0 

INDEX  T6FURTHA  +1 

0464 

RFF 

6 

LAST 

1448 

17,2773 

0 5745 

1 

TC  dRITFP 
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USER'S  PAGE  NO.  14  E6  S4 


0465 

0466 

0467 

REF 
REF 
R EF 

9 

7 

2 

LAST 

LAST 

-LAST 

144  8 
144  8 
L43-2- 

17. 2774 

17.2775 

17.2776 

3 1735 
5 5'  466 
. 0 3046 

1 

0 

- Q- 

CA 
TS 
. TC 

ABST  J 
T6FURTHA 

ITI ST  IN  OR  BANK  BY  NOW 

0468 

17,2777 

0 0003 

1 

RELINT 

0469 

REF 

296 

LAST 

1444 

17,3000 

3 4755 

1 

CA 

ZERO 

04  70 

REF 

24 

LAST 

144  8 

17, 3001 

51' 476 

0 

INDEX 

A X I SCTR 

0471 

-RE_F 

7 

1 AST 

344  6 

17,  300  2 

5 5Z5  35 

1 

TS 

..SKI  PU.  - - - - 

0472 

RFF 

44 

LAST 

1382 

17, 3003 

4 6244 

1 

FEEDBACK 

CS 

THREE 

0473 

R E-E- 

1 3 

L AST 

14  4 8 

1 Z,  3 0X14 

6-1741- 

1 

AD 

NUMBEPT 

0474 

17, 3005 

0 0006 

1 

EXTEND 

0475 

17, 3006 

6 3011 

1 

BZMF 

»3 

0476 

REF 

101 

LAST 

144  7 

17, 3007 

3 4752 

0 

CA 

TWO 

0477 

17,3010 

1 3012 

0 

TC  F 

12 

- 0478  -- 

REF 

173 

LAST 

144  8 

1.7, 3-011 

3 4753_ 

1 

CA 

ONE 

0479 

REF 

25 

LAST 

1449 

17, 3012 

5 1 1 476 

0 

INDEX 

A XI SCTR 

0480 

REF 

2 

LAST 

148 

17,3013 

55*522 

1 

TS 

NO. U JETS 

04-81 

-R-F-F 

- 3_ 

-LAST 

L44  6 

17,3  034 

1 2737 

_1— 

TC  F 

LOOPEP 

0482 

REF 

297 

LAST 

1449 

17,3015 

3 4755 

1 

XTRANS 

CA 

ZERO 

04-83 

REF 

— 10— 

L-AS-T 

-14  4 8 

1 7 , 3-036 

551  525 

0 

TS 

T JU 

0484 

REF 

3 

LAST 

1439 

17, 3017 

55' 526 

0 

TS 

T JV 

0485 

REF 

42 

LAST 

1446 

17, 3020 

3 4751 

0 

CA 

FOUR 

0486 

17, 3-02-1 

0 0004- 

0 

INHINT 

0487 

REF 

8 

LAST 

1449 

17, 3022 

57' 535 

0 

XCH 

SKI  P U 

0488 

17, 3023 

0 0006 

1 

EXTEND 

0485 

-33,3026 

1 -3026- 

1 

BZF 

+ 2 

0490 

REF 

1 

17, 3025 

0 5750 

0 

TC 

W R I TEU  -1 

0491 

REF 

43 

LAST 

1449 

17,3026 

3 4751 

0 

CA 

FOUR 

0492 — 

-REF 

2— 

-LASX 

1407 

17, 3027 

57*  536 

0 

XCH 

ski  py 

0493 

17,3030 

0 0003 

1 

RFL  INT 

0494 

17,3  03-1  . 

o_oao6- 

1 

-EXTEND 

0495 

REF 

2 

LAST 

144  8 

17, 3032 

1 3173 

0 

BZF 

CLOSEOUT 

0496 

17,3033 

0 0004 

0 

INHINT 

0437 

REF- 

1_ 

17,3034 

Q-5761 

1 

TC 

WPI T FV  -1 

0498 

17, 3035 

0 0003 

1 

RELINT 

0499 

REF 

2_ 

LAST- 

1449 

1 7, 3036 

1 3173 

o 

TC  F 

^EOS  EDUT 

0500 

17, 3037 

00004 

0 

INDEXES 

DEC 

4 

0501 

17, 3040 

00015 

0 

DEC 

13 

0592 

17, 3041 

011026 

-0 

+TJMINT6 

DEC 

22 

0503 

17, 3042 

774  17 

0 

-150MS 

DEC 

-240 

0504 

17,3043 

00600 

1 

BIT8.9 

OCT 

00600 

0505 

— 

— 

— 

_ 17,3044- 

00266 

Q 

SCI.  NORM 

OCT 

-26-6 
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CAp: ASSEMBLE  REVISION  069  OF  ASC  PRQ6-RA M--L4-JM-I-N ARY  B-Y  NASA-  20211  12-011  _ 19:02.  NQV._2.5,-L9.68 LMOAP ._Q12 PAGE  145Q. 


L 

Q,R- 

■AXES 

RCS  AUTOPILOT 

USER’ S PAGE  NO.  15  F6  S4 

A0506 

A0507 

THE  JET  LIST: 

THIS  IS  A WAITLIST  FOR  T6RUPTS. 

A0508 

CALLED  BY: 

A0509 

CA  TJ  TIME  WHEN  NEXT  JETS  WILL  BE  WRITTEN 

A0510 

TS  T6FURTHA 

A0511 

CA  INDEX  AXIS  TO  BE  WIRTTEN  AT  IJ  (FROM  NOW) 

A0512 

TS  T6FURTH  A +1 

-AO  5-13- 

TC  JTLST 

A0514 

EXAMPLE-  U-AXIS  AUTOPILOT  WILL  WRITE  ITS  ROTATION  CODE  OF 

Ansi  5 

JETS  INTO  CHANNEL  5.  IF  IT  DESIRES  TO  TURN  OFF  THIS  POLICY  WITHIN 

A0516 

150MS  AND  THEN  FIRE  NFXTU,  A CALL  TO  JTLST  IS  MADE  WITH  T6FURTHA 

A0517 

CONTAINING  THE  TIMF  TO  TURN  OFF  THE  POLICY,  T6FURTHA  +1  THE  INDEX 

AO  5 18 

OF  THE  D- AX  I S I 4 ) , AND_NEXTU  WILL  CONTAIN  THE  "U-TRANS"  POLICY  OR  ZERO. 

A0519 

THE  LIST  IS  FXACTLY  3 LONG. (THIS  LEADS  TO  SKIP  LOGIC  AND  150MS  LIMIT) 

A 05  20 

THE  INPUT  LS  THE  LAST  MEMBER  DF  THE  LIST 

A0521 

RETURNS  BY: 

4-05-22  ■■ 

+ TC  . Q . . 

A0523 

DEE  INI TIONS : (OUTPUT ) 

A0524.. 

TIME6  T I MF  OF  NFXT  RUPT 

A0525 

T6NFXT  DELTA  TIME  TO  NEXT  RUPT 

A0526 

T6FURTHA  DELTA  TIME  FRnM  2ND  TO  LAST  RUPT 

A052  7 

NXT6ADR  AXIS  INDEX  Q - P-AXIS 

A0528 

T6NEXT  +1  AXIS  INDEX  4 - U-AXIS 

A0529 

T6FURTHA  +1  AXIS  INDEX  13  - V-AXIS 

Q-530 

- REF 

— 8 

_L  AS  T 

14  4 9 

17, 3-04  6- 

0 

JTLST  C.S  T6£JJPIHA 

0531 

REF 

5 

LAST 

140  7 

17, 3047 

6 00  31 

0 

AD  T I ME  6 

0532 

17,3050 

0 0006 

1 

EXTEND 

0533— 

R-&F 

1 

17,3051 

6 3063 

1 

BZMF  MIDORLST  TIME6  - T IS  IN  A 

0534 

REF 

4 

LAST 

140  7 

17, 3052 

2 3 ' 463 

1 

LXCH  NXT6ADR 

0-535  ■ - 

R-EE 

9 

LAST 

143  7_ 

17,  3-053 

5 3*  465 

0 

DXCH  T6NEXT 

0536 

REF 

9 

LAST 

1450 

17, 3054 

53 1 467 

1 

DXCH  T6FURTHA 

0537 

REF 

6 

LAST 

14  5 0 

17, 3055 

54  031 

1 

TS  T I ME  6 

053  8 

RE  F._ 

5 

LAST 

.145  0 

17, 3056 

2 3' 463 

1 

LXCH  NXT6ADR 

0539 

REF 

55 

LAST 

1440 

17, 3057 

3 4735 

1 

TURNON  CA  BIT15 

0540 

17,  3 060 

0 0006 

1 

EXTFND 

0541 

REF 

24 

LAST 

1428 

17,3061 

05  013 

0 

WOR  CHAN13 

0542 

REF 

412 

LAST 

1445 

17,3062 

0 0002 

0 

TC  0 

0543 

REF 

10 

LAST 

1450 

17,3063 

6 1 464 

0 

MIDORLST  AD  T6NEXT 

0544 

17, 3064 

0 0006 

1 

EXTEND 

- 054  5 

REF 

EL 

17,3065 

6 30  74 

1 

BZMF  LASTCHG  TIME6  + T6NEXT  - T IS  IN  A 

0546 

REF 

1 1 

LAST 

1450 

1 7, 3066 

2 3 '465 

1 

LXCH  T6NFXT  +1 
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L 

Q,R- AXES 

USER'S  PAGE 

NO.  16 

E6  S4 

0547 

REF  10 

LAST 

1450 

17,3067 

53*467 

1 

DXCH 

T 6FUPTHA 

0548 

17, 3070 

0 0006 

1 

EXTEND 

E ART 

145  0 

1 7,  3071 

60  031- 

0 

S.U  - 

TTMF6 

0550 

REF  12 

LAST 

14  5 0 

17, 3072 

5 3' 465 

0 

DXCH 

T6NE  XT 

1 7 T ^073 

0 0002 

-0 

Jtc 

_Q 

0552 

REF  518 

LAST 

144  8 

17, 3074 

4 0000 

0 

LASTCHG 

CS 

A 

RFF  8 1 

1_  AST 

13-8  8 

17,3075 

_6  4754 

0 

A.D  _ 

ME  G.O  _ 

0554 

REF  11 

LAST 

14  5 1 

17, 3076 

55*466 

0 

TS 

T6FUPTHA 

p f p 'a  1 4 

| ART- 

145  1 

1 7,30  77 

0 0002 

0 

T.C 

_Q 

R ff  1 

17,3100 

5 5 * 73-5 

0 

ROT  45DEG 

IS 

R0XEMP1 

0557 

REF  283 

LAST 

144  8 

17^  3101 

6 0001 

0 

AD 

L 

0558 

REF  1 

17,  3 102 

55' 736 

0 

TS 

RCTEMP2 

n559 

17, 3103 

1 3111 

1 

TCF 

0560 

REF  519 

LAST 

14  5 1 

17,3104 

10  000 

0 

CCS 

A 

0561 

REF  38 

LAST 

141  7 

17,3105 

3 4733 

1 

CA 

POSMAX 

0562 

17,3 106 

1.  3110- 

0 

TCF 

+ 2 

0563 

REF  9 

LAST 

142  3 

17, 3 107 

3 4735 

1 

CA 

NEGMAX 

0564 

REF  2 

LAST 

14  51 

17, 3110 

55' 736 

0 

TS 

ROTE  MP2 

Q+R 

05-65 

REF  2 

—LAST 

14  5 1 

17,3111  

.4  1 735. 

0 

CS 

R0TEMP1 

0566 

REF  284 

LAST 

14  5 1 

17, 3112 

6 0001 

0 

AD 

L 

0567 

REF  3 

LAST 

145  1 

17, 3 113 

55' 735 

0 

TS 

R0TEMP1 

R— 0 

05-6-8 

17,3114 

1 31  20. 

0 

TCF 

+ 4 

0569 

17,3115 

0 0006 

1 

EX  TEND 

0570 

REF  39 

LAST 

14  5 1 

17, 3116 

7 4733 

0 

MP 

POSMAX 

-05  71 

REF  -2.8.5- 

-LAST 

145  1 

17,3117 

_3  00  01 

0 

CA 

L 

0572 

17, 3120 

0 0006 

1 

EXTEND 

0573 

REF  1 

17, 3121 

7 3127 

1 

MP 

. 707 

- 0-5  74 

REF  -3— 

LAST 

14  5 1 

17 ,3122 

57*  736 

1 

XCH 

RPTFMP2 

0575 

17, 3123 

0 0006 

1 

EXTEND 

0576 

REF  2 

LAST 

145  1 

17,3124 

7 3127 

1 

MP 

.707 

0577 

REF  4— 

_L  AS  T 

-145  1 

17,3125 

23*736 

1 

LXCH 

ROTFMP? 

0578 

REF  415 

LAST 

145  1 

17,3126 

0 0002 

0 

TC 

0 

0579 

17, 3127 

26501 

1 

.707 

DEC 

.70711 

(I5R0- 

RF-F 9— 

LAST 

144  7 

17, 3 130 

51  * 742 

1 

SELETSUR 

INDEX 

R.QT  I ND£X 

0581 

REF  1 

17,3131 

3 3162 

1 

CA 

ALL JFTS 

0582 

REF  14 

LAST 

1449 

17, 3132 

51 ' 741 

1 

INDEX 

NUMBEPT 

H 05H3 

RFf  _ . . 1 

17, 3 131 

7 3166 

_L 

MASK 

TYPE  POLY 

0584 

RFF  9 

LAST 

1448 

17, 3 134 

55*737 

1 

TS 

POLYTEMP 

0585 

REF 7 

LAST 

22  7 

17,3135 

7 1 7 A? 

1 

MASK— 

C_H5  M ASK— 

0586 

REF  520 

LAST 

14  5 1 

17,3136 

10  000 

0 

CCS 

A 

0587 

17,3137 

1 3141 

1 

TCF 

<-? 
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17  E6  S4 

0588 

REF 

416 

LAST 

145  1 

17, 3140 

0 0002 

0 

TC 

0 

45 

|- 

1-44  9 

17,8141 

3 6?4A- 

o 

__  CA 

T HR  E E 

0590 

REF 

15 

LAST 

14  5 1 

17,  3142 

55' 741 

0 

FA  I LOOP  TS 

NUMBEPT 

0591 

REF 

10 

LAST 

14  5 1 

17, 3143 

51*742 

1 

INDEX 

ROT  I NDEX 

D99? 

R-E-F 

2 

-LAST 

14  5 1 

17, 3144 

3 3162  1 

CA 

ALLJFTS 

0593 

REF 

16 

LAST 

14  5 2 

17, 3145 

51*741 

1 

INDEX 

NUMBERT 

0594 

REF 

2 

LAST 

145  1 

17, 3 146 

7 3166 

1 

MASK 

TYPE  POLY 

0595 

REF 

10 

l AST 

145  1 

17,3147 

55*  737 

a 

TS 

POL YTEMP 

0596 

REF 

8 

LAST 

1451 

17,3150 

7 1262 

l 

MASK 

CH5MASK 

0597 

17, 3151 

0 0006 

l 

EXTEND 

0598 

REF 

1 

-L7 , 3 1 5-2 

1 31  40 

0 

8ZF 

FA  I LOOP  • 

-2 

0599 

REF 

17 

LAST 

14  5 2 

17, 3153 

11*741 

0 

CCS 

NUMB  ERT 

0600 

REF 

2 

LAST 

14  5 2 

17, 3 154 

1 3142 

l 

TC  F 

FAIL  OOP 

0601 

REF 

-26 

1 AST 

144  9 

17.  3155 

51*476 

0 

INDEX 

A X I SCTP 

0602 

REF 

11 

LAST 

1449 

17,  3 156 

55*525 

0 

TS 

T JU 

0603 

REF 

50 

LAST 

1437 

17,3157 

0 5567 

0 

TC 

ALARM 

0604 

17.  3 L6_0. 

020  04 

_L 

dct 

02004 

0605 

REF 

3 

LAST 

144  7 

17, 3 161 

1 2731 

1 

TC  F 

NOROTAT 

0606 

17, 3 162 

00110 

1 

ALLJFTS  OCT 

00110 

-U  6 13 

06  OX 

17,  3163 

00022 

-L 

oct 

00022 

-V  2 9 

0608 

17,3164 

00204 

1 

OCT 

00204 

+ U 5 14 

HAOQ 

17,8165 

00041 

1 

OCT 

a on 4 1 

+ V 1 1 0 

0610 

17, 3 166 

00125 

1 

TYPEPOLY  OCT 

00125 

-X  15  9 13 

0611 

17,3167 

00252 

1 

OCT 

00252 

tX  2 6 10  14 

0612 

1 7,  3 170 

00146 

1 

OCT 

001  46 

A 2 5 10  13 

0613 

17,3171 

00231 

1 

OCT 

0023  1 

B 1 6 9 14 

0614 

17, 3172 

00377 

1 

OCT 

00377 

ALL  1 2 5 6 9 10  13  14 

R 06 1 5 

THE 

FOLLOWING 

SETS 

THE  INTERRUPT  FLIP- 

■FLOP  AS  SOON  AS 

POSSIBLE, 

WHICH 

PERMITS  A RETURN  TO  THE 

INTERRUPTED  JOB. 

0617 

REF 

1 

17, 3173 

3 3175 

1 

CLOSEOUT  CA 

ADRRUPT 

0618 

REF 

1 

17, 3174 

0 7753 

1 

TC 

MAKE  RUPT 

0619- R-E-F 1 1-7,  3175 03-176  1 ADRRURT  A DUES FND.I  ASK 


0620 

REF 

5 

LAST 

142  3 

17,3176 

53*752 

l 

ENDJASK  DXCH 

DAPAPUPT 

06  21 

REF 

13 

LAST 

142  3 

17,3 177 

52  01J- 

0. 

DXCH 

ARUPT 

0622 

REF 

2 

LAST 

142  3 

17, 3200 

5 3 ' 7 54 

1 

DXCH 

0 APBQRPT 

0623 

REF 

4 

LAST 

1423 

17, 3201 

56  017 

1 

XCH 

B PUP  T 

0624 

—REF 

4-1-7 

LAST 

145-2 

17, 3202 

22-002 

0 

LXCH 

a 

0625 

REF 

10 

LAST 

145  1 

17, 3203 

3 4735 

1 

CAF 

NF3MAX  NEGATIVE  DAPZPUPT  SIGNALS  JASK  IS  OVER. 

0626 

REF 

4 

LAST 

142  3 

17, 3204 

53*  756 

0 

DXCH 

DAPZPUPT 

— 0627 

REF 

2- 

-EAST 

142  3 

17, 3205 

52  016 

1 

DXCH 

ZRUPT 

0628 

REF 

1 

17,3206 

1 5272 

1 

TC  F 

NOQRSM 

0629 

7753 

BLOCK 

3 

0630 

- REF- 

4- 

LAST 

129  6 

- -60JD-0  - 

SETLOC 

FFTAG6 

0631 

7753 

BANK 
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E6  S4 

0632 

REF 

1 

COUNT  * 

$ $/  D AP 

7 7*vT 

n oooh  i 

-HAK-E  r u p T EXT  E WO- 

0634 

REF 

2 

LAST  1452 

7754 

07  753  1 

EORUPT 

MAKERUPT 
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TJET  LAW 


USER • S PAGF  NO. 


EO  S4 


R0001 

PROGRAM  OF  SC  R 1 PT I ON 

R0003 

COOED  BY:  P.  S.  WEISSMAN  28  FEBRUARY  1968 

R0004 

R0006 

R0008 

TJETLAW  IS  CALLED  AS  A SUBROUTINE  WHEN  THE  LEM  IS  NOT  DOCKED  AND  THE  AUTOPILOT  IS  IN  THE  AUTOMATIC  OR 
ATTITUDE-HOLD  MODE  TO  CALCULATE  THE  JET-FIRING-TIME  (TJET)  REQUIRED  FOR  THE  AXIS  INDICATED  BY  AXISCTR: 

. -1  INDICATES  THE  P-AXI S — __  . _ 

R0009 
R001  0 

R001A. 

R0013 

R0015 

R0017 

+0  INDICATES  THE  U-AXIS 
+1  INDICATES  THE  V-AXIS. 

THF  RFr.TRTFRR  F 1NI1  FnnT  rnNTATN  THF  APPROPRIATE  ATTITUDE  ERROR  AND  ERROR  RATE  AND  SENSE  TYP  SHOWS  WHETHFR 
UNBALANCED  COUPLES  ARE  PREFERRED.  TJETLAW  ALSO  USES  VARIOUS  FUNCTIONS  OF  ACCELERATION  AND  DEADBAND  WHICH  ARE 
COMPUTED  IN  THE  1 /ACCONT  SECTION  OF  1/ACCS  AND  ARE  STORED  IN  SUCH  AN  ORDER  THAT  THEY  CAN  BE  CONVENIENTLY 
Ar.C.FS.SFD  BY  INDEXING.  . . _ - - — - ---- 

R0018 
R0020 
- — R0O22- 

THF  SIGN  OF  THE  REQUIRED  ROTATION  IS  CARRIED  THROUGH 
PREVIOUS  TO  ITS  STORAGE  IN  THE  LOCATION  CORRESPONDING  TO 
T JFTJ  AM--AS5UMFS  -W  II  1 RF  USFD  IS  INDICATED  BY  THE  SETTING 

TJFTLAW  AS  ROT  SENSE  AND  IS  FINALLY  APPLIED  TO  TJET  JUST 
THE  AXIS  (TJP,  TJU  OR  TJV).  THE  NUMBER  OF  JETS  THAT 
OF  NIJMBERT  FOR  THE  U-  OR  V-AXIS.  TWO  JETS  ARE  ALWAYS 

R0024 

R0026 

RO02-8- 

ASSUMED  FOR  THF  P-AXIS  ALTHOUGH  FOUR  JETS  WILL  BE  FIRED  WHEN  FIREFCT  IS  MORE  NEGATIVF  THAN  -4.0  DEGREES 
(FIREFCT  IS  THE  DISTANCE  TO  A SWITCH  CURVE  IN  THE  PHASE  PLANE)  AND  A LONG  FIRING  IS  CALLED  FOR. 

I-N  -ORDER  IQ- A-Vai-D -SCALING  -QI-Ff  ICULTIES,  SIMPLE  ALGORITHMS  TAGGED  RUFLAW1,  -2  AND  -3  ARE  RESORTED  TO  WHEN  THE 

R0030 

ERROR  AND/CR  ERROR  RATE  ARE  LARGE. 

R00  31 

CALLIRG-  SE-CUE-NCF:  

R0032 
R0033 
R-00  34 

TC  TJETLAW  (MUST  BE  IN  JASK) 

OR 

- INHI-NT  I MUST  3L  IN  JASK) 

R0035 

R0036 

R 00-32— 

TC  IBNKCALL 

CADR  TJETLAW 

REI  INT  -- 

R0038 

EXIT:  RETURN  TO  Q. 

R0039 
R 0040 

R-004-1 — 

INPUT  : 

FROM  THE  CALLER:  E,  EDOT,  AXISCTR,  SENSETYP , TJP,-U,-V. 

ER-CLM-  1/ ACCONT  : 4 8_  ERA-SABLES  BEGINNING  AT  BLOCKTOP  (INCLUDING  FIAT.  70NE3LIM  AMD  ACCSWU.-V). 

R0043 
— — -R0044 

OUTPUT : 

T-J-P-^LL-CR  — V,  NUMB.ERT— (DAPTEMP5  ) , FIREFCT  ( DAPTEMP3  ) . 

R0045 

R0046-- 

DEBRIS: 

— -A-,  L,  -Q-,  E,  ED-OT,  DAPTEMP1-6,  GAP TREG 1-4 . 

R0047 

ALARM:  NONE 

0048 

0049  RFF 


0050 

0051 


-4 LAST  1436 


REF  13  LAST  1433 


17, 3207 

_1 7 ,.2_000_ 


L7, 3207 
E6, 1524 


BANK  17 
SETLOC  DAPS  2 


BANK 

EBANK=  TJP 


GAP : 
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0052 

REF 

1 

COUNT* 

$*/DAPTJ 

1 7 1 3 20 7 

0 ooos 

1 

TJETl  AW  EXTEND- 

— - SAVF  0 FOR  RFTURN. 

0054 

REF 

1 

1 7 j 3210 

23' 743 

0 

QXCH 

HOLD  Q 

R-0Q55- 

-SET- 

-1 NQEXFRS  TO  CORRESPOND  TO 

THE  -AXI-S 

-AND- TO  THE  SIGN-  J 

OF  E-D-CJ— -- 



0056 

REF 

27 

LAST 

1452 

17,  321  1 

5 1 1 4 76 

0 

INDEX 

AX  I SCTR 

AXISDIFF(-1)=N0  OF  LOCATIONS  BER  P AND  U 

-R  f=-F  - - 

2 

I ART 

144  3 

1 7,3212 

3 3657 

0 

CAF 

AXI SDIFF 

AXI SDIFF I 0 ) = 0 

0058 

REF 

i 

17, 3213 

55.744 

0 

TS 

ADRSDIF1 

AXI SDIFF ( *1 ) =N0  OF  LOCATIONS  BET  V AND  U 

R FF 

3 

Li^T 

14-4  6 

17,371-4 

31*425 

0 

CAE 

f n n t 

IF  F nOT  NFGATTVF,  PICK  UP  SFT  OF  VAIIIFS 

0060 

17, 3215 

0 0006 

1 

EXTEND 

THAT  ALLOW  USE  OF  SAME  CODING  AS  FOR 

0061 

REF 

i 

17,3216 

6 3223 

1 

BZMF 

NEGEDOT 

POSITIVE  EDOT. 

0062 

RE-F 

2 

LAS  I 

1-4  5 5 

1 7 ,32.1  7 

3 1 ' 7 44 

-X- 

CAE 

ADRSDIF1 

SET  A SECOND  INDEXER  WHICH  MAY  BE 

0063 

REF 

i 

17,3220 

55' 742 

0 

TS 

APRSDIF2 

MODIFIED  BY  A DECISION  FOR  MAX  JETS. 

0064 

REF 

i 

17, 3221 

3 3661 

0 

CAF 

SENSOR 

FOR  POSITIVE  EDOT , ROTSENSE  IS 

0-0-65 

REF 

1 

17.3722 

1 3-2-33 

-L- 

TCF 

SETSENSE 

INITIALIZED  POSITIVE. 

0066 

REF 

9 

LAST 

1446 

17, 3223 

4 1750 

0 

NEGEDOT  CS 

E 

IN  ORDER  FOR  NEG  EDOT  CASE  TO  USE  COOING 

0067 

R-FF 

10  _ 

_L-ASX 

14  5 5 

17,3224 

55 ! 750 

0 

TS 

JE 

OF  POS  EDOT,  MUST  MODIFY  AS  FOLLOWS: 

0068 

REF 

4 

LAST 

1455 

17, 3225 

4 1425 

1 

CS 

EDOT 

1. COMPLEMENT  E AND  EDOT. 

0069 

REF 

5 

LAST 

1455 

17, 3226 

55.425 

1 

TS 

EDOT 

2. SET  SENSE  OF  ROTATION  TO  NEGATIVE 

_ . 0070 

-R-EF 

_ 66 

L ASX- 

143  8 

17, 3277 

3 4753- 

-X- 

- CAF 

BJ  T 1 

(REVERSED  LATER  IF  NECESSARY!. 

0071 

REF 

3 

LAST 

1455 

17,3230 

27' 744 

0 

ADS 

ADRS  DIF1 

3. INCREMENT  INOEXFRS  BY  ONE  SO  THAT 

0072 

REF 

2 

LAST 

145  5 

17, 3231 

55' 742 

0 

TS 

ADRSDIF2 

THE  PROPER  PARAMETERS  ARE  ACCESSED. 

00-73 

RE-F 

2 

last 

14  5 5 

17,3-232 

4 36  6.1 

1 

- CS 

SENSne 

00  74 

REF 

i 

17, 3233 

55' 736 

0 

SET SENSF  TS 

ROTS  ENSE 

RQQ75 — 

TEST 

-WJU1AI T T 1 1 n F 

OR—F 

l ATT  l TUDF  F RRflR  . 

- SI  wni  F-PRFf  I SI-QM.  Sr  Al  -F  n AT  PT 

RAH  TANS ) : 

R0077 

IF  GREATER 

THAN  (OR 

EQUAL  TO) 

PI/16  RADIANS,  GO  TO  THE  SIMPLIFIED  TJET  ROUTINE. 

R0079 

IF  LESS  THAN  PI/16  RADIANS. 

RESCALE  TO  PI/4. 

0080 

REF 

11 

LAST 

1455 

17, 3234 

31 '750 

1 

CAE 

E 

PICK  UP  ATTITUDE  ERROR  FOR  THIS  AXIS 

0081 

17,3235 

0 0006 

1 

EXTEND 

0082 

REF 

50 

LAS  T_ 

14  3 3 

17,323-6 

7 474  7 

0 

MP 

R I T5 

SHIFT  RIGHT  TEN  BITS;  IF  A-RF  G l S TER  IS 

0083 

REF 

521 

LAST 

145  1 

17, 3237 

10  000 

0 

CCS 

A 

ZERO,  RESCALE  AND  TEST  EDOT. 

0084 

REF 

1 

17, 3240 

L 3621 

0 

TCF 

RUFL AW2 

0085 

—OFF  - 

1_ 

17,32_41 

1 3243- 

0. 

TCF 

SCAL  EE 

0086 

REF 

1 

17, 3242 

1 3565 

0 

TCF 

RUFL AW1 

0087 

REF 

60 

LAST 

143  8 

17,3243 

3 4737 

0 

SCALEE  CAF 

B 1 T 1 3 

ERROR  IS  IN  L SCALED  AT  PI/16.  RESCALE 

0088 

17,3  244 

0 0006 

X- 

EXTEND 

IT  TO  PI/4  AND  SAVE  IT. 

0089 

REF 

zee 

LAST 

14  51 

17,3245 

7 00  0 L 

1 

MP 

L 

0090 

REF 

12 

LAST 

1455 

17, 3246 

55*750 

0 

TS 

E 

R0091 

TEST 

MAGNITUDE 

OF  EDOT  (ERROR 

RATE  SCALED  AT  PI/4  R AD I ANS / SE COND 1 

R0092 

IF  GREATER 

THAN  (OR 

EQUAL  TO) 

PI/32  RADIANS/SECOND,  GO  TO 

THF  SIMPLIFIED  TJET  ROUTINE. 

RO  094 

LE_  L E SS_  THAN  PI/32  - R A.Q  IANS/  SECOND.  THEN  RESCALE  TO  PI/3?  R AD  I ANS  / S ECONO  . 

0096 

REF 

6 

LAST 

1455 

17,3247 

3 1 ' 425 

0 

CAE 

E DDT 

PICK  UP  SINGLE-PRECISION  ERROR-RATE 

CAP: ASSEMBLE  REVISION  069  -OF  AGC  PROGRAM  LUMI-NARY  -BY  NASA  20211 12-011 1-9: 0-7  NO  U^  25 , 1.963 LMDA-P 012 PAGE  1456 
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0097 

17, 3250 

0 0006 

1 

EXTEND 

FOR  THIS  AX I S = 

0098 

RFF 

58 

LAST 

14?  6 

17,3251 

7 4750 

0 

MP 

3 I T 4 

SHIFT  RIGHT  ELEVEN  BITS,  IF  THE  A-REG  IS 

1 7,  3 7 5 7 

-0  00  06 

1 

EXTEND 

ZERO,  THEN  RESCALE  AND  USE  FINELAW. 

0100 

REF 

1 

17,3253 

1 3255 

1 

BZF 

SCAL  EDOT 

0101 

REF 

1 

17,3254 

1 3627 

0 

TCF 

RUFL AW3 

R0-102 

F INF  LAW  _S  TARTS.. 

HERE.  ***  _ 

0103 

REF 

7 

LAST 

14  5 5 

17,3255 

23*  425 

0 

SCALEDOT 

LXCH 

EDDT 

EDOT  IS  SCALED  AT  PI/32  R AD I AN S/ S ECO ND . 

0104 

REF 

8 

LAST 

1456 

17, 3256 

3 1 ' 425 

0 

CAE 

EDOT 

COMPUTE  (EDOT) (EDOT) 

0105 

17, 3257 

0 0006 

1 

EXTEND 

0 1 Ob 

17, 3260 

7 AO  0 .0. 

0 _ 

SQUARE 

PRODUCT  SCALED  AT  PI(2)/2(10)  RAO/SEC. 

0107 

17, 3261 

0 0006 

l 

EXTEND 

0108 

RFF 

61 

LAST 

14  5 5 

17, 3262 

7 4737 

1 

MP 

BIT1  3 

SHIFT  RIGHT  TWO  BITS  TO  RESCALF  EDOT SQ 

0109  - 

REF 

- 1 

17,53  263 

55' 735 

0 - 

TS 

EDOT  SO- 

TO  PI  ( 2 ) /? ( 8 ) RADI  2) / SEC( 2)  . 

0110 

REF 

13 

LAST 

14  5 5 

17,3264 

1 1' 750 

0 

ERR  TE  ST 

CCS 

E 

DOES  BIG  ERROR  (TWO  DEGREES  BEYOND  THE 

01 1 1 

-RE-F 

1 

17,3765 

-6  3.6  62 

0 . 

AD—  . 

_r2DE  G . - 

DFADBAND)  RFOUIRF  MAXIMUM  JETS? 

0112 

17,3266 

1 32  70 

0 

TCF 

+2 

0113 

REF 

2 

LAST 

14  5 6 

17,3267 

6 3662 

0 

AD 

-2DFG 

01 1 4. 

17,3270 

0 0006 

1 

EXTEND 

0115 

REF 

4 

LAST 

1455 

17,3271 

5 1744 

1 

INDEX 

ADRSDIF1 

0116 

REF 

1 

17, 3272 

61*601 

1 

SU 

F 1REDB 

0 LI  7 

17,3  273 

. 0 0-006 

1 

EXTEND 

0118 

REF 

1 

17, 3274 

6 3301 

0 

8ZMF 

SENSTEST 

IF  NOT:  ARE  UNBALANCED  JETS  PREFERRED! 

0119 

REF 

IC2 

LAST 

1449 

17, 3275 

3 47  52 

0 

MAX  JETS 

CAF 

TWO 

IF  YES  : INCREMENT  ADDRESS  LOCATOR  AND 

0120 

REF 

__3 

-LAST 

14  5_5 

17,3276 

27 ' 7 42 

0- 

ADS 

ADRSDIF2 

SET  SWITCH  FOP  JFT  SELECT  LOGIC  TO  4. 

0121 

REF 

44 

LAST 

1449 

17, 3277 

3 4751 

0 

CAF 

FOUR 

(ALWAYS  DO  THIS  FOR  P-AXIS) 

0122 

REF 

1 

17,3300 

1 3304 

1 

TCF 

TJCALC 

012  3 

REF- 

- 5 

L ASX- 

L44-  8 

- 17+3301 

1 1 1 4 77 

0 

SENSTEST 

CCS 

SENSEXYP 

DOFS  TRANSLATION  PREFER  MIN  JETS. 

0124 

REF 

2 

LAST 

14  5 6 

17,3302 

1 3304 

1 

TCF 

TJCALC 

YES.  USE  MIN-JET  PARAMETERS. 

0125 

REF 

1 

17, 3303 

1 3275 

0 

TCF 

MAX J ETS 

NO.  GET  MAX-JET  PARAMETERS. 

0126  -REF 18 — LAST  14  5 2 17,3  304  551741  Q T JCALC  TS NUMBFRT  _ SET  TO  *0,1,4  FOR  (U.V-AXES)  JET  SELECT. 


R0127 

BEGINNING  OF 

TJET  i 

CALCULATIONS: 

0128 

REF 

2 

LAST 

14  5 6 

17,3305 

4 1735 

0 

cs 

EDDT  SQ 

SCALED  AT  PI(2)/2(8). 

0129 

1 7,3306 

0 0006 

1 

EXTEND 

- 0130 

REF 

_ 4 

LAST 

1456. 

-17  , 3 3.0  7 

5 1742 

1 

INDEX 

ADPSDIF2 

0131 

REF 

8 

LAST 

149 

17, 3310 

7 1567 

0 

MP 

1/ANET1 

. 5/ACC  SCALFD  AT  2(6)/PI  SEC ( 2 ) /RADI  AN. 

0132 

REF 

5 

LAST 

1456 

17,3311 

51' 744 

1 

INDEX 

A DR  S D IF  1 

— 0J3l3_ 

— REF  - 

2 

LAST 

-1456 

I 7,3312 

6 1601 

1 

AD 

FIREDB 

DEADBAND  SCALED  AT  PI/4  RADIAN. 

0134 

17,3313 

0 0006 

1 

EXTEND 

0135 

REF 

14 

LAST 

1456 

17, 3314 

61' 750 

1 

SU 

E 

ATTITUDE  ERROR  SCALED  AT  PI/4  RADIAN. 

. 0136- 

-REE 

- 2. 

LAST  1433 

55*737 

1 

TS 

FIRFFCT 

-F-.5(ED0TSQ)/ACC-DB  AT  PI/4  RADIAN. 

0137 

17,3316 

0 0006 

1 

EXTEND 

0138 

RFF 

1 

17,3317 

6 3477 

0 

BZMF 

Z0N1  ,2,3 

0139 

REF 

6 

LAST 

14  5 6 

17, 3320 

51' 744 

1 

Z0NE4, 5 INDEX 

ADRSDIF1 

0140 

REF 

1 

17, 3321 

31 ' 573 

1 

CAE 

1 /ACOAST 

. 5/ACC  SCALED  AT  2I61/PI  WHERF 

ni?  PAGE  U^7 
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0141 

0142 

REF 

R 

3 

15 

LAST 
1 AST 

1456 
14  5 6 

17. 3322 

17. 3323 

17. 3324 

0 0006 
7 1735 
6 17  50 

1 

0 

1 

EXTEND 

MP  E DDT  SO 

AD.  . E 

ACC  = MAXI  AM  IN,  AOS-). 
SCALED  AT  PI/2  I 8) . 

SCALED  AT  PI/4 

0144 

REF 

7 

LAST 

1456 

17,3325 

5 1 ' 7 44 

1 

INDEX  ADRSDIF1 

0145 

REF 

1 

17, 3326 

6 16  03 

0 

AD  COASTDB 

SCALED  AT  PI/4  POS.  FOR  NEG.  INTERCEPT. 

n l 4A 

LZ»  3 327 

0-0006 

1 

-EXTEND- 

TFST  F+ . 5 1 FDOTSQ? / ACC+DB  AT  PI/4  RADIAN. 

0147 

REF 

1 

17,3330 

6 3363 

1 

BZMF  ZONE  5 

IF  FUNCTION  NEGATIVE,  FIND  TJ  FT. 

A0148 

IF  FUNCTION  PPSITIVF,  IN  ZONE  4. 

R0149  ZCNE  4 IS  THE  COAST  REGION.  HOWEVER,  IF  THE  JETS  ARE  ON  AND  DRIVING  TOWARD 

R0I51  A.  THE  AXIS  WITHIN  + OR  - ( DB  + FLAT)  FOR  DRIFTING  FLIGHT,  OR 

Rfl 152 R-  THF  USUA1  TARGFT  PARABOLA  FOR  POWERED  FLIGHT 


R0153 

THEN 

THE 

THRUSTERS 

ARE  KEPT  1 

ON. 

01  54 

ref 

28 

LAST 

145  5 

17, 3331 

51 

•476 

0 

Z0NE4 

. INDEX 

AXLSCT.P  ___ 

. „ IS  THE  CURRENT  VALUE  LN  TJET  NON-ZERO 

0155 

REF 

i 

17, 3332 

4 

1525 

0 

cs 

TJETU 

WITH  SENSE  OPPOSITE  TO  EDOT, 

0156 

17,3333 

0 

0006 

1 

EXTFND 

(I.E.,  ARE  JETS  ON  AND  FIRING  TOWARD 

01 57 

RfLE- 

2 

LAST 

14-55 

17,3334 

7 

1 73-6. 

0 

MP 

RDTSENSE 

THE  DESIRABLE  STATE). 

0158 

17, 3335 

0 

0006 

1 

EXTEND 

0159 

REF 

i 

17, 3336 

6 

3357 

0 

BZMF 

COASTTJ 

NO.  COAST. 

0160 

REF 

i 

17, 3337 

1 1 

• 555 

1 

JETSON 

CCS 

FLAT 

YES.  IS  THIS  DRIFTING  OR  POWEPEO  FLIGHTI 

0161 

REF 

i 

17, 3340 

1 

3351 

1 

TCF 

DP  I FT/ON 

DRIFTING.  GO  MAKE  FURTHER  TFST. 

0162 

REF 

3 

LAST 

1456 

17, 3341 

4 1737 

1 

CS 

FIREFCT 

POWERED  (OR  ULLAGE).  CAN  TARGET  PARABOLA 

0163 

REF 

8 

LAST 

1457 

17, 3342 

51*744 

1 

INDEX 

ADRSDIF] 

BE  REACHED  FROM  THIS  POINT  IN  THE 

- _ Dl-64 

REF- 

1 

17, 3343 

6 16.05 

0 

AD 

AXI SCIST 

PHASE  PLANE | 

0165 

17, 3344 

0 0006 

1 

EXTEND 

0166 

REF 

2 

LAST 

1457 

17, 3345 

6 3357 

0 

BZMF 

COASTTJ 

NO.  SET  TJET  = 0. 

01-67 

— RE-F 

1 

1 7,3346 

a 3463 

0 

TC 

Z 12  3C0MP 

YES.  CALCULATE  TJET  AS  THOUGH  IN  ZONE  1 

0168 

REF 

4 

LAST 

1457 

17, 3347 

31 ' 737 

0 

CAE 

FIREFCT 

AFTER  COMPUTING  THF  REQUIRED 

0169 

REF 

1 

17, 3350 

1 3517 

0 

TCF 

ZONE  1 

PARAMETERS. 

0170 

RFF 

9 

LAST 

14  5 7 

17,3351 

51 ' 744 

1 

OR  I FT/ON 

INDEX 

ADRSDIF1 

CAN  TARGFT  STPIP  OF  AXIS  BE  RFACHED  FROM 

0171 

REF 

3 

LAST 

14  5 6 

17, 3352 

4 1601 

0 

CS 

FIREDB 

THIS  POINT  IN  THE  PHASE  PLANEI 

01-7-2 

17, 3353 

6 0000 

1 

DOUBLE 

0173 

REF 

5 

LAST 

145  7 

17,3354 

6 1737 

0 

AD 

FIREFCT 

0174 

17, 3355 

0 0006 

1 

EXTEND 

017-5- 

17, 3356 

-6  3 3 61 

0 

BZMF 

+ 3 

01  76 

REF 

298 

LAST 

1449 

17,3357 

3 4755 

1 

COASTTJ 

CAF 

ZERO 

NO.  SET  TJET  = 0. 

0177 

RFF 

1 

17,3360 

1 3423 

0 

TCF 

RFTURNT  J 

0178 

REF 

2 

LAST 

1457 

17,3361 

0 3463 

0 

TC 

Z 123C0MP 

YES.  CALCULATE  TJET  AS  THOUGH  IN  ZONE  2 

0179 

RFF 

1 

17, 3362 

1 3504 

1 

TCF 

Z ONE  2 , 3 

OP  3 AFTER  COMPUTING  REQUIRED  VALUES. 

0180 

REF 

287 

LAST 

145  5 

17,3363 

54  001 

1 

Z0NE5 

TS 

L 

TEMPORARILY  STnRE  FUNCTION  IN  L. 

0181 

REF 

3 

LAST 

14  5 7 

17,3364 

1 1 ' 736 

0 

CCS 

TOTS  ENSE 

MODIFY  ADR  SD I F2  FOR  ACCESSING  1/ANET2 

07-82 

.17-,  3 36  5 

l 3371 

0. 

TCF 

+ 4 

AND  ACCFCTZ5,  WHICH  MUST  BE  PICKED  UP 

0183 

RFF 

21 

LAST 

1399 

17,3366 

0 5677 

1 

TC 

CCSHOLE 

FROM  THF  NEXT  LOWER  REGISTER  IF  THE 

0184 

RFF 

103 

LAST 

1456 

17, 3367 

4 47  52 

1 

CS 

TWO 

(ACTUAL)  ERROR  RATE  IS  NEGATIVF. 

-GAP  : ASSFMR  LE  - RE-V  IS  ION  069  OF-  -A-GC — PROGRAM — U4JM I NARY  BY  NASA — 20  2111 2-0 1 1 — 


L 

TJET 

LAW 

0185 

REF 

5 

LAST  1456 

17, 3370 

27' 742 

0 

ADS 

ADR  SDIF2 

LAST  14  S 7 

1 7 t 3 371 

3 0 001 

0 +4 

CAF 

J 

0187 

1 "7 » 3 3 72 

0 0006 

i 

EXTEND 

0188 

REF 

6 

LAST  1458 

17, 3373 

5 1742 

i 

INDEX 

ADRSDIF2 

REF 

17 1 3 3 74 

J 15  76- 

0 

MP  _ 

ACCF CXZ5 

0190 

17, 3375 

20  001 

i 

DDOUBL 

0191 

17, 3376 

20  001 

i 

DDGUBL 

n i o? 

RFF 

1 

1 7 , 33-77 

53' 746 

_i 

DXCH 

HH  . . 

0193 

REF 

7 

LAST  1458 

17, 3400 

5 1 ' 742 

i 

INDEX 

ADRSDIF2 

0194 

REF 

2 

LAST  1443 

17,3401 

31' 570 

i 

CAE 

1/ANET2 

0 1 9-5- 

1 7, 3402  - 

0 0006 

i 

EX  TFND 

01  96 

REF 

9 

LAST  1456 

17, 3403 

7 1425 

i 

MP 

EDOT 

0197 

REF 

1 

17, 3404 

55' 740 

i 

TS 

TTOAXIS 

R0198 

TEST 

WHETHER  TJET  GREATER  THAN  50  MSEC. 

0199 

17,3405 

0 0006 

i 

EXTEND 

02-00 

REF  _ 

1 

17, 3406 

~L  36X1 

0 

MP 

-.05  AT 2 

0201 

REF 

2 

LAST  1458 

17,  3407 

6 1745 

0 

AD 

HH 

0202 

REF 

8 

LAST  1302 

17,3410 

6 7745 

0 

AD 

NEG2 

0203 

17,3411 

_0_  0006 

1- 

EXTEND 

0204 

REF 

1 

17,3412 

6 3440 

1 

BZMF 

F0RMULA1 

R 0 2 0 5 

T F ST- 

_kJJETHFR  T_  JFT  _ OR  F AT  FR  THAN  IRfl  MS  FT. 

0206 

REF 

2 

LAST  1458 

17, 3413 

31 ' 740 

0 

CAE 

TTOAXIS 

0207 

17, 3414 

0 0006 

1 

EXTEND 

02  08 

RE  F - 

l— 

17, 3415 

7 36-72 

0 

MP 

- . 1 5 AT  2 

02  09 

REF 

3 

LAST  1458 

17,3416 

6 1745 

0 

AD 

HH 

0210 

REF 

1 

17,3417 

6 3663 

1 

AD 

-.01  12A8 

0 244. 

17,3420 

0 00  06 

1 

FXTEND 

0212 

REF 

1 

17, 3421 

6 3450 

0 

BZMF 

F0RMULA2 

R024-3 

is  TJET 

ORFATF  R THAN  1 SO  MS  FT  . 

, .ASS  TON  IT.  V All  IF  OF  2 SO  MSFf  . STNTF 

R0214 

I s 

ENOUGH  TO  ASSURE 

: NO  SKIP 

NEXT  CSP  (100 

MSEC) . 

— 0215 RSf 38 LAST  13  3-0 1-7,  3 422 3-4741  1 E1UJJ1MF  f.AF  RTT1  1 

R0216  RETURN  TO  CALLING  PROGRAM  WITH  JET  TIME  SCALED  AS  TIME6  AND  SIGNED 


0217 

17, 3423 

0 

0006 

1 

RFTURNT J EXTEND 

0218 

REF  4 

LAST 

1457 

17, 3424 

7 

l 736 

0 

MP 

ROTS  ENSE 

0219 

- -REE 29  - 

LAST 

-145_7 

17, 3425 

51 

' 4-76 

0 

I NDEX 

AXIS  CTR 

0220 

REF  2 

LAST 

14  5 7 

17, 3426 

55 

'525 

0 

TS 

T JET  U 

0221 

17,3427 

0 

00  06 

1 

EXTEND 

0222 

-REE 10 

LAST 

1453- 

17, 3-430 

-5 

1476 

0 

I NOE  X 

AXIS  CTR 

0223 

REF  2 

LAST 

149 

17,3431 

7 

15  47 

1 

MP 

ACCS  WU 

0224 

REF  289 

LAST 

1458 

17,3432 

30 

001 

0 

CAE 

L 

022  5 

17, 3433 

_a 

0006 

1 

EXTEND 

17,3434  6 3437  1 

L7, 3435  3 4751  0 


0226 

0227 


REF  45  LAST  1456 


BZMF 

CAF 


+ 3 

FOUR 


IS : 02  NOU.  - 2 5 ,-1-968 LMQAiT 


. 012  PAG  F 1 45  8 

USER'S  PAGE  NO.  5 E6  S4 


TTOAXIS  AND  HH  ARE  THE  PARAMETERS  UPON 
WHICH  THE  APPROXIMATIONS  TO  T JET  AR  E 
BASED. 

DOUBI E PRECISION  H SCALED  AT  B SEC  ( 2 ) . 
SCALED  AT  2I7I/PI  SEC(2)/RAD. 


SCALED  AT  PI/2I5) 
SCALED  AT  4 SEC. 


H - .05  TTOAXIS  - .00125  G.T.  ZERO 
(SCALED  AT  8 S EC ( 2 ) ) . 


H - .15  TTOAXIS  - .01125  G.T.  ZERO 
(SCALED  AT  R SEC(2>  ) 


THIS 


250  MSFC  SCAI  FD  AT  4 SFC. 


ALL  BRANCHES  TERMINATE  HERE  WITH  TJET 
(SCALED  AT  4 SEC)  IN  THE  ACCUMULATOR. 
ROTSENSE  APPLIES  SIGN  AND  CHANGES  SCALE. 


SET  SWITCH  FOR  JET  SELECT  IF  ROTATION  IS 
IN  A SENSE  FOR  WHICH  1/ACCS  HAS  FORCED 


A MAX-JET  CALCULATION 


GAP- 


ASSEMBLE  REV  IS  I ON  0 69  QI^A  GC-  PROGRAM  L DM  1 NARY  BY—  NASA— 20-21-1 1 2 - Oil 


-1 91-02-  MO-V-^-  2-5+1  -9  6-3 LMOAP- 


-012- PAGE  1459 


L 

TJET 

LAW 

USER ' S PAGE  NO.  6 E6  S4 

0228 

REF 

19 

LAST 

1456 

17,3436 

55*741 

0 

TS 

NUMBERT 

0229 

REF 

2 

LAST 

14  5 5 

17,3437 

0 1743 

0 

TC 

HOLDO 

RETURN  VIA  SAVED  Q. 

P 0230 

TJET 

= H/  ( . 

02  5 + 

TTOAXIS) 

FOR  TJET 

LESS  THAN  50  MSEC . 

R-R-F 

l 

] 7 f 3 440 

4-  3-6 J70 

1 

FOR  MUL A 1 CS  _ 

-•025AT4 

- - . 02.5  SFC.  ST.AI  PD  AT  4. 

0232 

REF 

3 

LAST 

145  8 

17 \ 3441 

6 1740 

0 

AD 

TTOAXIS 

SCALED  AT  4 SECONDS. 

0233 

REF 

4 

LAST 

1458 

17, 3442 

53' 746 

1 

DXCH 

HH 

STORE  DENOMINATOR  IN  FIRST  WORD  OF  H, 

02  34 

17 , 3443 

0 0006- 

1 

EXTEND 

WHICH  NFED  MOT  BE  PPESERVED.  PICK  UP 

0235 

REF 

5 

LAST 

1459 

17, 3444 

11*745 

1 

DV 

HH 

DP  H AND  DIVIDE  BY  DENOMINATOR. 

0236 

17, 3445 

0 0006 

1 

EXTEND 

—02-3-7 

REF 

90 

LAST  - 

141  8 

11, 3446 

7 4136 

0 

MP 

-B  I T 1 4 

RESCALE  TJET  FROM  2 TO  USUAL  4 SEC. 

0238 

REF 

i 

17, 3447 

1 3560 

0 

TC  F 

C HKM  J NT  J 

CHECK  THAT  TJET  IS  NOT  LESS  THAN  MINIMUM 

R0239 TJET  = — (U  -4--^  0 0375  ) /(0-.1+-  TTOAXIS) FOR  TJET  GREATER-  THAN— 50  MSEC- 


0240 

17,3450 

0 0006  1 

F0RMULA2  EXTEND 

02-41 

R-F-F  - 

_1 

_L7 ,3  45-L 

3 3674  1 

.DC  A—  -t-00  3 75A8 

.00375  SECI2)  SCALED  AT  8. 

0242 

REF 

6 

LAST 

1459 

17,3452 

21*746  1 

DAS  HH 

STORE  NUMcRATORIN  DP  H,  WHICH  NEED  NOT 

A0243 

BE  PRESERVED. 

0244 

REF 

4 

—LAS  T 

14  5 9 - 

1 7, 3453 

31*740  0 

CAE TTOA-XIS 

SCALED  AT  4 SFC. 

0245 

REF 

i 

17, 3454 

6 3664  0 

AD  . 1 A T 4 

0.1  SEC  SCALED  AT  4. 

0246 

REF 

7 

LAST 

1459 

17, 3455 

53*746  1 

DXCH  HH 

STORE  DENOMINATOR  IN  FIRST  WORD  DF  H, 

- 0-2-47  - 

17,-3-456 

_ 0-  JLO-06 L 

EXTEND 

WHICH  NEED  NOT  BF  PRESERVED.  PICK  UP 

0248 

REF 

8 

LAST 

1459 

17,3457 

11*745  1 

DV  HH 

DP  NUMERATOR  AND  DIVIDE  BY  DENOMINATOR 

0249 

17, 3460 

0 0006  1 

EXTEND 

0250 

RF)  _ 

91 

LAST 

14  59 

17,3461 

7 AZ36  -0 

MP  B1T14 

RESCALE  T J FT  FROM  2 TO  USUAL  4 SEC. 

0251 

REF 

2 

LAST 

14  5 7 

17,3462 

1 3423  0 

TCP  RETURNTJ 

END  SUBROUTINE. 

R02-5-2 

SUeROUT  INI-ZED 

-GSM-PUT-AJAI-OtlS— -R-EQU-tR-E-D— E-QR — ALL — ENT  R1E-S — TNTXJ— CODING — EDR_ 

ZONES  1,  2,  AND  3. 

R0254 

REACHEC 

BY  TC 

FROM  3 

POINTS 

IN  TJETLAW 

0255 

REF 

5 

LAST 

145  8 

17, 3463 

4 1736  0 

Z123C0MP  CS  ROTSENSE 

USED  IN  RETURNTJ  SECTION  TO  RESCALE  TJET 

0256 

REF 

6 

LAST 

14  5 9 

17,  3 464 

55*736  0 

TS  ROTSENSE 

AS  TIME6  AND  GIVE  IT  PROPER  SIGN. 

0257 

..-REF 

.10- 

LAST — 14-5-8 

17,3  46-5- 

3 1 ' 425  0 

CAE-  FOOT 

SCAJ  FD  AT  PI/2I5)  RAD/SEC. 

0258 

17,  3 466 

0 0006  1 

EXTEND 

0259 

REF 

8 

LAST 

1458 

17, 3467 

5 1742  1 

INDEX  ADRSDIF2 

02-60 

-REF 

9 

-LAST 

1456 

17,1470 

_ -7  1567  0 

MP  1/ANET1 

SCALED  AT  2I71/PI  SEC(2)/RA0. 

0261 

REF 

5 

LAST 

1459 

17, 3471 

5 5 ' 740  1 

TS  TTOAXIS 

STORF  TIME-TO-AXIS  SCALED  AT  4 SECONDS. 

0262 

REF 

1 

17,3472 

6 3675  0 

AD  -TJMAX 

- 0263 

17, 3473 

0 0006  1 

EXTEND 

IS  TIME  TO  AXIS  LESS  THAN  150  MSEC. 

0264 

17, 3474 

6 3476  1 

BZ  ME  *2 

0265 

REF 

1 

17,3475 

1 3422  1 

TCP  FULLTIME 

NO.  FIRE  JETS,  DO  NOT  CALCULATE  TJET. 

0266 

17, 3476 

0 0002  0 

RETURN 

YES.  GO  ON  TP  FIND  TJET 

0267 

REF 

3 

LAST 

1457 

17,3477 

0 3463  0 

ZON  1 , 2 , 3 TC  Z123C0MP 

SUBROUT  INI  ZED  PREPARATION  FOR  Z0NE1,2,3. 

R0268 

IF  THE  (NEC)  DISTANCE  BEYOND 

PARABOLA 

IS  LESS  THAN  FLAT,  USE  SPFCIAL 

R0269 

LOGIC 

TO 

ACQUIRF  MINIMUM  IMPULSE  LIMIT 

CYCLE.  DURING  POWERED  FLIGHT 

GAP  : A SS  E MBL  E - R E V I S I OH-049OF-  AGO  -PROGRAM  -L  UM I NARY  BY-  NASA  20  21-1  12-01 1 
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USER'S  PAGE  NO.  7 E6  S4 


R0270 

OR  ULLAGE,  FLAT  = 0 

]/i  s 7 

1 7 , 3 snn 

31*737 

o 

CA  F FIRE  FCT  - 

_ SCALED  AT  PI /4  RAD. 

0272 

REF 

2 

LAST 

1457 

17, 3501 

6 1555 

0 

AD  FLAT 

0273 

17, 3502 

0 0006 

1 

EXTEND 

q 2 74 

R-EF 

2 

1 AST 

145  7 

17. 3503 

h 351  7 

1 

BZMF  Z-QME1 

MOT  IN  SPFf.TA!  ZONES. 

R0275 

FIRE 

FOR 

AXIS 

OR,  IF 

CLOSE,  FIRE  MINIMUM 

IMPULSE 

. IF  ON  AXIS,  COAST. 

0276 

REF 

1 

17, 3504 

4 1556 

1 

Z0NE2 

,3 

CS  Z0NE3LIM 

HEIGHT  OF  MIN-IMPUl-SF  ZONE  SFT  BY  1/ACCS 

0277 

REF 

6 

LAST 

1459 

17, 3505 

6 1740 

0 

AD  TTOAXIS 

35  MSEC  IN  DRIFTING  FLIGHT 

02X8 

1 1,3  506 

0 0006 

1 

EXTEND 

ZERO  WHEN  TRYING  TO  ENTER  GTS  CONTROL. 

0279 

REF 

1 

17, 3507 

6 3512 

1 

BZMF  ZONE  3 

0280 

RFF 

7 

LAST 

1460 

17, 3510 

31*740 

0 

Z0NE2 

CAE  TTOAXIS 

FIRE  TO  AXIS. 

0Z8X 

RJEF 

3 

-LAST 

1459 

17,35  1 1 

1-3423 

0 - 

TCF  RFTUPNT  J 

0282 

REF 

ii 

LAST 

14  5 9 

17,3512 

11' 425 

1 

Z0NE3 

CCS  EDCT 

CHECK  IF  FOOT  IS  ZERO. 

0283 

REF 

64 

LAST 

1439 

17,3513 

3 4746 

0 

CAF  B I T 6 

FIRE  A ONE  — J F T MINIMUM  IMPULSE. 

02-84— 

RE-E— 

4 

LASX 

14.6  0 

—17,_3514 

L3423 

-0. 

TCF  RFTURNTJ 

TJET  = +0. 

02  85 

REF 

22 

LAST 

1457 

17, 3515 

0 5677 

1 

TC  CCSHCLE 

CANNOT  BE  BECAUSE  NEG  EDOT  COMPLEMENTED. 

02  86 

REF 

5 

LAST 

1460 

17,3516 

1 3423 

0 

TCF  RFTURNTJ 

TJET  = +0. 

0287 

17, 3517 

0 0006 

1 

ZONE  1 

EXTEND 

0288 

REF 

10 

LAST 

1457 

17, 3520 

5 1744 

l 

INDEX  ADRSDIF1 

0289  - 

REF 

2 

L ASX 

1457 

17,3521 

61 '6  05 

0 - 

SU  AXISDIST 

SCALED  AT  PI/4  PAD. 

0290 

17, 3522 

0 0006 

1 

EXTEND 

0291 

REF 

9 

LAST 

1459 

17, 3523 

5 1742 

1 

INDEX  ACPSDIF? 

02X2 

REF 

1 

17,3524 

7 1575 

0 

MP  ACCFCTZ1 

SCALED  AT  2(7)/PI  SEC(2)/RA0. 

0293 

17, 3525 

20  001 

1 

DDOUBL 

02  94 

17,3526 

20  001 

1 

DOOUBL 

02-95  _ 

-REF 

9 

LAST. 

L45  9 

17,_3527 

53' 746 

1 

DXCH  HH 

DOUBLE  PRECISION  H SCALED  AT  8 SFC12). 

R0296 

TEST 

WHETHER  ' 

TOT  A 1 TIME  REQUIRED  GREATER 

THAN 

150  MSEC: 

R 02-97 

? 

2 

R0298 

I S 

.51  . 

, 150  - 

- TTOAXI S)  - H 

NEGATIVE 

(SCALED 

AT  8 SECONDS  ) 

02  99 

X€F 

8 

L AST 

_446  0 

1 7*  3 530 

31*740 

o 

-CAF  TJQAXIS 

XTQAXIS  Sf.AI  F D AT  4 SFCDNOS. 

0300 

REF 

2 

LAST 

1459 

17,3531 

6 3675 

0 

AD  -T  JM  AX 

-.150  SECOND  SCALED  AT  4. 

0301 

17, 3532 

0 0006 

1 

EXTEND 

02X2 — 

17, 3533 

.7  00  00 

0 - 

SQUAR  E 

0303 

17,3534 

0 00  06 

1 

EXTEND 

0304 

REF 

10 

LAST 

1460 

17, 3535 

61 • 745 

0 

SU  HH 

HIGH  WORD  OF  H SCALED  AT  8 SEC  1 2 ) . 

03-0-5 

17,-3536  - 

-0-0006 

-1 

EXTEND 

0306 

REF 

2 

LAST 

14  5 9 

17,3537 

6 3422 

0 

BZMF  FULLTIME 

YES.  NEED  NOT  CALCULATE  TJET. 

RO3-07 

T F ST 

-WHETHER  TIME  BF.YQMD  AXIS 

-GREATER 

THAN- 50 

MSFC  TO  DFTFPMINE  WHICH 

APPROXIMATION  TO  IISF. 

0309 

REF 

11 

LAST 

1460 

17,3540 

31 '745 

0 

CA  E HH 

0310 

REF 

9 

LAST 

14  5 8 

17, 3541 

6 7745 

0 

AD  MEG 2 

0311 

17, 3542 

0 0006 

1 

EXTFND 

0312 

REF 

i 

17,3543 

6 3553 

1 

BZMF  F0RMULA3 
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L TJET  LAW 


USER'S  PAGE  NO.  8 E6  S4 


R0313 

TJET 

= H/0 

.1  + TTOAXIS  + . 

0375  FOR 

APPROXIMATION  OVER  MORE  THAN  50 

MSEC. 

R-g-F 

1 

1 7 f 3 S44 

3 3665  1 

CAF  . 1 AT 2 _ 

STORE  .1  SFC  SCAI  FD  AT  2 FOR  DIVISION. 

0316 

REF 

12 

LAST 

1460 

1 7 \ 3545 

53*746  1 

DXCH  HH 

DP  H SCALED  AT  8 SEC ( 2 ) NEED  NOT  BE 

0317 

17, 3546 

0 0006  1 

EXTEND 

PRESERVED. 

0 34-  ft 

R F F 

13 

- 4- A S T- 

- 146  1 

17, 3 547 

1 1 * 7 45 1 

DV  HD  __ 

QUOTIENT  SCALED  AT  4 SECONDS. 

0319 

REF 

9 

LAST 

1460 

17, 3550 

6 1740  0 

AD  TTOAXIS 

SCALED  AT  4 SEC. 

0320 

REF 

i 

17,3551 

6 3666  1 

AD  .0375AT4 

.0375  SEC  SCALED  AT  4. 

0-321 

R Ff 

6- 

LAST 

1460- 

17-.3552 

_ 1 3423  0 

TCF-  RETURNTJ  _ 

END  COMPUTATION. 

R0322 

TJET 

= H/.i 

025  + 

TTOAXIS 

FOR  APPROXIMATION 

OVER  LESS  THAN  50  MSEC. 

0323 

REF 

1 

17,3553 

4 3667  1 

F0RMULA3 

CS  - . 0 2 5AT2 

STORE  +.025  SEC  SCALED  AT  2 FOR  DIVISION 

0324 

RFF 

14 

LAST 

146  1 

17, 3554 

5 3 1 7 46  1 

DXCH  HH 

PICK  UP  DP  H AT  8,  WHICH  NEED  NOT  BE 

0-3  ? 5 

17,3555 

0 .00.06.  _1 

. EXTEND 

PRESERVED. 

0326 

REF 

15 

LAST 

146  1 

17, 3556 

11*745  1 

DV  HH 

QUOTIENT  SCALED  AT  4 SECONDS. 

0327 

REF 

10 

LAST 

146  1 

17,3557 

6 1740  0 

AD  TTOAXIS 

SCALED  AT  4 SEC. 

R 0328 


-03-3-1  - 

0332 

0333 

0334 

0335 


IF  CONPUTEC  JET  TIME  IS  LESS  THAN  TJMIN,  TJET  IS  SET  TO  ZERO. 


R0329  MINIMUM  IMPULSES  REQUIRED  IN  ZONE  3 ARE  NOT  SUBJECT  TO  THIS  CONSTRAINT, 


-&EE- 

REF 

REF 

RFF 


17.3560  6 3677  1 CHKMINI J AD  -TJMIN 

17.3561  0 0006  1 EXTEND 

17.3562  6 3357  0 BZMF  COASTTJ 

-lJ-,-3-563 6 3676  0 AD TJMIN 

17,3564  1 3423  0 TCF  RETURNTJ 


NATURALLY. 

IS  COMPUTED  TIME  LESS  THAN  THE  MINIMUM. 

YES,  SET  TIME  TO  ZERO. 

NO.  RESTORE  COMPUTFD  TIME. 

END  COMPUTATION. 


3 LAST  1457 
4 — 

7 LAST  1461 


GAP : -ASSEMBLE  REVISION  OM  OF  AGC  PROGRAM  LUMINARY  BX- NASA— 2-0  211  12-011 
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P0336 

***  ROUGHL  ftW  ♦** 

R0338 
R0340 
HO  342 

1.  INDEXERS  ADRSDIFl  AND  ADRSDIF2  ARE  SET  ON  BASIS  OF  AXIS,  AND  SIGN 

2.  IF  EDOT  WAS  NEGATIVE.  E AND  EDOT  ARE  ROTATED  INTO  UPPFR  HALF-PLANE 

3.  F IS._S.CALE_D  AT  PI  RADIANS  AMD_.ED.OT  AT  PI/4  RAD/SEC. 

OF  EDOT. 

AND  ROTSENSE 

IS  MADE  NEGATIVE. 

R0343 

Rn^44 

I EXCEPT  THE  RUFLAW3  ENTRY  WHEN  E IS  AT  PI/4) 

RIIF1AW1,  ERROR  MORE  NFCATTVF  THAN  P I / 1 A RAn.  FIRF  TO  A RAT  E QF  P 1732  RAD/SFC  1 I F JET 

TTMF  EX CE EDS  20  MSEC. ) . 

R0346 

RUFLAW2:  ERROR  MORE  POSITIVE  THAN  PI/16  RAD.  FIRE  TO  OPPOSING  RATE  OF 

PI/32  RAD/SEC. 

R0348 

RUFLAW3:  ERROR  RATE  GREATER 

THAN  PI/32  RAD/SEC 

AND  ERROR  WITHIN  BOUNDS.  COAST  IF  BELOW  FIREFCT,  FIRE  IF  ABOVE 

0"\50 

p F F 

5J. 

1 ART  J4T  ? 

17 f 3565 

4 474TX 

1 

RUFLAW1 

cs 

-8  IT  12 

DEC-R-EMFNT  FDnT  BY  Pl/32  R AD/SEC.  WHICH 

0351 

REF 

12 

LAST 

1460 

17,3566 

2 7 ' 425 

1 

ADS 

EDOT 

IS  THE  TARGET  RATE. 

0352 

17,3567 

0 0006 

1 

EXTEND 

0 353 

_R_E-F 

1 

1 7,  3570 

6-  36-LL 

1 

BZMF 

SMAI  RATE 

BRANCH  IF  RATE  LESS  THAN  TARGET. 

0354 

REF 

1 

17, 3571 

0 3647 

1 

TC 

RUE  S ETUP 

REVERSE  ROTSENSE  AND  INDICATE  MAX  JETS. 

0355 

REF 

13 

LAST 

14  6 2 

17, 3572 

3 1 ' 425 

0 

CAE 

EDOT 

PICK  UP  DESIRED  RATE  CHANGE. 

0356 

17, 3573 

0 0006 

1 

RUFLAW12 

EXTEND 

COMPUTE  TJET 

0357 

REF 

10 

LAST 

1460 

17,3574 

5 1742 

1 

INDEX 

ADRSDIF2 

= (DESIRED  R AT  F CHANG E ) / ( 2- J ET  ACCEL.) 

0-3-58 

REF 

10 

LAST 

145  9 

17,3575 

7 1571 

1 

MP 

1/ANET1  +2 

0359 

REF 

3 

LAST 

989 

17,3576 

6 7740 

0 

AD 

- 1/8 

IF  TJET,  SCALED  AT  32  SEC,  EXCEEDS 

0360 

17, 3577 

0 00  06 

1 

EXTEND 

4 SECONDS,  SET  TJET  TO  TJMAX. 

0361 

17,3600 

6 3602 

0 

BZMF 

+ 2 

03  62 

REF 

3 

LAST 

1460 

17,3601 

1 3422 

1 

TC  F 

FULLTIME 

03621 

1 7,3602 

0 0006 

1 

EXTEND 

0-362-2 

RE6 

. 4 

LAS  T 

14  6 2 

17,3603 

1 3422 

1 

BZF 

E-ULL  TIME 

0363 

REF 

52 

LAST 

146  2 

17,  3 604 

6 4740 

0 

AD 

8 I T 1 2 

RESTORE  COMPUTED  TJFT  TO  ACCUMULATOR. 

03  64 

REF 

522 

LAST 

14  5 5 

17,3605 

20  001 

1 

DAS 

A 

Q- 365 

H6F 

5-23 

1 AST  1462 

1 7.3606 

20  . QO-l 

1 

DAS 

A 

0366 

REF 

524 

LAST 

1462 

17,3607 

20  001 

1 

DAS 

ft 

RESCALED  TJET  AT  4 SECONDS. 

0367 

REF 

2 

LAST 

1459 

17, 3610 

1 3560 

0 

TC  F 

C HK  M I NT  J 

RETURN  AS  FROM  FINELAW. 

0368 

REF 

2 

LAST 

1462 

17, 3611 

0 3651 

0 

SMALRATE 

TC 

RUFSFTUP  +2 

SET  NUMBERT  AND  FIREFCT  FOR  MAXIMUM  JETS 

0369 

REF 

7 

LAST 

1459 

17,3612 

11 ' 736 

0 

CCS 

ROTSENSE 

0370 

REF 

174 

L AST  . 

144  9 

17,3613 

3 4753 

1 

CAF 

ONF 

MODIFY  INDEXER  TO  POINT  TO  1 / AN  ET 

0371 

17, 3614 

1 3616 

1 

TC  F 

+ 2 

CORRESPONDING  TO  THE  PROPER  SENSE. 

0372 

REF 

13 

LAST 

1280 

17, 3615 

3 7746 

0 

CAF 

NEGONE 

..._  03.73 

REF 

11 

LAST 

146_2 

17,3616 

27' 742 

0 

ADS 

ADRSDIF2 

03  74 

REF 

14 

LAST 

1462 

17,3617 

4 1425 

1 

CS 

FOOT 

PICK  UP  (PI/32-ED0T)=DESIRED  CHANGE. 

0375 

REF. 

__L  . 

17,  3620 

1 3573 

1 

TC  F 

RUFL  AW12 

03  76 

REF 

3 

LAST 

1462 

17, 3621 

0 3647 

1 

RUFLAW2 

TC 

RUFSFTUP 

REVERSE  ROTSENSE  AND  INDICATE  MAX  JETS. 

0377 

LAST 

-146  2 

17, 3622 

3 4740 

0 

CAF 

B I T 1 2 

0378 

REF 

15 

LAST 

146  2 

17, 3623 

6 1425 

0 

AD 

EDOT 

PICK  UP  (PI/32+EOOT)=DESIRED  PATE  CHANGE 

0379 

REF 

525 

LAST 

146  2 

17,3624 

54  000 

0 

TS 

A 

IF  OVERFLOW  SKIP,  FIRE  FOR  FULL  TIME. 

GAP  : ASSEMBLE  REV  IS  I ON  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211 12-  01  1 
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1463 


L 

TJET 

LAW 

USER'S  PAGE  NO.  10  E6  S4 

0380 

REF 

2 

LAST 

1462 

17, 3625 

1 3573 

1 

TCF 

RUFL AW12 

OTHERWISE,  COMPUTE  JET  TIME. 

03  81 

REF 

5 

LAST 

1462 

17,3626 

1 3422 

1 

TCF 

FULL  TINE 

0382 

REF 

4 

LAST 

146  2 

1 7,  3627 

0 3647 

1 

RUFLAW3 

TC 

RUFSETUP 

EXECUTE  COMMON  RUFLAW  SUBROUTINE. 

0383 

REF 

ii 

LAST 

1460 

17,3630 

5 1*7  44 

1 

INDEX 

ADRSDIFl 

R PF 

4 

1 AST 

14  5 7 

1 7 T 3-63 1— 

4 16  01 

0 

CS 

_E_I  R.  E D B 

CALCULATE  DISTANCE  FROM  SWITCH  CURVE 

0385 

REF 

16 

LAST 

1457 

17, 3632 

6 1750 

1 

AD 

E 

1/ANET1*ED0T*FD0T  +E  - FIREDB  = 0 

0386 

17, 3633 

0 00  06 

1 

EXTEND 

SCALED  AT  4 PI  RADIANS 

038 7 

R F F 

39 

1 AST 

14 3 8 

17, 3634 

7 4741 

0 

MP 

B I T 1 1 

0388 

REF 

16 

LAST 

146  2 

17, 3635 

57' 425 

0 

XCH 

EDOT 

0389 

17, 3636 

0 0006 

1 

EXTEND 

0390 

17,3637 

7 0000 

0 

SQUARE 

0391 

17, 3640 

0 0006 

1 

EXTEND 

0392 

REF 

12 

LAST 

146  3 

17, 3641 

5 1744 

1 

INDEX 

ADRSDIFl 

0393 

RF-H 

11 

L ASH 

146  2 

17,3  642 

7 1571 

_1_ 

MP 

1/ANFT1  +2 

0394 

REF 

17 

LAST 

146  3 

17, 3643 

6 1425 

0 

AD 

EDC1T 

0395 

17,3  644 

0 0006 

1 

EXTEND 

0396 

REF 

4 

UAST 

146  1 

U7,3  645_ 

6 3357 

0 

3ZJ3F  - 

COAS  TTJ 

COAST  IF  BELOW  IT. 

0397 

REF 

6 

LAST 

146  3 

17,3646 

1 3422 

1 

TCF 

FULL  TIME 

FIRE  FOR  FULL  PERIOD  IF  ABOVE  IT. 

pCV^QP. 

QlinonilTJMP  IKPIL  TM 

All  F M TRJLF  Q TH  Rniir,Hl  AW- 

0399 

REF 

8 

LAST 

1462 

17, 3647 

4 1736 

0 

RUFSETUP 

CS 

ROTSENSE 

REVERSE  ROTS ENS F WHEN  ENTER  HERE. 

04-043 

REF 

9 - 

L AST 

1463 

1 7 ,3660 

55 ' 736 

0 

TS 

RDTSENSE 

0401 

REF 

46 

LAST 

14  5 8 

17,3651 

3 4751 

0 

+2 

CAF 

FPUP 

REQUIRE  MAXIMUM  (2)  JETS  IN  U.V-AXFS. 

0402 

REF 

20 

LAST 

1459 

17, 3652 

55'  741 

0 

TS 

NUMB  ERT 

0403 

RF-F 

1 1 

1 AST  145  2 

_ 17,  3 653 

3 4735 

1 

CAF 

NEGMAX 

SUGGEST  MAXIMUM  (4)  JETS  IN  P-AXIS. 

0404 

REF 

7 

LAST 

146  0 

17, 3654 

55' 737 

1 

TS 

FIREFCT 

0405 

REF 

4 18 

LAST 

14  5 2 

17, 3655 

0 0002 

0 

TC 

Q 

R 0406 

CONSTANTS  FOR 

TJETLAW 

43407 

1 7_,  3 656 

777  57 

1 

DFC 

-is 

AYI^DTFFf  TMHFX1  = MIIMRFR  HF  RFGISTFRS 

0408 

1 7,  3657 

00000 

1 

AX1 SPIFF 

DEC 

1-0 

BETWEEN  STORED  1/ACCS  PARAMETERS  FOR 

0409 

1 7, 3 66  0 

00020 

0 

DEC 

16 

THF  INDEXED  AXIS  AND  THE  U-AXIS. 

044-0 

1 7T  3661 

1A4  00 

0 

S£MSDR 

OCT 

14400 

PATIO  OF  TJET  SCALING  WITHIN  TJETLAW 

A0411 

(4  SEC)  TO  SCALING  FOR  T6  (10.24  SEC). 

0412 

17,3662 

76447 

1 

-2DEG 

DEC 

- .04444 

-2.0  DEGREES  SCALED  AT  45. 

0A13 

17, 3663 

77750 

0 

—.0 112A8 

DEC 

- .00 141 

-.01125  SE  C ( 7 ) SCALED  AT  8. 

0414 

17,3664 

00632 

0 

. 1AT4 

DEC 

.025 

0.1  SECOND  SCALED  AT  4. 

0415 

17,3665 

01463 

1 

. 1AT2 

DEC 

.05 

0.1  SEC  SCALED  AT  2. 

0416 

17,36.66 

00232 

1 

. 0375AT4 

DEC 

. 009  38 

.0375  SEC  SCALED  AT  4. 

0417 

17, 3667 

77462 

1 

-.025AT2 

DEC 

-.0125 

-.025  SEC  SCALED  AT  2. 

0418 

17, 3670 

77631 

0 

025AT  4 

DEC 

- .00  625 

0419  _ 

17,  3 671 

77145  1 

— . 0 5 AT2 

DEC 

-.025 

0420 

17,3672 

75462 

0 

-. 1 5 AT2 

DEC 

-.075 

0421 

17, 3673 

00007 

0 

. 00  375 A 8 

2DEC 

.00375  B— 3 

0421 

17,3674 

25605 

0 

0422 

17,3675 

766  31 

1 

-TJMAX 

DFC 

-.0375 

LARGEST  CALCULATED  TIME.  .150  SEC  AT  4. 

0423 

17,3676 

00122 

0 

TJMIN 

DEC 

.005 

SMALLEST  ALLOWABLE  TIME.  .020  SEC  AT  4. 
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L KALMAN  FILTER 


0001 

RFF 

3 LAST 

1449 

E6 i 1 522 

0002 

0003 

REF 

3 LAST 

141  6 

16, 3624 
16, 7000 

0004 

16, 3624 

0005 R-S-F 1 


0006 

REF 

1C4 

LAST 

1457 

16,3624 

3 4752 

0 

nnn7 

r E F 

3 

LAST 

14  8 

1 6.,  3625 

55' 742  0 

00071 

16,3626 

6 0000 

1 

00072 

REF 

419 

LAST 

146  3 

16, 3627 

54  002 

1 

0003- 

RFF 

4 

LAST 

14  65 

16jJ.630- 

5 1 1 7 42- 

1 

0009 

REF 

14 

LAST 

14  5 4 

16, 3631 

1 1' 524 

1 

0010 

16, 3632 

1 3634 

1 

no  i ] 

RTF 

1 

- 16,2-633 

1 3652 

-0- 

0012 

REF 

1 

16,3634 

6 3714 

0 

0013 

16,3635 

0 0006 

1 

on  i a 

R f-F 

1 

1 6, 3636 

6 3672 

.1 

0015 

REF 

5 

LAST 

146  5 

16,3637 

51*742 

1 

0016 

REF 

15 

LAST 

1465 

16,3640 

1 1'  524 

1 

0017 

RFF. 

2 

LAST- 

146  5 - 

16,3  641 

3 3 71-4. 

0 

0018 

16,3642 

1 3644 

0 

0019 

RFF 

3 

LAST 

146  5 

16, 3643 

4 3714 

l 

0020  _ 

REF 

6 

1 AST 

146-5 

1 6, 3644 

5 1' 742 

l 

0021 

REF 

16 

LAST 

1465 

16,3645 

27' 524 

1 

0022 

REF 

7 

LAST 

146  5 

16, 3646 

51’ 742 

1 

002  3 

RFF 

17 

LAST 

146-5 

- 16,3  64  7 

11*524  1 

0024 

REF 

i 

16, 3650 

4 3600 

0 

0025 

16, 3651 

1 3653 

0 

0026 

_ R4i-F 

2 

L AST 

146  5— 

16, 3 652 

_3  -2620 

1 

0027 

16,3653 

0 0006 

1 

0028 

REF 

8 

LAST 

1465 

16, 3654 

5 1742 

1 

002  9 

RFF- 

3 

L AS  T 

143  1 

16,3655 

7 1 52 1 

1 

0030 

REF 

290 

LAST 

1458 

16, 3656 

3 0001 

0 

00  31 

REF 

9 

LAST 

1465 

16, 3657 

51’ 742 

1 

0031  1 

REF 

29- 

LAST 

1445 

16,3.660 

55' 735 

0 

0031  2 

16, 3661 

0 0006 

1 

00313 

REF 

61 

LAST 

140  5 

16, 3662 

7 4742 

0 

- 00314. 

1 6, 3663 

0 0006 

1 

00315 

REF 

1 

16, 3664 

6 3715 

1 

00316 

REF 

420 

LAST 

146  5 

16, 3665 

5 0 002 

0 

- 0031  / 

R£-E_ 

7__ 

LAST 

1 4 8- 

16,-3  666 

27*513 

0 

0032 

REF 

10 

LAST 

1465 

16, 3 667 

1 1*742 

0 

00  33 

RFF 

2 

LAST 

141  7 

16,3670 

1 3625 

1 

0034 

REF 

i 

16,3671 

1 3701 

0 

0035 

REF 

299 

LAST 

145  7 

16, 3672 

3 4755 

1 

0036- 

RF-F 

1 L_ 

-LAST 

146  5 

16 , 2673 

5 1 ' 7 42 

1 

0037 

REF 

18 

LAST 

146  5 

16,3674 

57*  524 

0 

0038 

16,3675 

0 0006 

1 

EB ANK=  NO. U JETS 
BANK  16 

SEXLOC  BAPS  J 

BANK 

COUNT*  tS/DAB 

RATELOOP  CA  TWO 

US QAJPTEMP6 

DOUBLE 
TS  0 

INDEX  D APT  FMP6 
CCS  TJP 
TCF  + 2 

TCF  LODPRATE 

AD  -100MST6 

EXTEND 

B7MF  SM4LLTJU 
INDEX  D APT  EMP6 
CCS  TJP 

CA -1Q0MST6 

TCF  +2 
CS  -100MST6 

INDEX  DAPTEMP6 
AOS  TJP 
INDEX  DAPTEMPfe 
CCS  TJP 
CS  -100MS 

TCF  +2 

CA -1  OOMS 

LOOPRATE  EXTEND 

INDEX  D APT  EMP6 

ME NO.  P JETS 

CA  L 

INDEX  DAPTEMP6 
TS  D APT  FMPI 

EXTEND 

MP  BIT10 

EXTFND 

BZMF  NEGTCRK 
STORTORK  INDEX  9 

ADS  D OWN  TORK 

CCS  DAPTEMP6 
TCF  RATELOOP 
TCF  ROTOPQUE 
SMALLTJU  CA  ZERO 

INDEX DAPTEMP 6 

XCH  TJP 
EXTEND 
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KALMAN  FILTER  USER'S  PAGE  NO.  2 E6  S4 


0039 

REF 

3 

LAST 

109  4 

16,  3 676 

7 4760 

0 

MP 

ELEVFN 

10.24  PLUS 

0040 

REF 

291 

LAST 

146  5 

16, 3677 

3 0001 

0 

CA 

L 

2 

| AST 

1 45  5 

-16,  3 700 

1 3653- 

0 

TCF 

1 nnPRATF  _ 

0042 

REF 

u 

LAST 

144  5 

16 , 3701 

3 1736 

1 

RQTDRQUE  CA 

D APT  EMP2 

0043 

REF 

7 

LAST 

144  1 

16,3702 

6 1737 

0 

AD 

DAPTEMP3 

16,3  703  - 

0 00  06 

1 

EXTEND 

0045 

REF 

1 

16,  3704 

7 1532 

0 

MP 

1 JAC  CR 

0046 

REF 

3 

LAST 

1422 

16,3705 

5 5 ' 745 

1 

TS 

JFTR ATER 

0 041  - 

-R£5 

-B 

LAST 

146  6 

16,3706 

4 1737 

1 

CS 

DAPT  FMP3 

0048 

REF 

12 

LAST 

146  6 

16, 3707 

6 1736 

1 

AD 

DAPT  EMP2 

0049 

16, 3710 

0 0006 

1 

EXTEND 

0050 

REF 

1 

16.3711 

7 1531 

0 

MP 

1 JACCO 

0051 

REF 

3 

LAST 

142  1 

16, 3712 

55' 744 

0 

TS 

JETR ATEO 

0052 

REF 

1 

16,3713 

1 2305 

1 

TCF 

BACK  P 

0053  - 

16,3714 

775  3 7 

a 

-100MST6  DEC 

-160 

R0054 

0055 

0056  REF  4-24 L AS T 146  5 

0057  REF  1 


16,3715  4 0000  0 NEGTORK  COM 

16,  3716 24  0.02-  0 INCH Q 

16,3717  1 3665  0 TCF  STCPTORK 
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L TRIM  GIMBAL  CONTROL  SYSTEM 


USER' S PAGE  NO.  I EO  S4 


0001 

0002 

REF 

1 

21, 3263 
F6 , 1446 

BANK  21 

EBANK=  QDIFF 

0003 

REF 

l 

21 , ? ODD 

SFT)  PC  DAPS4 

0004 

21,3263 

BANK 

90045 R-E-F 1 


COUNT-*  St  / D APGT 


R0005 
R0007 — 
R0008 
ROO  10 
R 0 012 — 
ROO  14 


CONTROL  REACHES  THIS  POINT  UNOER  EITHER  OF  THE  FOLLOWING  TWO  CONDITIONS  ONCE  THE  DESCENT  ENGINE  AND  THE  DIGITAL 

AL-TOP-TLQT — AR  E -BOT-H-OAU 

A)  THE  TRIM  GIMBAL  CONTROL  LAW  WAS  ON  DURING  THE  PREVIOUS  Q,P-AXIS  T1ME5  INTERRUPT  (OR  THE  DAPIDLER 
INITIALIZATION  WAS  SET  FOR  TRIM  GIMBAL  CONTROL  AND  THIS  IS  THE  FIRST  PASS),  OR 

R)  T H F Q , R—  AX  FS  RES _ AUT0P1I0T  DETERMINED  THAT  THE  VFHICLE  WAS  ENTERING  (OR  HAD  JUST  ENTERED)  A COAST 

ZONE  WITH  A SMALL  OFFSET  ANGULAR  ACCELERATION. 


ROO  1 5 GTS  IS  THE- ENTRY  TO — T-HE  G-IMB  AL-TRIM  SYSTEM  FOR  CON  T-RO  Li  ING-  A TTIIUDE 


Ar.r.FI  FR  AT  inns  , 


0018 

REF 

14 

LAST 

1462 

21,3263 

3 7746 

0 GTS 

CAF 

NEGONE 

MAKE  THE  NEXT  PASS  THROUGH  THE  DAP  8E 

0019 

REE 

- 6- 

-LAST 

1446 

21 , 3264  _ 

55' 627 

1 

TS 

COTPOLER 

THROUGH  RCS  CONTROL, 

00  20 

REF 

47 

LAST 

1463 

21,3265 

3 4751 

0 

CAF 

FOUR 

AND  ENSURE  THAT  IT  IS  NOT  A SKIP. 

0021 

REF 

9 

LAST 

1449 

21,3266 

55' 535 

1 

TS 

SKI  PU 

00  2 2 

REE 

3- 

LAST 

14  4 9 

21 , 3267 

5-5*536 

1 

TS 

SKI  P V 

00225 

REF 

1 C 5 

LAST 

146  5 

21, 3270 

3 4752 

0 

CAF 

TWO 

0023 

REE 

_ 5_ 

last 

-144  4 

21*  32-71 

5 5 * 631 

-_Q 

TS 

LN.ST  S 

S_ET  INDICATOR  OF  GTS  CONTROL  POSITIVE. 

0024 

REF 

7 

LAST 

1423 

21,3272 

5 5 ' 63  0 

i 

TS 

QGIMTIMR 

SET  TIMERS  TO  200  MSEC  TO  AVOID  BOTH 

0025 

REF 

5 

LAST 

1423 

21,3273 

55*632 

0 

TS 

RGIMTIMR 

RUNAWAY  AND  INTERFERENCE  BY  NULLING. 

R0026  THE  DRIVE  SETTING  ALGORITHM 
R0027 DEi-  — ■ SGN(  CM  E G A*  K AL  PHA^ABS  (ALPHA)  / 2 )-. 


R0028  NEGUSUM  = ERROR. K (2)  + DEL ( OM EG A. K . DE L + AL PH A ( 2 ) / 2 ) ( 3 /2 > + ALPH A ( OMEG A. K . DEL  + ALPHAI2I/3) 
R0030  DRIVE  = -SGN ( N EGU SUM ) 


0035 — 

— RLE 

27 

L AS  T 

12  9 9 

71 ♦ 3274 

3 0021 

1 

CA 

SP 

9A\/F  THF  9R-  9 H T FT  TT 

I F FT  TO  CORRECT 

0036 

REF 

526 

LAST 

146  2 

21 ,3275 

6 0000 

1 

AD 

A 

FOR 

THE  RIGHT  SHIFT  DUE 

TO  EDITING. 

0037 

REF 

1 

21, 3276 

55*476 

1 

TS 

SAVE  SR 

0042 

REF 

1C6 

LAST 

146  7 

21, 3277 

3 4752 

0 

GTSGO+ON 

CAF 

TWO 

SET 

INDEXER  FOR  R-AXIS 

CALCULATIONS. 

0043 

REF 

1 

21, 3300 

55*746 

1 

TS 

QRCNTR 

0044 

REF 

9_ 

LAST 

142  2 

21 , 3aai 

3 1541 

0 

CA 

AOSP 

0045 

21,3302 

0 0006 

1 

EXTEND 

0046 

REF 

47 

LAST 

14  2 5 

21, 3303 

7 4751 

1 

MP 

B I T 3 

— 0047— 

— RLE 

3- 

-LAST 

143  5 

21,3  304 

3 1435 

1 

CA 

EDOTP 

0048 

REF 

1 

21, 3305 

1 3314 

0 

TCF 

GTSOAXIS 

0049 

—REF 

-3-00— 

LAST 

146  5 

21 ? 3306 

3 47  55 

1 - 

GOQTR IMG 

CAF 

_ZERC 

SET 

1NDEKE-R  FOR  Q-AXIS 

CALCULAT IONS 

0050 

REF 

2 

LAST 

146  7 

21,3307 

55*746 

1 

TS 

QRCNTR 
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0051 

REF 

21 

LAST 

143  5 

21,3310 

3 1537 

1 

CA  AGSQ 

0052 

21,3311 

0 0006 

1 

EXTEND 

RFF 

48 

L AST 

146  7 

21,3  312 

7 4751 

1 

MP  e-IT-3.. 

0054 

REF 

5 

LAST 

1436 

21,3313 

3 1434 

0 

CA  EDOTC 

0055 

RFF 

1 

21, 3314 

53' 744 

0 

GTSQAX 1 S 

DXCH  WCENTRAL 

0056 

21, 3315 

0 0006 

1 

EXTEND 

0057 

REF 

3 

LAST 

1467 

21, 3316 

5 1 746 

0 

INDEX  QRCNTR 

PICK  UP  K AND  K ( 2 ) FOR  THIS  AXIS 

-00.58 

REF 

4 

.LAS  T 

147 

21,3317 

3 1504 

1 

DC  A KQ 

0059 

REF 

2 

LAST 

147 

21,3320 

53' 742 

0 

DXCH  KCENTRAL 

no  a 1 

- R-EF 

4_ 

— L AST 

14-6  8 

21,3321 

51 1 746 

0 

INDEX  _Q-RC-N.TR 

..  --  QDIF-F,  -RD.IFF  ARE  STORED  IN  D.P. 

0062 

REF 

2 

LAST 

1467 

21, 3322 

31' 446 

0 

CAE  QDIFF 

noA^ 

21, 3323 

0 00  06 

1 

ALGORTHM 

EXTEND 

- Q (RID IFF  IS  THFTA  1FRR0R1  SCALED  AT  PI. 

0064 

REF 

1 

21,3324 

7 1742 

0 

MP  K2CNTRAL 

FORM  K(2)*THETA  IN  D.P. 

0065 

REF 

1 

21,3325 

23' 735 

1 

LXCH  K2THETA 

0066 

21, 3326 

0 0006 

1 

EXTEND 

FORM  K(2)*THETA*SF2  IN  D.P. 

0067 

REF 

38 

LAST 

1440 

21, 3327 

7 4743 

1 

MP  B I T9 

0068 

REF 

2 

LAST 

146  8 

21, 3330 

53' 736 

0 

DXCH  K2THETA 

- _ 0069 

21 , 3_331 

EXTEND 

0070 

REF 

39 

LAST 

146  8 

21, 3332 

7 4743 

1 

MP  B I T9 

0071 

REF 

3 

LAST 

146  8 

21, 3333 

27' 736 

0 

ADS  K2THETA  +1 

0072 

REF 

2 

LAST 

146  8 

21,3334 

31' 743 

0 

CAE  WCENTRAL 

GET  OMEGA 

0073 

21,3335 

0 0006 

1 

EXTEND 

0074- 

-REF 

3 - 

LAST 

146  8 

-21,  3336 

7 1 7 4-L 

0 

MP  KCENTRAL 

FORM  K*OMFGA  IN  D.P. 

0075 

REF 

1 

21,3337 

2 3 ' 74 1 

1 

LXCH  OMEGA. K 

0076 

21, 3340 

0 0006 

1 

EXTEND 

FORM  OMEG A*K*  SF 1 IN  D.P. 

00-77 

- RE-F 

54  - 

LAST 

1462— 

mi, 3341 

7 4740 

1 

MP  BIT12 

0078 

REF 

2 

LAST 

146  8 

21,3342 

53*742 

0 

DXCH  OMEGA. K 

0079 

21, 3343 

0 0006 

1 

EXTEND 

0089 — 

- REF 

—55— 

L-AST 

146  8- 

21, 3344 

7 4740- 

1 

MP  BIT12 

0081 

REF 

3 

LAST 

146  8 

21, 3345 

27*742 

0 

ADS  OMEGA. K +1 

00-82 

REF 

I 

9]  , 354  6 

3 1 ' 744 

1 

CA-E  AT  FNTPAL 

EURM  ALPHA ( 2) / 2 T N D.P. 

0083 

21,3347 

0 0006 

1 

EX  TEND 

0084 

21,3350 

7 0000 

0 

SQUAR  E 

- 0-0-85-  . . 

REF 

- 1 _ 

21,23351 

5 3' 740 

1 

DXCH  A2CNTPAL 

0086 

REF 

2 

LAST 

146  8 

21, 3352 

3 1 ' 7 44 

1 

CAE  ACENTRAL 

GET  ALPHA* ABS ( ALPHA) /2 , IF  ALPHA  GREATER 

AOO  82 — . 

THAN  0.  OTHERWISE  TAKE  NEGATIVE  OF  ABOVE 

0088 

21, 3353 

0 0006 

1 

EXTEND 

0089 

21,3354 

6 3360 

1 

BZMF  +4 

00.90 

-21, 3355 

0 0006 

1 

EXTEND 

0091 

REF 

2 

LAST 

1468 

21,3356 

3 1740 

0 

DC  A A2CNTPAL 

0092 

21,3357 

1 3362 

1 

TCF  +3 

00-93 

-21,3360 

0 000-6 

1 

EXTEND 

0094 

REF 

3 

LAST 

146  8 

21, 3361 

4 1740 

1 

DCS  A2CNTRAL 

0095 

REF 

1 

21, 3362 

53' 750 

0 

DXCH  FUNCTION 

SAVE  AS  SGN( ALPHA 1*ALPHA( 2 ) /2 
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0096 

21, 3363 

0 0006 

1 

EXTEND 

0097 

REF 

4 

LAST 

146  8 

21,3364 

3 1742 

1 

DC  A 

OMEGA. K 

-R-fF 

2 

1 AST 

14-6  8 

2 1 ,3365 

_2  1 ' 7 50 

0 

DAS- 

FUNCTION  .. 

FORM,  FUNCT  1 

0099 

REF 

3 

LAST 

1469 

21 ,3366 

11'747 

0 

CCS 

FUNCTION 

DEL  = +1  FOR  FUNCT1  GREATER  THAN 

ZERO. 

P EF 

1 

?l  ,.3  3-67 

- 1 33  73 

1 

TCP 

EUSEMLT1  _ 

OTHERWISE  DEL  = -1 

0101 

21, 3370 

1 3372 

0 

TCF 

+2 

0102 

REF 

1 

21,3371 

1 3375 

1 

TCF 

NFGF NCT 1 

0103 

REF 

4 

LAST 

1469 

21, 3372 

1 1 ' 750 

0 

CCS 

FUNCTION  +1 

USE  LOW  ORDER  WORD  SINCE  HIGH  IS 

ZERO 

0104 

REF 

67 

LAST 

14  5 5 

21 , 3373 

3 4753 

1 

P0SFNCT1 

CAF 

8 I T 1 

0105 

21,3374 

1 33J76- 

1 

TC_F 

+ 2 

0106 

REF 

68 

LAST 

146  9 

21, 3375 

4 4753 

0 

NFGFNCT 1 

CS 

B I T 1 

0107 

REF 

1 

21, 3376 

5 5 ' 745 

1 

TS 

DEL 

0108 

REF 

2 

LAST 

1469 

21,3377 

1 1 ' 7 45 

1 

CCS 

DEL 

MAKE  OMEGA*K  REALLY  DEL*OMEGA*K 

0109 

REF 

1 

21,3400 

1 3405 

1 

TCF 

FUNCT2 

( NOTHING  NEED  8E  DON E 1 

. - oi  10 

R-F-E 

2 

LA-SJ 

146  9 

21,3401 

- 1 3405 

1 

TCF 

F-U.MC  T2 

0111 

21 ,3402 

0 0006 

1 

EXTEND 

0112 

REF 

5 

LAST 

1469 

21, 3403 

4 1742 

0 

DCS 

OMEG A.K 

0113 RFF 6 UA5J LA-6-9 21,-3-10-4 5-3'  742-  0 DXCJd 3MFGA.K CHANGE  SIGN  OF  OMEGA*K 


0114 
041-5- 

-R44 

7 

—LJVST 

146  9 _ 

21,3405 
21 , 3 40  6- 

0 0006 
3 1342 

1 

1 

FUNCT2 

EXTEND 
- OCA 

0-ME3  A.K 

0116 

REF 

5 

LAST 

1469 

21 , 3407 

5 3 ' 750 

0 

DXCH 

FUNCTION 

OEL*OMEGA*K 

0117 

21,3410 

0 0006 

1 

EXTEND 

011-8- 

--OFF 

-4 

-LAST  146  8 

21,3.411 

3 1740 

0 

DC  A 

A2CNTPAI 

0119 

REF 

6 

LAST 

1469 

21,3412 

21 ' 750 

0 

DAS 

FUNCTION 

DEL  IOMEGA*  K +■  ALPHAI21/2 

0120 

REF 

5 

LAST 

1469 

21, 3413 

3 1 ' 7 37 

0 

FUNCT3 

CAE 

A2CNTRAL 

CALCULATE  ( 2 / 3 1 * AL PH A ( 2 1 / 2 

= ALPHAI21/3 

— 0121 

21,3414 

0-00.06 

1 

EXTENT 

0122 

REF 

1 

21, 3415 

7 3446 

0 

MP 

.66667 

0123 

REF 

6 

LAST 

1469 

21,3416 

5 3 ' 740 

1 

DXCH 

A2CNTRAL 

04,24^- 

-R.E-F- 

-2-9-2. 

L_ASX_ 

14-6  6 

. 21 ,3417 

_56  001 

Q 

XCH 

± 

0125 

21, 3420 

0 0006 

1 

EXTEND 

0126 

REF 

2 

LAST 

1469 

21,3421 

7 3446 

0 

MP 

• 666  67 

0122 — 

-RAF 

- 1— 

LAST 

146  9 

21,3  422 

27*740 

1 

ADS 

A2CNTPAL  +1 

0128 

REF 

293 

LAST 

1469 

21,3423 

54  001 

1 

TS 

L 

0129 

21,3424 

1 3426 

0 

TCF 

+2 

pi  30 

-REF 

8 

LAST 

14-6  9 

2 1 , 3 42  5 

27*737 

1 

ADS 

A2C  NTRAI 

0131 

REF 

8 

LAST 

1469 

21, 3426 

53' 742 

0 

DXCH 

OMEG A.K 

OEL*OMEGA*K  + ALPHAI21/3  = 

G 

0132 

RFF 

9 

LAST 

1469 

21, 3427 

21 '740 

1 

DAS 

A2CNTRAL 

0133 

REF- 

LQ— 

-LAST 

1469  - 

21.3430 

-3.1 '-7.37 

0 

CAE 

A 2 C NTRAI 

G* ALPHA  IN  D.P. 

0134 

21,3431 

0 0006 

1 

EXTEND 

0135 

RFF 

3 

LAST 

146  8 

21, 3432 

7 1744 

0 

MP 

ACENTRAL 

0036 

RFF 

11  . 

LAS  T 

146  9 

21*3  433 

53' 740 

1 

DXCH 

A2CNTRAL 

0137 

RFF 

294 

LAST 

1469 

21,3434 

56  001 

0 

XCH 

L 

0138 

21 , 3435 

0 0006 

1 

EXTEND 

- - 0 1 39_  _ 

R£F 

4 

LAST 

146  9 

21,  3436 

7 1744 

0 

MP 

ACENTRAL 

0140 

REF 

12 

LAST 

1469 

21, 3437 

2 7 ' 740 

1 

ADS 

A2CNTPAL  + 1 

0141 

REF 

295 

LAST 

1469 

21,3440 

54  001 

1 

TS 

L 
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0142 

21,3441 

1 3443 

0 

TCF 

+2 

0143 

REF 

13 

LAST 

146  9 

21, 3442 

27*737 

1 

AOS 

A2CNTRAL 

0144 

REF 

14 

LAST 

1470 

21,3443 

53' 740 

1 

DXCH 

A2CNTPAL 

FIRST  AND 

THIRD  TERMS 

0145 

REF 

4 

LAST 

146  8 

21, 3444 

2 1 ' 7 3 6 

0 

DAS 

K2THETA 

SUMMED  IN 

D.P. 

0146 

REF 

1 

21,3445 

1 3561 

1 

TCF 

R STPFGTS 

01-44 21+3446 25253  1 +66664 OEC .666  67 


0148 

0 149 

RFF 

5 

L AST 

1423 

16, 3720 
C 6 , 1 5-QQ 

BANK  16 

F8ANK=  NFGUQ  

0150 

0151 

REF 

4 

LAST 

1465 

16,2000 

16,3720 

SETLOC  DAPS1 
BANK 

P 0 1 52 

THE  WRCHN12  SUBROUTINE  SETS  1 

BITS  9,10 

9 

11,12  OF  CHANNEL  12  ON  THE  BASIS  OF  THE  CONTENTS  OF  NFGUQ, NEGUR  WHICH  ARE 

R 01  54 

THE  NEGATIVES 

OF  THE  DESIRED 

ACCELERATION  CHANGES.  ACDT+C12  SETS  QIRIACCDOT  TO  REFLECT  THF  NEW  DRIVES. 

R0156 

WARNING: 

ACDT+C12  AND  WRCHN12  MUST  8E 

CALLED  WITH  INTERRUPT  INHIBITED. 

_ ai  S 7 

16,  3 720 

07400 

1 

BGIM  nCTAl  07400 

0158 

REF 

8 

LAST 

1294 

0066 

CHNL12  EQUALS  ITEMP6 

0159 

REF 

6 

LAST 

1470 

16, 3721 

4 1500 

1 

ACDT+Cl 2 CS  NEGUQ 

01-6-0 

16-,-3  722- 

_ _ .0.  00-06 

1- 

EXTEND—  GIMBAL  DRIVE  REQUESTS. 

0161 

REF 

4 

LAST 

147 

16,3723 

7 1507 

0 

MP  ACCDOTQ 

0162 

REF 

4 

LAST 

14  2 3 

16, 3724 

2 3 ' 5 10 

1 

LXCH  QACCDOT 

0163 

R EF 

3 

__LAST 

142  3 

16, 3 725 

4 15  02. 

-0 

CS  NFGIJR 

0164 

16,3726 

0 0006 

1 

EXT  END 

0165 

REF 

i 

16, 3727 

7 1511 

1 

MP  ACCOOTR 

-CLL66 R-E-F 4 LAST  142  3 1-6 , 3 730 23' 512  0 LXCJH R AXiDDX 


0167 

REF 

7 

LAST 

L4  7 0 

16, 3731 

11' 500 

1 

CCS 

NEGUQ 

01-68 

REF 

62 

-LAST 

146  5 

16,3032 

3 4742 

1 

CAF 

BIT10 

0169 

16,3733 

1 3735 

1 

TCF 

+ 2 

0170 

REF 

40 

LAST 

1468 

16,3734 

3 4743 

0 

CAF 

B I T9 

01.71 

R EF  _ 

1 

16.3735 

54  066 

0 

TS 

CHNL 12 

0172 

REF 

4 

LAST 

1470 

16,3736 

1 1*  502 

0 

CCS 

NEGUR 

0173 

-REF 

58  - 

L AS  I 

046  8 

16.+3-73  7 

3 4740 

0 

CAF 

B I T 1 2 

0174 

16, 3740 

1 3742 

1 

TCF 

+ 2 

0175 

REF 

40 

LAST 

1463 

16, 3741 

3 4741 

1 

CAF 

B I T 1 1 

00-76 

-R.EF 

2 

—LAST 

0470- . 

164.3  742 

26  066 

0 

AOS 

CHNL12 

( STORED  RESULT  NOT  USED  AT  PRESENT) 

0177 

REF 

1 

16,3743 

4 3720 

0 

CS 

BGIM 

0-17-8 — 

1 6, 3744 

0 0006 

1 

EXTENO 

0179 

REF 

71 

LAST 

1423 

16, 3745 

02  012 

0 

RAND 

C HAN  12 

0180 

REF 

3 

LAST 

1470 

16, 3746 

6 0066 

1 

AD 

CHNL  12 

0181 

16.1  3 747 

0 0006 

1 

EXTFND 

0182 

REF 

72 

LAST 

1470 

16,3750 

01  012 

0 

WRITE 

CHAN  12 

R0183 
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0184 

0185 
m Rf, 

REF 

REF 

-JLEF 

REF 

2 

52 

— 53— 
422 

LAST  1422 
LAST  1442 
LAS  I 14  7 1 

16.3751 

16. 3752 
L6,  3 753 

4 4747 
7 12  73 
55' 273 

0 

1 

1 

cs 

MASK 

TS 

CALLGMBL 
RCS FLAGS 
R CS  F LACS 

TURN  OFF  REQUEST  FOR  AC0T+C12  EXECUTION. 

0187 

LAST  1466 

16, 3754 

0 0002 

0 

TC 

Q 

RETURN  TO  CALLER. 

0188 

0169 

0190 

REF 

REF 

3 

2 

LAST  1468 
LAST  1467 

21,3447 
E6, 1446 
21,2000 

BANK 
EBANK= 
_ SF  TLJ3C 

2 1 

ODIFF 
3 APS  4 

0191 

21,3447 

BANK 
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L TRIM  GIMBAL  CONTROL  SYSTEM 

p 0 1 92  SUBROUTINE  TIMEGMBL:  MOD  0.  OCTOBER  1967,  CRAIG  WORK 


USER ' S PAGE  NO. 


E?  S4 


RO 19  3- 
R0195 
R 0 1 97 
-R0L99 
R0201 
R0203 
R02Q5 


TIMEGMBL  COMPUTE  S THE- DRI-VF  TIME-  NEEDED  FOR  THE  TRIM  GIMBAL  TEL  PELS  I T- LON  HEME — DE-SCENT  FNGTNE  NOZZIF  SO  AS  TO  NOLI 
THE  OFFSET  ANGULAR  ACCELERATION  ABOUT  THE  0 (OR  R)  AXIS.  INSTFAD  OF  USING  AOSQ(P),  TIMEGMBL  USES  .4*A0SQ(P), 
SCALEC  AT  PI/B.  FOR  EACH  AXIS,  THE  DRIVE  TIME  IS  COMPUTED  AS  AB S ( AL P HA / ACCOOT ) . A ZERO 

ALPHA  OP  ACC  DOT  OR  A ZERO  C.linXTF_N]Ljr_UP.N-S__nEF,  THE  GIMBAI  DRIVE  IMMEDIATELY.  OTHFRWISE.  THE  GIMBAL  IS  TURNED  ON 
DRIVING  IN  THE  CORRECT  DIRECTION.  THE  Q ( R ) G I MT I MR  IS  SET  TO  TERMINATE  THE  DRIVE  AND  Q(R)ACCOOT 
IS  STORED  10  REFLECT  THE  NEW  ACCELERATION  DERIVATIVE.  NEGUO(R)  WILL  CONTAIN  +l,  + 0,-l  FOR  A Q ( R ) ACCDO T VALUE 
WHICH  TS  NFGAT  TVF  , 7FJLI1, — QB — PUS  IT  IVE  . . 


R 0 2 0 6 


R02  08 
R0210 


INPUTS:  ACSQ , AO  S R , SCALFD  AT  PI/2,  ANC  ACCDOTQ,  ACCDOTR  AT  PI/217). 

OUTPUTS: 


P I / 2 ( 7 1 . 


NFW  GIMBAL  DRIVE  BITS  IN  CHANNEL  1 2 , NEGUQ,  N EGU R , 0 ACCDOT  AND  R ACC  DOT , THE  LAST  SCALED  AT  PI/2I7). 
Q ( R )G I MT I MR  WILL  BE  SET  TO  TIME  AND  TERMINATE  GIMBAL  DRIVE(S) 


R0211  DEBRIS:  A ,L , Q , I TEMPS  2,3,6,  RUPTREG2  AND  ACDT+C12  DEBRIS. 

R0212  EXITS:  VIA  TC  3 . 

R0213  ALARMS,  ABORTS , : NONE 


R 02 1 4 SUBROUTINES:  ACDT+C12,  I 8NKCALL 

-RQ2-E6  - -WAP-NI-NG4- THIS  SIJ  8R0UT  IN  E WR I-TF  S INTO  CHANNEL  12  AND  USES  THE  I T EM  P S . THEBLRFQRE  -I  T MAY  ONLY  BE  CALLED  WITH 

R0217  INTERRUPT  INHIBITED. 


R-Q2-E8-  EP  A SABLE  STT3TLA-GE  C0NP4  GUR-AT-I  ON  I N EEO  E D BY  T-HE-  INDEXING  METHODS-):- 


A0219 

AO 2 20 

NEGUO 
( SPWORD ) 

ERASE 

EQUALS 

+2 

NEGUQ  +1 

NEGATIVE  OF  O-AXIS  GIMBAL  DRIVE 

ANY  S.P.  ERASABLE  NUMBER,  NOW  THRSTCMD 

A0221 

NEGUR 

EQUALS 

NEGUQ  +2 

NEGATIVE  OF  R-AXIS  GIMBAL  DRIVE 

A022-2 

ACCDOTQ 

ERASE 

+2 

fi-JERK-  TER  M SC  ALFD  AT  PI/-2L7)  AAP/SFC  I 3 ) 

A0223 

A0224 

AD225 

( SPWORD) 
ACCDOTR 

EQUALS 
EQUAL  S 

ACCDOTQ  +1 
ACCDOTQ  *2 

ANY  S.P.  ERASABLE  NUMBER  NOW  OACCDOT 
R-JERK  TERM  SCALED  AT  PI/2I7)  RAD/SEC(3) 
ACCDOTQ, ACCDOTR  ARE  MAGNITUDES. 

A0226 

A0227 

APS  Q 
AOS  R 

ERASE 

EQUALS 

+ 4 

A OS  Q +2 

Q-AXIS  ACC.,D.P.  AT  PI/2  P / SEC  I 7 1 
R-AXIS  ACCELERATION  SCALED  AT  PI/2  R/S2 

0228 

REF  9 

LAST 

1470 

0066 

QRNDXER 

EQUALS  ITEMP6 

0229 

21,3447 

23146  0 

OCT  23146 

OCTAL 

23146 

DECIMAL  .6 

0-230 — 

—REE 34 

LAST 

1421 

0 Qj63 

NZACCDOT 

FQIJALS  ITEMP3 

0231 

REF  175 

LAST 

146  2 

21,3450 

3 4753  l 

TIMEGMBL 

CAE 

ONE 

INITIALIZE  ALLOWGTS. 

Ql2-32  _ 

REF  3 

LAST 

1443 

55*501  0 

TS 

ALLOWGTS 

0233 

REF  107 

LAST 

146  7 

21, 3452 

3 4752  0 

CAF 

TWO 

SET  UP  LOOP  FOR  R AXIS. 

- 02  34 

_ BEE  423 

LAST 

147  1 

21, 3453 

22  002  0 

LXCH 

Q 

SAVE  RETURN  ADDRESS. 

0235 

REF  24 

LAST 

1404 

21,3454 

22  071  1 

LXCH 

PUPTREG2 
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0236 

0237 
02  3-8-- 

REF 

REF 

301 

1 

LAST 

146  7 

21. 3455 

21.3456 
-21 , 3457 

1 3457 
3 4755 

0 

1 

a 

TIMOGMBL 

TCF  +2 

CAF  ZERO 

TS  - QRNOXF.P  _ 

NOW  DO  THE  O-AXIS 

0239 

REF 

2 

LAST 

147  3 

21, 3460 

50  066 

l 

INDEX  QRNDXER 

0240 

REF 

5 

LAST 

1470 

21,3461 

3 1507 

l 

CA  ACCDOTQ 

A CC DOT  IS  PRESUMED  TO  BE  AT  PI/217). 

024-1 

21,3-462 

0 0006- 

_j_ 

EXTEND-  _ - 

0242 

REF 

1 

21, 3463 

6 3533 

l 

BZMF  TGOFFNOW 

IS  ACCDOT  LESS  THAN  OR  EQUAL  TO  0? 

0243 

REF 

1 

21,3464 

54  063 

0 

TS  NZACCDOT 

NO.  STORE  NON-ZERO,  POSITIVE  ACCDOT. 

0244 

REF 

3 

LAST 

1473 

21, 3465 

50  066 

l 

ALP  H ATP  Y 

INDEX  QRNDXER 

0245 

REF 

22 

LAST 

1468 

21, 3466 

4 1537 

0 

CS  ADSO 

024-6 

21,3  467 

0.  0006 

-L 

EXTEND  . 

0247 

REF 

2 

LAST 

147  3 

21, 3470 

1 3533 

0 

BZF  TGOFFNOW 

IS  ALPHA  ZERO? 

- 0 2AP, 

— R-F-F 

_4.  74 

1 AS-T 

147  7 

7 1 r 347 1 

5 4 0 02 

1 

IS  _ -0 

SAVE  A COPY  -OF  -ADS. 

0249 

21, 3472 

0 0006 

1 

EXTEND 

NO.  RESCALE  FOR  TIMEGMBL  USE. 

0250 

REF 

i 

21,3473 

7 3447 

1 

MP  DC T 2 3146 

OCTAL  23146  IS  DECIMAL  .6 

025-1  - 

RiE 

4 2 5— 

-LASJ 

147-3 

-21,3474- 

6 0002 

0 

AD  Q 

- 1 . 6*A0S  AT  PI/2  = - . 4 4 AO  S AT  PI/R. 

0252 

REF 

2 Sfc 

LAST 

146  9 

21, 3475 

54  001 

1 

TS  L 

WAS  THERE  OVERFLOW? 

0253 

REF 

1 

21,3476 

1 3503 

0 

TCF  SETNFGU 

NO.  COMPUTE  DRIVE  TIME. 

0254 

REF 

5 27 

LAST 

1467 

21,3477 

4 0000 

0 

CS  A 

RECOVER  -SGN(AOS)  IN  THE  A REGISTER. 

0255 

REF 

4 

LAST 

1473 

21, 3500 

50  066 

l 

INDEX  QRNDXER 

YES.  START  DRIVE  WITHOUT  WAITLIST. 

-02-56  - 

REF- 

8 

— LAS3 

14  7.Q 

21 , 3501 

57' 500 

0 

XCH  NE3UQ 

0257 

REF 

i 

21, 3502 

1 3537 

1 

TCF  NOTALLOW 

KNOCK  DOWN  THE  ALLOWGTS  FLAG. 

0258 

21 -t  3^50  3 

0 0006 

1 

SETNEGU 

EXTFMD - 

0259 

REF 

i 

21,3504 

6 3511 

1 

BZMF  POSALPH 

02  6-D 

21 » 3505 

4 0000 

0 

CO-M 

0261 

REF 

29 

LAST 

142  1 

21 , 3506 

54  062 

1 

TS  ITEMP2 

STORE  -ABS(.4*ADS)  SCALED  AT  PI/8. 

0262 

REF 

69 

LAST 

1469 

21,3507 

4 4753 

0 

CS  B I T 1 

0263- - 

—REF 

2 - 

LAS-T 

147  3 

21, 3510 

1 3513 

1 

TCF  POSALPH  +2 

0264 

REF 

30 

LAST 

1473 

21,3511 

54  062 

1 

POSALPH 

TS  ITEMP2 

STORE  — ABS ( . 4*A0  S ) SCALED  AT  PI/8. 

0265 

REF 

70 

LAST 

1473 

21,3512 

3 4753 

1 

CA  BIT1 

0266 — 

-REF 

5— 

LAST 

1473- 

21,3513- 

50  0 66 

1 

+ 2 

INDEX  QRNDXFP 

SGN(AOS)  INTO  NEGU 

0267 

REF 

9 

LAST 

14  7 3 

21,3514 

55' 500 

1 

TS  NE3UQ 

STORE  SGN(APLHA)  AS  NEGU 

0268 — 

-R-EF- 

2— 

LAS-T 

14  7 3 

21,-3  515 

3 00  63 

1 

CA  NZACCDOT 

0269 

21,3516 

0 0006 

1 

EXTEND 

0270 

REF 

57 

LAST 

1470 

21 , 3517 

7 4740 

1 

MP  BIT12 

24ACCD0T,  SCALED  AT  PI/8. 

0221 

-R-EF- 

3 1— 

-LAST 

14  7 3 - 

-21,3  530- 

6—00  63 

0 

AD  ITEMP2 

-ABS(ALPHA)  +■  7*  ACCDOT , AT  PI/8. 

0272 

21, 3521 

0 0006 

1 

EXTEND 

0273 

REF 

2 

LAST 

1473 

21,3522 

6 3537 

0 

BZMF  NOTALLOW 

IS  DRIVE  TIME  MORE  THAN  TWO  SECONDS? 

0224 — 

-REF- 

—32— 

LAST 

142  3 - 

21,3523 

4 .0062 

1 

CS  ITFMP2 

NO.  COMPUTE  DRIVE  TIME. 

0275 

21, 3524 

0 00  06 

1 

EXTEND 

ABS(ALPHA)  AT  PI/8. 

0276 

REF 

1 

21, 3525 

7 3560 

0 

MP  DC  T 0 0240 

DECIMAL  10/1024 

0222 

21,-3  536 

. 0 -00  06- 

1 

EXTEND 

QUOTIENT  IS  DPIVE  TIME  AT  WAITLIST. 

02  7 8 

REF 

3 

LAST 

1473 

21, 3527 

10  0 63 

0 

DV  NZACCDOT 

ABSf ALPHA) /ACCDOT  AT  2(141/100 
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0279 

0280 

REF 

3 

LAST 

1473 

21. 3530 

21.3531 

0 0006 
1 3533 

1 

0 

EXTEND 

BZF 

TGOFFNOW 

0281 

REF 

1 

21,3532 

1 3545 

1 

TCF 

DP  I V EON 

R FF 

TO  7 

1 AST 

] 4 7 1 

21 ♦ 3 53  3 

3 47  55 

1 

TGOFFNOW  CAF 

7 f R n 

0283 

REF 

6 

LAST 

147  3 

21,3534 

50  066 

1 

INDEX 

ORNDXER 

0284 

REF 

10 

LAST 

14  7 3 

21, 3535 

55' 5 00 

1 

TS 

NEGUO 

0285 

REF 

R-F-F 

1 

| AST 

R 79 

21,3536 
71 t 3 5 37  - 

1 3547 
3 6010 

0 

0 

NOTALLOW 

TCF 

CAF 

DONEYET 
OCT  3-1 

0287 

REF 

7 

LAST 

1474 

21, 3540 

50  066 

1 

INDEX 

ORNDXER 

0288 

REF 

8 

LAST 

1467 

21,3541 

5 5 ' 6 3 0 

1 

TS 

QGIMTIMR 

X)2  R9 

REF  TOR 

last 

14-7  4 

_ ?1, 3542 

3 47  55 

1 

CAF_ 

ZERO.  - 

0290 

REF 

4 

LAST 

1472 

21, 3543 

5 5 ' 5 0 1 

0 

TS 

ALLOWGTS 

A0291 

02  92  - 

REF 

2- 

LAST  14  7 4 

21,3  544^ 

1 3547 

0 

TCF.. 

DONEYET 

0293 

REF 

8 

LAST 

1474 

21, 3545 

50  066 

1 

DR  I VEON 

INDEX 

QRNDXER 

—02  94 

REE 

__  9 

LAST 

.14  7 4 

21,3  546 

55*630 

1 

TS 

QGIMTIMR 

0295 

REF 

9 

LAST 

1474 

21, 3547 

10  066 

0 

DONEYET 

CCS 

ORNDXER 

- 0206— 

REF 

L 

-J>1 ,3  550  . 

1 3456 

1 _ 

TCF 

T IMQGMBL 

0297 

REF 

16 

LAST 

1356 

21,3551 

52  073 

1 

DXCH 

RUPTRFG3 

02  98 (LET 33 L ASX  14  73 21, 3552 52  063  a DXCH I T EMP2 


0299 

REF 

61 

LAST 

1444 

21, 3553 

0 46  74 

0 

TC 

IBNKCALL 

- 0300  - 

—REF 

2- 

. last 

14-2-2 

21 , 3 544 

35721 

_0 

r.ADR 

...ACDT-+C  12- 

0301 

REF 

34 

LAST 

147  4 

21,3555 

52  063 

0 

DXCH 

ITEM  P? 

0-302 

REF  - 

—17 

LAST-  - 

1474 

71 , 3 556 

52  0 73 

_] 

DXCH 

RUPT  R.EG3 

0303 

REF 

25 

LAST 

1472 

21,3557 

0 0071 

1 

TC 

RUPTRFG2 

0304 


21,3560 


00240  1 OCT 00240  OCTAL  00240 
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DRIVE  TIME  MUST  BE  GREATER  THAN  ZERO. 


TURN  OFF  GTMBAI NOW.. 


DR  I V F T IMF  IS  MORF  THAN  2 SECONDS,  SO 
DO  NOT  PERMIT  FURTHER  GTS  ATTITUDE-RATE 
CONTROL  UNTIL  AOSTASK  APPROVES. 

NO  WAITLIST  CALL  IS  MADE. 


C HOOSE  Q OR  R AXIS. 


PROTECT  I8NKCALL  ERASABLES.  ACDT+C12 
LEAVES  I TEMPS2, 3 ALONE. 

TURN  OF  CHANNEL  BITS,  SET  QIRIACCDOTS. 
RESTORE  ERASABLES  FOR  IBNKCALL. 

RETURN  TO  CALLER. 
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-1 9:02-  Nnv^- 2-5_,_L9-68 LMOAP 


012 PAGE  14.75 


GAP-: ASSEMrBF-E— REV  IS  ION  069  OF  AGC-PRO&RAM  LUMINARY  BY— NASA  2021112-011 — 

L TRIM  GIMBAL  CONTROL  SYSTEM 


USER'S  PAGE  NO.  9 E6  S4 


P0305  THE  FOLLOWING  SECTION  IS  A CONTINUATION  OF  THE  TRIM  GIMBAL  CONTROL  FROM  THE  LAST  GTS  ENTRY.  THE  QUANTITY  NEGUSUM 
R0307  IS  COMPUTED  FOR  EACH  AXIS  (Q,R),  . 707*DEL*FUNCT ION ( 3/2 ) + K2THFTA  = NEGUSUM.  NEW  DRIVES  ARE  ENTERED  TO  CH  12. 


0309 

REF 

7 

LAST  1469 

21, 3561 

11 

'747 

0 

RSTOFGTS 

CCS 

FUNCTION 

0310 

REF 

1 

21,3  562 

1 

3603 

0 

TCF 

GOOD ARG 

FUNCTION  IS  POSITIVE.  GET  3/2  POWER. 

21  y 3563 

L 

3545 

0 

TCF 

+ 2 

HIGH  ORDER  WORD  IS  ZERO.  TRY  THE  LOWER. 

0312 

REF 

1 

21,3564 

i 

3571 

0 

TCF 

ZEROOT 

NEGATIVE.  USE  ZERO  FOR  3/2  POWER. 

7 1 t 3 565 

4 

1 7 50 

o 

cs 

FUNC  T ION  + 1 

IF  ARG  IS  1 FSS  THAN  21-1B1,  THFN  THE  3/2  - 

0314 

REF 

41 

LAST  1470 

2li  3566 

6 

47  4 1 

i 

AD 

BITl  1 

POWER  IS  LESS  THAN  21-27).  USE  ZERO. 

0315 

21,3567 

0 

0006 

l 

EXTEND 

0316 

RFF 

1 

21.3570 

6 

3574  _ 

l 

BZMF 

ZEROHIGH 

BRANCH  IF  ARG  NOT  LESS  THAN  21-18). 

0317 

21,3571 

0 

0006 

l 

ZERtlOT 

EXTEND 

-0318 

RiX 

304 

LAST  1474 

71 , 3 572 

3 

4756 

_1 

DC  A 

ZERO  _ 

0319 

REF 

i 

21, 3573 

1 

3714 

1 

TCF 

NEGUSUM 

-012-0 

-RFF 

3 

4 AST  106  5 

PI , 3574 

3 

4317 

0 

ZER  O HIGH 

XA 

FOUR  TF FN 

ARG  1 FSS  THAN  21-14)  MFANS  3/7  POWFR 

A0321 

WILL  BE  LESS  THAN  21-21). 

0322 

REF 

i 

21,3575 

55 

.'737 

1 

TS 

SHF  T FLAG 

0323 

REF 

108 

LAST 

1472 

21, 3576 

3 4752 

0 

CA 

TWO 

0324 

REF 

1 

21,3577 

55' 740 

1 

TS 

I NINDEX 

INITIALIZE  THE  SHIFT  LOOP. 

AO  32  5 

COLLECT  THF  14  MOST  SIGNIFICANT  BITS  OF 

0326 

REF 

9 

LAST 

1475 

21,3600 

5 7 ' 7 50 

1 

XCH 

FUNCTION  +1 

THE  28  INTO  THE  HIGH  ORDER  WORD. 

03  27  - 

RFF 

IX 

-LAST- 

1475 

-21,3601 

5 7' 747 

1 

XCH 

FUNCTION 

0328 

REF 

i 

21 , 3602 

1 3616 

1 

TCF 

SCALLOOP 

0329 

REF 

i 

21,3603 

3 5742 

0 

GOODARG 

CA 

TWELVE 

0330 

REF 

2- 

L AS  T 

147  5— 

21 ,3604 

55' 740 

1 

TS 

I N LNJD.E  X 

INITIALIZE  THE  SHIFT  LOOP. 

0331 

REF 

305 

LAST 

1475 

21, 3605 

3 4755 

1 

CA 

ZERO 

THERE  ARE  SIGNIFICANT  BITS  IN  THF  HIGH 

0332 

REF 

2 

LAST 

1475 

21,3606 

55*737 

1 

TS 

SHFT FLAG 

ORDER  WORD,  SO  SET  SHFTFLAG  TO  ZERO. 

0333 

REF 

2 

LAST 

1475 

21, 3607 

1 3616 

1 

TCF 

SCALLOOP 

Q-334 — 

R-EF 

1 1 

L AST 

14  7 5 

Ply  36  1 0 

3 1747 

1 

,Sf  Ai  STRT 

CA 

XUNC  TION 

0335 

RFF 

1 

21, 3611 

1 3633 

0 

TCF 

SCALDONE 

0336 — 

-REF 

4,0 

LAST 

146  0 

21, 3612 

3 7745 

o 

MUL  RUSH 

CA 

ME  3 2 

IF  ARG  JS  WOT  LES-S  IHAW  174,  INDEX  IS 

0337 

REF 

3 

LAST 

1475 

21, 3613 

27*740 

1 

ADS 

ININDEX 

ZERO,  INDICATING  NO  SHIFT  NEEDED. 

0338 

21, 3614 

0 0006 

1 

EXTEND 

BRANCH  IF  ARG  IS  NOT  LESS  THAN  1/4. 

0339 

R£F  . 

1 

21 , 3 615 

6 3610 

0 

BZMF 

SCAL  STPT 

OTHERWISE  COMPARE  ARG  WITH  A REFERENCE 

A0340 

WHICH  IS  4 TIMES  LARGER  THAN  THF  LAST. 

0341 

REF 

12 

LAST 

14  7 5 

21, 3616 

4 1747 

0 

SCALLOOP 

cs 

FUNCTION 

03-42 

REE- 

4_ 

LAST 

14  7 5 

21,3617 

51' 740 

0 

INDEX 

I NI  N DEX 

0343 

REF 

56 

LAST 

1450 

21,3620 

6 4735 

1 

AD 

B I T 1 5 

REFERENCE  MAGNITUDE  LESS  OR  EQUAL  TO  1/4 

0344 

21,3621 

0 0006 

1 

EXTEND 

0345 

- RE-E- 

1 

21, 3622 

6 3612 

1 

BZMF 

MULE  USH 

IF  ARG  IS  NOT  LESS  THAN  REFERENCE,  CO 

A0346  AROUND  THE  MULBERRY  BUSH  ONCE  MORE. 

0347 


REF 


5 LAST  1475 


21,3623  5 1 ' 7 40  0 


INDEX  ININDEX 
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0348 

REF  57 

LAST 

1475 

21, 3624 

3 4735 

1 

CA 

BIT1  5 

THIS  IS  THE  SCALE  MAGNITUDE 

0349 

REF  426 

LAST 

14  7 3 

21, 3625 

56  002 

0 

XCH 

Q 

2 ** ( — I N I NO  EX  ) IS  THE  SHIFT  DIVISOR. 

mso 

21,3626 

0—00  0.6 

_ 1 

EXTEND 

R F SC  ALE  ARGUMENT. 

0351 

REF  13 

LAST 

L47  5 

21, 3627 

3 17  50 

1 

DC  A 

FUNC  TinN 

0352 

21,3630 

0 0006 

1 

EXTEND 

R-f  E 4^7 

1 A9T 

147  6- 

21 » 3-63  1 

nv 

Q—  - - 

0354 

RFF  14 

LAST 

1476 

21, 3632 

55' 747 

0 

TS 

FUNCTION 

ININDEX  AND  SHFTFLAG  PRESERVE  INFO  FOR 

A0355 

RESCALING  AFTER  ROOT  PROCESS. 

21 , 3633 

0 0006 

1 

SCALDONE 

EXTEND 

AFTER  3/2  POWER  IS  TAKEN,  SCALE  FACTOR 

0357 

REF  62 

LAST 

1456 

21, 3634 

7 4737 

1 

MP 

BIT1  3 

OF  SQRTU/2)  WILL  BE  NEEDED,  SO  FACTOR 

0358 

REF  1 

21, 3635 

5 5 ' 743 

1 

TS 

HA1F ARG 

OF  1/2  IS  INCLODEO  NOW,  BEFORE  SORT. 

0359 

REF  1 

21, 3636 

3 3761 

1 

CA 

STARTER 

INITIAL  GUESS  FOR  SORT  ALGORITHM. 

0360 

REF  1 

21, 3637 

0 3763 

0 

TC 

ROOTCYCL 

03^>1 

REF  2 

-LAS  T 

1476 

21 , 3840 

0 3763 

0 

TC 

ROOT  CYCL 

0362 

REF  3 

LAST 

14  7 6 

21, 3641 

0 3763 

0 

TC 

ROOTCYCL 

034>3 

21 , 3642 

- 0 0006 

1 

EXTEND 

S QRX ( L/_2 ). * SlQATJ-ARGJL  LN  A. 

0364 

REF  15 

LAST 

1476 

21,3643 

7 1747 

0 

MP 

FUNCTION 

SORT ( 1/2)*ARG*SQRT (ARG)  IN  A , L . 

0365 

REF  16 

LAST 

1476 

21, 3644 

53' 750 

0 

DXCH 

FUNCTION 

0366 

RFF  3 

LAST 

1475 

21, 3645 

3 1737 

0 

DOSHIFT 

CA 

SHF  T FLAG 

HOW  MANY  SHIFT  BITS  ARE  THERE? 

0367 

REF  6 

LAST 

1475 

21, 3646 

6 1740 

0 

AD 

ININDEX 

2*4 1— ININDEX)  WAS  SHIFT  DIVISOR. 

0^6S 

REF  28 

LAST 

-146  7 

2 If  3 64  7 

.5  4 -021- 

-0 

TS 

SR 

0369 

REF  29 

LAST 

147  6 

21,3650 

6 0021 

1 

AD 

SR 

THIS  MANY  SHIFTS  ARE  REQUIRED. 

0370 

REF  428 

LAST 

1476 

21, 3651 

54  002 

1 

SAVESHFT 

TS 

a 

0 BOUNDS  ARE  ZERO  AND  24  (DECIMAL). 

a37i — 

21, 3652 

0 0006. 

1 

EXTEND 

0372 

REF  1 

21,3653 

6 3701 

1 

BZMF 

SUMNEGU 

BRANCH  IF  SHIFTING  IS  UNNECESSARY. 

0373 

RFF  4 

last 

14  7 5- 

21,  3654  - 

4 4317 

1 

cs 

F nilR  TFFN 

0374 

REF  429 

LAST 

1476 

21, 3655 

6 0002 

0 

AD 

Q 

0375 

21, 3656 

0 0006 

1 

EXTEND 

Q = 0 ( MOD  3),  SO  A REG  IS  NON-ZERO. 

0376 

R EE  . 1 

21 ,3657 

6 3664 

0 

BZMF 

MINI SHFT 

BRANCH  IF  SMALL  SHIFT  SUFFICES. 

0377 

REF  430 

LAST 

1476 

21, 3660 

54  002 

l 

MAX  ISHFT 

TS 

0 

14  BIT  SHIFT  RIGHT  NOW. 

0378 

8EF  306- 

-LAST 

_L4  7 5 

21 ,3661 

3 4755 

1 

CA 

7 FR  0 

0379 

REF  17 

LAST 

1476 

21,3662 

5 7 ' 7 4 7 

1 

XCH 

FUNC  TION 

0380 

REF  18 

LAST 

14  7 6 

21,3663 

55' 750 

0 

TS 

FUNCTION 

+ 1 

0381 

REF  431 

LAST 

1476 

21, 3664 

50  002 

0 

MINISHFT 

INDEX 

Q 

C ( Q ) ARE  GREATER  THAN  ZERO. 

0382 

REF  58 

LAST 

1476 

21, 3665 

3 4735 

1 

CA 

9 I T 1 5 

03-83 

-RFF  432_ 

-LAST 

14  7 6 

_ZL,  3666 

54  002 

1_ 

TS 

0 

2 ** ( -Q ) WILL  BE  SHIFT  MULTIPLIER. 

0384 

21, 3667 

0 0006 

1 

EXTEND 

0385 

REF  19 

LAST 

1476 

21, 3670 

7 1750 

0 

MP 

FUNCTION 

+ 1 

0388 

-REF  297 

LAST 

-L473 

21,3671 

56  001 

0 

XCH 

L 

0387 

RFF  307 

LAST 

1476 

21, 3672 

3 4755 

1 

CA 

ZERO 

03  88 

REF  20 

LAST 

1476 

21 , 3673 

53' 750 

0 

DXCH 

FUNCTION 

LOWER  WORO  SHIFTED  NOW. 

0389 

21. 3674 

0 0006 

1 

EXTEND 

0390 

REF  2 

LAST 

1476 

21,3675 

6 3701 

1 

BZMF 

SUMNEGU 

BRANCH  IF  UPPER  WORD  WAS  ZERO. 

-GAP- 
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03  01 

21,3676 

0 0006 

1 

EXTEND 

SHIFT  UPPER  WORD. 

0392 

REF 

433 

LAST 

1476 

21, 3677 

7 0002 

1 

MP 

Q 

0393 

RFF 

21 

LAST 

147-3 

21 » 3 70.0 

212  750 

0 

DAS 

FUNCTION  .. 

NO  OVERFLOW  POSSIBLE. 

03  94 

REF 

3 

LAST 

1469 

21, 3701 

4 1745 

1 

SUMNEGU 

CS 

DEI 

INCLUDE  DEL  FACTOR  IN  PRODUCT  TERM. 

0393 

71  , 3 702 

0 00  06 

1 

EXTFNO 

0396 

REF 

1 

21,3703 

6 3707 

1 

BZMF 

SUMTERMS 

2 1 , 3 704 

0 00  06 

1 

EXTEND 

DEL  FACTOR  TS  MINUS  ONF. 

0398 

REF 

22 

LAST 

1477 

21,3705 

4 1750 

0 

DCS 

FUNCTION 

0399 

REF 

2 

LAST 

1475 

21,3706 

1 3713 

0 

TCF 

NEGUSUM  -1 

NOW  ADD  IN  THE  K2THETA  TERM. 

0400 

21 , 3707 

0 0006 

1 

SUMTERMS 

EXTEND 

0401 

REF 

3 

LAST 

1477 

21, 3710 

1 37  14 

1 

BZF 

NFGUSUM 

BRANCH  IF  DEL  IS  ZERO. 

0402 

2 1,3711 

0 0006 

1 

EXTEND 

DEL  FACTOR  IS  +1. 

0403 

REF 

23 

LAST 

1477 

21,3712 

3 17  50 

1 

DC  A 

FUNCTION 

0 4-0  4 

REF 

5 

L AS  J 

-7.470 

21,3713 

_21 ' 7 36 

0 

DAS 

K2THETA  ... 

NOW  ADD  IN  THE  K2THETA  TERM. 

0405 

REF 

6 

LAST 

1477 

21, 3714 

11' 735 

0 

NEGUSUM 

CCS 

K2THETA 

TEST  SIGN  OF  HIGH  ORDER  PART. 

0406 

REF 

1 

21, 3715 

1 3721 

1 

TCF 

NEGDRI VE 

0407 

-21,3  716 

1 3 720- 

-0- 

TCE-  . 

*?  - 

0408 

REF 

1 

21,  3717 

1 3723 

0 

TCF 

POSDR I VF 

_ 0409 

R-Ef 

7 

LAST 

147  7 

21  ♦ 3 720  - 

1 1-i  7 3 6 

-0 

COS 

K2THETA  +1 

SIGN  TEST  FOR  1 OW  ORDER  PART. 

0410 

REF 

71 

LAST 

1473 

21, 3721 

3 4753 

1 

NEGDR I V E 

CA 

BITl 

0411 

21 , 3722 

1 3724 

1 

TCF 

+2 

STOP  GIMBAL  DRIVE  FOR  A ZERO  NEGUSUM. 

0412- 

R-EE 

72 

last: 

14  7 7 

21 , 3 723 

4 4753 

0 

POSDR I V E 

CS 

BIT] 

0413 

REF 

298 

LAST 

1476 

21,3724 

54  001 

1 

TS 

L 

SAVE  FOR  DRIVE  REVERSAL  TEST. 

0414 

RFF 

5 

LAST 

1468 

21, 3725 

51' 746 

0 

INDEX 

OR  C N TR 

0 41-5 R-EF 1-1 L AS-T—  14  7-4 21,3726 5 7'5 00  0 XCH NEGUG 


0416 

21,3727 

0 0006 

1 

EXTEND 

041  7 

— R FF  -2-99 

-L  AST 

1477 

21, 3 730 

7 0001 

1 

MP 

L 

MULTIPLY  OLD  NEGU  AND  NEW  NEGIJ. 

0418 

RFF 

300 

LAST 

1477 

21, 3731 

10  001 

l 

CCS 

L 

0419 

REF 

1 

21, 3732 

1 3747 

1 

TCF 

LOUPE 

NON-ZERO  GIMBAL  DRIVF  BEING  CONTINUED. 

0420 

REF 

1 

21,3733 

1 3744 

1 

TCF 

ZEROLOUP 

NO  REVERSAL  PROBLEM  HERE. 

04-21 

REF 

J_ 

21 1 3 734 

1 3736 

1 

TCF 

R F VF  RSAI 

WON- 7 ERQ— GJRBAL  DRTVF  PFTNC  REVERSED. 

0422 

REF 

2 

LAST 

1477 

21, 3735 

1 3744 

1 

TCF 

ZEROLOUP 

NO  REVERSAL  PROBLEM  HERE. 

0423- 

REF 

6- 

CAST 

14  7 7 

21 , 3736 

5 1 *7  4 6 

0 

REVERSAL 

I NDFX 

QRCNTR 

A ZE  R.O-DRI V-E-  PAU9F  T9  NEEDED  HERE.  ZERO 

0424 

REF 

5 

LAST 

1470 

21, 3737 

5 5 ' 5 1 0 

0 

TS 

g ACC  DOT 

IS  IN  A REGISTER  FROM  CCS  ON  (-1). 

0425 

REF 

7 

LAST 

1477 

21, 3740 

51' 746 

0 

INDEX 

ORCNTR 

-0-42-6- 

RFF 

1— 

21,  3741  _ 

4 3760 

1 

CS 

G MB  L B 1 T A 

0427 

21, 3742 

0 0006 

1 

EXTEND 

0428 

RFF 

73 

LAST 

1470 

21,3743 

03  012 

1 

WAND 

CHAN  12 

0429 

REF 

54 

LAST 

147  1 

21, 3744 

4 12  73 

1 

ZFROLOUP 

CS 

RCSF  LAGS 

SET  UP  REQUEST  FOR  ACDT+C12  CALL. 

0430 

RFF 

3 

LAST 

147  1 

21, 3745 

7 4747 

0 

MASK 

CALL  GMBL 
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0431 

REF 

55 

LAST 

147  7 

21, 3746 

27 ' 2 73  1 

ADS 

RCSF  LAGS 

P€F 

1 MT 

447  7 

P I t 3 747 

1 1 » 746  1 

i nupF 

C.C.  5 

QRCN  TR 

HAVE  BOTH.  AXES  RFFN  PRnCFSSFD? 

0433 

REF 

1 

21, 3750 

1 3306  0 

TC  F 

GO  3 T R I MG 

NO.  DO  Q AXIS  NEXT. 

04^4 

RFf 

2 

1 AST 

146  7 

P 1 . 175  1 

3 44  76-  0 

CA 

SAV-E-SR- 

RESTORE  THF  SR - - - 

0435 

REF 

30 

LAST 

1476 

21,3752 

54  021  0 

TS 

SR 

04^6 

21,3  753 

0 0006  1 

GOCLOSF 

FXTFND 

TERMINATE  THE  JASK. 

0437 

REF 

1 

21, 3754 

3 3757  1 

DC  A 

CLOS  EADP 

0438 

21,3755 

52  006  0 

DTCB 

0439 

REF 

23 

LAST 

1473 

E 6 , 1 537 

EBANK= 

AOSO 

0440 

REF 

4 

LAST 

144  9 

21, 3756 

03173  1 

CLOSEADR 

2C  ADR 

CLOSEOUT 

TERMINATE  THE  JASK. 

0440 

-21, 3757 

36106  0 

R0441 

0442 

REF 

7 

LAST 

14  2 6 

5742 

TWELVE 

EQUALS 

OCT  1 4 

0443 

-21,3760 

014  0-0-  1 

GMBLBITA 

OCTAL 

01400 

INDEXED  WRT  GMBLBITB  DO  NOT  MOVF****** 

0444 

21,3761 

20761  0 

STARTER 

DEC 

.53033 

INITIAL  VALUE  FOR  SORT  ALGORITHM. 

0445 

21, 3762 

060  00  1 

GMBLBITB 

OCTAL 

06300 

INDEXED  WRT  GMBLBITA  DO  NOT  MOVE****** 

P0446 

R0447 

SUBROUTINE  ROOTCYCL: 

BY  CRAIG  WORK, 3 

APRIL  68 

R0448 

ROCTCYCL 

IS  A 

SUBROUTINE  WHICH  EXECUTES  ONE  NEWTON  SQUARE  ROOT  ALGORITHM  ITERATION.  THE  INITIAL  GUESS  AT  THE 

R-045-0-- 

— SQUARE  ROOT  IS 

- -P-R-E-SUME-D.  XO-B-E 

--LN-  XHF  A 

REGISTER-  - 

AND  -ONE 

-HALF  THF 

SQUARF  IS  TAKFN  FROM  HALFARG.  THE  NEW  APPROX  I- 

R0452 

MATICN  TO  THE 

SQUARE 

ROOT  IS 

RETURNED 

IN  THE  A REGISTER 

. DEBRIS: 

A, L, SR, SCRATCH.  ROOTCYCL  IS  CALLED  FROM 

R0454 

LOCAT  ION 

( LOC) 

BY  A 

TC  ROOTCYCL,  AND  RETURNS  (TC 

Q)  TO 

LOC  +1. 

R0455 

WARNING: 

IF  THE  INITIAL  GUESS  IS  NOT  GREATER  THAN  THE 

SQUARF,  DIVIDE  OR  ADD  OVERFLOW  IS  A REAL  POSSIBILITY. 

0433 — 

RE  F 

1 

21,  3 763 

5 5' 74  2-  0 

ROOTCYCL 

TS 

-SCRATCH 

S T □ RE X 

0458 

REF 

31 

LAST 

1478 

21, 3764 

54  021  0 

TS 

SP 

X/2  NOW  IN  SR 

0459 

REF 

2 

LAST 

1476 

21,3765 

3 1743  0 

CA 

HA1 F ARG 

ARG/2  IN  THE  A PFG 

0460 

31,  3766 

22  007  0 

ZL 

PREPARE  FOR  DIVISION 

0461 

21,3767 

0 0006  1 

EXTEND 

0462 

REF 

2 

LAST 

1478 

21,3770 

1 1 ' 742  0 

DV 

SCRATCH 

I ARG/X ) /2 

0-463 

RE-F 

-32 

LAST 

147  8 

21, 3771 

6 0021  1 

AD 

SR 

(X  * ARG/X 1/2  IN  THE  A REG 

04  64 

REF  4 

34 

LAST 

14  7 7 

21,3772 

0 0002  0 

TC 

Q 

RQ465 — 
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R0001 

R0002 

RQO03 

PROGRAM  NAME:  1/ACCS 

PROGRAM  WRITTEN  BY:  BOB  COVELLI  AND  MIKE  HOUSTON 
-LAST  MODIFICATION:  F-EB..- 21,  196B 

R0004 

PROGRAM  DESCRIPTION: 

R0005 
R0007 
RQQD9 — 

1/ACCS  PROVIDES  THE  INTERFACE  BETWEEN  THE  GUIDANCE  PROGRAMS  AND  THE  DIGITAL  AUTOPILOT.  WHENEVER  THERE  IS  A 
CHANGE  IN  THE  MASS  OF  THE  VEHICLE,  IN  THE  DEADBAND  SELECTED,  IN  THE  VEHICLE  CONFIGURATION  (ASCENT-DESCENT- 
DOCKED ) , AJSJD  DURING  A FR  F SH  START  nR  A RESTART,  1 /ACCS  IS  CALLED  TO  COMMUNICATE  THE  DATA  CHANGES  TO  THE  DAP. 

R0011 

RO-O-l-3 — 

R0015 

THE  INPUTS  TO  1/ACCS  ARE  MASS,  ACC  EL  FR AT  I ON  ( ABDELV ) , DEADBAND  ( D8 ) , OFFSET  ACCELERATIONS  (AOSQ  AND  AOSR), 

STAGE  VERIFY  PIT  ( r HAN30 , R 1 T2 ) , nnr.KFD  RIT  (DAP  BOOL S.  B IT1  3)  . DRIFT  BI T 1 DAPBOOL S, B I T 8 ) , USEQRJTS  (DAPBOOLS, 

8 I T 1 A ) , AND  SURFACE  FLAG  IFLAGWRD8 ,BIT8),  AND  CH5MASK. 

RO-Q 1-6 — 

R 00  1 8 
R0020 
RQ022 

1/ACCS  COMPUTES  T HI  JET  ACCF  L FR  AT  I ONS  (1JACC,  1JACCC,- 12ACCR1  — AS  FUNCT I ON  S^QE  MASS..  L-1ACCU  AND  1JACCV  ARE _ 

FORMED  BY  RESOLVING  1JACCQ  NAD  1JACCR.  IN  THE  DESCENT  CASE,  THF  DESCENT  ENGINE  MOMENT  ARM  IL,PVT-CG)  IS  ALSO 
COMPUTED  AS  A FUNCTION  OF  MASS.  THE  RATE  OF  CHANGE  OF  ACCELERATION  DUE  TO  ROTATION  OF  THE  GIMBAL  (ACCDOTQ, 

ACCnOTR)  IS  ALSO  COMPUTED  IN  THE  DESCENT  CASE. 

R 0023 

ROC  2-5 — 

R0027 

R0029 

ROQ-31 

R0033 

AFTER  THE  ABOVE  COMPUTATIONS,  THE  PROGRAM  1/ACCONT  COMPUTES  THE  RECIPROCAL  NET  ACCELERATIONS  ABOUT  THE  P,  U, 
AND  V AXES  (2  JOTS  FOR  P AXIS,  BOTH  1 AND  2 JETS  FOR  U AND  V AXES),  AND  THE  RECIPROCAL  COAST  ACCELERATIONS  ABOUT 
THE  P,  U,  AND  V AXES.  THE  ACCELERATION  FUNCTIONS  (ACCFCTZ1  AND  ACCFCTZ5IARE  ALSO  COMPUTED  FOR  THESE  AXES.  THF 
FIRE  AND  COAST  DEADBANDS  AND  AXISDIST  ARE  COMPUTED  FOR  EACH  AXIS.  FLAT  AND  Z0NE3LIM,  THE  WIDTH  AND  HEIGHT  OF  THE 
M-LALtmitL  Umil-SJL^mMF^  -AR-F-CnMPUJJDL.-  -1-/AC£0NX.-ALSQ_.  SFXS  ACCSWU  AND  ACCSWV.  WHICH  INDICATE  WHEN  1 JET  ACCELERATION 
IS  NOT  SUFFICIENT  TO  PRODUCE  MINIMUM  ACCELERATION.  AT  THE  COMPLETION  OF  1/ACCS,  THE  ACCSOKAY  BIT  IS  SET. 

R0035 

SUBBOUTINES  CALLED: 

RQ036 — 

T-I-MEGMBL 

R 00  37 
R0038 

MAK  ECADR 
R0T45DEG 

R 0039 

CALLING  SECUENCE: 

AGQ4Q — 

A00A1 

TO BANKCALL ( 1 /ACCS  MOST  RE  CAI  1 BY  BANKCALI 

CADR  1/ACCS 

R0042 — 

— NORmL-EJU-T:  VIA  BANKJWR ALARM  ANDABORT  EX-LT— MOOES: NONE  . 

R0043 

INPUT /OUTPUT  : SEE  PROGRAM  DESCRIPTION 

R 0044 

DEBR I S : 

R0045 

ALL  -OF- THE  -FXECUT  I VF  TFMPORAR-Y  RFGISTFRS.  FXf.FPT  FIXIOC  AND  nvFIND.  AND  THF  OnRE  S FT  ARF  A FROM  MPAC.  TO  BANKSET. 

R0047 

RESTRICTIONS: 

R0048 

R0049 


1/ACCS  MUSI  BE  CALLED  BY  BANKCALL 
EBANK  IS  SET  TO  6,  BUT  NOT  RESTORED 
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0050 

0051 
00  5 2 

REF 

5 

LAST 

1609 

20,2667 
20, 2000 
20,2667 

BANK 

SETLOC 

BANK 

20 

DAPS  3 

0053 

REF 

3 

LAST 

58  TO 

59: 

3 

6* 

COUNT* 

$ T / D APAO 

0056 

REF 

26 

LAST 

1678 

E 6, 1537 

EBANK= 

AOSO 

RQ055  ENTRY  IS  THROUGH  1/ACCJDB  OR  1/ACCSET  WHEN  1/ACCS  IS  TO  BE  DONE  AS  A SEP  ARATE.  NOV  AC  


R0057 

IT  IS  POSSIBLE 

FOR 

MORE  THAN 

ONE  OF  ' 

THESE  JOBS  TO  BE  SET  UP  CONCURRENTLY.  HOWEVER,  SINCE  THERE  IS  NO  CHECK  OF 

R 0059 

N El*  JOB  » 

A KFCOND  MANIFESTATION  CANNOT  BE 

STARTED  UNTIL 

THE  F IP  ST  IS. 

COMPL FTED. 

0061 

REF  3C8 

LAST 

1676 

20, 2667 

3 67  55 

1 

1/ACCSET  CAF 

ZERO 

ENTRY  FROM  FRESH  START / RE  START  CODING. 

OOA? 

-RFF  - ? 5 

1 AST 

14  8 0 

-20  f 2-450 

55*  5 37 

0 

TS 

AOSO  _ 

NULL  THF  OFFSET  ESTIMATES  FOR  1/ACCS. 

0063 

REF  10 

LAST 

166  7 

20, 2651 

55' 561 

1 

TS 

AOS  R 

0066 

REF  6 

LAST 

1622 

20,2652 

5 5 ' 6 22 

0 

TS 

AL  3H  AO 

NULL  THE  OFFSET  ESTIMATES  FOR  DOWNLIST 

0065- 

.RE^  5 

EAST 

1422 

20,2453 

5 5' 623 

1 

TS 

ALPH  AR 

0066 

REF  310 

LAST 

1397 

20, 2656 

0 6616 

1 

1 / ACC JOB  TC 

BANKCALL 

1/ACCS  ASSUMES  ENTRY  VIA  BANKCALL. 

- 0067 

- RE-F  2 

LAST 

86  4 

20,2655 

6066L 

0 

C ADR 

1/ACCS  +2 

SKIP  EBANK  SETTING. 

0068 

REF  160 

LAST 

1385 

20,2656 

0 5155 

0 

TC 

ENDOFJOB 

0069 

REF  7 

LAST 

1603 

20, 2657 

3 5015 

0 

1/ACCS  CA 

EBANK6 

*****  EBANK  SET  BUT  NOT  RESTORED  ***** 

0070 

REF  76 

LAST 

16  0 6 

20,2660 

56  003 

0 

TS 

EBANK 

0071 

REF  16 

LAST 

137  1 

2 0,  2 661 

0 6665 

l 

TC 

M AKECADP 

SAVE  RETURN  SO  THAT  BUF2  MAY  BE  USED 

0072 

REF  1 

20,2662 

56  117 

1 

TS 

ACC  R ETRN 

R0073 

DETERMINE  MASS 

OF  THE  LEM. 

00  76 

REF  66 

LAST 

1667 

20,2663 

3 0111 

0 

CA 

DAPBOOLS 

IS  CSM  DOCKED 

00-75 — 

R-EF  10 

-LAST 

144  6 

20,2464 

7 4737 

I 

MASK 

C S MD  OCKCL 

0076 

REF  1 

20,2665 

56  157 

0 

TS 

DOCKTEMP 

STORE  RECORO  OF  STATE  IN  TFMP  (MPAC  +3). 

0077 

REF  528 

LAST 

1673 

20,2666 

10  000 

0 

CCS 

A 

0078 

REF  5 

-LASJ 

3?9 

20,2.667 

6 133Z 

0 

CS 

C SMM ASS 

DOCKED:  LFMMASS  = MASS  - CSMMASS 

0079 

REF  12 

LAST 

86  1 

20,2670 

6 1266 

1 

AD 

MASS 

LEM  ALONE:  LEMMASS  = MASS 

0080 

REF  11 

LAST 

329 

20,2671 

55' 331 

0 

TS 

L F MM  ASS 

R0081  ON  THE  BASIS  OF  APSFLAG: 

R0082  SET  THE  P-AXIS  RATE  COMMAND  LIMIT  FOR  2-JET/6-JET  CONTROL 

-R0083  _ S FT  MPAC.  WHICH  INDICATFS  THE  PROPER  SET  OF  COEFFICIENTS  FOR  THE  LEM-ALONE  F(MASS)  CALCULATIONS 

R0085  ENSURE  THAT  THE  LEM  MASS  VALUE  IS  WITHIN  THF  ACCEPTABLE  RANGE 


0085-5  _ 

0086  REF 

0087  REF 

DO-88 

0089  REF 


20 

15 


LAST  1667 
LAST  1667 


20,  2672.  0 0006  0 

20,2673  30  106  0 

20,2676  7 6737  1 

20. 2675  0 0006  1 

20.2676  1 2522  1 


INHINT  __ 

CAE  FLGWRD10  DETERMINE  WHETHER  STAGED. 

MASK  APSFLBIT 

EXTEND 

BZF  DPSFLITE 


1 
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0090 

REF 

40 

LAST 

14  5 1 

20, 2477 

4 4733 

0 

CS 

PQSMAX 

ASCENT  (OR  ON  LUNAR  SURFACE) 

0091 

REF 

3 

LAST 

1430 

20, 2500 

55*473 

1 

TS 

-2JETLIM 

ALWAYS  2 JETS  FOR  P-AXIS  RATE  COMMAND 

g 

L AST 

147  8 

20 1 2 50  1 

-3  5 742 

0 

CAF 

-JCT14 

INITIALIZE  JND-EX-  AT_  12. 

0093 

REF 

840 

LAST 

1397 

20,2  502 

54  154 

0 

TS 

MPAC 

0094 

REF 

12 

LAST 

1480 

20,  2 503 

4 1331 

0 

CS 

LEMMASS 

CHECK  IF  MASS  TOO  HIGH.  CATCH  STAGING. 

naQS 

RE_F 

3 

L AST 

22  7 

20#  2 504 

6 14.0-0 

1— 

AD 

HIASCEMT 

0096 

20, 2505 

0 0006 

1 

EXTEND 

0097 

REF 

i 

20,2506 

6 2513 

1 

BZMF 

MASSFIX 

0098 

REF 

1 3 

LAST 

148  1 

20,2-507 

4 1331 

_Q— 

CS  . 

LEMMASS 

CHECK  IF  MASS  TOO  LOW.  THIS  LIMITS  THF 

0099 

REF 

i 

20,2510 

6 2001 

1 

AD 

L 3 A SCENT 

DECREMENTING  BY  MASSMON. 

0100 

20,2511 

0 0006 

1 

EXTEND 

0101 

REF 

1 

_20, 25 1.2 

6 2540 

1 

BZMF 

F(MASS) 

0102 

REF 

14 

LAST 

148  1 

20,2513 

27*331 

0 

MASSFIX 

ADS 

LEMMASS 

STORE  THE  VIOLATED  LIMIT  AS  LEMMASS. 

01-03- 

20,2514 

22  007 

0 

ZL 

ALSO  CORRECT  TOTAL  MASS,  ZEROING  THE 

0104 

REF 

2 

LAST 

1480 

20, 2515 

10  157 

0 

CCS 

DOCK  TEMP 

LOW-ORDER  WORD. 

0105 

REF 

6 

LAST 

1480 

20, 2516 

31*332 

1 

CAE 

CSMMASS 

DOCKED:  MASS  = LEMMASS  + CSMMASS 

01-06 

RE-F 

L5 

LAST 

14  81 

20,2517 

6 1331 

1 

AD 

LEMMASS 

LEM  ALONE:  MASS  = LEMMASS 

0107 

REF 

13 

LAST 

1480 

20, 2520 

53*245 

1 

DXCH 

MASS 

0108 

REF 

2 

LAST 

148  1 

20,2521 

1 2540 

0 

TCF 

F(MASS) 

0109 

REF 

63 

LAST 

1470 

20, 2522 

4 4742 

0 

DPSFL1TE 

CS 

BIT1  0 

FOUR  JETS  FOR  P-AXIS  RATE  COMMAND  ERRORS 

0110 

REF 

4 

LAST 

1481 

20,2523 

55*473 

1 

TS 

-2JFTLIM 

EXCEEDING  1.4  DEG/SEC  (SCALED  AT  45) 

04  1 1 

REF 

38 

L AST 

1434 

20,  2-524 

3 62  41 

0 

CAF 

SIX 

INITIALIZE  INDEX  AT  6. 

0112 

REF 

841 

LAST 

148  1 

20, 2525 

54  154 

0 

TS 

MPAC 

0113 

REF 

16 

LAST 

L4  8 1 

20,2526 

4 1331 

0 

CS 

LFMMASS 

CHECK  IF  MASS  TOO  HIGH.  SHOULD  NFVFR 

01 14 

REF 

1 

20, 2527 

6 20  02 

1 

AD 

HIDESCNT 

OCCUR  EXCEPT  PERHAPS  BFFORE  THE  PAD 

0115 

20,2530 

0 0006 

1 

EXTEND 

LOAD  IS  DONE. 

0116 

REF 

2 

LAST 

148  1 

20,2531 

6 2513 

1 

BZMF 

MASSFIX 

0117 

—REEL 

17 

LAST 

14  8 1 

20, 2532 

4 1331 

0 

CS 

LEMMASS 

CHECK  IF  MASS  TOO  LOW.  THIS  LIMITS  THE 

0118 

REF 

1 

20,2533 

6 2003 

0 

AD 

LODFSCNT 

DECREMENTING  BY  MASSMON. 

0119 

REF 

4 

LAST 

14  8 1 

20,2534 

6 1400 

1 

AD 

H I A S CENT 

0120- 

_20, 253  5 

0 0006 

L . 

EXTEND 

0121 

REF 

3 

LAST 

1481 

20,2536 

6 2540 

1 

BZMF 

F (MASS ) 

0122 

REF 

3 

LAST 

148  1 

20,2537 

1 2513 

0 

TCF 

MASSFIX 

R0123 

— COMPUJ-AT ION  OF 

FU  NCT 1 QNS OF  MASS 

0124 

20,2  540 

0 0003 

1 

F ( MASS ) 

RFLINT 

042-5 

RFF 

3 

LAST 

14  8 1 

—20 , 2-541 

- 10  157 

0 

CCS 

DOCKJLEMP 

0126 

REF 

i 

20,2542 

1 3030 

0 

TCF 

DOCKED 

DOCKED:  USE  SEPERATE  COMPUTATION. 

0127 

REF 

109 

LAST 

1475 

20,2543 

3 4752 

0 

CA 

TWO 

OA ZB 

REF 

842_ 

-LAST 

1-48  1 

. 20,2544. 

-54  155 

1 

STCTP 

TS 

MPAC  +1 

J=2 , I , 0 FOR  I JACCR. lJACCO. IJACC 

0129 

REF 

l 10 

LAST 

148  1 

20,2545 

4 4752 

1 

CS 

TWO 

oiao 

_REE- 

-843 

-LAST 

148  1 

.20,2546 

26  154 

0 

ADS 

MPAf 

JX=10,8,6  OR  4,2,0  TO  INDEX  CHEFS. 

0131 

REF 

18 

LAST 

148  1 

20, 2547 

31*331 

1 

STCTR  1 

CAE 

LEMMASS 

01  31 1 - 

-RE-F 

344— 

LAST. 

148  1 

20,-2550 

50  154 

1 

INDEX 

MPAC 

0132  REF  l 20,2551  6 3006  1 AO  1NERC0NC 

0133  REF  845  LAST  1481  20,2552  54  156  l TS  MPAC  +2 


MASS  + C 


— GAP 
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0134 

20, 2553 

0 0006 

1 

EXTEND 

0135 

REF  846 

LAST 

148  1 

20,2554 

5 0154 

1 

INDEX 

M P AC 

04 

.RFF  1 

- 20,2555 

3 2 7 70 

0 

DC  A 

I NERCONA 

0137 

20,2556 

0 0006 

1 

EXTEND 

0138 

REF  847 

LAST 

1482 

20,2557 

10  156 

1 

DV 

MP AC  +2 

Til  1 9 

R-E^  84-8 

- -LAST 

14-8-2— 

- 20,-2-560 

-5.0  154 

1 

INDEX. 

MPAC 

0140 

REF  1 

20, 2561 

6 3005 

1 

AD 

I NERCONB 

0141 

RFF  849 

LAST 

14  8 2 

20,2562 

50  1 55 

0 

INDEX 

MPAC  +1 

1JACC< J)=A< JX)/(MASS+C( JX)  + B(JX) 

n i 4? 

-REF  - - 8 

las  t 

141  8 

_ -20,2-563 

55' 530 

1 

TS 

1 JAC-C.  . 

1 JACCI— 1)=L. PVT-CG  SCALEO  AT  8 FEET 

0143 

REF  850 

LAST 

1482 

20, 2564 

10  155 

1 

CCS 

MPAC  +1 

0144 

RFF  1 

20- , 2_5-65  _ 

1 2544 

1 

TCF  _ 

STCJLE  . 

0145 

REF  1 

20, 2566 

l 2570 

0 

TCF 

COMMEQS 

0146 

REF  1 

20,2567 

1 2607 

0 

TCF 

LRESC 

0147 

REF  2 

LAST 

1466 

20, 2570 

3 1532 

1 

COMMEQS  CA 

1 JACCR 

SCALED  AT  PI/4 

0148 

REF  2 

LAST 

1466 

20,2571 

6 1531 

1 

AD 

1 JACCQ 

0 1-49- 

20 . 2572 

0 00  06 

1 

EXTEND 

0150 

RFF  1 

20, 2573 

7 3026 

1 

MP 

0.35356 

.70711  SCALED  BY  (+1) 

0151 

REF  1 

20,2574 

55' 533 

1 

TS 

1 JACCU 

0 1 52 

REF  1 

20,2575 

55' 534 

0 

TS 

1 JACCV 

SCALED  AT  PI/2  RAD/SEC**2 

0158 

REF  851 

LAST 

148  2 

20,2576 

10  l 54 

0 

CCS 

MPAC 

COMPUTE  L, PVT-CG  IF  IN  DESCENT 

015  9 

REE  3 09 

L AST 

14  8 0 

20,2577 

3 47  55 

1 

CAF 

ZERO 

ZFRO  SWITCHFS  AND  GO  TO  1/ACCONT  IN 

0160 

REF  5 

LAST 

1474 

20, 2600 

55' 501 

0 

TS 

ALLOWGTS 

ASCENT 

0161 

REF  1 

20, 2601 

l 3142 

1 

TCF 

1/ACCONT 

-1 

0162 

REF  111 

LAST 

148  1 

20,2602 

4 4752 

1 

CS 

TWO 

0163 

RFF  852 

LAST 

1482 

20,2603 

54  154 

0 

TS 

MPAC 

0164 

REE  1 76 

las  t 

14  7 2 

20,2604 

4 4753 

0 

CS 

ONE 

0165 

REF  853 

LAST 

1482 

20,2605 

54  155 

1 

TS 

MPAC  <-1 

0166 

REF  1 

20, 2606 

1 2547 

1 

TCF 

STCTR1 

R016Z 

THIS  SECT  I CN  COMPUTES  THE  RATE  OF  CHANGE  OF  ACCELERATION  DUE  TO 

THF 

ROTATION  OF  THE  GIMBALS.  THE  EQUATION  IMPLE 

R0169 

MENTEC 

IN  BOTH 

THE 

Y-X  PLANE 

AND  THE 

z- 

X PLANE  IS  — D<  ALPHA  )/DT 

= 

TL/I*D(DELTA I/OT,  WHFRE 

R0171 

T = 

= ENGINE  THRUST  FORCE 

RQ172 

L : 

= PIVOT 

TO  CG  DISTANCE 

OF  ENGINE 

R 0 1 73 

I = 

= MOMENT  OF 

INERT  I A 

— 0174- 

REG 

LAST 

86  3 

20,2607 

3 1 ' 246 

0 

LRESC  CAE 

ABDELV 

SCALFO  AT  2(13)  CM/SEC(2) 

0175 

20,2610 

0 0006 

1 

EXTEND 

0176 

REF  14 

LAST 

148  1 

20,2611 

7 1244 

0 

MP 

MASS 

SCALED  AT  3+16  KGS 

0177- 

R E-F  - J.- 

20, 2612 

0 2 7 24 

1 

TC 

DVOVSUB 

G FT  QUOTIENT  WITH  OVERFLOW  PROTECTION 

0178 

REF  1 

20,2613 

0 3027 

1 

ADRES 

GFACTM 

ROl-7  9 

— MA-SS  IS 

DJ  VIDEO  BY 

ACCELERATION-  OF  GRAVITY  IN  ORDER  TO  1 

MATCH  THE 

UNI  T.S 

OF  IXX.IYY.IZZ,  WHICH  ARE  SLUG-FT ( 2 ) . 

R0L81 

THE  RATIO  OF  ACC  F L ERAT ION  FROM  PIPAS 

TO 

ACCELERATION  OF 

GR  A V ITY 

IS 

THE 

SAME  IN  METRIC  OR  ENGINEERING  UNITS,  SO 

R0183 

THAT  IS 

UNCONVERT  ED 

i.  2.20462 

CONVERTS 

KG.  TO  LR.  NOW 

T IS  IN  A 

SCALED 

AT  2(14). 

0185 

20,2614 

0 0006 

1 

EXTEND 

0186 

REF  1 

20,2615 

7 1527 

1 

MP 

L, PVT-CG 

SCALED  AT  8 FEET. 
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0187 

20, 2616 

0 0004 

0 

INHINT 

0188 

REF  854 

LAST 

1482 

20,2617 

5 4 154 

0 

TS 

MPAC 

0189 

20,2620 

0 0006 

1 

EXTEND 

0190 

REF  3 

LAST 

148  2 

20,2621 

7 1532 

0 

MP 

1 JACCR 

0191 

REF  2 

LAST 

148  2 

20,2622 

0 2724 

1 

TC 

DVDVSUR 

GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 

_ 0192. 

R£E  . A 

20,2623 

-02000 

0 

ADRES 

TORK JET1 

0193 

REF  2 

LAST 

1470 

20, 2624 

5 5 ' 5 1 1 

1 

TS 

ACCDOTR 

SCALED  AT  PI/217) 

0194 

REF  855 

FAST 

148  3 

20,2625 

3 0154 

_1_ 

CA 

MPAC 

0195 

20,2626 

0 00  06 

1 

EXTEND 

0196 

REF  3 

LAST 

1482 

20,2627 

7 1531 

0 

MP 

1 JAC  CQ 

0197 

REP—  3 

_ LAS1 

1483 

20,2  63.0 

0 2724 

A- 

TC 

QVOVSUB 

GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 

0198 

REF  2 

LAST 

1483 

20,2631 

02000 

0 

ADRES 

TORK  JET1 

01  99 

R-EF  6 

LAST 

147  3 

20*  2 632 

55' 507 

0 

SPSCONT 

TS  - 

A CCD  CTO  - - 

SCALED  AT  PT/217) 

0200 

20,2633 

0 0006 

1 

EXTEND 

0201 

REF  1 

20, 2634 

7 3025 

1 

MP 

DGBF 

. 3ACCD0TQ  SCALED  AT  PI/2I8) 

0202 

REF  -5 

-LAST 

14S8 

- 20,2  635 

5 5 ' 503 

1 

TS 

KQ 

0203 

20,2636 

0 0006 

1 

EXTEND 

0204 

20,2637 

7 0000 

0 

SQUARE 

0205 

REF  1 

20,2640 

55' 504 

Q 

TS  _ 

KQ2 

KQ(  2) 

0206 

REF  3 

LAST 

148  3 

20,2641 

31' 511 

0 

CAE 

ACCDOTR 

. 3ACC00TR  AT  PI/2I8) 

0202 

20,2642 

0 0006 

1 

EXTEND 

0208 

REF  2 

LAST 

148  3 

20,2643 

7 3025 

1 

MP 

DGBF 

0209 

REF  1 

20,2644 

55 ' 5 05 

1 

TS 

KRD  A P 

0210 

20,2  645 

0 00.06 

1 

EXTEND 

0211 

20,2646 

7 0000 

0 

SQUAR  E 

0212 

REF  1 

20, 2647 

55' 506 

l 

TS 

KR2 

0213 

20,2650 

0 0006 

1 

EXTEND 

NOW  COMPUTE  QACCDOT,  R ACC  DOT , THE  SIGNED 

0214 

REF  74 

LAST 

1477 

20, 2651 

00  012 

1 

READ 

C HAN  12 

JERK  TERMS.  STORE  CHANNEL  12.  WITH  GIM 

0215 

REF  -356 

-LAST 

148  3 

20,265 2 

54  155 

1 

TS 

MPAC  +1 

BAL  DRIVE  BITS  9 THROUGH  12.  SET  LOOP 

0216 

REF  58 

LAST 

143  8 

20,2653 

3 4752 

0 

CAE 

B I T 2 

INDEX  TO  COMPUTE  RACCDOT,  THEN  QACCDOT. 

0217 

REF  1 

20,2654 

1 2656 

1 

TC  F 

L OOP  3 

0218 — 

—REE.  3-10- 

- 1 ASA. 

148  2 

20, 2655 

3 4755 

1 

CAE 

ZERO 

ACCDOTQ  AND  ACCDOTR  ARE  NOT  NEGATIVE, 

0219 

REF  857 

LAST 

1483 

20,2656 

54  154 

0 

L00P3 

TS 

MPAC 

BECAUSE  THEY  ARE  MAGNITUDES 

0220 

REF  858 

LAST 

1483 

20,2657 

3 0155 

0 

CA 

MPAC  +1 

0221 — 

REF  859 

LAST 

14  8 3 

20,2660 

50  154 

1 

INDEX 

MPAC 

MASK  CHANNEL  IMAGE  FOR  ANY  GIMBAL  MOTION 

0222 

REF  1 

20,2661 

7 3021 

0 

MASK 

GIMBLBTS 

0223 

20,2662 

0 0006 

1 

EXTEND 

0224 

-REE 1 

28,2663 

1 2677 

1 

BZF 

Z ACC  DOT 

IF  NONE,  QIRIACCDOT  IS  ZERO. 

0225 

REF  860 

LAST 

1483 

20,2664 

3 0155 

0 

CA 

MPAC  +1 

0226 

REF  861 

LAST 

148  3 

20,2665 

50  154 

1 

INDEX 

MPAC 

GIMBAL  IS  MOVING.  IS  ROTATION  POSITIVE. 

022  7- 

REF  2_ 

LAST 

148  3 

. 20jA666 

7 3022 

0 

MASK 

3IMBLBTS  +1 

0228 

20,2667 

0 0006 

1 

EXTEND 

0229 

REF  1 

20,2670 

1 2674 

1 

BZF 

ERST  ZERO 

IF  NOT  POSITIVE,  BRANCH 

0230 

-REE— 862- 

-LAST 

1483 

-.20,2671 

50  154 

A 

INDEX 

MPAC 

POSITIVE  ROTATION,  NEGATIVE  QIRIACCDOT. 

0231 

REF  7 

LAST 

1483 

20,2672 

4 1507 

0 

CS 

ACCDCTO 

0232 

REF  1 

20, 2673 

1 2700 

0 

TC  F 

STAC  COOT 
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0233 

REF 

863 

LAST 

148  3 

20,2674 

50  154 

1 

FRSTZERO 

INDEX 

MPAC 

NEGATIVE  ROTATION,  POSITIVE  OIRIACCDOT. 

0234 

REF 

8 

LAST 

148  3 

20, 2675 

3 15  07 

1 

CA 

ACCDCTO 

Q F F 

2 

L AST 

14_8  3 

20, 2676 

1 2700  0 

TCF 

STACCDOT 

0236 

REF 

311 

LAST 

1483 

20,2677 

3 4755 

1 

ZACCDOT 

CAF 

ZERO 

0237 

REF 

864 

LAST 

1484 

20, 2700 

50  154 

1 

STACCOOT 

INDEX 

MPAC 

02^8 

RFF 

£ 

LAST 

147  7 

20*2 701 

55 '5 10 

0 

TS 

_QAC  C DOT 

STORF  OIRIACCDOT. 

0239 

REF 

865 

LAST 

1484 

20, 2702 

10  154 

0 

CCS 

MPAC 

0240 

REF 

2 

LAST 

1483 

20, 2703 

1 2655 

1 

TCF 

L00P3  -1 

NOW  DO  QACCDOT . 

Q241 

REF 

65 

LAST 

14  8 0 

20, 2704 

4 0111 

1 

CS 

D APB  COLS 

IS  GIMBAL  USABLE? 

0242 

REF 

6 

LAST 

1446 

20,  2705 

7 4736 

0 

MASK 

USEQRJTS 

0243 

20,2706 

0 0006 

1 

EXTEND 

0744 

RFF 

1 

20, 2707 

1 3576 

1 

BZF 

DOWNGTS 

NO.  BE  SURE  THE  GIMBAL  SWITCHES  ARE  DOWN 

0245 

REF 

5 

LAST 

1408 

20, 2710 

4 1274 

0 

CS 

T5ADR 

YES.  IS  THE  DAP  RUNNING? 

0246 

REF 

1 

20,2711 

6 3655 

1 

AD 

PAX  I SADR 

0247 

20, 2712 

0 0006 

JL 

EXTEND 

0248 

20,2713 

1 2715 

1 

BZF 

+2 

0249 

REF 

2 

LAST 

1484 

20,2714 

1 3576 

1 

TCF 

DOWNGTS 

NO.  BE  SURE  THF  GIMBAL  SWITCHES  APE  DOWN 

02  5-0 

RER 

-6 

LAST 

146  7 

20,2715 

1 1 1 6 31 

.0 

CCS 

I NGT  S 

YES.  IS  GTS  IN  CONTROL? 

0251 

REF 

i 

20,2716 

1 2721 

0 

TCF 

DCCK  TEST 

YES.  PROCEED  WITH  1/ACCS. 

0252 

REF 

62 

LAST 

1474 

20,2717 

0 46  74 

0 

TC 

I BNKCALL 

NO.  NULL  OFFSET  AND  FIND  ALLOWGT S 

-07 

REF 

2 

LAST 

1444 

20, 2720 

43450 

1 

CADR 

TIME  GMBL 

0254 

REF 

4 

LAST 

148  1 

20, 2721 

10  157 

0 

DOCKTEST 

CCS 

DOCKTEMP 

BYPASS  l/ACCONT  WHEN  DOCKED. 

-0-2  55 

RPP 

1 

20 , 2 722 

1 35  61 

1 

TCF 

1 /ACCRET 

0256 

REF 

2 

LAST 

1482 

20,2723 

1 3143 

0 

TCF 

1 /ACCONT 
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P0257  SUBROUTINE:  DVOVSUB 


R-0258 AU744Q-R-i C-.  WORK,  - MQ0--0 — 1-2 — JUNE— 68- 


R 02 59  PURPOSE:  THIS  SUBROUTINE  PROVIDES  A SINGLE-PRECISION  MACHINE  LANGUAGE  DIVISION  OPERATION  WHICH  RETURNS 

— R0261 < I-)  THE  QUOTIENT,.  IF  THE  PI  V-T  SI-ON  -WAS-  NORMAL. 

R0262  (2)  NEGMAX,  IF  THE  QUOTIENT  WAS  IMPROPER  ANO  NEGATIVE. 

R0263  (3)  POSMAX,  IF  THE  QUOTIENT  WAS  IMPROPER  AND  POSITIVE  OR  IF  THERE  WAS  A ZERO  DIVISOR. 

_ RQ2-65 TUP  C-A I I 1NG  PROGRAM  IS  PRESUMFD  TO  BE  A JOB  IN  THF  F BANK  WHICH  CONTAINS  DVOVSUB.  E BANK  MUST  BE  6. 

R0267  THE  DIVISOR  FOR  THIS  ROUTINE  MAY  BE  IN  EITHER  FIXED  OR  FRASABLE  STORAGE.  SIGN  AGREEMENT  IS 

R0269  ASSUMED  BETWEEN  THE  TWO  HALVES  OF  THE  DIVIDEND.  (THIS  IS  CERTAIN  IF  THE  A ANO  L REGISTERS  ARE  THE  RE- 

R n 2 7 1 9111  T OF  A Mill  T I PI  TCAT  TON  nPFRAT  ION.  ) 

R0272  CALL  SEQUENCE: 

A0273  L TC  DVOVSUB 

A 02-74 I +1 ADRES  I DIVISOR! 

A0275  L +2  RETURN  HERE,  WITH  RESULT  IN  A , L 


RQ  2-76 INPUT  : DJ-VI-DE-ND— IN_A,4 (SIGN  A-GR-EEM.E  N T-  A-SG11MFD_L._D  I V 1 SOR  IN  lOCATlON  DFSTGNATFD  BY  "ADRES11. 

R0278  DIVISOR  MAY  BE  IN  THE  DVOVSUB  F B ANK , F I X ED-F I X E D FRANK, EBANK  6,  OR  UNSWITCHED  ERASABLE. 

- — R-028Y4 OUTPUT:  QtjflT-J  FNJ-  - AND  RFMAINDFR,  OR- POSMAX  ( NEGMAX)  ,-WH  Tfl  HE  V FR  IS  APPROPR  I ATF  . 

R0282  DEBRIS:  S CR AT CHX , SCR ATCH Y , SC RATCH Z , A , L (NOTE:  SCRATCHX,Y,Z  ARE  EQUATED  TO  MPAC  +4, +5, AND  +6.) 

R0284  ABORTS  OR  ALARMS:  NONE 

R 0 2 £ 5 EXITS:  TO  THE  CALL  POINT  + 2. 

R0286  SUBROUTINES  CALLED:  NONE. 


0287 

REF  1 

20, 2724 

54  161 

0 

DVDVSUB  TS 

SCR  ATCHY 

SAVE  UPPER  HALF  OF  DIVIDEND 

0288 

REF  1 

20,2725 

54  160 

1 

TS 

SCR  A TCHX 

028-9- — 

-REF  435 

-LAST 

147  8 

-20,2726 

50  002 

0 

INDEX 

Q 

OBTAIN  ADDRESS  OF  DIVISOR. 

0290 

20, 2727 

3 0000 

1 

CA 

0 

0291 

REF  436 

LAST 

1485 

20,  2 730 

24  002 

0 

I NCR 

Q 

STEP  Q FOR  PROPER  RETURN  SEQUENCE. 

0292 

-REF  -.5-29 

LAST 

148  0- 

20,2  73  1 

5 0 OUT) 

1 

INDEX 

A 

0293 

20,2732 

3 00  00 

1 

CA 

0 

PICK  UP  THE  DIVISOR. 

02  94 

20,  2 733 

0 0006 

1 

EXTEND 

RETURN  POSMAX  FOR  A ZERO  DIVISOR. 

0295 

JLEF L - 

20,2  734 

1 2 763 

0 

BZF 

MAXP  LUS 

02  96 

REF  1 

20, 2735 

54  162 

0 

TS 

SCR ATCHZ 

STORE  DIVISOR. 

0297 

REF  530 

LAST 

1485 

20,2  736 

10  000 

0 

CCS 

A 

GET  ABSIDIVISOR)  IN  THE  A REGISTER. 

0298 

REF  73 

LAST 

1477 

20, 2737 

6 4753 

1 

AD 

B I T 1 

-0299 

- R-E-F 1 

20,2740 

1-2  7 42  0 

TC  F 7 F R D PI  US 

0300 

REF  74 

LAST 

148  5 

20,2741 

6 4753 

1 

AD 

BIT1 

03-04 

-R-E-E 2— 

-LAST 

148  5 

20,  2 742 

56  161 

1 

ZEROPLUS  XCH 

S GLATCHY 

STHRF  ARS  ( m V rSHR  ) - P T f.K  UP  Tf!P  HALF  OF 

0302 

20,2743 

0 0006 

1 

EXTEND 

DIVIDEND. 

0303 

REF  1 

20, 2744 

6 2746 

0 

BZMF 

GOODNEG 

GET  -ABSI DIVIDEND) 
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0304 

REF  531 

LAST 

148  5 

20, 2745 

4 0000 

0 

cs 

A 

14-8  5 

?nT  ? 74 /v 

6 n \ 6 1 

1 

cnnnNFC 

AO 

SCR A TCHY 

AR-SIDLV 'lAIlfi)  - AS-S  CQ1JV1-DEND 1 

0306 

20, 2747 

0 0006 

1 

EXTEND 

0307 

REF  1 

20,2750 

6 2755 

1 

BZMF 

MAKEMAX 

BRANCH 

IF 

DIVISION  IS  NOT  PROPER. 

0308 

REF  2 

LAST 

1485 

20,2751 

3 01  60 

0 

CA 

SCR  ATCHX 

RE-ESTABLISH  THE  DIVIDEND. 

0309 

20,2752 

0 0006 

1 

EXTEND 

0 3 1-0 

REF 2 

LAST 

14  8 5 - 

20,2753 

10  162 

0 

DV 

SCRATCHZ 

QUOTIENT 

IN  THF  A,  REMAINDER  IN  L. 

0311 

REF  437 

LAST 

14  8 5 

20,2754 

0 0002 

0 

TC 

Q 

RETURN 

TO 

CALLER. 

PEP  _ ^ 

L-AST-- 

LAST 

1486 
14  8 6 

2-0,-2-755 — 
20,2756 

l 0 160 
10  162 

-1- 

0 

MAKEMAX 

CCS-  - 

-S-CR  ATCHX 

nFTFRMTNF 

THF  SIGN  OF  THE  QUOTIENT!. 

0313 

REF  3 

CCS 

SCRATCHZ 

SCRATCHX 

AND  SCRATCHZ  ARE  NON-ZFRO. 

0314 

REF  2 

LAST 

1485 

20, 2757 

1 2763 

0 

TC  F 

MAXPLUS 

m I S-  - 

REF  4 

LAST 

1 4 8 6 

20, 2 760 

10  1 62 

0 

CCS 

SCRATCHZ 

0316 

REF  12 

LAST 

1463 

20,2761 

3 4735 

1 

CAF 

NEC,  MAX 

+ ,-  OR 

“t 

+ 

0317 

REF  438 

LAST 

14  8 6 

20,2762 

0 0002 

0 

TC 

0 

o 318 

REF  41 

LAST 

148  1 

20,2763 

3 47  33 

1 

MAXPLUS 

CAF 

PCSMAX 

OR 

+ 

0319 

REF  439 

LAST 

I4  8 6 

20,2764 

0 0002 

0 

TC 

0 

R0320 

Of)  F-FF  TX  T FMIS  FOR  THF  ,1FT  AfXFl  FRAT  I ON  CURVE  FITS 

R0321 

THE  CURVE  FITS 

AR  E 

OF  THE  FORM  - 

130  32-2 

-1  IACT 

= A7  / MASS-  + 0-1 

+ B 

R0323 

A IS  SCALED  AT 

P I / 4 

RAD/SEC442 

B+16KG 

B IS  SCALED  AT  PI/4  RAD/SEC**2, 

AND  C IS 

SCALED  AT  B +16  KG. 

R0325 

THE  CURVE  FIT 

FOR  L 

.PVT-CG  IS 

OF  THE 

SAME  FORM, 

EXCEPT 

THAT  A IS  SCALED 

AT  8 FT 

B+16  KG,  B IS  SCALED  AT  8 FT, 

R0327 

AND  C IS 

SCALED  AT 

8+16  KG. 

0328 

20,2765 

01240 

0 

2DEC 

+.0410511917 

L 

A 

DESCENT 

022-8 — 

-20,2  766 

225  13 

0 

0329 

20,2767 

00141 

0 

INERCONA 

2DEC 

+.0059347674 

1 JACCP 

A 

DESCENT 

0329- 

20,2770 

074L6 

0 

0330 

20,2771 

00030 

1 

2DEC 

+ .00  14979264 

1 JACCQ 

A 

DESCENT 

0330 

20,2772 

21261 

1 

- -0331 

20, 2773 

00021 

1 

2DEC 

+ .00  1045  1889 

1 JACCR 

A 

DESCENT 

0331 

20, 2774 

03766 

c 

0332 — 

20,2775 

00153 

o 

?DFf. 

+ .00  65443852 

1 JACCP 

A_ 

ASf.FNT 

0332 

20,2776 

071  11 

1 

0333 

20,2777 

00072 

1 

2DEC 

+.0035784354 

1 JACCQ 

A 

ASCENT 

03L33 

20, 3000 

24103 

0 

0334 

20, 3001 

00135 

0 

2DEC 

+ .00  56946631 

1 JACCR 

A 

ASCENT 

0334 

20, 3002 

11511 

1 

0335 

20,3003 

047  54 

0 

DEC 

+.155044 

L 

B 

DESCENT 

0336 

20,3004 

77  142 

0 

DEC 

-.025233 

L 

C 

DESCENT 
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0337 

20, 3005 

00061 

0 

INERCONB  DEC 

4-  .002989 

1 JACCP 

B 

DESCENT 

0338 

20,3006 

002  17 

0 

INERCONC  DEC 

+.008721 

1 JACCP 

c 

DESCENT 

03-39  

20 » 3007 

00464 

1 

_ DEC 

+.018791 

1 JACCO 

8- 

DESCENT 

0340 

20,3010 

75642 

0 

DEC 

-.068163 

1 JACCO 

C 

DESCENT 

0341 

20,3011 

005  36 

1 

DEC 

+.021345 

1 JACCR 

B 

DESCENT 

0342 

- 20, 3012 

75705- 

1 

DEC  - 

-.066027 

1 JACCR 

C 

DESCENT 

0343 

20,3013 

00001 

0 

DEC 

+.000032 

1JACCP 

8 

ASCENT 

0344 

_ 20,  3014 

77616 

0 

DEC 

-.006923 

LJACCP 

-C- 

ASCENT 

0345 

20,3015 

05154 

1 

DEC 

+.162862 

1 JACCQ 

B 

ASCENT 

0346 

20, 3016 

00052 

0 

DEC 

+.002588 

1 JACCO 

C 

ASCENT 

_ _ 0347 

_ -20,3017 

002-31 

1- 

DFC_ 

+.009312 

1 JACCR 

B 

ASCENT 

0348 

20,3020 

77174 

0 

DEC 

- .02  3608 

1 JACCR 

C 

ASCENT 

0353 

20, 3021 

01400 

1 

GIMBLBTS 

OCTAL 

01400 

0354 

20,3022 

01000 

0 

OCTAL 

01000 

0356 

20,3023 

06000 

1 

OCTAL 

06000 

0356 

20, 3024 

04  000 

0 

OCTAL 

04000 

0357 

20,3025 

23146 

0 

DGBF 

DEC 

0.6 

.3  SCALED  AT  1/2 

0358 

20,3 026 

13241 

3 

0.35356 

DEC 

0.35356 

.70711  SCALED  AT  2 

0359 

20, 3027 

003  3 7 

0 

GFACTM 

OCT 

337 

979.24/2.20462  AT  B+15 

R0360 

CSM- 

■DECKED  INERT  I A 

COMPUTATIONS 

0361 

REF 

177 

LAST  1432 

20, 3030 

3 4753 

1 

DOCKED 

CA 

ONE 

COEFTR  = 1 FOR  INERTIA  COEFFICIENTS 

0362 

REF 

1 

20, 3031 

54  160 

1 

SP  SLOOP  1 

TS 

COEFCTR 

= 7 FOR  CG  COEFFICIENTS 

0-363— 

—REF 

-L7-8 

LAST  1487 

20,3032 

3 4753 

1 

CA 

ONE 

MASSCTR  = 1 FOR  C SM 

0364 

REF 

1 

20, 3033 

54  161 

0 

TS 

MASSCTR 

= 0 FOR  LEM 

0366 

REF 

1 

20, 3035 

3 3125 

1 

CA 

CDEFF  -1 

COEFF  -1  = C 

0367 

20, 3036 

0 0006 

1 

EXTEND 

0368 — 

-REF 

— 19- 

LAST 

1481 

-20,3037 

7 1331 

0 

MP 

LEMMASS 

0369 

20,3040 

0 0006 

1 

EXTEND 

0370 

REF 

7 

LAST 

148  1 

20, 3041 

7 1332 

0 

MP 

C SMM ASS 

LET  X = C SMM ASS  AND  Y = 

LEMMASS 

0371 

REF 

3 

LAST 

1487 

20,3042 

50  160 

0 

INDEX 

COEFCTR 

0372 

REF 

2 

LAST 

1487 

20, 3043 

6 3126 

1 

AD 

COEFF 

COEFF  = F 

0333 — 

—REF 

366 — 

LAST 

14  8 4 

-20,-3044 

—54  154 

0 

TS 

MP4-C 

MPAC  = C X Y + F 

0374 

20,3045 

1 3051 

1 

TCF 

+ 4 

037-5 — 

— REE- 

2— 

LAST 

14  8 7 

20, 3046 

54  161 

0 

SPSL0DP2  TS 

MASSCTR 

1 DDP  TWTfF  THRnilfiH  HFR  F 

TD  HRTAIN 

0376 

20, 3047 

0 0006 

1 

EXTEND 

MPAC  = MPAC  + (A  X +D)X 

+ (B  Y +E1Y 

0377 

REF 

4 

LAST 

14  8 7 

20, 3050 

26  160 

1 

DIM 

COEFCTR 

LOOP  Ul 

LOOP  #2 

0378 

REF 

5_ 

LAST  1487 

— 20,305-1 

50  160  0 

INDEX 

COEFCTR 

0379 

REF 

3 

LAST 

148  7 

20,3052 

3 3130 

0 

CA 

CDEFF  +2 

COEFF  +2  = A OR  8 

0380 

20, 3053 

0 0006 

1 

EXTEND 

03-8-1 

—REEL- 

3_ 

LAST 

_148JL 

20,3054 

_5  0L61 

1 

INDEX 

MASSCTR 

0382 

REF 

20 

LAST 

148  7 

20,3055 

7 1331 

0 

MP 

LEMMASS 

0383 

RFF 

6 

LAST 

14  8 7 

20, 3056 

50  160 

0 

INDEX 

COEFCTR 

012 PAG  F 1. 48  8- 
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03  84 

REF  4 

LAST 

1487 

20, 3057 

6 3132 

1 

AD 

COEFF  +4 

COEFF  +4  = E OR  0 

0385 

20, 3060 

0 0006 

1 

EXTEND 

RFF  4 

LAST 

148  7 

-20*  3-061 

5 0161 

1 

INDEX- 

MASSCTR - 

0387 

REF  21 

LAST 

14  8 7 

20, 3062 

7 1331 

0 

MP 

L EMM  ASS 

0388 

REF  867 

LAST 

1487 

20, 3063 

26  1 54 

0 

ADS 

MPAC 

0389 

REF  5 

LAST 

1488 

20,3064 

10  161 

0 

CCS 

MASSCTR 

0390 

REF  1 

20,3065 

1 3046 

1 

TCF 

SPSL00P2 

7 

1 AST 

-148  7 

20,  3 066 

10-160 

1_ 

CCS 

COEFCTR  _ 

IF  COEFCTR  IS  POS  , EXIT  FROM  LOOP  WITH 

0392 

20,3067 

1 3076 

1 

TCF 

+ 7 

CG  X DELOOT  = MPAC  X 4 PI  RAD-CM/SEC 

0393 

20,3070 

00000 

1 

TORQCONS 

2DEC 

0.51443  B- 14 

CORRESPONDS  TO  500  LB-FT 

0393 

-20,  3 07 L 

203  54 

1 

0394 

REF  868 

LAST 

14  8 8 

20, 3072 

3 0154 

1 

CA 

MPAC 

0395 

REF  369 

LAST 

14  8 8 

20,3073 

54  155 

1 

TS 

MPAC  +1 

INERTIA  = IMPAC  +1)  X 2(38)  KG-CMI2) 

0396 

RFF  2 4 

-LAST 

13  6_8 

20, 3074- 

3 4757 

.0 

CA 

SEVEN 

0397 

REF  1 

20,3075 

1 3031 

1 

TCF 

SPSL00P1 

RFF  64- 

l AST 

14  8 1 

20, 3076 

3 4-7-42- 

1 

CA 

_3.1T  10-  _ _ 

- CORRESPONDS  TO  1.4  DFG/SFC(?) 

0399 

REF  9 

LAST 

1482 

20, 3077 

5 5 ' 5 30 

1 

TS 

1 JACC 

SCALED  AT  PI/4 

0400 

RFF  42 

i A ST 

I486 

2 0,  3-100 

3 47  33 

1 

CA- 

PCS  MAX 

SET  INVERSE- J ET  ACCELERATIONS  TO  POSMAX, 

0401 

REF  2 

LAST 

14  3 0 

20, 3101 

55' 551 

0 

TS 

1 /AN  FTP 

WHICH  CORRESPONDS  TO  ACCEL.  OF  1.4  D/SS. 

0402 

REF  3 

LAST 

145  8 

20, 3102 

5 5 ' 5 7 1 

l 

TS 

1/ANET2  +1 

040-3 

R-FF  4 

_ -LAST 

14-8-8 

20, 3103 

-5-5-15  72 

1 

TS 

1/ANET2  +2 

0404 

REF  5 

LAST 

14  8 8 

20, 3104 

5 5 ' 6 1 1 

1 

TS 

1/ANET2  +17D 

0405 

REF  6 

LAST 

14  8 8 

20,3105 

5 5 ' 6 12 

1 

TS 

1/ANET2  +18D 

0406 

20, 3106 

0 00-06- 

1 

EXTEND 

0407 

REF  1 

20, 3107 

3 3071 

1 

DC  A 

TOROCONS 

0408 

20, 3110 

0 0006 

1 

EXTEND 

0409 

R-&F  3 70 

L-AST 

143  8 

20,3-111 

10  155 

1 

DV 

MP*\C  +1 

0410 

20, 3 112 

0 0004 

0 

INHINT 

0411 

REF  4 

LAST 

1483 

20,3113 

55' 531 

0 

TS 

1 JACCO 

SCALED  AT  PI/4 

0412 

REF  4 

LAST 

14  83 

20,3114 

55' 532 

0 

TS 

l JACCR 

0413 

REF  15 

LAST 

1482 

20, 3115 

3 1244 

1 

CA 

MASS 

SCALED  AT  2(16)  KG 

- - 0414 

20,3116 

0 0006 

1 

EXTEND 

0415 

REF  871 

LAST 

148  8 

20, 3117 

7 0154 

0 

MP 

MPAC 

SCALED  AT  4 PI  RAD-CM/SEC 

0416 

20, 3120 

0 0006 

1 

EXTEND 

04.1-7 

REE 7 

-LAST 

J.48-2  - 

_ 20,3121 

7 1246 

1 

MP 

ABDE  LV 

SCALED  AT  2(13)  CM/SEC ( 2) 

0418 

REF  4 

LAST 

1483 

20,3122 

0 2724 

1 

TC 

D VOV  SUB 

GET  QUOTIENT  WITH  OVERFLOW  PROTECTION 

0419 

REF  372 

LAST 

1488 

20,3123 

00155 

0 

ADRES 

MPAC  +1 

0420 

REF  4 

LAST 

14  8 3 

20, 3124 

55*511 

1 

TS 

ACCDOTP 

0421 

REF  1 

20,3125 

l 2632 

0 

TCF 

SP  SC  ONT 

CONTINUE  K,  KSQ  CALCULATIONS 

A0422 

2 2 

A0423 

COEFFICIENTS  FOR  CURVE  FIT  OF 

THE  FORM  Z=A  X +B  Y +C  X Y +D  X +E  Y +F 

0424 

20,3126 

06176 

l 

COEFF 

DEC 

.19518 

C COEFFICIENT  OF  INERTIA 

0425 

20,3127 

77650 

1 

DEC 

-.00529 

F ' • 

GAP-: ASSEMBLE  REVISION  069  OF  AGG-P-RS&KAM  LUMINARY  BY  NASA  20211-12-^044 l-9^-&2  NOV.  2 5,1-963 LMQAP -042 PAGE-  1AA9 

L AOSTASK  AND  AOSJOB  USER'S  PAGE  NO.  11  E6  S4 


0426 

20,3130 

72260 

0 

DEC 

-.17670 

B 

1 I 

0427 

20,3131 

76637 

1 

DEC 

-.03709 

A 

20, 3132 

02 16  7 

0 

D-EC. ... 

• 06_9  74 

E 

0429 

20, 3133 

00645 

0 

DEC 

.02569 

D 

* » 

? 0 t 3 1 34  - 

063-35^ 

1 

DEC 

.20096  - 

C 

COEFFICIENT  3T  CG . _ _ 

0431 

20  j 3 13 5 

04256 

l 

DEC 

.13564 

F 

1 1 

0432 

20,3136 

30163 

0 

DEC 

. 75704 

B 

1 1 

-0433 

-20,313_7  _ 

64  0-72- 

0 

DEC 

-.37  142 

A 

1 1 

0434 

20,3 140 

53632 

0 

DEC 

-.63117 

E 

1 1 

0435 

20,3141 

15133 

1 

OEC 

.41179 

D 

« • 

R0436  ASSIGNMENT  OF  TEMPORARIES  FOR  1/ACCS  (EXCLUDING  l/ACCONT) 

A 04-3 7 MPAC,  MPAC---U.,—- MPAC  *2  USED  - E XPLI  C-I.T.L  Y 

0439  REF  873  LAST  1488  0160  COEFCTR  EQUALS  MPAC  +4 

0440  REF  874  LAST  1489  0161  MASSCTR  EQUALS  MPAC  +5 

0441  PFF  «76 LAST-  14  8 9 0160 SCRATCHX  EQUALS  MPAC  +4 SCRATCH  AREA  FOR  DVOVSUB  ROUTINE. 

0442  REF  4 LAST  1486  0161  SCRATCHY  EQUALS  SCRATCHX  +1 

0443  REF  5 LAST  1489  016?  SCRATCHZ  EQUALS  SCRATCHX  +2 


0444 


REF  876  LAST  1489 


0157 


DOCKTEMP  EQUALS  MPAC  +3 


RECORD  OF  CSMDOCKED  BIT  OF  DAPBOOLS 
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P0445 

0446 

- 0447 REF 

0448 


6 L-AST-14  8 0 


20,3142 

20,2000 

20,3142 


BANK  20 
SE  TLOC  DAPS 3 
BANK 


- 0449  - REF  26 LAST--14-80  - F6,  1 337 


£BANK=  A-OS-O 


0450 

REF  4 

last  : 

L480  TO 

1490  : 

315  319* 

COUNT  * 

t t/DAPAO 

04501 

REF  7 

LAST 

1484 

20, 3142 

5 5 ' 6 3 1 

0 

-1 

TS 

INGTS 

ZERO  INGTS  IN  ASCENT 

0451 

REF  4 

LAST 

1402 

20, 3143 

3 1346 

1 

1/ACCONT 

CA 

DB 

INITIALIZE  DBVALl ,2,3 

04-5-2 

20,3144 

0 0006 

1 

EXTEND 

0453 

REF  63 

LAST 

1476 

20,3145 

7 4737 

1 

MP 

8 I T 1 3 

0454 

REF  301 

LAST 

1477 

20, 3146 

54  001 

1 

TS 

1 

0.25  OB 

0455 

REF  53? 

LAST 

14  8 6 

20,3147 

6 0000 

1 

AO 

A 

0456 

REF  1 

20, 3150 

54  1 15 

0 

TS 

DBVAL3 

0.50  DB 

04  57 

REF  1 

20,3151 

4 13  46 

0 

CS 

DBVA 11 

045-8 

ref  302 

IASI 

I49D 

20  ,-3X52 

- 6 0001 

0 

AD 

1 

0459 

REF  1 

20, 3153 

54  114 

1 

TS 

DBVA 12 

-.75  DR 

04-AO  - 

?0+ 3 1 34 

0 0004 

o 

GET  AOSUV 

INHINT 

0461 

REF  11 

LAST 

14  8 0 

20,3155 

31' 541 

0 

CAE 

AOSR 

COMPUTE  AOSU  AND  AOSV  BY  ROTATING 

0463 

REF  303 

LAST 

149  0 

20,3156 

54  001 

1 

TS 

L 

AOSQ  AND  AOSR. 

0 4-64  - 

RFF  2 7 

LAST- 

-14-90- 

70,3157 

3 1 ' 53  7 _ 

1 

CAE 

AJDSQ.  . 

0465 

REF  63 

LAST 

14  8 4 

20,3160 

0 4674 

0 

TC 

I BNKCA11 

0466 

REF  4 

LAST 

1446 

20, 3161 

37100 

1 

CADR 

R0T45DEG 

0467 

-RFF 1 

70,3162 

53' 544 

1 - 

DXCH 

APSU 

0468 

20, 3163 

0 0003 

1 

RE  1 1 NT 

0469 

REF  66 

LAS  I 

1486 

-20,3164 

3- 01 11 

0 

CA 

DAPB001S 

0470 

REF  7 

LAST 

144  7 

20, 3165 

7 4744 

0 

MASK 

DPIFTB1T 

ZERO  DURING  ULLAGE  AND  POWERED  FLIGHT. 

0471 

REF  533 

LAST 

1490 

20, 3 166 

10  000 

0 

CCS 

A 

IF  DRIFTING  FLIGHT, 

04-72 

R-EF  179 

LAST 

1487 

20,3167 

3 47  53 

1 

CA 

ONE 

SET  DRIFTER  TO  1 

0473 

REF  1 

20,3170 

54  116 

0 

TS 

DRIFTER 
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ALL  DONE 
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10 

LAST 

149  8 , 

E6, 1 563  . 

PDB  4 

EQUALS 

BLOCKTOP  +120 

0791 

REF 

11 

LAST 

149  8 

F6» 1 564 

PDB3 

EQUALS 

BLOCKTOP  +130 

0792 

REF 

12 

LAST 

1498 

E6, 1565 

PAXDI ST 

EQUALS 

BLOCKTOP  +140 

0793 

REF 

71 

LAST 

12  5 9 

0122 

ACC  SW 

EQUALS 

VBUF 

EXECUTIVE  TEMPORARIES 

A0794 

CANNOT  DO  CCS  NEWJOB  DURING  1/ACCS 

0 795 

RE  F 

_ 5 

-LAST 

L45I7 

Q123  

L/.ATEM1 

EQUALS 

AXC-SW  +1 

TEMP  BUFFER  FOR  U AND  V AXES 

0796 

REF 

7 

LAST 

1495 

0124 

1/ATEM2 

EQUALS 

1/ATEM1  +1 

0797 

REF 

8 

LAST 

1498 

0127 

1/ACOSTT 

EQUALS 

1 /AT  EMI  +4 

_ _ 0798 

RFF 

q 

LAST 

149  8 

0 131- 

Z 1 T EM  - 

EQUALS 

1/ATEM1  +6 

0799 

REF 

10 

LAST 

14  9 8 

0132 

Z5TEM 

EQUAL  S 

1 /AT  EMI  +7 

_ _ Q-S-Q-Q 

R-EF 

1 1 

LAST 

149  8 

- - -0 135- 

- - - UDBl  - 

-EQUALS- 

1/ AT  EMI  +LOD  _ 

JUL  AXIS  OFAOBANO  BUFFFR 

0801 

REF 

12 

LAST 

1498 

0136 

UDB2 

EQUAL  S 

1/ATEM1  +1 ID 

0802 

REF 

13 

LAST 

149  8 

0137 

UDB4 

EQUALS 

1 /AT  EMI  +120 

0803 

RFF 

74 

LAST 

14  9 8 

0 140 

UDB3 

EQUALS 

1/ATEM1  +130 

0804 

REF 

15 

LAST 

149  8 

0141 

U AX D I ST 

EQUALS 

1 /AT  EMI  +140 

- 08-05 

-REF 

IE 

LAS-T 

1498 

_ .0443  _ 

DBB 1 - - 

EQUALS 

12  A1  EMI  +L6D-  _ 

TEMP  OFAOBANO  BtJFFFR.  ALSO  V AXIS 

0806 

REF 

17 

LAST 

1498 

0144 

DBB2 

EQUALS 

1 /AT  EMI  +170 

0807 

REF 

18 

LAST 

14  9 8 

0145 

DBB4 

EQUALS 

1 /AT  EMI  +180 

0805-  - 

R-EF- 

19 

-LAST 

149  8 

— 0146 

- 0BB3 

EQUALS 

1/ATEMl  +19D 

0809 

REF 

20 

LAST 

1498 

0147 

AXDSTEM 

EQUALS 

1 /AT  EMI  +200 

08-1-0 — 

R-g-F 

— 24— 

LAS-T 

14  9 8 

01 54 

FLATEMP 

EQUAL  S 

1/AT  EMI  +22D 

0811 

REF 

22 

LAST 

14  9 8 

0152 

Z3TEM 

EQUALS 

l/ATFMl  +23D 

MUST  FOLLOW  FLATEMP 

0842 — 

-REF 

5— 

-LAST  149  0 

l 346 

DBVAL 1 

EQUAL  S 

DB 

0813 

REF 

5 

LAST 

615 

0114 

DBVAL2 

EQUAL  S 

INTB  15  + 

0814 

RFF 

6 

LAST 

149  8 

0115 

0BVAL3 

EQUALS 

I MB  15+  +1 

0815 

REF 

7 

LAST 

1498 

0116 

DR  I FT  ER 

EQUAL  S 

INTP15+  +2 

081-6 

ref 

87  7 

4 AST 

448  9 

0154 

U-V 

FQ11A1  F 

MPAC 

0817 

REF 

878 

LAST 

1498 

0157 

ANET 

EQUALS 

MPAC  +3 

0818 

REF 

879 

LAST 

149  8 

0157 

FUNTEM 

EQUALS 

MPAC  +3 

0819 

K-E-E 888  - 

-LASJ 

-L4_9  8 . 

016X1 

l / A NET 

EQUALS 

MPAC  +4 

0820 

REF 

881 

LAST 

1498 

0161 

ARET 

EQUALS 

MPAC  +5 

0821 

RFF 

882 

LAST 

1498 

0162 

ABSAOS 

EQUALS 

MPAC  +6 

0822 

RFF 

_883_ 

1ASJT 

149  8 

_ _ 0163 

SIGNAOS 

EQUALS 

MPAC  +7 

0823 

REF 

8 84 

LAST 

149  8 

0 164 

-SIGNAOS 

EQUAL  S 

MPAC  +80 

0824 

REF 

885 

LAST 

1498 

0165 

HOLD 

EQUALS 

MPAC  +90 

- 0825  . 

-R.EE 

59 

-LAST 

1396  _ 

0117  _ 

ACCRETRN 

EQUALS 

F1XL0C  -1 
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0826 

0827 

20.3652 

20.3653 
20 , 3-6  84 

00110 

00443 

77377 

1 

1 

1 

Z0NE3MAX 

FLATVAL 

-.03R/S2 

DEC  .004375 

DEC  .01778 

QCT  77377 

17.5  MS  (35  MS  FOR  1 JET) 
.8  AT  PI/4  PAD 
-P 1/217)  AT  PI  /? 

AT  4 SECONDS 

0829 

REF 

REF- 

REF 

45 

-44- 

2 

LAST  1492 
1 A,S  T 14-9-3 

4744 

4-733 

. 01 25RS 
1/.03  _ 

EQUALS  BITS 
EQUALS  P OSMAX 

PI/21+8)  AT  PI/2 
2L71/PI  AT  2 ( 7 ) / P I 

0831 

LAST  1408 

20, 3655 

02210 

0 

PAXISADR 

GENADR  P AX  I S 

A0832 

THE  FOLLOWING  4 CONSTANTS 

ARE  JET 

A0R33 

FAILURE  MASKS  AND  ARE  INDEXED 

0834 

20,3656 

00110 

1 

-UMASK 

OCT  00110 

-U 

0835 

20,3657 

00022 

1 

OCT  00022 

-V 

0836 

-_30. 3-66  0 

00204 

1 

+UMASK 

OCT  00204 

+ u 

0837 

20,3661 

00041 

1 

OCT  00041 

+v 
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P0001  PROGRAM  NAPE:  SPSRCS 

-R-0002 AUTHOR: EDGAR  M.  OSHIKA  (AC  EL-EGTTR0N4-CS-I 

R00021  MODIFIED:  TO  RETURN  TO  ALL  AXES  VIA  Q BY  P . S . WE  I S S MAN , 3 CT  7,  1968 


R0003  FUNCTIONAL  DESCRIPTION: 

R-0004- THIS  PROGRAM  CONTROLS  THE-  F I-R-I N-G  OF  ALL -RCS  JETS  IN  -THE  DOCK  FC  C ON  FI  GUR  AT-LON-  ACCOR  0 T NG  TO  THE  FOLLOWING  PHASE 

R0006  PLANE  LOGIC. 

-BQO07 U OUTER- RATE  L I-W  (SPSRCSI 

R0008  IF  MAGNITUDE  OF  EDOT  IS  GREATER  THAN  1.73  DEG/SEC  SET  JET  FIRING  TIME,  TJ,  TO  REDUCE  RATE  AND  THEN  RETURN  TO 

ROO 10 CALLING  PROGRAM  (REQUESTING  4 JETS  F-OR  R-AX  IS). 

R0011  OTHERWISE,  CONTINUE. 

ROO  1 2 2-. RATE  DE-AO  BAND  TEST  ( JXON-IESJJ 

R 00 13  IF  JETS  ARE  FIRING  NEGATIVE  AND  RATE  IS  GREATER  THAN  -0.101  DEG/SEC,  LEAVE  JETS  ON  AND  RETURN, 

ROO 15 IF  JETS  ARE  FIRIN G POSITIVE  AND  RATE  IS  LES S TUAN  +0.101  DEG/SFC,  LEAVE  JETS  ON  AND  RETURN,  OTHERWISE  CONTINUE. 

ROO 17  3.  COASTING  TEST  (SPSSTART) 

R0018  IF  STATE  (E.EDOT)  IS  BELOW  LINE  F + 4 X EDOT  > -1.4  DEG  AND  EDOT  IS  LESS  THAN  1.30  DEG/SFC  SET  J FT  TIME  POSI- 
R0020  TIVE  AND  RETURN, 

ROO  24 I-F  STATE  IS  ABOVE  LINF E + 4X  EDOT  > +1.4  DEG  AND,  FDOJ  TS__G  REATFR  THAN  -1.30  DEG/SFC.  SET  JET  TIME  NEGATIVE 

R 0023  AND  RETURN, 

R0024  OTHERWISE,  SET  JET  TIME  ZERO  AND  RETURN. 


R0025  THE  MINIMUM  PULSE  WIDTH  OF  THIS  CONTROLLER  IS  DETERMINED  BY  THE  RFP  FT  IT  I ON  RATE  AT  WHICH  THIS  ROUTINE  IS  CALLED 

R 00 27  AND  IS  NOMINALLY  100  MS  FOR  ALL  AXES  IN  DRIFTING  FLIGHT.  DUPING  POWERED  FLIGHT  THE  MINIMUM  IS  100  MS  FOR  THE 

R0029 P AXIS  ANn  200  MS  FOR  THF  CONTROI  OF  THE  U AND  V AXFS. 


ROO 30  CALLING  SEQUENCE: 


ROO 3 1 TC  SPSRCS  FROM  Q , R AXES  RCS  AUTOPILOT 

R0032  INHINT  FROM  P-4XIS  RCS  AUTOPILOT 

R0O33 I£ IBNKGAI  I 

R 0034  CADR  SPSRCS 


R0035  EXIT: 

ROOB7 TC Q 

R0038  ALARM/ABORT  MODE:  NONE 

EUX03-9 S-LU1RQUTJ-NE-S — CALLE-H: NONF 

R0040  INPUT:  E , EDOT 


GAP  : ASSEMBLE  REVISION  0 69  OF  A GC  PROGRAM  LUMINARY  BY  NASA  2021112-011 19:  02-  N0V_ 2-5»-L-968 LMQAP .012 PJLGE  1 SOI 

L SPS  BACK-UP  RCS  CONTROL  USER'S  PAGE  NO.  2 EO  S4 


R0041 

TJP,  TJV 

t TJU 

TJ  MUST  NOT 

BE  NEGATIVE  ZERO 

, T . J 1 1 

R0043 

NUMBERT 

= 6, 

WHEN  RATE  LIMITING  P AXIS. 

0044 

1 7, 3700 

BANK 

17 

0045 

REF  5 

LAST 

14  5 4 

17, 2000 

SETLOC 

0APS2 

004-6 

- 1.7,3  700 

BANK 

0047 

REF  1 

COUNT  * 

tt/D APBU 

0048 

REF  12 

LAST 

1452 

E6, 1525 

EBANK= 

TJU 

0049 

REF  18 

LAST 

1463 

17, 3700 

3 1425 

0 

SP  SRC  S CA 

EDOT 

00-5-0 

1 7,3  7QL 

-0  00.06 

-J 

EXTEND 

0051 

REF  1 

17,3702 

7 4766 

0 

MP 

RATFLIM1 

OUTER  RATE  LIMIT  = 1.73  DEG/SEC 

0052 

17,3703 

0 0006 

1 

EXTEND 

- - 0-0-53 

RE-F  1 

17,3704 

1 371  7 

1 

. BZF 

JTONTEST 

0054 

REF  3C8 

LAST 

1497 

17, 3705 

54  001 

1 

TS 

L 

0055- 

-REF  39 

LAST 

148  1 _ 

17,3  70.6 

3 6241 

0 

_ CA 

SIX 

0056 

REF  21 

LAST 

146  3 

17, 3707 

55' 741 

0 

TS 

NUMB  ERT 

0057 

REF  309 

LAST 

150  1 

17, 3710 

10  001 

1 

CCS 

L 

005-8 

REF  _ 1 

17,371 1 

1 3753 

1 

TCF 

NEGTHRST 

0059 

REF  23 

LAST 

1460 

17, 3712 

0 5677 

1 

TC 

CCSHOLF 

**TEMP  **  FILL  WITH  A CONSTANT 

0060 

REF  2 

LAST 

1459 

17, 3664 

R AT  EL  1 M2  = 

. 1AT  4 

= OCT  00632,  1.125  DEG/SEC 

0051 

RTF  28 

LAST 

13  90 

1_7,  371  3 

3 4736- 

_1_ 

POSTHRST  CA 

HALF 

0062 

REF  31 

LAST 

14  5 8 

17, 3714 

51'476 

0 

NDX 

AXIS  CTR 

00-63— 

R-S-E-  13 

L-AS-T 

15-0-1 

17,3715 

55*525 

0 

TS 

TJU 

0067 

REF  441 

LAST 

1496 

17, 3716 

0 0002 

0 

TC 

g 

0058 — 

— R-EE 33 — 

-t-AS-T- 

15-0  1 

1 7 74.7 

51 ' 476 

o 

JTONTFST  NOX 

A X-I  S CT-R 

0069 

REF  14 

LAST 

150  1 

17, 3720 

11' 525 

0 

CCS 

TJU 

0070 

17,3721 

1 3725 

0 

TCF 

+ 4 

00-71 

— RE-E 1 — 

17,3722 

1 3737 

jQ_ 

TCF 

-S-PSSTAPT 

0072 

REF  19 

LAST 

150  1 

17, 3723 

3 1425 

0 

CA 

EDOT 

0073 

17,3724 

1 3726 

0 

TCF 

+2 

0074 

REF  20 

LAST 

150  1 

17, 3725 

4 1425 

1 

+4  CS 

EDOT 

00744 

REF  539 

LAST 

1497 

17,3726 

22  000 

1 

LXCH 

A 

0074-6- 

- -RFF 69 

_LAS  T 

149  6- 

17,3  727- 

4 0111- 

1 

CS 

OAPB  OOLS 

IF  DRIFTBIT  = 1,  USE  ZERO  TARGET  RATE 

00748 

REF  8 

LAST 

1490 

17, 3730 

7 4744 

0 

MASK 

ORIF  TBIT 

IF  DRIFTBIT  = 0,  'JSC  0.10  R AT  F TARGET 

0075 

REF  540 

LAST 

150  1 

17,3731 

10  000 

0 

CCS 

b 

_ 00-75-2- 

— R-EE 1 

17,3732 

3 4767 

0 

CA 

RATEDB1 

00754 

REF  310 

LAST 

1501 

17, 3733 

6 0001 

0 

AD 

L 

0076 

17,3734 

0 0006 

1 

EXTEND 

0077  - 

17,3735 

6 373  7 

1 

BZMF 

+ 2 

0078 

REF  1 

17,3736 

1 3716 

0 

TCF 

POSTHRST  +3 
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0079 

REF 

21 

LAST 

150  1 

17, 3737 

3 

1425 

0 

SPS  S TART 

CA 

EDOT 

0080 

REF 

17 

LAST 

1463 

17, 3740 

6 

1750 

1 

AD 

E 

17,  3 74-1 

0 

00-06 

1 

EXTEND 

0082 

RFF 

2 

LAST 

228 

17,3742 

7 

1411 

0 

MP 

DKDB 

PAD  LOADED  DEADBAND.  FRESHSTART:  1.4  DEG 

0083 

17,3743 

0 

00  06 

1 

EXTEND 

OFF 

1 

_ 17, 3 7-44 

- 1 

3 7 61 

Q- 

BZF 

T JZE-PC 

0085 

17, 3745 

0 

0006 

i 

EXTEND 

0086 

17, 3 746 

6 

3 755 

0 

BZMF 

+ 7 

0087 

REF 

22 

LAST 

1502 

17, 3747 

3 

1425 

0 

CA 

EDOT 

0088 

REF 

1 

17, 3750 

6 

3664 

0 

AD 

R AT E L I M2 

0089 

17.3751 

0 

0006. 

1 

EXTFND 

0090 

REF 

2 

LAST 

1502 

17, 3752 

6 

3761 

1 

BZMF 

TJZERO 

0091 

RFF 

29 

LAST 

150  1 

17, 3753 

4 

4736 

0 

NEGTHRST 

CS 

HALF 

0092- 

R.E-E 

2- 

--LAST 

150  1 

17,3J54 

1 

3714 

_L 

TCF 

POSTHRST 

+ 1 

0093 

RFF 

2 

LAST 

15  0 2 

17, 3755 

4 

36  64 

1 

+ 7 

CS 

RATE  LIMP 

0094 

RFF 

23 

LAST 

1502 

17,3756 

6 

1425 

0 

AD 

FOOT 

. 0095 

17,  3 757 

0 

0006 

EXTFND 

0096 

REF 

3 

LAST 

1502 

17,3760 

6 

37  13 

l 

BZMF 

POSTHRST 

0097 

REF 

3 17 

LAST 

149  6 

17,3761 

3 

4755 

1 

TJZERO 

CA 

Z ERO 

- _ 0098 

R FF 

4 

LAST 

-15  0 2 

17,  2762 

_L. 

-3714 

1 

TCF  P OS  T HP  ST 

+ 1 

0099- 

- -R-F-F 

5 

1 AST 

14  2-2 

R AT  EL IM1 

-C-ALL  CODE 

= nnr>37,  rnRR  FSPfiNnT  NO  TIL  1.73  DEG/SEC 

0100 

REF 

i 

4767 

RATEDBl 

TBJ I LPFX 

= 00045,  CORRESPONDS  TO  0.101  DEG/SEC 

***  END  OF  LMCAP 


012  *** 
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SYMBOL  DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REF  ERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

aO-V7-*vAfl  ] 7t  U,7? 

1-463 

1 

14-5  9 

-„0  35/-S2 

20 , 3654- 

1499 

£ 

14  91 

-1497 

-IIMASK 

149  9 

2 1494 

L497 

.0125RS  4744 

= 

1499 

I 

1493 

- . 05  A T2 

17,3671 

1463 

i 

1458 

-UP 

00,2620 

1058 

1 

1057 

•0375AT4  17,3666 

1463 

1 

1461 

-. 15AT2 

17,3672 

1463 

i 

1458 

— XM  I N 

16,3041 

1426 

1 

1426 

. IAT2 17,3 665 

1-463 

1 

i^6a 

_ . __  -AYO  - 

E3  ,3  713 

L27 

_L 

11  42 

-XTRANS 

1 7_,  2 1 2 0 

1437 

l 

1437 

. 1AT4  17,3664 

1463 

2 

1459 

1501  -AZ 

21,2055 

820 

-0. 3D/S 

0 1,  2340 

31  l 

1 

309 

.166...  23,3441 

1252 

1 

1248 

— AZB I T 

4746 

= 

821 

1 

820 

-0.60/S 

01,2337 

310 

1 

309 

. m 11,  3-67-5 

1-242 

1 

1213- 

-B IT  10 

06,3004 

1 96  _ 

. 1 

192 

-1JJ.2 

1 3jl37 3 7 

1243 

1 

1232 

. 5SEC  4774 

1091 

3 

526 

1329  -BIT12 

7740 

= 

539 

1 

5 39 

-1/2+2 

00, 2444 

1054 

1 

1075 

•5SECB17  33,2176 

609 

1 

609 

-BIT14 

7735 

1093 

2 

1418 

-1/8 

7740 

1093 

3 

539 

1462 

. 6666  7 —2  1 , 3AA6- 

14  70 

2- 

- L4-6-9 

-CCSPR 

01,3127 

1LQ8 

1 

1110 

— 1CHK  _ 

43.3301 

1281 

5 

1282 

1287 

.707  17,3127 

1451 

2 

1451 

-COMMAX 

07,3720 

1325 

2 

1307 

1308 

-100MS 

16,3600 

1435 

2 

1465 

07,3721 

1325 

2 

1307 

1308 

-100MST6 

16,3714 

1466 

3 

1465 

( APO) 30,2311 

_843 

2_ 

_8-4_0 

843  -GO S3 

E5 ,1 644 

= 

138 

1 

138 

-136MST6 

16,3555 

1434 

2 

1431 

1434 

( AT  ) A 32,2004 

54 

1 

842 

-DELGMB 

E6, 1673 

= 

151 

1 8 

913 

917 

-15DEGS 

06,2513 

1 85 

1 

184 

(TBUP)A  32,2006 

54 

1 

842 

-EL 

21,2067 

821 

-150MS 

17, 3042 

1449 

1 

1447 

C TGOJ.A  32,360  1 

_ 838  _ 

1— 

-339 

-EL3I1  _ 

4753 

= 

821 

1 

821 

-160MST6 

16,3512 

1433 

1 

1433 

(l/DVIA  32,2000 

53 

I 

842 

-ELR 

05,3347 

238 

1 

233 

-2DEG 

17,3662 

1463 

2 

1456 

-ENDERAS 

7742 

1093 

1 

1000 

-2JETLIM 

E 6, 1473 

145 

4 

145 

1481 

+ AZ  21,2062 

_82Q 

_ — FNDVAC 

6250 

1004 

2 

1000 

1018 

-2SEC 

10,3457 

1376 

1 

1363 

+AZBIT  4747 

= 

821 

1 

320 

-EOUROEG 

16,3513 

1433 

1 

1433 

-45DEGSR 

7737 

= 

543 

1 

542 

+DECSGN  40,2303 

414 

1 

413 

-FOURDT 

27,2570 

779 

1 

778 

— 50DEGSR 

25,2231 

543 

1 

543 

*-PQ-WN-  - 0-0  ,-2610 

1-0  55 

1 

10-57 

-GYROMT  N 

07 ,3473 

1317 

2 

13  17 

1320 

- 50  SC 

04.2773 

1181 

1 

1169 

♦EL  21,2074 

8 21 

-LINT 

31,3737 

826 

1 

825 

-70DEGS 

06,2512 

185 

l 

184 

+ELBIT  4752 

= 

821 

1 

821 

-LOKONFG 

23,2040 

286 

-80DEGSR 

25, 2232 

543 

1 

543 

+\  I MJ  T 4 ? r 33  3 ^ 

1 

43  5 

— M AXADRS 

4350 

1 ? po 

] 

1 ? 85 

+ MG  A £4,1656 

= 

133 

5 

329 

701  -MUDT 

33,2031 

59 

1 

881 

/AF/CNST 

31, 2444 

801 

1 

797 

♦ON  40,2413 

415 

3 

415 

454  -MUDTMUN 

33,2035 

60 

1 

8 84 

/AFC/ 

£2, 1573 

= 

164 

3 

797 

819 

+ QMIN 17  ,2223 

14  39  - 

1 

1435 

=»UDT1 

33,?033 

_59 

/8IJF  + 

OOj  2 72  1 

1062 

2 

1061 

+RMIN  17,2233 

1439 

1 

1439 

—OCT  1 0 

6221 

1003 

1 

1003 

/ 8U  F- 

00,2715 

106  1 

2 

1061 

+TJMINT6  17,3041 

1449 

4 

1439 

1448  -OCT 6 30 

16,2304 

1417 

1 

14  17 

/LAND/ 

E 4 , 1 736 

= 

136 

10 

135 

884 

+UMA-SK  -20-^3-660—- 

1499 

1- 

1494 

-ON 

40,2433 

416 

2 

415 

454 

/MPAC+ 

00,2767 

1063 

2 

1063 

+ XMIN  16,3043 

14  26 

l 

1426 

— PH A S E 1 

0752 

116 

7 

229 

1295 

/MP AC— 

00,2763 

1063 

2 

1063 

+XORULGE  17,2117 

1437 

2 

1436 

1437  -PHASE2 

0754 

117 

8 

2 29 

873 

/NORM 

00,2732 

1062 

1 

106  2 

— *1EBS 31,3  756 

_827 

1 

319 

-PHASE3 

0756 

1 1 7 

6 

229 

866 

/ N0RM2 

00,2725 

1062 

I 

1062 

+150MST6  16,3575 

1435 

1 

1431 

-PHASE4 

0760 

117 

9 

2 29 

1377 

/R/MAG 

E 4 , 1674 

= 

135 

5 

135 

852 

+ 3FPS  31,3757 

8 27 

1 

818 

-PHASE5 

0762 

117 

2 

229 

860 

====  -PHASE6 

0 764 

1 17 

6 

2 29 

1388 

9 

6001 

— 

756 

♦ENTER  36,3054 

754 

l 

753 

-QMIN 

17,2227 

1439 

i 

1438 

7GUIDSUB 

31,2514 

803 

1 

790 

*NBSM*  23,3577 

1258 

6 

561 

965  — R AT E OB 

E6 , 1474 

= 

145 

7 

145 

1441 

♦BRQC££D-36-,3-Q5J 

753 

- 1- 

753 

_ -RMTN 

17,2235 

1439 

1 

1439 

A 

0000 

- 

108 

540 

173 

1 501 

♦SMNB*  23,3575 

12  58 

8 

499 

964  -RRLIMIT 

25,2315 

546 

2 

547 

A-PCHK 

13,3157 

1211 

4 

1208 

1221 

= = ==  = = = ==  = = = ==  = = = = 

0164 

= 

1498 

10 

1491 

1497 

AAPFG 

E 5 , 1446 

= 

137 

i 

137 

-.0  U2A8-  17,3663 

-L4  63 

1 

145-8  . 

-T  J MAX 

17,3675 

1463 

2 

1459 

1460 

AAPFG* 

E 5 , 1456 

= 

137 

i 

137 

-.025AT2  17,3667 

1463 

1 

146  1 

-T JMIN 

17,3677 

1464 

1 

1461 

ABCLOAD 

41,2616 

438 

i 

422 

-.025AT4  17,3670 

1463 

1 

1459 

-TPER 

E4, 1542 

= 

131 

6 

321 

729 

ABOELV 

1246 

- 

121 

7 

121 

1488 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMB01 

DEF 

H 

REFEPENCES 

SYMBOL 

DEF 

H 

REFERENCES 

4- 

AA1 

ACDT  +C 1 2 

15*3721 

1470 

? 

1422 

1474 

AECCAIX2 

^ 1 , 

R 1 R 

ABLOAD 

41  i?703 

4 39 

1 

422 

ACENTRAL 

E6, 1744 

= 

147 

4 

1468 

1469 

AFCCALC3 

31, 3223 

813 

1 

813 

ABORT 

5644 

= 1378 

ACG 

E4, 1670 

= 

135 

3 

135 

813 

AFCCL  END 

31, 3231 

813 

2 

813 

A RDRT  A!  M _2  1 , 2 *10. 

837 

2- 

837 

ACM.O.D.B  I T 

4737 

= 

84 

A F DUMP 

31,2254 

797 

ABORTON 

21 ,3253 

906 

1 

906 

ACMODFLG 

0040 

= 

84 

3 

508 

510 

AFTERTJ 

17,2661 

1447 

3 

1439 

1446 

ABORTS 

32 ,2000 

= 33 

3 

53 

837 

ACOS=  0 

00,3637 

1079 

4 

1079 

1081 

AFTRFLTR 

30,3166 

912 

1 

911 

ABORT YZ 

16., 2750 

1424 

1 

1434 

ACQ.SABRT 

00,3723 

1081 

AFTRGUID 

31,2470 

803 

1 

813 

ABORT  2 

5654 

1377 

1 

1377 

ACOSOVF 

00,3721 

1081 

1 

1079 

AGAINMM 

04, 2072 

243 

1 

243 

ABOUTONE 

15,2046 

266 

2 

265 

957 

AC  OS  S HR 

00,3714 

1081 

1 

1079 

AGSBUFF 

E 4 , 1604 

= 

133 

14 

133 

289 

ABRTG 

E 5 » 1416  - 

. = 137 

-2 

43  7 

826  ACOSST 

00,3625 

1079 

1 

1079 

AGS  RUFF  E 

E4, 1621 

= 

133 

ABRFG* 

£5,1426 

= 137 

2 

137 

826 

AC0SST2 

00 , 3642 

1079 

2 

1079 

AGSDISPK 

32,2032 

222 

ABRT  ABLE 

36,2110 

741 

1 

838 

ACOSZERO 

00 ,3731 

1081 

1 

1079 

AGSENO 

32,2132 

223 

2 

223 

A BP  T P l SP 

30  t ? 747 

- 851 

AC0S3- 

00,3652 

1080 

1 

1081 

AGS  I NIT 

3 2j_20J5 

? 2 1 

1 

289 

ABRTIGN 

36  ,2503 

747 

1 

741 

AC  TC  E NT 

E3, 1755 

127 

2 

329 

682 

AGSK 

E4, 1420 

129 

6 

211 

223 

ABRTJ  ADR 

21,2200 

8 30 

1 

830 

ACTIVE 

23,2363 

706 

4 

637 

706 

AGSLIST 

05,2407 

= 

208 

. ABRT  J ASK- 

_2 1,2201 

830. 

1 

-340 

ADD-GR  A V 

15,3006 

. .964 

1 

964 

AGSRND1 

32*2213 

224 

2 

224 

ABS 

00,3226 

1071 

4 

823 

1070 

ADDRESS 

6102 

999 

AGSRND2 

32,2221 

224 

2 

224 

A8SA0S 

0 162 

= 1498 

9 

1491 

1494 

ADDRWD 

0116 

112 

82 

9 20 

1259 

AGSUPDAT 

0001 

= 

250 

ABSEDOTP 

-86,1735 

= 146_ 

2 

143  Q 

ADG  - . 

F5  * 1 41 6 

= 

826 

2 

806 

813 

AGSVCALC 

3 2 ,2046 

222 

1 

222 

ABSTJ 

E6 ,1 735 

= 146 

9 

1431 

1449 

ADG2TTF 

F5 , 1426 

= 

826 

1 

811 

AGSWORO 

1324 

122 

5 

223 

836 

ABTVINJ1 

£5,1503 

= 138 

2 

138 

842 

AD  I A X 

E3 , 1463 

126 

1 

342 

AHEAD5 

6432 

1011 

i 

1011 

ABIVI.NJ2- 

E 5 , 1 5 05 

= 148 

_2- 

.4  3_a 

842. 

AD  I AY 

F3, 1464 

126 

1 

34? 

A I G 

67,1455 

154 

u 

214 

893 

ABVAL 

00,3201 

1070 

ADIAZ 

E3, 1465 

126 

1 

343 

AIGBANK 

26,3275 

596 

2 

590 

595 

ABVALABS 

00,3176 

1070 

1 

1008 

A0RPCHN2 

5366 

1293 

1 

1293 

AIMER 

30,2675 

851 

1 

850 

A-BV-EL- 

-E7 ,1467 

= 162 

7 

—16  2 

.889 

ADRRU.PT 

17,3175 

1452 

1 

1452 

A INGOTN 

37,2217 

389 

1 

389 

ACADN83 

36,3746 

770 

1 

765 

ADRS+1 

43,3633 

1286 

AINLA 

65,1434 

= 

143 

33 

143 

ACADN85 

36,2054 

= 7 70 

1 

761 

ADRSCAN 

27,2237 

758 

1 

758 

AK 

E6 , 1757 

152 

21 

152 

1414 

-ACCD04  Q . 

E6-,  1507  - 

1-47- 

8_ 

-447 

4 4.84 

AD-RS.CHK  _. 

43, 360  2 

128.5 

2 

1285 

A K 1 

E6j  176  0 

152 

1 

1413 

ACCDOTR 

£6,1511 

= 147 

4 

1470 

1488 

ADR  SO  I F 1 

E6, 1744 

= 

148 

1 2 

1455 

1463 

AK2 

E6 , 1761 

= 

152 

1 

1413 

ACCEPTUP 

04,3230 

1332 

2 

1333 

ADR  SO  I F2 

E6.1742 

= 

148 

1 1 

1455 

1462 

ALARM 

5567 

1375 

50 

179 

1452 

-ACCEPT  WO 

4 1-,  2 027— 

419 

2 

— 41  9 

. ADRS  1 

43,3252 

1280 

1 

305 

ALARM/TB 

35.2367 

641 

1 

631 

ACCFCTZ1 

E6 , 1 575 

= 149 

1 

1460 

ADR40400 

5734 

1378 

1 

1377 

ALARMIT 

27,2562 

779 

1 

77  8 

ACCFCTZ5 

E6 , 1 576 

= 149 

1 

1458 

ADR77770 

5733 

1378 

1 

1378 

ALARMMGA 

30,3727 

923 

1 

913 

-ACCRE-RF  _ 

20,3321 

L492 

1_ 

14-9.2- 

AD-S-RAX 

E3 , 1466 

1 26 

1 

34? 

ALARM1 

5724 

1378 

1 

1081 

ACCOKFLG 

0317 

= 104 

AD  SR  AY 

E3, 1467 

126 

1 

342 

AL4RM2 

5571 

1375 

2 

1280 

1 377 

ACCOMP 

1 1,2431 

12  26 

1 

1234 

AD  SR  A Z 

E3, 1470 

126 

1 

3 42 

ALCGKK 

37,2627 

398 

ACCRE4RN. 

0447 

= 1448 

2 

1480  1496 

AD  SUM 

43,3571 

1285 

2 

1285 

ALOK 

65,153? 

= 

143 

3 

398 

399 

ACCSOKAY 

4 751 

= 104 

3 

234 

1496 

ADTI ME 

35,3200 

6 79 

1 

679 

ALFDK 

E4 , 1 4?  2 

133 

1 

398 

ACC  SW 

0 122 

= 1498 

5 

1495 

149  8 

ADUPBFM1 

04,3603 

1387 

2 

1383 

13  84 

ALFLT 

37,2577 

398 

1 

39  7 

-AC  C S W U 

E6 ,1547 

= . 4-49— 

3 

149 

1495 

ADUPBUFF 

04,3436 

1384 

1 

1 3 8? 

ALFLT3 

37,2644 

398 

1 

398 

ACC  SW V 

E 6 ,1550 

= 149 

1 

1495 

ADUPTEMP 

04,3435 

1384 

1 

1383 

ALGORTHM 

21,3323 

1463 

ACCTHERE 

20,3353 

1493 

1 

1492 

ADVAN 

01,3211 

11  11 

2 

1105 

1281 

ALIGNCOA 

37, 231 1 

391 

3 

391 

ACCWD 

E5.,  15  12 

= L43 

2 

3 99  - 

. 4.0.0  ADVANCE 

34,3016 

652 

2 

632 

637 

ALILP 

37,2667 

399 

l 

399 

ACC4-2FL 

0307 

= 103 

2 

832 

839 

AFCCALC 

31 ,3171 

813 

1 

811 

ALINEX 

26,2045 

352 

ACC 40R2X 

4741 

= 103 

2 

308 

1437 

AFCCALC1 

31,3174 

813 

l 

819 

ALTNEZ 

26, 2071 

353 

1 

352 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REF  ERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

4^  2 411 

? qh 

1 

- 211 

AJ.IPR.Y7 

16*7761 

1425 

1 

1424 

APSF  SRT  T 

4747 

_ 

- 96 

ALK 

E 5 , 1 446 

= 143 

6 

143 

399 

ALTI  M 

E5 ,1530 

= 

143 

2 

397 

A 0 SE  SW 

0202 

= 

96 

2 

1 194 

1195 

ALKCG 

37,2632 

3 98 

ALTIMS 

E5, 1531 

= 

143 

2 

397 

398 

APSFLAG 

0230 

= 

98 

3 

780 

795 

A-LK-C-G-2 

37 » 263-5  - 

3-98- 

l- 

39  8 

..ALIM 

0060 

= 

109 

1 

898 

APSFLBIT 

4737 

= 

98 

15 

228 

1480 

ALKLP 

37,2676 

399 

1 

399 

ALTOUT 

21,2424 

898 

1 

8 97 

APSIDES 

12,3675 

1195 

1 

70  4 

ALLCOAST 

20,2204 

1403 

4 

244 

768 

ALTRATE 

E7 , 1707 

= 

1 66 

5 

1 66 

898 

APSTGO 

27,2725 

782 

1 

781 

ALL-DC/OC- 

4 1 f_3.0J.-I— 

. 4-40- 

2 

43  8 

-439. 

_AL  TROUT 

21  ,2353 

897 

A PS VEX 

33j-2000 

54 

3 

765 

861 

ALLJETS 

17,3 162 

1452 

2 

1451 

1452 

ALTSAVE 

E7.1710 

= 

1 66 

1 4 

166 

899 

ARATE 

22,2771 

377 

3 

377 

ALLOOP 

37,2536 

397 

2 

396 

397 

ALTSCALE 

0272 

= 

102 

ARCCOS 

00,3612 

1079 

1 

1008 

- ALLLUGIS- 

-E6-,  L 50  1 _ 

= 1 49 

7 

1407 

1496 

ALTSCBIT 

4743 

= 

102 

ARCDMP 

21,2362 

897 

ALLREAD 

25,3074 

5 64 

1 

565 

AL  TSYST 

16,3410 

1432 

2 

1432 

ARCONV 

21,2000 

57 

1 

897 

ALLSET 

35,3443 

6 86 

1 

686 

ALXXXZ 

37,3076 

402 

1 

396 

ARC0NV1 

33,2027 

57 

1 

878 

ALLSIALL 

1.3., 3 4 14 

1214 

2- 

1216 

AL  X 1 S_ 

E5 ,1444 

= 

143 

4 

396 

402 

ARCSIN 

00,3610 

1079 

1 

1008 

ALL  IS 

26,3645 

603 

1 

602 

AM 

E6 , 1733 

150 

3 

365 

377 

ARCTAN 

13,2510 

1132 

5 

491 

1129 

ALL30EC 

42,3567 

449 

1 

447 

AMEMORY 

E4, 1400 

= 

129 

ARCT ANXX 

13,2536 

1132 

2 

1132 

A4L4-&-I-JS 

21 ,2  0-77 

- 821- 

2- 

-82-0- 

AMG 

E 7 ,145.6 

154 

3_ 

581 

603 

ARCTRGSP 

30j_35  73 

921 

3 

919 

ALM/END 

43,2120 

279 

24 

277 

296 

AMOVED 

11,3533 

12  39 

i 

1238 

ARCTR I G 

23,3272 

1246 

9 

314 

1 249 

ALMCADR 

1363 

= 124 

14 

L 2 4 

1378 

ANET 

0157 

= 

1498 

1 1 

1492 

1497 

ARET 

0161 

= 

1498 

3 

1492 

1497 

ALMCYCLE 

4145- 

459- 

14 

420 

-4-60 

AN  GET  IMF- 

22,-3001 

377 

i 

377 

AR.G  + 

7264 

103  1 

i 

1031 

ALMNC ADR 

5726 

13  78 

ANGTERM 

E4 , 1704 

= 

135 

3 

135 

814 

ARGHI 

00,3417 

1075 

2 

1076 

ALMXI T 

35,2040 

631 

2 

65  1 

ANGX 

E5 , 1 500 

= 

143 

2 

400 

401 

ARGLO 

00,3470 

1076 

1 

1076 

ALMX-I-T-A 

35,-2036- 

_ 631 

L_ 

-6-4-8 

-AALGY 

E5-,  1476 

= 

143 

1 

401 

A RG  7 FRn 

7304 

1031 

1 

1031 

ALOAD 

41,2732 

439 

i 

422 

ANGZ 

E5, 147? 

= 

143 

1 

401 

ARGZER02 

7301 

103  1 

1 

1031 

ALOADED 

13,3150 

1211 

2 

1210 

1211 

ANTENBIT 

4740 

= 

101 

ARG90 

5067 

1097 

1 

1097 

ALPHA 

-0010 

-=—11-97 

4- 

-1X6-9 

1171 

ANTFNFI  G 

0267 

- 

101 

AROUT 1SF 

40,2704 

432 

l 

430 

ALPHAM 

E4 , 1467 

= 130 

13 

130 

1231 

AOG 

E7 , 1457 

1 54 

7 

2 14 

893 

ARTHINSF 

40,3076 

445 

1 

444 

ALPHAQ 

E6 , 1 422 

= 144 

6 

210 

1480 

AORBSFLG 

0315 

= 

1 04 

ARTIN1SF 

40,3111 

44  6 

1 

444 

ALP  EAR- 

-EL-,1  -423- 

= L-44 

5. 

1404  . 

X4.3IL 

AORBSY SI 

4747 

= 

104 

2 

1431 

1432 

AR.TOA 

2 1,2001 

57 

1 

89  8 

ALPHA  SB 

E4 , 1604 

= 134 

4 

134 

329 

AORBTFLG 

0310 

= 

103 

1 

750 

ART0A2 

21,2002 

57 

1 

898 

ALPHATRY 

21,3465 

1473 

A0R8TRAN 

4742 

= 

103 

2 

1437 

1439 

ARTOUTSF 

40,2677 

432 

2 

430 

431 

ALPHA-V 

14 ,143  1- 

= 1 30 

34 

13-0— 1241 

AQ.S-Q 

E6.1537 

148 

2 7 

148 

1490 

ARUPT 

00  10 

- 

108 

13 

168 

1452 

ALRM503 

24,3014 

521 

1 

52  1 

AOSQTERM 

E6, 1545 

148 

7 

148 

1422 

ASCALE 

13,3733 

1242 

1 

1728 

ALRM514 

24,2340 

511 

1 

509 

AOSR 

E6.1541 

= 

148 

1 1 

1404 

1490 

ASCENT 

30,2313 

846 

4 

835 

845 

ALRM525 

24-, 2 70 7 

519 

-517 

AO-SRTERM- 

E8,1546 

148 

6 

1404 

1422 

ASCF ILT 

34, 2000 

- 

33 

l 

844 

ALRM526 

24,2336 

511 

l 

508 

AOSU 

E6.1543 

= 

148 

3 

1490 

1491 

A SCRSTRT 

30,3011 

852 

3 

847 

851 

ALRM527 

24,3015 

521 

1 

52  1 

AO  S V 

E6, 1544 

= 

148 

A SC  SPOT 

33,2443 

868 

— ALS  LG  NA  G- 

7-54-3- 

1038 

- -5- 

8 8-6  10.64  AO  TAT- 

E7 , 1404 

153 

4 

169 

953 

ASCTFRM 

30,2730 

85  1 

2 

851 

853 

ALSK 

37,3103 

402 

1 

399 

AOTCODE 

0735 

= 

116 

12 

2 11 

959 

A SC  TER  Ml 

30,2743 

85  1 

1 

857 

ALT 

1 124 

= 120 

6 

120 

1131 

AOTEL 

E7 , 1407 

153 

1 

261 

A SC  TERM  2 

30,2763 

852 

1 

847 

ALT  B I LS 

E7 , 1737 

-= L66 

5 - 

16-6  - 

ccj 

CO 

AOTMA-RK  . 

.07,2000 

2 59 

3 

° 38 

958 

ASCTFRM3 

30,2766 

852 

4 

851 

857 

ALTCALC 

22,2131 

366 

1 

365 

AOTMARK 1 

07,2000 

= 

28 

2 

2 59 

266 

A SCTERM4 

30,2767 

852 

i 

844 

ALTCHK 

33,2716 

8 79 

2 

879 

830 

A0TMARK2 

05,2000 

= 

28 

1 

2 64 

ASFCXT 

E 5 , 1573 

= 

143 

ALJCXLNV 

33,2025 

51 

1 

. 87-7  . 

AOTST  ALL 

07 , 3665 

1323 

3 

948 

1324 

ASFNT 

30,7000 

= 

33 

3 

54 

855 

ALTCR  IT 

33,2731 

= 879 

1 

879 

APO 

E7 ,1642 

= 

167 

5 

167 

840 

A SEN  T l 

27,2000 

— 

32 

1 

85? 

ALTDSPL Y 

20,2226 

1409 

1 

1408 

APOPERI 

23,2000 

= 

31 

1 

704 

ASINEX 

00,3707 

1080 

1 

1079 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

1 3 3? 

1 

13  5 7 

AUTR1FLG- 

032  L- 

- 

ASTAR 

15,3144 

967 

1 

967 

AUTR2FLG 

0320 

= 

ASTNB  IT 

4740 

= 

93 

1 

746 

AUXFLAG 

0147 

= 

Ip 1 77 

7 92 

AUXFLBIT 

4252 

= 

ASTNDEX 

32 ,3247 

793 

1 

792 

AVECTR 

0024 

= 

ASTNFLAG 

0154 

= 

93 

4 

745 

766 

AVEGEXIT 

1252 

= 

A ‘s  T MR  FT 

7?  j 1PGZ 

792 

1 

75  3 

A V-EGEB 1 T 

4747 

= 

ASTNRETN 

36,3040 

753 

1 

752 

AVEGFLAG 

0163 

= 

ASTOK 

26,3374 

597 

1 

51  8 

AVEGOUT 

37,3503 

ASI-RDMSK 

10 , 3372 

1366- 

1 

13  62 

AlYEIT 

07,2276 

ASTROTIM 

04  ,2627 

710 

1 

711 

AVEMOBIT 

4753 

= 

AT 

E4, 1656 

= 

135 

7 

135 

850 

AVEMIDSW 

0225 

= 

AT/RCS 

30  , MOO 

_54„ 

1 

84  7 

AVERAGEG 

33,2272 

ATAN=90 

13,2543 

1132 

1 

1132 

AVERTRN 

32,3707 

ATDECAY 

36,2012 

53 

1 

842 

AVESTAR 

07,2241 

AT IGI NC_ 

£7, 1400 

153 

. . 4 

. 400 

- 73-6- 

AVETOMID 

13,3513 

ATMAG 

34,3637 

844 

2 

756 

8 38 

AVFLAG 

0050 

= 

ATMAGAD 

32,3610 

8 38 

1 

834 

AVFLAGA 

35,2313 

ATMAG-A-OR 

36-,  3140 

756 

1 

747 

AVFL4GP 

35,2320 

ATOPCSM 

13,2661 

1205 

5 

36 

1239 

AVFLBIT 

4747 

= 

ATOPLEM 

13,2734 

1206 

4 

36 

1239 

AVGEND 

32,3661 

A-TOPOJH 

1 3,7661 

— 

36-- 

l 

719 

AVGEX.iT. 

1252 

= 

ATOP  T H I S 

13,2734 

= 

36 

AVOUTCAD 

37,3521 

ATP 

E4 , 1764 

= 

136 

4 

136 

853 

AX*SR*T 

23,3601 

A-TR 

_E4* 1762 

_ 

1 36 

3 

13-6- 

- 8-50- 

AXC-  - 

01 , 2346 

ATTACHED 

43 ,3150 

312 

i 

277 

AXDSTEM 

0147 

= 

ATTACHIT 

43,3155 

312 

i 

312 

AXISCTR 

E6, 1476 

ATT-CA-BR- 

13-07 

1 22 

6 

122 

1325 

AX  ISD1F-F 

17,3657 

ATTCHK 

15,3535 

975 

i 

963 

AX  I SD1 ST 

E6.1605 

= 

ATT  CK  2 

42,2035 

2 97 

2 

296 

297 

AXISGEN 

23,3345 

ATTFLAG 

_ JXl  30 

- 

- 93 

1 

974 

A-X  LSG£N1 

23 ,3353 

ATTFLBIT 

4753 

= 

93 

3 

972 

975 

AX  ISGEN2 

23,3402 

ATTPR 10 

1311 

= 

122 

2 

382 

1325 

AX  ISGEN3 

23 ,3425 

ATTSCAI  f 

42,2053 

297 

1 

29  7 

AXO 

E3 , 1 7 1 5 

ATTSTEER 

17,2616 

= 

1446 

1 

1438 

AX  T 

01,2341 

ATY 

E4 , 1 760 

= 

136 

5 

136 

853 

AZ 

1347 

AUG2. 

07, 3552 

1319 

1 

1313 

A7 FACH 

?l  ,2100 

AUG3 

07,3523 

1318 

1 

1319 

AZEL 

14,3665 

AURLKONi 

23,2034 

2 86 

1 

286 

AZ  IMUTH 

E5 , 1400 

= 

A U R L OK  ON  23  , 20  Q0-. 

-286. 

1 

284 

AZ INC  R 

E7 , 1554 

= 

AUTOMANV 

26,2144 

487 

AZ I NCR  1 

F7 , 1643 

= 

AUTOMBIT 

4752 

- 

102 

AZO 

E 3 , 1 7 1 1 

AUTOM-ODE 

0301 

- 

102 

A2CMTRAL 

E6 • 1737 

- 

AUTRATE1 

4 75  3 

= 

104 

AUTPATE2 

4752 

= 

104 

B*RNB*B* 

36,2133 
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RACK  HAND  1 7,  2467 1442 1 1443 


BACKP 

16,2305 

1417 

1 

1466 

8ADDES 

25,2623 

557 

1 

557 

3 

862 

863 

BADFND 

07,3635 

1322 

2 

574 

1321 

7 

1138 

1140 

BADOPT 

15,3633 

977 

7 

121 

765 

BAOR AD 

25,3206 

566 

6 

566 

569 

4 

201 

859 

BADROOT 

3 1,  3647 

824 

5 

243 

834 

B ADR  2 

1 2, 3665 

1195 

2 

1194 

1 

859 

BADX 

12,231  1 

1173 

3 

1 170 

1171 

1 

265 

BAILOUT 

5634 

1376 

l 

1416 

B AT  L OUT  1 

5710 

1377 

7 

259 

1371 

3 

3 34 

1218 

BALLANGS 

26,2244 

490 

4 

353 

530 

RALLEXIT 

1342 

123 

2 

490 

491 

1 

865 

BANKCALL 

4616 

993 

310 

222 

14  80 

2 

2 67 

268 

BANK JUMP 

4640 

993 

23 

286 

14  96 

_ L 

865 

B ANKM4SK 

4350 

= 1094 

3 

1005 

1018 

8 

639 

783 

BANKRUPT 

0016 

= 108 

13 

170 

1416 

6 

631 

736 

BANKSET 

0165 

115 

14 

995 

1366 

6 

631 

736 

BASEOTP 

E4? 1 53  7 

= 131 

2 

714 

715 

BASEOTV 

E4, 1517 

= l?  1 

2 

714 

715 

1 

860 

BASETEMP 

1061 

= 247 

2 

247 

7 

746 

866 

BASETHP 

E4, 1567 

= 131 

2 

714 

1 

860 

BASETHV 

E4, 1504 

= 131 

2 

714 

2 

6 12 

1257 

BASETIME 

E4, 1513 

= 131 

3 

714 

715 

1 

1007 

BAWL  ANGS 

26.2000 

= 31 

2 

352 

490 

4 

1494 

1496 

S3 

0006 

= 1294 

3 

1293 

1300 

32 

I 47 

1501 

BBANK 

0006 

= 108 

44 

168 

1375 

-2_ 

L443 

14  55 

BCDU 

F 6 , 1674 

150 

13 

150 

1325 

8 

1457 

1496 

BDDV 

7602 

1039 

2 

1006 

1039 

4 

939 

968 

BDOT 

24,2010 

69 

1 

1138 

1 

12  50 

BDSU 

7061 

1024 

1 

1006 

1 

1251 

BDT 

E7, 1670 

158 

7 

158 

784 

1 

1251 

BOTOK 

27,2515 

778 

1 

778 

1 

1142 

B EE  1 7 

04,2750 

1181 

1 

1192 

1 

1007 

B EE  1 9 

04,2762 

= 1181 

1 

1189 

4 

1 23 

954 

8 EE  2 2 

04,2766 

= 1181 

1 

1171 

2 

820 

BEGDES 

25,2573 

556 

2 

541 

552 

1 

9 54 

REGDES29 

24,3253 

610 

2 

609 

610 

5 

142 

400 

BEL0W1 

10,2125 

1295 

1 

1 296 

4 

] 64 

808 

8EL0W2 

10,2142 

1295 

2 

1295 

6 

1 65 

820 

BEL0W3 

10,2156 

1295 

1 

1295 

1 

1141 

BEL0W4 

10,2161 

1295 

2 

1 2°  5 

1 4 

1468 

1470 

BESTI 

E 5 , 1755 

= 139 

13 

139 

960 

BESTJ 

E5, 1756 

= 139 

5 

139 

937 

1 

763 

BETAM 

E4, 1471 

= 130 

6 

130 

1241 

JOKER  OR  FRASF  ANYWHERE MCE  MULJJPL  Y OF  F I NF  D 

XX  MISCELLANEOUS  TROUBLE 


104 

104 

93 

93 

1143 

121 

94 

94 

860 

268 

98 

98 

862 

866 

267 

12  17 

85 

639 

_639 

85 

864 

121 

860 

1258 

1082 

1498 

146 

1463 

149 

1250 

12.5.0... 

1250 

1251 

127 

1082 

123 

B 2 1 

9 54 

142 

164 

165 

127 

147 

741 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

1 34 

3 

13  4 

329 

B I T 14 COW 

10  v 2154 

1 2 95 

_L_ 

129  5 

BRAXE-  .. 

F 6 , 1773 

L5-0 

3 

37  7 

- 3-S0- 

BETAV 

E4 , 1 437 

= 130 

ii 

130 

1228 

3IT15 

4735 

1090 

58 

81 

1476 

BRNCHCON 

40,2600 

418 

1 

418 

3GIM 

16,3720 

1470 

i 

1470 

BIT15+6 

7733 

1093 

1 

1354 

BRNCHCTR 

12, 2276 

1173 

1 

1173 

B-G I-M23  - 

16 , 220  0 

1408 

i 

140  8- 

8-1  T 15  / 14 

41,3237 

450 

2 

450 

452 

BRSP0T1 

31,2614 

805 

BHIZ 

01,2447 

10  85 

BIT2 

4752 

1090 

5 8 

82 

1483 

BRSP0T2 

31,2723 

803 

BIASCALE 

22,3167 

380 

i 

380 

8 I T3 

4751 

1090 

48 

82 

1468 

BRSP0T3 

31,3077 

811 

R I A S HL 

00 ,2566 

1056 

L_ 

107  5 

_BIT3H  - 

27,3223 

853 

1 

8 44 

BRSP0T4 

3 1,3236 

813 

B! ASLO 

00,7270 

1049 

i 

1076 

8IT4 

4750 

1090 

58 

82 

1456 

BRUPT 

0017 

= 

109 

4 

830 

1452 

BIASTEMP 

E6, 1707 

= 150 

BIT4H 

30,3037 

856 

BSU60 

24,2016 

69 

i 

1138 

BIB I B IAS 

3 7 ,3  4-02 

853  - 

I 

_25i 

BITS  - 

4747 

1 090 

50 

82 

1455 

RUF 

0130 

112 

152 

113 

1393 

BIGAOS 

20,3253 

1491 

81  T6 

4746 

1090 

64 

82 

1460 

BUF  + 

00,2422 

1053 

3 

1052 

1055 

BIGTIME 

12,3446 

1192 

i 

1191 

B1T7 

474  5 

1090 

48 

82 

1436 

BUF- 

00,2416 

1052 

3 

1052 

1055 

B INCON 

__ 4363 

4Z4- 

_ 3 

45  A- 

10  9.4 

.8 1 T7  + 9PV 

23,2267 

531 

1 

531 

BUFNEG 

00,253  1 

1055 

1 

1052 

BINROUND 

40,3106 

445 

3 

444 

446 

BIT8 

4744 

1090 

45 

82 

1499 

BUFNORM 

00,2500 

1055 

1 

1055 

BIN3 

6 244 

= 5 74 

2 

567 

B I T8 , 9 

17,3043 

1449 

BUFPOS 

00,2516 

1055 

2 

1052 

1055 

- BITSET 

5030 

= 906_ 

1 906 

B I T9 

- 4743 

109.0 

47 

82 

1497 

BUF  ZERO 

00.2363 

1052 

1 

1055 

BITSOFF 

41 , 2674 

439 

i 

439 

BLANKCHK 

10,3005 

1360 

BUF2 

0133 

113 

30 

259 

1376 

BITSOFF  1 

41,2701 

4 39 

i 

439 

BLANKCON 

40 ,2614 

418 

2 

418 

431 

BURNBABY 

36,2124 

741 

3 

761 

841 

BITS  1 5+-X 

10  ,3X75 

1366 

i 

135  3 

BL  ANK-DEX 

4752 

= 753 

1 

743 

BUSYMASK 

10,3402 

1366 

BITS  2—1 0 

5011 

1092 

i 

36 

BLANKDSP 

41 ,3516 

4 66 

2 

466 

BUTTONS 

05, 2731 

230 

BITS3S4 

5742 

= 1325 

2 

1304 

1305 

BLANKET 

5464 

1348 

14 

286 

1367 

BVECTOR 

E 7 , 1522 

= 

160 

24 

160 

1145 

B I TS4+10. 

1-0-,  3 4 00  _ 

1366 

-L 

13  65- 

3LANKRET 

0114 

= 112 

BVECTR 

0032 

- 

1143 

5 

1139 

BITS4E5 

4763 

1091 

3 

180 

2 96 

8LANKSUB 

4255 

4 69 

2 

452 

1360 

RVSU 

7035 

1023 

1 

1006 

BITS4E6 

4771 

= 1325 

5 

226 

1304 

BLNKBBNK 

4302 

469 

1 

469 

BYLMATT 

15, 3527 

975 

2 

972 

R I TS4.--5- 

0 7 ,3  7 1 7 

— 1325 

1 

1310 

8 LNKSUB-l 

40,3503 

469 

2 

469 

BZE/GOTO 

0 1,9  464 

1086 

1 

1007 

BITS4-7 

33,3204 

8 84 

1 

876 

BLNKWA IT 

36,3345 

763 

1 

7 64 

812-1 

4356 

= 

474 

BITS5+11 

10,3377 

1366 

3 

1358 

1365 

BLOAD 

41 ,2743 

440 

1 

422 

B12T14 

7721 

= 

1094 

1 

1009 

BITS5, 8 

2 5.,  3401 

569 

- 2 

56  9 

BLOCKTOP 

E6 ,1547 

149 

1 2 

149 

1498 

R14+B? 

25, 2635 

557 

1 

557 

BITS6S15 

06,3003 

196 

i 

195 

BNKCHK 

43,3724 

1287 

B2/A2 

13,2504 

1131 

1 

1133 

BITS7+4 

10,3376 

1366 

2 

1352 

BNKOPTN 

43,3323 

1281 

B2F8 

15,3255 

969 

1 

969 

BITS7C8 

06^2777 

196 

2 

I 79 

1 91 

BQOLSMSK 

20 ,2114 

308 

3 

307 

308 

B2XSC 

13,2502 

1131 

1 

1131 

8ITS8/7 

21,3262 

906 

i 

906 

BOOL  STR  T 

05,3056 

233 

i 

227 

B3T0B4 

01,2573 

1089 

2 

1088 

1 089 

BITS8  ,9 

16,3602 

1435 

i 

142  8 

BOOP 

37,2755 

400 

i 

400 

B50FF 

5563 

1374 

11 

314 

725 

8ITS9+7 

43  ,30152- 

302  - 

I 

3-02 

J30RTENT 

5574 

1375 

2 

1377 

B5TOR8 

01,2462 

1085 

i 

BITS9tli 

BITl 

4753 

1090 

74 

82 

1485 

BOTHAXES 

20,3232 

149  1 

1 

1495 

C*MM*N1 

23,3557 

1257 

2 

1257 

1258 

B-tllO 

4-742 

109CL- 

_64 

_ 83  1488 

-BOTH  JOBS 

10,2540 

1355 

I 

1355 

C*MM*N2 

23,  3561 

1257 

1 

1257 

BIT10+15 

6021 

5 26 

1 

526 

BOTHL ITS 

25,3640 

622 

1 

623 

C*MM*N3 

23, 3572 

1257 

2 

1257 

1258 

BITl  1 

4741 

1090 

41 

58 

1475 

BOTHPAD 

22,3377 

723 

1 

723 

CA+ECE 

07,3113 

1308 

1 

185 

BJJL11  ±1 

25,2372 

- 5.48 

1 

548 

3-OTHSGN 

40,2377 

415 

1 

415 

CAORFLSH 

037? 

116 

6 

210 

1 364 

BIT12 

4740 

1090 

57 

81 

1473 

ROTHSHIP 

22,3336 

722 

1 

723 

CAORMARK 

0373 

116 

BIT13 

4737 

1090 

63 

55 

1 490 

BOVI B ) 

01,2454 

1085 

1 

1007 

C ADR  MASK 

10,3403 

1366 

i 

1357 

Bill  3 — -14- 

43551- 

= 1094 

6. 

296 

1405 

BP  L 

01,2500 

1086 

1 

1086 

CADRSAVE 

E 7 , 1 566 

= 

836 

3 

836 

BIT14 

4736 

1090 

93 

81 

1492 

BPL/BMN 

01 ,2471 

1086 

1 

1007 

CAORSTQR 

1042 

118 

13 

237 

1 362 

BIT14+7 

26,2230 

488 

BRANCH 

6 72  2 

1020 

1 1 

8 79 

1086 

CAORTAB 

01,2001 

= 

254 

1 

1300 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

_T  A r ? 7 ^ S 

l QS 

1 

179 

CA  NV  37 

04, 2133 

243 

1 

2 43 

C-DUJY 

= 108 

14 

269 

1443 

C AGES  UB1 

06  j 2 743 

195 

1 

189 

CATLOG 

14,2346 

67 

12 

9 35 

959 

CDUYCMD 

0051 

= 108 

2 

189 

1413 

CAGESUB2 

06,2746 

195 

1 

18  1 

CC  ALL 

6625 

1018 

1 

1006 

C DU  YD 

E 6 , 1634 

= 149 

7 

382 

144  5 

Cai;ftf<;t 

07, 3 61 4 

1321 

7 

130-5  . 

1318- 

- -CC  SH  QLE 

5677 

1377 

-23 

389 

15.01  C-DU-Z 

0034 

= 1 03 

17 

184 

1445 

CAGETSTJ 

07 ,3626 

1321 

5 

1304 

1313 

CC  SL 

7662 

1041 

1 

1094 

CDUZCMD 

0052 

= 108 

2 

190 

1413 

CAGETSTO 

07,3621 

1321 

3 

131 1 

1312 

CD*TR*G 

23,3447 

1254 

1 

491 

CDUZD 

E6 , 1635 

= 149 

7 

382 

1445 

CAL  CD  IR  - 

460- 

= 

_ 142 

CD*TR*GS 
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= 

1262 
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2 
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3 

803 
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= 
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= 
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= 
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= 

142 
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- 
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CHAN32 
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= 

86 
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= 
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4 
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23 
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CALC3BIT 
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= 

86 
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0054 
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1 
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0766 

117 

3 3 

1 17 

1256 
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= 109 

3 

227 

1408 
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01,2504 

1086 

1 
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CDUSPOTX 
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= 

117 

3 
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0117 

= 112 

5 
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413 
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1402 

1 

1402 
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0766 

= 

117 

3 

873 
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40,3432 

459 

16 

411 

459 
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4 766 

1092 

5_ 

294 

1502 
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= 

117 

3 

873 

910 

CHAR  IN 

40, 2077 

411 

1 

1332 

CALLDGCH 

26,3605 

602 

4 

526 

603 

CDUT 

0035 

= 

108 

1 2 

2 02 

617 

CHAR  I N2 

40,2112 

41  1 

2 

411 

CALLGMBL 

4747 

= 

1407 

3 

1422 

1477 

CDUTCMD 

0053 

= 

108 

2 

547 

906 

CHECKALT 

30,2774 

852 

1 

851 

CAL  L QEJLR 

17  ,20  -43 

1436  _ 

_ - 2_ 

L425- 

CDUT-E.MPX 

1155 

120 

3 

871 

893 

CHFCKB 

7747 

1296 

1 

1293 
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11  ,3235 

12  34 

4 

1233 
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1156 

120 

3 

871 

893 
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1179 

2 

1173 

1191 
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1130 

i 

1130 
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1157 
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2 

871 
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37,2332 

391 

2 
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i 

1228  - 
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- 

142 
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37,2335 

391 

1 
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7 42 

i 

742 
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= 

142 
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17,2217 

1439 

1 

1438 

CALOOP 

14,3204 

944 

i 

944 

CDUTODCM 

22,2410 

370 

3 

3 64 

494 

CHECKMAX 

22,2117 

365 

1 

365 

CAL00P1  - 

L4  ,3-226 

944 

- 2 

—9A-4 

CDUTR  IG 
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12  54 

12 

499 

976 
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5321 

1288 

10 

287 

836 
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1254 

3 

1254 

1257 
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1281 

3 

1281 
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1 
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917 

1 

917 

CHECKP 

16,3033 

1426 

1 

1425 
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-944 

1 

928 
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= 

1 08 

29 

203 

1432 

CHECKP22 

43,2702 

295 

1 

295 
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E 6 , 1 73 1 

= 

150 

4 

150 

366 

CDUXCMD 

0050 

= 

108 

5 

189 

1414 
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43,2672 
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1 
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04 ,2064 
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1 
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25 
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1 
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1 3-6-L- 

1 
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LI  4 3 

4 

1138  1139 

CHECKYAW 

27^3162 

8 52 

2 

852 

CLEAR 

40 , 2467 

417 

1 

412 
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0124 

= 

112 

15 

412 

466 

CHEKAXIS 

27,2115 

495 

1 

49  5 
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1348 

1 

1348 
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1 
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2 
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1416 
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1 

417 
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1 

261 

CHEKMCRE 
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1405 

i 
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41 , 2760 
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1 
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1 

261 

CHEKSTIK 

17,2260 

1440 

i 

1438 

CL0G2/32 

32,3657 

857 

1 

857 

CODES 

07,2137 
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1 

261 

T HF  X F R R 
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582 

1 

5-81 

-C-LQKJOB 

36,2742 

7 52. 

1 
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C-0-DE500 
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793 

1 
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CHKBIT10 

17,2156 

1438 
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4 
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1489 

7 
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849 

i 
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1478 

1 

1478 
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1483 

4 
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1438 
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_C_7-t  3046 
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1 
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4 
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150 

45 

365 
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i 
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13 
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467 
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= 
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9 
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L 
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7 
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= 
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16 

140 
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17,2547 
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1 
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2 
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= 
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1132 

1 
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= 

96 

3 
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1 1 83 
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2 
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851 
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= 

1198 

4 

1189 

119? 

CHKLIST 
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9 87 

CLR5 

40 ,2525 

417 

1 

417 
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= 
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17,3560 
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2 

1459 
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1 
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2 
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1 
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1493 
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1181 

2 
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1 

1349 
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1173 

1 
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1 
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C-HK-RL-I-MR 
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4 
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XMQO-N 

Q0Z2 

= 933 

2- 

932 

933 

COLRF-G 

1117 

= 

120 

7 

170 

1239 

CHKSAB 

14,3124 

943 

CMOONBIT 

4740 

= 95 

1 

228 

COMADRS 

43, 3541 

1284 

2 

1286 

CHK  SB 

14 ,3126 

943 

i 

943 

CMOONFLG 

0173 

= 95 

9 

36 

1206 

COME A I L 

36,2574 

749 

2 

257 

864 

_ - CHK SO 

14,3145 

- 943 

1 

943- 

-CMPONENT 

30,2620 

850 

i 

848 

COMFAIL l 

36,2613 

749 

1 

752 

CHKSDA 

14,3166 

943 

i 

943 

CMP  X 1 

E5 , 1445 

= 143 

2 

399 

C0MFAIL2 

36,2626 

750 

1 

752 

CHKSD AT  A 

14,3121 

943 

2 

942 

949 

CNGL 

22,2400 

370 

C0MFAIL3 

36,2615 

749 

3 

739 

741 

G44K-SR-CW— 

26,3407 

-5-98- 

i_ 

-6-0-2 

CNTCHJC 

0-7,2235 

767 

C0MFAIL4 

36,2617 

749 

7 

739 

740 

CHKSUPR 

43 , 3654 

12  86 

1 

1286 

CNTDNDEX 

4747 

= 752 

4 

742 

755 

COMFLAG 

5511 

1369 

2 

750 

1369 

CHKTEMX 

37,3625 

8 72 

1 

872 

CNTRCHK 

43,3474 

1283 

COMMAND 

E3, 1471 

= 

126 

6 

1303 

1308 

CHKV-LSE  Z 

1£m2JX7 

1424 

1 

1423 

CNTRCON 

4771 

= 1280 

1 

1283 

COMMEOS 

2 0 t_2  5 7 0 

1482 

i 

1482 

CHNL1 2 

0066 

= 1470 

3 

1470 

CNTRLOOP 

43,3475 

1283 

1 

1784 

COMMFX 

43,3533 

1284 

2 

1286 

CHRPR 10 

4355 

4 74 

7 

173 

1385 

COAALIGN 

37,2301 

391 

1 

389 

COMM  I N I T 

30, 2230 

842 

2 

833 
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CH31TE-MP  E-6-.  1 A A 1 

145 

_ 2- 

142-7- 

1440 

CHART INf 

14,3220 

944 

C.0MMN0UT 

12,2760 

1182 

1 

1195 
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1262 

121 

11 

205 

1497 

COARS 

07,2763 

1306 

1 

1306 

COMMONLM 

12,3435 

1191 

1 

1 192 

CH6MASK 

1263 

121 

6 

206 

1434 

COARSE 

14 , 3506 

950 

3 

944 

970 

COMMSFT 

32,3505 

836 

1 

836 

C4JLCL 

34,2372 
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3 

- 645 

CHARS  ERR 

07 , 3063 

1308 

2 

1807 

COMNEG 

07,3072 

1308 

l 
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CKI MUSE 

5244 
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COARSTOL 

07,3071 

1308 

1 

1308 

COMP 
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1041 

4 
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1071 

CKMDMORE 

43,3746 
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COARSTYP 
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1 
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COMPCHK 
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i 
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1 
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I 
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i 
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3 
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2 
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i 
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1 
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1 
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3 
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4 
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i 
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= 
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10 
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1 A, 2625 

936 

2 

935 
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68 
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C SUN 
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= 
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C0NICS1 

0 A , 2 000 

= 27 

A 

60  1183 

COUNT'EM 
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= 

11  A3 

i 

1139 

CONTSERV 

33,2573 

8 76 

7 

8 7 A 889 

CP  SI 

0323 

= 

115 

5 

36A 

1 A 1 0 

CYCLEBIT 

A7A  2 

= 

85 

—CONUMNO-R 

-AX,  3-071  . 

A A-2- 

1 

_AA2 

CR.EMMANU 

A3, 3025 

30  1 

1 

2 77 

CYCLESW 

OOA  3 

= 

85 

A 

768 

78A 

CONV3 

A 2 , 362 1 

4 <59 

CR ITCON 

AO  ,2315 

A1  A 

1 

A 13 

CYCLSHFT 

A3, 3503 

1 2 8 A 

CONVA 

A2 , 3632 

A99 

1 

499 

CS  I/A 

3A.2113 

6A2 

1 

6 32 

CYL 

0022 

= 

108 

2A 

A 1 3 

128A 

C-0NV5 

A-2, 3 63A 

A 99- 

1 

. Al.9  9 

CSI/B 

3A.2125 

6 A3 

1 

651 

CYR 

0020 

= 

108 

A6 

2A7 

1299 

CONI 

5A05 

1293 

1 

129  A 

CSI/B1 
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CS  I/B2 

3A.2176 

6 A 3 

1 

650 

C1MP 

E 6 , 1721 

= 

150 

CGN-2-AGR 

- 5422 

12  93 

L- 

12-93 

CSI /322 

3A ,2216 

644 

1 

6 AA 

C 1°P 

F6. 1 71 7 

= 

150 

COPIES 

10,2610 

1356 

i 

13A9 

CS I /B  23 

3A.222A 

6 AA 

1 

6 AA 

C2MP 

F 6 , 1715 

= 

150 

COPIES2 

10,2611 

13  56 

i 

135A 

CSI /823D 

3A.2237 

6 A A 

1 

6 AA 

C2PP 

F 6, 1713 

= 

150 

CO-P- INDEX 

_ 0 16A 

= 1366- 

23- 

13  50  136A_ 

-CSI/33 

3A.2330 

6A5 

1 

6A5 

C 2 SQM 

F6j 171 1 

= 

150 

COPMP AC 

0157 

= 1366 

3 

1362  1365 

CSI /CDH 

35,2000 

= 

33 

3 

631 

670 

C2SQP 

E 6 , 1707 

= 

150 

COPYCYC 

33.2A56 

8 68 

3 

862  868 

CSI/CDH1 

3A.2000 

= 

33 

1 

6A2 

C 3/2 

7736 

1093 

1 

1097 
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06.237A 

182 

6 

179 

181 

COP YC  YC  2 

33,2661 

8 78 

CSISTEP 

3A.2732 

650 

1 

6 50 

C 5/2 

5005 

1091 

1 

1097 

_ _ COPY-NORM 

1 0.7607 

1356 

1 

1353 

CSMCDNIC 

1 3 , 3066 

1209 

3 

3 57 

599 

COPYPACS 

10,2275 

1350 

1 

1359 

CSMDKFLG 

0305 

= 

103 

DACLIMIT 

20, 2A32 

l A 1 A 

3 

1 A 1 A 

COPYTOGO 

10,2273 

13  50 

1 

1359 

CSMDOCKO 

A737 

= 

103 

10 

3 03 

1 A80 

DACLOOP 
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7 72 
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4736 

= 

83 

4 

232 

906 

DMPR 

7573 

1039 

1 

1006 

DEUVXRJ 

E Z,  1 573 

356 

7 

15  6 

735 

D I FEQ4-Q 

11, 3372 

1237 

1 

12  33 

DMPSUB 

7106 

1026 

22 

102  8 

1259 

DEL  VX 

0324 

= 1 15 

11 

339 

872 

DIFEQ+l 

11,3376 

1237 

1 

1233 

DMPSUB2 

7125 

1026 

1 

1031 

DEL  VY 

0326 

= 1 15 

9 

342 

8 72 

DIFE9+2 

11 ,3407 

1237 

1 

1233 

DMP  1 

7571 

1039 

1 

1006 

DFl.VZ 

0330- 

- = 135 

8 

342 

8 7? 

OIFEQCNT 

E3, 1500 

126 

25 

126 

1239 

DNADRDCR 

05, 3453 

987 

1 

989 

DEL  X 

E5, 1642 

= 140 

6 

140 

11  73 

DI FEQCOM 

11 , 3552 

1239 

2 

1237 

DNDUMP 

05, 3644 

991 

1 

991 

DEP 

0036 

= 1199 

1 

1178 

DI FEOTAB 

11,3153 

1233 

1 

123? 

DNOUMPI 

05,3631 

99  1 

2 

303 

991 

DEPRCR_LX- 

31, 3-7-61  - 

827- 

2_ 

8-0  9- 

DJF-EaO 

1L-,  3246 

1234 

1 

1238 

DNDUMP 1 

05,3657 

99  1 

l 

991 

DEPREV 

E5, 1761 

= 140 

3 

140 

1178 

DIFFALT 

F 7 , 1575 

156 

5 

2 09 

658 

DNDUMP2 

05,3661 

99  1 

1 

99  1 

DERCLOOP 

31,3575 

823 

1 

823 

DIMOBIT 

4753 

= 

88 

DNECADR 

0336 

= 

989 

15 

986 

989 

DERCO-EjEL 

-0.153 

1 1 4 

D I MO  FLAG 

0073 

- 

88 

2 1 

251 

1239 

DNEDUMP 

43, 3053 

303 

2 

277 

303 

DERCOF-1 

0 151 

= 114 

01  NDX 

0063 

= 

152 

6 

14  14 

DNINDEX 

1335 

= 

123 

4 

123 

570 

DERCOF-2 

0150 

= l 14 

DIRADRES 

6105 

999 

2 

10  13 

DNLADMM1 

04, 2475 

250 

1 

246 
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SYMBOL 

OEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

47  ^ 

- ? 

l 

24-4 

DQ-NF  VET 

21 1 3 547 

14  74 

2 

1474 

-D  P LMCQM-— 

40,8111 

446 

1 

- AAb 

DNLRALT 

1341 

= 123 

DOPAXIS 

20,3202 

1490 

i 

1490 

DPINORM 

40,3137 

446 

1 

446 

DNLRVELX 

1336 

= 123 

4 

123 

211 

OOP  IF 

31,2342 

799 

2 

798 

DP  I NS  F 

40,3114 

446 

4 

444 

446 

pNll-ftVFI  v 

L337 

= 1 73 

__L 

123 

DOPRQ.C 

40,3577 

472 

2 

471 

483 

DPINSF2 

40,3141 

446 

1 

444 

DNLRVEL  Z 

1340 

= 123 

2 

123 

209 

DOROTAT 

17,2675 

1447 

2 

1447 

DPINSF4 

40, 3146 

446 

1 

444 

DNLST  ADR 

0332 

= 115 

DORREPOS 

25,2127 

540 

1 

202 

DPIPAY 

E 5 , 1 522 

= 

143 

2 

398 

- PNLSTCQn 

033-2 

_ 115 

11 

1 15 

13  88. 

_D.QRRQ.UT 

25, 3017 

562 

2 

562 

DPIPAZ 

E 5,  152  6 

= 

143 

1 

89  8 

DNPHASEl 

05,3437 

9 86 

2 

237 

991 

DORSAMP 

25,2023 

502 

1 

502 

DPL  1 

30,3673 

922 

1 

922 

DNPHASE2 

05,3445 

9 86 

1 

988 

DORS AMP2 

25,2027 

502 

DPL  3 

30,3674 

922 

1 

92? 

04MQ 

0 3 37  _ 

= 1 15  . 

_2_ 

115 

9 89 

DDRST  ART_ 

05 , 2730 

23.0 

1 

2 30 

DPL  5 

30,3675 

92? 

1 

922 

DNR  RANGE 

1333 

123 

6 

123 

617 

DOSHIFT 

21 , 3645 

1476 

DPL7 

30,3676 

922 

1 

922 

DNRPOOT 

1334 

= 123 

i 

123 

DOSKIP 

17,2742 

1448 

1 

1447 

DPL9 

30,3677 

922 

1 

922 

ONTABL-E 

05  t ?4A1 

_ 219 

1 

987 

-DOS-SHFT 

00 ,2322 

1050 

1 

1050 

DPMODF 

10,3670 

1396 

1 

710 

DNTMBUFF 

0340 

= 115 

22 

169 

991 

DOSTORE 

6361 

1009 

1 

998 

DPOSMAX 

4732 

1090 

3 

454 

1396 

DNTMEXIT 

05 , 3623 

9 89 

6 

987 

992 

DOSUBLST 

05,3607 

989 

1 

988 

DPOUT 

40,2723 

433 

3 

432 

ONTME AS  T 

Mb+ZbJL 

193 

1 

- 196_ 

DO  SW  ITCH- 

11,3301 

1234 

2 

JL2  33 

1234 

DnPO  S MA  X 

2 3.243  1 

1095 

8 

315 

713 

DNTMGOTO 

0335 

= 1 15 

8 

1 1 5 

991 

DOT 

7330 

1033 

1 

1006 

DPSBURN 

E6, 1746 

= 

146 

DNTM1 

0034 

= 109 

1 

989 

DOTERM 

40 , 3575 

472 

1 

471 

DPSFLITE 

20,2522 

148  1 

1 

1480 

DNTM2  - - 

- 003-5  _ 

= - 109- 

1 

9 89 

DOT.  I C K 

22,3441 

. 7a4 

1 

724 

DPSTHRSH 

3 2 l20  1 0 

55 

I 

789 

DOACC  FUN 

20,3623 

1497 

1 

1492 

DOTINC 

0136 

113 

7 

113 

1034 

DPSVEX 

33,2001 

54 

2 

761 

833 

DOALARM 

5155 

= 13  78 

DOT  I X RR 

01,2421 

1083 

DPTEST 

41,2261 

423 

4 

423 

443 

DOALLGN- 

15 , 3 L76 

958 

. DO  TP  E R 

22,3622 

729 

1 

729 

DPTEST1 

41,2301 

424 

4 

424 

DOCKED 

20,3030 

1487 

1 

148  1 

DOTRET 

0137 

113 

8 

l 13 

1073 

DPZERO 

11,2274 

= 

124? 

3 

935 

1234 

DOCKTEMP 

0157 

= 1489 

4 

14  8 0 

1484 

DOTSUB 

7155 

1028 

3 

1034 

DPO 

0036 

= 

937 

- -DOCKTE-SI 

20  ,-2-72  1 

1484 

2 

148-4 

1496 

- DO  T S W E_M  X 

3Q-,  3.737 

924 

1 

9 18 

DPI 

0040 

= 

937 

DOC  SM 

23,3136 

1152 

1 

1151 

D0T6RUPT 

17,2036 

1400 

l 

1 69 

DPI/12 

15,2533 

= 

266 

1 

265 

D0CSM1 

23,3141 

1152 

1 

1151 

DOUBLK 

40,2575 

418 

2 

417 

418 

0P1/2 

11,2272 

= 

1131 

5 

1131 

1143 

-BOD  AT 

07  » 2 07  1 

-261 

1 

261 

nnvi  dad 

6462 

1013 

L 

1010 

0P1/20 

33.3060 

882 

I 

881 

DOOELVZ 

37,3554 

871 

1 

872 

DOVLOAD* 

6465 

1013 

i 

10  10 

0P1/4 

11,3701 

1242 

3 

1195 

1242 

DODES 

25,2636 

559 

1 

557 

DOW.  . 

11  ,3611 

1241 

2 

1234 

1239 

DP1/4TH 

23,2413 

1095 

6 

36 

1 146 

DOD-ESEND 

2 5 i 30-64 

_ 5 6-3 

i 

563 

DOW  . . 1 

11, 3637 

1241 

2 

1241 

DPI  /8 

0 7 l?6  2 2 

275 

l 

268 

DODLOAD 

6457 

1013 

1 

1010 

00 WN ENT 2 

10,3434 

1368 

3 

1357 

1363 

DPIM1N 

26,2077 

354 

1 

352 

DODLOAD* 

6143 

1001 

2 

1010 

1013 

downflag 

5516 

1369 

96 

223 

1360 

D P 1 OUT  SF 

40,2710 

432 

1 

430 

DODMADR 

-05-,  3446- 

-986  - 

DOWN  GTS 

20 ,3576 

1496 

2 

14  84_ 

DP2 ( -3 ) 

27,3734 

1277 

1 

1274 

DODNCHAN 

05,3514 

9 87 

DOWNTELM 

05,2000 

= 28 

2 

208 

986 

DP2<-4> 

27, 3736 

1277 

1 

1268 

DODNPTR 

05,3533 

988 

1 

987 

DOWNTORK 

E6.1513 

148 

7 

148 

1465 

DP2/3 

11,3717 

1242 

3 

1223 

1242 

- - OQDOMNT-M- 

05,3430 

986 

2- 

16  8 

169 

D01/NET+ 

20,3614 

1497 

2 

1493 

QP20UTSF 

40,2715 

432 

2 

430 

DOFSTART 

05,2474 

2 26 

l 

233 

DP (-22) 

27,3732 

1277 

1 

1272 

DP30UTSF 

40,2717 

432 

l 

430 

D0FSTRT1 

05,2501 

2 26 

3 

230 

2 32 

DP— .01 

35,3701 

693 

3 

6 89 

DP9/  10 

04,2771 

118  1 

4 

1172 

1 1 79 

POINT 

-J-3-,2036  - 

_251 

- _2^ 

251 

DP  AGP  EE 

7254 

1031 

DOUARTER 

11,3701 

= 

124? 

2 

1228 

D0INT2 

13,2060 

251 

1 

251 

OPB-14 

26,2366 

496 

2 

494 

496 

DR  DOT 

E4, 1742 

= 

136 

4 

136 

849 

DOIT 

3 1,2352 

799 

1 

800 

DPBIT14 

01 ,3474 

1126 

1 

11  26 

DRFDB 

20,3542 

1496 

1 

1495 

DOLC-M 

26,2432 

5-86_ 

1 

536 

DP DAT  1 

20,2037 

307 

1 

307 

DRFTRIT 

4735 

= 

84 

3 

180 

1309 

DONBRD 

25,2661 

559 

1 

559 

DP  DA  T 3 

01 ,2312 

310 

1 

310 

DRFTSUB2 

06,3474 

345 

1 

340 

DONEADR 

37,3640 

8 72 

1 

872 

DPHALF 

23,2421 

= 1095 

1 2 

3 66 

778 

DRIFT/ON 

1 7,3351 

1457 

1 

1457 
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OF 

DEF, 

# OF 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYM80L 

OFF  H 

REFERENCFS 

4 74  z, 

1-04 

8 

74  7 

1 5 01 

-DSPLOCK 

1012 

118 

1 2 

-2  37 

L364 

-DJD-ECAY- 

?D04 

53 

1 

333 

DRIFTDFL 

0312 

= 104 

i 

750 

DSPLV 

41 ,341 3 

456 

DTHET  ASM 

1264 

121 

5 

1261 

DRIFTER 

0116 

= 14  98 

3 

1490 

1491 

DSPLYALT 

4750 

= 

1414 

2 

1409 

DUMMYAD 

04, 2145 

244 

1 

247 

OR  I FT  FLG 

- 0036 

= -8-4 

3 

8-6.i 

950. 

-D.SPLY.MSK 

30,2113 

3-0.8 

1 

_307 

DUMMYJOB 

01,3203 

1111 

2 

228 

1110 

DR  I FT  I 

E5.1504 

= 143 

1 

388 

DSPLYTOT 

20,2252 

1410 

1 

1410 

DUMPCNIC 

27,3400 

1266 

DR  I FT  0 

E5.1502 

= 143 

1 

390 

DS  PL  Y 58 

34,3500 

735 

1 

735 

DUMPCNT 

0333 

115 

2 

226 

991 

DRIFTSUB 

06,3454 

345 

3 

341— 

DSPLY  8 1 

34,3503 

7 35 

1 

735 

PUMPLOC 

0336  = 

115 

5 

99  1 

DR  I FT  T 

E 5 , 1 442 

= 143 

1 

389 

DSPMM 

04,2573 

470 

1 

481 

DUMPRPRA 

27,3436 

1268 

DRIVEON 

21,3545 

1474 

1 

1474 

DSPMMJB 

40,3532 

471 

2 

4 70 

1288 

DUMPTFF 1 

27,3521 

1272 

_ DSAUAQUI- 

_ . -00.1 1 

= 109 

36 

-18  6 

13  89 

DSPMMJOB 

40,3532 

= 

1288 

1 

1288 

DUMPTFE2 

27,3616 

1273 

DSEXIT 

0114 

= 112 

3 

457 

458 

DSPMMTEM 

0140 

= 

1 13 

2 

471 

DUNFVL  I M 

30,3735 

924 

i 

918 

DSKYFBIT 

4735 

= 89 

1 

1332 

DS  PM  SK 

4757 

= 

457 

1 

456 

DV/SC 

7635 

1040 

2 

1040 

D-SK  YFLAG- 

0113 

= 89  _ 

.DSPOC  TIN 

40 ,3412 

458 

1 

456 

DVBYCOSM 

30, 3551 

970 

4 

919 

DSL  V 

40,3376 

458 

2 

458 

DSPOCTWD 

41,3363 

^56 

3 

421 

453 

OVCNTR 

E 7 , 1513  = 

162 

47 

162 

894 

DSMAG 

0142 

= 1 13 

2 

458 

DSPOFF 

05,3262 

236 

1 

236 

DVCNTR1 

E 7, 1 566  = 

865 

2 

864 

USM-SK 

411,34-00 

458 

- 2 

45  8. 

DSPOPTN  . 

15  ,3407 

972 

972 

OVCNTSET 

33,2326 

863 

DSP  A 

41,2365 

427 

1 

421 

DS  POUT 

06,2063 

172 

2 

1 71 

DVECTR 

ooin  = 

1143 

1 

1139 

DSP  AB 

41,2360 

427 

1 

421 

DSPOUTSB 

06,2024 

172 

2 

1 72 

1 75 

DVLOS 

E4.1706  = 

133 

5 

133 

6 84 

DSP-A&C- 

41,2353 

427 

1 

42  L 

-DSP-RND 

40,3215 

454 

1 

454 

DVMAX 1 

34,2063 

642 

1 

644 

DSPABORT 

4227 

468 

3 

468 

DSPRRLOS 

40,2000 

314 

1 

314 

DVMAX2 

34, 2065 

642 

1 

644 

DSPAL  ARM 

40, 3420 

4 59 

6 

42  1 

444 

DSPSCAN 

06,2032 

172 

2 

172 

DVMON 

33,2317 

863 

USJL8 

4 1 ,2373 

427 

_I_ 

421 

DSPSFNQEL 

41 ,2562 

430 

1 

430 

DVMONCON 

36.2526 

748 

DSPC 

41,2400 

427 

1 

421 

DSPSIGN 

40,3200 

454 

4 

454 

455 

DVNORM 

00,2505 

1055 

3 

1054 

DSPCADR 

16,2206 

1408 

1 

1408 

OSPTAB 

1023 

118 

48 

171 

1376 

DVNORMCT 

0137  = 

113 

6 

1052 

1063 

OSRCNT 

0776 

117 

1 

172 

237 

. DSPTEMX 

1051 

= 

1 18 

8 

1 18 

711 

DVOVF 

00, R405 

1052 

11 

1054 

1065 

DSPC0M1 

41,2371 

427 

3 

427 

429 

DSPTFM1 

1045 

118 

34 

1 18 

971 

DVOVSUB 

20,2724 

1485 

1482 

1488 

DSPC0M2 

41,2405 

427 

2 

42  7 

DSPTFM2 

1050 

118 

13 

118 

958 

OVPREV 

E 7,  15  73  = 

156 

4 

648 

649 

DSPCUM3 — 

41,2413 

- 427- 

1 

42  7 . 

')  S P V 6 N 7 9 

07,2627 

2 76 

3 

271 

R 76 

DVSIGN 

0136  = 

1 13 

10 

1052 

1069 

DSPCOUNT 

0777 

1 17 

66 

173 

133? 

DSPWDRET 

0144 

1 13 

3 

454 

DVTHRUSH 

1251  = 

121 

7 

121 

863 

DSP  DC  END 

41,2566 

430 

4 

430 

436 

DSP 29  IT 

41 ,3416 

457 

1 

459 

DVTOTAL 

E 7 , 150  5 = 

162 

6 

162 

867 

DSRDCGEJ 

41,2527 

429 

-DSP2CADR 

36,3134 

756 

1 

746 

DVXSC 

7427 

1036 

2 

1035 

DSPDC  PUT 

41  ,2537 

429 

1 

430 

DSP2DEC 

40,3273 

455 

1 

437 

DWNRPTBB 

4062 

169 

l 

168 

DSPDCWD1 

40,3233 

4 54 

4 

455 

DSO 

00,3174 

1070 

1 

1008 

DXCOMP 

12,2154 

1171 

1 

1171 

D-S-P-PC  2- NR 

-ACX+3-266 

455 

3_ 

—435 

456 

-DSQS.UB 

00,3300 

1073 

5 

1070 

1 078 

DXCRIT 

0124  = 

114 

2 

823 

874 

DSPDECNR 

40,3262 

455 

DS  RE  L 

0141 

= 

1 13 

4 

457 

458 

DXCR IT+1 

0125  = 

114 

DSPDECVN 

40,3306 

456 

4 

433 

471 

OSRUDTEM 

0073 

= 

111 

5 

1 72 

OXERROR 

E6, 1444 

145 

9 

145 

1 430 

D-SP-OE-CWO- 

-40,3226 

- 454 



. 433 

434 

3SR.UPTSW 

1313 

122 

10 

1 70 

736 

DYDOT 

E 4 , 1 744  = 

136 

4 

136 

850 

DSPDELAY 

37,3117 

712 

1 

712 

OSU 

7004 

1023 

1 

1006 

DYERROR 

E6.1446  = 

145 

7 

145 

1441 

DSP  DP  DEC 

40,2771 

437 

1 

421 

DT 

E7, 1713 

= 

166 

7 

1 66 

901 

DYNMD1SP 

36,3361 

764 

2 

763 

764 

DSPFLG 

L-07-0 

= 1366 

3 

1359  . 

13  60 

QT/DELT 

30,3745 

924 

1 

917 

DZDOT 

E4.1746  = 

136 

3 

136 

851 

DSPFMEM 

41,3353 

453 

1 

422 

DT/TAU 

22,3121 

379 

1 

378 

OZERROR 

E6.1450  = 

145 

7 

145 

1 441 

DSP  IN 

40,3322 

457 

5 

412 

458 

DT/2 

E 4 , 1475 

= 

1 30 

1 1 

1 30 

1239 

01/1024 

04,2765 

1181 

1 

1190 

- nSPTNI 

_4Q_,  3347_  _ 

458_ 

2 

457 

. 458 

DT/2C0MP 

13,3316 

1213 

1 

1214 

01/128 

04,2753 

1181 

3 

1174 

1 185 

DSPLAY 

06,2047 

172 

1 

172 

DT/2MAX 

13 ,3410 

1214 

2 

1213 

1214 

PI/  16 

04,2761 

1181 

2 

1187 

1194 

DSPL  1ST 

1043 

118 

6 

237 

478 

DT/2MIN 

13 , 3406 

1214 

1 

1214 

Dl/256 

04,2767 

1181 

3 

1174 

1181 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

PA  , 7 7ft  7 

1 1 ft! 

5- 

1 1 ft  1 

LI  94 

FDR  I V E Y 

£6* 1763 

_ 

1 52 

1 

_I413  - 

FNnnpnFC 

40, 3007 

4 8 7 

1 

A44 

01/4 

04  | 2 757 

1181 

4 

36 

1194 

EDRIVFZ 

E6 , 1 764 

= 

152 

1 

1413 

ENDDPUSH 

6547 

1015 

1 

1015 

D 1/64 

04,2755 

1181 

5 

1169 

1195 

EE 

13,2506 

1131 

1 

11  31 

ENDEC VN 

40,3322 

= 

456 

1 

457 

P I-/  ft 

-QA-fJ  7 51 

1181 

1 

119-5 

EGRESS 

E5 , 1772 

= 

141 

6 

1 4_1  .1217 

EN.DEXT 

5472 

= 

1366 

44 

22? 

1389 

D21 

F6, 1703 

- 

150 

EIGHT 

4 75  0 

= 

1094 

ENDEXTVB 

5472 

= 

279 

5 

283 

2 88 

D29.QSEC 

36,3142 

756 

2 

742 

EIGHTEEN 

33,2472 

869 

1 

868 

ENDFINO 

5160 

1100 

4 

1 10? 

1106 

H6.QR9RT  T 

4752 

— 

87 

-E  JSC  AN  . 

01,3115 

lias 

2 

110.5  nos. 

ENDHMSS 

42.360? 

= 

449 

D60R9FLG 

0072 

87 

10 

251 

1239 

EJ  1 

01,3166 

1110 

7 

11  08 

1109 

ENDIDLE 

4207 

468 

1 

1362 

= = = = = = ==: 

E J 2 

01 , 3 176 

1110 

1 

1110 

END  I MU 

07,3604 

1321 

3 

1305 

1310 

E 

E 6^1  7-50 

_ 

1 49- 

17  142.9  15.02 

_EL_ 

1330- 

= 

J!  23 

1 

3 31 

END  INST 

421  7 

468 

6 

415 

1361 

E/BKCALL 

04,2533 

3 83 

ELCALC 

35,2746 

676 

1 

679 

ENDINT 

13,2632 

1205 

1 

251 

E/CALL 

04,2552 

3 84 

EL  EACH 

21,2101 

821 

2 

821 

ENDIT 

10,3226 

1363 

1 

1360 

E/J  QB-WA& 

04  ,-2  566 

. 3B5 

ELEPS 

35,3676 

693 

1 

676 

ENDJASK 

17,3176 

1452 

1 

1452 

E/PROG 

04,2000 

= 

27 

2 

383 

3 85 

ELEV 

E4, 1662 

132 

10 

209 

679 

ENDJBCAD 

37,3523 

860 

1 

858 

E/SWITCH 

04,2550 

3 83 

ELEVEN 

4760 

1090 

3 

480 

1466 

ENDJOB 1 

01,3100 

1108 

1 

1100 

_ EARS-P-H 

-11*3-261 

L2  34 

1 

1233 

ELEX 

35,3223 

679 

1 

676 

ENDLL JOB 

31,3444 

817 

2 

817 

818 

EARTCNTR 

14,2363 

9 32 

EL  INC R 

E7 , 1 5 52 

= 

164 

4 

1 64 

BOR 

ENDLRH 

34,3745 

893 

EARTHGON 

22,3527 

725 

1 

725 

FLINCR1 

E7.1642 

= 

165 

7 

1 65 

821 

ENDLRV 

33,3643 

893 

1 

893 

EARTH  L 

26  ,3  711 

1142- 

2 

113-5. 

1137 

ELOOPFIN 

43,3445 

1283 

2 

1283 

ENDMANUV 

26,2152 

487 

EARTHMU 

27,2012 

59 

1 

784 

ELRCODE 

04,3320 

1334 

1 

13  33 

ENDMANU1 

26,2153 

487 

2 

486 

488 

EARTHMX 

26,3657 

1141 

2 

1135 

1137 

ELRCODE 1 

40 ,2156 

412 

1 

411 

ENDMARK 

5472 

1348 

2 

268 

1366 

._g.ARimx.X- 

_ -0  0-51 

1 1 43 

4 

113-8 

1141 

_EL.V  I R.A 

E7.1645 

- 

1 65 

7 

165 

820 

FNDMARKS 

07, 231 7 

268 

EARTHPAD 

22,3367 

723 

i 

722 

ENABL  ET6 

17,2023 

1399 

1 

1399 

ENDMAXOV 

00,2624 

1058 

2 

1058 

1060 

EARTHR 

37,2420 

393 

i 

393 

END-AL IG 

E7, 1626 

= 

1 63 

3 

163 

167 

ENDMOOE 

07, 366  1 

1322 

2 

1322 

-EAR  T HR-*- 

37*2447 

393 

4- 

- 3 8-8- 

401- 

-EN.D-E3  _ 

E3 ,1776 

- 

128 

F NDMONDO 

4 1,3346 

452 

1 

452 

EBANK 

0003 

= 

108 

74 

227 

1480 

END-E4 

E4 , 1763 

135 

FNDNMTST 

40,2247 

413 

2 

413 

EBANKSAV 

1070 

1 19 

3 

1350 

1366 

END-E5 

E5 ,1774 

= 

143 

ENDNUM 

40,2257 

413 

l 

413 

— ggA-NK-T&M 

1072 

119 

6 

22-6 

1366- 

-END— £6 

E6, 1776 

- 

1 57 

ENDNVBSY 

04.261 2 

4 77 

EBANK  3 

5007 

= 

1094 

3 

238 

890 

END-E7 

E 7 , 1 777 

= 

167 

ENDNVSB1 

41,3612 

467 

1 

480 

EBANK4 

4741 

= 

10  94 

5 

29  1 

8 92 

END-E7.0 

E7 ,1744 

= 

167 

FNDOF JOB 

5155 

1100 

160 

243 

1480 

-EBANK-5  . 

-5014 

1092 

8. 

401 

1427 

END-E7.1 

E7 ,1745 

167 

FNOOUT 

10,3165 

1362 

2 

1 364 

EBANK6 

5015 

= 

10  94 

7 

227 

1480 

END-E7.2 

F7.1774 

= 

167 

FNDPASTE 

4143 

452 

EBANK7 

5016 

1092 

12 

287 

953 

END-E7.3 

E7, 1626 

= 

167 

ENDPINBF 

4512 

= 

47  8 

_-EBU£2 

L 167 

= 

120 

10 

. 38  3 

3 84 

JENLD-E7.4 

E7, 1744 

= 

167 

FNOPI NS1 

40,367? 

= 

484 

ECC 

E 5 , 1751 

= 

140 

3 

140 

1195 

END-F7.5 

E7, 1655 

= 

167 

FNDPINS2 

41 ,3731 

= 

48  2 

ECDUW 

E 6 ,1644 

= 

151 

3 

15  1 

924 

END- I N/M 

E7, 1670 

= 

157 

FNDPRCHG 

01,276? 

1104 

2 

1103 

1110 

ECDUWL 

30-,3  332 

924. 

1 

909 

END-LLE 

1351 

- 

123 

ENDP76 

13.2333 

719 

2 

71  7 

ECDUWUSR 

E 6 * 1 644 

= 

151 

3 

151 

917 

ENDALL 

40 , 2263 

413 

2 

413 

414 

ENDRADAR 

25,3546 

574 

2 

54  R 

557 

EOOP 

0023 

= 

108 

13 

452 

12  84 

ENDALM 

4153 

459 

1 

465 

ENDROLO 

40,2770 

434 

1 

437 

-EDOI 

E6, 1425 

— 

149 

23 

144 

-1502 

.ENDBALL 

26,2324 

491 

FNDRELDS 

40, 3503 

= 

463 

1 

469 

EDOTP 

E6, 1425 

= 

144 

4 

1429 

1433 

ENDBLFF 

4303 

= 

469 

1 

473 

FNDRET 

10,3210 

1363 

5 

1358 

1365 

EDOTQ 

E6 ,1434 

144 

5 

144 

1468 

ENDBSUB l 

40 ,3532 

= 

470 

1 

471 

ENDRMODF 

4616 

= 

536 

-ESOTR 

F6 ,1435 

= 

144. 

3- 

1422 

1467 

ENDCHKG 

37,2366 

392 

ENDROLL 

22.3226 

382 

EDOTSQ 

E6.1735 

= 

148 

3 

1456 

1457 

ENDDAPT4 

5270 

= 

204 

ENDRQDAT 

41,2316 

424 

EDR  IVEX 

E6 , 1762 

152 

5 

152 

1414 

ENDDOT 

7204 

1028 

l 

1073 

FNDRQWT 

41,3515 

461 

1 

465 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

617 

FNTFRJMP 

40 , 7157 

412 

1 

41? 

FRFSTORF 

L36.Q 

_ 

1 74 

11 

12t 

1 783 

ENDRSTR  T 

05,2641 

228 

2 

232 

ENTERQR 

17,2353 

1441 

EREXITl 

32,2540 

582 

1 

580 

ENDRT  OUT 

41 ,2616 

= 

430 

1 

438 

ENTERUV 

17,2406 

1441 

3 

1441 

ERMINUS 

40,3645 

483 

_E.NQR.UT  IN 

-k  1 , 3-23-0 

_ 

444 

1 

450 

ENTEX  IT 

0136 

= 

419 

10 

420 

460 

ERPLUS 

40,3650 

484 

1 

483 

ENDP03 

01,2241 

309 

1 

309 

ENTMID1 

13,3622 

1219 

1 

1219 

ERROR 

40,3601 

483 

1 

41  1 

ENDSAM 

14,2431 

933 

1 

932 

ENTMID2 

13,3616 

1219 

1 

12  19 

ERRORS 

43,3265 

1280 

1 

1280 

ENDSCALE 

40 , 3043 

445 

3 

44-4  . 

445- 

ENT.PASHI 

41,2012 

419 

ERP.TEST 

17, 3264 

1456 

ENDSCAL  1 

40,3056 

445 

2 

44  5 

446 

ENTPASO 

41,2035 

420 

3 

419 

467 

ERTHR 

37, 2431 

393 

1 

393 

ENDSPF 

41,3362 

453 

1 

45  6 

ENTRET 

0136 

= 

113 

6 

415 

466 

FRTHRVSE 

37,2401 

393 

2 

396 

401 

FNnSPMIN 

4 2 T 3 445 

4 37  - 

1 

447 

-ENTS FT  . 

41,3570 

4 66 

_2_ 

4 66 

ERVECTOR 

E 5 , 1404 

= 

142 

5 

14? 

393 

ENDSPMM 

04,2603 

4 70 

1 

477 

ENTTIM2 

04,2742 

711 

1 

711 

F SC A PE 

0136 

= 

1 1 3 

4 

1079 

1080 

ENDSPOCT 

40,3415 

4 58 

EOURPERM 

E7, 1666 

= 

165 

1 

165 

ESCAPE2 

0137 

= 

113 

2 

1079 

1080 

FNOST AT  F 

11, 3503 

12  38 

1 

L23  7 

EPHEM.  - 

15,2000 

= 

. 30  . 

1 

9 80 

E ST  I C APR  37,2116 

387 

2 

387 

ENDSTEER 

36,3636 

768 

l 

768 

EPHEM1 

05,2000 

= 

28 

2 

67 

982 

ESTIMS 

37,2500 

396 

2 

387 

390 

ENDSUMS 

43,3137 

3 06 

1 

1286 

EPSFOUR 

35,3703 

693 

1 

682 

FTP  IBIT 

4745 

= 

85 

_ _ £NQS-4-0*9 

-27,3074 

5785 

1- 

. 7 .8.4 

EPSILNL 

34,-2075 

642 

. 1 

.6  50 

FTP IFLAG 

0046 

= 

85 

6 

85 

679 

ENDTI X) 

27,3725 

1276 

1 

1276 

EPSILONL 

E5  , 1763 

- 

140 

3 

140 

1191 

EXBRAK 

31,3325 

815 

2 

803 

ENDTASK 

5236 

1116 

4 

235 

1123 

EPSILONT 

E4, 1602 

= 

131 

2 

1171 

1172 

EXDSPRET 

10,2473 

1354 

5 

222 

296 

-ENOXE-ST1 

-3  7 ,22  70 

.39.0 

3 

J 8 6 

401 

-EPSSMALL 

27,2772 

783 

1 

783 

EXECBANK 

5 163 

1100 

8 

1098 

1100 

ENDTFF 

27,3613 

1273 

3 

1273 

1275 

EPS1 

27,2430 

773 

2 

773 

7 83 

EXECTEM1 

0061 

= 

1 1 1 

6 

1098 

1106 

ENDTNON 

06,2266 

179 

1 

179 

EPS2 

27,2432 

774 

2 

773 

7 83 

E XECTEM2 

0062 

= 

111 

4 

1 101 

1 106 

E-NDTNON  2 

a6_,.23D6. 

1 80 

_ _ 1 

179. 

-ERAD 

04,2000 

60 

1 

1134 

F XG  SUB 

31,3304 

815 

1 

803 

ENDTPUSH 

6551 

1015 

2 

101  5 

1072 

ER ADFBIT 

4737 

= 

83 

EXIT 

6742 

1020 

1 

99  8 

ENDTSLC 

00,2212 

1047 

1 

1047 

ERADFLAG 

0021 

= 

83 

4 

6 66 

1 134 

EX  I TEM 

0114 

= 

112 

7 

441 

442 

enovdat 

33,3475- 

- 

8 89- 

3 

88  8 

8 91 

ER  ADM 

E7 , 1670 . 

- 

159 

5 

159 

1134 

EXITVR 

30,3002 

85? 

1 

853 

ENDVLOAD 

6510 

10  14 

2 

1016 

ER ASCHK 

43,3345 

1282 

1 

1281 

FXNORM 

31,3333 

815 

2 

803 

ENDVPUSH 

6537 

1015 

ER ASC0N1 

43,3240 

1280 

1 

1282 

EXOVFLOW 

3 1, 3414 

816 

1 

819 

j-NOVXA/ 

6777 

102-1 

4 

1021-  10  38  -ERA-SCON 2 

43,3241 

12  80 

1 

128? 

-EXSPOT  1 

3 1 .327? 

814 

1 

814 

ENDW 

F5, 1642 

= 

137 

3 

138 

141 

ER ASC0N3 

43,3242 

1280 

1 

128? 

E XT  LOG  I C 

31,3264 

814 

END2DEC 

40,3305 

455 

ERASC0N4 

43,3243 

1280 

1 

1282 

E XT VB  ACT 

1044 

118 

17 

237 

1374 

ENQ29SOD- 

32+2764 

-615 

1 

615 

ER ASC0N5 

43,3251 

1280 

1 

1283 

FXTVBCHK 

07+2006 

259 

1 

259 

ENEMA 

05,2766 

231 

2 

832 

1377 

ERA  SC0N6 

5007 

= 

1280 

3 

1282 

1283 

EXTVB1 

23,2000 

= 

3 l 

1 

286 

ENGINOFF 

36,3545 

767 

1 

767 

ERASER 

10,3344 

1365 

1 

1359 

EXTVERBS 

43,2000 

35 

7 

277 

1381 

-E-NG  I-WOF  1 

36 ,3555 

767_ 

1 

744 

ERASl-D 

5011 

= 

36 

1 

991 

EXVERT 

31,3411 

816 

1 

803 

ENGINOF2 

36,3551 

767 

2 

834 

854 

ERASLOOP 

43,3375 

1282 

4 

1282 

1283 

EO 

E7, 1674 

= 

160 

ENGINOF3 

36 ,3564 

767 

1 

741 

ERASTAL1 

13,3473 

12  16 

i 

1216 

E01 

E 4 , 1634 

= 

132 

1 

132 

.ENG  1RQF  4_3_6  .JlSjSJ 

767 

1 

750 

ERASTAL2 

13,3476 

1216 

i 

1216 

F02 

E4, 1642 

= 

132 

ENGOFF 

27,3212 

853 

1 

848 

ERASWAK1 

13,3501 

1216 

El 

E7, 1676 

= 

1 60 

ENGOFFDT 

E 7 , 1 644 

= 

167 

5 

167 

853 

ERASWAK2 

13,3503 

1216 

E134567B 

43,3356 

1282 

1 

1283 

FNGOFF1 

27,3245 

854 

2 

.853 

FRAS7FRP 

0007 

= 

2 08 

2 

208 

E 2 

E7, 1700 

= 

160 

1 

160 

FNGOFTSK 

36,3542 

767 

3 

256 

769 

ERCNT 

0117 

= 

112 

7 

480 

484 

E2DPS 

F 7 , 1 6 1 7 

= 

1 64 

3 

789 

826 

ENGONBIT 

4745 

= 

90 

6 

1 89 

914 

ER  COM 

40 ,3653 

484 

1 

484 

E3 

E 7 , 1702 

= 

160 

ENGQNFLCL 

0 12  3 

90 

ER  COM  P 

E5  , 1563 

= 

143 

8 

3 89 

393 

E70VFRLA 

E7, 1467 

= 

155 

3 

155 

162 

ENTER 

41,2002 

419 

2 

412 

459 

ER  C ON 

40 , 3666 

484 

1 

483 

ENTERDAT 

C7 ,2070 

261 

ERCOUNT 

1365 

= 

1 24 

3 

124 

1280 

F 

E 7, 1733 

158 

7 

158 

781 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

OFF 

H 

REF  ERFNCES  SYMBOL 

DEF 

H 

REFERENCES 

3 

1 4-8  1 

F F TAG  1 1 

4000 

_ 

27 

...  _ F IXRQOT 

00. 3A53 

1075 

3 

ID  7 Al. 

FACEREG 

0 1 5 A 

= 

1367 

8 

1357 

1358 

F F TAG  1 2 

AOOO 

= 

27 

FIXY 

2 7,2  A6 A 

776 

l 

776 

FAIL- 

20,3435 

1 A9A 

1 

1A9  A 

FF  TAG  1 3 

AOOO 

= 

27 

FLAGGON 

22,3310 

722 

1 

722 

f a t i anp 

17, 3 142 

1452 

2 

1452 

FF  TAG  2 

AOOO- 

= 

77 

2- 

12  98 

13-0.0.  a LA  GO  FT 

35.353? 

6 88 

1 

687 

FA  I LR  EG 

0375 

l 16 

15 

226 

1376 

FF  TAG3 

AOOO 

= 

27 

1 

1303 

FLAGON 

35, 3A65 

687 

2 

687 

FAIL3 

5613 

1375 

1 

1375 

FFTAGA 

AOOO 

= 

27 

2 

13A8 

1373  F LAGOODW 

F 6 , I6A7 

= 

151 

6 

151 

918 

- FAKEPRET 

5 164- 

11 QQ 

7 

109.8 

110.8 

FETAG5 

_ 6.000 

= 

.77 

3 

55 

60A  FLAGORGY 

32,3012 

789 

FALTOF 

A 3 70 

A 7A 

FF  T AG  6 

6000 

= 

27 

4 

526 

1 A52  FLAGWRDO 

007  A 

= 

R 1 

36 

180 

1409 

falton 

A 36  A 

A7A 

10 

2A6 

1389 

FFTAG7 

AOOO 

= 

27 

2 

13  75 

1376  FLAGWR01 

0075 

= 

83 

29 

232 

1309 

FLAPS  ___ 

_3.fc.,2006 

53 

. 2 

765 

78? 

FFTAG8 

AOOO 

= 

27 

1 

A 5? 

FLAGWR02 

0076 

= 

8 A 

29 

180 

1309 

FASTCHNG 

31,3721 

825 

10 

799 

819 

FF  T AG  9 

AOOO 

= 

27 

1 

13  99 

FLAGWRD3 

0077 

= 

86 

20 

221 

1326 

FAZA 

23,2673 

11A8 

1 

1150 

FHNM 

25,3577 

578 

1 

577 

FLAGWRDA 

0100 

= 

88 

30 

237 

1365 

FA 7 AB  _ 

23  t 3050 

1 1 51 

. __L 

.115  2 

. F.1FP.SDP 

3A.2101 

642 

1 

650 

FLAGWR05 

0101 

= 

89 

28 

172 

l AA7 

FAZABl 

23,3076 

1151 

1 

115  1 

FIFTYFPS 

3A.2663 

650 

1 

6A9 

FLAGWRD6 

0102 

= 

91 

16 

201 

975 

FAZAB2 

23,3102 

1151 

1 

1151 

F1GTIME 

35,3010 

677 

FLAGWR07 

0103 

= 

93 

31 

201 

1384 

FAZAB3- 

-2  3-1-11 

14.-51 

1 

1151 

E1LDEL-Y- 

_E5, 1A60 

= 

143 

. 1 

1 A3 

FLAGWRD8 

010A 

= 

94 

13 

273 

969 

F AZ  ABA 

23,3121 

1151 

1 

1152 

FILLED 

01,3366 

1121 

1 

1120 

FLAGWRD9 

0105 

= 

96 

7 

7A6 

852 

FAZAB5 

23,3130 

1152 

2 

1152 

1218 

FINALBIT 

A7A6 

= 

85 

FLAP 

0216 

= 

97 

3 

833 

8A2 

fazal 

23*2677 

1149 

F.I  NALOV  . 

00,2625 

1059 

- 3.  1052 

1058.FLAP3LT 

A74A 

= 

97 

FAZB 

23,2772 

1150 

1 

11A9 

FINALFLG 

OOA7 

= 

85 

9 

632 

735  FLASHH? 

21,2121 

829 

FAZBI 

23,2775 

1150 

FINDCDUW 

30 , 3 06 A 

909 

5 

779 

909  FLASHOFF 

AA3  3 

A 7 5 

6 

289 

1359 

FAX&2 

-2  3 *-302 3 

1150 

1 

1 1 50 

F I NOG  I MB- 

27,7136 

A9_5 

2 

A 9A 

A95  FLASHON 

AA27 

A 7 5 

A 

A20 

1362 

FAZB5 

23,3030 

11  50 

1 

1150 

FINDKFY 

07,2365 

269 

1 

269 

flashsub 

10,3133 

1362 

3 

1360 

1361 

FAZC 

23,3036 

1150 

2 

1150 

FINDTIME 

01 ,3576 

1298 

2 

1298 

FLASHV? 

21,2127 

829 

1 

829 

F-SAWK 

-G-OjQA 

- 

108 

30 

-A  6.8- 

1371 

F.INDVAC 

5105 

1098 

A 3 

2 26 

1385  FLAT 

E6j 1555 

l 49 

6 

1 A57 

1496 

FBANKMSK 

A350 

= 

1005 

2 

1106 

FI NDVAC2 

01,2576 

1101 

2 

1098 

1100  FLATEMP 

0151 

= 

1498 

6 

1 A90 

1495 

FBI ASSUB 

06 ,36AA 

3A9 

3 

3A7 

3 A8 

FINE 

01,2335 

310 

1 

3 09 

FLATOUT 

3 1 , 2 A 1 5 

800 

1 

7A9 

J-LBR-3—  - 

11,. 2 A 1 1 

I2  25_ 

1 

3239 

EINLEK.2 

A3, 2357 

288 

FLAT0UT1 

31,2337 

798 

2 

79  R 

FC 

E7, 1613 

16A 

3 

1 6 A 

797 

FI NFONLY 

1 A , 3230 

9 AA 

1 

944 

FLAT0UT2 

3 1 , 23 A 1 

798 

1 

798 

FCADRMM I 

0A.2A00 

2A8 

1 

2A7 

FINET IMF 

A 10  2 

3 94 

3 

392 

1330  FLATVAL 

20,3653 

1 A99 

1 

1490 

EC-DUW 

-3-0-»-200.Q  . 

- 

_ 33 

1 

.909. 

f INIM.UDD 

37,2320 

391 

] 

387 

FLGWR010 

0106 

98 

20 

98 

1480 

FCODD 

E7, 1560 

= 

16A 

7 

1 6 A 

799 

FIREDB 

E6 , 1 60 1 

= 

1 A9 

10 

1A56 

1 A96  FLGWRD1 1 

0107 

= 

99 

38 

2 AA 

8 93 

FCOLD 

E7.1616 

= 

16A 

A 

1 6 A 

800 

FIREFCT 

E6, 1737 

= 

1 A8 

7 

1 A33 

1 A63  FLGWR01 2 

0110 

= 

10  1 

1 

101 

FCOMPSE-T 

-31,2320- 

798 

1 

- 7.9.8 

F1RF.P 

16, 3 0-20 

1 A25 

FLGWR013 

0111 

- 

1 03 

1 

103 

FDA  I X 

E A , 1 7 50 

13A 

2 

320 

A91 

F I REOR 

17,2176 

1 A38 

FLIP 

4606 

536 

2 

829 

FDA  I Y 

E A , 1 75 1 

13A 

FIRSTRIT 

A7A1 

= 

92 

flogsub 

32,2000 

= 

33 

1 

857 

FDA4-Z 

-E  A,  17-52 

13  A- 

FIRSTFLG 

0136 

92 

4 

7 72 

783  FI  PASSO 

E 7 , 1621 

- 

16  5 

4 

165 

813 

FDOT 

2 A , 2006 

68 

1 

1138 

FIRSTIME 

12,2621 

1178 

i 

1 1 78 

FLPAUTNO 

E6, 1650 

= 

151 

4 

151 

914 

FDPS 

36,2000 

53 

1 

761 

FIRSTTME 

27,3012 

7 8A 

i 

785 

FLPC 

0212 

= 

96 

2 

8 48 

1EEO&AC4C 

1-7, 3003  . 

1AA9 

1 

LA  A 8 

FIVE- 

A756 

1090 

26 

238 

I A2A  FLPC8IT 

A7A0 

— 

96 

FETCHZNB 

30.317A 

912 

1 

912 

FI  XCLPAS 

AO, 2A02 

A 1 5 

FLPI 

021  3 

= 

97 

4 

839 

851 

FETCH2WD 

05,3575 

9 89 

2 

986 

987 

FI XOE  LAY 

5221 

11  1A 

1 6 

5 11 

1307  FLPI8IT 

A7A1 

= 

97 

i 

852 

EEXXRA 

A 7 3 7- 

- 

- -8-QO- 

1 

798 

JE1XL0C 

0120 

112 

59 

261 

1A98  FLRCS 

0 2 1 A 

- 

97 

A 

332 

85  A 

FFTAG1 

AOOO 

27 

3 

1288 

1369 

FI XMIN 

20,3633 

1 A97 

1 

1 A 9A 

F LR  C SB  I T 

A7A2 

97 

2 

851 

FFTAG  10 

AOOO 

= 

27 

1 

170 

FI XRANGE 

AO, 2652 

A 3 1 

1 

A 31 

FLTRSUB 

30, 3A5A 

91  8 

2 

911 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

95 

3 

74  6 

R51 

F 2 HP  5$  2 1 

2 L , 2000 

_ 

30 

1 

819 

GET  A7F1 

1 4,3  65-5_  . 

- 954 

2 

953 

954 

FLUND ISP 

0175 

= 

95 

4 

749 

832 

F20PS*31 

31.2000 

= 

33 

4 

54 

822 

GETCADR 

01,3513 

1127 

1 

1127 

FL  VR 

0210 

- 

96 

4 

834 

852 

F2  DP  S#  3 2 

32,2000 

= 

33 

3 

55 

789 

GETCOMP 

41,2515 

429 

5 

427 

429 

GETO AT 

07, 7060 

?61 

4 

2 59 

267 

FLZONBIT 

4746 

T 

97 

1 

852 

G ( CSM ) 

E4, 1722 

= 

136 

4 

136 

883 

GETDT 

36,3710 

76  9 

2 

76  6 

769 

FLZONEO 

0220 

- 

97 

3 

935 

847 

G+N, AUTO 

26,2233 

488 

2 

487 

755 

GET  ECC 

12,3707 

1195 

1 

1195 

F.MAXHDD 

3 1 f? 002 

55- 

1 

7 9 8 

GACC 

E5_,1706 

- 

139 

4 

9 63 

964 

GETERAD 

1 3,2466 

1131 

1 

1134 

FMAXPOS 

31,2003 

55 

1 

798 

GAINFLTR 

30,3733 

924 

i 

918 

GETGOBL 

27,3020 

784 

1 

784 

FORCEONE 

20,2034 

3 07 

1 

307 

GAMCOMP 

11,2563 

1227 

3 

1226 

1227 

GET  INREL 

40,2324 

414 

4 

412 

417 

FORCFV25 

42-»  3 5-77 

440 

_X 

44  9 

GAMMA  _ 

E7, 1475 

— 

160 

5 

160 

1148 

GETLMATT 

15,3523 

975 

1 

972 

FORMULAl 

17,3440 

1459 

1 

1458 

GAMPREV 

E 7 , 1605 

156 

7 

157 

650 

GETMAXDT 

13,3343 

12  14 

1 

1213 

F0RMULA2 

17,3450 

1459 

l 

145  8 

GAMRP 

0010 

= 

1133 

3 

1129 

1133 

GETMKS 

07, 2202 

267 

3 

263 

276 

FORMULAE 

17,3553 

1461 

1 

.1460 

GCOM.P  - 

E3  , 1471 

126 

24 

1 26 

950 

GETNFWNM 

5427 

1294 

1 

1293 

FORTYONE 

13,3457 

1215 

1 

1208 

GCOMP  SUB 

06 , 3425 

344 

6 

3 42 

343 

GETPART2 

01,3536 

1297 

1 

1302 

FORVEL 

E 7 , 1 677 

= 

166 

2 

166 

903 

GCOMPSW 

E3.1477 

1 26 

10 

3 39 

396 

GETPRIO 

5423 

1293 

2 

1293 

1296 

FORVMFTR 

£7, 1675- 

= 

-L66_ 

X 

166 

8 99 

GCOMP ZER 

06,3701 

349 

1 

° 63 

GFTRPSV 

11,2535 

1227 

1 

1227 

FOUR 

4751 

= 

1094 

47 

226 

1467 

GC0MP1 

06,3540 

346 

1 

346 

GETRVN 

37,3346 

715 

1 

714 

FOURSECS 

27,2572 

779 

1 

779 

GCTR 

E5 , 1736 

= 

138 

10 

138 

964 

GETRVN2 

37,3360 

715 

FOURIEE N 

4317 

- 

10-6-8 

4 

5X3 

1476 

-GDESEL.CT 

07,3601 

1320 

1 

1315 

GFTULC 

26,3276 

596 

3 

587 

596 

FP 

£7,1562 

= 

164 

5 

797 

799 

GDT/2 

1236 

121 

1 2 

121 

901 

GET  X 

12,3000 

1185 

3 

1182 

1195 

FRANDRES 

05,2000 

28 

2 

58 

226 

GOT  1/2 

E7 ,1560 

= 

162 

5 

162 

884 

GET22/32 

21,2736 

902 

F-RCS2 

-3-6-,  2 01-6- 

53- 

2 

. 76 3- 

7 80  GnilMP  1 

3 1 , 342 1 

817 

GET45 

35,3570 

689 

3 

689 

FRCS4 

36,2014 

53 

i 

762 

GEADDR 

6135 

1000 

1 

1000 

GFACTM 

20,3027 

1487 

1 

1482 

FREEFBIT 

4751 

= 

82 

i 

963 

GEFF 

E4, 1720 

136 

4 

1 36 

850 

GIMBLBTS 

20,3021 

1487 

2 

1483 

FR  SiF  LAG- 

00-14 

- 

a 2 

- 1-2 

939 

9 81 

-GENU  0 V. 

00,2570 

1057 

2 

10  56 

1060 

GIML0CK1 

23,3335 

1249 

1 

1248 

FREERET 

0144 

= 

113 

GENMARK 

10,2674 

1358 

GL+NOATT 

40, 3670 

484 

1 

483 

FRSTPAS 

34,2644 

649 

i 

649 

GENMASK 

0162 

= 

1367 

4 

13  50 

1363 

GLAMPTST 

06,2507 

185 

1 

185 

FR ST ZERO 

-20 , 2 674 

-14-84- 

X - 

14  83- 

-GFNPL 

£5,1434 . 

= 

L42 

- 27 

_ 1 42 

143 

GL  I N VERT 

06.2500 

l 85 

1 

185 

FSUBO 

24,2014 

69 

1 

1138 

GENRFT 

1143 

120 

4 

5 23 

531 

GLM 

35,2000 

= 34 

1 

662 

FTHROT 

31  ,2000 

= 

33 

3 

55 

797 

GENSCL 

00,2346 

1051 

2 

1051 

GLOCKCHK 

06,2441 

184 

2 

184 

F-UELNEED 

-EX,  1 664 

= 

L65l. 

-G.ENSCR 

00,2277 

1050 

4 

1049 

1071 

GLOCKMON 

06,2434 

1 84 

1 

182 

FULLAPS 

05,2000 

58 

1 

227 

GENSHFT  2 

00,2224 

1048 

i 

1048 

GLOCKOK 

5270 

= 196 

4 

185 

FULLDSP 

41 ,3654 

4 80 

l 

480 

GENSHIFT 

00,2214 

1048 

i 

1039 

GLOKPAIL 

0056 

= • 86 

2 

387 

l 249 

EUXLD-SPX 

41 , 3655 

ABO- 

- 1 

4.8  0 

GENTRAN 

5544 

1373 

4 

312 

1495 

GLOKFBIT 

473  6 

= 86 

FULLTIME 

17,3422 

1458 

6 

1459 

1463 

GEOCOMPS 

£5,1562 

= 

143 

3 

3 97 

398 

GMBDRBIT 

4742 

= 97 

1 

786 

FUNCTION 

E 6 ,1747 

= 

147 

23 

1468 

1477 

GEOIMUTT 

37,2004 

386 

GM8DRVSW 

0137 

= 92 

2 

785 

786 

-EUNCX2 — 

--21,3  4CL5 

1469 

-2 

1469 

-GFOM 

04,3051 

1184 

2 

11  83 

1189 

GMBLBITA 

21,3760 

1478 

1 

1477 

FUNCT3 

21,3413 

1469 

GEOMSGN 

E5, 1672 

= 

140 

7 

140 

1190 

GMRL8ITB 

21,3762 

1478 

FUNNYOSP 

E7 , 1664 

= 

165 

5 

165 

330 

GEORGEJ 

37,3107 

402 

2 

4 00 

401 

GMERGE 

07,3453 

1317 

1 

1320 

-EUNTFM 

0-157 

- 

1498- 

2- 

149_0_ 

14-9.1 

G.F.ORG  EK 

37,3111 

402 

GMODE 

E4.1501 

= 130 

1 

130 

FV 

E4 , 1461 

130 

13 

130 

1241 

GEOSTRT  4 

37,3025 

401 

GN/CCODE 

5 00  1 

1091 

FVACC ADR 

01,3770 

1302 

1 

1299 

GET.LVC 

10,2021 

701 

4 

663 

773 

GNUFAZE5 

37, 3515 

860 

3 

858 

867 

F4JE-IGRT- 

-E  7 , 1606 

= 

-164 

4 

164 

800 

GET+MGA 

10,2005 

701 

2 

689 

701 

GNUR 

E 7 , l 654 

= 165 

4 

886 

890 

FXADR  S 

43,3565 

12  85 

2 

1286 

GFTABVAL 

33,2211 

861 

1 

861 

GNURVST 

33,3517 

889 

2 

886 

889 

FXFX 

43, 3551 

1285 

1 

1286 

GETAOSUV 

20,3154 

1490 

GNUTFAZ5 

37,3511 

860 

2 

858 

860 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

OFF 

H 

REFERENCES 

1 - 

l 

389 

GO MOVE 

23 ,2073 

497 

1 

497 

GRAV-EL 

1 5,-2646 

96  2 

1 

962 

GOABORT 

32i  3257 

832 

1 

256 

GONXTBNK 

43,3670 

1286 

3 

12  86 

GREED 

15,2772 

964 

l 

9 64 

GOAGIN 

10,2723 

= 1366 

GOODARG 

21,3603 

1475 

1 

14  75 

GRP20FF 

21,2334 

873 

3 

873 

GOAL  M-CYC  41 , 235-0 

425 

1 

-4A4— 

-GOOD END 

07,3640 

1322 

4 

2 60 

1322 

GRP2PC 

04,3165 

1222 

26 

505 

1238 

GOANIDLE  10,3014 

13  60 

1 

1360 

GOODMANU 

22,3234 

382 

i 

3 76 

GRP2SVQ 

E 5 , 1 7 1 1 

= 

141 

3 

141 

1222 

GOBAC 

13,3471 

1215 

2 

1215 

GOODNEG 

20,2746 

I486 

i 

1485 

GRP4DFF 

32,3404 

834 

-GOBACK 

35 ,3733 

755 

2 

J-55 

JSOODRAD 

25,3253 

567 

i 

569 

GSAV 

E4, 1634 

1 32 

9 

132 

977 

GOBAOUE 

11,2707 

1229 

2 

1232  1238 

GOPERFRS 

10,2560 

1356 

GSCALE 

31 ,3750 

827 

i 

813 

GOBB 

4054 

169 

1 

168 

GOPERFS 

10,2500 

1354 

GSELECT 

07,3406 

13  16 

3 

1315 

nrmi  ttmf  F7.1  ^07 

= 1-62- 

3 

162  7 84  GO.PE-R-F  1 

-LO  ,-2476 

1354 

1 0 

509 

1329 

GSHIFT 

7620 

1039 

1 

1006 

G0CH56 

17,2034 

1399 

2 

1399 

GOPERFIR 

10 ,2556 

1356 

GTMP 

0026 

= 

982 

5 

980 

982 

GOCLOSE 

21,3753 

1478 

G0PERF2 

10,2503 

1354 

GTS 

21, 3263 

1467 

i 

1444 

. nnniTnFF 

754 

2 

73  9-  741 

-G0PERF2P 

10 ,2563 

13  5-6 

1 

4 86 

GTSCAOR 

17,2561 

1444 

i 

1443 

GODSP 

10,2321 

13  51 

G0PERF4 

10,2506 

1354 

2 

505 

665 

GTSF IN 

42,2147 

320 

i 

443 

GODSPALM  41,2351 

425 

20 

419  466 

G0PERF4R 

10,2566 

1356 

1 

927 

GTSF INLC 

41,3157 

443 

i 

443 

- cnnsPB  . 

in.  2 3_?  7 

1351— 

3 

4 8J  9AL 

GORIN  . . 

-43,2121 

-2  79 

_ -2_4- 

-2.80 

313- 

GTSFOUT 

42.2141 

3 1 9 

i 

430 

GODSPRET  10,2324 

13  51 

4 

763  948 

GOPLAY 

10 ,2743 

= 

1366 

1 

13  54 

GT  SFDUTL 

41,2564 

430 

i 

430 

GODSPRS 

10,2512 

1355 

8 

1349  1356 

GOPOODOO 

5665 

1377 

1 

257 

GTSGO+ON 

21,3277 

1467 

_ -GOD-SP  R.S  1 10.2514 

1355 

— L 

3351- 

-GO-POOF  I X 

04,2024- 

2 39 

2 

239 

257 

GTSQ4XI S 

21,3314 

1468 

i 

1467 

GODSP  R l 

10,2330 

1351 

GOPOST 

36,3057 

754 

2 

739 

740 

GTSTFMPS 

E6.1735 

= 

147 

13 

147 

G0DSPR2 

10,2331 

1351 

2 

1349  1352 

GOPROG 

05,2667 

230 

2 

168 

169 

GUESS 

37,2020 

386 

GOD-RPP 

1351- 

-GQPRQ-G  2 

05,7771 

231 

2 

2 45 

303 

GUFSSBI T 

4752 

= 

84 

GOESTIMS  37,2113 

3 87 

1 

387 

GOPROG2A 

05,2772 

231 

1 

231 

GUESSW 

0034 

= 

84 

3 

695 

1190 

GOEXTVB 

43,2000 

2 77 

1 

421 

G0PR0G3 

05,2776 

231 

2 

231 

GUESS1 

37,2255 

390 

- - GOF 1 ASM 

LQ-.  215 1 

1352- 

41 

340  972 

-GOQ-  _ — 

41,3025 

441 

-L 

441 

GUI DDURN 

32, 3253 

793 

1 

790 

GOFLASHR  10,2510 

13  55 

9 

691  971 
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11,3237 

1234 

2 

12  34 

IRIGl 

06,3353 

34  l 

3 

339 

350 

INE-RCQNC- 

-2-0,3006 

-1487- 

L 14.81 

3NT.GR  CAL 

26,3205 

594 

7 

586 

594 

I SC ADR  + O 

4270 

468 

2 

468 

477 

INFINAPO 

12,3736 

1196 

2 1196 

INTIME 

E7 , 1605 

157 

6 

677 

734 

T SITAUTO 

26,2240 

489 

1 

378 

INFINBIT 

4745 

= 

95 

INTINIT 

13,7000 

= 

29 

4 

61 

1217 

T SITNOO 

10,3030 

1360 

1 

1360 

I NF  INFL-G- 

-0-2-00 

= 

95^ 

4 1 1-82 

1191 

INTINT 

35,3422 

686 

6 

637 

684 

I SITPR 10 

1 Oj  3 1 1 3 

136  1 

2 

136? 

INF  IN  ITY 

12,3216 

1188 

5 1185 

1188 

INTINT2C 

34,3062 

654 

2 

646 

647 

I SLI ST+O 

4224 

463 

2 

468 

477 

INFLIGHT 

23,2000 

= 

31 

2 338 

1244 

INTINT3P 

34,3071 

654 

2 

637 

ISSERVON 

04,2106 

243 

1 

242 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

1 RD 

JA  PFG* 

F5 , 1460 

_ 

1 37 

1 

137 

KE1 

F 4 , 1-63-4 

_ 

l 3? 

12 

373 

493 

I SSWOFF 

06,'  2716 

194 

JBRFG* 

E5 , 1430 

= 

137 

2 

137 

826 

KEPCONVG 

12,2342 

1173 

3 

1172 

1173 

ISSWON 

06 ,2726 

195 

1 

194 

JDG2TTF 

E5 , 1430 

= 

826 

1 

8 11 

KEPC1 

0042 

= 

1197 

3 

1 169 

1186 

I SSZERQ  - 

OF  t?3F1 

181 

1 

1 89 

.1 F TR  A TE  . 

E 6, 17-43 

= 

- 147 

5 

I 47 

1420 

KEPC2 

0044 

= 

1197 

3 

1 169 

11  86 

ISWCALL 

4700 

9 95 

JETRATEO 

E6.1744 

= 

147 

3 

14  18 

1466 

KEPLERN 

12, 2000 

1169 

2 

1224 

I SWRETRN 

4707 

995 

3 

622 

767 

JETRATER 

F6 , 1745 

= 

147 

3 

14  18 

1466 

KEPLOOP 

12,2175 

1171 

L 

1173 

ITCIR 

_EX*  1614 

= 157 

4. 

6 95  . 

- 698 

JETSALL 

16,3537 

1434 

1 

14  34 

KEPPREP 

11,2311 

1223 

3 

1212 

1229 

ITEMPl 

0061 

111 

80 

1 1 1 

1421 

JETSOFF 

16 , 3421 

1432 

7 

1426 

1434 

KEPRTN 

E4, 1512 

= 

130 

3 

1173 

1224 

ITFMP2 

0062 

111 

34 

1 1 1 

1474 

J F T SON 

17,3337 

1457 

K E P ZERO 

11,2274 

= 

1181 

4 

1169 

1195 

ITFMP 3- 

0063 

111 

34 

111 

1472 

■IL  ING  - 

E4, 1676  _ 

= 

1 35 

3 

1 35 

811 

KEYCOM 

04, 3224 

1332 

I TE  MP4 

0064 

111 

17 

111 

1320 

JOBGVER 

26,3405 

= 

604 

7 

603 

604 

KEYRPTBB 

4060 

169 

2 

168 

169 

ITEMP5 

0065 

111 

50 

111 

12  94 

JOBSLEEP 

5133 

HOC 

8 

387 

1371 

KEYRUPT 

04,2000 

= 

27 

1 

1332 

ITEMP6 

0366 

Ml 

_ 9 

19  5- 

14  72 

-UQ3SLP1 

01,2773 

1105  - 

1 

1100 

KEYRUPT1 

04,321 5 

1332 

2 

168 

169 

ITERATOR 

12,2551 

1178 

i 

1191 

J0BSLP2 

01,3004 

1105 

1 

1107 

KEYTEMP1 

0073 

= 

1 1 1 

6 

169 

1333 

ITERCTR 

0026 

= 1199 

5 

69  7 

1179 

J08WAKE 

5137 

1100 

13 

385 

1372 

KEYTEMP2 

0734 

= 

116 

2 

1333 

I T I SMS  K 

l-Q-f-3 14 1 

1362  - 

1 

136  1 

jaB.liA.KE2 

01,3020 

110-6  - 

1 

11-0-0 

K IGNV/R4 

E 5. 1474 

= 

137 

2 

137 

791 

ITRO 

6367 

1009 

J0BWAKE3 

01,3032 

1106 

2 

1106 

KIGNX/B4 

E5, 1470 

= 

137 

3 

137 

791 

ITR1 

6356 

1009 

J0BWAKE4 

01 , 3024 

1106 

1 

1106 

KIGNY/B8 

E5, 1472 

= 

137 

2 

137 

791 

- ITRLQ  _ 

- 6X4-1- - 

10-00.  - 

JOBXCHS 

10,2647 

1357 

2 

1352 

1353 

KILCLOCK 

3 5*  3605 

689 

2 

689 

690 

ITR11 

6201 

1001 

JSWCHBIT 

4736 

= 

81 

KILLBB 

6035 

757 

1 

757 

ITR12 

6133 

1000 

JSWITCH 

0001 

= 

81 

5 

1234 

1239 

KILLCLOK 

36,2736 

751 

1 

751 

ITR13 

_ 6217 

1002 

1 

10.0  1. 

JTLS.T 

17,3046 

1450 

2 

1432 

1449 

KILLDEAD 

27, 2265 

758 

1 

758 

ITR14 

6236 

1003 

JTONTEST 

17,3717 

1501 

1 

1501 

KILLMON 

41, 3314 

451 

2 

451 

ITR15 

6122 

1000 

JUMPQSP 

16,2203 

1408 

1 

1405 

KILLTASK 

6027 

757 

9 

526 

753 

I TR  7 

-62X0 

1004.  - 

J U.NC-T  N 1 

_24,3373 

733 

1 

733 

KILLTSK2 

27,2223 

757 

2 

757 

ITSAJOB 

01,3632 

1299 

1 

1298 

JUNCTN2 

34,3426 

734 

1 

7 34 

KILL3 

04,2251 

245 

3 

246 

I TSAJ0B2 

01,3743 

1302 

1 

1300 

JUSTOA 

15 ,2042 

265 

1 

2 66 

KILMONON 

4204 

467 

4 

459 

481 

ITSATBL  g 

-Ol  , 3-6-46— 

12-99 

. -1  - 

129  7 

JU.S TOUT  . 

16_,  3136 

1428 

1 

1429 

KLEENEX 

10j  22  11 

1349 

ITSAVAR 

01 ,3546 

1297 

1 

1297 

JUSTTRIM 

15,3074 

965 

1 

969 

KONMAT 

05,2001 

67 

5 

980 

982 

ITSAWAIT 

01,3565 

1298 

1 

1298 

JUST7.Y 

15,2011 

265 

1 

2 66 

KPIP 

33,2020 

57 

1 

861 

- -USEVEN  - 

-0  1,3747 

1302- 

_L 

12.9  9 

J2RE-Q-S.Q- 

13 ,2012 

61 

1 

123L 

KPIP1 

33, 2021 

57 

3 

86? 

887 

ITSINDIR 

5436 

1298 

1 

1298 

J4REQ/J3 

13,2012 

61 

2 

1231 

KPIP1  ( 5) 

21,2004 

57 

3 

1 

900 

901 

I TSLGCL2  01 ,3704 

1301- 

, ni 

1301 

_K(  AT  ) . 

32,3605 

838 

1 

833 

KO 

E6,  1503 

147 

5 

147 

1483 

ITSLIKEB 

01,3617 

12  99 

l 

1297 

K ( 1/DV) 

32 ,2002 

54 

1 

8 33 

KQ2 

E 6 , 1 5 04 

= 

147 

1 

1483 

ITSLNGCL 

01,3731 

1301 

l 

129  7 

KALCMAN3 

22,2004 

364 

1 

1325 

KRDAP 

E 6 , 1505 

= 

147 

1 

1483 

ITSNQVAC  0 1 , 3 642 

. 1299 

l 

1299 

KALCM0N1 

22,2000 

- 

31 

4 

364 

378 

KR2 

F6, 1506 

= 

147 

1 

1483 

ITSWBIT 

4735 

= 93 

KALCM0N2 

22,2000 

= 

31 

i 

369 

K SPNDX 

F 6 , 1677 

T" 

150 

6 

150 

380 

ITSWICH 

0151 

= 93 

5 

637 

6 76 

KALEBCON 

07,3745 

1325 

i 

1325 

KT 

E7, 1573 

= 

156 

5 

675 

737 

ITSiiTLST 

01 ,3736 

130-1 

1 

1 300 

KAOS 

16 ,2612 

1422 

KT  1 

30,3045 

856 

1 

847 

I TURNON 

06,2533 

1 87 

1 

196 

KCENTRAL 

E6.1741 

= 

147 

3 

147 

1468 

K V 1 

F 6 , 1701 

= 

150 

4 

150 

I TURNON  2 

06,2556 

188 

2 

187 

191  KDPNDX 

E 6 , 1700 
E7 , 1556 

= 

150 
1 64 

3 

1 

150 
1 64 

380 

K V2 
K V 3 

E6, 1707 
F6t 1 71 5 

= 

150 

150 

4 

4 

150 

150 

JAMPROC 

4243 

469 

KEEPPRIO 

10,2417 

1353 

2 

13  59 

1363 

K 1 

E 6 , 1701 

= 

1 50 

JAMTERM 

4231 

468 

1 

1361 

KEEPVR 

27,3205 

853 

1 

8 53 

K10RK2 

34,2542 

648 

1 

648 
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OF 

DEF, 

# OF 

REFS, 

PAGE  OF  FIRST  REF,  PAGE 

OF  LAST 

REF. 

SYMBOL 

DEE 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

OEF 

H 

REFERENCES 

2 7 r 7-nno 

53 

1 

7-8  0 

LA  ST YCMD 

-0112 

_ 

1 12 

8 

1 12 

- 54,6- 

IGCUPHTF 

26f  TT44 

597 

A 

5RR 

_5_93 

K 2 

E6, 1707 

= 

150 

LAT 

1120 

= 

120 

8 

120 

1130 

LGRET 

E7, 1673 

= 

160 

4 

160 

597 

K2. 

34,2561 

648 

1 

648 

LAT-LONG 

13,2351 

1128 

3 

6 66 

930 

LGWAKE 

07,3357 

1314 

2 

1314 

1 315 

K2CNT  RAL 

K2THETA 

1 -T42 

— 

147 

- 1 

1463 

- - LAT AZCH-K- 

37 ,2021 

3-86 

JL.GY  R 0 _ 

1314 

122 

9 

237 

1318 

E6,l 735 

= 

147 

7 

1468 

1477  LATFWDV 

21,2746 

902 

LGYR08IN 

43, 2366 

288 

i 

2 8 R 

K2VAL 

27,2002 

53 

1 

78  1 

LATITUDE 

E5 , 1402 

= 

142 

6 

142 

393 

L IGHTSET 

05,3063 

233 

2 

230 

231 

_ K-3 

F 6 ,1 7 1 5 

- 

- 1 50 

LAT-LONG 

13,2000 

= 

- 29_ 

1 

1128 

L I MI  —2  2 ) 

2 7,3730 

1277 

1 

127? 

K IS  1 

22,2370 

370 

LATVEL 

E7 ,1676 

= 

166 

18 

1 66 

905 

LIMALARM 

26, 3637 

603 

2 

601 

K3VAL 

27,2004 

53 

1 

781 

LATVMETR 

E7, 1674 

= 

166 

13 

1 66 

906 

L IMITCOM 

42,3330 

435 

1 

435 

--  1 <Jt - 

22,2372 

3-70- 

LATVNEG- 

21,3152 

905 

1 

904 

LIMITS 

4734 

= 

1090 

7 

922 

1415 

K4SQ 

22,2374 

370 

LATVPOS 

21 ,3145 

905 

1 

9 04 

LIMIT  SUB 

30,3700 

923 

7 

913 

918 

853 

1080 

LINGUIQ 
L INRAT 

31,3101 
1 7,2301 

811 

1440 

L 

. _aaoj. 

_ 

1 08  _ 

310 

109 

1.501  LBUF2 

00  ,?470 

1054 

2 

1078 

2 

1 440 

L*WCR*T 

0 130 

= 

137 

2 

798 

LC  HAN 

0001 

= 

109 

19 

173 

1432 

L I NR  ATP 

16,3114 

1427 

1 

1429 

L , PVT-CG 

E6.1527 

148 

1 

148? 

LDANZ IG 

00,3713 

1080 

1 

1079 

L INSET 

31,2647 

806 

1 

802 

ladosave  . 

E 7 ,1712 

= 

166 

-5- 

1 66  - 

906- LDATALSJ 

Q33-4- 

115 

2_ 

115 

989 

LINSFT? 

3 1,2643 

806 

1 

80? 

LAGSL 1ST 

4753 

= 

224 

1 

223 

LDLOOP72 

04,3614 

1387 

1 

1387 

LINUS 

5464 

= 

1367 

2 

487 

75? 

LALOTORV 

13,2422 

1130 

1 

930 

LDNDUMP 

05 , 3642 

991 

1 

991 

L INUSCHR 

10,3247 

1364 

2 

1352 

1353 

-LAMUEPX 

12,3223 

1189- 

1 

- -697- 

LD-ND.U-MP  I 

-43,3056- 

3-0,3 

. 1 

303  - 

1.  INX1.0GC 

31,3270 

8 14 

2 

BOR 

LAMBLOOP 

12,3337 

1190 

3 

119  1 

1192  LDNDUMP1 

05 , 3643 

991 

1 

991 

L ITIT 

25,3650 

623 

1 

623 

LAMENTER 

12,2714 

1180 

1 

1193 

ldnphasi 

05,3337 

237 

1 

2 34 

LMAGSIDL 

05,2407 

= 

219 

3 

208 

219 

LAMPTESJ 

-06  ,2766 

- 1-96 

-2 

1-8  5 

1-8-6-  -LD-N  PH  A S2. 

05,3-562-- 

-.-9-8-8 

J- 

9 86 

L MAGS  10  2 

05.2136 

= 

219 

1 

219 

LAND 

E 7 , 1632 

= 

165 

19 

165 

815  LDPOSMAX 

11 ,2305 

= 

1197 

1 

1196 

L MAG S 1 03 

05,2145 

= 

219 

1 

219 

LANDALT 

E5, 1712 

= 

138 

3 

331 

930  LEFT 

00,2342 

1051 

1 

1048 

L MAGS  I 04 

05,2154 

= 

219 

L 

219 

-LAND  ISP 

21,2340 

8-97  . 

A. 

-329 

83Q  LEE I- 

00,2336 

1051 

1 

1048 

LMAGSI05 

0 5,_2157 

= 

219 

I 

219 

LANDJUNK 

31 ,2 172 

795 

1 

248 

LEFTNCOM 

40 ,3156 

446 

1 

446 

LMCSTADL 

05,2172 

= 

211 

2 

208 

219 

LANDL AT 

E 5, 1706 

= 

138 

4 

138 

930  LFFT5 

4331 

473 

5 

427 

1286 

LMCSTA01 

05,2127 

= 

211 

l 

21  1 

LAND-L-QNCL 

E 5 , 1 7 LQ  - 

— 

- 138- 

..  -4_ 

-13-EL 

930.  1 E-GAL-2-  _ 

21  j 22  74 

837 

2 

8 30 

LMCSTA02 

05,2136 

- 

21  1 

1 

211 

LANDTEMP 

E 7, 1542 

= 

164 

9 

164 

809  LEGALIST 

40,2527 

417 

2 

417 

LMCSTA03 

05,2145 

= 

211 

1 

211 

LARGE 

00 , 3065 

1065 

1 

1065 

LEMALONF 

01 , 2266 

310 

1 

309 

LMCSTA04 

05,2154 

211 

1 

211 

LARGE 2 - 

-00, 3112 

1067 

~2_ 

10.6  5 1066  LEMCO-N.I  C 

13,3100 

1209 

5 

352 

952 

LMCSTA05 

0 5 i_2l  5 7 

— 

21  1 

1 

211 

LARGE3 

00 , 3074 

1067 

1 

1065 

LEMGEOM 

13,2000 

= 

29 

1 

334 

LMCSTA06 

05,2224 

211 

4 

211 

217 

LARMENT 

5601 

13  75 

1 

1378 

LEMMASS 

1331 

123 

2 1 

2 09 

1488 

LMCSTA07 

05, 2226 

211 

2 

211 

217 

LASI-ALEX 00, 363  I 

-10  79  - 

1 

-107  9 

_ -LE-M.OMM 

0056 

= 

109 

LMDSASDL 

05.2303 

- 

2 1 5 

1 

21° 

LAST 

16,3304 

1430 

2 

1430 

LEMPREC 

13,3057 

1209 

13 

36 

971 

LMDSAS02 

05,2136 

= 

215 

1 

215 

LAST8IAS 

06,3663 

349 

1 

858 

LEMSTORE 

23,2357 

706 

1 

706 

LMDSAS03 

05,2145 

= 

215 

1 

215 

— UASICHG — 

1 7,3074 

14-51 

1 

14-5  0 - 

- . -LE-MVEC 

43*3057 

303 

1 

21 S 

1 MDSAS04 

05,2154 

= 

215 

1 

215 

LASTLADW 

E 7 ,1743 

= 

166 

1 

167 

LENGTHOT 

E 5 , 1412 

= 

142 

9 

142 

401 

LMDSAS05 

05,2157 

= 

215 

1 

215 

LASTLRDT 

25,3535 

5 73 

l 

572 

LESCHK 

05,3340 

237 

1 

237 

LMDSAS06 

05,2170 

= 

215 

1 

215 

— LASTNEGY- 

21, 3076- 

..  904- 

-9.03-  - 

-LE-TAB8IT 

4743 

- 

97 

3 

746 

837 

LMDSAS07 

05,2341 

215 

1 

215 

LASTOK 

21,3046 

903 

2 

903 

LETABORT 

0215 

= 

97 

4 

795 

855 

LMDSAS08 

05,?355 

216 

1 

215 

LASTPOSY 

21,3060 

904 

2 

90  3 

LETITLIV 

27 , 2244 

758 

1 

758 

LMDSAS09 

05, 2224 

= 

216 

1 

215 

— -LASTSEG 

07,3503 

13  18 

L_ 

1318 

_ LGCLCADR 

01,3767 

1302 

1 

1301 

1 MINT 

24, 3160 

576 

1 

576 

LASTTIME 

01,3476 

1127 

LGCL2CDR 

5307 

1126 

1 

1126 

LMKAOSN 

E 6 , 1410 

1 44 

1 

228 

LASTXCMD 

0 113 

= 

1 12 

1 

541 

LGCOMP 

06,3531 

346 

3 

3 39 

349 

LMLSALDL 

05,2357 

* 

217 

1 

220 
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, INCLUDING  DEFINITION,  HEALTH,  PAGE 

OF 

DEF, 

H OF 
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OF  LAST  REF. 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

217 

1 

? ] 7 

i nr. sk  trt 

72*27 44 

_ 

3 77 

_7 

366 

368 

Lass  m 

1101 

_ 

6 1 5 

3 

*09 

6_L1 

LMLSAL02 

05,2 136 

- 

217 

1 

217 

LOCTHETA 

10,3577 

1393 

i 

1393 

LOSVDT/4 

E 3, 1760 

= 

615 

5 

609 

611 

LMLSAL03 

05,2145 

= 

217 

1 

217 

LODESCNT 

20,2003 

58 

i 

1481 

LOSVEC 

E5, 1413 

= 

142 

3 

14? 

400 

_ 

2 17 

1 

7.17 

1.  nOMT  XNN- 

42  .2121 

319 

i 

319 

LOS VEL 

F 3 , 1 760 

128 

6 

128 

6 15 

LMLSAL05 

05,2157 

= 

217 

1 

217 

LODNLV 

42,2137 

319 

i 

319 

LOS  1 

F 5, 1444 

= 

142 

LMLSAL06 

05,2170 

= 

217 

1 

217 

LODNNLOC 

41,2113 

421 

8 

420 

440 

L0S2 

E 5 , 1452 

= 

142 

l Ml  SAI  0 7 

0 5* 7-776 

- 

217 

1 

217 

LODNNTAB 

42,2103 

319 

1 

421 

LOTEMIN 

0124 

= 

1 1 2 

LMLSAL08 

05,2224 

= 

217 

1 

217 

LODPHALF 

11,2272 

= 

36 

3 

336 

1195 

LOTEMOUT 

1010 

= 

l 17 

1 

437 

LMLSAL09 

05,2226 

= 

217 

1 

217 

LODPMAX 

11,2305 

1096 

3 

36 

1197 

LOTHRUST 

33,2355 

863 

1 

863 

LMOMLGAN- 

_E  6 » LA0.7 

144 

_2_ 

ZZQ 

1420 

-L0DPMAX1 

11,-2307 

1096 

! 

36 

LOUNITX 

1 lj_22  72 

= 

36 

LMONLY 

16,2451 

14  20 

i 

1420 

LODPl/4 

04,2757 

= 

36 

1 

1132 

LOUNITY 

11,2270 

= 

36 

LMOONBI T 

4741 

M 

95 

i 

228 

LODSAMPT 

4400 

475 

3 

451 

1333 

LOUNITZ 

11,2266 

= 

36 

L MC1QN  EL  G 

CL174 

= 

- 95_. 

5 

3_6 

1207 

LOEN.E  RGY 

12,3451 

1192 

1 

1191 

LOUPE 

2 1,  3747 

1478 

1 

1477 

LMORBMDL 

05,2066 

= 

209 

1 

219 

LOGSUB 

32,3613 

857 

1 

848 

LOVEL 

30,2263 

842 

2 

84? 

LMORRMOl 

05,2127 

2 09 

4 

209 

217 

LOKONBIT 

4747 

= 

82 

1 

562 

LOWCRIT 

E5, 1476 

= 

137 

3 

137 

798 

. L MDRRMn? 

05,2136 

-209 

_ 6- 

-.  209 

219 

—L.OKOJNS.W  . 

0012 

= 

82 

4 

286 

521 

LOWFCOLn 

3 1, 2323 

798 

1 

798 

LMORBM03 

05,2145 

2 10 

6 

209 

219 

LOLIM 

12,351? 

1193 

2 

1190 

LOWIDCOD 

05,2065 

208 

1 

992 

LM0RBM04 

05,2154 

210 

6 

209 

219 

LOMAT 

35,3403 

686 

2 

682 

684 

LOWLOAD 

10,3401 

1366 

1 

136? 

- LM0-SBMQ5 

_D  5_,  2157 

- 210- 

. 6 

209 

_ 219 

LONG  _ 

1122 

= 

120 

13 

120 

1130 

LOW  SUP  FR 

30,2000 

= 

33 

8 

225 

665 

L M0RBM06 

05,2170 

210 

3 

209 

217 

LONGBASE 

1151 

120 

2 

1295 

1301 

LOWVERB 

41,2034 

420 

1 

420 

LMPOS 

E4, 1755 

= 

135 

4 

135 

5 76 

LONGCADR 

1147 

120 

2 

1126 

1127 

LOW  10 

5012 

1092 

21 

247 

1285 

1 MR E-M-DCII  ns.;  71?  . 

2-13 

- - 1 

Z IS- 

1 ONGCAI  i 

.5277 

1125 

4 

3 87 

1302 

L OW 1 l 

4356 

474 

7 

171 

1009 

L MRENDO 1 

05,2127 

= 

213 

1 

213 

LONGCLCL 

01 , 3724 

1301 

2 

1301 

L0W2 

6244 

= 

1094 

i 

1048 

LMREND02 

05,2136 

= 

213 

1 

213 

LONGCYCL 

01,3463 

1126 

2 

1126 

1127 

L0W3 

4757 

= 

1094 

2 

247 

1045 

— — L-M  RE  NDO  3 

-05*2145 

2 13 

L_ 

213 

-LONGEXIT 

E3, 1434 

125 

4 

1126 

1127 

L.QM4 

4762 

1090 

2 

1087 

1369 

LMREND04 

05,2154 

= 

214 

i 

213 

LONGGYRO 

07,3516 

1318 

1 

1317 

L0W5 

4346 

474 

14 

412 

1333 

LMREND05 

05,2157 

= 

214 

i 

213 

LONGPOOH 

01,3516 

1127 

2 

1126 

L0W7 

6073 

998 

14 

243 

1365 

jg^gL-MRCN-DOG  - 

-05^2224 

- 

-2  14 

i 

-213 

LONG-RTRJSI 

OL  ,3503 

1127 

1_ 

1127 

L0W7+2K 

5013 

10  9? 

1 

1004 

LMREND07 

05,2276 

214 

2 

213 

217 

LONGTIMF 

1153 

120 

1 3 

1125 

1301 

L0W8 

4357 

474 

20 

206 

1387 

LMTRAP 

E6.1406 

144 

2 

228 

1420 

LOOKANGL 

E7 , 1665 

= 

165 

1 

8 11 

L0W9 

5004 

1091 

12 

260 

1108 

_ LMVEL  _ 

f 4, 1-763 

= 

135 

3- 

510 

576 

-LOOPCT 

E 7 , 1603 

= 

1 56 

5 

643 

651 

L06ZER0S 

1 1,2  2 74 

= 

36 

4 

263 

1181 

LNCHTM 

E 7, 16 56 

= 

163 

3 

163 

507 

LOOPER 

17,2737 

1448 

3 

1442 

1449 

LPS20. 1 

24, 3151 

576 

A 

508 

531 

LNGCALL2 

0 1 , 3447 

1126 

1 

1126 

LOOPMX 

34,2057 

642 

1 

643 

LPS20. 2 

25,3565 

577 

i 

508 

U3AD.DAP  _ 

-2JQ_.-2DJD.Q_.-. 

= 

30- 

1 

307 

LOOPRATF 

16,3653 

1465 

2 

1465 

1466 

LRADRET 

E7, 1646 

= 

165 

3 

165 

896 

LOADDAP l 

01,2000 

= 

27 

2 

58 

308 

LOOPSIN 

22,2417 

370 

1 

371 

LRADRET1 

E 7 , 1654 

= 

165 

2 

895 

896 

LOAD  I T I S 

10,3334 

1365 

1 

1362 

LOOP  1 

23,3622 

1259 

1 

12  58 

LR ALPHA 

E7, 1412 

153 

2 

1 53 

8 96 

LOATLLV 

4-L.-27  75 

44Q. 

. 10 

419 

448  LOOP  3 

23 , 3621 

1258 

1 

1259 

LRALPHA2 

E7, 1414 

= 

153 

1 

153 

LOADL VI 

41,2001 

419 

1 

289 

LOOP  2 2 . 3 

27,2160 

603 

1 

604 

LRALT 

25, 3073 

564 

2 

503 

893 

LOADSTAT 

1014 

1 18 

4 

440 

471 

L00P3 

20,2656 

1483 

2 

1483 

14  84 

LRALTBIT 

4747 

= 

102 

LOAXLU-ME 

-10,3462 

1390 

- -32_ 

_222 

12  20 

LaOS-E 

37 , 2730 

399 

1 

400 

LRALTFLG 

0276 

= 

10? 

LOASCENT 

20,2001 

58 

1 

1481 

LOSCALAR 

0004 

= 

109 

4 

3 94 

144  8 

LRBETA1 

E7, 1413 

= 

153 

l 

153 

LOC 

0 164 

1 15 

45 

384 

1366 

LOSCMBI T 

4740 

= 

85 

4 

5 63 

615 

LRBETA2 

E 7 , 1415 

= 

153 

L OCCUR 

0.064 

— 

111 

31 

3&5 

1361  LOSCMFLG 

0041 

85 

9 

508 

609 

LRBYBIT 

473  5 

= 

99 

7 

244 

875 

LOCKANGL 

22,2402 

370 

1 

364 

LOSCOUNT 

E 7 , 1454 

154 

38 

198 

62? 

LRBYPASS 

0245 

= 

99 

2 

789 

795 

LOCSAM 

14,2347 

9 32 

3 

932 

960 

LOSDESRD 

E 7 , 1707 

= 

159 

6 

1 59 

602 

LREGCHK 

04,2735 

711 

1 

710 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

l^t.8  ? 

| RWV  7 

F7 , 1471 

1 53 

1 

889 

43  6 

4 

43  5 

LR  HEIGHT 

25,3272 

5 68 

1 

*5  6 7 

LR  XCDU 

E4 ,1660 

= 

1 32 

5 

132 

894 

M/SLIMIT 

42,3322 

435 

2 

435 

LRHJOB 

34,3717 

893 

1 

873 

LRXCDUDL 

E4, 1740 

- 

135 

3 

135 

892 

M/SNORM 

42,3336 

435 

7 

435 

436 

LRHMAX 

_E7 , 14X6- 

- 1 53- 

2 

8-8_6 

1 P YC  DU 

_E4 , 16  61 

= 

132_ 

2 

1 32 

887 

M/SOUT 

42 , 3?  77 

435 

1 

430 

LRHTASK 

21,2314 

873 

i 

829 

LR YCDUDL 

E4, 1741 

= 

135 

1 

1 35 

MAGSUB 

4512 

532 

9 

534 

555 

LRINH 

0254 

= 

100 

2 

287 

LRZCDU 

E4, 1662 

= 

132 

4 

132 

894 

MAGVFC2 

£5,1717 

= 

140 

6 

140 

1 193 

LR  I NH  8-1  T 

- 

LQO- 

2 

-8  85  _ 

888 

LRZCDUQL 

£4,1742 

135 

3 

1 35 

892 

M A I NCNG 

30,2433 

847 

1 

847 

LRLCTR 

E7 ,1666 

= 

165 

5 

165 

896 

LSD  I S P 

15,2252 

930 

1 

9 30 

MAINLINE 

30,2716 

85  1 

1 

852 

LRMCTR 

E7, 1670 

= 

166 

5 

166 

896 

LSORI ENT 

15,3647 

978 

2 

930 

971 

MAI NRTNF 

34, 3432 

734 

1 

737 

lroff 

4 3,2  225 

287 

1 

777 

LSP  O-S-  - 

15,3663 

980 

4 

932 

1233 

MA I NRTN1 

34, 3456 

735 

1 

735 

L RON 

43,2322 

2 86 

1 

277 

LSR22.3 

26,2370 

586 

3 

5 18 

604 

MAJ  + 

07, 3442 

1317 

1 

1316 

LRPOSALM 

33,2571 

8 76 

1 

875 

LSR22.4 

26,3143 

5 94 

1 

5 86 

MAJ- 

07,3562 

1320 

1 

1316 

l a posb i t 

- 

LQ2 

LSTBNK-CH 

43  ,3731 

12  87 

1 

12  86 

MAKEACCS  37,3501 

860 

2 

859 

LR  POS  CAL 

43,2651 

294 

2 

291 

LSTLIM 

4747 

= 

758 

1 

758 

MAKECADR 

4645 

994 

16 

286 

1480 

LRPOSCAN 

25 ,3543 

573 

1 

572 

LSTPTR 

0144 

= 

1 13 

MAKEGEN 

10,3412 

1367 

1 

1355 

LRP-QSCHK 

_2  S»  3220 

- 5 67 

L SI  1- 

-£3,1400 

125 

4 8 

1 69 

1297 

MAKEMARK 

10.2242 

1349 

1 

1353 

LRPOSFLG 

0275 

= 

102 

LST2 

E3, 1410 

125 

41 

235 

1123 

MAKEMAX 

20,2755 

1486 

1 

148  6 

LRPOSNXT 

25,3512 

5 72 

2 

572 

5 73 

LST2C0N 

41 ,2145 

421 

1 

421 

MAKEPLA Y 

10,2421 

1353 

3 

1352 

1367 

LRPQSQUT 

40,2635 

A3J_ 

__1  . 

430 .... 

-LST2FAN.  . 

43,2002 

277 

2 

277 

479 

MAKFPRIO 

10, 2365 

1352 

1 

1 353 

LRP0S2 

25,3471 

5 72 

2 

280 

895 

LS21X 

£3,1757 

128 

4 

512 

576 

MAKERUPT 

7753 

1453 

2 

145? 

1 453 

LRP0S2K 

43,2151 

2 80 

1 

277 

LTHVACA 

05 , 3343 

2 37 

4 

236 

MANFLAG 

16, 2177 

1408 

1 

1407 

LRP2ALM 

43-^2 160 

-280  _ 

. 1 _ 

280 

LUNAB 1 T 

4740 

= 

86 

MANMODF 

16j  3006 

1425 

1 

1 4?  5 

LRRCTR 

E7.1667 

= 

165 

4 

16  6 

896 

LUNAFLAG 

0060 

= 

86 

8 

665 

1134 

MANUCALL 

22,31 77 

380 

1 

380 

LRSCK 

25,3417 

5 70 

1 

570 

LUNDESCH 

25,2421 

550 

1 

336 

MANUFBIT 

4736 

= 

93 

SsSjIijrsct-R-  _ 

E7 , 1671 

= 

166  _ 

A 

—166_ 

896- 

LUNG 

1 5 , 273  4 

963 

2 

961 

962 

MANUFt  AG 

0152 

= 

93 

LRS22 

32 ,2000 

= 

33 

2 

56 

5 80 

LUNL ANAD 

36, 3136 

756 

1 

748 

MANUOFF 

22,3113 

379 

1 

379 

LRS22 . 1 

32,2376 

5 80 

1 

517 

LUNLAND 

31 ,252? 

804 

1 

756 

MANUSTAL 

22,3067 

379 

LRS2-2-^lX 

E7  , 1 7 35 

= 

161 

6 

161 

- 5-84- 

-LLLNPOS  . 

15,3663 

- 

980 

2- 

499 

1234 

MANUSTAT 

??. 312? 

379 

1 

378 

LRS22.2 

24,3230 

5 83 

i 

517 

LUNRSALN 

0005 

= 

251 

2 

250 

MANUSTOP 

22,3213 

382 

1 

379 

LRS24.1 

26,3405 

5 98 

3 

526 

604 

LUNSFCHK 

24,2714 

5 19 

9 

504 

526 

MANUVER 

26,2000 

= 

31 

1 

486 

1 1 

2£*34 33  - 

_ 599 

LUNSPH 

11 , 3264 

1234 

1 

1233 

MANUVFR1 

?6 . ? 00  0 

= 

3 1 

1 

496 

LRUPT 

0011 

= 

108 

LUNVFL 

15,3774 

982 

1 

1235 

MARKCHFX 

07,221 6 

267 

2 

267 

276 

LRVEL 

25, 3107 

564 

1 

892 

LV 

0044 

= 

109 

2 

1065 

1067 

MAR  KCNTR 

EY, 1546 

= 

160 

13 

160 

276 

LRVEL-BI-T- 

4744 

= 

1-0? 

_L-\tBUE  - - 

- 6 Z72- 

1005 

I 

10  ?9 

MARKCDP 

10,2271 

1350 

1 

1 350 

LRVELFLG 

0273 

= 

102 

LVELBIAS 

25,2000 

56 

1 

5 67 

MARKCTR 

E7, 1460 

= 

154 

5 

508 

719 

LRVELX 

25,3101 

5 64 

1 

503 

LVLIMITS 

21,3114 

904 

4 

903 

MARKEBAN 

1071 

119 

1 

1366 

LRVELY 

-25 ,3077 

5 64 

_ 1- 

503 

LV-MINLM 

21,3204 

905 

6 

904 

905 

MARKFND 

10,2204 

1343 

1 

1348 

LR V EL  Z 

25,3075 

5 64- 

2 

503 

564 

LV  SQUARE 

004? 

= 

109 

2 

1065 

1070 

M ARKFLAG 

1071 

= 

1366 

1 

1350 

LRV JOB 

33,3601 

892 

1 

889 

LVWTL I ST 

5215 

1114 

1 

1118 

MARKFMSK 

10,2704 

1358 

2 

1349 

L&SIHAX 

E7-,  1417 

1 53 

2_ 

_888 

8 39 

L X A 

01 ,?351 

1082 

1 

1007 

MARKFORM 

10,2216 

1349 

LRVTIMDL 

E4 ,1743 

= 

135 

2 

215 

892 

LXC 

01,2355 

1082 

1 

1007 

MARKNV 

0370 

116 

5 

1350 

1359 

1RVT I ME 

E4, 1656 

= 

132 

7 

132 

894 

L 14/OUT 

40,2711 

432 

1 

432 

MARKOCT 

10,3405 

1367 

1 

1357 

- LRWH  _ 

E7, 14Z0  _ 

153 

1 

886 

MARKDVFR 

LOt  3274 

13  64 

1 

1348 

LRWVX 

E7 , 1423 

153 

M/ SCON  1 

42 ,3373 

436 

1 

435 

MARKPERF 

10,2316 

135  1 

1 

1360 

LRWVY 

E7 , L 422 

153 

M/SC0N2 

42,3374 

436 

1 

435 

MARKPLAY 

10,2255 

1350 

4 

1350 

1366 
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SYMBOL  DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

l 

1 TAT 

M E AS  I NC 

-23  t 2000 

= 31 

1 

11  44 

MTAIIRECE 

L-23  6 

3 

507 

1218 

MARKRUPT  07,2332 

269 

2 

168 

169 

MFASINCl 

23,2000 

= 31 

1 

1148 

MINI SHFT 

21,3664 

1476 

1 

1476 

MARKSTAT  1312 

122 

34 

237 

276 

METH0D1 

22,2242 

367 

1 

367 

MINLMD 

01,2000 

58 

1 

309 

387 

1 

5 86 

MET.H0D2  _ 

-22 ,2216- 

367 

MINMINLM 

01,2001 

58 

1 

309 

MARKTYPE  07,2514 

273 

5 

270 

275 

METH0D3 

22,2266 

368 

2 

367 

MINPFRE 

22,3365 

723 

2 

722 

725 

MARKWAKE  10,2676 

13  58 

1 

1365 

ME  I 

E4, 1634 

= 132 

1 2 

3 64 

366 

MINPERM 

22,3363 

723 

1 

725 

MARK-2  PAC—  1073 

1 19 

2 

1358 

1359 

MFISYM  - 

E6 ,1701 

= 150 

1 2 

366 

368 

MINOR 

17, 2237 

1439 

2 

1439 

MARK3MSK  10,3360 

1366 

2 

1349 

MFREF 

15,3444 

973 

2 

976 

977 

MINRTN 

17,2244 

1439 

1 

1439 

MAR  K4MSK  10,3361 

1366 

1 

1349 

MFS 

E4, 1634 

= 132 

5 

132 

364 

MINTIMES 

16,3604 

1435 

1 

1432 

MARSI  FFP  1 C_, 3 3-2 JL 

13  65 

1 

1350 

MGARFT 

30,3246 

913 

1 

923 

MINTIME2 

05,3447 

986 

1 

987 

MASKREG  E5.1534 

= 

142 

MGC 

E5 ,1743 

= 138 

3 

139 

1248 

MINUS1 

7746 

= 1094 

2 

1317 

1364 

MASS  1244 

= 

121 

15 

121 

1488 

MGLVFR1T 

4752 

= 91 

MINUS2 

7745 

= 1302 

3 

234 

1297 

MASSCTR  £1161 

- 

14  89. 

5 

1487 

1488 

MGLVFLAG 

0130 

= 91 

2 

701 

MIS 

E 6 r 1 644 

150 

18 

150 

496 

MASSFIX  20,2513 

14  81 

3 

1481 

MG2 

07,3701 

1324 

1 

1324 

MISCJUMP 

6333 

1007 

1 

1004 

MASSMON  33,2225 

861 

MI DAVB  IT 

4752 

= 97 

MIXAD 

41,2260 

42  3 

l 

423 

MAS  SM4JLT  31 » 2425 

- -800 

- 2 

- 7 97 

HT-DAILEI-TL 

_ -0224 

= 97 

3 

12  20 

1238 

M I XBACK 

40,3047 

445 

1 

445 

MASSl  E 7 , L 566 

- 
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8 
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865 

MIODGIM 

10,2000 

= 28 

1 

701 

MIXBR 

0140 

= 113 

13 

319 

446 

MATINC  0140 

113 

9 

1 13 

1034 

MIDFLAG 

0002 

= 81 

5 

1213 

1241 

M I XCON 

4771 

= 319 

1 

319 

MAT  MOVE  14  ,X23  7 

9 44 

6 

- .941 

970 

-MID-f  LBIT 

4737 

= -81 

MIXNN1 

41,2234 

423 

1 

423 

MAX  0016 

= 

1199 

4 

1178 

1179 

MIDGIM 

10,2002 

701 

MIXNN2 

41,2246 

423 

1 

42  3 

MAXANG  22,2364 

3 70 

1 

365 

MIDGIML 

10,2005 

= 701 

MIXNOUN 

41,2221 

423 

1 

420 

MAXCH-ECK  12-t-2  6AQ 

1 1 79 

_X_ 

117  9 

-MIDQRLST 

17,3063 

1450 

1 

14  50 

MIXTEMP 

0125 

= 112 

3 

417 

4?3 

MAXCHK  22,3636 

729 

6 

627 

728 

MI DT0AV1 

13,3603 

1219 

1 

7 42 

MKABORT 

07,2044 

260 

i 

25° 

MAXCOGA  12,3311 

1190 

2 

1189 

1190 

MIDT0AV2 

13,3577 

1219 

1 

765 

MKAL ARM 

07,2325 

268 

i 

267 

MAXD-B-  05 , 3062 

233- 

1 

_2?7. 

-MIDLEfiU 

4751 

= 97 

MKOEX 

E 7 , 1550 

= 160 

9 

160 
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MAXDT  13,3337 

1214 

2 

121  3 

MIDIFLAG 

0223 

= 97 

4 

12  19 

1221 

MK0VB1T 

4751 

= 89 

2 

1351 

1358 

MAXDV  00,2642 

1060 

1 

1056 

M1D2 

13,3676 

1220 

1 

1220 

MKOVFLAG 

0110 

= 89 

MA-XDVSW 0_L40 

- 

113 

_6 

1052  1Q6J 

MID5  .. 

4347 

474 

1 

441 

MKRF  J 

07,2461 

272 

1 

269 

MAX  I SHF T 21,3660 

14  76 

MI  07 

4144 

452 

4 

452 

1366 

MKRELEAS 

07,2047 

260 

1 

268 

MAXJETS  17,3275 

1456 

1 

1456 

MIN 

0010 

= 1199 

4 

1178 

1179 

MKRUPTBB 

406  1 

169 

1 
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MAX.NM 22, 3645 

729 

3 

729 

MIN  + 

07,3437 

13  17 

i 

1316 

MKT  I M E 

E7, 1752 

= 161 

9 
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893 

MAXPLUS  20,2763 

1486 

2 

1485 

14  86 

MIN- 

07,3557 

1320 

i 

1316 

MKVAC 

07,2014 

259 

MAXRA  27,3433 

1268 

2 

1268 

MI  NAB  D V 

30,3053 

856 

i 

844 
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07,2031 
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5 

259 
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4_ 
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X06.9  . 
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i 
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07,2620 
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1274 

1 
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22,2362 
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i 
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MKVB53 

07,2617 

275 
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12  74 

1 

1271 

MINB12 

7740 

= 989 

i 
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MKVB54 
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275 

1 
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511 

L 
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i 
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07,2621 
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1 
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MAXTRYS  25,2474 
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1 
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1178 

i 

11  78 

ML0SV 

E 3 , 1766 

128 

6 

559 
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MAXVBITS  21,2005 

57 

8 

903 

905 

MINCOGA 

12,3327 

1190 

i 

1193 

MMADREF 

41 ,2033 

419 

1 

419 

MAX-250 35  ,3672 

-_6-93_ 

_ 1- 

-6  76- 

MINCON  _ 

42,3534 

448 

i 

447 

MMATRTX 

0024 

= 1143 

8 

1135 

1230 

MCTOMS  25,3071 

563 

2 

559 
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MI NC0N1 

42,3271 

435 

i 

437 

MMCHANG 

41,3430 

460 

2 

419 

422 

MOOT  F7 ,1735 

= 

158 

2 

158 

781 

MINC0N2 

42,3267 

434 

2 

434 

MMD  SPLAY 

5315 

1288 

1 

23? 
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- 53 

MINCSM 

4741 

= 58 

1 

309 

MMNUMBFR 

0775 

1 1 7 

10 

24? 

837 

MOOT DPS  36,2002 

53 

1 

833 

MINDEX 

0774 

117 

4 

243 

247 

MMSAVE 

E7, 1567 

= 836 

2 

836 

MD1  4362 

474 

3 

471 

1384 

MINIMP 

43,3011 

299 

1 
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MMTEMP 
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= 247 

3 

247 
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DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 
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DEF 

H 

REFERENCES 

? 

7 3 3 

1 3 37 

MDRF  I HI  F 

16  t 2 154 

1^08 

3- 

1405- 

1436 

MXMYNI7 

76,7726 

-5.9  Q 

MODABORT 

07,3714 

1324 

2 

1324 

MORNUM 

40,2312 

414 

2 

413 

MXM3 

22,2312 

369 

4 

364 

495 

MODDONE 

12,2112 

1170 

3 

1170 

MOVATHI S 

13,2747 

= 

36 

1 

1218 

M XV 

7333 

1033 

1 

1006 

_n  i /y3 

1 L5 

35 

339 

13-66 

_M0  V£A_CSM 

13,2674 

1206 

3 

11  52 

1206 

MY 

E7, 1702 

= 

160 

5 

1 60 

5 96 

MODEA 

1 107 

= 

119 

4 

337 

550 

MOVEALEM 

13,2747 

1207 

4 

36 

1207 

MZ 

E7, 1710 

= 

160 

3 

160 

591 

MODES 

1111 

1 19 

4 

119 

553 

MO VE  PC  SM 

13,2723 

1206 

3 

1152 

1206 

Mil 

E 6 , 1412 

144 

9 

169 

1432 

MH-DFr  ADR 

1 30-4 

1 22 

10 

122 

1 3 24 

-MOVE  P LEM 

13 ,2770 

1207 

3 

1151 

1207 

M21 

E 6 , 1413 

144 

4 

204 

1445 

MODE  F X I T 

07,2730 

1305 

8 

1304 

1324 

MP  AC 

0154 

115 

885 

1 14 

1498 

M22 

E6, 1415 

144 

7 

203 

1445 

MOOEGOOD 

07,3704 

1324 

1 

1324 

MP  AC  + 

00 , 2437 

1054 

2 

1053 

M3 1 

E6, 1414 

144 

4 

204 

1445 

- MODFS 1 P 

C7 ,3 7 IQ 

13-24— 

JL_ 

13-24 

MR  AC  t 6 

0162 

= 

433 

7 

433 

475 

M 32 

E 6 , 1416 

144 

5 

704 

1445 

MODESW 

07,2000 

= 

28 

i 

1304 

MP  AC  — 

00,2433 

1053 

2 

1053 

= ==  = = = ==: 

M0DE2CHK 

4550 

5 34 

2 

533 

555 

MPACSHR 

00,2033 

1042 

2 

1050 

1071 

NARRDWDB 

20,2150 

1402 

1 

1402 

M00F7  0 

21  ,2210 

832. 

_2_ 

. 83-0  . 

MPACSRND 

00 ,2050 

1043 

l 

1042 
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0016 

= 

109 

6 

233 

270 

M0DE7I 

21 ,2  2 72 

832 

i 

830 

MP  AC  T ST 

42,3550 

448 

1 

447 

NBDONLY 

06,3555 

347 

i 

1116 

MODNGDEL 

12,2613 

1178 

2 

1178 

MPACVBUF 

7531 

1038 

5 

612 

1257 

N8DX 

E 3, 1460 

125 

6 

339 

1 116 

M.nnpsnF  l 

l_2-,.2-6_5J 

1179- 

2 

JL-L7  9 

MP  AC  2 S AV 

0165 

= 

1366 

2 

1350 

1359 

N BDY 

E3, 1461 

175 

2 

341 

348 

MODPFG 

1011 

117 

22 

227 

1381 

MPERFMSK 

10,3373 

1366 

2 

1349 

N8DZ 

F 3 , 1 462 

125 

2 

341 

348 

MODROUT  B 

04,2037 

= 

4 60 

1 

460 

MPTEMP 

0135 

113 

64 

113 

1081 

NBD2 

06, 3602 

34  7 

1 

349 

MON ADR 

40. • 3.436  _ . 

-459 

- — L 

4l5_9- 

MR.  .KL  E AN 

05,2643 

228 

2 

227 

1377 

NBD3 

06,3606 

347 

MONBACK 

41 ,3350 

452 

1 

452 

MRKIDBIT 

4735 

= 

88 

NSPOSPL 

37, 2012 

386 

MONBUSY 

41,3351 

452 

1 

45  1 

MR  KI DFLG 

0074 

= 

88 

N8RANCH 

11,3136 

1232 

3 

1230 

1241 

MONOE-L  - 

41, 3320 

- 45  L 

L_ 

45_L. 

MRKNVRT  T 

4743 

= 

88 

1 

1349 

NBRANCHI 

11,3126 

1232 

1 

1731 

MONDO 

41,3321 

451 

i 

451 

MR  KNVFLG 

0102 

= 

88 

1 

1360 

NBUSMASK 

10,3366 

1366 

1 

I 353 

MONITOR 

41,3230 

4 50 

7 

421 

422 

MR  UP  TBIT 

4747 

= 

89 

NB1N82 

23,2415 

= 

36 

MON  I T-1- 

41^3232 

4-50 

MRUPTELG 

0106 

•- 

89 

NB2CDUSP 

30,3504 

919 

1 

913 

MON  I T 2 

41,3245 

450 

2 

450 

MSKDATRl 

20,2021 

307 

1 

307 

NCDU 

E 6 , 1701 

= 

150 

3 

378 

379 

MONREF 

41,3347 

452 

1 

452 

MS  TOR  E 1 

01 ,2364 

1082 

2 

1083 

1086 

NCnARSE 

14,3523 

950 

4 

941 

970 

_ MQN-R-E-POS- 

06*31 1 5 

2-02 

1 

202 

_MS  10.0  - 

7726 

1408 

2 

1407 

14  L6 

NC  SM  V EL 

_£7 , 1662 

- 

163 

? 

507 

MONREQ 

41,3275 

451 

2 

451 

MU  (P  ) 

0032 

= 

1243 

NDCMPTST 

41,2436 

428 

MONSAVE 

1020 

1 18 

7 

237 

452 

MUCHT IMF 

01 ,3506 

1127 

2 

1126 

NDXCDUW 

E6, 1646 

= 

151 

6 

151 

918 

-MONSAVf  1 

10  2J-- 

118 

12 

227 

4 78 

M-UEARTH 

13,2006 

61 

8 

696 

1241 

NDXCHNGE 

12L2247 

1172 

2 

1172 

M0NSAVE2 

1022 

118 

4 

450 

465 

MULBUSH 

21,3612 

1475 

1 

1475 

NDXCTR 

E 5 , 1414 

142 

7 

142 

389 

MOONB IT 

4740 

= 

81 

MULTEXIT 

5624 

1376 

3 

1375 

1376 

ND1 

4361 

474 

6 

394 

892 

MQQNCNTR 

14 ,24.04 

SL32- 

_1_ 

932 

MU-LTFAIL 

5630 

1376 

1 

1375 

NEARONE 

27, 3742 

1277 

4 

847 

I 274 

MOONFLAG 

0003 

= 

81 

29 

686 

1241 

MUM 

13,2004 

61 

NFFDLBI T 

4750 

= 

82 

1 

1410 

MOONG 

31,2007 

59 

1 

819 

MUM ( — 3 7 1 

30,2002 

59 

1 

841 

NEEDLER 

20,2322 

1413 

1 

1409 

MflONG-ON- 

-22-,  3 5 16 

725 

_ 1 

_ -7-2-5. 

MU  NFL  AG 

0141 

= 

92 

6 

7 42 

868 

NEEDLFR2 

20,2353 

1413 

1 

1413 

MOONMX 

24,3561 

1138 

2 

1135 

1137 

MUNFLBIT 

4744 

= 

92 

3 

201 

866 

NEEDLES 

20,2373 

1414 

1 

1 414 

MOONOTH 

0173 

= 

36 

2 

312 

MUNGRAV 

33,3162 

884 

8 

742 

886 

NEEDLES3 

70,2362 

1413 

1 

1413 

— MOQNPAD-  - 

2-2, 33  73 

7-23  - 

1 
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MUNRFTRN 

33,2514 
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L 

884 

NEEDLE1 1 

70,2334 

1413 

MOONRATE 

30,2004 

59 

1 
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MUNRVG 

33 , 3120 
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NEEDLFLG 
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82 

2 

281 

MOONSPOT 

33,2251 

862 

1 

86  1 
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04,2004 

60 

5 

702 

1 1 89 

NEG 
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4 
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0 1 74 
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4741 

88 

NEGCOS 

L 3 ,_2  5 3 2 

1137 

1 
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MORECADR 
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i 
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MWAITFLG 

0100 

88 

NEGDRIVE 

21,3721 

14  77 

l 

1477 

MOREDES 

25,2627 

557 

2 
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MX 

E7 , 1674 

= 

160 

6 
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591 

NEGEDOT 
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1 

1455 
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] 4a  q 

HF-  wMnnF 

605  7 
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6 10  1 4 
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-NOATTO-FE- 
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1311 

4 

- -1.80- 

1 3 1_0 

NEGLMLV 

21,3161 

9 05 

1 

904 

NEWMODEA 

5314 

1288 

3 

247 

836 

NOB  1 FS 

E5, 1442 

= 

142 

NEGMAX 

4735 

= 1094 

12 

380 

1486 

NEWMODEX 

5311 

1288 

7 

3 86 

1387 

NOCHG 

35,3526 

688 

i 

688 

MFf,nNF 

7746 

1 092 

15 

234 

1497 

NFWOPS 

6067 

998 

1 

9 97 

NOODOT 

24,2004 

68 

i 

1138 

NEGOUT 

13,2540 

1132 

1 

1132 

NEWPAR 

14,2574 

936 

1 

936 

NODESNB 

25,2533 

554 

i 

554 

NEGP 

12,3426 

1191 
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1190 

1191 

NFWPHASE 

31,2446 

802 

1 
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NODES  S M 

25,2471 

553 

2 

5 50 
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MFG^GR 

4.0,23  74 
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1 
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NEWPQS 

E7, 1650 

= 
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4 

1 63 
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NODIO 

24,2012 

69 

1 

1138 

NEGSHAFT 

25,2570 

5 55 

1 
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NEWPRIFI 

0063 

= 

1 1 1 

12 

2 47 

1355 

NODOBIT 

4753 

= 

86 

2 
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2 44 

NEGTFF 

27,3617 

1274 

2 

1273 
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1 

1182 

NODOFLAG 

0054 

= 

86 

6 
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1331 

MEG  THRST 

1 7 ,1753 
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L 

1501 
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1171 

1 

1171 

NOQSPOUT 
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L 7 5 

2 
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NEGTORK 

16,3715 

1466 

1 

1465 

NEWTN 

34,2702 

650 

2 
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NOOSPY 

06,2152 

175 

1 

175 

NEGTORKU 

E 6 , 1 5 16 

= 148 

NEWVEL 

E7 ,1642 

= 

163 

3 
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507 

NOD V MON  1 

33,2345 
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1 

862 

. NFftTD  RKV 

F6  * 1 5-2-0 

= 148 

--NEWZC0MP 

22,3647 

1152 

1 

1146 

N0DVM0N2 

33.2351 

863 

1 
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NEGTOTKP 

E6.1514 

= 148 

NEXTCDU 

07,3033 

1307 

4 

1307 

1308 

NOFBANK 

43,3370 
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1 

1283 

NEGTOVFL 

12,2337 
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1 

1173 
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11 ,3466 
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2 
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1 
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2_ 
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I 
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NEGUR 

E6 ,1502 
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4 
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1 
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06,2462 
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2 
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21,3714 

1477 

3 
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NEXTIME 

E6.1704 
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3 

3 80 
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NOGO 

22,2732 
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3 

376 
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, 904 

2 

904 
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NOGOBL 

27,3034 
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1 
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3 1 
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1451 

NEXTI NSL 

05,3610 

989 

1 
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1 
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5 
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10  94 

NEXTLINE 

22,3507 
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1 
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NOIBNKSW 

6062 
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1 

1039 

N' Gl/2  . 

4 734 

1 090 

_ 6 

2 3 5. 

1 123 

NEXTP 

E6.1470 

145 

7 

145 

1425 

NOINT 

13,2653 

1205 

l 

1204 

NEG 100 

5172 

mi 

NEXTU 

E6 , 1471 

= 

145 

5 

1400 

1437 

NOKILL 

43, 3123 

305 

1 

306 

NEG12 

00,3733 

1081 

3 

1049 

1071 

NEXTV 

E6, 1472 

= 

145 

5 

1400 

1438 

NOL  ITE 

33,3572 
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2 

890 

NEG-1-8-0  _ 

40,3066 
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1 

445. 
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E7, 1645 

= 

165 

3 

803 

815 

NOLOKON 

23,2026 

286 

1 

286 

NEG2 

7745 

1093 

10 

245 

1475 

N I CKELDP 

34,2077 

642 

1 

645 

NOLPRBIT 

4742 

= 

100 

2 

873 

885 

NEG3 

7 744 

1093 

7 

890 

1437 

NIGNLOOP 

E 7 , 1644 

= 

1 65 

3 

790 

815 

NOLRRFAO 

0252 

= 

100 

1 

895 

ME-G4 - 

6 1 1 1 - 

- 9-99 

2_ 

1003 

1280 

NIRE 

4320 

L094 

2 

1495 

NOMDNLST 

0 5jl21  72 

= 

208 

NEG5 

41,2115 

421 

NJETSBIT 

4735 

= 

83 

NOMINIMP 

43,3016 

300 

l 

278 

NEG7 

5660 

= 247 

NJETSFLG 

0017 

= 

83 

1 

762 

NOMORF 

25,3174 

566 

2 

566 

571 

METRE  G- 

-20 , 3 6 3 0 

1497 

1 

1437 

NN 

_E7 , 1464 

154 

4 

2 13 
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NOMTPI 

F4j 1722 

= 

133 

9 
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686 

NETZERO 

6120 

1000 

NN ADTAB 

42,2154 

320 

i 

319 

NONAVKE Y 

05,3075 

233 

1 

233 

NEWAGS 

32,2024 

2 22 

i 

222 

NNADTEM 

0146 

113 

8 

319 

443 

NOPIE 

35,3304 

682 

1 

682 

MEWAN-GL 

22 , 3007 

-<  7ft 

-NNLTY.PT  ab 

42,2320 

323_ 

1 

319 

NOQBRSM 

5274 

1124 

1 

1423 

NEWANGLE 

24,3706 

1140 

4 

1138 

1141 

NNTYPTEM 

0147 

1 13 

5 

319 

442 

NOQRSM 

5272 

1124 

1 

1452 

NEWDATA 

21 ,2477 

899 

1 

898 

NO. CORES 

01 , 2631 

1101 

2 

1101 

1106 

NORATFS 

30,2510 

848 

1 

848 

NLEWD-EL 

12  t-2-647 

1179. 

2 

117  8 

1 1 79 

NO.PJETS 

E6 , 1521 

148 

3 

148 

1465 

NORBACK 

40,305 1 

445 

1 

445 

NEWDELHI 

22,3003 

3 78 

1 

38  1 

NO.UJETS 

E6 , 1522 

= 

148 

3 

148 

1465 

NORDSTAL 

25,2456 

552 

3 

550 

553 

NEWDELX 

12,2267 

1172 

3 

1172 

1 1 73 

NO.  VJETS 

E6, 1523 

= 

148 

NOREASON 

33,3253 

885 

1 

885 

. NLEWJ-B  I T 

4-73-7  - 

= 95 

NO.WDS 

6243 

1003 

5 

1003 

1072 

NORESET 

07, 3403 

1315 

NEW  I F LG 

0 172 

= 95 

3 

1210 

1214 

NO- A T P 

30 , 2667 

850 

1 

850 

NORFINAL 

13,3276 

1213 

NEW JOB 

0067 

1 11 

22 

236 

1287 

NO-INT 

13,2063 

251 

1 

251 

NORLITE 

33, 3555 

890 

2 

890 

— NIEWLXSi— 

05,3460 

987 

_ 2 

.9  8 6 

. 987 

-NDADJUST 

42,3717 

500 

1 

500 

NORMADR 

42,3375 

436 

1 

435 

NEWLOAD 

30,2102 

840 

1 

840 

NOAOS 

20 , 3343 

1493 

1 

1493 

NORMAL 

01,2334 

310 

1 

309 

NEWLOC 

0065 

= l 11 

9 

1098 

1106 

NOATTCNT 

30 ,3721 

923 

3 

911 

914 

NORMBNCH 

10,2734 

1359 

1 

1365 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 

-UN  -UNDEF-I-NF  0 = DE-E-INED  BY  EQUALS .1  OFF  TN  FD  RY  .IOK  FR  OR  FRASF  AN  YWHFRF MD  MUITIPI  Y OFFIN^D 

BD  BADLY  DEFINED  CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


- — GAP-: ASSEMBLE  R E V I S I &N  - -069  -flF-  AGC  PROGRAM  -LUMJNARY -FLY  WAS  A 2021 1-12- Oil 1-9A-IL2 — NO  V . 25,1068 PAGE  1529 

SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF,  # OF  REFS,  PAGF  OF  FIRST  RFF , PAGE  OF  LAST  PEF. 


SYMBOL 

DEF  F 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

1 54 

- 1ft 

-44-0 

7 0A  MOIIPF  RT  T 

474-6 

_ 

84 

1 

El-7 

NVD-SP1 

1 0,277? 

1359 

L 

1 359 

NORMEXIT 

32,2527 

582 

1 

581 

NOUPFLAG 

0030 

= 

84 

2 

304 

NVMONOPT 

4155 

465 

1 

1359 

NORMGAM 

E4.1503  = 

130 

7 

130 

1153 

NOUT 

1016 

118 

9 

172 

480 

NVQTEM 

1037 

113 

2 

465 

?M?  1 

268  - 

2 

-2-5-2- 

ft 5ft  NnUTf ON 

4760 

- 

1 0 9.4 

1 

237 

NVSAVE 

0371 

116 

3 

226 

1 365 

NORML I Z 1 

33,2450 

868 

i 

868 

NOUVEAU 

04,2305 

2 46 

1 

2 44 

NVSBBRNK 

4201 

465 

2 

465 

N0RMLIZ2 

33,2453 

8 68 

i 

868 

NOVAC 

507? 

1098 

32 

173 

1406 

NVSBCOM 

4164 

465 

1 

477 

NQRML-QP 

3 7 t ? 6 04 

. . 3 98  . 

i 

_ 398  _ 

-NO  VAC  ADR 

Q1 ,3772 

1302 

1 

12  99 

NVS8ENDL 

40, 3437 

459 

2 

459 

461 

NORMRET 

10,3302 

1365 

2 

1363 

NOVAC  2 

01,2622 

1101 

1 

1098 

NVSBW&1T 

4445 

477 

NORMSBIT 

4742  = 

93 

NOVAC  3 

01,2625 

1101 

1 

1102 

NVSBWT1 

4455 

477 

1 

477 

NORMS  C-I 

16.55  7 1 1435 

NOVRWRT 

35,3360 

684 

1 

685 

NVSUB 

4154 

465 

3 

278 

1 365 

NORMS  W 

0156  = 

93 

6 

696 

1184 

N0V37MM 

04,2474 

250 

1 

2 42 

NVSUBB 

41,2000 

419 

1 

465 

N0RMTEM1 

1045  = 

118 

3 

943 

13  56 

NOWMATX 

32 ,2267 

506 

1 

506 

NVSUBCOM 

4170 

465 

normxrsj 

00 ,3512 

. 1076  - 

-NPT-RAPS  . 

E6 , L431 

= 

144 

4 

1407 

1420 

NVSUBEND 

4202 

465 

4 

459 

467 

N0RMT4 

06,2007 

170 

2 

1 70 

NQTRAPS 

E6, 1432 

= 

144 

4 

1407 

1421 

NVSUBSY1 

04,2604 

477 

1 

477 

NORMUNIT 

10,3700 

1396 

11 

352 

1396 

NR  MAG 

0040 

= 

1262 

4 

1265 

1272 

NVSU8USY 

4442 

477 

2 

477 

1362 

NORMUNX4 

-1 0*  3 676  ^ _ 

.1 

_ -_5-9_6_- 

NRMIDRIT 

473  7 

= 

88 

NVSUB 1 

41,3544 

466 

2 

419 

465 

NORMWAKE 

10,3206 

1363 

1 

1365 

NRMIDFLG 

0076 

= 

88 

NVSUB2 

41,3571 

466 

1 

466 

NORMZ I 

0044  = 

11  53 

12 

1152 

1153 

NRMNVBI T 

4744 

- 

89 

NVTEMP 

0123 

= 112 

9 

465 

477 

— f^R-O-T-AT 

17*?  731- 

1-448 

3- 

144  7 

14  52- 

-NRMNVFLG 

0103 

= 

- - £8- 

i 

13  60- 

NVW.ORD 

0367 

116 

6 

752 

1365 

NORRGMON 

06,3132  = 

204 

7 

198 

202 

NRTERM 

0020 

= 

1262 

2 

1271 

NVW0RD1 

1067 

119 

2 

752 

1361 

NORRMBIT 

4750  = 

91 

2 

201 

235 

NR  TRAPS 

F6 , 1433 

= 

144 

4 

14  07 

1421 

NV50DSP 

10,2773 

1359 

3 

1351 

1361 

_NORRH-ON-  - 

0-126 = 

91 

6- 

28-5 

-524_ 

-NR.UP  T BIT 

4750- 

= 

-.  .89 

NWAITBIT 

474? 

= 83 

N0R29FLG 

0061  = 

86 

2 

851 

865 

NRUPTFLG 

0107 

= 

89 

NWAITFLG 

0101 

= 83 

N0R29N0W 

33,2623 

877 

6 

607 

877 

NR29CRDR 

5014 

= 

606 

i 

877 

NXAX 

15,2455 

957 

1 

956 

NOSHJ-EX- 

1 Q-,.3742- 

1397_ 

- 6_ 

-13-9  6 

NR29.F  BIT  . 

4741 

= 

8.6 

3 

235 

616 

NXPOSVEL 

31,2132 

620 

1 

621 

NOTALLOW 

21,3537 

1474 

2 

1473 

NSAMP 

1111 

= 

119 

3 

565 

567 

NXTBNK 

43,3641 

1286 

2 

305 

1287 

NOT  B I T 1 2 

40,3671 

484 

2 

483 

4 84 

NSRCHPNT 

E7, 1734 

= 

159 

5 

1 59 

602 

NXTFL33 

06,2432 

183 

7 

192 

193 

NQXHR.&I  X 

4740  = 

90 

1 

747 

-NS-TE-EB  - 

36,3645 

768 

NXTIBT 

06,2420 

183 

3 

183 

NOTHROTL 

0116  = 

90 

5 

761 

789 

NTARGBIT 

4 75  1 

= 

92 

N XT  I FA  I L 

06,2225 

177 

11 

186 

191 

NOTIME 

13,3706 

1221 

2 

1219 

1220 

NT ARGCHK 

35,3504 

687 

1 

6 87 

NXTIFB1T 

06,2213 

177 

3 

177 

NOTHIN 

1-7,2  764 

1448_. 

2- 

.144  8 

NTARGFLG 

0146 

- 

92 

3 

687 

NXTRR 1AX 

25,2252 

545 

i 

545 

NOTMUCH 

20,3322 

1492 

1 

1491 

NTP/2 

34,2376 

646 

2 

6 46 

NXTRST 

05,3023 

232 

i 

232 

NOTPLAN 

15,2567 

9 59 

1 

959 

NUCHANG2 

01 , 3006 

1105 

1 

11  11 

NXTSUPR 

43,3666 

1286 

i 

1286 

NQTRZ-0 

-25,3041 

L 

5-62~ 

MUDIRECT 

01,3222 

11.11 

1_ 

11  11 

JTXT6ADR 

E6, 1463 

145 

5 

2 34 

1450 

NOTSHIFT 

24,3217 

5 76 

i 

576 

NULLC  LOK 

36,3025 

753 

3 

753 

754 

NZACCDDT 

0063 

= 147? 

3 

147  3 

NOTWCSM 

26,2422 

586 

i 

586 

NUM 

40 , 2 1 7 5 

412 

9 

4 11 

412 

N45PR0C 

35,3610 

690 

1 

689 

NOT-WL  EM — 

26,2454  

587_ 

i 

-5-8  7 

NUMB.ERT 

£6 , 1741 

— 

146 

2 1 

1424 

150  1 

N49DSP 

24^2670 

519 

1 

513 

NOULLAGE 

36,2656 

750 

4 

748 

767 

NUMGRPS 

4756 

= 

238 

2 

231 

232 

N49FLAG 

E7, 1744 

= 160 

5 

167 

519 

NOUN 

40,2370 

415 

1 

412 

NUVCSM 

E3, 1600 

127 

1 

588 

N99L00P 

31,2036 

619 

1 

619 

_ NOUNADD 

0145 

1 13 

-29 

4?  3 

473 

NIJV1  FM 

E3 , 1652 

1 27 

1 

5 8ft 

NOUNCADR 

1017 

1 18 

9 

420 

473 

NV8NKTEM 

1040 

118 

1 

465 

0 AN  B 

05, 3370 

264 

3 

263 

956 

NOUNREG 

1002 

1 17 

15 

237 

471 

NVBUSMSK 

10 ,3371 

1366 

1 

1361 

OBLATE 

11,2726 

1230 

2 

1226 

1227 

NQUNTEM 

- -012?  .= 

112_ 

_ 3 

42  3 

NVCADR 

10 ,3362 

1366 

1 

136? 

nccns 

1 4, 2436 

93  3 

2 

932 

933 

NOUNTEST 

41  ,2460 

428 

2 

438 

439 

NVCOM 

40 ,2357 

415 

l 

415 

OCCULT 

14,2601 

936 

2 

935 

936 

NOUPOOWN 

43,3064 

304 

1 

303 

NVDSP 

10 ,2743 

1359 

2 

1360 

1366 

0CTAL27 

21,2271 

832 

1 

830 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


-UN-UNDEFINED -.DEFINED  BY— EQUALS .J  _DJ.F_I.NFn  BY  .LTKFR  OR  ERAS  F ANYWHFRF MD  Mill  TTPLY  DEFINED 

BD  BADLY  DEFINED  CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


— 19:0-2  MOV.  .2-5-,  1-968- 


PA.GF-L530 


-GAP-: AS-SEMBLE  REV  IS  ION -0-6-9 -OF  A6C  PROG-RAM-LUMINARY  BY  NASA  2Q  211-1-2-011 


SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE 

OF 

DEF, 

# CF 

REFS, 

PAGE  OF  FIRST 

REF,  PAGE 

OF  LAST  REF. 

SYMBOL 

DEF 

H 

RFFEI 

RENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERFNCES 

109  4 

nr  t 80001 

05 , 3346 

238- 

1- 

— 2-34^ 

-QC2-4100- 

_43, 2)  27 

279 

1 

278 

OCT  BACK 

41,3411 

456 

1 

458 

OCT3000? 

647  0 

= 

1094 

OC40010 

06, 2773 

196 

1 

195 

nr.  t oooio 

4750 

= 2 47 

0CT305 

04,2322 

247 

1 

2 46 

OFFCALC 

26,3523 

600 

1 

602 

50  5 

0CT3L 

6010 

—2.39 

4 

224 

1474 

OFF  STFAC 

26,3650 

603 

1 

600 

OCT  00 2 AO  2 1 .3560 

14  74 

1 

1473 

QCT32001 

05,3342 

237 

1 

235 

OFF  TUN I T 

10,3740 

1397 

1 

139  7 

OCT  02 100 

06,3131 

2 02 

OCT  32  002 

06,3127 

202 

1 

201 

OGC 

E5, 1737 

= 

138 

16 

138 

1249 

1 QR 

1 

197 

J0CT33 

4764 

109  1 

3 

239 

1091 

OGCPL 

37,2475 

394 

1 

401 

OCT  10000 

4737 

= 2 32 

0CT34 

07,2624 

275 

1 

269 

OGCT 

E 5 , 1747 

= 

139 

2 

139 

96  8 

OCT  10001 

7662 

= 10  94 

1 

197 

OC  T 34  BAR 

42,3574 

449 

2 

449 

OGF 

E 6 , 1715 

= 

150 

nr t l non  ? ? 3 

861- 

1 

87-7 

nr.T3400 

10 j 3365 

1366 

1 

1356 

0HWELL1 

04,3343 

1382 

5 

1382 

1383 

OCT  10200 

10,3413 

1367 

1 

1353 

OCT34300 

10,3374 

1366 

1 

1349 

OHWE  LL2 

04,3366 

1383 

4 

1382 

1384 

OCT  11 

4320 

= 1090 

OCT35 

4765 

1091 

2 

1091 

1377 

OKDESNB 

25,2507 

554 

1 

554 

DOT  1 1 0 3 

57  02 

1377 

0CT37667 

04,2364 

247 

1 

243 

OKDESSM 

25, 2412 

550 

1 

553 

OCT  1 2 0 

4775 

= 1094 

2 

245  246 

OC  T 37  737 

06,2162 

1 75 

1 

1 85 

OKFXIT 

24,3244 

583 

1 

583 

OCT  1 3 

15,2222 

929 

1 

929 

0CT37766 

7726 

1093 

2 

170 

1408 

OKMAX 

35, 3131 

678 

1 

678 

-HCTL4- 

5747 

13  78 

8 

196  1481  0CT37771 

37,3524 

860 

1 

859 

OKPHI 

22,2722 

375 

1 

375 

OCT  1 AO 

4776 

= 1094 

1 

270 

OC  T 37  774 

7727 

1093 

1 

832 

OKTHETA 

22,2702 

375 

1 

375 

OCT1400 

5007 

1091 

11 

473  1423 

0CT37776 

7730 

1093 

3 

174 

1363 

OKTOCOPY 

10,241 1 

1353 

2 

1353 

1 358 

OCT  14000 

- 502-4 

= 12  94 

7 

1293  1294 

..DCT-40001 

6106 

999 

2 

1094 

1117 

OKTOENT 

10,3164 

1362 

1 

1365 

OCT  1 5 

4761 

1090 

4 

194  1068 

OCT  40  010 

07,3162 

1309 

2 

1309 

1311 

OKTOGRAB 

13,3466 

12  15 

1 

1215 

OCT  15000 

5025 

= 196 

i 

194 

OCT40072 

04,2365 

248 

1 

243 

OKTOPLAY 

10,2452 

1354 

3 

1353 

OCT  16 

4 317 

= 1068 

L 

_ CO  6-8  - 

QCT40200 

7734 

1093 

OKU  1 2 

22,2256 

367 

1 

367 

OCT  1601 

37,3054 

401 

i 

40  1 

0CT40201 

01 , 3365 

1120 

1 

1117 

OKU  2 1 

22,2232 

367 

1 

367 

0CT1720 

06,3000 

196 

i 

192 

OCT40400 

5642 

1377 

3 

1352 

1378 

OKU  3 1 

22,2302 

368 

1 

368 

OCT  1 76 

00*2  126 

10  45 

2 

10-5  1 

QC  T 40420 

10,3411 

1367 

0K2DELAY 

00j3752 

1371 

1 

1371 

OCT  17  7 

5073 

= 1302 

i 

1299 

OCT41000 

43  ,2321 

285 

2 

284 

285 

OLD AT  AGD 

1113 

= 

119 

4 

565 

571 

OCT  1 7 77  0 

5030 

1092 

2 

1292  1294 

0CT50 

4771 

1091 

4 

319 

1365 

OLDDATA 

21,2456 

893 

2 

898 

OCT  20 

4-747 

= 756 

2 

741  7 57  nf.T5  0 0 

04,2321 

247 

3 

245 

246 

QLDESRI T 

4753 

= 

B? 

2 

607 

609 

DCT20002 

06,3130 

202 

i 

202 

0CT50  1PV 

24,3076 

524 

1 

5 24 

OLOESFLG 

0016 

= 

82 

OCT  20  1 

24,2337 

511 

i 

509 

0CT51 

43,3212 

313 

1 

312 

OLDPMIN 

E6, 1456 

145 

4 

1407 

1426 

C1CL20100 

10,3415 

_ 1367 

i 

-13  5-2.  0C.T5  2 3 

33,3703 

895 

1 

_895_ 

OLDPRIO 

5402 

1293 

l 

1296 

OCT  20  3 

26,2231 

4 88 

0CT54 

06,2774 

196 

1 

1 80 

OLDQRMIN 

E6, 1457 

145 

1407 

1439 

0CT205 

24,3077 

5 24 

i 

523 

OC  T 5 5000 

41 ,3730 

482 

1 

481 

OLDTIME 

32,3542 

836 

1 

836 

0CT2L7  _ 

-5  7-0-6 

1377  - 

OC  T 60000 

4101 

- 

1094 

2 

1294 

1363 

OLDXFORP 

F6, 1436 

145 

5 

145 

1418 

0CT220 

04,3214 

1327 

i 

1326 

0CT6? 

4774 

= 

1329 

1 

1329 

OLOYFORP 

E6, 1437 

= 

145 

2 

1418 

0CT23 

4360 

= 1094 

2 

755  1003 

0CT63 

17,2255 

1439 

1 

1439 

OLDZFORO 

F 6 , 1440 

= 

145 

3 

1407 

1419 

OC  T 23.1.4 6— -2-1 .3  4 A 7 

14  72 

1 

1473 

OC  T6  7777 

10 ,3410 

1367 

OMEG/MS 

37, 2000 

59 

1 

393 

OCT  24 

6007 

2 39 

7 

246  868 

0CT7 

4757 

= 

1368 

5 

1292 

1368 

OMEGA 

F7, 1500 

= 

160 

9 

160 

1148 

OCT  24 100 

10,3127 

1362 

1 

1350 

OC  T 70  0 

04,2366 

248 

2 

2 44 

245 

OMEGA. K 

E 6 , 1741 

= 

147 

8 

1468 

1469 

—OCT  25 

436? 

= 10  94 

OCT 740 

06,3001 

196 

1 

190 

OMEGAD 

E7 , 1732 

= 

159 

3 

331 

525 

0CT26 

04,2323 

2 47 

2 

245 

OC  T 74 1 60 

05,3345 

238 

1 

2 35 

0MEGAM1 

E5, 1712 

= 

141 

3 

141 

l 149 

OCT27 

11,3721 

1242 

1 

1227 

0CT75 

06,2775 

196 

1 

195 

0MEGAM2 

E 5, 1720 

= 

141 

3 

141 

1149 

OCT 272 

.06,2  7 76 

1 96 

1 

18  9. 

OC  T 77000 

06,3002 

196 

l 

1 89 

0MEGAM3 

F5,  1726 

= 

141 

3 

141 

1150 

OCT  27  470 

05  ,3344 

2 37 

1 

235 

OC  T 77  77 

05,3052 

233 

OMEGAP 

F6, 1417 

144 

15 

144 

1433 

OCT  30000 

4355 

= 2 33 

OCT  77 770 

5660 

1377 

5 

247 

1378 

OMEGAPD 

E 6 , 1641 

149 

12 

149 

1433 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 

-UN-UND-E-E-LAIE-D = 0 E F INED  BY_ EQUALS J_  DFFTNFD  RY  .inKFR  OR  FRASF  ANYWHFRE MD  MULTIPLY  DEFINED 

BD  BADLY  DEFINED  CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


ASSEMBLE  ft  E-VIS  I ON  069--0F-AG0  PROGRAM -LUMI  NARY  BY  NASA  20 2 1 1 12- Oil 


1 9 : 0 2— NOAL^-  2-5,1968 


P AG  F 1 53 1 


— &AP-: 


SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF,  # OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF. 


SYMBOL  DEF 

H 

REFERENCES 

SYMBOL 

DEF 
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- 7 4-0  - 

1 441 

-OR-R  I T A 1 - 

11  ,2000 

_ 

_ 28 

1 

1223 

P 

£5, 1737 

_ 

1 4 0 

JA- 

_140 

1196 

OMEGAQD  E 6 , I 642 

= 

149 

7 
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1435 

ORBI TALI 

11,2000 

= 

28 

1 

1242 

P-RATE 

16,2477 

1420 

OMEGAR  E6.1421 

- 

144 

8 

1406 

1441 
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13,2000 

= 

29 

2 

61 

1242 

P-RHCCTR 

0043 

= 

108 

4 

142  8 

1429 

nMPf.A  Rn  FA  T 1 A4T 

_ 

1 4Q 

I 

3 8-2 

1435  OR  BM AN AD 

32,3612 

838 

1 

8 35 

PACCFUN 

E6, 1557 

= 

1498 

2 

1491 

OMEGAU  E6.1424 

144 

12 

144 

1446 

OR  BM ANU  V 

0003 

= 

251 

5 

250 

838 

PACKOPTN 

15,3370 

971 

1 

971 

OMEGAV  E6.1425 

- 

144 

2 

145 

149 

ORBWFBIT 

4746 

= 

87 

P ACT  I VE 

05,3031 

232 

1 

232 

6 Q] 

J3R-BWFLAG 

.0066 

- 

87 

3 

12  17 

1239 

PARAM 

04.3005 

1183 

3 

1182 

1195 

OMEGDISP  E7.1732 

= 

1 59 

3 

159 

601 

DRDERBIT 

4746 

= 

95 

PARAM30 

35,2017 

624 

OMEGMOON  13,2000 

61 

1 

120  8 

ORDER  SW 

0201 

= 

95 

3 

1178 

1179 

PASSIVE 

23,2373 

706 

4 

632 

706 

T)N£  4-753 

_ 

10  94 

182- 

1X2— 

1495 

DR  IG 

£4 , 1515 

= 

JL3J. 

PASTEOPT 

4132 

452 

] 

45? 

ONE/SP  25,3576 

577 

i 

577 

OR IGCHNG 

11,3305 

1234 

1 

12  34 

PASTEVB 

4124 

452 

2 

452 

459 

ONEB-2  24,?344 

512 

i 

506 

OR IGEX 

E4, 1512 

= 

130 

4 

130 

1235 

PASTIT 

07,2211 

267 

1 

275 

1 1 fi-1 

1 

1L9_2 

OR  IG1M- 

£5,1773 

— 

1 41 

P AUTNO 

30.3135 

91  1 

2 

910 

ONEDPP  37,3063 

402 

i 

391 

OTHCONIC 

37,3315 

715 

i 

715 

P AXADIOL 

16,2201 

1408 

1 

1407 

ONEOCT  26,3652 

603 

i 

600 

OTHERS 

13,3522 

1217 

i 

1218 

PAXDIST 

F6, 1565 

= 

1498 

2 

1495 

ONFPRTWn  ^370 

1 

1 

1 29  5 

OTHFRV 

.34,3613 

738 

i 

738 

PAXFILT 

16,2635 

1422 

1 

1422 

ONE  S E K 22,3165 

3 80 

4 

379 

381 

OTHINT 

37,3326 

715 

i 

715 

PAXIS 

16,2210 

1416 

2 

1408 

1499 

0NFST02S  30,3714 

923 

3 

917 

921 

OTHPREC 

13,3043 

= 

36 

5 

665 

722 

P AXI SADR 

20,3655 

1499 

1 

1484 

O-ME  J E-WT-H- -2  C t 2A3-4 

1 414- 

_ . 1 

-141  4_ 

QT-HSH  IP 

22,3333 

722 

PBIASX 

E3, 1452 

125 

1 

125 

ONETHTH  34,2107 

642 

1 

645 

OURPERMS 

E7 , 1 61 7 

= 

164 

2 

1 64 

PBI ASY 

F 3 , 1454 

125 

ONLITES  25,3656 

623 

2 

622 

OURRCB IT 

4740 

= 

103 

6 

1427 

1440 

PBIASZ 

E3, 1456 

125 

ONI  1 1 1 AGF  3 f t 2 A A ? 

7 50 

1 

745 

OURRCFLG 

0306 

- 

103 

PBIT 

4742 

= 

145 

4 

1427 

1 430 

OP/INERT  43,2174 

282 

2 

280 

282 

OURTEMPS 

E7 ,1542 

= 

164 

i 

164 

P30DY 

F 4 , 1430 

129 

18 

130 

1241 

OPJUMP  6076 

998 

1 

99  8 

OUT 

13,2332 

719 

i 

719 

PCLOOP 

05,2777 

231 

1 

232 

- OPJUMP2 6-246 

10-04- 

L_ 

998 

nUTGOAVF 

32,3707 

= 

865 

PCnNS 

£4,1750 

= 

136 

3 

136 

850 

OPJUMP3  6262 

10  05 

i 

1004 

OUTHERE 

0161 

= 

1366 

3 

1362 

1364 

PDA 

0026 

= 

139 

OPONLY  06,2347 

LSI 

i 

179 

OUTLINK 

0057 

= 

109 

PDB  1 

E6, 1561 

= 

1498 

1 

1495 

OPT  AX  IS 07  » 2 14-2 

—2-63 

nilTriFl  IM 

24,3060 

5 23 

2 

5 23 

524 

P DR  2 

E 6, 156? 

= 

1498 

1 

1495 

OPTCADR  1305 

122 

i 

237 

OUTOFPLN 

E5.1533 

= 

138 

3 

138 

792 

PDB3 

E 6, 1564 

= 

1498 

1 

1495 

OPTCOARV  43,2226 

= 

2 84 

i 

284 

OUTROUTF 

1260 

= 

121 

4 

243 

865 

PDB4 

66,1563 

= 

1498 

1 

1495 

OPT  ION-VN  22*3316 

722 

1 

721 

OUT-SNUFF 

43,3232 

3L3 

1 

£77 

P DDL 

6522 

1015 

1 

1006 

OPTIONX  1051 

= 

1 18 

13 

286 

722 

OUTO 

0010 

= 

109 

5 

1 71 

175 

PDSPFBI T 

4740 

= 

88 

2 

487 

488 

OPT  I ON  1 1144 

120 

8 

320 

1356 

OUT22. 1 

32,2532 

582 

2 

5 82 

PDSPFLAG 

0077 

= 

88 

3 

488 

530 

OPT-TOW  2-  11-43— 

—120— 

13 

—5  05 

975 

OUT??. 7 

24,3247 

5 84_ 

1 

583 

POVL 

6556 

1016 

1 

1006 

OPTION3  1146 

120 

OVERFFIX 

37,2275 

391 

2 

389 

393 

PDXCHNGE 

12,2303 

1173 

2 

1172 

OPTNBIT  4745 

= 

85 

OVERFLOW 

7016 

1023 

3 

1022 

1046 

D EG  I 

16,3257 

1430 

2 

1429 

-OPINfiBG-  E 5 , 1463  _ 

- 

_ 147 

OVERFLWY 

7013 

1023 

4 

1021 

1046 

PERFCHEK 

10,3010 

1360 

OPTNSW  0046 

= 

85 

3 

733 

734 

OV  ERF  L W Z 

7010 

1023 

4 

1021 

1046 

PERFDLAY 

E 5, 1574 

= 

143 

1 

387 

0PTN1  34,3342 

7 33 

1 

733 

OVERSUB 

16,2277 

1417 

12 

1419 

1435 

PERFFRAS 

37,2772 

400 

1 

39  8 

OPTLL2 34 ,342? 

7 34 

1 

7 34 

OV  ER  SUB 2 

20,2435 

1414 

3 

1410 

1411 

PERFMASK 

10,3350 

1366 

2 

1354 

1356 

OPTSTALL  07,3665 

= 

1324 

l 

938 

OVF  + 

00,2414 

1052 

2 

1052 

PERF2MSK 

10,3354 

1366 

2 

1354 

1356 

ORBCHGO  24,2031 

5 05 

1 

505 

OVFIND 

0121 

112 

13 

816 

1104 

PERF4MSK 

10,3356 

1366 

1 

1356 
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505  _ 

1 

505 
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12, 3221 

1188 

1 

11  88 

PER  I APO 

23,2307 

704 

1 

A44 

ORBCHG2  24,2055 

5 05 

1 

505 

OVFLOWCK 

E 5 , 1 576 

= 

143 

3 

3 86 

401 

PERIAP01 

23,2277 

704 

5 
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1 
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1 

1170 
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1 AQ  143  2 

P I CGXT 

14,2633 

- 9 37 

1 

- 9-37 

P IP  I NDEX 

PS, 1 41 5 

_ 

- _L4 2 

- 6 

1-42 

39-2 

PFAILOK 

07,3227 

1311 

i 

181 

PICKANGl 

27,2125 

495 

1 

495 

PIPJOBB 

37,2166 

388 

1 

388 

PEA IL0K2 

07,3222 

1311 

i 

1311 

PICKAXIS 

27,2146 

496 

2 

494 

PIPSDONE 

37,3435 

859 

l 

872 

P-FL-IT  E-Q8- 
PFRATBI T 

f ? LAP 

1402- 

3 

76  1 

.841 

P ICKX 

26,2350 

496 

2 

496 

P I PS R INF 

37.3533 

= 

960 

2 

964 

4750 

= 

86 

i 

926 

PICNSWP 

14,2652 

937 

1 

9 37 

P I PTE M 

E 4, 1663 

= 

132 

ft 

135 

894 

PFRATFLG 

0051 

= 

86 

4 

776 

941 

PI  Cl 

14,2507 

935 

3 

935 

PIPTIME 

1234 

121 

21 

210 

1218 

PGU  IO-E 

1247 

= 

121 

6 

„ 121 

883- 

_PIC2  _ 

14,2512 

935 

1 

935 

PIPTIME1 

E 7 , 1556 

= 

162 

13 

162 

1220 

PHASCHNG 

5353 

1292 

121 

243 

1388 

P I C 3 

14,2522 

935 

5 

935 

936 

PIPUSE 

07,3246 

1312 

PHASETAB 

10,2000 

= 

28 

2 

1288 

1294 

PIC4 

14,2525 

935 

1 

935 

P 1°USE1 

07,3252 

1312 

1 

349 

PHASF1 

0753 

117 

3 

232 

1296 

PIF 

E7.1610 

= 

164 

1 1 

1 64 

816 

PITCH 

E4, 1770 

= 

1 36 

2 

331 

841 

PHASE2 

0755 

1 17 

2 

768 

859 

PI FPSET 

E7 ,1604 

= 

164 

5 

164 

800 

P 1 TC  HANG 

F4, 1604 

= 

134 

7 

134 

500 

PHASE3 

0757 

1 17 

PINACT 

05,3036 

23? 

1 

232 

P ITCHOFF 

27,3147 

786 

2 

786 

-PHAS-E4 

0761 

117 

J- 

_ 863 

PINBALL1 

40,2000 

= 

35 

2 

3 14 

411 

PITFALL 

21, 2006 

819 

2 

169 

PHASE5 

0763 

l 17 

1 

744 

PI NBALL2 

41  ,2000 

= 

35 

1 

419 

PITTIME 

E 6 , 1402 

144 

2 

329 

785 

PHASE6 

0765 

1 17 

1 

749 

PI NBALL3 

42 ,2000 

= 

35 

3 

296 

434 

PJETSLEC 

16,3335 

1431 

6 

1426 

1433 

PHA-SJ-UM.P 

53-63 

_ L2  93— 

L_ 

129? 

PINBALL4 

04,2000 

= 

27 

1 

470 

PLANFT 

15,2540 

959 

7 

939 

967 

PHEX IT 

13,3176 

1211 

1 

1211 

PI NBRBI T 

474  6 

= 

89 

°L ANT  IN 

24,2000 

= 

31 

2 

68 

1 1 35 

PHI 

0024 

= 

5 31 

2 

529 

PIN8RFLG 

0105 

= 

89 

1 

135° 

PL A NT  I N l 

26,2000 

= 

31 

l 

1141 

PH  IV 

84 , 1 445 

_ 

130 

6- 

130 

1237 

P INBRNCH 

10,2723 

1358 

7 

_ 242 

1366 

PL ANVEC 

E7, 155 1 

= 

160 

5 

160 

949 

PHSBB l 

E3 , 1 437 

125 

PINIDMSK 

10,3222 

1363 

1 

1363 

PLAST 

£6,1452 

145 

5 

1419 

1429 

PHSBB2 

E3, 1441 

125 

PINMASK 

7737 

= 

1366 

1 

1359 

D L A Y JUM 1 

10,2470 

1354 

3 

1359 

1366 

PHSB-B-3- 

F 3 » 1443 

125 

PINSUPBT 

4201 

- 

465 

5 

2 89 

469 

PI AYTEM1 

0155 

= 

1367 

27 

1348 

1357 

PHSBB4 

E3 , 1445 

125 

PI NSUPER 

40,2000 

= 

35 

1 

289 

PLAYTEM3 

0157 

= 

1367 

3 

1356 

1364 

PHSBB5 

F 3 , 1 447 

125 

PINTEST 

43,2002 

= 

479 

PLAYTEM4 

0160 

= 

1367 

11 

1348 

1 364 

-PHSBB.6  - 

£3,1451 

L25 

PI PABTAS 

E3  ,1452 

= 

125 

1 

339 

PLENTY 

25.3211 

566 

1 

566 

PHSCHNGA 

5357 

1292 

i 

243 

PIPACHK 

37,2126 

388 

1 

387 

PLUSX 

27, 7446 

776 

PHSCHNG2 

10,2102 

1294 

i 

1293 

PIPAGE 

1257 

= 

121 

6 

121 

871 

PMINE 

34,2073 

64? 

2 

651 

PHSNAM£1 

E3 , 1436 

125 

5 

1294  1299 

PI PASC 

37,3077 

40? 

1 

398 

PMINM 

34,2103 

642 

PHSNAME2 

E 3 , 1 440 

125 

1 

R 2 5 

PIPASCF 

E3, 1453 

= 

125 

1 

3 39 

PMMASK 

10,3367 

1366 

1 

13  54 

PHSNAME3 

£3,1442 

125 

1 

825 

PIPASCFX 

E3 ,1453 

125 

1 

125 

POINTER 

0156 

= 

1302 

7 

1300 

1302 

-P-H-SNAME4 

E 3 , 1 444 

125 

PIPASCFY 

£3,1455 

1 25 

P 0 1 NT VS M 

£7,1766 

= 

161 

7 

167 

954 

PHS  NAME  5 

E3.1446 

1 25 

2 

890 

PI PASCFZ 

E3 ,1457 

125 

POLISH 

0117 

11? 

39 

112 

1089 

PHSNAME6 

F 3 , 1 4 50 

125 

PI PASR 

37,3530 

870 

4 

347 

960 

POLLEY 

5051 

1097 

2 

1097 

PHSPART  2 

-0-1  ,3-7-60 

1302- 

_ 1 13  0 2 

PIPATASK 

37,2151 

388 

2- 

3 88 

POLY 

7221 

1029 

7 

857 

1276 

PHSPRDT 1 

1054 

1 18 

5 

1293 

1301 

PI PATMPX 

1160 

120 

3 

86? 

900 

POLYCNT 

0140 

= 

113 

4 

1 0 ? 9 

1030 

PHSPRDT2 

1056 

1 18 

3 

244 

829 

PI PATMPY 

1161 

120 

3 

862 

900 

POLYCOEF 

12,3042 

1185 

1 

1187 

-P-HS-PR-BT  3- 

1060  _ 

1 L8 

1 

_ 24  7 _ 

PI PATMPZ 

1162 

120 

3 

862 

901 

POLYCOM 

7231 

1029 

1 

L029 

PHSPRDT4 

10  62 

1 18 

1 

247 

PI  PAX 

0037 

= 

108 

14 

320 

1390 

POLYLOOP 

7241 

1030 

1 

1030 

PHSPRDT5 

1064 

118 

PI  PAY 

0040 

= 

108 

6 

3 96 

1390 

POLYRET 

0141 

= 

1 1 3 

3 

1029 

1030 

- P-H-SPR0T6- 

1066- 

1 18 

PIPAZ 

0041 

- 

108 

8 

396 

1390 

POLYTEMP 

E6, 1737 

— 

146 

10 

1425 

1452 

PHS  2C  ADR 

01 ,3765 

1302 

1 

1297 

PI PCTR 

1056 

= 

829 

4 

609 

859 

POLY? 

7244 

1030 

1 

1030 

PI/16 

27,3726 

1277 

2 

1273 

1275 

PI PCTR1 

E7, 1712 

= 

829 

2 

829 

897 

PON 

37,2251 

389 

1 

389 

ptcapar 

14, 245? 

9 34 

1 

934 

PIPFAIL 

06,2650 

192 

1 

1 96 

P0N2 

37,2240 

389 

PICBXT 

14,2654 

9 37 

1 

937 

PI PFREE 

07,3263 

1312 

1 

8 64 

P0N4 

37,2245 

389 

1 

389 

PICEND 

14,2627 

9 36 

1 

935 
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07,3260 

1312 

1 
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POODOO 
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1377 

6 
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13  54 
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\ 0 7L4 
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PQW-R  SFRS 

721  4 

1 0-2-9- 

2 

824 

PRTD1 7 

sn?7 

1 09? 

4 

- 743 

854 

POOF  I ZZ 

04,2254 

246 

1 

245 

PQRBt  T 

16,3113 

1427 

i 

1428 

PR  I 0? 

4741 

= 

1094 

POOH 

04,2160 

2 44 

PRATE 

E4 , 1 754 

= 136 

7 

136 

850 

PR  1020 

4736 

= 

1094 

8 

284 

862 

1 

2 45 

PRDTTAB 

01,20-00- 

- = 25  4- 

-3 

13  0X) 

1302 

PR  102 1 

503  1 

1092 

4 

341 

858 

POSALARM 

33,3666 

8 95 

2 

895 

PREBJUMP 

5316 

1288 

PR  1022 

7707 

1092 

4 

305 

877 

POSALPH 

21,3511 

1473 

2 

1473 

PREBRET1 

32,3442 

B 35 

1 

847 

PR  1 02  3 

7710 

109? 

1 

270 

958 

6 

331 

958 

PELEC/TT 

34,3552 

737 

2 

733 

734 

PR  1 024 

771  1 

1092 

2 

86? 

895 

POSDEL 

12,2633 

1179 

i 

1178 

PRECIBIT 

4744 

= 87 

PR  I 025 

7712 

1092 

4 

502 

863 

POSDELX 

12,2255 

1172 

i 

1172 

PRECIFLG 

0064 

= 87 

6 

251 

1214 

PR  1 0 26 

7713 

1092 

9 

381 

616 

pn<; pp  j VF 

? 1 

1 4 77 

1 

147  7 

PREC-S-ET 

23,2341 

706 

5 

65? 

737 

PRI 027 

7714 

1092 

5 

207 

1406 

POSEC 

42,3410 

4 36 

2 

436 

PREDOT 

7153 

1028 

2 

1033 

1036 

PR  T 03 

5015 

1092 

12 

267 

1 094 

POSFNCT 1 

21,3373 

1469 

1 

1469 

PREDSPAL 

40,3416 

459 

1 

430 

PRI 030 

435  5 

= 

1094 

12 

189 

1365 

-POS  G-M  BL 

37  ,30j64 

387 

PREGUIDE 

31,2454 

802 

1 
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PRI 031 

7715 

109? 

5 

349 

1435 

POSGN 

40,2407 

415 

1 

411 

PREMM1 

04,2436 

2 49 

2 

243 

247 

PR  I 032 

7717 

1092 

4 

873 

1361 

POSGOOD 

33,3660 

895 

1 

895 

PREM0N1 

21,2027 

820 

1 

820 

PRI 033 

7720 

1092 

i 

1 353 

-RCLSITA 

15  *3  67  7 

9 80 

l 

98L 

PR-EM0N2 

21 , 2030 

820 

1 

820 

PR1034 

7721 

1092 

2 

991 

1094 

POSITB 

15,3702 

9 80 

1 

981 

PRENVBSY 

4437 

477 

1 

477 

DR  1035 

7722 

1093 

1 

1116 

POS ITD 

15,3721 

981 

1 

982 

PR  EPO  S 29 

25,3601 

608 

1 

607 

P R I 036 

7723 

1093 

POSI IE 

1 5 *3  7 6 7 

9 8? 

1 

98  1 

PREREAD 

37,3374 

858 

1 

7 44 

P R 1 037 

7724 

1093 

8 

247 

1399 

POS I T F 

15,3742 

981 

PRERRORS 

43,3254 

1280 

3 

1281 

PR  104 

474  0 

= 

1094 

4 

289 

501 

POS ITON 

E 5 , 1 4 16 

= 142 

6 

142 

3 94 

PRESINE 

00,3526 

1077 

2 

1077 

PRI  05 

5017 

1092 

10 

244 

1204 

PO-SMA  X 

4733 

10-90 

44 

1-8-6 

1 4 99 

PILES  T AND 

37  ,3643 

1329 

1 

1329 

PR  106 

5020 

1092 

4 

547 

1423 

POSNV 

E 5 , 1 520 

= 143 

2 

399 

400 

PRESTORE 

6420 

1011 

1 

1011 

PRI  07 

5021 

109? 

7 

290 

725 

POSTAND 

37,3720 

1330 

2 

1329 

1330 

PR  FM  S T AO 

4761 

= 950 

1 

9 48 

PRLIMIT 

30, 3047 

856 

2 

849 

POSTBURM 

. 36 1 3223 

761 

4 

25-6- 

767 

PRlOaORT 

10,2450 

X354 

2 

135? 

1361 

PROCEED 

1 0_,  3264 

1364 

1 

1 362 

POST C DH 

E 7 , 1 60 1 

1 56 

3 

156 

651 

PR  IOCHNG 

5146 

1100 

17 

290 

13  63 

PROCEEDS 

06,2075 

173 

POSTCOM 

37,3747 

1331 

2 

1331 

PR IOCH2 

01,3067 

1107 

1 

1100 

PROCKEY 

40,3450 

462 

1 

173 

PQSTCS-I 

£7,1577 

156 

2 

6 44 

-651- 

PR IDDRIT 

4736 

= 88- 

1 

13  59 

PROCTNON 

06,2242 

179 

1 

179 

POSTHRST 

17,3713 

1501 

4 

150  1 

1502 

PR IODFLG 

0075 

= 88 

PROGLARM 

5621 

1376 

1 

1375 

POSTJUMP 

4635 

9 93 

56 

180 

1397 

PR I0DSP 

10,2362 

1352 

2 

517 

519 

PROGRAV 

15,2717 

963 

1 

963 

POSTORKP 

-E-6-,1513 

= lab 

1 

21  0 

PPIQD-SPR 

10 ,2357 

1352 

2 

525 

1376 

PR0G20 

24.2022 

504 

2 

?49 

504 

POSTORKU 

E6 ,1 515 

= 148 

5 

209 

219 

PR IOENT 

5575 

1375 

2 

13  76 

1378 

PR0G20A 

24, 2062 

507 

3 

505 

507 

POSTORKV 

E6 , 1517 

= 148 

PR 10LARM 

10 , 3451 

1376 

7 

508 

895 

PR0G21 

24,3402 

665 

1 

249 

POSJJ-P  I 

_£_7  (-L6-0-3  _ 

L56_ 

5- 

156 

735 

PRIODCT 

10 , 3404 

1367 

2 

13  50 

1357 

PR0G22 

24,202? 

= 

504 

1 

249 

POSUPDAT 

33,3215 

8 85 

PR  IOPLAY 

10,2471 

1354 

2 

1350 

1353 

PRI7G25 

24,2427 

514 

1 

2 49 

POSVMAXY 

21,3067 

904 

2 

904 

PRIORITY 

0167 

115 

34 

2 36 

1355 

PR0G52 

1 5,2050 

926 

1 

?48 

PTTSX/-2 — 

-4J36 

=-  10-94 

2 

1117 

PR  LOT  IMF 

1165 

1 20 

2 

1353 

13  63 

PROJ 

0022 

= 

165 

POS 1 / 4 

11,3701 

= 1242 

PR  101 

4742 

= 1094 

PROJMAX 

31,3763 

827 

1 

816 

P0S1CHK 

33,2564 

876 

1 

875 

PR  1010 

4737 

= 1094 

5 

299 

786 

PROJMIN 

31,3764 

82  7 

1 

8 16 

ROS-2CHK — 

33,2535 

- 8.75 

PR  mi  1 

5022 

1092 

PROP 

30,2561 

849 

? 

849 

POUTBIT 

4745 

= 92 

t 

798 

PR  1012 

4644 

993 

3 

226 

767 

PRONVBI T 

4745 

= 

89 

POUTFLAG 

0 142 

= 92 

3 

804 

812 

PRI013 

5023 

1092 

3 

753 

964 

PRONVFLG 

01  04 

= 

89 

1 

1360 

-POWER  DB-- 

20,2152 

1403- 

— L- 

140  2 

PR.I014 

5024 

1092 

3 

515 

1297 

PRSHRTMP 

4415 

475 

4 

432 

434 

POWFL ITE 

23,2000 

= 31 

1 

1254 

PR  1 0 1 5 

5025 

1092 

5 

196 

1365 

PRT2CADR 

0 1 ,3766 

1302 

1 

1299 

POWFL IT  1 

23,2000 

= 31 

1 

1261 

PR  I 0 16 

5026 

1092 

6 

196 

748 

PSEU0055 

F7, 1612 

164 

3 

164 

799 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFFRFNCES 

- | 

3 

1 3-0— 

-12  37 

P 2 OLE  MR  1 

24,2204 

5-0  9- 

1 

- 5-2-3  - 

P30S 

3 5,2000... 

_ 

34 

1 

674 

PSKIPAQR 

16,3606 

1435 

P20LEMB2 

24,2207 

509 

1 

509 

P30S1 

34,2000 

= 

33 

1 

626 

PSTHIBIT 

4741 

= 100 

2 

875 

885 

P20LEMB3 

24,2211 

509 

2 

509 

510 

P30ZFRO 

35, 2363 

641 

10 

631 

662 

PSTH I GAT 

3251 

= 1 on 

P20I  FMB4 

24 , 2226 

510 

1 

509 

P 3 1 

35,2414 

662 

1 

249 

PTBAD 

05,3047 

2 32 

3 

232 

P20LEM85 

24,2156 

5 09 

1 

517 

P 3 2 

35,2027 

631 

1 

249 

PTIGINC 

E 7 , 1402 

153 

2 

675 

736 

P20LEMB6 

24,2174 

5 09 

2 

509 

P32/P72A 

35,2053 

63  1 

1 

631 

_ _ _ PIOA.CSM 

13,2705 

12  06 

1 

1211 

P2-0LEMB7 

24,2151 

508 

P32/P72B 

35,2075 

632 

1 

633 

PTOALEM 

13,2760 

1207 

2 

312 

1211 

P20LEMC 

24,2247 

510 

3 

517 

519 

P32/P72C 

35,2116 

632 

1 

65  1 

PULSEFLG 

0303 

= 103 

P20LEMC1 

24,2275 

5 10 

3 

255 

511 

P32/P72D 

35,2122 

632 

1 

632 

Pin  SF  I Ml  1 

l_Q_f  1625 

_ 13  94 

1 

393 

P20I  FMC2 

24,2312 

5 1 1 

1 

5 11 

P32/072E 

35,2124 

632 

1 

63? 

PULSEM 

14,3072 

942 

P20LEMC3 

24,2232 

510 

4 

509 

522 

P 32 / ra7  2F 

35,2132 

632 

1 

632 

PULSES 

4735 

= 103 

5 

299 

1438 

P 2 01 EMC 4 

24,2246 

510 

1 

5 10 

P32STRT 

35,2032 

631 

1 

631 

PURGEJ^GY 

3 442 

14  33 

4 

1425 

1429  P20L-EMD 

24,-2315 

511 

1 

510 

P 33 

35,2162 

637 

1 

249 

PURR  S 4 

10,2570 

13  56 

2 

1354 

1356 

P20LEMD1 

24,2321 

5 11 

2 

5 11 

P33/P73A 

35,2165 

637 

2 

637 

638 

PUSH 

00,3247 

1072 

1 

1008 

P20LEMD2 

24,2330 

511 

1 

511 

P33/P73B 

35,2177 

637 

1 

638 

PUSFiLQC 

0 166 

115- 

3 7 

.267 

110.4 

P20LFMF 

24, 2261 

-5-10 

P33/P73C 

35,2246 

638 

1 

637 

PUSHUP 

6214 

1003 

1 

999 

P20LEMWT 

24,2262 

510 

5 

5 08 

521 

P33/P73D 

35,2252 

638 

1 

638 

PUT ADD 

41 ,2332 

424 

3 

424 

P20LEM1 

24,2104 

508 

2 

5 08 

526 

P33/P73E 

35,2260 

638 

1 

638 

-RUT.C-QM— ... 

41 ,3075 

442 

-8- 

_ -43-8 

440 

P2.0LMWT  1 

24,2272 

.510 

P33/P73F 

35j_2271 

638 

1 

638 

PUTC0M2 

41,3155 

443 

4 

442 

445 

P 2 OR  EG 

04,2324 

247 

1 

2 46 

P34 

35,2511 

670 

1 

248 

PUTDCSF2 

41,3207 

443 

1 

443 

P20S 

24,2000 

= 

31 

8 

5 04 

665 

P34/P74A 

35,2514 

670 

2 

670 

671 

PUTDECSE 

41,3174 

_ -443 

2 

442 

443 

P20S1 

-25 , 2000 

= 

31 

3 

537 

577 

P34/P74B 

35,2534 

670 

1 

670 

PUT  DP  COM 

41,3  130 

442 

1 

443 

D 2 0 S 2 

25,2000 

= 

31 

P34/P74C 

35,2536 

670 

1 

672 

PUTNORM 

41,3137 

442 

1 

442 

P20S3 

26,2000 

= 

31 

1 

5 86 

P34/P74D 

35,2577 

671 

1 

671 

PUT  SENIOR. 

-4-1+3-206 

443- 

-1 

443 

P2QS4  - 

3-2j  2000 

= 

33 

1 

505 

P 34 / ° 74E 

35.260? 

671 

1 

671 

PUTXY 

41,2714 

439 

P21 

E6, 1701 

= 

1 50 

P 3 5 

35,2667 

675 

1 

248 

PUTXYZ 

41,2632 

438 

P210NENN 

24,3500 

6 66 

1 

665 

P35/P75A 

35,2676 

675 

1 

675 

=-  PVALVEST 

1-276 

122— 

■ 

2-06. 

—227 

P2-LPRQG.A 

24,3434 

- 6 65 

6 66 

P35/P75B 

35,2703 

675 

1 

675 

PWRCMT 

0140 

= 1 14 

2 

823 

P2  1PR0G1 

24,341 2 

665 



1 

6 66 

P 3 8 

34, 3271 

732 

1 

248 

PWRPTR 

0117 

= 1 14 

4 

823 

P2 1PR0G2 

24,3443 

665 

1 

665 

P39 

34, 3517 

736 

1 

248 

-PGaHCHK — 

1-3,3  34  7 

12-14. 

2_ 

1213 

1214 

P21PR0.G3. 

24,3451 

666 

1 

66G 

P39/P79A 

34.3530 

736 

1 

736 

P05P06 

37,2000 

= 35 

1 

1329 

P2  1PROG4 

24, 3454 

666 

1 

665 

P39/P79B 

34, 3537 

737 

1 

735 

P06 

37,3641 

1329 

1 

249 

P 2 1 T I ME 

E7.1756 

= 

161 

7 

1 61 

666 

P39/79SW 

0176 

= 

95 

4 

733 

736 

P-12 

-3.0+2000  ... 

= 33_ 

2_ 

-5-9- 

_ 839  _ 

P220NF 

2-4-,  2343 

5 1 1 

1 

505 

P39P79 

34, 3454 

735 

1 

735 

PI2ADRES 

30,2306 

8 43 

1 

840 

P25FLAG 

0006 

= 

82 

3 

302 

789 

P39SWBIT 

4743 

= 

95 

P12IGN 

36,2506 

747 

1 

739 

P25FLBIT 

4743 

= 

82 

2 

2 43 

514 

P40/RET 

1142 

120 

4 

753 

761 

P 12  IN  I T 

3Q ,2204 

B 42 

3 

83_6- 

339 

_22.5LEM.WT 

.24,2460 

515 

1 

5 1 5 

P40A/P 

35,3711 

755 

i 

755 

P12LM 

30,2006 

8 39 

1 

249 

P25LEM1 

24,2441 

514 

3 

255 

515 

P40A/PMD 

35,3735 

755 

i 

755 

P12LMB 

30,2046 

8 39 

P25LEM2 

24,2467 

5 15 

1 

515 

P40ADRES 

36,3131 

756 

i 

760 

PI 2RFT 

3d, 2 1 50 

341 

_L 

851 

P25LMWT1 

24,246? 

5 15 

1 

5 15 

P40ALM 

36,3722 

769 

2 

760 

764 

P12SP0T 

36,2144 

= 741 

1 

739 

P250K 

24,2475 

515 

P40AUT0 

35,3707 

755 

2 

741 

834 

P12TABLE 

36,2022 

7 39 

1 

843 

P3XORP7X 

35,3643 

692 

1 

689 

P40CADR 

32,3521 

836 

1 

836 

B2JDJELGC1N . 

35  ,2  325_ 

639 

7 

63  1 

736 

P 3 0 

35,2000 

624 

1 

2 49 

P40 IGN 

36,2467 

747 

1 

740 

P20LEMA 

24,2132 

5 08 

3 

508 

521 

P30EX I T 

E5 , 1773 

= 

141 

1 

141 

P40IN 

36,3200 

76  1 

1 

765 

P20LFMB 

24,2140 

508 

6 

508 

509 

P30N33 

35,2004 

624 

P40LM 

36,3147 

760 

2 

248 

836 
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SYMBOL  DEF 

F REFERENCES 

7A9  7 7 A 7 

SYMBOL 

7AAP57J  - 

DEF  H REFERENCES 

_15. 7773  930 1 ...  977 

SYMBOL 

_ P 73 

DEF 

35,21 64 

H 

REFERENCES 
637  1 248-  - 

P40S 

36,2000 

= 35 

5 

53 

760 

P520UT 

15,2164 

928 

1 

929 

P 74 

35,2513 

670 

1 

248 

P40SJUNK 

36,2360 

745 

2 

740 

P52T 

15,2105 

927 

2 

°27 

P 75 

35, 2673 

675 

1 

248 

-P40  ‘sPlTI  T 

3At?  1 44 

741 

3 

7 3 9-- 

741- 

P 52V  _ 

15,2125 

_ 927 

P 76  _ 

I 3j  2 207 

717 

l 

248 

P40SXT4 

36,3213 

761 

2 

761 

7 63 

P5  2W 

15,2134 

928 

1 

927 

P76L0C 

13,2000 

= 

29 

l 

717 

P40S1 

27,2000 

= 32 

4 

53 

771 

P57 

15,3317 

971 

1 

2 48 

P76SUB1 

1 3, 2340 

719 

1 

718 

P-4-0  S 2-  - 

- 3 5 *20  00 

= 34 

1 

755 

P57A 

15, 3324 

971 

P 78 

34,  32  74 

732 

1 

248 

P40TABLE 

36,2036 

7 39 

1 

756 

P57AA 

15 , 3326 

971 

1 

971 

P79 

34,3524 

736 

1 

248 

P40ZOOM 

36,2564 

749 

1 

739 

P5  7C 

15,3357 

971 

2 

971 

- P40ZUQMA 

36 , 25  71 

749 

1 

749 

P57D 

15,3361 

971 

1 

971 

0 

0002 

= 

108 

441 

109 

1501 

P41ADRES 

36,3132 

756 

1 

762 

P57 JUMP 

15,3543 

975 

2 

969 

0 + 1 

6736 

1020 

5 

172 

1 364 

P41BLANK 

36,2261 

743 

1 

743 

P57OPT0 

15,3557 

976 

2 

9 75 

0+10000 

4643 

993 

1 

995 

P-41F  JET 

_3-6 , 3 3-03- 

762 - 

P57DPT1 

15,3600 

976 

I 

975 

Q+2 

6740 

= 

1020 

5 

532 

13  73 

P4LFJET1 

36,3305 

762 

1 

762 

P570P  T 2 

15,3616 

977 

1 

9 75 

q**DG**D 

31,3155 

812 

1 

812 

P41  IN 

36,3310 

763 

1 

762 

P570PT3 

15,3617 

977 

1 

975 

Q-R ATE 

16,2533 

142  1 

2 

1420 

4-UL 

34f32Z2 

762 

_L_ 

-2-4  8 

P57PDST 

15,3264 

969 

_3 

968 

969  Q-RHCCTR 

0042 

108 

3 

142  8 

P41MANU 

36,3215 

761 

P63ADRES 

32,3246 

793 

1 

789 

Q , RORGTS 

17,2055 

1436 

l 

1436 

P41 NORM 

36,3312 

763 

P63DI SPS 

31 , 3441 

8 17 

3 

7 56 

803  OACCDOT 

F 6 , 1510 

= 

147 

6 

1406 

1484 

P-41  SPOT 

1 ? 147 

74-1 

2 

- 740 

741 

-P-63-1  GN 

36t 2440 

746 

1 

740 

QAXIS 

F7. 1715 

= 

166 

3 

842 

855 

P41TABLE 

36,2052 

740 

2 

756 

770 

P63IGN1 

36,2476 

747 

QCDUWUSR 

E6, 1645 

= 

151 

3 

151 

917 

P42ADRES 

36,3133 

7 56 

1 

764 

P63LM 

32,2772 

789 

1 

248 

OCHAN 

0002 

= 

109 

2 

1088 

P42CADR 

3 2,  3-522- 

836 

- 1 - 

-33-6 

P63SPDT 

36,2147  = 

741 

1 

740 

QDI  FF 

E 6 , 1446 

= 

147 

3 

1467 

1471 

P42 IGN 

36,2516 

747 

5 

740 

747 

P63SP0T2 

32,3210 

792 

1 

792 

OERRCALC 

17,2563 

1445 

2 

1408 

1436 

P42LM 

36,3410 

764 

2 

248 

836 

P63SP0T3 

32,3230 

793 

1 

793 

OERRC ALL 

16, 3622 

1435 

1 

1435 

P42-SP-0T 

36,2144 

- = - 7 41 

1 

740 

P63SPCT4 

32,3242 

793 

1 

793 

OERROR 

E6, 1446 

= 

145 

5 

147 

1446 

P42T  ABLE 

36 ,2060 

740 

1 

756 

P63TABLE 

36,2074 

740 

2 

756 

793  OGI MBITS 

5007 

= 

1423 

1 

1423 

P47B0D 

36,3504 

766 

1 

766 

P63Z00M 

36,2556 

748 

1 

740 

OGI MTIMR 

E 6 , 1630 

1 49 

9 

149 

1474 

_P4JmOAG_ 

-36,3513-. 

7-66 

2- 

7-6.5 

.7  66 

P64.CEED 

31,3463 

8 18 

1 

8 18 

OLAST 

E6. 1453 

145 

5 

1419 

1441 

P47LM 

36,3436 

765 

1 

248 

P640I SPS 

31,3445 

817 

3 

803 

818  OMAJ 

E 5 , 1 746 

= 

139 

15 

139 

978 

P50S 

15,2000 

= 30 

5 

265 

962 

P64N0W 

43,2330 

287 

1 

2 77 

OMIN 

E5, 1745 

= 

139 

23 

139 

968 

-P50SI 

1-4,2-000-- 

30-  _ 

2 

— 60  - 

-932- 

P65START 

31,2616 

805 

l 

802 

OOK 

26j  2556 

588 

l 

588 

P 5 1 

14,3340 

948 

3 

248 

949 

P65VERT 

31 ,3502 

818 

OPLACE 

E5, 1417 

= 

142 

7 

142 

394 

P5  IB 

1 4 , 3 3 74 

948 

1 

948 

P66N0W? 

31,2575 

805 

QPLACES 

E5 , 1420 

= 

142 

3 

142 

393 

P51C 

14,3405 

948 

- _1_ 

—9-4-9 

P-6.6VERT 

31,3516 

819 

1 

818 

OPRET 

0052 

— 

109 

20 

312 

1238 

P 5 ID 

14,3424 

949 

1 

948 

P67M0W? 

31,2534 

804 

ORATEOI F 

E 6 , 1434 

= 

144 

2 

1441 

P51E 

14 , 3446 

9 49 

1 

949 

P70 

21,2166 

830 

1 

248 

ORAX  T S 

16,3607 

1435 

4 

1424 

1432 

P 5 I F I V-E  - 

4 756 

= 950 

P7.0A 

21,2167 

830 

2 

2 56 

830  ORBI T 

4741 

- 

145 

4 

1427 

1442 

P51G 

14,3471 

949 

l 

949 

P70CADR 

04,2376 

248 

1 

2 48 

ORCNTR 

E6.1746 

= 

147 

8 

1467 

1478 

P51ZER0 

4755 

= 9 50 

1 

948 

P70IN1T 

32,3302 

832 

ORCONTRL 

17,2151 

1438 

1 

1437 

P5-2A 

-15,2060 

927 

2_ 

—92  7 

P-7  ONOW? 

21,2155 

830 

ORNDXER 

0066 

= 

1472 

9 

1473 

1474 

° 52B 

15,2062 

9 27 

1 

927 

P7  1 

21,2171 

830 

QRT IMF 

17,2452 

1442 

2 

1442 

P52D 

15,2141 

9 28 

3 

92  8 

930 

P7  1A 

21,2172 

830 

2 

2 56 

830  C1RIJPT 

0012 

= 

108 

13 

170 

1423 

P52E 

-15 ,2102 

927 

P71N0W? 

21,2142 

829 

OSAVED 

E7, 1462 

154 

2 

689 

690 

P52F 

15,2162 

928 

l 

927 

P7  IRET 

32,3525 

836 

1 

832 

OTEM° 

E 7 , 1630 

157 

5 

626 

7 73 

P52H 

15,2166 

928 

1 

92  7 

P7  2 

35,2031 

631 

1 

2 48 

QTEMP1 

E 7 , 1663 

157 

6 

157 

768 
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SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

, SYMBOL 

DEF 

H 

REFERENCES 

2-3-r-3437 

31,3147 

1 2 *>? 

l 

] 7 4-  A 

RAT  FDR 1 

. 4767 

_ 

150? 

1 

1-5-0  i - 

- RDnin F4. 1 666. 

_ 

1 3 5 

3 

I 35 

347 

OUADGUI D 

812 

RATEDONE 

16 ,3115 

1427 

1 

1427 

RDOTM 

E7 , 1746 

= 

161 

4 

161 

604 

QUARTER 

4737 

= 1094 

4 

1076 

1081 

RATE  I NDX 

1325 

123 

4 

227 

835  RDOTMSAV 

E 7 , 1744 

= 

161 

4 

160 

581 

QIJJfTRJf; 

2 T 5 ? 1 

12-56 

5 

61  2 

12  56 

RATEL-1M1 

- 4766 

= 

15  0-2L 

1 

1501- 

R DOT  V 

E7, 1614 

156 

4 

157 

646 

QUIKOSP 

06,2134 

175 

i 

170 

RATELIM2 

17,3664 

= 

1501 

2 

1502 

RDRET 

E7, 1673 

= 

160 

3 

160 

597 

QUIKFAZ5 

33,3535 

890 

ii 

862 

839 

RATELOOP 

16, 3624 

1465 

2 

1417 

1465  RDRLOCS 

25,2054 

503 

1 

503 

qi n x OFF 

nf f ? 1 65 

1 15 

1 

175 

RATFRRDR 

16,3206 

1429 

1 

1-429 

RDRPTBB 

4063 

169 

1 

168 

OUIKRUPT 

06 ,2144 

175 

i 

175 

RATES 

30,2516 

848 

1 

848 

RDRUSECK 

43,2652 

295 

5 

280 

291 

QUITBIT 

4747 

= 97 

RATESP 

05,2027 

68 

2 

981 

R DSP 

E5, 1434 

= 

142 

-QUI  T-F  LAG- 

0221 

= 97 

4 

313- 

1213 

RAT ESTOP 

31,3416 

8 16 

1 

8 16 

READACCS 

37,3425 

859 

1 

871 

233 

128 

1 

1 

227 
5 89 

R EADCDUK 
READLBIT 

22,2403 

4746 

370 

100 

2 

364 

873 

494 

R 

E7.1516 

= 162 

23 

162 

883 

RATEVAR 

E3 , I 772 

= 

2 

875 

- RtCSM ) 

£3.1717 

= 136 

5 

-60  9 

883 

RATT 

0000. 

= 

12  43 

37 

352 

1220  RFADLO 

40,2747 

433 

4 

433 

435 

R*TL**P 

23,3604 

12  58 

2 

1259 

RATT1 

0016 

= 

1243 

10 

224 

791  READL01 

40,2760 

433 

1 

434 

R-OTHER 

E3 ,1717 

127 

5 

136 

335 

RBRFG 

E5 , 1402 

= 

137 

2 

137 

826  READER 

0256 

= 

100 

1 

880 

_ R.-RA-T.E 

16  ,2571 

1421 

2 

1421 

RCB-13 

05,2025 

68 

I 

981 

R EADD IPS 

10,3501 

13  90 

R-RHCCTR 

0044 

= 108 

3 

142  8 

RCDUFA1L 

0274 

= 

102 

R EADRBIT 

4743 

= 

87 

3 

234 

616 

P.-TO-RP 

24,3531 

1137 

5 

795 

1230 

RCDUFB IT 

4745 

= 

102 

R EADRDOT 

32,2414 

580 

1 

582 

RACCDOT 

£6,1512 

= 147 

_ 4 

1406 

1470 

RCDUOB  IT 

4737 

101 

READRFLG 

0063 

= 

87 

1 

617 

R ACT C ADR 

05,3055 

233 

1 

232 

RCDUOFLG 

0266 

101 

RFADV 

33,3512 

889 

1 

889 

R ACT  1 

E4 , 1 706 

132 

11 

133 

656 

RC  NOR  M 

0042 

= 

140 

3 

11  74 

REAOVBI T 

4747 

= 

100 

1 

889 

-----  PACT? 

E4-.1 714- 

132 

9 

133 

657 

-R.C-0 

E7 , 1626 

= 

167 

6 

167 

855  READVEL 

0257 

- 

100 

1 

889 

RACT3 

E7 ,1533 

156 

20 

647 

735 

RC  S 

17,2060 

1436 

4 

1443 

1444  PECALTST 

40, 3545 

471 

2 

440 

461 

RADAR ANG 

26,3324 

5 96 

2 

591 

592 

RCSFLAGS 

1273 

121 

55 

226 

1478  RECAL1 

40,3550 

471 

1 

471 

- RADAR  FAD 

25,3150 

-566- 

2- 

169 

R-CSMCmL- 

06,3156 

. -2  06 

1 

206 

RECAL2 

40j  356  1 

471 

2 

472 

RADARFF 

4000 

= 27 

1 

531 

RCSMONEX 

5270 

= 

205 

2 

206 

207  RECAL3 

40,3573 

471 

RADARUPT 

25,2000 

= 31 

3 

56 

622 

RCSMONIT 

06,3156 

= 

206 

2 

1 74 

RFC PATIO 

13,3741 

1243 

1 

1233 

R ADCAGR 

1 306 

_=  1 22 

4 

237 

—5-52 

RCSM-ONT 

06,2000 

= 

28 

1 

205 

RECTEST 

11, 3207 

1233 

3 

1233 

1234 

RADIN 

25,3331 

5 68 

1 

568 

RC  V 

E3, 1534 

= 

126 

27 

126 

1236  RECTIFY 

11,3345 

1236 

8 

1151 

1234 

PADLI TES 

25,3616 

6 22 

2 

56  7 

571 

RC  VC  S M 

E3 , 1606 

127 

1 

5 96 

RECTOUT 

13,3200 

1211 

2 

121  1 

1212 

- R-ADMODE-S- 

0.110 

= 101 

116 

1 69 

877 

-RCVLEM 

E 3 , 1660 

127 

2 

510 

596  RECYCLE 

34,3376 

734 

1 

735 

RADNOOP 

25,3530 

5 72 

2 

548 

572 

ROBADEND 

25 , 3562 

574 

4 

557 

574  RED-OVER 

31,3471 

818 

1 

817 

RADSAMP 

25,2003 

502 

2 

292 

502 

RDCDUS 

14,3253 

945 

1 

9 44 

REDES-OK 

31,3473 

818 

1 

817 

- R-ADSXALL 

07,3667 

_ 1373 

15- 

780 895 

RDE 

13, 3747 

1243 

1 

1230 

REDESIG 

31,2725 

803 

1 

802 

RANGCONV 

32,2013 

56 

1 

58  1 

ROES 

1316 

= 

1 22 

4 

1 22 

545  PEDESMON 

21,2032 

820 

1 

820 

RANGE 

E4.1604 

131 

10 

13  1 

712 

RDESGAIN 

25,3066 

563 

2 

561 

REDES  1 

31,2777 

809 

1 

809 

RANG  F BQ 

26,3474 

-5-87 

- 3_ 

587  . 

5-94 

RDES IPED 

E 5j l 755 

- 

140 

2 

140 

1194  R EOF  LAG 

0143 

= 

92 

5 

789 

818 

R ANGEDSP 

E 5 , 1 53 1 

= 138 

3 

138 

807 

RDG 

E5 ,1402 

= 

826 

2 

8 11 

812  REDFLBIT 

4746 

= 

92 

2 

808 

8 17 

RANGEVAR 

E3 , 1 770 

128 

1 

588 

RDGIMS 

32,3750 

894 

1 

692 

REDO 

37,2002 

386 

1 

30  5 

RAPFG 

-E  5,1-432-- 

-s 137 

1 

L37 

JfLDIFE 

E6, 1450 

- 

147 

RFDOCTR 

0320 

1 l 5 

3 

209 

230 

RAPO 

0020 

= 1268 

1 

1268 

RDLONOR 

40,2767 

434 

1 

4 33 

R EDOEXTP 

37,3371 

716 

1 

712 

RAPREC 

E7, 1475 

= 156 

2 

676 

679 

RDM 

13,3745 

1243 

RFDOMANC 

26,2126 

487 

1 

436 

RASE LAG 

0106 

= 98.. 

6 

12 1 4- 

1215 

-RDOT 

E4, 1712 

= 

136 

5 

136 

853  REDOMANN 

26,2103 

486 

RATEBIAS 

22,3133 

3 80 

i 

380 

RDOTBIAS 

25,2001 

56 

i 

569 

REDOMASK 

10,3357 

1366 

2 

1351 

P.ATEDAMP 

16,3177 

1429 

4 

1427 

RDOT  CON V 

32,2011 

56 

i 

581 

REDOPRIO 

10,2415 

1353 

1 

1366 
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SYMBOL 

DEF 

H 

REFERENC  ES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

1 

- 7 5 F 

FPFT  F 

85  t 81  41 

6-7  8 

1 

678 

R FA  n 5 

40t 1667 

484 

L 

_A8  a 

RED04.2 

36,2333 

744 

2 

255 

765 

REP  I P 1 

37,3543 

871 

1 

8 72 

RFAILS2 

41,3727 

482 

i 

481 

RED05.5 

37,3437 

8 59 

1 

257 

REPIP3 

37,3551 

871 

1 

872 

RGEX IT 

E7, 1663 

= 

157 

- -R  EOU-6  ♦ 7 ... 

-36-i3350 

7-63- 

L- 

25-8- 

RFPTP4  - 

37,3555 

871 

4 

872 

RGIMBITS 

5020 

= 

1423 

i 

1423 

REDSPTEM 

32,2027 

2 22 

2 

222 

REPOSBIT 

4741 

= 101 

1 

6 08 

RGIMTIMR 

E6 , 1632 

= 

149 

5 

1407 

1467 

REFLASH 

10,2335 

1351 

1 

752 

REPOSMON 

0270 

= 101 

RGOODEND 

25,3555 

574 

6 

543 

574 

- R-EFLA  SHR 

1 0 4-Z340 

1351 

2 

_ 76  2 8L8 

REPOSRPT 

25,2144 

-541 

1 

545 

RGU 

F 5 , 1543 

= 

138 

7 

215 

812 

REFMF 

15,3470 

9 74 

3 

796 

975 

REOADD 

41 , 2064 

420 

1 

420 

R GVGCALC 

31,3035 

810 

7 

802 

809 

REFSMBI T 

4737 

= 

86 

7 

221 

1326 

REQCOM 

41, 2310 

424 

2 

424 

RHC  ACT  I V 

17,2305 

1440 

1 

1440 

RFFSMFL-G 

0-053 

86- 

7 

6-8-9 

- 969 

_ REQDATX 

41 ,2303 

424 

3 

438 

439 

RHCMOVED 

16.3202 

1429 

1 

1427 

REFSMMAT 

E3, 1733 

127 

52 

209 

974 

REQDATY 

41,2305 

424 

3 

438 

440 

RHCSCALE 

4745 

= 

104 

1 

309 

REGCOARS 

15,2154 

928 

1 

92  9 

REODATZ 

41 ,2307 

424 

3 

420 

440 

RHCSCFLG 

0313 

= 

104 

REGODSP 

10*2343 

1 3 52 

2 

743 

752 

- RE-QE-XLQ-C- 

41 ,2207 

427 

RIGHT 

00.2736 

1049 

1 

1051 

REGODSPR 

10,2346 

1352 

i 

817 

REQEX  1 

41 ,3473 

461 

1 

461 

RIGHT- 

00,2332 

1051 

1 

1048 

REGSLEEP 

07,3345 

1314 

i 

1314 

REQMM 

41 , 3452 

460 

1 

460 

P IGHTR 

00,2031 

1042 

1 

1050 

RFGUF 

- 6232 

10-03 

3 

1003 

RFQRFT 

1013 

1 18 

- Li 

-237 

469 

R TGHT5 

4372 

473 

2 

441 

442 

REINTBIT 

4745 

= 

99 

2 

121  5 

REQUESTC 

41 ,3477 

461 

1 

461 

R I GNX 

E5, 1464 

= 

137 

2 

137 

791 

REINTFLG 

0236 

= 

99 

5 

719 

1385 

RERE ADAC 

37,3600 

871 

3 

257 

RIGNZ 

E5, 1466 

= 

137 

2 

137 

791 

R-EJ  A-L  H— 

-07,2467 

- 272- 

1 

RE-RRCALC 

17,2603 

1445 

R I N I T 

E 4 , 1 72  6 

134 

11 

662 

783 

REJECT 

07,2472 

2 72 

1 

272 

RERROR 

E6 ,1450 

= 145 

5 

147 

1446 

RLAST 

E 6 , 1454 

145 

5 

1420 

1441 

REJECT2 

07,2505 

2 72 

1 

272 

RER60 

26,2215 

488 

1 

488 

RLM 

E 4, 1610 

= 

134 

16 

499 

500 

SLFL-D-SP 

_ 445  7 

4 77 

10 

242 

837 

RESAMPLE 

25,3263 

367 

1 

571 

RLMSRCH 

E7. 1673 

- 

159 

5 

159 

602 

RELDSPON 

4374 

474 

3 

411 

477 

RESETRPT 

21,2046 

820 

1 

821 

RLMUNI T 

0014 

= 

603 

RELDSP1 

4502 

478 

2 

451 

463 

RESFTX2 

12,3131 

1187 

1 

1185 

RLS 

E4 , 142? 

129 

12 

215 

1207 

- - REL  DSP2  - 

4 4 73 

4 78 

2_ 

478 

RFSFT77 

04, 2245 

245 

2 

745 

RM 

F7j 1754 

161 

6 

161 

617 

REL INTO 

10,3104 

1361 

2 

1357 

1361 

RESIGN 

35,3165 

679 

1 

679 

R MAGI 

0014 

= 

1262 

4 

1265 

1274 

REL INUS 

26,2175 

488 

1 

255 

RESQ 

33,2037 

60 

1 

881 

RMAX 

F4, 1404 

129 

1 

597 

RELfiA^SV 

1 l-t  3 546 

12  3-9  - 

1 

1 2 38- 

REST 

1Q_*  3120 

13  62— 

1 

1359 

R ME 

1 lj-2307 

- 

36 

1 

1213 

RELRET 

0144 

= 

113 

4 

477 

478 

RESTART 

01 , 2000 

= 27 

4 

2 54 

1301 

R MM 

1 1,2305 

= 

36 

RELTAB 

4066 

170 

4 

172 

4 56 

RESTARTS 

01 , 3523 

1297 

i 

233 

R MOD I N I T 

05, 3353 

238 

1 

2 34 

R-E4-T  A B4-4- 

4-101 

1 70 

2- 

171 

1094 

RES  TO  RUB. 

20,2123 

1402- 

8 

303 

1404 

RMODINV 

25,2233 

543 

7 

543 

554 

REMARK 

07,2577 

2 75 

3 

272 

274 

RESTREG 

0366 

1 16 

4 

226 

1358 

RN 

1220 

121 

13 

210 

1217 

REMDIST 

42 , 2000 

62 

1 

499 

RFSTSLEP 

10 ,3124 

1362 

1 

1362 

RND/TST 

42,3537 

448 

3 

447 

448 

R-EMODBIJl- 

4-7-26-  - 

- 

- 1.01 

RE-SULTCT 

E5, L537 

= 142 

5 

388 

39? 

RNOCnN 

42,3276 

435 

2 

436 

REMODE 

25,2171 

542 

2 

557 

608 

RESUME 

5270 

11  24 

26 

175 

1407 

RNDREFDR 

07, 3150 

1 309 

5 

189 

1329 

REMODFLG 

0265 

= 

101 

RETJADR 

E6 , 1475 

145 

4 

1439 

1448 

RNDVZBIT 

4745 

= 

82 

11 

200 

602 

RENDE-NEL 

26_,3141 

5-93 

1 

590 

RFTNMORE 

20,2442 

1415 

6 

1410 

1414 

RNDVZFLG 

0010 

= 

82 

6 

302 

1379 

RENDEZ 

22,2000 

= 

31 

1 

1152 

RETNON 

06,2264 

179 

1 

1 80 

PNGEDATA 

0260 

= 

100 

RENDEZVU 

0002 

= 

2 50 

18 

250 

RETROOT 

0132 

= 1 14 

3 

823 

824 

RNGEDBIT 

4750 

= 

100 

2 

885 

893 

R.ENON.QO 

04,2257 

2A6-- 

JZ 

—24  5 

RETURNTJ 

17 , 3423 

1458 

7 

1457 

1461 

RNGSCBIT 

4742 

= 

90 

2 

582 

8 94 

RENDR AD 

25,3276 

5 68 

1 

567 

RE  VC  NT 

6241 

1003 

5 

307 

1094 

R NGSCFLG 

0120 

= 

90 

4 

569 

894 

RENDVOO 

04,2223 

245 

1 

245 

REVERS 

35,3170 

679 

1 

679 

RNRAO 

0046 

= 

108 

5 

566 

568 

-R-ENDW-BJLX- 

4753 

= 

91  _ 

1 

-305 

REVERSAL 

21 ,3  736 

1477 

1 

1477 

RN1 

E 7 , 1542 

= 

162 

9 

162 

1220 

RENDWFLG 

0 131 

= 

91 

13 

25  1 

12  39 
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2 
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4 

548 
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RENEWMK 
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1 

272 

RFAILCNT 
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= 
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3 
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1 ft  0 

7 

l 3D 

1227 

RRSONLY 
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3 

541 
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14,2006 

60 

1 

932 

RR-AZ 

E4 . 1604 

= 

134 

3 

134 

329 

RRSPGAIN 

25,2305 

545 

1 

545 
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1 

786 
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= 

134 

2 

315 

329 

RRTARGET 
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= 

119 

14 
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615 
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1 uu 

4 
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786 

RR ANGLES 

13 ,2133 
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1 
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5 

541 

608 

PONF 
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= 

131 

19 
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E4 , 1606 

= 

131 

6 

1 31 

713 

RRTRKF 

4570 

535 

3 
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623 
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04,2142 

2 44 

RR ATEDIF 
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= 

145 

1 

1441 

RRTRUN 

E7, 1731 

= 

161 

A 

161 

604 

RQOAB 

04  ,-23  62 

2 47 

1 
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RR AUTCHK 

06,3006 

197 

2 

1 74 

RRTURNON 

25,2062 
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i 

198 

ROOTCYCL 

21,3763 

1478 

3 

1476 
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E7 ,1736 

= 

161 

5 
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25,2343 
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i 
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2 
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199 

2 

197 
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i 
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= 
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3 

1174 
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4576 

535 

PRZEROSB 

25, 2071 
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2 

537 

548 

ROOTPS 

0 126 

= 

114 

5 

323 

824 

RR  DAT  A8T 

4750 

= 

102 

RR  Z 2 

25,2370 

548 

1 

548 

ROOTPS+1 
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114 

RRDATAFL 

0277 

= 
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25,2246 

544 

l 

544 

ROOTPSRS- 
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ft  23 

1 
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RPDESDUN 

25,3005 
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1 
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RRLAX2 

25,2254 
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1 

544 
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3 
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1 
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2 
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12  34 

1 
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1 
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E 4 , 1761 
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7 

291 

502 
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2 
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2 
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E 3 , 1432 
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2 
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ROTFMPl 
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= 
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3 

1451 

RRDESNBK 

43,2227 

284 

1 
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RSCALE 

32,2207 
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1 

224 

R0TEMP2 

E6.1736 

= 

146 

4 

1451 

RR  DE  S SM 

25,2373 

549 

2 

521 
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05,3061 

233 

1 

231 

ROT  I MDFX 

Fb f 1 742 

_ 

146 

10 

142-4 

1452 

RRECT 
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= 
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2 
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1 
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1208 

R STACK 
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= 
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12 

291 

502 

ROTSENSE 

E6, 1 736 

= 

148 

9 
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= 
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4 

312 
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RSTKLOC 

E4, 1760 

= 
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L 
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RRECT  LEM 
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3 
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1475 

1 
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R0T45DEG 
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1451 

4 
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RRECTOTH 
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= 
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I 
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1101 

= 

119 

3 

506 

ROUND 
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1 
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1 
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60 

i 
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- ROUND-SUB- 
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1027  - 

___  4 
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1050 

RRIMUDIF 
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283 

1 

283 
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14,2000 

60 

2 

932 
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1135 

8 

790 

1208 
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131  7 

= 

122 

3 

5 44 

545 

RSUBL 

E 7 , 1626 

= 

163 

4 
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507 

RP  AD 

23,2275 

704 

4 

705 

1277 
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06,2564 

1 88 

1 
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14,2002 

60 

1 

933 
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E 4 , L606- 

= 

131— 

6 
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729 

RR.LEA  DIM 

25.Z000 

- 

31 

1 

502 

RTARG 

E 7 , 1441 

154 

7 

209 

6 99 

RPAD1 

23,2275 

= 

12  77 

RRLIMCHK 

4523 

533 

4 

202 

553 

RTARG1 

E 7 , 1467 

= 

159 

11 

695 

699 

RPASS1 

E 7 , 1 475 

156 

4 

156 

652 

RRLIMNB 

25,2540 

554 

2 

554 

RTB 

01,2445 

1085 

1 
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RPASS2 
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1 56 

7 

1 56 

657 

RRLIMOK _ 

4560 

5 34 

2 

5 34 

555 
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01,2444 

108  5 

l 

1007 

RPASS3 

E 7 , 1 547 
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12 

643 

737 

RRLOSDSP 

40,2017 

314 

2 

314 

315 

RTBCODES 
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= 

28 

1 

1390 

R P AS  S 36 

E4.1612 

= 

134 

5 

134 

710 

RRLOSVEC 

1101 

= 

582 

RTERM 
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= 

1262 

3 

1271 
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1 

-8X5 
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23,-2041 
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4 

314 

601 

R THETA 

E 4 , 1610 

= 

131 

9 
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713 
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E7.1430 
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1 
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RRNBBIT 

4746 
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82 
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12 
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= 
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3 
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= 

82 

5 
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4 
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- 
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3 
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0 170 
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95 

6 
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547 

1 
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4 

164 
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95 
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1 
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= 

140 

8 
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=_ 

1 30 
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RRRANGE 
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3 
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= 
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3 
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= 
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3 
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A 
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= 
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3 

1258 
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1 
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= 

140 

l 

1194 
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- 
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5_ 
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= 
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= 
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5 
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1 
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= 
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1 
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24,3513 
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1 
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E7 ,1733 
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4 
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24,3542 
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1 
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5 
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1 

292 
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24,2620 
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2 

597 
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702 

1 

702 
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43,2552 

293 

3 

2 93 
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24,2677 

5 19 

1 
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1 33 

4 
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702 

RQ4RR 

43 ,2536- 

293- 

2 

293 

R22WAIT 

24.2664 

5 19 

4 
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E4.1757 

135 

3 

292 

502 

R04X 

43,2473 

292 

1 

294 

R23LEM 

24, 3027 

523 

i 

509 

RTSTDEX 

E4 , 1 755 

135 

7 
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503 

R04Y 

43,2566 

293 

2 

2 93 

R23LEM1 

24,3035 

523 

i 

524 
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1 35 
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291 

1 
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R 231  FMU 

24. 3046 

523 

i 

523 

RTSTMAX 

E4.1756 

135 

2 

292 

502 

R 1 

0040 

= 

1197 
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645 

1196 

R 23  LE  M2 

24,3070 

524 

2 

523 

RTX1 

E6, 1775 

152 

12 
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1220 
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E5 , 1741 

= 

140 

14 
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1 196 

R23LEM3 

24, 3073 
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2 
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RTX-2 

E6* l 776 

1 52 

17_ 
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R1D-L  _ 

4317 

473 

13 

416 

1068 

R24END 
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526 

1 

525 

RUFLAWl 

17,3565 

1462 

1 

1455 

R 1 S 

E7 ,1570 

= 
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14 
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890 

R24LEM 

24,3100 

525 

1 
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RUFLAW12 

17,3573 

1462 

2 

1462 

1463 

R1 SAVE 

1074 

119 

4 

237 

1363 

R24LEMI 

24,3104 

525 

_ RUE-LA-W2  _ 

1 7,3621 

_ 1462- 

1 

1455 

R1VFC 

£5 ,1654 

= 

140 

6 

140 

1189 

R24LEM2 

2 4,_3  110 

525 

2 

576 

RUFLAW3 

17,3627 

1463 

1 
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21,2000 

= 

30 

3 

57 
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R24LEM3 

24,3127 

526 

1 

525 

RUFSETUP 

17,3647 

1463 

4 
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21,2102 
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3 

2 55 
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R 29 

33,2045 

60  7 

2 
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E7, 1 741 
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7 

16  6- 

- 8-91 

JLLOj-RT  1A 

21.2115 

829 

l 
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R 29 . LOS 

33,2123 

608 

1 
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RUPTAGN 

0 7 34 

1 16 

6 

116 

1124 

R10FLAG 

0015 

= 

82 

1 

8 39 

R29/SERV 

33,2000 

= 

33 

l 

606 

RUPTREG1 

0070 

l 11 

58 

170 

1402 

R10FLBIT 

4752 

= 

82 

4 

831 

906 

R 29  ? 

33, 2602 

877 

RURT  REG-2 

- 0071 

1 1 1 

25 

177 

1474 

-R1L- 

21,2000 

= 

30 

2 

829 

837 

R29DLOOP 

24, 3257 

610 

1 

610 

RUPTREG3 

0072 

111 

17 

385 

1474 

R12LITES 

25,3607 

622 

1 

8 76 

R29D0DES 

32,2545 

611 

1 

610 

RUPTP  EG4 

0073 

111 

7 

111 

1332 

R12STUFF 

34,2000 

= 

33 

1 

893 

R29DPAS1 

32,2561 

611 

1 

611 

RUPTSJTTR 

0X16x3  - 

= l-U 

-R-2-  

E5 , 1717 

- 

140 

3 

1130 

R29D°AS2 

32,2676 

614 

1 

612 

RUPT 10BB 

4065 

169 

L 

169 

R2D1 

4320 

473 

7 

416 

1094 

R 29DVBEG 

32,2550 

611 

2 

61  1 

RUTH 

16,3077 

1427 

1 

1427 

R2VEC 

E5.1662 

= 

1 40 

10 

140 

1189 

R29DVEND 

32,2575 

611 

1 

611 

RUTMX  TAB 

42*31 30 

332 

1 
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R?  1-5-03 

24 ,2777 

5 2 1 

1 

521 

R79FXI  OC 

32.2770 

615 

1 

612 

RUTMXTEM 

0153 

114 

2 

3 19 

441 

R 2 1 END 

24,3006 

521 

1 

521 

R 29L0K0N 

32,2746 
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1 

615 

RVARMIN 

E 3 , 1 774 
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1 

587 

R21LEM 

24,2721 

520 

1 

510 

R29N0DES 

33,2617 

877 

2 

877 

RVBCITH 

33,3064 

8.83  _ 

l_ 

8 62 

R? 1 1 FM1 

24,2-754 

_5_21 

R29RANGE 

24,3340 

617 

l 

617 

RVCON 

13,3241 

1212 

1 

1211 

R21LEM2 

24,2752 

521 

1 

563 

R29RD JOB 

24,3310 

616 

1 

616 

RVEC 

F 5 , 1 654 

= 140 

10 

506 

1195 

R2  1LEM3 

24,2763 

521 

R29REA0 

24, 3275 

616 

2 

615 

— EUIQ- 

00,3  274- 

10  72  - 

1 

LOO  8 

R21LEM4 

-24,3016 

521 

1 

521 

R29REM0J 

33,2113 

608 

1 

6D7 

RVSW 

0 157 

= 93 

7 

506 

1182 

R21LFM5 

24,2731 

520 

1 

520 

R29RRR? 

24, 3363 

617 

1 

617 

RVSWBI T 

4743 

= 94 

R21LEM6 

24,2735 

520 

1 

520 

R29S1 

25,2000 

= 

3 1 

1 

608 

RWAJTK 

41,2145 

■ 2 80 

R21.SR-CH 

24,3011 

521 

1 

521 

R 3D  1 

4321 

473 

5 

416 

RXZ 

E 7 , 1 7 17 

= 160 

10 

160 

597 

R22DI SP 

0314 

= 

1 1 5 

6 

3 29 

597 

R30LOC 

27,2000 

= 

31 

2 

59 

R02 

04 ,2000 

= 27 

1 

1326 

R22LEM 

24,2477 

516 

3 

511 

519 

R 300K 

27, 3740 

1277 

R 02  ROTH 

04,3175 

13-26 

11- 

352 

9 26- 

R22LEM1 

24,2547 

517 

1 

517 

R 3 1 

37,2000 

= 

35 

1 

712 

R02ZER0 

04,3211 

1326 

1 

1326 

R22LEM12 

24,2511 

516 

R31CALL 

37,3113 

712 

1 

298 

R04 

43,2424 

291 

1 

277 

R22LEM2 

24,2557 

517 

2 

517 

R 3 l SURF 

37,3365 

715 

1 

714 

R04A 

43-,  2-456, 

2-91 

1 

- 292_ 

J22-2LEM3 

24,2577 

5 1 7 

? 

517 

R 33 

42, 2002 

290 

1 

290 

R04B 

43,2500 

292 

1 

292 

R22LEM42 

24,2655 

518 

3 

517 
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04,2613 

710 

2 
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R04C 

43,2515 

2 92 

2 

292 

294 
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24,2650 

518 

1 

5 18 
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1 
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-294 

6 
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-R22LEM45 
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5 18 

2 
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- 

27 

1 
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= 87 

5 

87 
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24,2666 

519 

2 
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04,2722 

711 

1 

711 

R04FL  8 I T 

4743 
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4 
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51  8 

1 
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= 

33 

1 
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31 

1 
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1 
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R62DI SP 
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497 

1 
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SBIT1 

4753 
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1279 

R51.2 

14,2714 
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23,2065 

497 

2 

497 
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4742 

= 
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R51.3 

1 4t  2-715 

-9  38 

1 

940 

R65CNTR. 

E7, 1743 

= 
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5 

515 

587 

SRITll 

4741 

= 

1279 

2 

1285 

1286 

R51.4 

14,3006 

9 39 

1 
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R65LEM 

23,2105 

528 

3 

515 

587 

SBIT12 

4740 

= 

1279 

1 

1285 

R51C 

14,7661 

938 

2 

938 
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R77 

43,2414 

291 

1 
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4737 

= 

1279 

R516 

14,7712- 
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3 

93  8 

R7  7CHE.CK. 

25,3364 
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1 

567 

S8 1 T 1 4 

4736 

= 

1279 

R51F 

14,2701 

938 

R77END 
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1 
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= 

1279 

1 
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14,2702 
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l 
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= 
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2 94 

SBIT2 

4752 
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= 
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1 
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1279 
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2 
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- 

1279 

9 
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4746 
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1279 

R 52  B 

14,3626 

9 53 

i 
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S+l 

4753 

= 

1279 

9 

305 

1287 
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4745 

= 

1279 

1 

1286 
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= 

942 

2 

939 
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S+2 

4752 
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1279 
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1279 
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1 

939 
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= 
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4743 

= 

1279 

1 

1283 
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942 
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4751 

= 

1279 
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5020 

= 

1280 

1 

1285 
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942 

l 
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S+5 

4756 

= 

1279 
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4751 

= 

101 

3 

570 
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R55CDR  — 
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942 
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-S+6 
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= 

1279 
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25.3402 
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l 

569 

R55RET 
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1 
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4757 

= 

1280 

i 

1281 

SCALBAQ 
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= 
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R 56 

14,2452 

= 
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1 
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4754 

= 

1280 

i 

12  84 

SCALCHNG 

25,3350 

569 

1 

568 

R59 

— 15  ,-2301 
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4 

555 
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S-l 

7746 

= 

1280 

2 

1285 

1287 

SCALDONE 

21,3633 

1476 

1 

1475 

R 59  A 

15,2313 

9 55 

1 

955 

S-2 

7745 

= 

1280 

SCALECHK 

25,3321 

568 

1 

568 

R59ALM 

15,2466 

9 57 

1 

957 

S-3 

7744 

1280 

SCALEDOT 

17,3255 

1456 

1 

1456 

R5aD 

1 5,_2432 

-957- 

J— 
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S-4 

6111 

- 

1280 

SCALEE 

17,3243 

1455 

1 

1455 

R59E 

1 5 , 2 5 04 

9 58 

1 

957 

S— 7 

5660 

1280 

1 

1281 

SCALEFAC 

3 1,2005 

56 

1 

800 

R590UT 

15,2523 

958 

4 

955 

957 

SAMETYP 

15,3572 

976 

1 

976 

SCALEVEC 

32,214? 

223 

2 

222 

R5-9-REJ 

15,3-123- 

9-6-7- 

1_ 

25  8_ 

SA-MPLIM 

1100 

119 

9 

237 

57? 

SCALLOOP 

2 1. 3616 

1475 

2 

1475 

R60INIT 

32,3171 

792 

SAMPLSUM 

1101 

119 

9 

1 19 

893 

SCALPREP 

37,3700 

1330 

2 

1329 

1330 

R60LEM 

26,2  101 

486 

6 

353 

9 54 

SAMPTIME 

0013 

= 

108 

5 

222 
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SCALSAVE 
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115 

3 

1329 
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- 
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3 

138 

7 9 2 

SAVE 

E5 , 1464 

= 

142 

scalshft 
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= 

160 

4 
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597 
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= 

31 

i 
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SAVECDUT 
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= 
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1 1 

6 12 
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SCA1STRT 

2 1, 3610 

1475 

1 

1475 

R61BANK 

23,2274 

531 

i 

530 

SAVEDEN 

27,3507 

1272 

1 

1272 

SC A X I S 

67, 1760 

= 

161 

25 
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23,2111 
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2 
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1072 

- 

1366 

SCHZEROS 

37, 3056 

40  1 

4 

393 

396 

R61C+L03 

23,2115 

528 
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E6 , 1460 

145 

7 

1428 

1440 

SCLNORM 

17,3044 

1449 

R61C+L04 

23,2255 

5 30 

2 

529 

SAVELOCR 
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1356 

1 
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34,2776 
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7 
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5 30 

3 

529 
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SAVELOCS 

10,2575 

1356 

2 
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= 
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4 
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3 
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SAVESHFT 

21,3651 

1476 
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4 
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23,2262 
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2 
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SAVESR 

E6 ,1476 

= 

147 

2 

1467 

1478 

SCRATCH 

E 6 , 1742 

= 

147 

2 

1478 
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5 30 

L 
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= 
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8 
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SCRATCHX 
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= 
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5 
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2 
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E7 , 1735 

= 
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4 
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SCRATCHY 
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= 

1489 

3 
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= 

83 

2 
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= 
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2 
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4 

1485 
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= 
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L 
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= 
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5 
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1 
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4 
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35 

4 

61 

498 

SD 
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370 
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1 
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2 
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SOISPLAY 
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1 
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H 
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SF  T GAMMA 

1 3 t 2550 

1 1 3-3 

? 

1128 

1 13-0- 

SETX-FLAG 

77,  3167 

_ 

85  7 

SECMAX 

E7, 1571 

= 

156 

5 

676 
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SETGLOCK 

06,2465 

1 85 

4 

184 

185 

S ET  XT  AC  T 

43,2105 

278 

1 

279 

SEC0N1 

42,3263 

4 34 

1 

436 

SFTGMEX 

13,2556 

1133 

i 

11  33 

SETX2 

26,2502 

587 

1 

587 

S FT  PN  ? 

4 ? r 1 ?fyS_ 

454 

L 

434 

SETIFLGlS 

13,2644 

12C5 

p 

251 

1217 

SEUonpnn 

04. 2177 

244 

1 

246 

S EC  01 

4777 

= 

770 

SET1NFL 

05,2732 

231 

SEVEN 

4757 

1090 

24 

170 

1488 

S EC  1 5 

36,3733 

770 

SET  ISSW 

06,2703 

194 

7 

180 

1312 

SFA  1L 

1357 

= 

124 

4 

124 

1281 

GFf  15DP 

3 6 t 3J3Z 

7 70 

-SFTLOC 

01,2656 

1102 

3 

1102 

1106 

SFCOM 

42,2145 

320 

i 

320 

SEC30DP 

36,3734 

770 

SETMARK 

10,2401 

1352 

SFC0NST1 

E 5 , 1 467 

= 

142 

SEC45 

36,3737 

7 70 

SETMAXDB 

20,2127 

1402 

2 

795 

1402 

SFCONUM 

41,3047 

441 

2 

429 

443 

SEC45DP 

36  v 3 756 

7 70 

SETMGA  - 

10,2016 

701 

1 

701 

SF  INTAB 

42,2464 

326 

1 

320 

SELCTSUB 

17,3130 

1451 

3 

1437 

1448 

SETMINDB 

20,2140 

1402 

6 

523 

1402 

SF  INTABR 

41,3212 

444 

1 

443 

SELECTMU 

10,2041 

702 

6 

632 

737 

SETMOON 

13,2716 

1206 

3 

1206 

1235 

SFMIXCAL 

40,3060 

44  5 

1 

445 

SEL-LCTP 

L6-»3-5  14 

1434 

_2 

1431 

1434 

SFTMUER 

10 ,2052 

702 

1 

702 

SFNORCAL 

40,3063 

445 

1 

445 

SELECTYZ 

16,3534 

14  34 

i 

1424 

SETNADD 

431  1 

473 

2 

420 

44  2 

SFOUTAB 

47,2554 

327 

1 

320 

SELFADRS 

43,3253 

1280 

2 
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3 06 

SETNCADR 
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473 

7 

4 20 
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SFOUTABR 
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1 
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L 

-111  I 
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2L,  350  3 

1473 

1 
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SFRET 

41.3064 

441 

SELFCHEC 
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= 

35 

i 

1279 

SETNORM 

10,2407 

1353 

1 

1351 

SERE  T 1 

41, 3046 

441 

SELFCHK 

43,3344 

1281 

5 

237 

1281 

SETOVF 

7002 

1022 

1 

1025 

SFRUTMI X 

41,3034 

441 

5 

423 

445 

_ SEL  F£ R AS- 

1357  - 

L24 

L 

124 

SET0VE2 

7151 

1027 

L 

1023 

SFRUTNOR 

41 ,3026 

44  1 

5 

429 

445 

SELFRET 

1361 

= 

124 

7 

124 

1281 

SETPD 

7612 

1039 

1 

1006 

SFTEMPl 
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= 
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20 

319 

446 

SELFSUPR 

40,2000 
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SETPOS 
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1 
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2 

446 
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2 
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1 
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10, 3516 
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6 
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1213 

SENDPULS 
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1308 

i 

130  7 

SETPDS2 

33,3721 

8 96 

1 

895 

SGNCHECK 

12,7575 

1178 

2 

1178 

1179 

SENSEGET 

17,2065 

1436 

SFTPR 10 

10,2363 

1352 

SGNCOM 

40,2422 

415 

1 

416 

_ _ SEN-SEX  YP 

E6 ,1477 

146- 

3- 

143  3 

1456 

SETPRPOS 

33,2104 

607 

I 

607 

SGNOVOVF 

00,2402 

1052 

1 

1057 

SENSOR 

17,3661 

1463 

2 

1455 

SETRAD 

23,2325 

705 

1 

704 

SGNOFF 

0123 

= 

112 

3 

415 

416 

SENSTEST 

17,3301 

14  56 

1 

1456 

SETRADX 

23,2340 

705 

1 

705 

SGNON 

0122 

= 
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3 

415 

416 
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-A3  7 

_2 

434 
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SET  RE  - 

13,2560 
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2 

1128 
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= 

140 

2 
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SEPMNRET 

0 144 

= 

113 

2 

437 

SETREX 

0051 

= 1134 

2 

1134 

SGNTAB 

40,2443 

416 

2 

415 

416 

SEPSCRET 

0 144 

= 

1 13 

2 

436 

437 

SFTROUND 

00,2272 

1049 

3 

1049 

SGN TO  1 

40,3070 

445 

l 

444 

SEP-SE-C  - 

42 ,3400 

436 

1 

435 

SE  TRRCTP 

25,2317 

546 

1 

547 

SGNTST1 

40,2462 

416 

3 

416 

SEPSECNR 

42,3413 

436 

3 

434 

436 

SETRRECR 

25,2156 

541 

3 

5 40 

607 

SHAFTBQ 

26,2760 

591 

SEPSFC1 

42,3406 

4 36 

1 

436 

SETRXX 

13,2573 

1134 

3 

11  34 

SHAFTLIM 

25,2564 

555 

1 

555 

SERA1CATLR — 16.2  1 0 3 

- 

-7-56 

1 

762- 

SETSEN-SE 

17,3733 

1455 

1 

1455 

SHAFTVAR 

E 4,  1410 

129 

1 

592 

SERVEX I T 

37,3525 

867 

8 

739 
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SETTIME 

17,2523 

1443 

1 

1443 

SHFTFLAG 

E6, 1737 

= 

147 

3 

147  5 

1476 

SERVICER 

33,2200 
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2 
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859 

SE  TT  I ME  4 

06,2074 
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1 

1 75 

SHI FTR 1 

23,2407 

708 

11 

627 

735 
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- 

33 

3 
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8 94 

-SETTIME5 

16 ,2147 

1407 

1 

1408 
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33, 3062 
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3 

883 

8 84 

SERVIDLE 

32,3711 

866 

i 

1377 

SETTRKF 

4564 

535 

2 

2 00 

539 

SHOLTS 

41,3661 

48  1 

1 

480 

SERVOUT 

33,2403 

864 

3 

863 

864 

SETUPDSP 

10,2071 

1288 

1 

1288 

SHORTMP 

7306 

1031 

10 

413 

1331 

SE-R-V.1 

-37  ,2000- 

- 

35 

3 

35-8- 

870 

SETU°ER1 

37 ,3005 

4_Dl 

1 
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103  1 

I 
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32,2000 

= 

33 

2 

864 

8 94 

SETUP79D 

33,2157 
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1 

609 

SHORTT 

00,2017 
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2 

1005 

SETAUG 

40,2645 

431 

1 

431 
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1 
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SHORTV 

00,2121 

1045 

1 

1005 

-S  EI-B  ANK 

13,3036 
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- 4 
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1207 

SE  TUP  7 1 

04,2367 

2 A 8 

1 

2 4? 

SHOW 

37,2457 

393 

3 
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390 

SETCOARS 

07,3117 
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2 
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SETVAC 

41,3510 

461 

1 

460 

SHOWSUM 
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1 

305 

SETEBANK 
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2 
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SETWO 
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3 
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SHOW  1 

37,2461 
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1 
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H 
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H 
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1 
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SK  IPU 

E6 ,153  5 

1-4  8 

9 

148 
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4%  ^^4 

1281 

SIDLOOP 
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12  80 

i 

128  1 

SKIPV 

E6 , 1536 

= 

148 

3 

1407 

1467 

S0PTT0N6 

43,3335 

1281 

SIGN 

7 65A 

10A1 

l 

1006 

SLAP  1 

05,2447 

226 

1 

422 

SOPT  I0N7 

43, 3336 

1281 

SJ  ^nadr 

0163 

_ 

1498 

T 1 

149JL 

14^97 

SLEEP  IF 

37,3034 

401 

2 

396 

400 

SOPTONIO 

43.3337 

128  1 

S IGNF  IX 

AO, 3031 

AAA 

2 

AAA 

SLEFT5 

A3  AO 

474 

1 

4 57 

SOUPLY 

37,3071 

402 

SIGNLCHK 

25,2767 

562 

2 

562 

SLOAD 

6500 

1014 

1 

1006 

SOUTHDR 

E 5 , 1421 

= 

142 

3 

142 

389 

<;  T (I  N M PAT 

1 0 7 3 6 &4- 

1396 

14 

36  6 

1274 

SUDAQ2- 

6054 

9-97 

5 

1014 

1396 

S PARCS  IN 

3 0*  3644 

922 

3 

811 

921 

SIGNRET 

0125 

= 

112 

SLOPEBIT 

4751 

= 

84 

SPARE 

0007 

= 

208 

11 

209 

219 

SIGNTEST 

AC ,2 AA6 

A 16 

2 

A 1 5 

SLOPEHI 

00 , 2314 

1050 

1 

1075 

SPCOS 

5032 

1097 

5 

203 

1256 

S I M2-CADR 

05  T 24^4 

226 

S10PEL0 

00,3007 

1064 

1 

1076 

SPECSTS 

37,2572 

397 

SINB 

E 5 , 1 6 A6 

= 

138 

SLOPE  SW 

0033 

= 

84 

2 

1178 

1189 

SPEC  TEST 

0 1,2646 

1102 

1 

1106 

S I NBL ANK 

AO, 2572 

A18 

1 

A 1 8 

SMALL 

00,3133 

1068 

1 

1065 

SPEEDRUN 

2 1,2560 

900 

1 

899 

SINCDU 

0 736 

- 

116 

6 

116- 

32  59 

S.MALLEPS 

27 ,241 l 

773 

1 

773 

SPIRAL 

1046 

= 

958 

4 

276 

957 

SINCDUX 

07A2 

= 

116 

6 

A91 

945 

SMALLTJU 

16,3672 

1465 

1 

1465 

SPLRET 

22,3541 

= 

726 

1 

36 

SINCDUY 

0736 

= 

1 16 

7 

A 9 1 

1261 

SMALL  2 

00 ,3062 

1065 

1 

1068 

SPNDX 

1272 

121 

8 
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379 

S I.NCD.LLZ-- 

.0  740... 

- 

116 

8 

A9  L- 

1261 

SMALPDIF 

16,2476 

1420 

2 

1420 

SPSCODE 

4743 

= 

1303 

SINE 

00,3530 

1077 

2 

1008 

1255 

SMALRATE 

17,3611 

1462 

1 

146? 

SPSCONT 

20, 2632 

1483 

1 

1488 

SINESLOC 

23,3666 

1259 

1 

1259 

SMCDURFS 

23,3673 

1261 

SPSIN 

5033 

1097 

5 

203 

1256 

SUNG  I ML  C 

26,2353 

A 96 

1 

A9  A 

SMQDE  . 

1362 

= 

124 

7 

124 

1281 

SPSLOOP 1 

20,303 1 

148  7 

1 

1488 

S IN  I 

2A ,2002 

68 

2 

1139 

SMODECHK 

43,3307 

1281 

3 

1281 

1284 

SPSL00P2 

20,3046 

1487 

1 

1488 

SINNODI 
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= 

11  A3 

1 

1139 

SMPAC+ 

00 , 3A0  5 

1075 

3 

10  74 

SPSRCS 

17,3700 

150  1 

2 

1433 

1446 

- -SI  FTTH 

0-022 — 

- 

139 

—21 

3.1.4.. 

12  49 

SNAP AGN _ 

05,3555 

- 988- 

SPSSTART 

17*3737 

1502 

l 

1501 

SINTHETA 

E7 ,1727 

= 

160 

3 

161 

596 

SNAPEND 

05,3574 

989 

SPT 

5036 

1097 

1 

1097 

SINVECI 

26,2355 

A 96 

1 

A9A 

SNAPLOOP 

05,3544 

988 

1 

988 

SPVAC 

5116 

1098 

3 

247 

1355 

S-IWV-&C-2 — 

26,2357 

496 

-1 

49  5 

SMGLCD 

22,23  76 

370 

SPVACIN 

5112 

1098 

1 

1098 

SINZERO 

30,3636 

921 

1 

921 

SNTH 

E5 , 1727 

= 

140 

15 

140 

1195 

SO 

1077 

119 

2 

1097 

S IN5DEG 

30,3051 

856 

1 

853 

SNUFFBIT 

4737 

= 

90 

1 

1447 

SORT 

00, 3207 

1071 

1 

1008 

S-I-N6THT&G- 

2 6,3  6A6 

- -603 

2- 

-60-0- 

SNUFFER 

_ 0115 

— 

90— 

2 

313 

SOPTABRT 

00, 3402 

1074 

2 

1074 

SIX 

6 2 A 1 

= 

109A 

39 

184 

1501 

SNUFFOUT 

43 ,3227 

3 13 

1 

2 77 

SQRTNEG 

00,3373 

1074 

1 

1074 

SIXTY 

A3 ,32AA 

1280 

1 

1286 

SN1 

00 , 3553 

1078 

1 

1077 

SQRTNM2 

00,3475 

1076 

1 

1076 

SIZFT AB 

01,2002 

254 

2 

130  0 

1302 

SN359+ 

35,2357 

641 

1 

644 

SQRTNORM 

00.3502 

1076 

1 

1076 

SIZETST 

A2 , 3 5 55 

AA8 

2 

4A7 

448 

SOB 

0042 

= 

1143 

4 

1138 

1139 

SORTSHFT 

00,3221 

1071 

1 

1071 

SKEEP1 

1371 

= 

12A 

20 

124 

1287 

SOLNSBIT 

4751 

= 

91 

SQRTSUB 

00,3343 

1074 

3 

1065 

1079 

SKEEP2 

I 372 

= 

12A 

10 

124 

1285 

SOL  N S W 

0127 

= 

91 

4 

1189 

1195 

SR 

0021 

= 

108 

32 

4 l S 

1478 

S KEF  P 3 

1373 

= 

12A 

1A 

124 

1286 

SOME  AO  S 

20, 3334 

1493 

SRCHOBIT 

4736 

= 

84 

1 

599 

SKEEP4 

1 37A 

= 

12A 

1A 

12A 

1287 

SOMEERRR 

37,3040 

401 

SRCHOPTN 

0037 

= 

84 

3 

507 

525 

SKEEP5 

L3-7-5- 

= 

12A 

—10 

124 

12  86 

S.OMEKEY 

07,2404 

270 

1 

2 69 

SRDDV 

00,2024 

1042 

1 

1065 

SKEEP6 

1376 

= 

12A 

6 

124 

1287 

SOME  R R 2 

37, 3047 

401 

1 

391 

SRTEST 

00,3456 

1076 

1 

1075 

SKEEP7 

1377 

= 

12A 

22 

230 

1286 

SO  PT 

43,3713 

1287 

1 

1287 

SR  30 . 1 

22,3551 

728 

2 

723 

725 

SKUPADO 

-LQ,  2-623_ 

1357 

1 135  7 

SOPTION 

43,3676 

1286 

2 

12  85 

SSP 

6617 

1016 

1 

1006 

SKIPDB1 

20,3265 

1A92 

1 

1491 

SOPTIONS 

43,3320 

1281 

2 

1281 

STABL? 

31,2570 

805 

1 

804 

SKIPDB2 

20,3  3 A6 

1 A93 

3 

1492 

14  93 

S0PTI0N1 

43,3330 

1281 

1 

1281 

S T ACC DOT 

20,2700 

1484 

2 

1483 

1484 

SK-LPP-AX-S- 

16,27-13 

1 A2A 

2_ 

1A23 

1435 

S0PTI0N2 

43,3331 

1281 

STADR 

6353 

1009 

1 

1008 

SKI  PS  IM 

05.2A56 

226 

1 

226 

SOPTION3 

43,3332 

1281 

STALL 

07,3672 

1324 

2 

1323 

SKI PTPER 

22,3626 

7 29 

1 

729 

SOPTIONA 

43,3333 

1281 

STALTEM 

0154 

= 

1216 

3 

1215 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 

UN  UMDEFINFP = DEFINED  SLY  -EQUALS .1  DFFINFD  BY  .IITKFR  OR  FRASF  ANYWHFRF MD  MULTIPLY  DEFINED 

BD  BADLY  DEFINED  CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


gap  : ASSEMBLF  REVISION  0 69  GF  AGC-  PROGRAM  LUMINARY  BY  NASA  20  21112-01-1- 


19:0?  NOV  .-2-5-,L9-68- 


RAGE.  J.  543 


SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF,  # OF  RFFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF. 


SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

RFFEPENCFS 

SYMBOL 

DEF  H 

REFERENCES 

_ Q 

1 3 8- 

964  ST  FFR  SW 

0042 

_ 

8-5 

2 

77 ft  77  9 SUMTFRM-S  71  . 3707  _ 

1477 

1477 

STARAD 

F5i 1706 

= 138 

45 

138 

1251  STERN 

31 ,2530 

804 

SUPDACAL 

46  51 

994 

2 

453 

1285 

STAR ALGN 

0736 

116 

2 

116 

STIKLDAD 

01,2203 

308 

i 

308 

SU°DXCHZ 

5165 

1111 

6 

298 

1111 

<;  I ARCflDF 

-0735 

116 

4 

1 1 6 

953  STTKSFNS 

E6  ,-L442 

143 

R 

227 

1441 

S'JPFRADR 

16.2653 

1423 

1 

142  3 

START  ND 

E5, 1757 

= 139 

16 

139 

967  STIKSTRT 

05,3053 

233 

i 

227 

SU°ERBNK 

0007  = 

109 

27 

2 30 

1375 

STAR  M 

0040 

= 139 

ST ILBADH 

E7, 1672 

= 

166 

4 

1 66 

895 

SUPERJOB 

16,2654 

1423 

2 

1423 

STARS AV 1 

_E5*  1X6jQ- 

= 1 19 

L2 

13  9 

9-77  ST1LBAD.V 

E7.1673 

= 

166 

4 

166 

895 

S UD  ER  SW 

4727 

996 

2 

1358 

13  64 

STARS  AV  2 

E 5 , 1 766 

= 139 

9 

139 

976  STILLRCS 

17,2616 

1446 

3 

1440 

1446 

SUPFR011 

4773 

1091 

3 

858 

1305 

STAPTAB 

14,2000 

= 30 

1 

63 

ST  MI N— 

20,3417 

1494 

2 

1497 

SUPER  100 

4745  = 

109  1 

. START-DAP 

1 6 y 2046 

1-406— 

. ST.MR  - 

002XL. 

- 

982 

7 

981 

SUPER  101 

4775 

1091 

1 

1094 

STARTDE  S 

25,2432 

551 

2 

550 

554  STOPCLOK 

36,3023 

753 

3 

752 

753 

SUP  F R 1 1 0 

4776 

1091 

3 

609 

1094 

ST  ART  EB 

5007 

= 2 38 

1 

235 

STOPRATE 

20,2165 

14  03 

9 

303 

1404 

SUPRCON 

43,3245 

1280 

1 

1286 

-STARTER 

? 1 + 3 7-61 

1478 

1 

1476 

- STOP-22.  3 

27,2217 

604 

Si)R  FAGAN 

07L?645 

276 

1 

276 

STARTMNV 

26,2150 

4 87 

STORBNDS 

12,2137 

1171 

i 

1173 

SURFDISP 

15,3236 

969 

2 

968 

970 

STARTPIP 

37,2161 

3 88 

1 

388 

STORDELT 

35,3177 

679 

2 

678 

679 

SURFEND 

07,2641 

276 

l 

276 

START P4 7 

-3-6+3  4A7 

- 7 65 

L 

76  8 

STORE 

64?  1 

1 CXI  1 

6 

1010 

S UR  FFR  I T 

4744  = 

95 

6 

2 ? 9 

861 

STARTP64 

31,2627 

8 06 

2 

802 

806  STORE, 1 

6413 

1011 

i 

1010 

SURFFLAG 

0177  = 

95 

15 

251 

1 207 

STAR  T P66 

31,2537 

8 04 

i 

805 

STORE ,2 

6416 

1011 

i 

1010 

SURF JOB 

07, 2604 

275 

1 

273 

^ START  P6  7 

31-+2-S6A 

- -8  04_ 

i 

.8  04 

STORE  MAX 

12,2055 

1170 

3 

11  69 

1170 

SURFLINF 

1 5,3156 

968 

2 

967 

976 

STARTSBl 

05,3115 

2 34 

i 

231 

ST  ORE  M I N 

12,2151 

1171 

1 

1171 

SURFREJ 

07, 2507 

272 

l 

272 

STARTSB2 

05,3137 

2 34 

i 

231 

STORE  TGO 

27,2722 

78? 

2 

782 

SURFSTAR 

15,2000 

265 

1 

268 

START  SIM- 

05+24  52 

226 

_ STORE  1 

— 6.62.2 

1016 

1 

1047 

SURFSTOR 

07,2521 

273 

1 

270 

STARTSTO 

6433 

1012 

STORF IS 

26,3631 

602 

1 

602 

SURFSUP 

15,3226 

968 

1 

968 

STARTSUB 

05,3100 

2 34 

3 

226 

233  STORHAPO 

22,3600 

728 

SVCT3 

5240 

1 116 

2 

1116 

STARTSW 

05+2451 

226- 

. STORHPEP 

22,3612 

729 

SVCT3X 

5256 

1116 

3 

1116 

STATE 

0074 

i n 

45 

81 

1088  STORJUMP 

6371 

10  10 

1 

1009 

SVDWN1 

13,2  114 

335 

3 

312 

1205 

STATE8IT 

4747 

= 87 

STORL  P71 

04,3570 

1386 

2 

1386 

1387 

SVDWN2 

1 3,2070 

334 

2 

1151 

1207 

STA-T-E-EIG- 

-0-06-7 

= 87  - 

_ -8 

5 86 

1239  -ST  QRPQS 

15,2350 

956 

L_ 

957 

SVEXITAD 

2 1 1?  2 66 

832 

1 

831 

STATEINT 

13,2604 

1204 

3 

254 

1205  STORTORK 

16,3665 

1465 

1 

1466 

SVEXTADR 

32,3746 

866 

1 

866 

STATEUP 

13,2026 

251 

1 

1205 

STORV 

20,3502 

1495 

1 

1495 

SW/ 

01,2513  = 

1089 

1 

1007 

STATRXiT 

EA  ,-L  516 

= 131  - 

- 3 

7 14 

716  STORY 

27 ,2454 

776 

1 

776 

SWANDRLT 

4741  = 

93 

3 

747 

897 

STATEXTP 

37,3241 

714 

i 

712 

STRAT 

14,2563 

936 

1 

936 

SWANDI SP 

0155  = 

93 

2 

795 

865 

STATI NT  1 

13,2613 

12  04 

2 

255 

1204  STRATGY 

14,2555 

936 

SWBIT 

0131  = 

113 

5 

1087 

1089 

SEAT-DUO — 

04  ,2301 

2 46. 

2 

.246- 

STRJGYRO 

07 , 3360 

1315 

2 

13  13 

1318 

SyBRANCH 

6714 

1019 

1 

1089 

STBLE0R8 

34,2000 

= 33 

1 

732 

STRTGYR2 

07,3364 

1315 

4 

1316 

1320 

SWCALL 

4622 

993 

5 

232 

1085 

STCL0K1 

36,2666 

751 

1 

749 

STRTI DLE 

5675 

13  77 

i 

1377 

SWC  HCLR 

35, 2567 

671 

1 

671 

— SJGLQK2- 

36,26-67 

751 

2_ 

74uL 

7 92 ST  SHO  SUM 

43,3530 

12  84 

2 

305 

3 06 

SWCHSET 

35,2545 

671 

1 

670 

STCL0K3 

36,2670 

751 

SUBDI VDE 

16,2252 

1417 

3 

1418 

1419 

SWINIT 

05, 3354 

238 

9 

228 

STCTR 

20,2544 

1481 

l 

1482 

SUBEXIT 

E7 , 1466 

1 54 

25 

631 

734 

SWITCHES 

01,2513 

1087 

i 

1089 

STCTR 1 

20 ,2547 

1481 

L_ 

148-2 

SUBLT  ST 

0337 

= 

989 

12 

9 86 

989 

S WR  E TURN 

4631 

993 

9 

259 

1327 

STDES  IG 

25,2602 

557 

2 

543 

557  SUBTR 

00,3702 

1080 

1 

1081 

SWSKI P 

01,2574 

1089 

2 

1089 

STDES IG1 

25,2616 

557 

SUFFCHEK 

12,3457 

1192 

3 

1191 

1192 

SWSTORE 

01,2550 

1088 

2 

1088 

-SXEGR  ? _ 

2L+3  405 

- 816. 

1 

8 15 

SUHALFA 

22,2677 

375 

1 

3 75 

SWWORD 

0130  = 

1 1 3 

2 

1087 

1088 

STEER  BI T 

4741 

= 85 

3 

816 

863  SUHALFAP 

22,2717 

375 

1 

3 75 

SXA 

01,2361 

1082 

1 

1007 

STEER ING 

36,3641 

768 

2 

740 

SUMNEGU 

21,3701 

1477 

2 

1476 

SYNC  T 4 

06,2154 

175 

1 

175 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


- UN-UNOGEENEO-  - 
BD  BADLY  DEFINED 


=— Q-E-F-INE-D  - 9 Y FQUAL-S-  J D E-F  LMFJ7 BY Jf!K  FR  OR  FRASF  ANYWHERE 

CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  M I SCEL L ANFOU S TROUBLE 


MO  MULTIPLY  DEFINED 


PAG  F 1 544 


G-AP:  ASS E MBLE— RE  V I -S  ION  069  OF  AGC  -PROGRAM  LUMI NARY  BY  NASA  2021112-01 1 19:02  NOV.  25  , 1.9.68 


SYMBOL  TABLE  LISTING 

, INCLUDING  DEFINITION,  HEALTH,  PAGE 

OF 

DEF, 

# OF 

REFS, 

. PAGE  OF  FIRST  RFF , PAGE  OF  LAST  REF. 

SYMBOL  DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

RFFERFNCES 

SYMBOL 

DEF 

H 

REFERENCES 

TG5 

?7  8 

^5  ? - ? 

14,3534 

951 

? 

928 

94-4 

TCP 

F6  T 144  3 

.145 

3 

1416  1430 

SI  0050 

= 

109 

30 

370 

1250 

S52.2 . 1 

14,3555 

951 

TCP  1 N 

43,3210 

313 

i 

313 

S106ITS  5012 

= 

12  80 

2 

1282 

S52.2A 

14,3546 

951 

1 

951 

TCP INAD 

43,3213 

313 

i 

312 

S13RTTS  4-3,3  2 46 

12  80 

1 

12-8-6 

S5-2.3 

14,3566 

952 

1 

.928 

T-C.O 

6741 

= 1288 

4 

279  536 

S2  0051 

= 

109 

46 

336 

1250 

S8BITS 

4357 

= 

1280 

1 

1287 

TCQBNKOO 

00,3455 

1075 

1 

1075 

S24.9SEC  36,3144 

756 

1 

744 

TCQCQUW 

30,3446 

917 

1 

923 

- S 30 . 1 34 ,2000 

626 

1 

624  . 

I_ 

0036 

= 

1197 

1 3 

506 

1192 

TCQR 

E6j  1455 

145 

3 

1416  1442 

S32.1F1  0132 

= 

91 

4 

642 

651 

T I X) 

27,3707 

1276 

2 

1273 

1274 

TCSI 

E7, 1631 

157 

8 

209  654 

S32.1F2  0133 

= 

91 

4 

642 

651 

T-OTHER 

E3, 1570 

= 

127 

1 

209 

TCSLEEP 

00,3772 

1372 

1 

1371 

S32. 1!  3 A _ 0134 

= 

9.1 

a 

643 

-651 

T/2SEC 

15,3037 

96^ 

1 

963 

TCSURTR 

00,3734 

108  l 

l 

1079 

S32.1F3B  0135 

= 

91 

8 

643 

651 

TABLNTH 

06,2037 

172 

1 

172 

TCTSKOVR 

4353 

474 

1 

758 

S32/33.X  34,3120 

6 56 

2 

640 

655 

TABLTTF 

E7 , 1560 

= 

164 

8 

164 

826 

T CW  AIT 

43  5 2 

474 

1 

461 

S 32  /33-I  ^4,31  GQ 

6-55 

2 

632- 

638 

TABLTJ-FL 

31,3733 

82  6 

LL 

-8  12 

T DEC 

1115 

120 

9 

120  1239 

S32BIT1  4735 

- 

91 

TAD 

7070 

1025 

1 

1006 

TDECAY 

E 7 , 1737 

= 158 

i 

778 

S32BIT2  4736 

= 

91 

TAGSUB 

01,2436 

1084 

4 

1082 

1083 

TDECAYFX 

4770 

1091 

S32-&T  T 3-A  - - -4-7  37 

- 

91 

1 ALIGN. 

£5,1774 

- 

139 

9 

211 

971 

TDEC1 

0040 

= 1243 

62 

222  1239 

S32BIT3B  4740 

= 

91 

TANG 

1107 

1 19 

34 

1 19 

614 

TDEC2 

E 7,  1571 

= 156 

2 

706 

S 33/ 34 . 1 35,2726 

676 

2 

637 

671 

TANGNB 

E 7 , 1750 

= 

161 

12 

1 61 

617 

T DEL  T A V 

E3, 1520 

= 126 

12 

126  1238 

S 34/ 3 5.  1 3 543236 

681 

4 

_ 67  5 

7 37 

T ARGETDB. 

£6,1474 

= 

145 

4 

1430 

1442 

TDESIRED 

F 5 . 1670 

= 140 

5 

140  1192 

S34/35.2  35,3250 

682 

2 

672 

6 75 

TARGETV 

12,3550 

1193 

1 

1193 

TDI SP  SET 

31, 3674 

825 

2 

807  812 

S34/35.3  35,3333 

6 84 

1 

688 

T ARGTDEX 

31,2510 

803 

1 

825 

TDPOS 

E 5 , 1756 

= 141 

1 

141 

S 34/15.  4-  35  ,3  376 

685 

1 

_68  8 

TARGT-IM.il 

__E4_,  1 7 12 

= 

133 

2 

7 34 

737 

TOVEL 

E 5, 1764 

= 141 

1 

141 

S34/35.5  35,3456 

6 87 

2 

672 

675 

TASKOVER 

5261 

1124 

79 

180 

13  72 

TEMK 

1076 

1 1 9 

10 

1097 

S3435.25  35,3263 

682 

1 

735 

TAT 

0014 

= 

1243 

15 

222 

1220 

TEMP 

F 5, 1441 

= 142 

— -SAO-^J. 2-7-,-2  2 7 1 

772  - 

2 

761  - 

763 

TAD.  _ 

E4 ,1473 

= 

130 

1 5 

130 

1229 

TFMPADD 

E 5 , 1440 

= 142 

S40.1B  27,2363 

773 

1 

772 

TAUROD 

31,3746 

827 

1 

819 

TFMPBB 

0064 

= 1294 

1 

1293 

S40.13  27,2574 

7 80 

1 

745 

TAUVERT 

31,3744 

827 

1 

819 

TEMPBBCN 

0073 

= 1294 

6 

1293  1296 

S40.13D 2.7  ,2  662 

7 81 

Z 

7L8-CL 

_ 7 8-L 

TBAS-E1 

1053 

118 

4 

744 

1298 

TEMPFLSH 

0374 

1 1 6 

3 

243  1358 

S40.130V  27,2707 

782 

1 

782 

TBASE2 

1055 

118 

6 

487 

1215 

TFMPG 

0061 

= 1294 

8 

1293  1296 

S40.131  27,2644 

781 

1 

78  1 

TBASE3 

1057 

118 

TEMPG2 

0071 

= 1294 

3 

1292  1295 

— S4EL.  132 2-7, -2  6 52 

7.81 

- -Z 

781 

782 

TBASE4  . 

1061 

118 

4 

247 

751 

TEMPNM 

0063 

= 1294 

3 

1293  1296 

S40.132*  27,2654 

781 

1 

782 

TBASE5 

1063 

118 

1 

860 

TEMPNUM 

E6, 1740 

= 146 

2 

1434 

S40.133  27,2703 

7 82 

TBASE6 

1065 

1 18 

1 

751 

TEMPOK 

06,2525 

1 86 

2 

186 

S40 . 134 2 7,2  7jG4- 

7.82 

z 

78 1 

. 7 82- 

TBRKPNT 

E5 , 1502 

- 

1 38 

2_ 

138 

842 

TEMP0R2 

0 160 

= 1366 

10 

1350  1360 

S40.136  27,2006 

53 

1 

781 

TBUILDFX 

4767 

1 0 o 1 

i 

1502 

TEMPP 

0062 

= 1294 

6 

1293  1296 

S40 . 1 36_  27,2010 

53 

1 

782 

TBUP 

E4.1664 

= 

135 

14 

135 

850 

TEMPPHS 

0154 

= 1302 

9 

1297  1302 

S4-0 . 137 27,2675 

7 82 

I£ 

F 3 , 1550 

- 

1 26 

1 2 

1 26 

1236 

TFMPOR 

0070 

= 1294 

2 

1293  1296 

S40.138  27,2715 

7 82 

1 

782 

TCALARM2 

43,3272 

1280 

TEMPP2 

0072 

= 1294 

5 

1292  1295 

S40.2.3  27,2436 

7 76 

2 

761 

7 63 

TCCSM 

F3 , 1 622 

1 27 

TFMPR60 

1 164 

120 

9 

486  852 

- S4-0.8 27 ,2472- 

-778 

L_ 

7_6  8 

T-C..DA.N-Z  I G 

27 , 3725 

= 

1276 

5 

5 76 

1271 

TEMP  SW 

0065 

= 1294 

8 

1292  1295 

S40.9  27,2745 

783 

1 

768 

TCDH 

E6.1773 

152 

1 1 

2 09 

654 

TEMPS WCH 

0 157 

= 1302 

3 

1297  1302 

S40.91  27,3064 

784 

1 

784 

TCF1NDVC 

4354 

474 

1 

461 

TFMPSW2 

0066 

= 1294 

4 

1292  1295 

S 40 . 9_2  -27,2  773 

7 83 

TCGETCAD 

00,3761 

1371 

1 

1372 

TEMPT! ME 

E 5 , 1 430 

= 142 

3 

142  393 

S41.1  27,3156 

7 88 

4 

763 

766 

TC  LEM 

E 3 , 1 674 

127 

TEMPVAR 

E5, 1667 

= 141 

3 

1145  1146 

S50  14,2347 

= 

9 32 

TC  NOV  AC 

4351 

474 

1 

460 

TEMP2G 

0 155 

= 1302 

9 

1297  1302 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


-LIN— UNDEFINED = .DEFINED  ELY  EQUALS J DEFINED  RY  .IDKFR  OR  FRASF  ANYWHFRF MD  MUI  TIPLY  DEFINED 

BD  BADLY  DEFINED  CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


GAP-: ASSEM-BbE-  -REV-4-S-I0N  069  OF  AGC  PROGRAM  LUMINARY  BY  NASA  20211X2-011 


1-94-02  NOV.  2- 5,196R 


-BAG  E 1545 


SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF,  # OF  REFS,  PAGE  OF  FIRST  RFF,  PAGE  OF  LAST  REF. 


SYMBOL 

DEF 

H 

REFERENC  ES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

5 A T 1 

- 1-4S 

6 

] 433 

1439 

T F FT  flMMLl  ? 7 . 3 3.33 

1266 

1 

728 

THRUST 

nnss 

_ 

i nq 

9 

??6 

838 

TEMX 

1254 

= 

121 

5 

12  1 

872 

TFFDELQ 

0012 

= 

126? 

2 

12  74 

1275 

TICKTEST 

22,3430 

724 

2 

721 

724 

TEMY 

1255 

= 

121 

3 

121 

872 

TFFELL 

27,3625 

1274 

1 

1272 

T ICKTFF 

22,3420 

723 

1 

723 

TFM7 

1 ? S6 

_ 

121 

5 

1-2  1 

8J2 

TF  F£J_1  . 

77, 3627 

1274 

- -L  12J_2 

T ICKTPFR 

22,3410 

723 

TEMl 

0141 

1 13 

23 

113 

13  59 

TFFNP 

0034 

= 

1262 

6 

1265 

1274 

TIG 

E7, 1437 

154 

43 

209 

971 

TEM2 

0142 

113 

31 

113 

1393 

TFF01 

0016 

= 

1262 

5 

1271 

1274 

T I G— 0 

36, 2367 

745 

2 

256 

745 

_ -J-EM3 

04-43  - 

1 13- 

19- 

113- 

-1255 

TFFRP/RA 

27,3401 

1268 

L 

728 

TIG- 30 

36,2274 

744 

2 

256 

743 

tema 

0144 

113 

ii 

113 

921 

TFFRT ALF 

0030 

= 

1262 

3 

1266 

1273 

TIG-30. 1 

36, 2264 

743 

1 

743 

T EM  5 

0 145 

1 13 

6 

1 1 3 

920 

TFFSW 

0167 

= 

94 

3 

1271 

T IG-30A 

36,227 1 

743 

1 

743 

T-EN 

4 363 

_ 

1Q94- 

10 

2 23_ 

14?6. 

TFFSWBIT 

4753 

= 

94 

T IG-35 

36.2236 

743 

3 

256 

742 

TENDAPPR 

E 7 , 1426 

153 

TFFTEM 

0044 

= 

1262 

1 3 

1271 

1275 

TIG-5 

36,2343 

745 

4 

255 

750 

TENDBRAK 

E7, 1425 

153 

3 

287 

814 

TFFTICK 

22,3453 

724 

T IGNOW 

36,3241 

762 

2 

748 

761 

T EMDEC  _ 

-23,2270 

531 

L 

52_9_ 

TFFVSQ 

0024 

= 

1262 

1 

1265 

TIGTASK 

36,2545 

748 

1 

740 

TEPHEM 

£3,1706 

127 

10 

123 

1388 

TF  F X 

0042 

= 

1262 

7 

1271 

1274 

T IMECHEK 

10,3174 

1363 

1 

1363 

TERMASC 

27,3306 

8 54 

2 

854 

TF  FX  TE  ST 

27,3533 

1272 

1 

12  72 

TIMECHK 

22,3075 

379 

1 

379 

TER  MATE 

10 , 3245 

13  64 

1 

1362. 

TFFZ.E-RQ.S_ 

23,2423 

= 

1277 

2 

1271 

1272 

TIMEDELT 

13,3717 

1221 

4 

1219 

1220 

TERMEXTV 

5472 

2 78 

4 

283 

288 

TFF1/ALF 

0026 

= 

1262 

7 

1266 

1275 

T IMEDIDL 

04, 3510 

1385 

2 

1385 

1388 

T ERMNVEC 

12,3635 

1194 

1 

1195 

TFF1/4 

23, 2413 

= 

1277 

4 

1265 

1271 

T I ME  D I DR 

04,3522 

1386 

1 

258 

TERM1TMP. 

- . _CL1 57  - 

- 

114 

3 

125.2. 

TF  I 

E7.1451 

- 

i 54 

T 1MEGMBL 

21 , 3450 

1472 

2 

1444 

1484 

TERM40 

36,3256 

762 

3 

761 

762 

TGO 

E7, 1514 

= 

162 

36 

162 

854 

TIMEHOLD 

1105 

119 

7 

564 

617 

TERRLAMB 

E 5 , 1 757 

= 

140 

2 

1191 

1192 

TGOCALC 

27,2520 

778 

T 1MEINC 

13,3671 

1220 

1 

1221 



-0  1 r2  5-62 

10-39 

J_ 

10-82. 

T&QCO.MP  .. 

37,3555 

837 

833 

836 

TIMEOVFL 

12,2320 

1173 

1 

1171 

TESTBIT 

40,3525 

470 

3 

470 

TGOFFNOW 

21 ,3533 

1474 

3 

1473 

1474 

TIMER 

0030 

= 

982 

3 

980 

981 

TESTCOS 

32  ,2667 

613 

T GO  1 

E7 , 1 642 

= 

837 

2 

836 

837 

TIMER 

E5, 1470 

= 

142 

TESTLODX 

3 1 , 3654 

824 

- 1 

824 

. T H-DU-M  P 

31 ,2414 

- 8-0  0 

TIMERAD 

12,3556 

1194 

TESTLOOP 

13,3255 

1213 

6 

1211 

12  40 

THETA 

0024 

= 

139 

1 1 

943 

1246 

TIMESTEP 

11,3156 

1233 

4 

1214 

TESTNN 

41,2046 

420 

i 

452 

THETACON 

27,2434 

774 

1 

772 

TIMETEST 

01,3571 

1298 

1 

1301 

T-ESTOE4JF 

AO+3 174 

- 4-47 

4 

-434A- 

454 

JLHFIAD 

032 1 

1 15 

23 

115 

1393 

T IMFTHET 

1 2j2745 

1182 

6 

506 

737 

TESTVB 

41,2041 

420 

THETAN 

E5 , 1 45? 

= 

143 

i 

143 

TIMEX 

35, 3233 

679 

2 

677 

679 

TESTXACT 

43,2076 

2 78 

19 

283 

1331 

THIRD 

35,3674 

693 

i 

678 

T I ME  1 

0025 

= 

1 08 

21 

180 

1363 

T-ESTY 

3 S-,-2-7  74- 

6 76 

L- 

- 676. 

THIRTEEN 

4 761 

- 

1068 

2 

1065 

1397 

TIMF? 

0024 

— 

108 

38 

209 

1390 

TEST22. 3 

27,2156 

6 03 

THISAXIS 

23,2415 

= 

36 

2 

36 

713 

TIME2SAV 

0314 

1 1 5 

4 

115 

1331 

TEST  3979 

34,3445 

7 35 

1 

734 

THISPREC 

13,3057 

= 

36 

4 

665 

723 

T1MF3 

0026 

= 

108 

4 

234 

1 1 23 

TE.T 

-E3 , 1 516 

- 

126— 

-30 

126 

12  35 

THISSHIP 

22,3356 

723 

1 

72? 

T IME4 

00  ? 7 

= 

108 

4 

172 

234 

TETCSM 

E3.1570 

127 

5 

127 

1388 

THISVINT 

13,2066 

252 

1 

1220 

TIME5 

0030 

= 

108 

6 

234 

1416 

TETLEM 

E3 , 1 642 

127 

3 

127 

1388 

THRDCHK 

34,2656 

650 

2 

649 

TIME6 

0031 

= 

108 

7 

1399 

1451 

If  V OTHER.  E 3 ,1570 

127 

THREE 

6?44 

- 

1094 

45 

248 

1452 

T 1M0GM8L 

2 1 , 3456 

1473 

1 

1474 

TETTHIS 

E 3 , 1 642 

= 

127 

I 

718 

THREF/8 

11 ,3673 

1242 

1 

1228 

TIMSUBM 

0016 

= 

1143 

3 

1140 

TEVENT 

1344 

123 

6 

209 

831 

THREEDEG 

32,2543 

58? 

1 

581 

TIMSUBO 

E3, 1706 

= 

128 

i 

1140 

T-FF 

-E4.154-Q 

= 

_ L31 

ll 

131 

729 

THRFSH1 

36,20?0 

55 

1 

760 

TINT 

E 7 , 1626 

- 

159 

6 

733 

734 

TFF/RTMU 

0036 

= 

12  62 

6 

722 

1273 

THRESH2 

6000 

55 

3 

765 

839 

T I NT  SO  I 

E4, 1706 

= 

133 

2 

733 

734 

TFFALFA 

0032 

= 

1262 

6 

1266 

1273 

THRESH3 

36,2021 

55 

1 

760 

TITER 

E 7, 1611 

= 

156 

5 

676 

678 

TFF-BANK  - 

-22-,  3 320- 

7-22 

1 

72  1 

THRO.T  LAG 

31,2004 

55 

l 

799 

TIX 

01,2412 

1 0 P 3 

1 

1007 

TFFCALLS 

22,3565 

728 

1 

728 

THROTTLE 

31,2247 

797 

2 

817 

819 

T JCALC 

17,3304 

1456 

2 

1456 

TFFCONIC 

27,3332 

1265 

THROTUP 

32,3564 

838 

2 

834 

TJETLAW 

17,3207 

1455 

2 

1433 

1446 

HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


-UN-UNO  EF-I-NE-0--  — = DEFINED  3Y  FOUALS .1  DFF  f NFD  BY  .IQKFR  OR  FRASF  ANYWHERE MD  Mill  TIPI  Y DFFINFD 

BD  EADLY  DEFINED  CD  DEFINITION  ASSOCIATED  WITH  CONFLICT  XX  MISCELLANEOUS  TROUBLE 


-SAP-: ASSEMBLE  REVISION  069  OF  AGC  PROGRAM  LUMINARY  BY-NASA  20  2 1 1 1-2---01 1 - 


19 : 0 2— NOIL.  2-1,1 968- 


P AS  F 1 546 


SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DEF,  # OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF. 


SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

SYMBOL 

DEF 

H 

REFERENCES 

F />  T ? S 

1 4Q 

2 

1 45-7 

145  8 

TP0V1- 

6607 

- 1-0  1 6 

1 - 

-1-016 

TR-Y-SW-N 

25,2523 

55  4 

1 

554 

TJLAW 

17,2623 

144-6 

i 

1449 

TPERT  ICK 

22,3460 

724 

1 

724 

TRYSWS 

25,2461 

553 

1 

550 

TJLAWADR 

17,3045 

1449 

i 

1446 

TP  IP 

E 7 , L 62  2 

= 165 

5 

165 

807 

TRYUORV 

16,2732 

1424 

1 

1425 

TJMI-N 

1 7 ,16X6 

1463 

i 

14.6-1 

TPLP.OLD  - 

E7, 1571 

= 164 

3_ 

164 

807 

TSCALE 

32,2204 

224 

1 

223 

TJP 

E6, 1524 

148 

18 

148 

1465 

TPLEFTN 

40 ,3153 

446 

3 

4 3 9 

446 

TSCAL  INV 

4750 

= 826 

1 

825 

TJU 

E6, 1525 

= 

148 

14 

149 

1501 

TPMODE 

10,3537 

1391 

1 1 

587 

1187 

TSENSE 

17,2115 

1437 

1 

1437 

XJ-V—  - 

66,15-26  _ 

- 

1_48 

3 

-140-6 

1449 

TPREV 

E5 , 1 761 

= 140 

2 

1191 

1192 

T SIGHT 

F7, 1557 

= 160 

17 

273  974 

TJZERO 

17,3761 

1502 

2 

1502 

TPSL1 

4404 

475 

6 

436 

446 

TSIGHT1 

14,3023 

940 

1 

938 

TL  AND 

E5 , 1 400 

= 

137 

4 

137 

790 

TPUSH 

00,3272 

1072 

1 

107? 

T SKOVCDR 

01,3515 

1127 

1 

1127 

-TLI.M 

06,2514 

LJB6- 

L. 

- 1.7.7  _ 

TR*GL**P 

2.3,3464 

1255 

1_ 

12-55 

TSLCTCO 

30,3570 

920 

1 

920 

TLOAD 

TM 


6467 
E6, 1731 


TMANUCHK  22,3064 


1014 

150 

3-79 


370 

377 


1094 

380 


TRAC  El 
TRACE  IS 
JRACKBII 


40 ,3236 
40,3247 
474-7 


454 
4 54 
BA- 


14  295 


TSLC  7615 

TSLCLOOP  00,2201 
-1309  TSLC TF ST  00,2207 


1039 

1047 

1047 


1 1006 
1 1047 
1 1047 


TMARK 

E5, 1432 

= 142 

4 

142 

393 

TRACKFLG 

0031 

= 84 

6 

302 

717 

TSLC2 

00,2172 

1047 

1 

1039 

TMEX ITL 

05 ,3626 

9 89 

TR AKFWDV 

E7, 1701 

= 166 

2 

166 

899 

TSNEXTP 

16,2773 

1425 

4 

1424 

1425 

TMFAIL2  - 

04,33  C6  - 

1333  - 

Z 

133  4 

TRAKLATV 

E7.1700 

s . 166 

.3,. 

166 

905 

TSNEXTS 

17,2145 

143  7 

TMF  I 

E6, 1701 

= 150 

9 

365 

366 

TR ANSM1 

F4, 1400 

= 133 

2 

133 

399 

T SNUMBRT 

17,2135 

1437 

1 

1439 

TMIN 

34,2111 

642 

2 

651 

TRANSPOS 

22,2326 

369 

1 

3 64 

TSSL 

00,2101 

1044 

3 

1042 

1051 

■ TMI.NDFX 

0336- 

= 115 

. 7 

115 

989. 

TRA.NSP1 

10 ,3634 

1395 

TSSR 

00,2025 

104? 

TM  I S 

E6, 1701 

= 150 

15 

1 50 

3 64 

TR ANSP2 

10,3650 

1395 

TSTAB 

40,3635 

483 

1 

484 

T MODE 

6476 

1014 

TRANSTM 

E7 , 1660 

= 163 

3 

1 63 

507 

TSTART82 

E4, 1610 

= 131 

7 

352 

723 

J-MOOILLQ— 

E4 , 1 600 

_= 131 

8 

13  1- 

1174 

TRANS 4 

17,2256 

1439 

1 

1437 

TSTC0N1 

41,3656 

480 

1 

480 

TMPTOSPT  33,2473  873 

TMRESUME  05,3630  909 

-XNLI E J , 1-7 27 = I 58 

TNITPREV  E7.1731  = 158 

TNONTEST  06,2227  178 


1 862 

4 1 58 

2 783 

1 176 


TRAPEDP 
TR APEDQ 
-7B4  TRAPEDR 
784  TREDES 
TRG*NBSM 


E6, 1426 
E6, 1427 
E 6 , 1430 
F7 , 1 664 
23,3570 


TOBALL 

26,2114 

4 86 

1 

486 

TOBALLA 

26,2116 

4 86 

2 

487 

TOBALL  C 

26+2137 

487 

1- 

487 

T0C0N2 

5417 

1293 

1 

1294 

tof-ff 

27,2000 

= 32 

1 

1265 

-XQF-EF1 

2 7 ,-2-oaa 

= 32 

2 

61 

TOFAR 

25,3574 

5 77 

i 

577 

TOOBADF 

22,2724 

3 76 

i 

364 

JOOBA-DI. 

22 ,2742 

3J6 

1 

365 

TOPSEUDO 

17,2461 

1442 

i 

1442 

T0RKJET1 

20,2000 

57 

2 

1483 

TQRQC-QNS- 

-2CU30JT)- 

1 488 

1 

148  8 

TORQNDX 

E5, 1440 

= 143 

8 

386 

TDROUE 

37,2117 

3 87 

1 

40  1 

TOTAXTER- 

43,21 66 

281 

1 

2 7 7 

TPAGREE 

7256 

1031 

19 

290 

TPASS4 

E 7 , 1626 

157 

10 

159 

1238  TRG*SMNB  23 , 3555 
TRIG1  23,3235 
TR IG2  23,3246 
TRIMACCL  31,2000 
TRIMDONE  01,2320 
TR I MG  I MB  27,3106 

1277  TRIPA F. 5, 1664 

TRKFLCDU  06,3070 
TRKFLON  4601 

TRKMKCNT  E7.1460 
TRMTRACK  43,3034 
TRMTRAK1  42,2054 
TRNSPSPD  22,2335 


1 44 

l 1 

144 

1420 

TSTC0N2 

41,3657 

48  1 

1 

480 

144 

6 

1406 

1421 

TSTC0N3 

41,3660 

481 

1 

481 

144 

6 

1406 

1421 

TSTFBANK 

27, 2255 

758 

l 

758 

165 

3 

808 

825 

T STFORDP 

41,2466 

428 

l 

427 

1257 

5 

2 65 

965 

TSTLTS1 

41,3631 

480 

1 

480 

12-5-7 

2 

_581 

896 

TSTLTS2 

4 lj  366  2 

481 

l 

480 

1246 

1 

1246 

TSTLTS3 

41,3667 

48  1 

1 

481 

1246 

1 

12  46 

TSTLTS4 

40,3467 

463 

1 

481 

54 

1 

815 

T STORE 

6453 

LO  1 2 

1 

1012 

310 

1 

7 86 

T ST PO I NT 

23,3661 

1259 

785 

1 

310 

TSTRLSRM 

1 3,2575 

1134 

1 

1134 

141 

5 

141 

1146 

TSTRT 

E 7 , 1 607 

= 156 

3 

298 

712 

200 

2 

200 

TTEMP 

E 6, 1705 

= 150 

8 

378 

381 

536 

2 

535 

623 

TTF/8 

E 7 , 1640 

= 165 

16 

165 

875 

154 

1 I 

154 

1218 

TTF/8CL 

31,3107 

8 l 1 

3 

802 

302 

2 

277 

604  TTF/3TMP 

E 7 , 15  50  = 

164 

6 

164 

807 

302 

1 

302 

TTFDISP 

E 7,  1473  = 

162 

4 

162 

825 

369 

1 

365 

TTF INCR 

3 1 , 2 65  7 

807 

4 

802 

806 

401 


1390 

783 


TRUE360X 
TRUNBQ 
TRUNVAR 
TRYCOUNT 
TR YGTS 


12,3203 

26,3054 

E4.1411 

25,3166 

17,2531 


1187 

592 

129 


1 1186 


5 92 


TTFSCALE 

4740  = 

826 

TTHRGT 

E 7 , 1 6 1 5 = 

164 

TTO 

E 4 , 1662  = 

135 

3 164  799 

4 135  847 


566 

1443 


1 5 66 

1 1436 


TTOAX I S 
TTOGO 


E6, 1740 
F 7 , 1451 


148 

154 


10  1458  1461 
23  154  853 


HEALTH  KEY:  NORMALLY  DEFINED  UNLESS  FLAGGED  AS  FOLLOWS: 


-UN  UN  DEF-I-NE-D 

B D BADLY  DEFINED 


— s — D E-F-INE-D-  BY  EQUALS 


CD  DEFINITION  ASSOCIATED  WITH  CONFLICT 


J-DEFINED  BY  JDK  FR  OR  LRASF  ANY WHFR F 


_.MD.. MULTIPLY  DEFINED 


XX  MISCELLANEOUS  TROUBLE 


GAB: ASSEMBLE  REVISION  0 69  OF  4GC  PROGRAM  LUMI  NARY  BY  NASA  -20  21112-^014 19-U02  NOV.  25,1968 

SYMBOL  TABLE  LISTING,  INCLUDING  DEFINITION,  HEALTH,  PAGE  OF  DFF,  # OF  REFS,  PAGE  OF  FIRST  REF,  PAGE  OF  LAST  REF 


PAGF  1547 


SYMBOL  DEF  E REFERENCES  SYMBOL  DEE  H REFERENCES  SYMBOL  DEF  H REFERENCES 


1 57  - - 

1 Q ?nq  A7Q  _Lin R4 

0132 

_ 

1498 

2- 

149  5 

1496  1IPBUFF 

- 117.4 

- 

. 1 20 

-29 

. 219 

13  3.8 

TTPIO 

E7i 1635 

157 

3 

633  638  UERROR 

E6, 1747 

= 

1 45 

3 

145 

1446 

UPCOUNT 

1173 

= 

120 

5 

120 

1383 

TURNI TON 

35,3726 

755 

1 

755  UHYP 

E7, 1715 

= 
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= 
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1 
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= 

160 
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1450 
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= 

1 04 

3 

7 50 

1437 
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TURNQN3T 

4-753 

- 

1 03 

-ILL  LAGELG 
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1 
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1 
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= 
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6 
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36,2316 
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= 

1478 

i 

1475  ULOS 

E4, 1714 

- 

133 

6 

676 

6 84 

UPDATRET 

0117 

= 
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28 
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= 
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= 
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E 6 , 1665 

= 
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i 
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i 
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3 
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UPERROUT 
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1389 
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1333 
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2 
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2 
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281 

1385 

T3RUPT2 

01,3411 
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i 
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1 
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1384 
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2 
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10  95 
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36 
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1 

1335 
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40.64  _ 

169 

1 
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1095 

5 

36 
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1 
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T4RUP 

06,2000 

= 
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2 
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1095 

9 

36 

881 
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04, 3437 

1384 

2 

1382 
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T4RUPT 
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170 

2 

168  169  UNKNOWN 

0007 

= 

208 
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4750 

= 

94 

3 

1333 
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1274 

121  - 

5 

L68  14  84  -UNLR7  2 

0024 

— 

1 65 

UPLOCKFL 

0164 

= 

94 
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0061 

= 

152 

1 

1414  UNLRB/2 
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1222 

1 
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T6  ADR 
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169 

1 
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E4, 1620 

= 
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3 
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7560 
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1 

1038 
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. 145 

11- 

1399.  1451— UNRM- 

- 
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7 
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UPOK 

04,3271 

1333 
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17,2004 

13  99 

UN  SET  R 1 

10,3233 

1363 

1 

1362 

UPOLDMOO 

1171 

= 

120 

3 
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1387 
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1399 

2 
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40 ,3475 
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1 
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UPOUT 

04, 3632 

= 
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7 
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12 
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5 
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3 
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= 

151 

10 
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UPPART2 

04, 3322 

= 

1382 

1 
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495 

i 
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1 
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= 
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= 
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3 
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= 
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= 
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= 
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JJ2 
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_ 

140 

G 
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1194 

V9AD 
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8 93 

1 

892— 

UPRPT1 

04,3252 

13  33 

U2P0S 

22,2224 

367 

1 

367 
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43,2171 

28? 

1 

277 

UPRUPT 

04,3240 

13  33 

1 

168 

U3P0S 

22,2274 

368 

1 

368 

VBFANOIR 

41,2146 

421 

1 

421 

VBPRQC 

40 , 3440 

46  1 

5 

422 

469 

UPS  VF  L AG  E3.1501 

- 

126 

6 
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1222 

V 
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= 

162 

2 1 
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901 
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40,3457 
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1 

411 

UPTEMP 
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12 
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1387 

V(CSM) 

E 3 , 1725 

= 

136 

6 

609 
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VBRESEQ 
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1 
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7 1 13  3 
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127 

_5 
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335 

V8RFG 

E 5 , 1410 

= 

137 

2 
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UPTHP.OT 

32,3371 

8 34 
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V/SC 
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1 

1006 

VBR  FG* 
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= 

137 

2 

137 

826 
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i 
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3 

106? 

VBRQEXEC 
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1 

422 
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L_ 
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1 
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41, 3512 

46  1 

1 

422 
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— 
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1 
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2 
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440 
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41,3010 

440 

1 
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422 
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= 
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= 
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= 

1382 

1 

1381 
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= 
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= 
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on  no 

— 
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116 
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= 
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5 
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1 
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VB56CADR 
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1 
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= 
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2 
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4 
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1101 
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1 
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U£PV 

00  16 

1 2 43 
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1230 
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-VAC-2 

. 0455 

116 
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43,2710 
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1 

277 

URRECT 

E 5 , 1 646 

= 

140 

4 
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0454 

116 

3 
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= 
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1 
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11 
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= 
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1 
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3 
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1 
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1 
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VAC4 
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= 
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1 
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USFGTS 

33,2341 
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116 

3 

236 

1101 
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= 
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20 
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4 

_ -8-6.3-. 

V A C 5— 
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1 16 

I 
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127 

1 
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1213 

1 
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1 16 

3 
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1101 
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E 3 , 1666 

127 

2 
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1 
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VAD 
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1021 

1 
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1 
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0304 

= 
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I 

401 
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l 
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4736 

= 
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6 
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4 

8 86 
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= 
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1 
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= 
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3 
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05,2043 

68 

3 
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165 

5 
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819 
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4713 

995 

7 
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1255 
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E5 ,1440 

= 
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1 
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1 
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UT 
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9 
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V A PEG* 
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137 

1 
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15 
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UV 
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= 
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7 
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2 
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VE 
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= 
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6 
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~ 
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1 
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= 
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6 
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4 
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179 

1306 
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~ 
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6-0-0- 
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E5, 1706 

= 

141 
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1 
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UZ 
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= 
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4 
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VATT 
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= 

1243 

25 
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27,2021 
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1 
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1 
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- 
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13 
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1 
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VECPT 

27,2000 
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= 
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5 
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VECSHIFT 
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707 

3 
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= 

165 
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9 
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E4 , L53 1 

= 

. 1.30- 
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E7 , 16A5 

= 
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7 
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= 
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3 
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= 
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3 
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= 
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= 
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7 
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VHY 

E7, 1702 
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4 
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9-6-7— 
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E7, 1703 

= 
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4 

1 66 
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E7, 1525 

= 
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2 

676 
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VEHUPBIT 
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= 

83 
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= 
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2 
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1 
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= 

83 

13 
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EA, 173A 
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10 
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= 

1 A5 

3 
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= 
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11 
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1 236 
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57 

2 
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= 

87 

25 
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2 
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= 
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2 
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10 
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= 
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= 
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89 
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0122 

112 
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114 
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114 
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1294 

TEMPSW 
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98 
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0144 

1498 

DBB  2 
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87 
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89 
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0123 

90 
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1498 
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TFM5 

0066 
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0145 
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ZREGLP 
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MARKFLAG 
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PRIOT 1 ME 
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ATTCADR 

1376 
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SKEEP6 
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MODREG 

1072 
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E8ANKTEM 

1166 

120 

UPVERBSV 

1311 

122 

ATTPRIO 

1377 

124 

SKEFP7 

mix 
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-SAVEE-LAG 
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118 

REQRET 

10  73 
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MARK  2PAC 

1167 
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1313 
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DSRUPTSW 
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125 

LST? 

1014 

118 

LOADSTAT 

1074 

119 

R1SAVE 

1167 

120 

UPTEMP 

1314 

122 

LGYRO 

E 3,  1 43  2 

125 

RSBBQ 

_ 104  5- 

118 

-XL  PASS 

4075 

419 

1 /PI  PAD T - 

1467 

1221 

IN.THAKUQ 

13  15 

12? 

RRRFT 

E3.1434 

125 

LONGFX I T 

10  16 

118 

NOUT 

1076 

119 

TEMK 

1170 

120 

COMPNUMB 

1316 
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ROES 

E 3 , 1 4 3 6 

125 
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1017 

118 

NOUNCADR 

1077 

119 

SQ 

1171 

120 

UPOLDMPD 

1317 
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RRINDEX 

E3, 1437 
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PHSBB1 

1020- 

118 

MO-NSAVE  _ 

4 1-0.0 
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SAMPLIM-  _ 

1172 

120 

UPVFRB 

1320 

122 

WIXA 

E 3, 1440 
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1021 
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MDNSAVEl 

1101 

119 

RRTARGET 

1173 

120 

UPCOUNT 

1321 
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WIXB 

E3, 1441 

125 

PHSBB2 

1022 

118 

M0NSAVE2 
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120 
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1324 
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PBIASX 

1045 

118 

NQRMTEM1 

1113 

119 

DESRET 

1251 

121 

DVTHRUSH 

1335 

123 

ONINDEX 

E 3, 145? 

125 

p I P A B I AS 

104-5 

95-8- 

CURSOR— 

1 143 

11-9  _ 

01  DAT  AGO 

_ 4252 

121 

AVEGEXIT 

1336 

123 

DNLRVELX 

E3, 1453 

125 
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F 4 , 1400 

1 79 

WRFNOPOS 

F4. 1537 

E3, 1570 

127 

T-OTHER 

E 4 , 1400 

133 

TRANSM1 

E4, 1540 

E3, 1570 

127 

TFTCSM 

E4, 1401 

129 

WRENDVEL 

E4, 1541 

E 3 i 1570 

1 21 

TETOTHFR  - 

F 4 ,14.02. 

129 

WSHAFT 

F4, 1 54? 

E3, 1572 

127 

DEL  T AC  SM 

F 4 , 1403 

129 

WTRUN 

E4, 1543 

E 3 , 1600 

127 

NUVCSM 

E 4, 1404 

129 

RMAX 

E 4, 1545 

F3, 1606 

1 ? 7 

RC  VC  SM 

F 4 , 1 405 
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VMAX 

F4. 1 553 

E 3 , 1614 
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VC  VC  SM 

F 4, 1406 
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E4, 1561 

E3, 1622 
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F 4 , 1 407 

129 
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F4, 1567 
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RRECTHIS 
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129 
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-A.G.SX 
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-E.4, 1604 
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E 5, 1442 
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136 
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£5,1442 

142 

NOBITS 

E5, 1507 

. . F4-t  1 7 70 

L36- 

_P  ETCH- 

F 5»  1442 

143 

QRXF  IT 

-E5.1510 

E5, 1400 

137 

TL  AND 

E 5,  1443 

142 

CDULIMIT 

E5, 1512 

E5, 1400 

137 

W 

E 5, 1443 

142 

CHAN 

E 5 , 1520 

_ F 5 » 1-4  00 

142 

AZ  IMUTH  — 

F 5 ,1444 

142- 

L0S1 

__  E5_,  1522 

£5,1402 

137 

R8RFG 

E 5,  1444 

143 

ALX1  S 

E 5,  1526 

E5, 1402 

142 

LATITUDE 

£5,1445 

143 

CMPX1 

E5 , 1530 

F5, 1407 

82-6- 

RD-G.  - 

_ E 5,-1446 

137  _ 

AAPFG 

E5 , 1531 

E5, 1404 

142 

ER VECTOR 

E 5 , 1446 

143 

ALK 

E 5, 1531 

E5, 1410 

137 

VBRFG 

E 5, 1452 

142 

L0S2 

E5, 1532 

F 5*  1 41CL 

826 

_ VD-G-  - - 

£5, 1452 

143 

THFTAN 

E5 , 1533 

F 5 , 14 12 

142 

LENGTHOT 

E 5,  1454 

137 

VAPEG* 

E5 , 1534 

E5, 14  13 

142 

LOSVEC 

E 5,  1456 

137 

AAPFG* 

E 5 , 1535 

— E5-r  14-1-4 

1-42 

MO-XCTR  - 

_E  5-,  14-60 

13  7_ 

JAPf-  G*  . 

. -E5 , 1536 

E5, 1415 

142 

PI  PINDEX 

E 5, 1460 

142 

CALCDIR 

E 5 , 1537 

F5, 1416 

137 

ABRFC- 

E 5, 1460 

143 

FILDELV 

E 5 , 1542 

£5*1416 

1-42 

POS  I JON 

— E-5->-146-L- 

-142 

COUP LAG- 

E5,  1543 

E 5 , 1416 

826 

AOG 

E 5,1462 

137 

VIGN 

E5 , 1543 

E5.1417 

142 

OPLACE 

E5, 1462 

142 

GYTOBET  Q 

E5 , 1550 

-E  5 , 1420 

142 

QPLACFS 

-2  5.,  1462— 

143 

I N T V EC 

E5, 1560 

E5, 1421 

142 

SOUTHDR 

E 5 , 1 462 

143 

VLAUNS 

E 5 , 1562 

E 5 , 1424 

137 

VBRFG* 

E 5,  1463 

142 

OPTNREG 

E5, 1563 

F 5 , 1424 

-826- 

V-DG2-TTF 

E 5, 1 464 

137 

R IGNX 

E5-,  15  7 1 

E 5 , 1426 

137 

ABRFC* 

E 5,  1464 

142 

SAVE 

F 5 , L 572 

E 5 , 1426 

826 

ADG2TTF 

E 5, 1464 

143 

WPLATO 

E 5, 1573 

E5, 1430 

-137 

- .IBRFG* 

F 5, 1 466 

1-37 

-R-I.G-NZ. 

. . E5 , 1574 

£5,1430 

142 

TEMPTIME 

E 5 , 1467 

142 

SFC0NST1 

E5 , 1576 

E5, 1430 

826 

JDG2TTF 

E 5 , 1 470 

137 

K IGNX/B4 

E5,  1642 

— F 5, 1432 

— 137 

-RAPE -G  - 

E5, 1470 

142 

TIMER. 

JE-5 , 1642 

E5, 1432 

142 

TM  ARK 

E 5 , 1470 

143 

INTY 

E5, 1642 

£5,1434 

142 

CDUT IMEI 

E 5, 1472 

137 

K IGNY/B8 

E5 , 1642 

£5,14  34 

142  - 

GEN-PL  _ 

_£  5, 1 47? 

1 42 

DATA  PI 

E5 » L644 

E 5 , 1434 

142 

RDSP 

E5, 1472 

143 

ANGZ 

E5, 1644 

E5, 1434 

143 

AINLA 

E 5 , 1474 

137 

KIGNV/B4 

E 5 , 1646 

E-5  , 44  34  - 

143 

MANGO-  

-E-5*  1474 

143 

1MTZ 

F5  y 1 646 

E 5 , 14  36 

142 

CDUT  IM  EF 

E5.1476 

137 

LOWC  RI  T 

E 5, 1650 

E 5 , 1436 

143 

WANG  I 

E 5, 1476 

143 

ANGY 

E 5 , 1654 

E 5-*  1440 

137  - 

VAPEG  - 

E-5,  1477 

137 

H I GHER  LT 

E5* 1654 

E 5 , 1 440 

142 

CDUDANG 

E 5, 1500 

137 

DELOFI X 

E5,  1656 

E 5 , 1440 

142 

TEMPADD 

E 5, 1500 

143 

ANGX 

E5 , 1662 

E 5,1-4  40 

143 

— TCLRGND-X 

£5, 1502 

--L38_ 

TBRKPNT 

E5 , 1664 

E 5 , 1440 

143 

WANGT 

£5,1502 

143 

DRIFTO 

E5 , 1664 

E5 , 1441 

142 

COUREADF 

E 5, 1503 

138 

ABTVINJ l 

E5, 1664 
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- OR  I ft  I 

E5  t 16-64 

141 

TPTPA 

£5. 1 7X5 

L4D 

_C_SJ"H— RHO 

ABTVIN J2 

E5, 1667 

141 

TEMP  VAR 

£5,1736 

138 

GCTR 

CG 

E5, 1670 

140 

TOES IR  ED 

65,1737 

138 

OGC 

VI  AI1N 

F5. 1672 

138 

Y DC 

F 5 , 1737 

140 

P 

ACCWO 

E5, 1672 

138 

YNB 

E 5, 1741 

138 

IGC 

POS  NV 

E5, 1672 

140 

GEOMSGN 

£5,1741 

140 

Rl  A 

DP  1 PA  Y 

E5 , 1673 

140 

UN 

E 5 , 1743 

138 

MGC 

DPI PAZ 

65,1700 

138 

Z DC 

E 5 , 1743 

140 

VV  EC 

ALTIM 

E5, 1700 

138 

ZNB 

E 5, 1745 

139 

QMIN 

RANGEDSP 

E5, 1701 

140 

VTARGTAG 

E 5 , 1 74  6 

139 

QMAJ 

ALT  I MS 

£5,1702 

140 

VTARGET 

£5,1747 

139 

OGCT 

ALDK 

E5, 1706 

138 

LANDLAT 

£5,1751 

140 

ECC 

DUTOFPLN 

£5,1706 

138 

STARAD 

E5, 1753 

140 

RTNPRM 

MASKPEG 

E5, 1706 

139 

CULTRIX 

F5, 1754 

140 

SGNROOT 

P60VSAVE 

E5 ,1706 

139 

GACC 

E 5 , 1755 

139 

BESTI 

CDUNDX  , 

F 5, 1706 

139 

VEARTH 

E 5, 1 755 

140 

RDES IP  ED 

RESUL  TCT 

65,1706 

139 

XSCI 

E 5 , 1756 

139 

BESTJ 

COUNTPL 

E5 , 1706 

141 

VARIANCE 

£5,1756 

141 

TDPOS 

R.GD 

_E5 , 1 7 10 

138 

LANDLONG 

E5. 1757 

139 

STAR INO 

CDUANG 

£5,1710 

140 

RTNAPSE 

£5,1757 

140 

DELDEP 

HELM 

E5, 1710 

140 

RTNL AMR 

E5, 1757 

140 

TERRLAMB 

WPLAT I . 

E5 , 1710 

140 

RTNTR 

F 5, 1760 

139 

STARSAV 1 

GEOCOMPS 

E5.1710 

140 

RTNTT 

£5,1761 

140 

DEPRFV 

EPCOMP 

E5 , 1 7 1 1 

140 

U2 

65,1761 

140 

TPREV 

ZERDNDX 

65,1711 

141 

GRP2SVQ 

E 5 1 1 76  3 

140 

EPS  I LONL 

1SECXT 

E5, 1712 

138 

LANDALT 

c5, 1764 

141 

TDVEL 

ASECXT 

65,1712 

141 

0MEGAM1 

E5, 1765 

140 

COGA 

PER  FDL  AY 

E5.1714 

139 

GOUT 

65,1765 

140 

INDEP 

0VFL3WCK 

E5, 1714 

139 

VSUN 
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STARSAV2 

ENDW 

65,1714 
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E 5 , 1772 

141 

EGRESS 
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141 
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140 

R2 

F 5 , 1 7 74 

139 

TAL IGN 
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E5, 1720 

141 

OMEGAM  2 
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143 

END— F5 

DELT 

65,1721 

140 

UR  l 

E 6 , 1400 

144 

HIASCENT 

SINB 

E5, 1722 
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VEC  1 

E6, 1401 

144 

ROLLTIME 

URRECT  _ . 

E5, 1722 

139 

VMOON 

£6, 1402 

144 

PITTIME 

YSM 

65,1726 

141 

0MEGAM3 

£6,1403 

144 

OKTRAP 

R VFC 

E5, 1727 

140 

SNTH 

66, 1404 

144 

DKOMEGAN 

Rl  VEC 

E 5 , 1730 

138 

STAR 

E 6 , 1405 

144 

DKK4PSN 

ZSM 

65,1730 

139 

SAX 

E 6 , 1 40  6 

144 

LMTRAP 

R2VEC 

E5 , 1730 

139 

VEC2 

E6, 1407 

144 

LMOMEGAN 

X DC 

E5 ,1731 

140 

C ST  H 

66,1410 

144 

LMKAOSN 

XNB 

E5, 1733 
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148 
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150 

MIS 
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150 
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144 
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T6NEXT 
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144 
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145 
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151 
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146 

R0TEMP1 

E 6 1 1423 

144 

ALPHAR 

E6,  1474 

145 

-RAT  EDB 

E6 , 1547 

149 

ACC  SWU 

E6 , 16  5 1 

151 

UNFC/2 

66,1735 

147 

GTSTEMPS 

E6  t 1424 

144 

._OM£GAU— 

F 6, 1474 

145 

T ARGFTDB 

£6*1547 

149 

PI  OCKTCP 

E6, 1657 

151 

UNWC/2 

E 6 , 1 73  5 

147 

K2THETA 

E6, 1424 

145 

UR  AT  ED  I F 

E6.1475 

145 

RETJ ADR 

E6, 1550 

149 

ACC  SW V 

E6 , 1665 

151 

UNFV/2 

66,1735 

148 

EDOTSQ 

E6, 1425 

144 

EDOTP 

E 6, 1476 

146 

A XI SCTR 

E6, 1551 

1498 

1/ANFTP 

E6 , 1665 

151 

UNFVX/2 

66, 1735 

151 

0APTEMP1 

E6t  142-5 

144 

OMEGAV-.  - 

147 

.SAVE  SR. 

E6, 1553 

1498 

1/ACCS  IP 

66,1666 

150 

COE 

E 6j  1 73  6 

146 

R OTEMP  2 

E6, 1425 

145 

VR  AT  ED  I F 

E6, 1477 

146 

SENSETYP 

E6 , 1555 

149 

FLAT 

E6, 1667 

151 

UNFVY/2 

66,1736 

148 

ROTSENSE 

E6, 1425 

149 

EDOT 

E6, 1500 

147 

NEGUQ 

E6 , 1556 

149 

Z0NF3L  IM 

E6, 1671 

151 

UNFVZ/2 

E6, 1736 

151 

DAPTFMP2 

E 6 i 1426  _ 

144 

TRAP  ED P _ 

E_f>, 1501 

149 

ALLOWS! S 

£6, 1557 

1498 

PACCFUN 

F6 , 1 6 73 

151 

-DELGMS 

66,1737 

146 

PCLYTEMP 

F6 , 1427 

144 

TRAPEDQ 

E6, 1502 

147 

negur 

E6, 1561 

1498 

PDB  1 

E6, 1674 

150 

BCDU 

E6, 1737 

147 

A2CNTR AL 

E6, 1430 

144 

TRAPEDR 

E6, 1503 

147 

KQ 

E6 , 1562 

1498 

PDB2 

66,1677 

150 

KSPNDX 

66,1737 

147 

SHFTFL  AG 

r 6, 14  31 

144 

NP.TR.AP_S  — 

E6,  150-4 

147 

KQ2- 

£6,1563 

1498 

PQR4 

E6, 1700 

150 

KDPNDX 

E6, 1737 

148 

FIRFFCT 

F 6 t 1432 

144 

NQTRAPS 

66,1505 

147 

KRDAP 

E6, 1564 

1498 

PDB  3 

E6, 1701 

150 

KV1 

66,1737 

151 

DAPTEMP3 

E6, 1433 

144 

NRTRAPS 

E 6 , 1506 

147 

KR2 

E6, 1565 

1498 

PAXCIST 

E6, 1701 

150 

Kl 

66, 1740 

146 

TEMPNUM 

F 6 » 1434 

144- 

— E-D-OT-Q 

-£  6 , 15  07 

147 

ACCDOT-Q 

E6, 1567 

149 

1/ANlETi 

E6, 1701 

150 

MFISYM 

E6* 1 740 

147 

INI NOFX 

E 6 , 1434 

144 

QR  AT  ED  I F 

E 6 , 1510 

147 

Q ACC  DOT 

E6 , 1570 

149 

1/ANET2 

E6, 1701 

150 

NCDU 

E 6 , 1 740 

148 

TT0AX1 S 

E6 i 1435 

144 

EDOTR 

E6, 15  U 

147 

ACCDOTR 

E6 , 1573 

149 

1/ACCAST 

E6, 1701 

150 

P21 

E6.1740 

151 

0APTEMP4 

E6t 14  35 

14  5 

RRAX-EO  I F 

-E-6-,  15  12 

1.4  7 

RACCOQT 

E6 1 1575 

149 

ACCFCTZ1 

E 6 , 1701 

150 

IMF  I 

66,1741 

146 

NUMBERT 

E6, 1436 

145 

OLDXFORP 

E6, 1513 

148 

DOWNTORK 

E6, 1576 

149 

ACCFCT  Z5 

E6.1701 

150 

TM1S 

E 6 , 1 74 1 

147 

KCENTR AL 

E6, 1437 

145 

OLDYFORP 

E6, 1513 

148 

POSTORKP 

E6, 1601 

149 

F I R EDB 

E6, 1703 

150 

D21 

E6.1741 

147 

OMEGA. K 

- - E 6-,  1 4-40 

—145- 

— DL-D-Z  FO-RQ- 

_ E-6-,  1514 

148 

NEGTOTKP. 

E6 , 1603 

149 

COASTPB 

E6 , 1 7 04 

150 

NEXTIME 

F6, 1741 

151 

DAPTEMP5 

E6, 1441 

145 

CH31TEMP 

E 6 , 1515 

148 

POSTORKU 

E6,  1605 

149 

AXI  SDI ST 

66,1705 

150 

G21 

E 6 , l 742 

146 

RnTINDEX 

F6 i 1442 

145 

ST  IKSENS 

66,1516 

148 

NEGTORKU 

E6 , 1627 

149 

COTRDL  ER 

E6 , 1 705 

150 

TTEMP 

66,1742 

147 

K2CNTR  AL 

145- 

—TCP 

F 6 , 1517 

-1.4.8 

POSTORKV 

E6j  1630 

149 

QCI MT  I MR 

E6, 1707 

150 

BIASTEMP 

E6, 1742 

147 

SCRATCH 

E6, 1444 

145 

DXERROR 

E 6 , 1520 

148 

NEGTORK  V 

E6, 1631 

149 

INGTS 

66,1707 

150 

C2SQP 

E6, 1742 

148 

ADR  SDI F 2 

E 6 > 1446 

145 

DYERROR 

66,1521 

148 

NO.PJETS 

E6 , 1632 

149 

RG1MTI MR 

E6, 1707 

150 

KV  2 

66,1742 

151 

DAPTEMP6 

F6  > 1 446 

14  5_ 

-QERROB 

F 6 , 15  22 

148 

..NO.UJFTS 

E6 , 1633 

149 

CDUXD 

E6, 1707 

150 

K 2 

E 6, 1743 

147 

HALFARG 

E6 » 1446 

147 

ODIFF 

E 6 , 1523 

148 

NO. V JETS 

E6, 1633 

151 

DCDU 

F6, 1711 

150 

C2S0M 

E 6 , 1743 

147 

JFTRATE 

E6, 1450 

145 

DZERROR 

E6, 1524 

148 

TJP 

66,1634 

149 

CDUYD 

E6 , 1713 

150 

C2PP 

66,1743 

147 

WCENTRAL 

E6-,X45Q 

145 

—REJLROR— 

E 6,  15 25 

148 

TJU 

E6 , 1635 

149 

CDUZD 

E6 , 1715 

150 

C2MP 

E6, 1743 

148 

HOLOQ 

E6, 1450 

147 

PDIFF 

E 6 , 1525 

149 

TJETU 

E6  f 1636 

149 

DELCDU X 

E6.1715 

150 

KV3 

E6, 1743 

151 

DAPTREG1 

E6 i 1452 

145 

PL4ST 

E6, 1526 

148 

TJV 

E6 , 1636 

151 

DEL  DCDU 

E6, 1715 

150 

K3 

E 6 , 1744 

147 

ACENTR AL 

E6-,  1453 

-145- - 

QL AST 

-E  6,  L527 

1.4  EL  . 

L.PVT-CG 

E6 , 1637 

1 49 

DEL  CDUY 

E6, 1715 

150 

PGF 

E6, 1744 

147 

JETPATEQ 

E6, 1454 

145 

RL  AST 

E6, 1530 

148 

1 JACC 

E6 , 1637 

151 

DELDCDU1 

66,1717 

150 

C1PP 

F6, 1744 

148 

ADRSDIF1 

E6, 1455 

145 

TCQR 

E 6, 1531 

148 

1 JACCQ 

E6 , 1640 

149 

DELCDUZ 

E6 , 1 7 2 1 

150 

C IMP 

E 6 , 1744 

151 

DAP  TREG2 

F6,  14-56 

1-45 

-QL  DPMI  N 

E 6, 1532 _ 

148 

1 JACGR 

. F 6,  1640 

151 

DELPCDU2 

E6 , 1 723 

150 

BR  ATE 

F 6 , 1745 

147 

DEI 

E 6 * 14  57 

145 

OLDQRM  IN 

66,1533 

148 

1 JACCU 

E6 , 1641 

149 

OMEGAPD 

E6, 1723 

150 

COFSKEW 

F 6 , 1 745 

147 

JETRATER 

E 6 1 1460 

145 

SAVFHAND 

E6, 1534 

148 

1 JACCV 

E6 , 1642 

149 

OMEGA  QD 

E6, 1723 

150 

1G 

E 6, 1745 

148 

HH 
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] C ] 

DAP  T-R£  C.  3 

F7rl  4 31 

1 64 

DF1  V SI  V 

£7  , L 5 16 

1-6-2- 

P _ 

£7, 1571 

15-6- 

TnFr.? 

F 7, 1670 

163 

7SCRFF  . ....  . 

F 6, 1746 

146 

DPSBURN 

E7, 1437 

154 

T IG 

E 7 , 1516 

162 

UNI TGOBL 

E7, 1571 

164 

T PI  POL D 

£7,1620 

165 

WCHPHASE 

E 6 , 1746 

147 

QRCNTR 

E 7 , 1441 

154 

RTARG 

E7 , 1517 

156 

RPASS2 

E7, 1573 

156 

DELEL 

E 7, 1621 

165 

FLPASSO 

£6,174-6 

152 

QAPTRF04 

£7,4447 

J.54 

D.ELLJ  4 

E7.1517 

156 

RPPRFC 

£7,1573 

156 

DELVMID 

F7, 1622 

165 

TP  I P 

E6, 1747 

145 

UERROR 

E7, 1451 

154 

TFI 

E7, 1522 

160 

BVECTOP 

E7, 1573 

156 

DELVTPl 

E 7 ,1624 

165 

VGU 

E6, 1747 

147 

FUNCTION 

E 7, 1451 

154 

TTOGO 

E 7 , 1524 

162 

DEL VRF  F 

E7, 1573 

156 

DVPREV 

F 7 , 1 62  6 

157 

TPASS4 

£6 f 1747 

4 5 2 

HA PI RE G5 

F 7, 1 453 

154 

-WHI C-H  _ 

F 7 , 1 5 24 

162 

V 

E7, 1573 

156 

KT 

E7, 1626 

159 

TINT 

E6 , 1750 

145 

VERROR 

E 7 , 1454 

154 

LOSCOUNT 

E7, 1525 

156 

VPASS2 

E 7 , 1573 

164 

/AFC/ 

E7, 1626 

163 

END-AL IG 

E 6 , 1750 

149 

F 

E 7, 1455 

154 

A IG 

E7 , 1525 

156 

VPPREC 

E7, 1575 

156 

DIFFALT 

E7, 1626 

163 

RSUBL 

E6 ,1750 

15  2 

HAP  T-REG6- 

F 7 , 1456 

15 Yl 

A-MG.  . 

E7 , 1532 

162 

HC  A 1 C 

F7l1576 

162 

VIS 

E7, 1626 

167 

END-E7. 3 

F 6 , 1 7 5 1 

152 

DAPARUPT 

E 7 , 1457 

154 

AOG 

E7 , 1533 

156 

RACT3 

F7, 1577 

156 

POSTCSI 

F 7 ,16  2 6 

167 

RCO 

E6, 1752 

152 

DAPLRUPT 

E 7, 1460 

154 

MARKCTR 

E7, 1534 

162 

UNIT/P / 

E7, 1601 

156 

HAFPA1 

E7, 1630 

157 

QTEMP 

£6, 1753 

15  2- 

OAPaQRPT 

- £-7,1460 

154  - 

T-RKMKCN-T 

F 7 , 1 541 

156 

UNVFC 

E7, 1601 

156 

PDSTCDH 

F7.1630 

167 

YCO 

E6, 1755 

152 

DA  P Z RUPT 

E 7, 1461 

154 

NORMEX 

E7, 1541 

156 

VACT3 

E7, 1603 

156 

DELTEEO 

E 7,  1 63  1 

157 

TCST 

E6, 1757 

152 

AK 

E 7, 1462 

154 

QSAVED 

E7 , 1542 

162 

RN1 

E7, 1603 

156 

LOOPCT 

F 7 , 163  2 

165 

LAND 

£6,176-0 

1-5-2 

AK1 

f 7 ,1 463  - 

15-4 

_B!RN _ 

E7, 1542 

164 

LAMLTE  MP 

E7, 1603 

156 

POSTTP I 

E 7 ,1632 

167 

1/DV1 

E6, 1761 

152 

AK  2 

E 7 , 146  4 

154 

NN 

E7, 1542 

164 

OURTEMPS 

E7, 1604 

162 

X SCR  EF 

£7,1633 

157 

TTP  I 

E6, 1762 

152 

EDR I VEX 

E 7,  1466 

154 

SUBFXI T 

E 7, 1544 

160 

DEL  TAQ 

£7,1604 

162 

XSMD 

E 7, 1634 

163 

UCSM 

£6 ,4763 

152  - 

F-D-RI-VF  Y 

£-7,  146-7- 

-155- 

E70Y-ERL.A 

E7, 154.6 

160 

MARKCNTR 

E 7 , 1-604 

164 

PIFPSET 

F7,1634 

167 

1/DV2 

E 6 , 1764 

152 

EDRIVEZ 

E 7, 1467 

155 

WHOCARES 

E7 , 1547 

156 

RPASS3 

E7, 1605 

156 

GAMPREV 

F 7 , 1635 

157 

TTP  I 0 

E 6 , 1765 

152 

DELVEET3 

E 7 , 1467 

156 

VACT1 

E7 , 1547 

160 

XYMARK 

E7.1605 

157 

INTIME 

£7,1636 

167 

1/DV3 

- -E6, 17  73  - 

15-2 

TC'Jh  _ _ 

E 7,  14 6 7 

159 

R-TA-RG1 

E7, 1550 

160 

MKDEX 

E 7 , 1605 

164 

RTNHOLD 

E7, 1637 

157 

RTIG 

E 6 , 1775 

152 

RTX1 

E 7 , 1467 

160 

TX789 

E7 , 1550 

162 

VN1 

E7, 1606 

164 

FWEIGHT 

F 7, 1 640 

165 

TTF/8 

E6, 1776 

152 

END-E6 

E7, 1467 

162 

ABVEL 

E 7 , 1550 

164 

TTF/8TMP 

E7, 1607 

156 

DELPV 

£7,1640 

167 

XRANGE 

F 6,- 17  7-6 

- 152 

--RXX2 — - - 

-E  7, 1467 

164- 

X_NB1_  . 

E7 , 1551 

160 

PLANVEC 

E7, 1607 

156 

DELTEE 

E 7 , 1642 

163 

NEWVFL 

E 7 , 1400 

153 

AT  IG  INC 

E 7 , 1467 

164 

YNB1 

E7 , 1552 

164 

ELINCR 

F 7 , 1607 

156 

TSTRT 

F 7 , 1 64  2 

165 

ELI  NCR  1 

E 7 , 1402 

153 

PT  I G INC 

E 7,  1467 

164 

ZNB 1 

E7 , 1554 

164 

AZINCR 

E 7 , 1607 

157 

X1INPUT 

£7,1642 

165 

VDGVERT 

E 7 , 140-4- 

—153 

-AOTA-Z  - 

F 7,  14  /i 

162 

hLDOID  ISP 

F7 , 1 55-5 

156. 

_y  P A S-S  3 

F7_l16  10 

164 

PIF 

F 7, 1642 

167 

WO 

E7, 1407 

153 

AOTEL 

E 7, 1473 

162 

TTFD ISP 

F7 , 1556 

162 

PIPTI ME1 

F7, 1611 

156 

CSIALRM 

E7, 1642 

837 

TGOl 

F7, 1412 

153 

LR ALPHA 

F 7 , 1475 

156 

RAPREC 

E7 , 1556 

164 

KEEP-2 

E7, 1611 

156 

TITER 

F7, 1643 

165 

A Z I NCR  1 

F7, 1413 

-1-5  3 - 

L-R-8FIA4.  - 

— E 7-.-1 4 J 5 

156 

RPA-S-S1 

E7 , 1557 

.160 

JS I GHT 

E7 , 16 12 

162 

YSCRFF 

F7, 1644 

165 

NTGNLOOP 

E7, 1414 

153 

LR  AL  PH  A2 

E 7,1475 

160 

GAMMA 

E7, 1560 

162 

GDT1/2 

E7, 1612 

162 

YSMD 

£7,1644 

165 

RODCOUNT 

E 7 , 1415 

153 

LR  BETA  2 

E 7 , 1 475 

162 

SAVET-30 

E 7 , 1560 

164 

FCODD 

£7,1612 

164 

PSEUD055 

E 7 , 1 644 

165 

ZFRL INA 

E-7  , 14X6 

1 53- 

LR  HM  AX 

E-7 ,14  7 7 

— 162 — 

DELV-CTL 

__E7 , 156.0 

164 

JCABLTtF 

E7, 1613 

I 56 

VFPRNOUN 

F 7, 1644 

167 

ENGOFFOT 

E7 , 1417 

153 

LRVMAX 

E7, 1477 

162 

VGBODY 

E7, 1562 

164 

FP 

E7, 1613 

164 

FC 

E7, 1645 

157 

VTIG 

E 7 , 1420 

153 

LRWH 

E 7, 1500 

160 

OMEGA 

E7 , 1563 

156 

VACT4 

£7,1614 

156 

ROOT  V 

F7, 1645 

165 

ELVIRA 

-E  7, -1421 

l-53_ 

1RXV1 

-E7,  1503 

156 

V A°R,  EC 

E7 , 1563 

157 

VTPR 1 M F 

E7, 1614 

157 

ITCTR 

E7.1645 

165 

NGUIDSUB 

E7 , 1422 

153 

LRWVY 

E7, 1503 

156 

VPASS1 

E7, 1566 

162 

MASS  1 

E7 , 1615 

164 

TTHROT 

F 7 , 1 64  5 

165 

WCHVERT 

E7, 1423 

153 

LRWVX 

E 7, 1 5 03 

159 

VPASS4 

E7, 1566 

836 

CADPS A VF 

E7 , 1616 

156 

CENTANG 

E 7 , 1645 

167 

VGVECT 

F 7 , 1474 

153 

7-0  OM  T I MF  ... 

‘.7,150  5 

162 

D-VT-OJAL 

E 7 , 1566 

856 

1 /DVO 

E7, 1616 

164 

FCOLD 

E7 , 1646 

165 

LRADRFT 

E7 , 1425 

153 

TENDBR AK 

E 7, 1507 

162 

GOBL  TIME 

E7, 1566 

865 

DVCNTR  1 

E7, 1617 

164 

E2DPS 

E 7, 1647 

165 

VSELECT 

E7 , 1426 

153 

TENDAPPR 

E 7, 1511 

156 

VACT2 

F7, 1567 

836 

MMSAVE 

F7 , 16  17 

164 

OURPERMS 

£7,1650 

163 

NFWPOS 

E 7 , 1427 

-1 5-3 

RP  CR-T I ME 

— E7-,.  15  11 

162 

ABDVCONV 

EX,  1570 

162 

R1S 

E7, 1617 

164 

WCHPHDLD 

£7,1650 

165 

VMEAS 

E 7 , 1430 

153 

P PC  R TO  SW 

E 7 , 1 5 13 

162 

DVCNTR 

E7, 1571 

156 

DEL VCS  I 

F7 , 1620 

157 

DEL V I MU 

E7, 1652 

165 

HMEAS 

E 7 , 1431 

154 

DELVLVC 

E 7, 15  14 

162 

T GO 

E7 , 1571 

156 

SEC  MA  X 

E7, 1620 

162 

ZSMD 

E 7, 1653 

157 

DEL VSI N 
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DEE 

_E-7 , l 7nn 

\ hh 

TRAKL AT V 

E7, 1741 

F7 , 1654 

165 

GNUR 

E 7,'  1701 

159 

VXRCM 

E7, 1741 

E 7, 1654 

165 

GNUV 

E 7, 1701 

166 

TRAKFWDV 

E7, 1741 

F 7 t 1 K54 

1 f'  5 

LR7W3RE 1 1 

E 7, 170? 

_ 160- 

E3 

E7 , 1743 

F 7, 1654 

165 

VN2 

E7, 1702 

160 

MY 

E7 , 1743 

E7, 1655 

167 

END-E7  .5 

E 7, 1702 

166 

VHY 

E7, 1743 

F 7 , 16  56 

163 

LNCHTM- 

F 7,3.7  03 

166 

VJHZ 

F7, 1744 

E 7 , 1660 

163 

TRAN STM 

E 7, 1 7 04 

158 

VGPREV 

E 7,  1744 

E7, 1661 

157 

DELVSAB 

E 7 , 1704 

158 

VGT  IG 

E7 , 1744 

_ F 7 , 1 661 

157 

VG  01 SP  _ 

E 7, 1704 

166 

VVECT 

E7 , 1744 

E 7 , 1662 

163 

NCSMVEL 

E 7, 1707 

159 

LOSDESRD 

E7, 1745 

F 7 , 1662 

165 

DELTAH 

E 7 , 17  07 

166 

ALTRATE 

E7, 1746 

E 7 ,1663 

157 

. QTFMP1 

E 7, 1710 

160  . 

MZ  . 

— E 7 , 1750 

E7 , 1663 

157 

RGEXIT 

E7, 1710 

166 

ALTSAVE 

E7, 1752 

E 7 , 1663 

157 

SAVQR52 

E 7 , 1712 

166 

LADQSAVE 

E7 , 1754 

E 7 , 1 664 

15  7 - 

C0ZV4 

£7,1712 

_ 829 

PIPCTRJ. 

E7,  1756 

F 7 , 1664 

165 

FUELNEED 

E7, 1713 

158 

VG 

F7 , 1 760 

E 7 , 1664 

165 

FUNNYDSP 

E 7, 1713 

166 

DT 

E7 , 1766 

E7, 1 664 

165 

T-R  EX)  ES- 

F7, 17 14 

L6-6  _ 

DALTRATE 

E7  ,-1774 

E7, 1665 

165 

LOOKANGL 

E 7 , 1 7 1 5 

159 

UXVECT 

E7, 1777 

E 7 , 1666 

157 

XXXALT 

E 7 , 1 7 1 5 

166 

QAX  I S 

4000 

£ 7 , 1666 

16  5 

E-OURPE-RM 

£ 7 ,3  7 1 5 

166 

UHYP 

4000 

E 7 , 1666 

165 

LRLCTR 

E 7 , 1 7 16 

160 

SCAL  SHF  T 

4000 

E7 , 1 667 

165 

LRRCTR 

E 7 , 1 7 17 

160 

RXZ 

4000 

F 7 , 1670 

157 

-END- IN/M 

£7,1721 

L5  8 

VRPREV. 

4000 

E7, 1670 

158 

BDT 

E 7 , 1721 

160 

ULC 

4000 

E7, 1670 

159 

ER  ADM 

E7, 1723 

159 

UYVECT 

4000 

E 7,-1670- 

1-66 

LRMCTR 

E 7, 172-3- 

_ L66 

UHZP 

4000 

E 7 , 1 67 1 

166 

LRSCTR 

E 7 , 1 7 27 

158 

TNI  T 

4000 

E7, 1672 

159 

INCORPEX 

E7, 1727 

160 

SINTHETA 

4000 

E 7*167  2 

166 

-SI  I LB  A DH 

E 7,1731 

15  8 

LNITPREV 

4000 

E 7 , 1673 

159 

RLMSRCH 

E7, 1731 

159 

DATAGOFID 

4000 

E 7 , 1673 

160 

IGRET 

E 7 , 1 7 3 1 

161 

RRTRUN 

4060 

-E  7,  16-73 

16  0— 

_ l-GRFT 

£7, 1731 

X66- 

DELV-S 

4 L01 

E 7 , 1673 

160 

RDRET 

E7, 1732 

159 

omegad 

4144 

E 7 , 1673 

166 

ST IL  BA  DV 

E7, 1732 

159 

OMEGDI SP 

4201 

- E-7,  1674 

— 160 

FO - - 

E 7,  1733 

158  _ 

F 

4242 

E7, 1674 

160 

MX 

F7, 1733 

161 

RRSHAFT 

4242 

E 7 , 1674 

166 

LATVMETR 

E 7,1734 

159 

NSRCHPNT 

4303 

E 7,16  75- 

166 

FPRVMETR 

F 7, 1 735 . 

158— 

MOOT 

4317 

E7, 1676 

158 

UT 

E 7 , 1735 

159 

SAVLEMV 

4317 

t 7 , 1 6 7 6 

160 

El 

E 7 , 1735 

161 

LRS22. IX 

4320 

E7, 1676 

166 

LA  TV-EL 

-E.7,  1736 

161 

RRBORSI T 

4320 

E 7 , 1677 

166 

FORVEL 

E 7 , l 737 

158 

T DEC  AY 

4350 

F 7, 1700 

160 

E2 

E7, 1737 

166 

ALTB ITS 

4350 
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VFX 4350  1280 -MAX  A DJCS 4737 55 HTRTHROT 

PUNIT  4355  233  0CT30000  4737  81  MIOFLBIT 

2VFXHUST  4355  1094  BIT13-14  4737  83  EPADFBIT 

TRFTLIRN1 4355  1094  PRI030 4737  84  ACMODBIT 

R65CNTR  4356  474  B12-1  4737  86  REF  SMB  I T 

LASTIADW  4357  1280  S8B ITS  4737  88  NRMID8IT 

N49FLAG  _ 4360  1094  0CT23 4737  90  SNUFFB  IT 

PDOTMSAV  4361  394  DEC  1 7 4737  91  S32BIT3A 

END-E7.0  4361  892  170MS  4737  93  IGNFLBIT 

END-E7  .4 4362  1094  0CT25 4737  95 NFWI3IT 

END— F 7 .1  4362  1384  UP21  4737  98  APSFLBIT 

RDDTM  4363  1094  TEN  4737  101  RCDUOBIT 

TANGNB 4512  478  ENDPINBF 4737  103  CSMDOCKD 

MKT  I ME  4616  536  ENDPMODF  4737  232  0CT10000 

RM  4733  1499  1/.03  4737  800  FEXTRA 

_ P 2 1 T I M F 4734  1090  LIMITS 4737  1094  PRI010 

SC AX  I S 4735  81  CPHIBlf  4737  1094  QUARTER 

PTINTVSM  4735  83  NJETSBIT  4737  1279  SBIT13 

FND-F7  .2 4735  84  DRFTBIT 4740  81  MOONBIT 

END-F7  4735  88  MRKIDBIT  4740  85  LOSCMBlf 

FFTAG1  4735  89  DSKYFBIT  4740  R6  LUNABIT 

FFTAG1  0 4735  91  S32BIT1 4740  88  PDSPFBIT 

FFTAG11  4735  93  ITSWBIT  4740  90  NOTHRB I T 

FFTAG12  4735  95  RPQFLBIT  4740  91  S32BIT3B 

FFTAG1  3 4735  99  LRBYBIT 4740  93  ASTNBIT 

FFTAG2  4735  101  CDESBIT  4740  95  CMOONRIT 

FFTAG3  4735  103  PULSES  4740  96  FLPCBIT 

EFT  A 3 4 4735  1094  NEGMAX 4740  100  VXINHBIT 

FFTAG7  4735  1094  VLOADCDD  4740  101  ANTEN8IT 

FFTAG8  4735  1279  S8IT15  4740  103  0URRC3IT 

F F T A G 9 4736  81  JSWCHBIT  4740  826  TTFSCALE 

RA3ARFF  4736  83  DIDFLRIT  4740  1094  PR  1 04 

UPRPTBB  4736  84  SRCHDB I T 4740  1279  SBIT12 

nr.T60000 4736  86  GLOKFB  IT 4741  58  MINCSM 

VFRBMASK  4736  88  PRIODBIT  4741  85  STEERB IT 

PINSUPBT  4736  91  S32BIT2  4741  86  MR29FBIT 

V00N34 4736  93  MANUFB  IT 4741  88  MW  A I TBIT 

VB97DEX  4736  96  FLVRBIT  4741  90  R77FLBIT 

ENDBLFF  4736  98  INTFLBIT  4741  92  FIRSTBIT 

FOURTEEN  _ 4736_  101  REMODBIT  474J.  93.  SWAMDB  IT 


OCT  16 

4736 

103 

USEQRJTS 

47  41 

95 

L MOONBIT 

0CT1  1 

4736 

1094 

HALF 

4741 

97 

FLPIBT  T 

NINE 

4736 

1094 

P0S1/2 

474  1 

100 

°STHIRIT 

FBANKMSK 

4736 

1094 

PRI020 

4741 

101 

REPOSRIT 

BANKMA SK 

4736 

1279 

SB  IT  14 

4741 

103 

ACC40P  2X 

PAGF 

158 

166 

779 

1 58 

161 

166 

160 

161 

167 

167 

167 

161 

_ 161 

161 

161 

161 

161 

161 

167 

167 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

2_7_ 

27 

169 

1094 

1366 

465 

224_ 

752 

469 

1068 

1068 

1090 

1094l 

1005 

1094 
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10  0- 

UU  -N-HB  I t 

- 4747 

1 00- 

&FAOV-RIT 

4752 

...  _S.7__ 

-DBOR  9B  T T . 

4752 

1368 

. OCT7 _ _ 

1C94 

EBANK4 

4744 

102 

LRVELB1T 

4747 

102 

LRALTR  IT 

4752 

91 

MGLVFBIT 

4760 

1094 

NOUTCON 

1094 

PR  102 

4744 

104 

DRIFTBIT 

4747 

104 

AORBSYST 

4752 

93 

AUXFLBIT 

4761 

950 

PRFMSTAQ 

L0Q4 

-2K 

47A-4 

1279 

S-BITB 

4747 

62  3 

HLITF 

4752 

94 

V82EMB  IT 

4761 

1068 

THIRTFEN 

1279 

SB  I T 1 1 

4744 

1325 

I MUSEFLG 

4747 

752 

CNTDNDEX 

4752 

96 

INITABIT 

4764 

1091 

0FC27 

83 

R61FLBIT 

4744 

1499 

.0125RS 

4747 

756 

OCT  20 

4752 

97 

MIDAVB  IT 

4765 

1091 

DEC  29 

88 

CYCJ_  EB  IT 

4745 

82 

RNDY-ZBIT 

_ 4747 

758 

LSI  1 IN  

4752 

101 

VFLSHBIT 

4766 

294 

250MS+1 

86 

VFL4GB IT 

4745 

83 

UPDATBIT 

4747 

821 

+AZPIT 

4752 

102 

AUTOMBIT 

4766 

1502 

RAT  EL  1 M 1 

88 

NWAI  TB  IT 

4 74  5 

85 

ETPIBIT 

4747 

1279 

SB  I T5 

4752 

104 

AUTRATE2 

4767 

1502 

RATEDB1 

- _ 9-0 

RMG-SXELI T 

4745 

85 

. OPTNBI I 

__  4747 

1407 

CAL  1 ON  LH 

4752 

753 

RLANKDEX 

4771 

319 

MIXCON 

92 

GMBDRBIT 

4745 

87 

CULTBIT 

4750 

82 

NEEDLB  IT 

4752 

821 

+ELBIT 

4771 

1280 

CNTRCON 

93 

NORMSB IT 

474  5 

89 

PRONVRI T 

4750 

86 

PFRATB  IT 

4752 

1094 

TWO 

4771 

1325 

BIT  S4£  6 

_SL5_ 

-E-LUNCB-LT  .. 

_ 4 745 

. 9.0 

E_NGQN8J  T . 

4750 

87 

INTYPB  IT 

4752 

1279 

S + 2 

4774 

1329 

0CT62 

97 

FLRCSBIT 

4745 

92 

POUTBIT 

4750 

89 

NRUPTP  IT 

4752 

1279 

SB  I T 2 

4775 

1094 

OCT 120 

100 

MOLRRB IT 

4745 

94 

IOLEFBIT 

4750 

91 

NORRMB IT 

4752 

1382 

UP72 

4776 

l 094 

OCT  140 

102- 

-DESLGBJI. 

4245- 

95  . 

INFINB 1 T _ 

4750 

94 

PPL  DEBIT 

4753 

82 

OLDESB  IT 

4777 

394 

1SECX 

103 

AORBTR AN 

4745 

99 

RE1NTBIT 

4750 

96 

COGAFB  IT 

4753 

86 

NODOB  IT 

4777 

770 

SEC01 

145 

PBIT 

4745 

100 

VFLDAB IT 

4750 

100 

RNGEDB IT 

4753 

88 

DIMOBIT 

5006 

928 

VB05N09 

-10-94 

PRIOJ 

4 745 

— 102- 

RCDUFB IT 

4750 

10  2 

RRDATABT 

4753 

89 

XDSPBIT 

5007 

238 

STAPTEB 

1279 

SB  I T10 

4745 

L 04 

RHCSCAL  E 

4750 

104 

DBS  EL  E CT 

4753 

91 

RENOWB I T 

5007 

1094 

EBANK3 

82 

P25FL8  IT 

4745 

1091 

SUPE  R 100 

47  50 

247 

OCT  000  10 

4753 

93 

ATTFLB IT 

5007 

1280 

ERA  SC0N6 

8-5- 

I MPU-LB  I T - 

4745  1279 

-SB  I T 7 

. 4750 

-8Z6_ 

T-SCAI  I NV 

-475.3 

.94 

TFFSWBIT 

5007 

1423 

QGIMBITS 

87 

READRB IT 

4746 

82 

RRNBBIT 

4750 

1094 

EIGHT 

4753 

96 

360SWB I T 

501  1 

36 

FPASID 

87 

R04FLB IT 

4746 

84 

NOUPFBI T 

4750 

1279 

SB  I T4 

4753 

98 

AVEMDBIT 

5012 

1280 

S10BTTS 

PS 

MR K-NVB  IT 

4 7-4-6 

8-5 

_E  INAL  BIT 

- h 750 

JL414 

DSPLYAJ-T 

4153 

101 

UFLSH8IT 

501  4 

606 

NR  2Q£RDR 

90 

DMENFBIT 

4746 

87 

ORBWFBIT 

4751 

82 

FPEFFB  IT 

4753 

103 

TURNONBT 

5014 

1427 

RITS9, 11 

92 

2 P HA  SB  IT 

4746 

89 

PINBRBIT 

4751 

84 

SUPER  IT 

4753 

104 

AUTRATE 1 

501  5 

1094 

FBANK6 

S4 

Rvswei  t 

_ 9-0 3-AXTSR  T T 

4751 

8.6 

c.ai  r 3B  it 

4753 

774 

LAGSTJ  ST 

5 02  0 

906 

BITSET 

55 

P39SWB IT 

4746 

92 

REDFLBIT 

4751 

87 

V I N TF  B I T 

4753 

821 

-FLB IT 

5020 

1280 

SBNK03 

57 

LETABBIT 

4746 

94 

V37FLBIT 

4751 

89 

MKOVP I T 

4753 

1094 

ONE 

5020 

1423 

RGIMBITS 

- 1C.0-- 

XORF-LB  IT  - 

95 

ORDER3IT 

4751 

91 

SOLNSPJT 

4753 

1279 

S + l 

5024 

1294 

OC  T 1 4000 

102 

ALTSCB  IT 

4 746 

97 

FLZONBI T 

4751 

92 

NTARGB IT 

4753 

1279 

SB  I T 1 

50?  5 

196 

0CT15000 

103 

XOVINHIB 

4746 

100 

READLB IT 

4751 

94 

VER IFB  IT 

4753 

1382 

UP7  l 

5026 

196 

33RDMSK 

1279 

SB 1T9 

4746 

-102- 

__LRP  OS  BIT 

4731 

97 

MID 1FB IT 

4754 

1280 

S-ZERO 

5026 

238 

I M3  3 IN  T T 

1303 

SPSCCOE 

4746 

104 

ULLAGER 

4751 

101 

SCABS  I T 

4755 

250 

DNLAOPOO 

5155 

1378 

OOALARM 

82 

IMUSEB IT 

4746 

821 

-AZB IT 

4 751 

102 

RRR SPI T 

4755 

950 

P51ZER0 

5270 

196 

GLOCKOK 

83- 

— VEHUPaj-T 

4746  1279 

SBIT6 

4751 

104 

ACC  SOK AY 

4755 

1279 

S+ZERO 

5270 

2 04 

FNDDAPT4 

85 

XOELVB  IT 

4747 

82 

LOKONBIT 

4751 

623 

VL  ITE 

4755 

1382 

UP70 

5270 

205 

RCSMONEX 

87 

PREC IBIT 

4747 

84 

TRACKBI T 

4751 

1094 

FOUR 

4756 

238 

NUMGRPS 

5464 

1367 

LINUS 

89. 

— NR  HN-UB-LX 

.4  74  7 

- 85 

A VFZ8  I T 

4751 

1279 

S + 9 

4756 

950 

P 5 1 F I VE 

547? 

778 

TERMFXT V 

50 

COMPTB IT 

4747 

87 

STATEBIT 

4751 

1279 

SR  I T 3 

4756 

1279 

S + 5 

5472 

279 

ENOEXTVB 

92 

MUNFL8 IT 

4747 

89 

MRUPTBIT 

4752 

36 

DFLAYNUM 

4756 

1384 

UPDTPHAS 

5472 

1366 

ENDEXT 

9-4- 

V6ZFLB.IT 

4747 

94 

AVEG-F3 1 T 

4752 

82 

R10FLB  IT 

4757 

45  7 

DSPMSK 

5644 

1378 

ABORT 

55 

SURFFBIT 

4747 

96 

APSESBIT 

4752 

84 

GUFSSB  IT 

4757 

1 094 

L0W3 

5660 

247 

NEG7 

97 

FLAPBIT 

4747 

97 

QUITBIT 

4752 

86 

CALC2BIT 

4757 

1280 

S + 7 

5660 

1280 

S— 7 
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j_  ? _n  m 

n i f?m a 

_?s  a 

6 . ? SPOT 

0 5 1 ? 1 5 7 

217 

LML SAL  05 

11  ,-2  0.00- 

——2-8— 

-QRBXT-ALJ- 

?nf  ?nnn 

sa 

DAPS? 

5742 

752 

VB99DFX 

0 1,2513 

1089 

SW/ 

05,  2157 

219 

LMAGSI05 

11,2266 

36 

LOUNITZ 

20,2000 

30 

LOAODAP 

5742 

1325 

BI  TS3E4 

04,2000 

27 

C0NICS1 

05,2170 

21  5 

LMDSAS06 

11,2270 

36 

LOUNITY 

20, 2000 

30 

RODTRAP 

5JJt2 

0-47-8 

T W F 1-  V.F 

.0  4 , -20-00- - 

27 

F /PRF1G  . 

05,2170 

2 1 7 

l.  Ml  SAL  06  _ 

11,2272 

36 

LODPHALF 

21,2000 

30 

DAPS4 

6000 

27 

FFTAG5 

04,2000 

27 

KEYRUPT 

0 5,  2172 

208 

NCIMDNL  ST 

11,2272 

36 

LOUNITX 

21,2000 

30 

F2DPS*  2 1 

6000 

27 

FFTAG6 

04,2000 

27 

PINBALL4 

05,2172 

211 

LMCST  A DL 

11,2272 

1096 

HALFDP 

21,2000 

30 

RLO 

-60  01 

_7  56- 

9 

- 0 4 ,-2-0-00 

_ 27 

RJ37 

05,2224 

214 

L MR  ENT  06 

11,2272 

1131 

DPI/  2 

21,2000 

30 

R 11 

6010 

224 

V00N25 

04,2000 

27 

R36LM 

05,2224 

216 

LMDSAS  09 

11,2272 

1143 

iei 

22,2000 

31 

KALCM0N1 

6073 

1302 

OC  T 177 

04,2000 

27 

UPDATE2 

05,2224 

217 

LML  SAL  08 

11,2274 

36 

L06ZFR0S 

22,2000 

31 

KALCM0N2 

6-1-06- 

1C  94 

- VL  OA-D* 

-0  4-,-200-Q 

27. . 

. VFRB37  _ 

05, _2226 

217 

LML  SAL  09 

1 1+2274 

1096 

ZERDDP 

22,2000 

31 

RENDEZ 

6111 

1280 

S—  4 

04,2037 

460 

MOOR  OUT  B 

05,2232 

213 

LMR  END  DL 

11,2274 

1132 

2DZER0 

22,2000 

31 

R 30  L OC 

6241 

10S4 

SI  X 

04,2757 

36 

L0DP1/4 

05,2276 

217 

LMLSAL  07 

11,2274 

1 181 

KEPZFRO 

22,2744 

377 

LOC  SKIRT 

6241 

1279 

-04,2  76? 

1181 

B EE  1 9 

05,2303 

2-L5 

LMDSASDL 

11,2274 

124-2 

DP7FR0 

22*3541 

36 

DELRSPL 

6244 

574 

E IN3 

04,2766 

1181 

BEE22 

05, 2357 

217 

L ML  S A L DL 

11,2305 

36 

R MM 

22,3541 

726 

SPLRET 

6244 

1CS4 

L0W2 

04,3322 

1382 

UPPART2 

05,2407 

208 

AGSLIST 

11,2305 

1197 

LDPOSMAX 

23,2000 

31 

APOPER I 

-62  4-4 

1-0-94 

THREE 

-04,3441 

1384 

-UPST-ORE  . 

-05,2407 

2 08 

UPDNLI ST 

11,2307 

36 

RME 

73,2000 

31 

FXTVB1 

6244 

1279 

S+3 

04, 3503 

1385 

UPPART3 

05,2407 

219 

LMAGSI DL 

11,3701 

1242 

DQUARTEP 

73,2000 

31 

INFL IGHT 

6244 

1382 

UP  73 

04,3632 

1 387 

UPOUT 

06,2000 

28 

IM'JCOMP 

11,3701 

1242 

POS  L /4 

23,2000 

31 

INTPRETI 

_ 64-70 

LO-94 

-OC  13-00-02 

04, 3633 

1384. 

UP0UT4 

06, 200.0 

28 

RCSMONT 

11,3717 

1242 

2/3 

23*2000 

31 

MEASINC 

6740 

1020 

Q+2 

05,2000 

28 

AGTMARK2 

06,2000 

28 

T4RUP 

12,2000 

28 

CONICS 

23,2000 

31 

MEASINC1 

6741 

1288 

TCO 

05,2000 

28 

DOWNTELM 

06, 2703 

195 

ICDUFAIL 

13,2000 

29 

I NT  I N I T 

23,2000 

31 

POWFLITE 

- - _ 7662 

-L0.S4 

OC  TLOOlOI  _ 

0_5j-20-QQ  _ 

..  .28 

EPHEM1  _ 

06, 2703 

195 

IMUFA I L 

13,2000 

29 

LATLONG 

73,2000 

31 

P0WFLIT1 

7715 

801 

2, PG.FRT 

05,2000 

28 

FRANDRES 

06, 3132 

203 

DAPT4S 

13,2000 

29 

LEMGEOM 

23,2000 

31 

R61 

7715 

1435 

25/32 

0 5, 2066 

209 

LMORBMDL 

06,3132 

204 

NORRGMON 

13,2000 

29 

ORBI TAL2 

23,2000 

31 

R 62 

7721 

-1-09-4 

_B  121-14 

Q5+2L27 

21 1 

L.MCSTAO-1 

06,3156 

206 

RC S MON  IT 

13+2000 

29 

P 76  L OC 

23,2065 

497 

R62DISP 

7726 

170 

100MRUPT 

05,2127 

213 

LMREND01 

06,3242 

207 

5FAILT  AB 

13,2661 

36 

ATOPOTH 

23,2275 

1277 

RPAD1 

7726 

1408 

MS  100 

0 5,2127 

217 

LMLSALO 1 

06,3252 

207 

6FAILT AB 

13,2734 

36 

ATOPTHIS 

23,2413 

36 

HIDP1/4 

7-7-30- 

1 7-4  - 

— 2-OMR-UPJ 

0 5-,  2 136 

2 LI 

LMCSTAO? 

07*_200n 

28 

AOTMAP  K 1 

13+2747 

36 

MOVA  THIS 

23,2413 

1277 

TFF1/4 

7737 

543 

-45DEGSR 

05,2136 

213 

LMRENDO  2 

07, 2000 

28 

MDDESW 

13,3043 

36 

OTHPREC 

23,2415 

36 

HIUNITZ 

7737 

1366 

PI NMASK 

05,2136 

215 

LM0SAS02 

07,3163 

1325 

IMUFIN20 

13,3057 

36 

THISPREC 

23,241 5 

36 

NB1NB2 

7740- 

539 

— =BIT12- 

0 5+213-6 

217 

LMLSALO 2 

07, 3665 

1324 

OPTSTA  LL 

14,2000 

30 

P50S1 

23,7^15 

36 

THT  SAX  T S 

7740 

989 

MINB12 

05,2136 

219 

L MAG  S I 0 2 

10, 2000 

28 

DISPLAYS 

14,2000 

30 

STARTAB 

23,2417 

36 

H I UN  I T Y 

7744 

1280 

S—  3 

05,2145 

211 

LMCSTA03 

10, 2000 

28 

MIDDGI M 

14,2347 

93  2 

S 50 

23,2421 

36 

HIDPHALF 

7745  1280 

S=2 

-0-5+2145 

713 

LMP-ENDO  3 

10, 2000 

2 R 

PHASFT AB 

14*2452 

934 

R 56 

73,7421 

36 

HIUN ITX 

7745 

1302 

MINUS2 

0 5,2145 

215 

LMDS AS03 

10,2000 

28 

RTBCODES 

14,3121 

942 

R 54 

23,2421 

603 

C0S60DEG 

7746 

1094 

MINUS1 

05,2145 

217 

LMLSAL03 

10,2005 

701 

MIDGI M 1 

15,2000 

30 

EDHFM 

23, 242 1 

1095 

DPHALF 

7746 

-10  94 

—MEG-1 

0 5_,  2L45 

219 

LMA.GS1  03 

__10 , 2206 

1 366 

GDXDSP 

15 , 7000 

30 

°50S 

23,2423 

36 

HI 6ZER0S 

7746 

1280 

S-l 

05,2154 

211 

LMCSTA04 

10, 2212 

1366 

GOXOSPF 

15,2533 

266 

0P1/12 

23,2423 

604 

ZERO/SP 

00,2000 

27 

DL  AY  JOB 

0 5,2154 

214 

LMREND04 

10,2226 

1366 

GOXDSPR 

15,3663 

980 

LUNPOS 

23,2423 

1152 

ZF  Ron 

01,2000 

27 

_ LCLAD.DAP-1 

05.2154 

215 

LMQSAS04 

10, 2231 

1366 

GOXDSPFR 

16,2000 

30 

DAPS  1 

23, 2423 

1277 

TFFZEROS 

01,2000 

27 

RE  START 

05,2154 

217 

LMLSAL04 

10,2723 

1366 

GOAGIN 

16,3555 

1434 

INDXYZ 

24,2000 

31 

PLANTI N 

01 , 2000 

254 

PRDTTAB 

05,2154 

219 

LMAGSI04 

10, 2743 

1366 

GOPLA Y 

17,2000 

30 

DAP  S 2 

24, 2000 

31 

D20S 

01 ,2001 

254 

CADRTAB 

0 5,2157  - 

- 211 

LMCSTA05 

11,2000 

28 

INTPPE  T2 

17,2616 

1 446 

ATTSTEER 

24,2022 

504 

PROG22 

01, 20  16 

254 

2.2SPOT 

05,2157 

214 

L MR  E NO  05 

11,2000 

28 

INTVEL 

17,3041 

1439 

1 4MS 

25,2000 

31 

P?  0 S 1 

01,20  16 

255 

3. 2SP0T 

0 5, 2157 

215 

LMDS A SO  5 

11,2000 

28 

ORBITAL 

17,3664 

150  1 

RATELIM2 

25,2000 

31 

° 20  S 2 

GAP: A S SE M 8L-E -REV  1-5-ION  069  OF-  4-GC  PROGRAM  LUMINARY  BY  NASA  202-1-1-12-01-1 1A:02  NOV.  25,1368 PAGF  1571 


ERASABLE 

£ EQUALS  CROSS- 

•REFERENCE  TABLE  SHOWING 

DEFINITION,  PAGE  OF  DEFINITION, 

AND 

SYMBOL 

DEE 

PAGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

°AGE 

SYMBOL 

DEF 

PAGE 

SYMBOL 

DEF 

PAGF 

SYMBOL 

33, 2000 

33 

-R29/SE RV 

36*2144 

74  1 

-P 1 2SP0T 

40,3532 

1288 

qSPMMjqb 

— 25  f-20-QQ- 
25 ,2000 

31 

RRLEADIN 

30,2000 

33 

LOWSUPER 

33  j 2000 

33 

SERVICES 

36,2144 

741 

P42SP0T 

40,3672 

484 

FNDPINSl 

? S t 7000 

31 

R29S  1 

30,2000 

33 

P12 

33,2731 

879 

ALTCRI T 

36,2147 

741 

P63SP0T 

41,2000 

35 

PINBALL2 

26r 2000 
26,2000 

AS  A 

T2  A 

33, 3 ZOO- 

856 

LO  OX  S 

36.3006 

_ 753 

V99RFCYC 

41*2616 

430 

ENDRTOUT 

31 

MANUVER 

30,3740 

924 

DAZMAX 

33,  3475 

889 

END VDA T 

37,2000 

35 

I MUSUPER 

41,3230 

444 

ENDRUTIN 

26 , 2000 

31 

MANUVER 1 

30,3742 

924 

DELERLIM 

34,2000 

33 

ASCFILT 

37, 2000 

35 

I MU2 

41,3731 

482 

ENDPINS2 

31 

PLANT I Ml 

3 l,_20-00 

33 

F THRO  I.  _ 

34, 2000 

33 

CSt/CDHl 

37_*2000 

35 

IMU4 

42,2000 

35 

PINBALL3 

26, 2000 

31 

P20S3 

31,2000 

33 

F 2DP  S*3  1 

34,2000 

33 

P30S1 

37,2000 

35 

P05P06 

42,2000 

35 

SBAND 

26,3405 

604 

J080VER 

3 1, 2000 

33 

VB67 

34,2000 

33 

R12STUFF 

37,2000 

35 

R31 

42,3602 

449 

ENDHMSS 

2 7 f 2000 

32 

ASFNT1 

32*2000 

33 

ABORTS 

34*2000 

33 

STBLEORB 

37,2000 

35 

SERVl 

43,2000 

35 

EXT VER  BS 

27,2000 

32 

P40S1 

3 2, 2000 

33 

FLOGSUB 

35,2000 

33 

CSI /CDH 

37,3533 

960 

PIPSRINE 

43,2000 

35 

SELFCHEC 

27,2000 

32 

TOF-FF 

32,2000 

33 

F2DPS*32 

35,2000 

34 

GLM 

40,2000 

35 

P INBALL  1 

43,2002 

479 

PINTEST 

3.2 

T n F — _FF  1 

32,20j00 

33 

LRS7  2 

35*2000 

34 _ 

P30S  _ 

40_*2000 

35 

PINSUPFR 

43,2226 

2 84 

OPT  COAR V 

27,2000 

32 

VECPT 

32,2000 

33 

P20S4 

35,2000 

34 

P40S2 

40,2000 

35 

SELFSUP P 

43,3053 

303 

V74 

27,3162 

852 

SETXFLAG 

32,2000 

33 

R47 

36, 2000 

35 

P40S 

40,3322 

456 

ENDECVN 

43,3106 

305 

GOSHOSUM 

\?lh 

Tf  n A fv  7 TO 

32,2000 

SFRV  2 

_36*_Z054 

770 

AC-ADN8  5 

40*3503 

463 

ENDREI  ns 

43*3746 

1381 

CKMDMORE 

30,2000 

33 

ASENT 

32,3707 

865 

OUTGOAVE 

36,2103 

75  6 

SER VC  ADR 

40,3532 

470 

ENDBSU81 

GAp:  ASSFMBL  F REVISION  0 69  OF  AGC  PROGRAM-  L U M-I-NA-RY-  BY  NASA  2021112-011 

SUMMARY  OF  SYMBOL  TABLE  LISTINGS 
4868  DEFINED  NORMALLY 
24-LO DEFINED  BY  EQUALS 


TOTAL : 


-69  7-8 


49Aja2  NOV.  25  » 196  8- 


PAGE.  1972 


GAP : ASSEMBLE  REVISION  069  Of  AGO  PROGRAM  LUMINARY  BY  NASA  202-11-12-0-11 


__1  aj-02-  NOV.-  2 5;  1-9.68 


P-AGE  L-5.73 


MEMORY  TYPE  £ AVAILABILITY  DISPLAY 


0000  TO  0057  SPECIAL  OR  NONEXISTENT  MEMORY  13,3754  TO  13,3777 

14.2000  TO  14,3713 

0060 AV-AI-L  ABLE-  -ERA  SABL  E - -ME  M.QR.Y L4.37L4  .TO.  LA,  3_7  7 7 

0061  TO  1350  RESERVED  ERASABLE  MEMORY  15,2000  TO  16,3757 

1351  TO  1356  AVAILABLE  ERASABLE  MEMORY  16,3760  TO  16,3777 

13  57  TO 1377 RESERVED  ERASABLE  MEMQ-RY 17,2.0.0.0  TO.  17_, 3.765  . 

17,3766  TO  17,3777 

E3 , 1400  TO  E 3 ,17  75  RESERVED  SWITCHABLE  ERASABLE  MEMORY  20,2000  TO  20,3664 

63,-1 776  TO  E-3, 1777  -A.VALL-ABLE SWl_ICiiA  BLE_  _E-RA_S-A-B L£._M EM QRY 20,3665  TQ  20,3777 

E4 , 1400  TO  E4.1762  RESERVED  SWITCHABLE  ERASABLE  MEMORY  21,2000  TO  21,3775 

E4.1763  TO  E4 , 1777  AVAILABLE  SWITCHABLE  ERASABLE  MEMORY  21,3776  TO  21,3777 

E 5 , 1 400.  T D F 5 , 16  41  RFSFRVFD  S W IT  CH  ABLE-  ERA-SABLE-.  MEMORY 22,2000  TO  22,3733 

E5.  1642  TO  E 5 , 17  77  AVAILABLE  SWITCHABLE  ERASABLE  MEMORY  22,3734  TO  22,3777 

E6.1400  TO  E6 , 1776  RESERVED  SWITCHABLE  ERASABLE  MEMORY  23,2000  TO  23,3725 

F6 , 17  77  AVAILABLE  SWITCHABLE  ERASABLE  _M.EMQJ1.Y_  73.3726  TO  23.3777 

E 7 , 1400  TO  E7.1743  RESERVEO  SWITCHABLE  ERASABLE  MEMORY  24,2000  TO  24,3735 

F 7 , 1 7 44  TO  E 7 , 1 7 77  AVAILABLE  SWITCHABLE  ERASABLE  MEMORY  24,3736  TO  24,3777 

25.2000  TO  25.3673 

4000  TO  5770  RESERVED  FIXED  MEMORY  25,3674  TO  25,3777 

5771  TO  5777  AVAILABLE  FIXED  MEMORY  26,2000  TO  26,3724 

6000  JO 7757 RFSFRVFD  FTXFD  MEMORY 26.3725  TO  26,3777 

7760  TO  7777  AVAILABLE  FIXED  MEMORY  27,2000  TO  27,3746 

27,3747  TO  27,3777 

0.0. ,20.00 TO OIL, .3776 _R.FS.FR  V.ED  SWITCHABLE  FIXED  MEMORY  _ 30,2000  TO  30,3750 

00,3777  AVAILABLE  SWITCHABLE  FIXED  MEMORY  30,3751  TO  30,3777 

01.2000  TO  01,3775  RESERVED  SWITCHABLE  FIXED  MEMORY  31,2000  TO  31,3772 

0 1 ,3776  JQ-OL ,37  77 AVAILABLE  SWITCHABLE  FIXED  MEMORY  _ _ 31,3773  TO  31.3777 

32.2000  TO  32,3770 

02.2000  TO  03,3777  SPECIAL  OR  NONEXISTENT  MEMORY  32,3771  TO  32,3777 

33.2000  TP  33.3757 


04.2000  TO  04,3714 
04,3715  TO  04,3777 

05.2000  -T-0  05,3707  - 
05,3710  TO  05,3777 

06.2000  TO  C 6 , 37 1 7 
06, 3720-JG  C 6, 377-7 

07.2000  TP  C 7 ,3  750 

07.3751  TP  07,3777 
-1 0,2000  TQ  10,3751- 

10.3752  TO  10,3777 

11.2000  TO  11,3724 
LI, 3725  TQ  11 ,3777 

12.2000  TO  12,3743 
12,3744  TO  12,3777 
-1 3,2000  TO  13,3753 


RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 

RE-SER-V  ED  -S  W-IXCHA  BLE  -FJJLED MEMORY 

AVAI LABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
-AVAIL  _ARJ  E_  -SWITCH  A Bl  F FTXFD  MFMPRY 
RESERVED  SWITCHABLE  FIXED  MFMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
-RE-SF R_V F D SWITCHA BLF  FTXFD  MFMPR  Y 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAI  LABLE  - SW  I T CHA.BLE  F IX E 0_ME  MORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
JLESER-V  ED SMI  T-C  HA  BL  E_ . ELIXE  D MEM  OR  Y 


33,3760  TO  33, 3777 

34.2000  TO  34,3762 

34.3763  TO  34.3777 

35.2000  TO  35,3740 
35,3741  TO  35,3777 

36.2000  TO  36.3752 
36,3753  TO  36,3777 

37.2000  TO  37,3762 

37.3763  TO  37.3777 

40.2000  TO  40, 3674 
40,3675  TO  40, 3777 

41.2000  TO  41,3733 
41,3734  TP  41,3777 

42.2000  TO  42,3770 
4 2,3771  T CL  4.2 ,3777 


AVAILABLE  SWITCHABLE  FIXED  MFMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
. AVATIABIF  SWITCHABLE  FIXED  MFMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MFMORY 
AVAILABLE  SWITCHABLE  FIXEO  MFMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVEO  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
R FSERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXEO  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MF MORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MFMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAI LABLE  SWITCHABLE  F I XED  MFMORY 
RESERVED  SWITCHABLE  FIXED  MFMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVEO  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVEO  SWITCHABLE  FIXED  MFMORY 
AVAILABLE  SWITCHABLE  FIXED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MFMORY 
AVAILABLE  SWITCHABLE  FIXED  MFMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  FIXED  MFMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  F I XED  MEMORY 
RESERVED  SWITCHABLE  FIXED  MEMORY 
AVAILABLE  SWITCHABLE  F T XED  MEMORY 
RESERVED  SWITCHABLE  FI XED_  MEMORY 
AVAILABLE  SWITCHA BLF  FIXED  MFMORY 
RESFRVED  SWITCHABLE  FIXED  MEMORY 
AV  4 I LABLE  SWITCHABLE  F I XED  MFMORY 


frAP-:-  ASS EM-BLE— R E V LS  I ON  -969  OF  A-G-C- PROGRAM  LUMINARY  BY  NASA  2021112-OU 
MEMORY  TYPE  £ AVAILABILITY  OISPLAY 

43.2000  TO  43,3762  RESERVED  SWITCHABLE  FIXED  MEMORY 
43,3763  TO  43,3777  AVAILABLE  SWITCHABLE  FIXED  MEMORY 

44.2000  TO  57,3777  SPECIAL  OR  NONEXISTENT  MEMORY 

-60,2-000  TO  -6  7 ,-3777 AVAILABLE-  SW  LT-CHABLE  FIXFD  MFMO RY — 

70.2000  TC  73,3777  SPECIAL  OR  NONFX I STENT  MEMORY 
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RY  -NASA 

20  211 1 2- (U  1 

1 9: 

02- 

Nnv. 

25, 1 968 

PAGE  1575 

ROUTINE:  COUNT  DATA  FOR  ROUTINE'S 

i LAST 

REACH: 

T0TA1 : 

CUMUL 

ROUT  I NE: 

COUNT  DATA 

FOR  ! 

ROUTINE'S 

; LAST 

REACH: 

TOTAL: 

: CUMUL 

REF 

C LAST 

TO 

27: 

0 

0 

0 

04/KE YUP 

REF 

i 

LAST 

133? 

TO 

1348: 

69 

69 

4349 

BANKSUM 

REF 

1 LAST 

27  TO 

53: 

72 

72 

72 

04/LT-1G 

REF 

i 

LAST 

60 

TO 

60: 

4 

4 

4353 

nn  ay 

fiFF 

U LAST 

1371  TO 

13  73: 

31 

3.1 

Z03 

04/PI N 

RFF 

2 

[ AST 

477 

TO 

477: 

7 

16 

4369 

OO/INTER 

REF 

1 LAST 

1042  TO 

1082: 

9 74 

974 

1077 

04/P00 

REF 

1 

LAST 

239 

TO 

251: 

3?7 

327 

4696 

l l_n  ] t n 

1 ]4  l : 

2 ftO 

?R0 

1-35  7 _ _ 

04/P 07 

- RFF 

2- 

1 AST 

3_35_ 

TO 

386: 

5 

32 

. 4-728-  - 

Ol/INTER 

REF 

1 LAST 

1082  TO 

1090: 

157 

157 

1514 

04/P?  7 

REF 

i 

LAST 

1382 

TO 

l 390: 

248 

248 

4976 

Ol/RSROU 

REF 

3 LAST 

1301  TO 

1303  : 

55 

168 

1682 

04/R0  2 

REF 

i 

LAST 

1326 

TO 

1329: 

17 

17 

4993 

n i/r'nT-Ar 

RFF 

1 1 A,SH- 

2 54  TO 

-259: 

129 

129 

1811  

0.4/-R3_6._  . 

. ref 

_L 

LAST 

- -7.10 

TO 

71  2: 

93 

93 

5086 

01/R03 

REF 

2 LAST 

308  TO 

312: 

94 

96 

1907 

05/DI  1ST 

RFF 

1 

LAST 

208 

TO 

221  : 

242 

242 

5328 

a } / w att 

REF  - 

2 LA-SJ 

112-6  _xo_ 

1123: 

44 

L89. 

2096  - 

057  D P ROG 

REF 

1 

LAST 

9 86 

TO 

993: 

173 

173 

5501 

02/ALARM 

REF 

2 LAST 

1376  TO 

1381 : 

72 

109 

2205 

05 /E  P HEM 

RFF 

2 

LAST 

982 

TO 

986: 

0 

52 

5553 

02/BANK 

REF 

1 LAST 

993  TO 

997: 

76 

76 

2281 

05/MARK 

RFF 

1 

LAST 

264 

TO 

265: 

32 

32 

5585 

02/DA  PT6 

REF 

1 LAST 

1399  TO 

1400: 

18 

18 

2299 

05 /ST  ART 

RFF 

2 

LAST 

226 

TO 

239: 

465 

466 

6051 

02/DSPLA 

REF 

1 LAST 

1348  TO 

1348: 

16 

16 

2315 

OS/IC  OMP 

REF 

1 

LAST 

339 

TO 

352: 

282 

282 

6333 

Q2VEXEC 

RFF 

2 1 AST 

1111  TO 

1114: 

6 

. 65 

2380 

06/T4P.CS 

RFF 

1 

LAST 

206 

TO 

208: 

69 

69 

640? 

02/EXTVB 

REF 

1 LAST 

1374  TO 

1375: 

4 

4 

2384 

06/T4RPT 

RFF 

2 

LAST 

171 

TO 

206: 

612 

622 

7024 

0?/P-CONS 

- ref 

1_LAST 

1090  TO 

10921 

64 

64 

244  8 

_ 07  /-C  D AS 

- RFF 

1 

-L-4SX- 

261 

m 

261  : 

L6 

1 6 

7040 

02/FLAG 

REF 

1 LAST 

1369  TO 

1371: 

32 

32 

2480 

07/1  MODE 

REF 

1 

LAST 

13  04 

TO 

1326: 

559 

559 

7599 

02/ IMODE 

REF 

1 LAST 

1303  TO 

1304: 

5 

5 

2485 

07/MARK 

REF 

3 

LAST 

2 66 

TO 

276: 

286 

391 

7990 

. . TT2-7  I-NT-iR- 

RFF 

1 4_ASX- 

4,09 7 TO.- 

4. 09-8-J 

32- 

32— 

2517  - 

- . -07  /-P-5  9. 

RFF 

1 

1 AST 

276 

TO 

277: 

3? 

32 

8022 

02/PHASE 

REF 

1 LAST 

1292  TO 

1294: 

71 

71 

2588 

10/DS PI A 

REF 

3 

LAST 

1376 

TO 

1376: 

9 

686 

8708 

o ? / P T N 

_ — ref 

F>  LAST 

Ml  TO 

4-30-1- 

- 37 

24-6 

2 83  4 

UQXM1  D.G 

REF 

1 1 AST 

701 

TO 

704: 

57 

57 

8765 

02/P07 

REF 

1 LAST 

394  TO 

396: 

18 

18 

2852 

10/PHASE 

REF 

2 

LAST 

1294 

TO 

1296: 

66 

75 

8840 

02/RRSUB 

REF 

1 LAST 

531  TO 

537: 

68 

68 

2920 

10/RTB 

REF 

1 

LAST 

1390 

TO 

1399: 

181 

181 

9021 

02/RSROU 

REF 

2 LAST 

1300  TO 

1301: 

10 

17 

2937 

11  /ICONS 

REF 

1 

LAST 

1096 

TO 

1097: 

19 

19 

9040 

02/RUPTS 

REF 

1 LAST 

168  TO 

170: 

54 

54 

2991 

11/INITV 

RFF 

1 

LAST 

695 

TO 

701: 

182 

182 

9222 

0-2VTRAN 

- -R-E-F  - 

1 LAST 

L373  TO. 

1374  : 

15 

- 15 

3006 

11 /OR  BIT 

PEF 

L 

LAST 

1223 

TO 

1 244: 

801 

80  1 

10023 

02/T4RPT 

REF 

1 LAST 

170  TO 

171  : 

12 

12 

301  8 

12/CONIC 

RFF 

3 

LAST 

1185 

TO 

1204: 

481 

993 

11016 

&2-/-WA-J-T — 

R-EF — 

2— LAST 

1124  TO 

1126: 

24 

78 

3096 

13/  G-EX3M- 

REF 

1 1 AST 

334  TO 

338  : 

79 

79 

11095 

03/DAP 

RFF 

1 LAST 

1453  TO 

1455: 

2 

2 

3 09  8 

13/ INTIN 

REF 

4 

LAST 

1217 

TO 

1221: 

134 

625 

11720 

03/FCONS 

REF 

1 LAST 

1092  TO 

1095: 

32 

32 

3130 

13/LT-LG 

REF 

i 

LAST 

1128 

TO 

1135: 

155 

155 

11875 

- 03-/ I NZER 

REF 

3 LAST 

100-9  TO 

104  2: 

73.2 

952 

4082 

13/ORBIT 

REF 

i 

LAST 

61 

TO 

61: 

20 

20 

11  895 

03/KILL 

REF 

1 LAST 

757  TO 

757: 

7 

7 

4089 

13/P76 

REF 

i 

LAST 

717 

TO 

721  : 

98 

98 

11993 

03/PHASE 

REE — 

1 LAST  - 

129-6  TO 

.1297  L 

4- 

4 

4 09  3 

14/1 NELT 

RFF 

i 

LAST 

945 

TO 

947  : 

41 

41 

12034 

03/P00 

REF 

1 LAST 

239  TO 

239: 

8 

8 

4101 

14/10SAM 

PEF 

2 

LAST 

932 

TO 

934: 

67 

75 

12109 

03/P20 

REF 

1 LAST 

604  TO 

606  : 

5 

5 

4106 

14/P5  1 

REF 

1 

LAST 

9 47 

TO 

951 : 

124 

124 

12233 

03/P40 

REF 

1 LAST 

55  TO 

55: 

1 

1 

4107 

14/R50 

REF 

1 

LAST 

944 

TO 

945: 

61 

61 

12294 

03/R24 

REF 

1 LAST 

526  TO 

526: 

9 

9 

4116 

14/R5  1 

RFF 

1 

LAST 

938 

TO 

942: 

136 

136 

12430 

- 0-4/  COALIX— 

REE 

- 3 LAST 

1183  TO 

1185 : 

65 

110- 

4226 

14/R52  - 

REF 

1 

LAST 

953 

TO 

955: 

65 

65 

12495 

04/INTIN 

REF 

1 LAST 

1221  TO 

1223: 

54 

54 

4280 

14/R54 

PFF 

1 

LAST 

943 

TO 

944: 

41 

41 

12536 

* 


1-9 i-0 2-  NOV.  2 5-.-L968 


par.F  1 576 


- GAP-: ASSEPBL-F  REVISION-069 


OF  AGC  P ROGRAM  LUMINARY -BY  NASA  2021112-01 


ROUTINE  : 

COUNT  1 

TATA 

FOR  ROUTINE' S 

LAST 

REACH: 

TOTAL: 

:CUMUL 

ROUT! NE: 

COUNT 

DATA 

FOR  1 

ROUTINE'S 

LAST 

REACH: 

TOTAL :CUMUL 

14/R55 

REF 

1 

LAST 

942  TO 

943: 

27 

27 

12563 

23/R62 

REF 

1 

LAST 

497 

TO 

498: 

11 

11  19928 

14/R  56 

REF 

1 

LAST 

934  TO 

938: 

132 

132 

12695 

24/LPS20 

REF 

1 

LAST 

5 76 

TO 

577: 

47 

47  19975 

1A/QTARQ 

R4EF 

1 

LA  ST 

63  to 

67: 

223 

223 

12918 

2 47 LU  POT 

REF 

2 

LAST 

1135 

TO 

1141: 

151 

169  20144 

14/S52.  1 

REF 

1 

LAST 

951  TO 

952: 

26 

26 

12944 

24/P20 

REF 

2 

LAST 

507 

TO 

513: 

231 

261  20405 

ST 

qs?  in 

9-5  3 r 

18 

18 

12  962 

21/P-2  1 . 

- REF 

L 

LA  S3 

6-65 

TF) 

670: 

66 

6j6  _20j4  71 

15/EPHEM 

REF 

1 

LAST 

98  0 TO 

982: 

74 

74 

13036 

24/P22 

REF 

2 

LAST 

519 

TO 

520: 

5 

5 20476 

15/P51 

REF 

1 

LAST 

959  TO 

962: 

64 

64 

13100 

24/P2  5 

RFF 

1 

LAST 

514 

TO 

516: 

40 

40  20516 

1 5/P52 

REF 

1 

LAST 

926  TO 

932: 

153 

133 

13253 

24/R2  1 

RFF 

1 

LAST 

520 

TO 

523: 

70 

70  20586 

15/P57 

REF 

2 

LAST 

965  TO 

980  : 

402 

531 

13784 

24/R22 

RFF 

1 

LAST 

516 

TO 

519: 

141 

141  20727 

1 S/R5  9 

REF 

7 1 A ST 

95-5— xn_ 

959: 

-JL5-9 

199 

13983-  . 

_ 24/ R23  _ 

RFF 

1 

LAST 

523 

TO 

525: 

41 

41  20768 

16/ DAP 

REF 

i 

LAST 

1465  TO 

1467: 

60 

60 

14043 

24/ R 2 4 

REF 

2 

LAST 

526 

TO 

528: 

18 

41  20809 

16/ DA  PI D 

REF 

i 

LAST 

1405  TO 

1409: 

136 

136 

14179 

24/R2  9 

REF 

? 

LAST 

616 

TO 

619: 

69 

87  20896 

16/DAPP 

REF 

1 LAST 

1416 

TO 

14  36: 

780 

780 

14959 

25/LP  S20 

REF 

1 

LAST 

577 

TO 

5 80: 

12 

12 

20908 

17/DAPBU 

REF 

1 LAST 

1501 

TO 

1501 : 

51 

51 

15010 

25/RL  EAD 

REF 

1 

LAST 

502 

TO 

504: 

47 

47 

20955 

1 7/ DAPQR 

R-E£ 

L LAST 

1436 

TO 

1453: 

612 

612 

1562  2 

25V  ERUPT 

REF 

3 

LAST 

622 

TO 

624: 

50 

262 

21217 

1 7/DA  PT  J 

REF 

1 LAST 

1455 

TO 

1465: 

313 

313 

15  935 

25/PSUB 

REF 

2 

LAST 

572 

TO 

5 76: 

60 

626 

21843 

1 7 / DA  P-T  6 

REF 

? 1 AST 

1400 

TO- 

1401: 

- 5 

35 

1 59  70 

26/BA LL 

REE  - 

1 

LAST 

490  TO 

494: 

50 

2L893 

2 0/ DA  PA  0 

REF 

4 LAST 

1490 

TO 

1501: 

336 

655 

16625 

26/LRS24 

REF 

1 

LAST 

598 

TO 

603: 

170 

170 

22063 

20/DAPIF 

REF 

1 LAST 

1401 

TO 

1405: 

67 

67 

16692 

26/LSP22 

REF 

l 

LAST 

586 

TO 

598: 

525 

525 

22588 

2Q7E2HPS 

REE 

L LAST 

azi 

T£L 

822: 

6 

6 

1 6698 

26/LUROT 

REF 

1 

LAST 

1141 

TO 

1144: 

35 

35 

22623 

20/NEEDL 

RFF 

1 LAST 

1409 

TO 

1416: 

145 

145 

16843 

26/R06 

REF 

1 

LAST 

486 

TO 

490: 

99 

99 

22722 

- _ 2 02  R 0 3- 

REF 

L LAST 

-30  7 

JOS:- 

73 

73 

16916 

26/ R 6 3 

REF 

1 

LAST 

352 

TO 

364: 

65 

65 

22787 

21/DAPGT 

REF 

1 LAST 

1467 

TO 

1480: 

357 

357 

17273 

27/KT  LL 

REF 

1 

LAST 

757 

TO 

760: 

38 

38 

22825 

21/F2DPS 

REF 

1 LAST 

819 

TO 

821  : 

60 

60 

17333 

27/P40 

REF 

2 

LAST 

760 

TO 

762: 

83 

93 

22918 

21/P70 

REF 

2 LAST 

837 

TO 

837: 

16 

86 

17419 

27 /RTEST 

REF 

1 

LAST 

603 

TO 

604: 

37 

37 

22955 

21 /RIO 

REF 

2 LAST 

897 

TO 

909: 

4 67 

473 

17892 

27/S40. 1 

REF 

1 

LAST 

772 

TO 

776: 

101 

101 

23056 

34-/R11 

REF 

1 LAST 

829 

TiT 

-83  0: 

52 

52 

17944 

23/ S 4 0.2 

RFF 

l 

LAST 

776 

TO 

777: 

28 

28 

23034 

21/SERV 

REF 

1 LAST 

873 

TO 

874: 

20 

20 

17964 

27/S40.6 

REF 

1 

LAST 

785 

TO 

788: 

40 

40 

23124 

-22/ INGOR REF 1- LAST  1152  TO  1169-: 50 50  180  L 4 27/S40.B REE 1 I AST  777  TO  780:  66 66  23190 


22/KALC 

REF 

1 

LAST 

364  TO 

383: 

670 

670 

18684 

27/S40.P 

REF 

2 

LAST 

783 

TO 

785: 

97 

90 

23289 

22/R30 

REF 

2 

LAST 

721  TO 

728: 

199 

203 

18887 

27/S41.1 

RFF 

1 

LAST 

788 

TO 

789: 

4 

4 

23293 

Z2/-SR30S 

REE  _ . 

J- 

LA  SI 

72.8  TO 

J32: 

62 

62 

18949 

27/TFF 

REF 

2 

LAST 

1265 

TO 

1279: 

266 

268 

23561 

2 3/ EXTV  B 

REF 

1 

LAST 

286  TO 

286: 

33 

33 

18982 

27/VECPT 

REF 

1 

LAST 

494 

TO 

497: 

130 

130 

23691 

23VGF0M 

RFF 

1 

LAST 

338  TIL 

33-9: 

_ 20-_ 

20 

19002 

27/40 . 1 3 

REF 

1 

LAST 

780 

TO 

783: 

105 

105 

23796 

23/ICONS 

REF 

1 

LAST 

1095  TO 

1096: 

16 

16 

19013 

30/ASFNT 

REF 

2 

LAST 

846 

TO 

858: 

496 

498 

24294 

23/INCOR 

REF 

2 

LAST 

1148  TO 

1152: 

196 

334 

19352 

30/FCDUW 

RFF 

1 

LAST 

909 

TO 

926: 

441 

441 

24735 

23/INFLT 

REF 

1 

LAST 

1244  TO 

1254: 

186 

186 

19538 

30/P  1 2 

REF 

2 

LAST 

8 39 

TO 

844: 

197 

201 

24936 

23/PERAP 

REF 

1 

LAST 

704  TO 

710: 

78 

78 

19616 

31 /EXTVB 

REF 

1 

LAST 

619 

TO 

622: 

l 13 

113 

25049 

237  P OWE  L 

. REF 

L 

-LAST 

1254  TCL 

1265.: 

176 

L76 

19792 

31 /F2DPS 

RFF 

5 

LAST 

822 

Tn 

829: 

149 

686 

25735 

23/R61 

REF 

1 

LAST 

528  TO 

531: 

125 

125 

19917 

31 /P6567 

REF 

1 

LAST 

795 

TO 

797: 

45 

45 

25780 
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— 1 9-1  02--N0  2-5-,19.6R- 


-PAfLE  15  77 


ROUTINE : 

COUNT  DATA 

FOR  ROUTINE1 S 

LAST 

REACH: 

: TOTAL: 

:CUMUL 

ROUT  I NE: 

COUNT  1 

DATA 

FOR  1 

ROUTINE' S 

LAST 

REACH: 

TOTAL: 

:CUMUL 

3 1/R1 3 

REF 

1 

LAST 

R04 

TO 

805: 

41 

41 

25821 

35/P40 

REF 

1 

LAST 

755 

TO 

756: 

23 

23 

29956 

31/THROT 

REF 

3 

LAST 

797 

TO 

802  : 

126 

131 

25952 

36/P40 

REF 

5 

LAST 

766 

TO 

772: 

150 

765 

30721 

1 

I A RT 

—55 

30 

56-: 

U 

L 

-25933- 

-36XE-41- 

_ REF 

1 LAST.  762 

TO 

764: 

78 

IS 

30799 

32/LRS22 

REF 

2 

LAST 

580 

TO 

586: 

122 

126 

26079 

36/P42 

RFF 

1 

LAST 

764 

TO 

765: 

22 

22 

30821 

l A RT 

51)5 

TO 

-5073 

1-03- 

103- 

267-87  - 

36XPA-7 

RFF 

1 

1 AST 

765 

t n 

76ft: 

5 2 

52  30873 

32/P63 

REF 

1 

LAST 

789 

TO 

795 : 

181 

181 

26363 

37/P05 

REF 

1 

LAST 

1330 

TO 

1 332: 

32 

32 

30905 

32/P70 

REF 

3 

LAST 

837 

TO 

839: 

30 

228 

26591 

37/ PO  6 

REF 

1 

LAST 

1329 

TO 

1330: 

47 

47 

30952 

R FF 

1 

LAST- 

611 

TO  _ 

-616: 

149- 

149 

-26740 

3 7/P  0 7 

RFF 

3 

LAST 

396 

TO 

411  : 

267 

5 R 7 

31  539 

32/R47 

REF 

1 

LAST 

221 

TO 

226: 

1 38 

138 

26878 

37/R3  1 

REF 

i 

LAST 

712 

TO 

717: 

177 

177 

31716 

^?/ RFRV 

REE- 

z 

LAS'L- 

. 894 

T Q 

_8.94: 

14 

_ 69 

2694  7 

37/SERV  - 

RFF 

3 

LAST 

8 70 

TO 

R73: 

73 

165 

31  881 

33/R29 

REF 

1 

LAST 

606 

TO 

610: 

97 

97 

27044 

40/EXTVB 

REF 

1 

LAST 

314 

TO 

319: 

ft  3 

63 

31944 

33/SERV 

REF 

8 

LAST 

894 

TO 

897: 

66 

914 

27958 

40/PI  N 

REF 

10 

LAST 

483 

TO 

486: 

57 

891 

32835 

34/ AS  EN  T 

REF 

1 

LAST 

844 

TO 

846: 

48 

48 

28006 

41 /P I N 

RFF 

8 

LAST 

480 

TO 

483: 

78 

9R5 

33820 

34/CSI 

REF 

1 

LAST 

642 

TO 

660: 

650 

650 

28656 

42/EXTVR 

REF 

2 

LAST 

302 

TO 

303: 

23 

38 

33858 

34/p^  «7Q 

REF 

1 

LAST 

732 

TO- 

133 : 

-230 

-230 

-28886  - 

42/NOUNS 

RFF 

1 

LAST 

319 

TO 

334: 

593 

593 

34451 

34/SERV 

REF 

1 

LAST 

893 

TO 

894: 

33 

33 

28919 

42/PIN 

REF 

2 

LAST 

447 

TO 

450: 

92 

238 

34689 

1 A RT 

TO 

-63  1 1 

47 

47 

28966 

42  /RO  5 

-R-EF 

7 

1 ART 

498 

TH 

507  : 

LL6 

_L18 

34.807 

35/P30 

REF 

1 

LAST 

62  4 

TO 

626: 

23 

23 

28989 

42/R33 

REF 

i 

LAST 

290 

TO 

291: 

27 

27 

34834 

35/P31 

REF 

1 

LAST 

662 

TO 

665: 

61 

61 

29050 

43/EXTVB 

REF 

6 

LAST 

312 

TO 

314: 

56 

484 

35318 

3-57  P 3 2 7 7 

REF  _ 

L_ 

LA  ST 

63  1 TD 

63J: 

91 

91 

791  41 

437PFLASE 

REF 

LAST 

I 2 RB 

TO 

1288: 

14 

14 

35332 

35/P3373 

REF 

i 

LAST 

637 

TO 

642: 

140 

140 

2 9281 

43/P27 

REF 

1 

LAST 

1331 

TO 

1 3B2 : 

22 

22 

35354 

35/  P 3474- 

- . REF 

1 

-LAST 

- 6-70 

TO 

-675 : 

1 10 

110 

-2939  1 

43/80477 

P E-F 

1 

LAST 

291 

TO 

295: 

1 88 

1RR 

35542 

35/P3  575 

REF 

2 

LAST 

675 

TO 

695 : 

528 

542 

29933 

43/SELF 

REF 

1 

LAST 

1279 

TO 

1283: 

314 

314 

35856 

GAP- 
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PARAGRAPHS  GENERATED  FOR  THIS  ASSEMBLY;  ADDRESS  LIMITS  AND  THE  MANUFACTURING  LOCATION  CODE  ARE  SHOWN  FOR  EACH 


4000 

TO 

4377 

P ARAGR APH 

ft  010 

ROPF 

MODULE 

1, 

SIDE 

A,  SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

4400 

TO 

4777 

PARAGRAPH 

a on 

ROPE 

MODULE 

1 , 

SIDE 

B,  SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

5-OC-O- 

TC 

-5  37  7 

PARAGRAPH- 

-A  012  - 

. ROPE 

MODULE 

1, 

SLDE 

A,  SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

5400 

TO 

5777 

PARAGRAPH 

ft  013 

ROPE 

MODULE 

1, 

SIDE 

B,  SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

6000 

TO 

6377 

P ARAGRAPH 

ft  014 

ROPE 

MODULF 

1, 

SIDE 

A,  SENSE 

L I ME 

SET 

7 

( WIRES 

97-112) 

6400 

TC 

677  7 

P ARA-GR-AP  H- 

Jt  0 L5  - 

R-CP  E_ 

MODULE 

1, 

SI  DF 

B,  SENSF 

LINE 

SET 

7 

(WIRES 

97-112  ) 

7000 

TO 

7377 

PARAGRAPH 

ft  016 

ROPE 

MODULE 

1, 

SIDE 

A,  SENSE 

LINE 

SET 

8 

( WIRFS 

113-128 ) 

7400 

TO 

7777 

PARAGRAPH 

It  017 

ROPE 

MODULE 

1, 

SIDE 

B,  SENSE 

LINE 

SET 

8 

(WIRES 

113-128) 

OOt  2000 

TC 

0 0,2  3-77 

P ARAGRAPH- 

_#  02.0  - 

- ROPE 

MODULF 

1, 

SI-DE. 

A,  SENSE. 

LINE. 

SET 

1 

( WIRES 

1-  16) 

00,2400 

TO 

00,2777 

PARAGRAPH 

ft  021 

ROPE 

MODULE 

1, 

SIDE 

B,  SFNSE 

LINE 

SET 

1 

( WIRES 

1-  16) 

00,3000 

TC 

00,3377 

P ARAGRAPH 

ft  022 

ROPE 

MODULE 

1, 

SI  DE 

A,  SENSE 

L INE 

SET 

2 

(WIRFS 

17-  32) 

^ 0-0 ,34-00 

TC 

-0-C-,  3 7-7  7 

..  PARAGRAPH 

_ft_ 023 

- ROPH 

MODULE 

1, 

si  r e 

B,  SENSE 

L TNE 

SET 

2 

(WIRES 

17-  32) 

01,2000 

TC 

01,2377 

PARAGRAPH 

ft  024 

ROPE 

MODULE 

1 , 

SIDE 

A,  SENSE 

L INE 

SET 

3 

(WIRES 

33-  48) 

01,2400 

TC 

01,2777 

PARAGRAPH 

ft  025 

ROPE 

MODULE 

1, 

SI  DF 

B,  SENSF 

L IMF 

SET 

3 

(WIRFS 

33-  48) 

01,-300-0- 

TO 

01,3377 

P ARAGRAPH 

ft.  02.6 

..  ROPE 

MODULE. 

1, 

SIDE 

A,  SENSF 

1.  INF 

SET 

4 

(WIRFS 

49-  64) 

01,3400 

TC 

01,3777 

PARAGRAPH 

ft  027 

ROPE 

MODULF 

1, 

SIDE 

B,  SENSE 

L INE 

SET 

4 

(WIRES 

49-  64) 

Q4t-2000 

TC 

04,2377 

P ARAGRAPH 

-jC-040 

ROPE 

MODULF 

1 , 

-S1DC 

A,-  SCN-SE 

LINE 

SFT 

9 

I WT  R FS 

129-144) 

04,2400 

TC 

04,2777 

PARAGRAPH 

ft  041 

ROPE 

MODULE 

1, 

SI  DE 

B,  SENSE 

LINE 

SET 

9 

(WIRFS 

129-144 ) 

04,3000 

TC 

04,3377 

PARAGRAPH 

ft  042 

ROPE 

MODULF 

1 , 

SI  DE 

A,  SENSE 

LINE 

SET 

10 

(WIRES 

145-160 ) 

04,3400 

TC 

04,3  7J7 

.PARAGRAPH.- 

ft  043 — 

ROPF 

MODULE 

1, 

SIDE 

B,  SENSE 

L INE 

SET 

10 

(WIRES 

145-160) 

05,2000 

TC 

05,2377 

PARAGRAPH 

ft  044 

ROPE 

MODULE 

1, 

SIDE 

A,  SFNSE 

LINE 

SET 

1 1 

(WIRES 

161-176) 

05, 2400 

TC 

05,2777 

P ARAGR  A°  H 

ft  045 

ROPE 

MODULE 

1, 

SI  DE 

B,  SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

Q-5,30QC  - 

-T-C- 

-05,33  77 

--  PARAGRAPH. 

ft  046-  - 

. ROPE 

MODULF 

1 , 

SI  DF 

A,  SENSE 

LINE 

SFT 

1 2 

(WIRFS 

177-192 ) 

05,3400 

TC 

05,3777 

PARAGRAPH 

ft  047 

ROPE 

MODULE 

1, 

SIDE 

B,  SENSE 

LINE 

SET 

12 

(WIRES 

177-192 ) 

06,2000 

TC 

06,2377 

P ARAGRAPH 

ft  050 

ROPE 

MODULE 

2, 

SI  DF 

A,  SENSE 

LINE 

SET 

1 

(WIRES 

1-  16) 

04t-24OQ — 

TC- 

06,27-7-7 

P ARAGR- A PH- 

-ft.  0-51  - 

ROPF 

MODULE 

2, 

-SIDE 

B,  SFNSF 

LINE 

SET 

1 

(WIRES 

1-  1 6 ) 

06,3000 

TC 

06,3377 

PARAGRAPH 

ft  052 

ROPE 

MODULE 

2, 

SIDE 

A,  SFNSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

06,3400 

TC 

06,3777 

PARAGRAPH 

ft  0 53 

ROPE 

MODULE 

2, 

SIDE 

B,  SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

0 7 , 2-000 — 

JX 

C 7,23-77 

. _P  ARAGRAPH- 

ft  .054  - 

ROPE 

MODULE- 

2. 

SIDE 

A,  SENjSF 

LTNF 

SFT 

3 

( WIRFS 

33-  48) 

07,2400 

TO 

07,2777 

PARAGRAPH 

ft  055 

ROPE 

MODULE 

2, 

SIDE 

B,  SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

07,3000 

TC 

07,3377 

PARAGRAPH 

ft  056 

ROPE 

MODULE 

2, 

SI  DE 

A,  SENSE 

LINE 

SET 

4 

(WIPES 

49-  64) 

074-3-4-00 

TO 

07,3777 

PARAGRAPH 

ft  057  . 

. ROPF 

MODULE 

2, 

SIDE 

B,  SENSE 

L INF 

SFT 

4 

(WIRFS 

49-  64) 

10,2000 

TC 

10,2377 

PARAGRAPH 

ft  060 

ROPE 

MODULE 

2, 

SIDE 

A,  SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

10,2400 

TO 

10,2777 

PARAGRAPH 

ft  061 

ROPE 

MODULE 

2, 

SIDE 

B,  SENSF 

LINE 

SET 

5 

( WIRES 

65-  80) 

LO  ,31100  _ 

TC  10,3317 

_ PARAGRAPH 

ft..  062 

ROPE 

MODULF 

2, 

SIDE 

A,  SENSE 

LINE 

SFT 

6 

(WIRES 

81-  96 ) 

10,3400 

TC 

10,3777 

PARAGRAPH 

ft  063 

ROPE 

MODULF 

2, 

SIDE 

B,  SENSE 

LINE 

SFT 

6 

(WIRES 

81-  96) 

11,2000 

TC 

11,2377 

PARAGRAPH 

ft  064 

ROPE 

MODULE 

2, 

SIDE 

A,  SENSE 

L INE 

SET 

7 

{ WIRES 

97-112 ) 

U-^2400 

T C_ 

-J_U2X?7_ 

-PARAGRAPH  ft  065 

ROPF 

MODULF 

2, 

SIDE 

B,  SENSE 

LINE 

SFT 

7 

(WIRES 

97-112  ) 

11,3000 

TC 

11,3377 

PARAGRAPH 

ft  066 

ROPE 

MODUL c 

2, 

SIDE 

A,  SENSE 

LINE 

SFT 

8 

(WIRES 

113-128) 

11,3400 

TC 

11,3777 

PARAGRAPH 

ft  067 

ROPE 

MODULE 

2, 

SI  DE 

B,  SENSE 

LIME 

SET 

8 

(WIRES 

113-128) 

12, 2000 

-XC_ 

12,23.7  7 

P.  ARAGRAPH 

.ft.  QXQ 

ROPE 

MODIJI  F 

2, 

SI  DE 

A,  SENSF 

LINE 

SFT 

9 

( WIRES 

129-1441 

12,2400 

TC 

12,2777 

PARAGRAPH 

ft  071 

ROPE 

MODULE 

2, 

SI  DE 

B,  SENSF 

LINE 

SET 

9 

(WIRES 

129-144) 

12,3000 

TO 

12,3377 

PARAGRAPH 

ft  072 

ROPE 

MODULE 

2, 

SIDE 

A,  SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 

» 
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1 2 « 3400 

TC  12,3777 

PARAGRAPH 

# 

0 73 

ROPE 

MODULE 

2, 

SI  DE 

B, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160 1 

13,2000 

TC  13,2377 

PARAGRAPH 

# 

074 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

11 

( WIRFS 

161-176) 

1 3t  P4H0 

TO  13,2777 

P ARAGRAPH 

075 

- ROPE  MODULE 

2, 

SjLGE 

B, 

SENSE 

LINE 

SET 

1 1 

(WIRES 

161-176 ) 

13,3000 

TC  13,3377 

PARAGRAPH 

# 

0 76 

ROPE 

MODULE 

2, 

SI  DE 

A, 

SENSF 

LINE 

SET 

12 

(WIRES 

177-192 ) 

13,3400 

TC  13,3777 

P ARAGRAPH 

# 

077 

ROPE 

MODULE 

2, 

SI  DE 

B, 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192 1 

1 4 T ?nnn 

TC  L4  f 23-7  7 

P ARAGR APH 

# 100 

-ROPE- 

MODULE 

3, 

SIDE 

A , 

SENSE 

t INF 

SFT 

1 

( WIRES 

1-  16) 

14,2400 

TC  14,2777 

P ARAGRAPH 

# 

101 

ROPE 

MOOULE 

3, 

SI  DE 

B, 

SENSE 

LINE 

SET 

1 

(WIRES 

1-  16) 

14,3000 

TC  14,3377 

PARAGRAPH 

# 

102 

ROPE 

MODULE 

3, 

SI  DE 

A, 

SENSE 

LINE 

SET 

2 

(WIRES 

17-  32) 

14 1 ?400 

T£— L 4,3  777 

P ARAGRAPH  # 103  . 

ROPE 

MODULE 

-3, 

SIDE 

_ Bj. 

SENSE 

LINE 

SFT 

2 

(WIRES 

17-  32) 

15,2000 

TC  15,2377 

PARAGRAPH 

# 

104 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SFT 

3 

I WIRES 

33-  48) 

15,2400 

TC  15,2777 

PARAGRAPH 

# 

105 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

l 3 * '40  on 

TC  1 5 , 3 3 7 7 

P A R APR APH 

106  - 

ROPE  MODULE 

3, 

. ST  DE 

-A,. 

SENSE 

LINE 

SFT 

4 

(WIRES 

49-  64) 

15,3400 

TC  15*3777 

PARAGRAPH 

it 

107 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SFT 

4 

( WIRES 

49-  64) 

16,2000 

TC  16,2377 

PARAGRAPH 

n 

110 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SET 

5 

(WIRES 

65-  80) 

TC  1 ft,  7 77 7 

P ARAGRAPH 

M-- 

111 

--RTLPE- 

MODULE. 

3, 

SI  DE- 

SENSE 

LINE  -SET 

5 

( WIRES 

65-  80) 

16,3000 

TC  16,3377 

PARAGRAPH 

n 

112 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SET 

6 

( WIRES 

81-  96) 

16,3400 

TC  16,3777 

P ARAGRAPH 

# 

113 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

6 

( WIRES 

81-  96) 

] 7 , 7000 

TC  17,2377  - 

-PARAGRAPH 

114 

. ROPE. 

MODULF 

3, 

SIDE 

A, 

SENSE 

LINE 

SFT 

7 

(WIRES 

97-1 12  ) 

17,2400 

TO  17,2777 

PARAGRAPH 

# 

115 

ROPE 

MODULE 

3, 

SI  DE 

B, 

SENSF 

L INE 

SET 

7 

(WIRES 

97-112) 

17,3000 

TC  17,3377 

P ARAGRAPH 

# 

116 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSF 

LINE 

SET 

8 

( WIRES 

113-128) 

17,3-400 

TC  17,3777  - 

PARAGRAPH 

# 

117 

..  - ROPE  MODULE 

3, 

SIDE- 

Bj 

SENSE 

L INF 

SET 

R 

( WIRES 

113-128) 

20,2000 

TC  20,2377 

PARAGRAPH 

a 

120 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SET 

9 

(WIRFS 

129-144) 

20, 2400 

TC  20,2777 

PARAGRAPH 

# 

121 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

9 

(WIPES 

129-144 ) 

2-Q-*3-0-00-. 

TC  20,3177  _ 

PARAGRAPH 

JL_ 

1 22 

ROPE_ 

module 

3, 

SIDF 

A, 

SENSE 

L INE 

SET 

1 0 

(WIRFS 

145-160 ) 

20,3400 

TC  20,3777 

PARAGRAPH 

# 

123 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 

21,2000 

TC  21,2377 

PARAGRAPH 

# 

124 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SET 

11 

( WIRES 

161-176 ) 

2 1 ,2400 

T C 2 1 ,-2  77  7 - 

_ P ARAGR.APH_ 

1 25 

RDPF 

MODULE 

3 , 

SIDE 

a. 

S-ENSF 

L INF 

SFT 

1 1 

(WIRFS 

161-176 ) 

21,3000 

TO  21,3377 

PARAGRAPH 

# 

126 

ROPE 

MODULE 

3, 

SIDE 

A, 

SENSE 

LINE 

SFT 

12 

(WIRES 

177-192 ) 

21,3400 

TC  21,3777 

PARAGRAPH 

# 

127 

ROPE 

MODULE 

3, 

SIDE 

B, 

SENSE 

LINF 

SET 

12 

( WIRES 

177-192 ) 

22, 2300 

T C 2-2  ,^  3 7 7 

- - PARACRAPH- 

u 

130 

ROPF  MODULF 

4, 

ST  DF 

A, 

SENSE 

L INF 

SET 

1 

(WIRES 

1-  16  ) 

22,2400 

TC  22,2777 

PARAGRAPH 

# 

131 

ROPE 

MODULE 

4, 

SIDE 

B, 

SENSE 

LINE 

SET 

1 

(WIRES 

1-  16) 

22,3000 

TC  22,3377 

PARAGRAPH 

It 

132 

ROPE 

MODULE 

4, 

SI  DE 

A, 

SENSE 

L INF 

SET 

2 

( WIRES 

17-  32) 

-2-2,3400- 

TC  22^3777 

P AR  AGP  APH 

- 

-133-  - 

-ROPE 

MODULE 

4, 

-SIDE 

B, 

SEMSR 

L INE- 

SET 

2 

LWIRFS 

17-  32) 

23,2000 

TC  23,2377 

PARAGRAPH 

# 

134 

ROPE 

MODULE 

4, 

SI  DE 

A, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

23, 2400 

TC  23,2777 

PARAGRAPH 

# 

135 

ROPE 

MODULF 

4 » 

SI  DE 

B, 

SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

- — 23,3000  - 

XD  23,3  S7  / 

-PARAGRAPH 

136 

ROPE_ 

MODULE 

4, 

SI  DF 

A, 

SENSF 

L INE 

SET 

4 

(WIRES 

49-  64) 

23,3400 

TC  23,3777 

PARAGRAPH 

# 

137 

ROPE 

MODULE 

4, 

SI  DE 

B, 

SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

24,2000 

TC  24,2377 

PARAGPARH 

# 

140 

ROPE 

MODULE 

4, 

SIDE 

A, 

SENSE 

LIME 

SET 

5 

(WIRFS 

65-  80) 

24,2400 

TC  24,2777  _ 

PARAGRAPH 

JL_ 

141 

_ - ROPE 

MODULF 

4«_. 

SI  DE 

B, 

SENSE 

LINE 

SFT 

5 

( WIRES 

65-  80) 

24,3000 

TC  24,3377 

PARAGRAPH 

# 

142 

ROPE 

MODULE 

4, 

SIDE 

A, 

SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

24,3400 

TC  24,3777 

PARAGRAPH 

# 

143 

ROPE 

MOOULE 

4, 

SI  DE 

B, 

SENSE 

L INE 

SET 

6 

( WIRES 

81-  96) 

25,2000 

TX  25j_237 7 

- PARAGRAPH  # 

144 

ROPF  MODULE 

4, 

SIDE 

A, 

SENSF 

L IMF 

SET 

7 

(WIRES 

97-11 2 ) 

25,2400 

TO  25,2777 

P ARAGRAPH 

# 

145 

ROPF 

MODULF 

4, 

SI  DE 

B, 

SENSE 

L INF 

SET 

7 

(WIRFS 

97-112) 

25,3000 

TC  25,3377 

PARAGRAPH 

# 

146 

ROPE 

MODULE 

4, 

SIDE 

A, 

SENSE 

LINE 

SET 

8 

(WIRFS 

113-128) 

25, 3400  _ 

TC  25,3  777 

-PARAGRAPH 

JL 

147 

ROPE 

MODULE 

4, 

SIDE 

B, 

SENSF 

L INE 

SET 

8 

(WIRFS 

113-128) 
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26,2000 

TC 

26,2377 

PARAGRAPH 

1 50 

ROPE 

MODULE 

4, 

SIDE 

A,  SENSE 

LINE 

SET 

9 

(WIRES 

129-144 ) 

26,2400 

TC 

26,2777 

PARAGRAPH 

# 

151 

ROPE 

MODULE 

4, 

SIDE 

B,  SENSE 

LINE 

SET 

9 

(WIRES 

129-144 ) 

ir 

? ^_V7  7 

- PARAGRAPH 

152 

-ROPE 

MODULE 

4,- 

SIDE 

-A-,_  -SENSE- 

-LINE- 

SFT 

LO. 

(WIRES  145-160 ) 

26,3400 

TC 

26,3777 

PARAGRAPH 

# 

1 53 

ROPE 

MODULE 

4, 

SIDE 

B,  SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 

27,2000 

TC 

27,2377 

PARAGRAPH 

# 

1 54 

ROPE 

MODULE 

4, 

SIDE 

A,  SENSE 

LINE 

SET 

11 

( WIRFS 

161-176 ) 

TC 

27t2  777 

PARAGRAPH 

U- 

155 

-ROPE 

MODULE. 

4 , 

SIDE. 

B,  -S  ENSE 

L INF. 

SET 

JL1 

( WIRES 

161-176 ) 

27,3000 

TC 

27,3377 

P ARAGRAPH 

tt 

156 

ROPE 

MODULE 

4, 

SI  DE 

A,  SENSE 

L INE 

SET 

12 

(WIRES 

177-192 ) 

27, 3400 

TC 

27,3777 

PARAGRAPH 

U 

157 

ROPE 

MODULE 

4, 

SIDE 

B,  SENSE 

L INF 

SET 

12 

( WIRES 

177-192 ) 

3-0 » 2 000 

TC- 

30,2377 

. P AR AGRA°  H 

160- 

_ - ROPE 

MOOULE 

5_, 

SI  DE 

A,  SENSE 

L INE 

SET 

1 

(WIRES 

1-  16) 

30,2400 

TC 

30,2777 

P ARAGRAPH 

# 

161 

ROPE 

MODULE 

5, 

SIDE 

P,  SENSE 

LINE 

SET 

l 

(WIRES 

1-  16) 

30,3000 

TC 

30,3377 

PARAGRAPH 

# 

162 

ROPE 

MODULE 

5, 

SI  DE 

A,  SENSE 

LINE 

SET 

2 

(WIRES 

17-  32! 

30 i 3AOO 

TC 

30,3777 

PARAGRAPH 

JL 

163 

ROPF 

MODULE 

5 , _ 

SIDE 

B,  SENSE 

L INF 

SFT 

2 

(WIRES 

17-  3?) 

3 L , 2000 

TC 

31,2377 

P ARAGRAPH 

164 

ROPE 

MODULE 

5, 

SI  DF 

A,  SENSE 

LINE 

SFT 

3 

(WIRES 

33-  48) 

31,2400 

TC 

3 1,2777 

PARAGRAPH 

165 

ROPE 

MODULF 

5, 

SIDE 

B,  SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

3 1*  30-00  - 

TC 

31,3377 

-PARAGRAPH- 

-J- 

165 

..ROPE 

MODULE 

5, 

SIRE 

A,  SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

31,3400 

TC 

31,3777 

PARAGRAPH 

# 

167 

ROPE 

MODULE 

5, 

SIDE 

B,  SENSE 

l INE 

SET 

4 

(WIRES 

49-  64) 

32,2000 

TC 

32,2377 

PARAGRAPH 

# 

170 

ROPE 

MODULE 

5, 

SIDE 

A,  SENSE 

L INF 

SET 

5 

(WIRES 

65-  80) 

32^24-00 

TC 

-3-2,-2777 

- -PARAGRAPH 

Jt 

-171- 

- . R-0 P E_  MOD Jl.  r 

5, 

SI-DE- 

B,  SENSE 

-LINE. 

SFT 

5 

1 WIRES 

65-  80) 

32,3000 

TC 

32,3377 

PARAGRAPH 

# 

172 

ROPE 

MODULF 

5, 

SI  DE 

A,  SENSE 

LINE 

SET 

6 

(WIRES 

81-  96) 

32,3400 

TC 

32,3777 

PARAGRAPH 

# 

173 

ROPE 

MODULE 

5, 

SI  DE 

B,  SENSE 

L INE 

SET 

6 

(WIRES 

81-  96) 

33-r  2 000 

TC- 

33,2377 

-P  ARAGRAPH 

ft 

174 

ROPE 

MODULE 

5, 

SIDE 

A,  SENSE 

-LINE 

SET 

7 

(WIRES 

<37-1  1.2  ) 

33,2400 

TC 

33,2777 

PARAGRAPH 

# 

175 

ROPE 

MODULF 

5, 

SI  DE 

B,  SENSE 

LINE 

SET 

7 

(WIRES 

97-112  ) 

33,3000 

TC 

33,3377 

PARAGRAPH 

# 

176 

ROPE 

MODULF 

5, 

SI  DE 

A,  SENSE 

LINE 

SET 

8 

(WIRES 

113-128 ) 

33,3400 

TC 

33-.3J77  - 

- PARAGRAPH. 

JL 

_177  . 

- ROPE 

MODULE 

-5, 

SI  DE 

Bj  SENSF 

LINE 

SET 

R 

(WIRES 

113-128 ) 

34,2000 

TC 

34,2377 

PARAGRAPH 

# 

200 

ROPE 

MODULE 

5, 

SIDE 

A,  SENSE 

LINE 

SFT 

9 

(WIRES 

129-144) 

34,2400 

TC 

34,2777 

o ARAGRAPH 

# 

201 

ROPE 

MODULE 

5, 

SIDE 

B,  SENSE 

LINE 

SET 

9 

(WIRES 

129-144 ) 

34,3000 

-TC 

-3  4 ,3-3-77 

- -PARAGRAPH 

JL 

202 

ROPE 

MODULE 

5, 

SI  DE 

A,  SENSE 

LINE 

SFT 

1 0 

(WIPES 

145-160 ) 

34,3400 

TC 

34,3777 

o ARAGRAPH 

# 

203 

ROPE 

MODULE 

5, 

SI  DF 

B,  SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 

35,2000 

TC 

35,2377 

PARAGRAPH 

# 

204 

ROPE 

MODULE 

5, 

SIDE 

A,  SENSE 

LINE 

SET 

11 

(WIRES 

161-176 ) 

- 35,2400 

- TC 

-35-,- 2777 

PARAGRAPH 

JL 

-205  - 

ROPF 

MODULE 

5, 

S I DF 

B,  SENSF 

LINE 

SFT 

1 1 

(WIRES 

161-176) 

35,3000 

TC 

35,3377 

PARAGRAPH 

# 

206 

ROPE 

MODULE 

5, 

SIDE 

A,  SENSE 

LINE 

SET 

12 

(WIRES 

177-192) 

35,3400 

TC 

35,3777 

PARAGRAPH 

207 

ROPE 

MODULE 

5, 

S I DF 

B,  SENSE 

LINE 

SET 

12 

(WIRES 

177-192 ) 

36,2000 

TC 

36,23/7 

PARAGRAPH 

JI 

210- 

ROPE 

MODULE 

6, 

SIDE 

A,  SENSF 

L INF 

SET 

1 

( WIRTS 

1-  16  ) 

36,2400 

TC 

36,2777 

PARAGRAPH 

# 

211 

ROPE 

MODULE 

6 » 

SIDE 

B,  SENSE 

LINE 

SET 

1 

(WIRES 

1-  16) 

36,3000 

TC 

36,3377 

P ARAGRAPH 

# 

212 

ROPE 

MODULE 

6, 

SI  DE 

A,  SENSE 

LINE 

SET 

2 

( WIRES 

17-  32) 

- 36,3400 

-X0_ 

3-6,3  7 77  _ 

. PARAGRAPH  » 

213  - 

_ ROPE 

MODULE 

6j_ 

SI  TE 

B.  SFNSF 

L INF 

SET 

? 

(WIRES 

17-  32) 

37, 2000 

TC 

37,2377 

PARAGRAPH 

# 

214 

ROPE 

MODULE 

6, 

SI  DF 

A,  SENSE 

LINE 

SET 

3 

(WIRES 

33-  48) 

37,2400 

TC 

37,2777 

PARAGRAPH 

# 

215 

ROPE 

MODULE 

6 , 

SI  DE 

B,  SENSE 

LINE 

SET 

3 

(WIRES 

33-  48  ) 

3 7,-30  00- 

-T-C- 

3 7,-3377 

PARAGRAPH- 

JL 

216 

ROP-F 

..MODULE 

6, 

SIDE 

A.  SFNSF 

L INE 

SET 

4 

(WIRES 

40-  64) 

37, 3400 

TC 

37,3777 

P ARAGRA°H 

# 

217 

ROPE 

MODULE 

6, 

SI  DF 

B,  SENSE 

LINE 

SET 

4 

(WIRES 

49-  64) 

40,2000 

TC 

40,2377 

PARAGRAPH 

# 

220 

ROPE 

MODULF 

6 ♦ 

SIDE 

A,  SENSE 
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1 

53154 

1 

5^00 

00006 

1 

5-00-02 

-0 

^000  1 

o 

511  50 

o 

ooooa  1 

o 

5?  006l 

J3 

C: 

0344  7 

0 

5310 

C:  02063 

0 

50002 

0 

30000 

1 

24002 

0 

55011 

1 

35320 

0 

22006 

1 

1 4640 

0 

5320 

C:  20071 

0 

50002 

0 

40000 

0 

61011 

0 

00006 

1 

16  740 

0 

16736 

1 

00004 

0 

5330 

-50-002- 

-0  .... 

30000 

1 - - 

24002 

0 

54072 

0 

74757 

1 

60000 

1 

5407  1 

0 

30072 

1 

5340 

75030 

0 

00006 

1 

74740 

1 

56072 

1 

74735 

0 

54066 

0 

50002 

0 

30000 

1 

- 5550-  _ 

— 54Q02 

0 

5406-5 

0 

-L5363 

Q 

00004 

n 

50002 

0 

30000 

1 

24002 

0 

00004 

0 

5360 

54065 

0 

34753 

1 

54066 

0 

00006 

l 

35367 

0 

52006 

0 

C: 

02102 

0 

C: 

20103 

1 

5370 

22073 

0 

22006 

1 

22073 

0 

75024 

0 

1 0000 

0 

17747 

0 

30062 

0 

74745 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 013,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXFD  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NT E RPRFT I VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


1-54P3 

0 

6 HOA 1 6 

316  52  1 

540  7 0 

1 

^OOA? 

_Q 

74744 

0 

1Q0Q  0 

0 

5410 

15427 

1 

30002 

0 

54063 

0 

30006  1 

00006 

1 

04007 

i 

54064 

1 

35422 

0 

5420 

22073 

0 

52006 

0 

C: 

02  170 

0 

50002  0 

3 00  00 

1 

24002 

0 

1 5404 

0 

00006 

l 

5A3Q 

56002 

0 

30001  0 

52064 

1 

34752  0 

26002 

1 

15417 

1 

22706 

0 

22006 

1 

5440 

50000 

1 

3000  1 

0 

22006 

1 

22706  0 

1 3576 

1 

22706 

0 

22006 

1 

22706 

0 

^4^.0 

066  06 

1 

50000  1 

30601 

0 

22706  0 

22006 

1. 

22706 

0 

1 3704 

0 

34755 

i 

5460 

54032 

1 

54033 

0 

54034 

1 

00002  0 

54162 

0 

40  160 

1 

70162 

0 

50161 

i 

5470 

26160 

1 

00002 

0 

04635 

0 

c 

: 20204  0 

3 4 755 

1 

55044 

1 

00004 

0 

4475  3 

0 

5500 

70100 

1 

54100 

1 

00003 

1 

00002  0 

30002 

0 

05522 

1 

40000 

0 

00006 

1 

55  10 

04001 

1 

50061 

0 

54074 

0 

22063  1 

00003 

1 

00001 

0 

30002 

0 

05522 

1 

70001 

1 

L5  5-1-1 

a 

64753 

_L 

00  0 04.  0 

. 34063 

0- 

34762 

0 

5406  l 

1 

50063 

1 

5530 

27777 

0 

5400  1 

i 

34755 

i 

00006  1 

1 0061 

1 

52062 

1 

50061 

0 

30074 

1 

54 n n i 

1 

50062 

0- 

44735 

6 - 

06  062  0 

_ 00064 

0 

54061  1 

50002- 

0 

60000 

1 

5550 

50000 

1 

30000 

i 

54001 

i 

30061  0 

50002 

0 

60001 

0 

50000 

1 

22000 

1 

5560 

10061 

1 

15545 

i 

16740 

0 

44747  0 

71044 

1 

55044 

1 

05155 

0 

00004 

0 

5570 

3-0  002 

_o 

_ 55362 

i 

50002 

0 

30000  1 

5 4001 

1 

30006 

1 

00006 

1 

04007 

1 

5600 

55364 

0 

30002 

0 

54061 

1 

10375  1 

1 5607 

1 

22375 

0 

1562  1 

0 

10376 

1 

561-0- 

_15613_  1 

27376 

0- 

15624 

_0 

30377  1 

74733 

0 

10000 

0 

15630 

0 

22377 

l 

5620 

15624 

0 

41036 

l 

75642 

0 

27036  1 

56061 

0 

00003 

1 

50000 

l 

00001 

0 

5630 

30001 

0 

64735 

1 

54377 

0 

15624  0 

00004 

0 

30002 

0 

55363 

1 

50002 

0 

5640 

30000 

1 

05574 

1 

C: 

40400 

1 

00004  0 

34752 

0 

60005 

1 

54017 

0 

500  17 

1 

5650 

04635 

0 

C:  12766 

0 

00004 

0 

30002  0 

5 53  63 

1 

50002 

0 

30000 

1 

05574 

1 

5660 

C: 

7 7770 

1 

_ 36X65 

a 

. 54001 

1 

40000  0 

52761 

0 

00004 

0 

30103 

0 

74746 

1 

5670 

10000 

0 

15675 

i 

04616 

1 

C : 

: 12643  0 

15644 

0 

04635 

0 

C:  65711 

0 

00004 

0 

5700 

36002 

o 

- Q5654- 

o 

£: 

01  163 

1 

00064  0 

3000? 

o 

05571 

1 

Ci  0.02 1 7 

0 

01363 

0 . _ - 

5710 

00004 

0 

53364 

0 

35734 

1 

54061  1 

50002 

0 

30000 

1 

54001 

1 

15603 

0 

5720 

00004 

0 

53364 

0 

35733 

0 

15713  0 

00004 

0 

53364 

0 

00004 

0 

50002 

0 

5-736 

-36600 

1 

54001 

_1 

15601 

1 

15660  0 

1 5642 

0 

00004 

0 

5400  1 

1 

30002 

0 

5740 

55363 

1 

05575 

0 

C: 

00014 

1 

01363  0 

3 1470 

0 

00006 

1 

01006 

0 

00002 

0 

5750 

31471 

1 

540  0 1 

1 

45765 

1 

00006  1 

02005 

0 

60001 

0 

00006 

1 

01005 

0 

5760 

00002 

0 

31472 

1 

54001 

1 

35  765  0 

1 5753 

1 

C:  00314 

1 

C=  05766 

0 

C:  05767 

1 

5770 

CKSM 

77402 

1 

a 

3 

a 

3 

3 

3 

5) 

CAP  ; — -A-SSEN8L  E REVISION  0 69  OF  A-GC — PR-OGftAM  LU  M I WARY  -8  Y-  NA  SA  20  214-1-2^0-11 


1 9;  0 2-  NO V.-  2-5,1968 


RAGE  1586 


OCTAL  LISTING  FOR  PARAGRAPH  # 014«  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WQRD»  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE  1 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "1" 

( I nterpretive 

OPERATOR  WORDS)  OR 

"C 

" (CONSTANTS) 

o 

3400  1 

1 

-40000 

o 

- 52761 

0 - 

0463-5- 

n 

c : 

L 0112  4 

0 C : 

000  24- 

1 

6010 

C: 

00031 

0 

4602  1 

0 

00004 

0 

70110 

0 

54110 

0 

44752 

i 

00006 

i 

03012 

1 

6020 

00002 

0 

C: 

: 41000 

1 

00006 

1 

36026 

0 

15165 

1 

C: 

03034 

0 

C : 

66107 

i 

36035 

1 

? ?nno 

1 

- 500  0 2- 

-0 

-30000 

1 

22006 

1 

1 2223 

L 

C: 

56063 

1 

00003 

i 

00006 

1 

6040 

22164 

1 

30006 

1 

54165 

1 

74735 

0 

54115 

0 

54023 

1 

16067 

i 

22006 

1 

AD  A O- 

1-6  041 

Q 

000  0 6 

1 

_5-0 116 

1 

30  00.1 

0 

52155 

1 

34755 

1 

54156 

i 

54163 

1 

6060 

30165 

0 

54006 

0 

10023 

1 

16076 

1 

1 0067 

1 

15126 

0 

24164 

i 

50164 

1 

6070 

30000 

1 

10000 

0 

16361 

1 

C: 

00177 

0 

54023 

1 

76073 

1 

54020 

i 

10020 

1 

6100 

16246 

0 

16742 

1 

74753 

0 

10000 

0 

16145 

0 

50164 

1 

4000  1 

i 

10000 

0 

6110 

16214 

1 

C: 

77773 

1 

24164 

1 

54116 

0 

66250 

0 

10000 

0 

67742 

i 

161  24 

1 

6120 

30120 

1 

-26  LI  6 

0 

50020 

0 

76272 

1 

00006 

1 

66135 

0 

75012 

0 

65012 

1 

6130 

561  16 

1 

60115 

1 

54004 

1 

50020 

0 

76272 

1 

74357 

0 

65007 

0 

56116 

1 

-A}  4-0 

64003 

0 

5002  0 

o 

76272 

1 

37  7 32 

0 

54020 

1 

30120 

1 

541  30 

1 

24164 

1 

6150 

50164 

1 

40000 

0 

10000 

0 

24130 

0 

16155 

1 

54116 

0 

7774  1 

0 

00006 

1 

6160 

16163 

1 

30115 

1 

26116 

0 

50130 

0 

40046 

1 

26116 

0 

77743 

1 

00006 

1 

61  70 

1 62-03 

1 

7774  L 

0 

00006 

1 

16205 

J 

30116 

1 

54004 

1 

75012 

0 

64741 

1 

6200 

54116 

0 

50020 

0 

36272 

0 

30120 

1 

16211 

1 

35007 

0 

56116 

1 

54003 

0 

. -62-1-0 

743  57 

■ 0- 

-26X1 6 

0 

50  020 

0 

36272 

_Q_ 

34360 

0 

70020 

1 

66221 

0 

10000 

0 

6220 

16232 

0 

C = 

77767 

1 

66  111 

0 

10000 

0 

50000 

1 

4624  3 

0 

16234 

0 

50163 

0 

6230 

46241 

1 

16234 

0 

50163 

0 

46243 

0 

26166 

1 

54116 

0 

50020 

0 

76272 

1 

6240 

C: 

00002 

0 

C: 

00006 

1 

C: 

00006 

1 

C : 

00002 

0 

C:  00003 

1 

C : 

00006 

1 

10020 

1 

16262 

0 

6250 

C : 

77722 

0 

24164 

1 

50164 

1 

30000 

1 

54117 

1 

35013 

0 

54004 

1 

70020 

1 

bZh 0 

-50000 

-1 

16333 

_0l 

54-004 

1 

10020 

1 

50000 

1 

12000 

1 

10163 

l 

12017 

1 

6270 

12017 

1 

1 212  1 

0 

C: 

00122 

0 

16504 

1 

1 7070 

0 

17654 

0 

17400 

0 

16702 

0 

6300 

36467 

0 

160-5-1 

1 

1 7623 

o 

16  500 

_Q 

16617 

0 

16572 

_Q 

173  3 3 

1 

16556 

0 

6310 

16625 

1 

17336 

l 

17615 

0 

17573 

0 

1 7576 

0 

17602 

0 

17620 

0 

16750 

1 

6320 

16746 

0 

17035 

1 

17330 

1 

17457 

1 

17424 

0 

17004 

0 

17061 

0 

1 6774 

1 

- 63  30  - - 

1-63-30- 

0 

47-571 

1 

1761-2 

1 

L2  34J. 

JL 

12346 

0 

12351 

0 

12355 

1 

12361 

0 

6340 

12367 

0 

12403 

0 

12412 

0 

12375 

0 

1 2406 

0 

12464 

1 

1247  1 

0 

12444 

0 

63-50 

12  504 

0 _ 

12513- 

_0 

12454 

-1 

30165 

0 

54004 

1 

24164 

1 

50164 

1 

40000 

0 

6360 

67746 

0 

54116 

0 

74356 

1 

56116 

1 

77721 

0 

00006 

1 

74747 

0 

50000 

1 

6370 

16371 

0 

06421 

0 

16060 

0 

06413 

1 

16060 

0 

06416 

1 

16060 

0 

06421 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 015,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  ”3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "1" 

I I NTERPRFTIVE 

OPERATOR  WORDS)  OR  " 

'C"  (CONSTANTS) 

1-A4  67  0 

064  2 1 0 

16143 

-0  _ 

- _ Q6421 

Q_ 

4 6:4.6  Z 

0 

06421  0 

1 6465  1 

0643  L 

0 

6410 

34766  1 

54020  1 

16251 

0 

50120 

i 

40046 

l 

16420  0 

50120  1 

40047 

0 

6420 

26116  0 

40116  0 

64772 

1 

10000 

0 

30120 

1 

16432  0 

35007  0 

56116 

1 

&4-in 

5-4  00 3 0 

743  5-7  _0 

_ Z6146. 

0 

- - 00006 

J 

_ 3 015  5 

0 

50116  1 

52001  1 

10163 

l 

6440 

16453  1 

00002  0 

00006 

1 

30160 

0 

50116 

1 

52003  0 

00006  l 

30162 

1 

50  1 16  1 

- 52005  0 

00002 

0 

30156 

0 

50116 

-L 

54002  1 

00002  0 

37731 

0 

6460 

54020  1 

16105  1 

34735 

1 

54020 

1 

1 6105 

1 

36106  0 

16144  1 

50116 

1 

6470 

30002  0 

54156  1 

00006 

1 

50116 

1 

3 0001 

0 

52155  1 

34753  1 

16057 

1 

6500 

22007  0 

50116  1 

30000 

1 

16054 

l 

00006 

1 

50116  1 

30001  0 

52155 

1 

6510 

00006  1 

50116  1 

30003 

1 

52160 

l 

00006 

1 

50116  1 

30005  1 

52162 

0 

-65-20 

44753-  0 

— L605  7 1 

00  006 

1 

50116 

1 

3 0001 

0 

52155  1 

50166  0 

52001 

1 

6530 

50163  0 

36243  l 

26166 

1 

10163 

1 

16551 

1 

16547  0 

54163  1 

54156 

1 

6540 

5-2 160  I 

60  166  0 

_ _ 5 1 775- 

0- 

521  6? 

0 

5 04.66 

0 

517  Z7  1 

46060  0 

-34136 

1 

6550 

16060  0 

54163  I 

56156 

0 

50166 

0 

53777 

0 

16060  0 

00006  1 

50116 

1 

6560 

30001  0 

52155  1 

50166 

0 

52001 

1 

50163 

0 

36243  1 

26166  1 

10163 

1 

65  70- 

16607-  1 

- -165X0-1 

00Q06 

1 

50116 

1 

30003 

1 

52160  1 

50166  0 

51775 

0 

6600 

00006  1 

50116  1 

30005 

1 

52162 

0 

50166 

0 

51777  1 

16060  0 

00006 

1 

66-14X 

50 146  1 

30003  1 

-52  160 

1 

30156 

0 

50166 

a 

53  77  7 0 

16514  0 

24164 

1 

6620 

50164  1 

30000  1 

50116 

1 

54000 

0 

1 6060 

0 

24164  1 

50164  1 

30000 

1 

6630 

50116  1 

60000  1 

54004 

1 

75012 

0 

50000 

1 

32000  0 

54117  1 

30165 

0 

6640 

74350  1 

64350  0 

60164 

1 

50120 

l 

54052 

1 

30117  0 

77741  0 

00006 

1 

6650 

16661  1 

30165  0 

54006 

0 

30117 

0 

54004 

1 

75012  0 

64741  1 

541  64 

0 

66-60 

16041  0 

60117  0 

66250  0 

10000 

a 

30117 

0 

16674  0 

30120  1 

60117 

0 

6670 

50000  1 

30000  1 

54117 

1 

16646 

1 

54003 

0 

74357  0 

50000  l 

31400 

1 

6700 

- _ 541-17  1 

15445  1 

50  154- 

4 

30001 

o 

50116 

1 

6-0  00-0  l 

5AQD4  1 

7504  Z 

o 

6710 

50000  1 

32000  0 

54117 

1 

16646 

i 

30165 

0 

54004  1 

50164  1 

30001 

0 

6720 

54117  1 

16646  1 

10154 

0 

00002 

0 

16726 

0 

16740  0 

10155  1 

00002 

0 

16  732-0- 

. 16  740  0 

10156 

1 

00002 

o 

1 6736 

1 

16740  0 

50002  0 

00001 

0 

6740 

50002  0 

00002  0 

30165 

0 

54006 

0 

50164 

1 

00001  0 

34735  1 

16751 

0 

67-50 

34355  0 

-261J.6-0- 

00  00^ 

1 

50116 

1 

00007 

1 

20160  1 

00006  1 

16761 

0 

6760 

07013  1 

00006  1 

50116 

1 

00005 

1 

20162 

0 

00006  1 

16770  0 

07010 

1 

6770 

00006  1 

50116  1 

00001 

0 

16777 

1 

00006 

1 

50116  1 

30001  0 

201  55 

1 

GA° ; ASSEMBLE  REVISION  069  0)  AGC  PROGRAM  LUMINARY  BY  NASA  2021 ! 12-011 


- 1 9 i 0 2 -NO  V-» — 2 5-,l-968 


PAGE  1588 


OCTAL  LISTING  FOR  PARAGRAPH  # 016>  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSF 

MARKED  "I" 

(INTERPRETIVE  OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

1 AOAO  0 

07016  1 

16  060 

-0-  _ 

0 0006  1 

- 501161-  _ 

40001  1 

16777 

1 

7010 

54001  1 

34756  1 

17015  0 

54001 

1 

36244  0 

56001  0 

50000  1 

44734 

1 

7020 

54130  1 

00006  1 

24000  1 

50001 

0 

26155  1 

54007  1 

34755  1 

601  30 

0 

7030  - 

__  50001  0 

_ 26154  0 

54007  1 

-0-0  002- 

0 

17151  1 

00006  1 

50116  1 

30003 

1 

7040 

52160  1 

00006  1 

40001  l 

20160 

1 

00006  1 

17047  1 

07013  1 

00006 

1 

7X150 

501 16  1 

-000-0  5- 1 

52162  0 

0 0006- 

1 

40001  1 

20162  0 

00006  1 

17061 

0 

7060 

07010  1 

00006  1 

50116  1 

30001 

0 

52155  1 

00006  1 

40001  1 

16777 

1 

7070 

00006  1 

50116  1 

30002  0 

20156 

1 

50116  1 

60000  1 

60154  1 

54154 

0 

7100 

16060  0 

17002  0 

50002  0 

30000 

1 

24002  0 

54116  0 

50116  1 

30001 

0 

7110 

54156  1 

34755  1 

56155  0 

54135 

1 

00006  1 

70156  1 

56156  0 

00006 

1 

71  20 

70154  0 

2-0  1 56-  1 

-50116-  1 

30000 

1 
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10020 

1 

12500  1 

C:  12000 

1 

06722 

0 

16060 

0 

16060  0 

16645 

1 

01,2500 

06722 

0 

1664  5 

1 

16645  1 

16060 

0 

100  20 

1 

16637 

1 

05677  1 

02424 

1 

0 1,2510 

50120 

1 

30052 

0 

12364  0 

34762 

0 

70117 

1 

50000 

1 

34735  1 

541  31 

0 

0 1 1-2-5-20 

- 34745 

0 

00006 

J 

70117  1 

54130 

1 

00004 

0 

50000 

1 

30074  1 

54002 

1 

01,2530 

34741 

1 

00006 

1 

70117  1 

72573 

0 

50000 

1 

12536 

1 

30131  1 

00006 

l 

- X)  1 T 7 5 40 

_ - _ a40-0  2 

1 

1 25-5  0 

1 

3-0-13 1 1 

00-006- 

] 

0 6002- 

0 

1 2550 

1 

_4Q131  0 

7000-2 

1 

01,2550 

50130 

0 

54074 

0 

00003  1 

34737 

0 

00006 

1 

70117 

1 

72573  0 

50000 

1 

01 ,2560 

12561 

0 

40002 

1 

70131  0 

10000 

0 

1 2574 

1 

16714 

1 

12574  l 

05677 

1 

0 1 1 2570 

056-77 

-4 

-3-0002 

_Q 

125620 

C:  00014- 

1 

- 24164 

1 

16060 

0 

54061  1 

10400 

1 

01,2600 

12615 

0 

10454 

0 

12615  0 

10530 

0 

1 2615 

0 

10604 

1 

12615  0 

10660 

0 

^01,-^640 

126  15 

-0 

2206  1 

_Q 

30002-0 

05710 

1 c 

: 01201 

0 

64752  0 

22007  0 

50000 

1 

01,2620 

21777 

0 

26063 

0 

34755  1 

54064 

1 

32631 

1 

54062 

1 

50064  0 

10167 

0 

01,2630 

12671 

1 

C: 

: 00007 

0 

12671  1 

30063 

1 

50064 

0 

54167 

0 

75004  l 

50064 

0 

01,2640 

54166 

1 

10064 

1 

12656  1 

54121 

1 

30166 

0 

54120 

0 

10067  1 

1 2656 

1 

0 1 , 2650 

05677 

1 

05677 

1 

54067  1 

52066 

0 

52165 

1 

15160 

1 

52066  0 

50064 

0 

-01,-26-60 

52  165 

_J - 

- -50-007 

0-  _ 

- 4.0L67  0 

60063 

I 

00006 

1 

65160 

0 

30064  0 

54067 

1 

01,2670 

15160 

1 

33030 

1 

26064  1 

10062 

1 

1 2625 

0 

22061 

0 

30002  0 

05710 

1 

0-1  t 2 7-qg 

-G-:  0 l .2-0-2-- 

-0 

22164 

1 

30135-0 

0000-4- 

o 

00006 

1 

0400  7 

1 

66 001  0 

^30067 

0 

01,2710 

52165 

1 

52165 

1 

30165  0 

00006 

1 

01007 

1 

52155 

1 

50067  0 

52155 

1 

01,2720 

52155 

1 

52157 

0 

50067  0 

52157 

0 

52157 

0 

52161 

0 

50067  0 

52161 

0 

Olt2730 

52161 

-XI  _ 

531-63 

1 

-51106  7 0 

52  1 63 

1 

52363 

1 

34755 

1 

56121  0 

00006 

1 

01,2740 

12743 

1 

40166 

1 

54166  1 

52167 

0 

50067 

0 

52167 

0 

52167  0 

35004 

0 

— 2750 

704-67 

0 

541-2  0 

-0 

10  166  1 

34755 

1 

12761 

3 

40166 

1 

54166  1 

34753 

I 

01,2760 

56121 

0 

540  6 7 

1 

00003  1 

52165 

1 

00006 

1 

62767 

0 

52006  0 

40000 

0 

01,2770 

64753 

1 

54164 

0 

16047  0 

00004 

0 

40167 

0 

54167 

0 

36073  0 

70006 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 026,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE  1 

3ASIC 

INSTRUCTIONS  EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRET IVE 

OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

n/inn/i-. 

1 

04007  1 

5416  5 

1_ 

0 

5 4131 

Q_ 

131X5 

-0 

--  0000  4 

n 

X 00-6  7 

1 

01,3010 

13013 

1 

00003  1 

13213 

0 

34752 

0 

00006 

1 

05011 

1 

52165 

i 

12707 

1 

01, 3020 

54061 

1 

34755  1 

54064 

1 

32631 

1 

54062 

1 

50064 

0 

10167 

0 

13032 

1 

ni-,  io  m 

c - 

-0  00  14 

1 

13-04.1-  0 _ 

33030 

1 

26064 

J 

10062 

1 

13024 

0 

44753 

0 

54064 

1 

01,3040 

15160 

1 

40065  0 

50064 

0 

60164 

1 

00006 

1 

13  047 

0 

13032 

1 

50064 

0 

--  0 1 r 30  BO 

401  67 

0 

540-63  0 

.5-0064 

0 

54167 

0 

4 4350 

1 

70065 

0 

64741 

1 

56065 

1 

01^3060 

74350 

1 

50064  0 

60165 

0 

54066 

0 

10064 

1 

12656 

l 

12646 

0 

541  64 

0 

01,3070 

34755 

1 

54130  1 

35004 

0 

70167 

0 

60063 

1 

54167 

0 

40000 

0 

13004 

1 

01,3100 

00004 

0 

44755  0 

54131 

0 

56167 

1 

75004 

1 

54001 

1 

45164 

0 

60001 

0 

01,3110 

00006 

1 

63115  1 

10001 

1 

50000 

1 

54000 

0 

10203 

1 

03166 

0 

05677 

l 

01 , 3120  ^ 

13321 

1 _ 

102X7  X 

0316-6 

0- 

. .05.677 

1 

1 3125 

0 

10233 

1 

03166 

0 C : 

: 67610 

l 

01,3130 

13131 

0 

10247  1 

03166 

0 

05677 

1 

1 3135 

1 

10263 

1 

03166 

0 

05677 

1 

0 1 1 3140 

13-141 

1 

1-02-77  1 

03  166 

£L  - 

05677 

JL 

13L45 

0 

10313 

1 

03X66- 

0 

05677 

1 

01,3150 

13151 

0 

10131  0 

05677 

1 

05677 

1 

1 3156 

1 

13203 

l 

10130 

1 

13161 

0 

01,3160 

12761 

1 

50000  1 

27777 

0 

63127 

0 

54067 

1 

12701 

1 

54132 

0 

60131 

1 

01, 3-170 

i O-ooa 

0 - 

40132  0 - 

13176 

0 

13174 

1 

5 0002 

0 

00002 

0 

54131 

0 

00006 

1 

01,3200 

22130 

0 

50130  0 

00002 

0 

44755 

0 

54067 

1 

00003 

1 

44752 

1 

00006 

1 

04,3240 

-0  30  11 

1 

10-067  X 

13  006 

-0 

34752 

0 

1 322  2 

I 

31361 

1 

5400  1 

1 

33221 

0 

01, 3220 

15166 

1 

C:  66102  1 

00006 

1 

05011 

l 

52165 

1 

15165 

1 

54062 

1 

30002 

0 

01,3230 

00006 

1 

63520  0 

40026 

1 

64744 

1 

10000 

0 

66106 

0 

40000 

0 

63365 

1 

01,3240 

60002 

0 

10000  0 

61400 

1 

13305 

0 

1 3245 

0 

40002 

l 

64736 

l 

64736 

1 

01,3250 

56026 

0 

64735  1 

60002 

0 

00006 

1 

22007 

0 

57400 

1 

57401 

0 

5740? 

0 

0-1  , 32-60 

5 74  03- 

1 

_ _ 5740  4 0 

57405 

1 

57406 

1 

57407 

0 

30063 

1 

50002 

0 

1 A ? 70 

0 

01,3270 

53411 

0 

53413  1 

53415 

1 

53417 

0 

5 3421 

0 

53423 

1 

53425 

1 

53427 

0 

01 ,3300 

5 3431 

1 

65236  0 

00006 

1 

15215 

o 

1 1560  n 

innnn  n 

61401 

o 

L33-L3 

1 

01, 3310 

64753 

1 

03371  1 ( 

::  00001 

0 

10000 

0 

6 1402 

0 

13321 

0 

64753 

1 

03371 

1 

01, 3320 

C: 

00002 

0 

10000  0 

61403 

1 

13327 

0 

64753 

1 

03371 

1 

C:  00003 

1 

10000 

0 

01,333-0 

- 614  04 0 

1333  5 0 

64753 

1 

03371 

1 

C: 

00004 

0 

10000 

0 

61405 

1 

13343 

1 

01,3340 

64753 

1 

03371  1 C:  00005 

1 

10000 

0 

6 1406 

1 

13351 

1 

64753 

1 

03371 

1 

XU -,33-50 

Cjl_ 

00D-06- 

1 

10000  0 . _ 

-6140  7 

0- 

13357 

1 

64753 

1 

0 3 371 

I 

C:  00007 

0 

10000 

n 

01,3360 

03366 

1 

13362  1 

64753 

1 

03371 

1 

C: 

00010 

0 

C:  40201 

0 

52062 

1 

05710 

1 

01 ,3370 

C: 

01203 

1 

54064  1 

50002 

0 

30000 

1 

54002 

1 

34753 

1 

60064 

0 

50002 

0 

-0-6-9— GE— 3 
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OCTAL  LISTING  FOR  PARAGRAPH  If  027,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE  1 

3ASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTFPPRFTI VE 

OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

- 5000? 

0 

13255 

1 

_ 00006 

1 - 

04007  1 

540  1 6 

_L  . 

00006 

1 

01,3410 

220  12 

1 

34734 

0 

57407 

0 

57406 

1 

57405 

1 

57404  0 

57403 

1 

57402 

0 

01,3420 

57401 

0 

57400 

1 

64733 

1 

26026 

1 

54734 

0 

44755  0 

54734 

0 

00006 

1 

0 I r 3430 

45337 

_0 

5343  1 

1 

53427 

-0  - 

53425 

1 

5 342  3 

1 

53421  0 

53417 

0 

53415 

1 

01,3440 

53413 

1 

5341  1 

0 

56001 

0 

00006 

1 

01007 

1 

56001  0 

52006 

0 

23435 

1 

n 1 ^ 3450 

347  52 

o 

26003 

1 

_ 55434 

1 

_ 31153 

1 

10000 

0 

13463  1 

13460 

1 

13516 

1 

01,3460 

3 1154 

0 

00006 

1 

63516 

0 

00006 

1 

43475 

0 

21154  1 

l 1 154 

1 

13506 

0 

01,3470 

13471 

1 

13472 

1 

11153 

0 

13506 

0 

C:  00000 

1 

C:  20000  0 

34736 

1 

27154 

1 

01,3500 

05203  0 

C: 

: 03513 

0 

C: 

02063 

0 

33515 

0 

53435 

0 

52006 

0 

3 4736 

1 

05203 

0 

01,3510 

C:  03463  0 

C: 

02063 

0 

13503 

0 

53150 

0 

52006 

0 

C: 

05261 

1 

53435 

0 

13521 

0 

a 1 t36?0 

52062  1 

..  0572  0- 

1 

_ C : 

0L2Q4 

0 

30L61 

1 

60000 

J 

54155 

1 

33765 

0 

541  57 

0 

01,3530 

33562  0 

54707 

0 

30154 

1 

75007 

1 

10000 

0 

13546 

1 

101  54 

0 

10000 

0 

0 1-r  3 5 40 

13646- 1 

-3502  4 

1- 

- 0 5J.05 

-0 

_C  : J12712 

JL 

C_: 

2-0JL03 

_L_ 

03562  0 

150  0 7 

-1 

10000  0 

01,3550 

13617  0 

00006 

1 

50155 

0 

31437 

0 

52706 

1 

30154 

1 

74757 

l 

67745 

0 

01,3560 

10000  0 

13731 

0 

04631 

1 

13565 

0 

13632 

1 

33771 

0 

54704 

0 

50155 

0 

01,3570 

310-54  1 

10  OQ  0 

n 

24000 

1 _ 

13576 

JL 

1 5436 

1 

1361  5 

1 

40000 

0 

54001 

1 

01,3600 

50155  0 

41053 

i 

00006 

1 

60025 

0 

10000 

0 

40000 

0 

67730 

1 

64753 

1 

-0-1 ,361-0-  - 

-6-0001  0 - 

1 OOOO- 

G 

34755 

1 

13615 

1 

1 3615 

1 

64753 

1 

00704 

l 

33562 

0 

01,3620 

54157  0 

33766 

0 

54707 

0 

30154 

1 

76073 

1 

54154 

0 

00006 

1 

501  55 

0 

01,3630 

31437  0 

52706 

l 

50155 

0 

31054 

1 

54704 

0 

00006 

1 

63642 

1 

33770 

1 

0 1 , 3640 

567C4  1 

00704 

1 

33772 

0 

56704 

1 

40000 

0 

00704 

1 

54020 

1 

10020 

1 

01,3650 

13651  1 

13747 

1 

33562 

0 

54707 

0 

30154 

1 

54021 

0 

60021 

1 

50155 

0 

Q-l  1 3660 

_ -62-0-03  0 - 

—541 56 

i 

0 0006  1 

56156- 

_Q 

320Q2L 

1 

22706 

0 

10000 

0 

24000 

1 

01,3670 

13743  0 

24000 

1 

54705 

1 

33  771 

0 

54704 

0 

30706 

0 

74742 

0 

10000 

0 

0^-,  37-00 

1 37  36  1 

501  56 

0 

32  000 

o 

1 5 4-45 

o 

5 315^ 

1 

nnnriA  l 

400  ? 5 

1 

? 11  54 

1 

01,3710 

00006  1 

31152 

0 

21154 

1 

11153 

0 

13724 

1 

13717 

1 

13612 

0 

11154 

1 

01,3720 

13724  1 

13722 

1 

13612 

0 

13615 

1 

33767 

1 

54704 

0 

00006 

1 

31154 

0 

01,3-730 

00704—1 

- 33771 

o 

54  70-4 

0 - 

_ 5-0155 

0 

41054 

0 

15445 

0 

40706 

1 

54706 

1 

01,3740 

50156  0 

32000 

0 

13571 

0 

56705 

0 

50156 

0 

32000 

0 

13634 

1 

30157 

1 

0 1 , 37-50 

5-4707  0 

5015-5- 

0 

.32002 

1 

60L54 

1 

60154 

1 

60154 

1 

54156 

1 

13662 

1 

01 , 3760 

36244  0 

26156 

1 

33562 

0 

54707 

0 

1 1662 

1 

C: 

03  760 

0 

C:  03536 

1 

C:  05777 

0 

01,3770 

C:  05105  0 

C: 

05203 

0 

C: 

05072 

1 

C:  03773 

1 

C: 

03774 

0 

CKSM 

73126 

0 

a 

a 
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OCTAL  LISTING  FOR  PARAGRAPH  # 040  , WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD » "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


C : 

1 77S 5 0 

G:  00065 

1 _ 

_C_i 

01265 

1 

Cl  22437  1 

C-:  16067 

i 

C : 

15625 

I 

C: 

210  42 

_L 

04,2010 

C: 

30276 

1 

C: 

04773  0 

C:  25004 

1 

C: 

06702 

1 

C:  16471  1 

C:  01352 

1 

C: 

21412 

0 

C: 

20500 

0 

04,2020 

C: 

25477 

1 

C: 

03367  0 

C:  27533 

1 

C: 

07571 

0 

05516  0 

C:  00311 

1 

055  1 6 

0 

C: 

00314 

1 

o 

046 16  1 

C_:  2035J. 

1 

1 20  30 

1 

I 2030  1 

12030 

1 

C : 

11343 

0 

54775 

0 

04, 2040 

34355 

0 

54366  0 

31302 

1 

74746 

1 

10000  0 

12064 

0 

40775 

0 

62375 

1 

04t?n  ST) 

00006 

_J L 

17370  0 

64753 

1 

00006 

1 

12367  0 

30775 

1 

00006 

1 

12106 

0 

04, 2060 

40076 

i 

74753  0 

10000 

0 

12071 

1 

05567  0 

C:  01520 

1 

04457 

0 

04635 

0 

04,2070 

C: 

20723 

0 

32474  1 

54155 

1 

50155 

0 

32436  1 

76073 

1 

40000 

0 

60775 

1 

04,2100 

10000 

0 

10155 

1 

12072 

1 

12317 

1 

30155 

0 

54774 

1 

40103 

1 

74746 

1 

04,2110 

10000 

0 

12133 

0 

05516 

0 

C: 

00163 

0 

32363 

0 

55260 

0 

15155 

1 

40074 

0 

04 1 2-120 

74745 

I 

1 0000 . 

0 

12124 

0 - 

12131 

l 

40074 

0 

74743 

1 

10000 

0 

32364 

1 

04,2130 

64747 

1 

62365 

0 

05357 

0 

34755 

1 

00006 

1 

01007 

1 

32362 

1 

54374 

0 

0 5353 

_ 1 

c 

: 000 1 4 

] 

- 06036- 

1_ 

I: 

7X624 

1 

C:  2 7412 

0 

1 : 

: 77776 

1 

055  1 6 

J) 

C : 

00124 

JL 

04  j 2 1 50 

34735 

1 

54107 

0 

05516 

0 

C: 

00063 

1 

05516 

0 

C: 

: 00311 

1 

10775 

0 

12305 

1 

04,2160 

04457 

0 

3501  7 

1 

55056 

1 

06011 

1 

44753 

0 

70076 

1 

54076 

1 

34756 

1 

0 4-,  2 1 70 

54001 

1 

- 4 0000 

n 

5-2755 

_L 

42366 

1 - 

70074 

-0 

54074 

0 

34755 

1 

54332 

1 

04,2200 

55324 

1 

04674 

0 

C: 

75555 

0 

04674 

0 

C:  40204 

0 

44775 

1 

55072 

1 

70075 

1 

04, 2210 

54075 

1 

- 0-4674 

0 

_ C : 

12652- 

0 

1.0  775 

.0 

1 222  3 

1 

04674 

0 

C:  12647 

1 

30775 

1 

04,2220 

55011 

1 

04635 

0 

C: 

12771 

0 

41011 

1 

62323 

1 

00006 

1 

12245 

1 

40775 

0 

04,2230 

62323 

1 

00006 

1 

12245 

1 

67745 

0 

00006 

1 

12257 

1 

64756 

1 

00006 

1 

04,2240 

12257 

1 

3232  1 

0 

70074 

0 

10000 

0 

12254 

1 

42366 

1 

70074 

0 

540  7 4 

0 

04,2250 

06011 

1 

00006 

1 

34755 

1 

52755 

1 

32361 

1 

54374 
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1 
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1 
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0 

C: 
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i 
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0 

C:  00000 

1 
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0 
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1 

C: 

01517 

0 

32626 

1 

07,2630 

046  16 

1 

C: 

20212 

i 

16001 

1 

12641 

1 

34746 

0 

70154 

0 

10000 

0 

12645 

0 

07,2640 

12627 

1 

44736 

0 

71312 

1 

64  736 

1 

5 5312 

1 

31045 

1 

51550 

0 

54001 

1 

07,2650 

31046 

1 

51550 

0 

54003 

0 

41312 

1 

74736 

0 
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1 
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1 

31546 

1 
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o_ 
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1 
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0 
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i 
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1 
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0 
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1- 
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00006 

i 

30071 

i 

07,3470 

67746 

0 

10000 

0 

13516 

1 

C: 

77601 

0 

13500 

0 

34736 

l 

26062 

l 

34755 

i 

07,3500 

50061 

0 

5340  1 

1 

30062 

0 

54047 

0 
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C 
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I 
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1 

C: 
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C: 
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43414 

1 

10,2020 

C : 

02675 

1 

I 

: 53575  0 

c 

: 02327 

0 

I 
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0 
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0 
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53435  0 

C: 

02335  0 

C: 

00015 

0 
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o 

c 
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c 

: 74007 

c 

C 
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„0 
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0 

Cl 
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43414 

1 
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C: 

02475 

0 

I 
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c 
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0 

c 
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1 

I:  77614 

1 

C: 

04343  1 

C: 
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0 
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1 

c 

1 00002  0 

I 

: 66143 

1 

c 
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-0 
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0 
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22323  0 

C: 

10003  0 
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54214 

1 
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04343 

1 

c 
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c 
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1 

c 
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1 
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0 
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C: 
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1 
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C: 
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0 
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0 
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1 
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0 
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1 
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0 
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1 
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1 
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54061  1 
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1 
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0 
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74740 

1 

54062 

1 
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1 
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56065  1 
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0 
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0 

15370  1 
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0 
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0 
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0 
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12142  0 

12130 

0 

10,2130 

40072 

0 
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0 
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S 00.7  3 

1 

5 57)5-1  0 

1 0065 

0 

12156 

JO 

1-2161 

1 

40025  1 

50061  0 - 
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0 
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13030 

0 

50164 

1 

30372 

1 

54157 

0 

13226 

0 

•in  1 1 

3443-6-7  -0 

7-6-0-73-  1 

00006 

J 

13133 

1 

15155 

1 

30160 

0 

74737 

1 

10,3040 

10000  0 

13014  0 

34737  0 

50164 

1 

27070 

0 

22007 

0 

00006 

l 

62316 

l 

4 nr  ^oso- 

74740  I 

- 0-00-0-6  - 1 

13  05_6  0 

41067 

0 

6341  4 

0 

12773 

1 

33353 

1 

12773 

1 

10,3060 

44747  0 

00006  1 

03011  1 

30100 

0 

73371 

0 

10000 

0 

34753 

1 

54001 

l 

10,3070 

34755  1 

50001  0 

57042  0 

00004 

0 

00002 

0 

34217 

1 

56064 

0 

00006 

1 

10,3100 

63104  1 

56064 

0 
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_1_ 

C: 

33156 

0 - - 

0 603-6- 

1 

IT 

77  775 

CT_ 

-02-713 

0- 

X '■ 

02761 

0 

15,3150 

I : 

45145 

0 

C: 

03560  1 

C: 

32540 

1 

C: 

02723 

0 

I : 

77776 

1 

13116 

0 

I : 

77131 

1 

C: 

00052 

0 

15,3160 

C: 

00006 

1 

C: 

00014  1 

I : 

64373 

1 

C: 

75040 

1 

C: 

03605 

1 

I : 

77656 

1 

C: 

12723 

1 

I : 

77773 

1 

1 5 r 3 1 ZO 

C_i 

7 5l0  02 

1 

C : 

10023  1 

_ I 

43104 

0 

C: 

33162 

1 

Cl 

0 4315 

1 

C : 

33203 

0 

I : 

77624 

1 

C: 

31121 

1 

15, 3200 

I : 

776  14 

1 

C: 

00354  0 

C: 

33264 

1 

I : 

77624 

1 

C: 

47345 

0 

I : 

77624 

1 

C: 

47151 

1 

I : 

77776 

1 

1 5,3210 

3 4752 

0 

70104  Q_ 

10000 

0 

13222 

1 

33316 

0 

04616 

1 

C: 

20351 

1 

06001 

0 

15, 3220 

132  22 

1 

13265  1 

06036 

1 

I : 

40175 

0 

C: 

02740 

0 

C: 

33226 

1 

C: 

02750 

1 

I : 

40141 

1 

15,3230 

C: 

30451 

1 

C: 

33273  1 

I : 

52131 

0 

C: 

02746 

0 

C: 

33236 

0 

C: 

33074 

1 

I : 

77776 

l 

05353 

1 

15,3240 

C: 

05024 

1 

C: 

13000  0 

06036 

1 

I : 

75160 

1 

C: 

03604 

0 

C : 

01733 

1 

I : 

45014 

0 

C: 

01462 

0 

15,3250 

C: 

31237 

0 

I : 

77776  1 

1 1 145 

1 

13255 

1 

13265 

1 

34752 

0 

701  04 

0 

10000 

0 

1 5, 32-ftO 

13  543 

1 

06034  I 

I : 

7 7 624 

1 

C : 

33470 

1 

I : 

77776 

1 

35742 

0 

046  16 

I 

C : 

20476 

0 

15,3270 

16001 

1 

13543  1 

16001 

1 

I : 

75160 

1 

C: 

02664 

1 

C : 

02642 

0 

I : 

77624 

l 

C: 

31237 

0 

15,3  300 

I * 

7 75  24 

1 

C -i_ 

4 74  41  1 

I : 

77624 

1 

C : 

31267 

Q_ 

I : 

77624 

1 

r. : 

47755 

0 

I : 

77624  1 

C : 

31506 

0 

15,3310 

I : 

77624 

l 

C: 

31523  1 

I : 

77624 

1 

C: 

33041 

1 

I : 

77650 

1 

C: 

33236 

0 

C: 

01535 

0 

04616 

1 

15,3320 

C: 

33635 

1 

06036  1 

I : 

77745 

1 

C: 

03440 

1 

C: 

01046 

1 

I : 

77776 

1 

32172 

1 

04616 

1 

15+33-30  - 

C: 

-205.-10 

1 

16001  _1 

13337 

1 

13326 

1 

05353 

1 

Cs 

00014 

1 

05155 

0 

0 6036 

1 

15,3340 

I : 

50145 

1 

C: 

01046  1 

C: 

33367 

0 

I : 

65234 

1 

C: 

21462 

1 

C: 

01046 

1 

I : 

65254 

1 

C: 

33357 

0 

15+3  3-50 

I i . 

51025 

1 

CL 

01045  1 

C : 

33^57 

0 

I : 

45545 

1 

C: 

74337 

0 

C : 

36775 

1 

C : 

333  6 1 

0 

I : 

45545 

1 

15,3360 

C: 

75002 

1 

C: 

34041  0 

C: 

27057 

0 

I : 

53575 

0 

C: 

00001 

0 

C: 

37605 

0 

C: 

33647 

1 

I : 

77776 

1 

15,3370 

34755 

1 

55145  1 

55  146 

1 

34737 

0 

70077 

0 

10000 

0 

34745 

0 

27146 

1 

ASSEMBLE  REVISION  069  H3F- AGC- PROGRAM  LtwmiAR-Y— 8-Y  NASA  2021112-011 — 


19:0?  NOV-- 25 ,1968- 


- PAGE  16  37, 
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ocial LISTING  FOR  PARAGRAPH  # 107,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH  WORD,  "3"  DENOTES  UNUSED  FIXFD  MFMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NT E RPRF T I VE  OPERATOR  WORDS)  OR  «C"  (CONSTANTS) 


7010? 

0 

10  000 

43-  - 

3475-0 

1 

27146 

I 

34750 

1 

55144 

0 

33534 

..Q 

15,3410 

04616 

1 

C: 

20351 

1 

16001 

i 

13415 

0 

13407 

0 

05353 

1 

C: 

05024 

1 

C : 

13000 

0 

15, 3420 

34737 

0 

70077 

0 

10000 

0 

13523 

1 

34753 

1 

70102 

0 

10000 

0 

13527 

0 

3475? 

o 

71145  1 

10000 

0 

13.527 

0 

0.5567 

0 

c.: 

0.0  701 

1 

35006 

1 

046  16 

1 

15, 3440 

C: 

20351 

1 

16001 

1 

13407 

0 

13407 

0 

I: 

40220 

0 

C: 

02746 

0 

C: 

00001 

0 

I : 

77634 

0 

l 5 f S4-5-0 

C-1 

21A62 

L 

_ Cjl 

.^2  75.6  0 

J 

- C: 

0272  3 

0 

- I : 

41525 

0 

f : 

03560 

1 

I : 

77624 

1 

C: 

51504 

1 

C: 

26723 

0 

15,3460 

C: 

02731 

0 

I : 

65201 

1 

C: 

00001 

0 

C: 

03560 

1 

I : 

45006 

0 

C: 

51504 

1 

C: 

3673  1 

1 

C: 

02746 

0 

15,3470 

I : 

45020 

1 

C: 

02746 

0 

C: 

47443 

1 

I : 

40234 

0 

C: 

21462 

1 

C: 

00001 

0 

C: 

37560 

0 

C: 

31267 

0 

15,3500 

I : 

61375 

1 

C: 

02673 

1 

C: 

01  734 

0 

I : 

65256 

0 

C: 

03560 

1 

I : 

45006 

0 

C: 

51531 

1 

C: 

26243 

0 

15,3510 

C: 

02701 

0 

I : 

53505 

1 

C: 

01734 

0 

I : 

41525 

0 

C: 

03560 

1 

I : 

77624 

1 

C : 

51531 

1 

C: 

02251 

0 

1 st  ^s?n 

I 1 

7 76  14- 

1 

r : 

03036  1 

C : 

J32  746 

0 

06036 

1 

I : 

77624 

1 

C : 

33470 

1 

I : 

77776 

1 

05504 

0 

1 5 j 35  30 

C: 

00205 

0 

34753 

1 

71145 

1 

10000 

0 

12627 

1 

05353 

1 

C: 

04024 

0 

347  5 3 

1 

7 0-1  02 

43 

IQ-Q-O-Q- 

43 

1-3  55  7 

1 

05353 

- 1 _ 

£-: 

QA-024 

0. 

05516 

a.  . 

C : 

0.02  0 5 

_a 

36744 

0 

1 5,3550 

71145 

i 

50000 

i 

13553 

0 

13557 

1 

1 3600 

0 

13616 

l 

13617 

0 

06036 

1 

15, 3560 

I : 

77775 

i 

C: 

02243 

0 

C: 

26723 

0 

C: 

02251 

0 

C: 

36731 

1 

C: 

47443 

l 

I : 

77624 

i 

C : 

31267 

0 

15 r 3570 

I l 

777  75 

1 

C : 

026-73 

1 

CJL 

-26  761. 

.0  . 

C: 

02701 

0 

C : 

.36767 

1 

C : 

33444 

0 

T: 

77650 

l 

C: 

33156 

0 

15,3600 

06036 

i 

I : 

53575 

0 

C: 

02023 

1 

C: 

26723 

0 

C: 

02251 

0 

C: 

36731 

l 

C: 

47443 

l 

I : 

77674 

1 

1 5 1 37>  1 0 

C-1 

31-267 

4). 

T : 

45-1-7  5- 

0 

C-i 

07235  1 

C : 

47565 

1 

I : 

77650 

1 

r: 

33572 

i 

13114 

i 

06036 

1 

15,3620 

I : 

53575 

0 

C: 

0 2023 

1 

C: 

02723 

0 

C: 

26731 

0 

C: 

02235 

1 

I : 

77624 

l 

C : 

47565 

l 

C: 

3676  1 

1 

15, 3630 

C: 

33444 

0 

I : 

77776 

1 

13116 

0 

C: 

00701 

1 

C: 

01206 

1 

41302 

0 

74743 

l 

10000 

0 

15, 3640 

13644 

0 

05567 

0 

C: 

00210 

1 

06001 

0 

05504 

0 

C: 

00007 

0 

04631 

i 

I : 

77770 

1 

1 5, 3650 

C : 

02746 

0 

C: 

01555 

0 

I : 

47235 

0 

C: 

01563 

0 

C: 

03605 

1 

I : 

77656 

1 

C: 

03621 

l 

I : 

53435 

0 

15-f  3-6  60 

C- 

- 036  05- 

1 

r : 

376  1 3 

1 

- . C.: 

02746 

0 

I : 

54201 

0 

F: 

00001 

0 

C : 

20617 

0 

1 : 

56371 

i 

C: 

01707 

0 

15,3670 

C: 

12024 

1 

C: 

00031 

0 

I : 

77170 

l 

C: 

00000 

1 

C: 

00000 

1 

I : 

77614 

1 

C: 

00274 

0 

1 : 

77745 

1 

1-5,  3 700 G: — 12-00 A 0 C-:— 0002  7 1 1 1-  AO 7-4 5 0 C:  00-031 0. 

15,3710  I:  40756  1 C:  12044  1 I:  62015  1 C:  00027  1 
15,3720  C:  33702  1 I:  40745  0 C:  00031  0 C:  65747  0 
1 5 ,-37-30 Cj — 00027  1 C:  10071  0 L:  63135  0 C:  00050  1 


15,3740 

I : 

7 7 644 

1 

C: 

33677 

l 

I:  45345  1 

C: 

00021 

1 

C: 

0 002  5 

0 

I : 

65356 

1 

C: 

0002  1 

1 

l : 

65356 

1 

15,3750 

C-I- 

-000  21 

1 

- 1 : 

5 5-54-6 

0 

I : 253521  1 

C-l 

12002 

0 

C : 

02723 

Q 

T : 

65345 

0 

C : 

1 2004 

0 

C: 

0 0023 

0 

15,3760 

I : 

65356 

1 

C: 

00023 

0 

I:  55546  0 

I : 

53521 

1 

C: 

1 2002 

0 

C : 

02715 

0 

I : 

77616 

0 

I : 

77745 

1 

15, 37  70 

C: 

12004 

0 

C: 

00027 

1 

I:  77650  1 

C: 

33721 

0 

I : 

77616 

0 

C: 

03775 

1 

C: 

03776 

1 

CKSM 

66242 

0 

c:  120-50—1 I-J-  42.661  0 C:  20211  1 C :__12Q4.6_.0._. 

C:  77771  0 C:  00027  1 I:  77614  l C:  00054  0 

I:  42661  0 C:  20206  1 C:  65741  0 I:  77625  0 

C:  77775  1 I:  53015  0 C:  12026  0 C:  33767  1 


GAP-' A S S E R BL  E--R F-V  LS  ION  069  OF  AGO  PROGRAM  LUMINARY 


OCTAL  LISTING 

FOR  PARAGRAPH  # 110,  WITH  PARITY  BIT 

ALL  VALID  WOROS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

00006  l - 

. 00031  0 

40000  0 

16,2010 
16,2020 
a t ? n an 

10000  0 
02030  0 
7 47  37-  1 

12203  0 
10000  0 
1-000-0  0- 

41273  1 
12154  1 
12041  1 

16,2040  C 

- 70  SO  

: 40106  1 
347-55-  1 - 

02000  0 
55524  l 

30111  0 
-55525  0 

16,2060 

16,2070 

55427  0 
55500  1 

55430  0 
55502  0 

55537  0 
55545  0 

16,2100 
16,2110 
16*2-120 

55631  0 
00006  1 
34.751  0 

55630  1 
30033  1 
5553-5  1 

55632  0 
53437  1 
55536  1 

16, 2130 

55465  0 

55467  1 

55463  0 

U^r-ZIAQ 

^47  52  0 

55431  1 

55432  1 

16,2150 

16,2160 

54030  0 
00006  1 

15270  0 
32153  1 

C:  02024  0 
53275  1 

16,  21  70 0-1-0Q5-  0 00006  1 01006  0 


16,2200 

16,2210 

C:  07400  1 
— 377-2  6 0 

C:  02210  0 
_ 2603-0  0 

C:  34106  1 
2201 6 0 

16,2220 

16,2230 

02000  0 
21637  0 

31633  0 
02245  0 

00006  1 
55634  0 

16,2240 
16, 2250 
16,2260 

00006  l 
40000  0 
11424  0 

27443  1 
00002  0 
17764  n 

00006  1 
00006  1 
1 7273  1 

16,2270 

00002  0 

44733  0 

00002  0 

- 16,2300 

0 0-0-02-  0 

5 nn  n n l 

16,2310 
16,2320 
1.6., 2330 

55743  1 
54061  1 
77735  0 

30032  0 
41743  1 
27427  0 

54001  1 
00006  1 
3 1 745  0 

16,2340 
16,2350  - 

54001  1 
53425  1 

00006  1 
022  5.5  1 

21437  1 
no nn 6 ] 

16,2360 

16,2370 

31742  1 
00006  1 

21445  1 
21440  1 

41452  1 
55737  1 

BY  NASA  20  21-1 12-  Oil 


ISA-02  NOV.  -2-5,  L-OfcB 


P AG  F I ABB 


IN  BINARY 

AT  THE 

PIGHT  OF  EACH 

WORD,  " 3" 

DENOTES  UNUSED 

FIXED  MEMORY 

MARKED  "I" 

(INTERPRETIVE  OPERATOR  WORDS) 

OR  "C"  (CONSTANTS) 

743-5-5 

1 

00006  1 

1 ? 1 54-  1 

41 303  1 

74744  1 

74751 

1 

27273  1 

12160  0 

34742  1 

00006  1 

00002 

0 

22016  0 

00006  I 

22012  1 

31273  0 

3.4  73  7. 

. -0 

27773  1 

_ _ 37714  _1 

05072  l 

C: 

02447  1 

7475 1 1 
55526  Q 
55540  0 
55546  0 


55456 

30034 

34733- 

0 

0 

_! 

55457 

55440 

54031 

1 

1 

1 

42177  0 
41273  1 
55464  1 

71273  1 
74740  1 
55466  0 

55273 

27273 

34755 

1 

1 

1 

55470 

1 

55471 

0 

55472  0 

44363  1 

55755 

0 

55  433- 

-0-  _ 

. -.00006 

1 - 

37707  Q 

53 ? 7 5 1 

37775 

n 

34106 

1 

04674 

0 

C:  36563  1 

04674  0 

C : 

3 5425 

i 

34755 

1 

55470 

1 

55471  0 

55472  0 

00006 

i 

422  00 

Q 

00006 

1 

03012  1 

12147  0 

C: 

03021 

i 

00006 

1 

32207 

0 

52006  0 C: 

02226  0 

C: 

40106 

i 

000.06 

J 

_ .220.12 

1 - 

- 11  755  0 

05634  0 

C : 

02000 

0 

21636 

1 

02245 

0 

55633  1 

31634  l 

00006 

1 

31635 

0 

00006 

1 

21640  0 

02245  0 

55635 

1 

27455  0 13624  0 

71737  1 21425  1 

-62  304  1 00006  1 

53425  1 00006  1 


00002 

-0 

-C-:  7 714  7 

0 - 

3173  5- 

1 

_QQQ06  1 

7L530 

1 

00006 

1 

21436 

0 

23436 

1 

55735  0 

33603 

1 

74736 

0 

27426 

1 

31744 

1 

61545  1 

00006 

1 

61  546 

1 

00006 

1 

77735 

0 

27430  0 

30033 

1 

23437 

0 

55736 

0 

00006 

1 

71412  0 

61735 

1 

61417 

1 - 

2 7426 

1 

02277 

1 

55426  1 

00006 

1 

00006 

1 

73603 

0 

21  445 

1 

30034  0 

54001 

1 

23440 

0 

31413 

0 

00006 

1 

71736  0 

53425 

1 

10000  0 
00006  1 
62273  0 
10061  1 


64753  1 
31425  0 
11424  0 
00002  0 


00002  0 
53742  0 
34733  1 
54007  1 


00006  1 12154  1 04674  0 C:  40153  1 

5-5417  0 55420  1 55421  0 55426  1 

55541  1 55542  1 55422  0 55423  1 

55510  0 55512  1 55501  0 55627  1 


-&AP-: — A SSE  M8L-E-  REV  IS  I ON -0  69-  -QF-4GC  PROGRAM  LUMINARY  BV  NASA  -202-1  l 12-011 
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£A&£_ L639 

OCTAL  LISTING  FOR  PARAGRAPH  # 111,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3''  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

02 2-5  2 0 - 

00006  1 

61420-0- 

27427  0 

-022X7-  1 

55477  0 - 

000-05  1 

16, 2410 

31742  1 

21447  0 

41453  0 

00006  1 

73603  0 

21447  0 

31414  1 

00006  1 

16,2420 

71736  0 

5342  5 1 

31416  0 

02252  0 

00006  1 

61421  1 

27430  0 

02277  1 

16,  243-0 

5543Q  0 

OOOlOfcL  1 

31742-  1 

21451  1 

41454  1 

00006  1 

73603  0 

21451  1 

16,2440 

30111  0 

74737  1 

00006  1 

12451  1 

00006  1 

31405  1 

52062  1 

31403  1 

-4  ? 4 6-0  - 

12455  0 

000-0.6-  1 

31410  0 

52062  1 

31406  1 

54063  0 

11426  l 

12461  l 

16, 2460 

12476  1 

60063  1 

00006  1 

62476  0 

22007  0 

23426  0 

34755  1 

00006  1 

16,2470 

11431  1 

27417  0 

02277  1 

55417  0 

30061  0 

55431  1 

25431  0 

31743  0 

16, 2500 

27417  0 

02277  1 

55417  0 

11427  0 

12506  1 

12533  1 

60063  1 

00006  1 

16,2510 

62533  0 

22007  0 

23427  1 

34755  1 

00006  1 

11432  1 

55735  0 

27420  l 

4-/*t  ? 6 ?o 

02277  1 

55420  1 _ 

30061  0 

- 5743?  0 

60062  0 _ 

57735  1 

00006  1 

74756  0 

16,2530 

00006  1 

11735  0 

27537  0 

25432  0 

31744  1 

61545  1 

27420  1 

02277  1 

1A,  ?*>40 

55420  1 

14-43  0 0 - 

- _ -12  544  1 - 

L2-5-71-  J _ 

_ .^6-O-OiJ  1 

QOQ-Q  6 1 

67571  0 

22007  0 

16,2550 

23430  1 

34755  1 

00006  1 

11433  0 

55736  0 

27421  0 

02277  1 

55421  0 

16,2560 

30061  0 

57433  1 

60062  0 

57736  1 

00006  1 

74756  0 

00006  1 

11736  0 

16, 2570 

_ 2754j  1 

_ 75433  1 _ 

_ 31745  0 

- _ 61546  1 

27421  0 

02277  1 

55421  0 

40111  1 

16,2600 

74744  0 

10000  0 

12613  0 

55422  0 

55423  1 

55545  0 

55546  0 
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ALL  VALID 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

12-407) — 0 - 

34755  1 
12423  1 
61474  1 

12616—0 

32277  1 

5-5455  0 

00004  0 

-0.4674_.  0 

Iff  £*+  u u 

17,2410 

17,2420 

C : 

: 40153  1 
12423  1 
1 ^ 

00003  1 
12423  1 
124-3-2  1 

55446  1 
61474  I 
__  - 03-0-0.6  I 

55447  0 
00006  1 
62436  1 _ 

55450  0 
62441  1 
12452  1 

55451  l 
11425  1 
34755  1 

11424  0 
12432  1 
55425  1 

17,2440 

12452  1 
^4755  1 

11425  1 

02445  0 
31455  1 

02445  0 
. 00006  1 - 

02445  0 
62461  Q 

61474  1 
41273  1 

00006  1 
74741  0 

62461  0 
27273  1 

17,2460 

17,2470 

02464  0 
34751  0 

44741  0 
55741  0 

71273  1 
51476  0 

55273  1 
51535  0 

32530  0 
12475  1 

55475  1 
34751  0 

34753  1 
51476  0 

55476  1 
55535  1 

17,2500 
17,2510 
1 7,J>5?0 

12737  1 
50000  1 
- 54000  0 

51476  0 
41571  1 
12523-  0 

11424  0 
00006  1 
30002  0 

34755  1 
51476  0 
_ 51  476  0 

12506  1 
71424  0 
55525  0 _ _ 

34753  1 
54002  1 
12661  0 

51476  0 
20001  1 
34755  1 

63657  0 
60002  0 
12523  0 

17,2530 

C: 

: 02467  0 

34736  1 

70111  1 

10000  0 

12060  1 

11501  0 

12540  0 

12060  1 

17  T 2*>40 

O-nODA  1 

00005.  1 

10000-0 

12547  1 

00006  1 

32S62  1 

-52-0-06  0 

11631  0 

17^2550 
17,2560 
17,-25  70  - 

12552  0 
120  60  1 
7 1413-1 

12060  1 
C:  03263  0 
- 55750  -CL 

00004  0 
C:  42106  0 
30034  0 

04674  0 
30033  1 
-000-0.6 1 . 

C:  43450  1 
00006  1 
21635  1 

00003  1 
21634  0 
55736  0 

34755  1 
55735  0 
00006  1 

55631  0 
00006  1 
71415  1 

17,2600 
1 7 0 

61300  0 
_ 0-00  06—1 

61750  1 
—7X41-6-1 

57446  0 
61301  1 

31735  1 
61750  1 

00006  1 
57450  1 

71414  0 
0000?  0 

55750  0 
31450  1 

31736  1 
22000  1 

17,2620 

17,2630 

31446  0 
51535  0 

03100  0 
12632  0 

53750  0 
34751  0 

33045  0 
51476  0 

55475  1 
55535  1 

34753  1 
12737  1 

55476  1 
51476  0 

51476  0 
31747  1 

17,2640 

17,2650 

17,2660 

55750  0 
03207  1 
55  741  0 

51476  0 
12661  0 
-30101-  1 

31424  1 
40111  1 
74737  1 

55425  1 
74736  0 
00006  1 

30111  0 
10000  0 
12675  0 

74737  1 
55627  1 
40106  1 

10000  0 
03700  0 
74737  1 

12652  0 
34751  0 
00006  1 

17,2670 

12675  0 

30111  0 

74744  0 

00006  I 

13015  1 

34752  0 

54001  1 

51476  0 

1-7,2700 

1162  5 -0 

12706  0 

12731  1 

12706  0 

12731  J. 

27007  Q 

64 15  3 1 

55133  0 

17,2710 

17,2720 

17-^-2-730 

31476  0 
51476  0 
13003  0 

60001  0 
33037  0 
514-7  6 0 

55742  0 
54001  l 
33037  0 

31735  1 
31  737  0 
00Q04  0 

63042  1 
00004  0 
50000  1 

00006  1 
50001  0 
05744  0 

62742  1 
05745  1 
00003  L 

03130  0 
00003  1 
11476  1 

17,2740 
17,2  750 

01475  0 
11525  0 

13173  0 
3 304  1 _1 

41735  0 
12  754  1 

63041  1 
43041  0 

00006  1 
5 1476  0 

62764  0 
5552-5—  0 

27735  0 
11477  0 

51476  0 
12763  0 

17,2760 

17,2770 

00006  1 
55467  1 

00004  0 
31737  0 

74753  0 
51467  0 

55741  0 
05745  1 

03130  0 
31735  1 

51476  0 
55466  0 

33037  0 
03046  0 

00004  0 
00003  1 
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OCTAL  LISTING 

FOR  PARAGRAPH  # 116, 

WITH  PARITY  1 

BIT 

IN 

BINARY 

AT 

THE  RIGHT  OF 

EACH  WORD, 

3" 

DENOTES  UNUSED 

FIXED  MEMORY 

ALL  VALIO 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

(INTERPRETIVE  OPERATOR  WORDS) 

OR  "C"  (CONSTANTS! 

SJ]-47  6 

o 

_ 55535 

1 

4^,  7 4 4 

1 

61741  1 

- 00006 

_ 1_ 

6301  1 

1 

3475? 

-Q 

17,3010 

1 3012 

0 

34753 

1 

51476 

0 

55522 

1 

12737  1 

34755 

1 

55525 

0 

55526 

0 

17,3020 

34751 

0 

00004 

0 

57535 

0 

00006 

1 

13026  1 

05750 

0 

3475  1 

0 

57536 

0 

nnnn^  i 

00006 

1 - 

_ 1-3173 

- 0 

.00.00  4. 

0.. 

- 0 5761.  1 

00003 

I 

13  L73 

0 

C:  00004 

0 

17,3040 

C : 

00015 

0 

C:  00026 

0 

C:  77417 

0 

C 

: 00600 

1 

C:  00266  0 

C:  02626 

1 

41466 

0 

60031 

0 

00006 

1 

630-6  3 

1 

_ _23  463 

-I 

53  465 

0 

53467  1 

54031 

1 

23463 

1 

34735 

1 

17,3060 

000  06 

1 

05013 

0 

00002 

0 

61464 

0 

00006  1 

63074 

1 

23465 

1 

53467 

1 

17, 3070 

00006 

1 

6003  1 

0 

53465 

0 

00002 

0 

40000  0 

64754 

0 

55466 

0 

00002 

0 

17,3100 

55735 

0 

60001 

0 

55736 

0 

13111 

1 

10000  0 

3473  3 

1 

13110 

0 

34735 

1 

17,3110 

5 5 736 

0 

41735 

0 

60001 

0 

55735 

0 

13120  0 

00006 

1 

74733 

0 

30001 

0 

17,3120 

00-006 

1 

7312  7 

1 

5.7  736 

1 

00006. 

1 

73127  1 

23736 

1 

00002 

0 

C:  26501 

1 

17,3130 

51742 

1 

33162 

1 

51741 

1 

73166 

1 

55737  1 

71262 

1 

10000 

0 

13141 

1 

17,3140 

00-0  02 

0 

. 36-244 

-0-  -- 

-55  741 

a 

51742- 

1 

33162-1 

5.1.741  1 

__  7316-6  1 

5-57  3 7 

1 

17,3150 

71262 

1 

00006 

1 

13140 

0 

11741 

0 

13142  1 

51476 

0 

55525 

0 

05567 

0 

17,3160 

C : 

02004 

1 

12731 

1 

C:  00110 

l 

C 

: 00022 

1 

C:  00204  1 

C:  00041 

1 

C:  00125 

l 

C:  00252 

l 

17,31 70  _ 

- CJ 

00-146. 

1 

Cl-  00Z31 

L 

C:  00377 

l 

33175 

l 

07753  1 

C:  03176 

1 

53752 

1 

5201  1 

0 

17,3200 

53754 

1 

56017 

1 

22002 

0 

34735 

1 

53756  0 

52016 

1 

15272 

l 

00006 

1 

1 7,32 10 

2-3-743 

-0- 

51476 

0 

33  657 

0 

55744 

0 

31425  0 

00006 

1 

63223 

1 

31744 

1 

17,3220 

55742 

0 

33661 

0 

13233 

1 

41750 

0 

55750  0 

41425 

1 

55425 

1 

34753 

1 

17,3230 

27744 

0 

55742 

0 

43661 

1 

55736 

0 

31750  1 

00006 

1 

74747 

0 

10000 

0 

17,3240 

13621 

0 

13243 

0 

13565 

0 

34737 

0 

00006  1 

70001 

1 

55750 

0 

31425 

0 

17, 3250 

00006 

1 

74750 

0 

00006 

1 

13255 

1 

13627  0 

23425 

0 

31425 

0 

00006 

1 

1 7 , 32>  60 

70000 

0 

00006 

1 

74737 

1 

55  73  5 

0 

11750  0 

63662 

0 

13270 

0 

6366? 

0 

17,3270 

0 0006 

1 

51744 

1 

61601 

1 

00006 

1 

63301  0 

34752 

0 

27742 

0 

34751 

0 

1-7^33-QQ 

1 3304 

1 

1 147  7 

0 

13  304 

1 

13275 

n 

5 5741-  0 

41  7^5 

0 

no no a 

1 

51747 

1_ 

17,3310 

71567 

0 

51744 

1 

61601 

1 

00006 

1 

61750  1 

55737 

1 

00006 

1 

63477 

0 

17,3320 

51744 

1 

31573 

1 

00006 

1 

71  735 

0 

61750  1 

51744 

1 

61603 

0 

00006 

1 

L7 ,3330 

63363 

-1 

51476  0 

41525 

0 

00006 

1 

71736  0 

00006 

1 

63357 

0 

11555 

1 

17,3340 

13351 

1 

41737 

1 

51744 

1 

61605 

0 

00006  1 

63357 

0 

03463 

0 

31737 

0 

17,33-50 

13517 . 

-0  _ 

51744 

1 

41601 

0 

60000- 

1 

61 737  0 

00006 

1 

63361 

0 

34755 

1 

17,3360 

13423 

0 

03463 

0 

13504 

1 

54001 

1 

11736  0 

13371 

0 

05677 

1 

44752 

1 

17,3370 

27742 

0 

3000  1 

0 

00006 

1 

51742 

1 

71576  0 

20001 

1 

20001 

1 

53746 

1 

GAP 
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OCTAL  LISTING  FOR  PARAGRAPH  ft  117,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


- onnoft  i 

71425 

1 

5-5J740  1 

QOOnft 

} 

__  73-62  1 

0 

61745 

0 

17,3410 

67745 

0 

00006  1 

63440  1 

31740 

0 

00006  1 

73672 

0 

61745 

0 

63663 

1 

17,3420 

00006 

1 

63450  0 

34741  1 

00006 

1 

71736  0 

51476 

0 

55525 

0 

00006 

l 

1 7, 

5 147ft 

Q 

715.4  7 1 

30001  0 

Q-0006 

1 

- - 63437  1 . 

34751 

0 

55741 

0 

01743 

0 

17, 3440 

43670 

1 

61740  0 

53746  1 

00006 

1 

11745  1 

00006 

1 

74736 

0 

13560 

0 

1 7 t_3_4  50 

00-006 

1 

336  7 4 1 

71746  1 

31740 

0 

63664  0 

53746 

1 

00006 

l 

1 1745 

1 

17, 3460 

00006 

1 

74736  0 

13423  0 

41736 

0 

55736  0 

31425 

0 

00006 

1 

51742 

1 

17,3470 

71567 

0 

55740  1 

63675  0 

00006 

1 

63476  1 

13427 

1 

00002 

0 

03463 

0 

17,3500 

31737 

0 

61555  0 

00006  1 

63517 

1 

41556  1 

61740 

0 

00006 

1 

63512 

1 

17,3510 

31740 

0 

13423  0 

11425  1 

34  746 

0 

13423  0 

05677 

1 

13423 

0 

00006 

1 

ft  1 744 

1 

61  ftf)  5_  0 

00006  1 

51742 

1 

71575  0 

7000  1 

1 

2000  1 

1 

53746 

1 

17,3530 

31740 

0 

63675  0 

00006  1 

70000 

0 

00006  1 

61  745 

0 

00006 

1 

63422 

0 

17,3540 3J.-TA5 — 0 6 7-745-0 0000-6—1 63553  I 3 3665-1 53746  I 00006_1 li  ZA5_L 


17,3550 

6 1740 

0 

63666  1 

13423 

0 

43667 

1 

53746 

1 

00006 

1 

11745 

1 

61740 

0 

17,3560 

63677 

1 

00006  1 

63357 

0 

63676 

0 

1 3423 

0 

44740 

1 

27425 

1 

00006 

1 

1 7,35  70 

-63611 

2L 

03647  1 

31425 

-0 

00006 

1 

5 1742 

1 

71571 

1 

67740 

0 

00006 

1 

1 7, 3600 

63602 

0 

13422  1 

00006 

1 

13422 

1 

64740 

0 

20001 

1 

20001 

1 

20001 

1 

17,361-0 

1 3660  - 

-0 

03651  0 _ 

11  736 

0 

34753 

1 

1 3616 

l 

37  746 

0 

27742 

0 

41425 

1 

17,3620 

13573 

1 

03647  1 

34740 

0 

61425 

0 

54000 

0 

13573 

1 

13422 

1 

03647 

1 

17,3630 

51744 

1 

416  01  0 

61  750 

1 

00006 

1 

74741 

0 

57425 

0 

00006 

1 

70000 

0 

17,3640 

00006 

1 

51744  1 

71571 

1 

61425 

0 

00006 

1 

63357 

0 

13422 

1 

41736 

0 

17,3650 

55736 

0 

34751  0 

55741 

0 

34735 

1 

55737 

1 

00002 

0 

C:  77757 

1 

C: 

00000 

1 

17,-3660 

C-i- 

0002-0- 

_Q 

Ci- 

1 44  OQ  Q 

C : 

: 76  447. 

1 

CJ 

77750 

0 

C: 

00632 

0 

C : 

01  463 

1 

C:  00232 

1 

C: 

77462 

1 

17, 3670 

C: 

77631 

0 

C: 

77145  1 

C: 

75462 

0 

C: 

00007 

0 

C: 

25605 

0 

C: 

76631 

1 

C:  00122 

0 

C : 

77655 

1 

1 7 f ^7  00 

314  75 

0 

00006  1 

74  766 

o 

OODQft 

1 

1 ^717 

1 

ft^nni 

1 

^ft  ?4  1 

Q 

55741 

0 

17,3710 

10001 

1 

13753  1 

05677 

1 

34736 

1 

51476 

0 

55525 

0 

00002 

0 

51476 

0 

17,3720 

11525 

0 

13725  0 

13737 

0 

31425 

0 

13726 

0 

41425 

1 

22000 

1 

40111 

1 

1-7 1- 3 7 30 

74744 

-0  - 

1D-06-0-  0 

-34  767 

0 

60001 

0 

00006 

1 

63737 

1 

13716 

0 

314?5 

0 

17,3740 

617  50 

1 

00006  1 

71411 

0 

00006 

1 

1 3761 

0 

00006 

1 

63755 

0 

31425 

0 

17,3750 

63664 

0 - 

-00.00  6.-1. 

63  761 

1 

44736 

0 

13714 

I 

43664 

1 

614  2 5 

0 

00006 

1 

17,3760 

637  13 

1 

34755  1 

13714 

1 

C: 

03763 

0 

C: 

03764 

1 

CKSM 

63234 

1 

3 

@ 

17,3770 

a 

3 

a 

3 

a 

3 

3 

3 
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OCTAL  L ISTING 

FOR  PARAGRAPH 

tt  120, 

W ITH  PARITY 

BIT 

IN  BINARY 

AT 

THE  RIGHT  OF  EACH 

WORD,  ''3" 

DENOTES  UNUSED  FIXED  MEMORY 

ALL  VALID 

WORDS  ARE 

BASIC  INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

(INTERPRETIVE  OPERATOR  WORDS) 

OR  "C"  (CONSTANTS) 

] 

--  f : 0 7^61 

1 

C:  00666 

1 

-32114  1 

2TL111  -L 

55343 

n 

40106  1 

20,2010 

74737 

1 

10000 

0 

34736 

1 

27343 

0 

31343  1 

74355  1 

00006 

i 

12034  0 

20,2020 

31343 

1 

72113 

1 

55343 

0 

32112 

1 

04616  1 C 

: 20231  0 

15472 

i 

12037  0 

1 ?n  1 4 

1 

3624  1 

0- 

0 5464 

1 

15155 

1 

34737  0 

27343  0 

1202  1 

i 

00004  0 

20, 2040 

44737 

1 

70106 

1 

54001 

1 

41343 

0 

74736  0 

10000  0 

34737 

0 

60001  0 

? n *_?  o fin 

54-106 

1 

4134  3 

0 

74355 

1 

10000 

0 

44737  1 

62114  1 

71343 

0 

54001  1 

20',  2060 

42114 

0 

7011  1 

l 

60001 

0 

54111 

1 

74737  1 

10000  0 

31332 

l 

61331  l 

20,2070 

55244 

0 

30111 

0 

74741 

0 

00006 

1 

12101  1 

44735  0 

70075 

l 

54075  1 

20, 2100 

12104 

1 

40075 

l 

74735 

0 

26075 

1 

30111  0 

76244  1 

60000 

l 

55325  0 

20,2110 

04635 

0 C: 

02203 

1 

C:  00256 

0 

C:  33113 

1 

C:  13113  0 

74745  1 

10000 

0 

44752  1 

2 0 , 2 1 2 0 

64753 

1 

-27644 

1 

15270 

0 

30111 

0 

74750  0 

00006  1 

12140 

1 

32151  0 

20,2130 

55346 

0 

00006 

1 

22070 

0 

37714 

1 

05072  1 C 

: 02454  0 

C:  40106 

1 

00070  0 

?Ot  ? 140 

fin  i 

121  30 

0 

00  006 

1 

22070 

0- 

02153.  1 

- 3215?  0 

55346 

0 

L2133  0 

20,2150 

C: 

00155 

0 C: 

03434 

1 

C:  00554 

0 

35015 

0 

56003  1 

54001  1 

30032 

0 

55633  1 

20,2160 

30033 

1 

55634 

0 

30034 

0 

55635 

1 

12170  1 

35015  0 

56003 

1 

54001  1 

20  r?  1 70 

347  55 

1 

5 56  4 1 

1 

5 5 642 

1 

55643 

0 

55636  1 

55637  0 

55640 

0 

55277  0 

20,2200 

55300 

1 

55301 

0 

22003 

1 

00002 

0 

00006  1 

22071  1 

02165 

l 

22003  1 

2 0 1-2  2 10 

5 55  37 

0 _ 

5554  0- 

0 

- _5554 1 

1 

55  542 

1 

55422  0 

55423  1 

55545 

0 

55546  0 

20,2220 

22003 

1 

40111 

1 

74744 

0 

26111 

1 

02124  1 

00071  1 

31273 

0 

54001  1 

20,2230 

3 47  50 

1 

00006 

1 

06001 

0 

55273 

1 

74750  0 

10000  0 

12322 

1 

30074  1 

20,2240 

74750 

0 

10000 

0 

12252 

1 

41446 

1 

55760  0 

41450  0 

55761 

1 

41462  1 

20,2250 

57757 

0 

12442 

0 

00006 

1 

22061 

0 

30322  1 

00006  1 

20033 

0 

55757  1 

20  ,-22-60 

-00006 

_L_  - 

71413 

1 

5 7 760 

1 

30323 

0 

00006  1 

20034  1 

55761 

l 

00006  1 

20,2270 

7 1415 

1 

61760 

1 

02435 

1 

55760 

0 

31757  0 

00006  1 

71414 

0 

57761  0 

£Q-r-2  300 

00006 

1 

71416 

1 

61761 

o 

02435 

1 

55761  1 

31757  Q 

00006 

1 

714J.2  0 

20,2310 

57757 

0 

3032  1 

1 

00006 

1 

20032 

1 

61757  0 

02435  1 

55757 

1 

00006  1 

20,2320 

22061 

0 

12442 

0 

31273 

0 

76241 

1 

00006  1 

12362  0 

7475  1 

1 

00006  1 

20,2-330 

123  53 

1-  - 

1 

00  0-06 

1 

03.012 

1 

44755  0 

55757  1 

55760 

0 

55761  1 

20,2340 

55762 

1 

55763 

0 

55764 

1 

54050 

0 

54051  1 

54052  1 

46241 

1 

71273  1 

20,-2  3 50 

647  52 

0-  

5 5273 

1 

12442 

0 

34746 

o 

00006  1 

05012  1 

46241 

1 

71273  1 

20, 2360 

55273 

1 

12442 

0 

34746 

0 

00006 

1 

02012  0 

10000  0 

1237  3 

0 

41273  1 

20,2370 

74751 

1 

27273 

1 

12442 

0 

34752 

0 

54063  0 

42434  1 

00006 

1 

50063  1 
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10.102  -HOV--2 5,1968 

OCTAL  LISTING  FOR  PARAGRAPH  # 121,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NT F RPPE T I VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


l 

540  n i 

1 

1 0000 

0 

32432 

-0  _ 

1-2406 

0 

42432  1 

_6000 1 

0 

54061 

1 

20,2410 

12414 

0 

50000 

1 

32432 

0 

54001 

1 

50063 

1 

41762  1 

6000  l 

0 

50063 

1 

20,2420 

26050 

0 

50063 

1 

23762 

0 

10063 

0 

12374 

1 

37737  0 

00006 

1 

05014 

1 

1 2442 

n 

c ; 

7717  7 

o 

r:  37?00 

1 

_X_: 

-00600 

L 

_CJ 

: 0-31.46 

1 

54007  1 

00002 

0 

50000 

1 

20,2440 

44734 

i 

00002 

0 

00006 

1 

32446 

0 

52006 

0 

C: 

02016  1 

C : 

: 34106 

1 

34755 

1 

6 55  2 7 

o 

555-4  1 

- 1 

55422 

0- 

_55423 

1 

_ 0-46.16 

1 

c;. 

4046-1  D 

051  55 

0 

35015 

0 

20,2460 

54003 

0 

04645 

1 

54117 

1 

30111 

0 

74737 

1 

54157  0 

10000 

0 

41332 

0 

20,2470 

61244 

I 

55331 

0 

00004 

0 

30106 

0 

74737 

1 

00006  1 

12522 

1 

44733 

0 

20,2500 

55473 

1 

35742 

0 

54154 

0 

41331 

0 

61400 

1 

00006  1 

62513 

1 

41331 

0 

20,2510 

62001 

1 

00006 

1 

62540 

1 

27331 

0 

22007 

0 

10157  0 

31332 

1 

61331 

1 

20,2520 

_ 5^2  45  1 

L2540 

_0 

44743 

0-  - 

. 55473 

1 

36241 

0 

54154  0 

41331 

0 

62002 

1 

20,2530 

00006 

1 

62513 

1 

41331 

0 

62003 

0 

61400 

1 

00006  1 

62540 

1 

12513 

0 

..  . ?_0  T ? 540 

- 00003 

} 

101  5 7 

0 

- 13  030 

-0 

34752 

o 

5 4L55 

1 

44  75  2 1 

a 

313_31_ 

1 

20,2550 

50154 

1 

63006 

1 

54156 

1 

00006 

1 

50154 

1 

32770  0 

00006 

i 

10156 

1 

20,2560 

50154 

1 

63005 

1 

50155 

0 

55530 

1 

10155 

1 

12544  1 

12570 

0 

12607 

0 

20,2570 

31532 

1 

6153J. 

-1 

. 0-0006 

1 

7302_6 

1 

55533 

1 

55534  0 

10154 

0 

34755 

1 

20,2600 

55501 

0 

13142 

1 

44752 

1 

54154 

0 

44753 

0 

54155  1 

12547 

1 

31246 

0 

20,26-10 

0-Q-Q-Q6- 

1 

712-4  4 

-0 

07  724 

1 

C : 

0 30  2 7 

1 

00006 

1 

71527  _L 

00004 

0 

54154 

0 

20,2620 

00006 

1 

71532 

0 

02724 

1 

C: 

02000 

0 

55511 

1 

30154  1 

00006 

l 

71531 

0 

20,2630 

02724 

1 

C: 

02000 

0 

55507 

0 

00006 

1 

73025 

1 

55503  1 

00006 

1 

70000 

0 

20, 2640 

55504 

0 

31511 

0 

00006 

1 

73025 

1 

55505 

1 

00006  1 

70000 

0 

55506 

1 

20,2650 

00006 

1 

000  1 2 

1 

54155 

1 

34752 

0 

12656 

1 

34755  1 

54154 

0 

30155 

0 

20-,266Q 

5-0-154  - 

1 

7302  1 

_Q 

- 00006 

1 

1 2677 

1 

30155 

0 

5QJ  54  1 

73022 

0 

00006 

1 

20,2670 

12674 

I 

50154 

1 

41  507 

0 

12700 

0 

50154 

1 

31507  1 

12700 

0 

34755 

1 

— 20,2700 

5-0-154 

1 

5 55  1 0 

o . 

i n i n 

1 26S5 

1 

4.0  1 1 1 1 

7-4  736  -0 

0 0-0  0 6 

1 

1 3676 

1 

20,2710 

412  74 

0 

63655 

1 

00006 

1 

12715 

1 

1 3576 

1 

11631  0 

1272  1 

0 

04674 

0 

20,2720 

C:  43450 

1 

10157 

0 

13  561 

1 

13143 

0 

54161 

0 

54160  1 

50002 

0 

30000 

1 

ZQ-,2  730 

, , 24002  - 

J0-- 

-50110-0 

_ 30000 

JL 

00006 

1 

1 2763 

0 

54162  0 

10000 

0 

6 A 7 5 3 

1 

20,2740 

12742 

0 

64753 

1 

56161 

1 

00006 

1 

62746 

0 

40000  0 

60161 

1 

00006 

1 

2-0,2750 

627-55 

L- 

301  60 

-0 

.00006 

1 

10162. 

a 

00002 

0 

10160  1 

1016? 

0 

I 2763 

0 

20,2760 

10162 

0 

34735 

1 

00002 

0 

34733 

l 

00002 

0 

C: 

01240  0 

C : 

2251  3 

0 

C: 

00141 

0 

20,2770 

C:  07416 

0 

C : 

00030 

1 

C:  21261 

1 

C: 

00021 

i 

C: 

03766 

0 

C: 

00153  0 

C: 

07111 

1 

C: 

00072 

l 
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-GAP-S ASSEMBLE  REV  IS  ION  069 — OF  AGC-  PROGRAM  LUMINARY  BY 


NASA  2021112-011 


OCTAL  LISTING  FOR  PARAGRAPH  # 122,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


o 

X:  11511 

1 

C-1-  04  754 

a 

C:  -77142 

-0  _ 

r = 

000 6L- 

_Q 

r : 

nn?  l 7 

0 _ 

r : 

004.6 A 

1 

— 2-Or  f3O0Q 
2n  T i o 

— G~5- 

C : 

75642 

0 

C: 

00536 

1 

C:  75705 

1 

C:  00001 

0 

C:  77616 

0 

C: 

05154 

1 

C : 

00052 

0 

C: 

00231 

1 

2 n, 3D?o 

C : 

7 7174 

0 

C: 

01400 

1 

C:  01000 

0 

C:  06000 

1 

C:  04000 

0 

C: 

23146 

0 

C: 

13241 

1 

C: 

00337 

0 

54160 

1 

34  753 

Jl 

54161 

0 

50160 

0 

33125 

1 

00006 

1 

71331 

0 

pnf ^040 

00006 

1 

71332 

0 

50160 

0 

63126 

1 

54154 

0 

13051 

1 

54161 

0 

00006 

1 

26  1 AO 

1 

5016D 

0 

33130 

0 

00006 

1- 

- 50161 

1 

71331 

0 

50160 

0 

63132 

L 

20 , 3060 

00006 

L 

50161 

1 

71331 

0 

26154 

0 

10161 

0 

13046 

1 

10160 

1 

13076 

1 

20,3070 

C : 

00000 

1 

C: 

20354 

1 

30154 

1 

54155 

1 

34757 

0 

13031 

1 

34742 

1 

55530 

1 

20,3100 

34733 

1 

5555  1 

0 

55571 

1 

55572 

1 

55611 

1 

55612 

1 

00006 

1 

33071 

1 

20,3110 

00006 

1 

10155 

1 

00004 

0 

55531 

0 

55532 

0 

31244 

1 

00006 

1 

701  54 

0 

nnnn^ 

l 

71246 

1 

02724 

1 

C:  00155 

0 - 

55511 

1- 

12632 

0 

C : 

06176 

1 

C: 

77650 

1 

20, 3130 

C: 

72260 

0 

C: 

766  3 7 

1 

C:  02167 

0 

C*.  00645 

0 

C:  06335 

1 

C: 

04256 

1 

C: 

30163 

0 

C: 

64072 

0 

C : 

6 3 6 3? 

n 

C: 

1513  3 

1 

5-5631 

0 

- 31346 

1 

0 00-06 

1 - 

74737 

6000,0 

-1 

20,31 50 

54115 

0 

41346 

0 

60001 

0 

54114 

1 

00004 

0 

31541 

0 

54001 

1 

31537 

1 

20,3160 

04674 

0 

C: 

37100 

1 

53544 

1 

00003 

1 

30111 

0 

74744 

0 

10000 

0 

34753 

1 

20 , 3 ] Jf) 

541  16 

0 

61501 

1 

10000 

-0 

33653 

1 

54151 

0 

00006 

1 

13202 

0 

10116 

0 

20,3200 

33652 

0 

54152 

0 

31  530 

0 

64743 

0 

54157 

0 

31530 

0 

03570 

0 

00004 

0 

20,  32JD 

-5-55-51 

0 

55552_ 

0 - 

44  743 

1 

00006 

1 

71551 

0 

00006 

1 

10157 

0 

55557 

0 

20,3220 

55560 

1 

347  3 3 

1 

55553 

1 

55554 

0 

00003 

1 

22007 

0 

10116 

0 

53544 

1 

20,3230 

34755 

1 

54154 

0 

54163 

1 

50154 

1 

11543 

0 

64753 

1 

13241 

1 

64753 

1 

20,3240 

24163 

0 

54162 

0 

40163 

1 

54164 

0 

31346 

1 

54143 

0 

54144 

1 

30162 

1 

20,3250 

63654 

0 

00006 

1 

63322 

1 

10151 

0 

13265 

1 

31346 

1 

50164 

1 

26144 

1 

?n  r ^ ?/>n 

0 

541  45 

o 

30  1 14 

0 

50164 

1 

54146 

0 

30  162 

1 

03570 

0 

50164 

1 

20,3270 

54130 

l 

34733 

1 

50163 

0 

54127 

1 

30162 

1 

61533 

0 

61533 

0 

64743 

0 

20*  ^00 

s 40-00 

0 

1 3^47* 

1 

30  16? 

1 

00  00-6 

L_ 

7 4736 

0 

61533 

_CL 

5415  7 

0 

64744 

1 

20, 3310 

56157 

1 

03570 

0 

00006 

1 

74736 

0 

54160 

1 

33321 

1 

5416  1 

0 

44744 

0 

20,3320 

13623 

1 

13353 

0 

54001 

1 

34733 

1 

54127 

1 

54130 

1 

1015  1 

0 

13346 

1 

2 0 1-3  3 3 0 

3 4 744 

1 

-60003 

Q 

00-006 

1 

63343 

0 

30115 

1 

50164 

1 

54146 

0 

60000 

1 

20,3340 

50163 

0 

54145 

0 

13346 

1 

31346 

1 

54146 

0 

54145 

0 

30162 

1 

61533 

0 

20,3350 

6 1533- - 

_0_ 

_5A15  7 

0 

03614 

1 

50  164 

1 

54134 

0 

30160 

0 

50  164 

1 

54126 

0 

20,3360 

30162 

1 

61533 

0 

64743 

0 

54000 

0 

1 3366 

0 

34733 

1 

63654 

0 

54157 

0 

20,3370 

03614 

1 

50164 

1 

54132 

0 

30160 

0 

50164 

1 

54124 

1 

40162 

0 

61533 

0 

-GAP 
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OCTAL  LISTING  FOR  PARAGRAPH  # 123,  WITH  PARITY  BIT  IN  8INARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

(INTERPRETIVE 

OPERATOR  WORDS)  OR 

"C 

" (CONSTANTS) 

50163 

0 

54133 

] 

54001 

1 

30160 

0 

501 630 

541 25 

0 

20, 3410 

40162  0 

61533  0 

54157 

0 

63654 

0 

00006 

1 

63633 

1 

03610  0 

50163 

0 

20, 3420 

54131  0 

30160  0 

50163 

0 

54123 

0 

50154 

1 

33660 

1 

71262  1 

00006 

l 

] 

30424-  0 

54126 

0 

30132. 

J_ 

5 4134 

-_0 

50154 

1 

33656  1 

71262 

l 

20,3440 

00006  1 

13446  0 

30  123 

1 

54125 

0 

30131 

1 

54133 

1 

40146  0 

60143 

l 

i l 

5A-L4  7 1 

4.0145 

0.  -- 

.-60X4A 

0 

6-0151 

1. 

54150 

I 

00004  0 

101  54 

0 

20,3460 

13502  1 

30122  0 

55547 

1 

34320 

1 

05545 

0 

C:  00123 

1 

C : 

01567  1 

00003 

1 

20,3470 

52144  1 

52136  1 

52146 

0 

52140 

0 

52150 

1 

52142 

1 

34753  1 

54154 

0 

20,3500 

34755  l 

13232  0 

30122 

0 

55550 

1 

34320 

1 

05545 

0 

C: 

00123  1 

C: 

01607 

1 

20,3510 

52152  0 

53556  1 

31346 

1 

55561 

0 

55562 

0 

61555 

0 

55564  0 

55563 

1 

7 0 , 3_52f> 

3-4Z55  1 

555.6  5 1 

55566 

2 

11555 

1 

13542 

0 

52136 

i 

53602  0 

521  40 

0 

20,3530 

53604  0 

52142  1 

53606 

1 

52144 

1 

53622 

1 

52146 

0 

53624  1 

52150 

1 

- S3626  0 

1 3 5 5 2 1 

21346 

4 

5-5601 

Q_. 

5-5602 

0- 

55621  1 

55672  1 

615  5_5__ 

0 

20 \ 3550 

55603  1 

55604  0 

55623 

0 

55624 

1 

34755 

1 

55605 

1 

55606  1 

55625 

0 

20,3560 

55626  0 

00004  0 

40111 

1 

74751 

1 

26111 

1 

00003 

1 

30117  0 

04640 

1 

20,3-5  7-0 

54165  1 

34-74  3—0- 

-22007 

0 

00.0.0.6 

1 

10165 

1 

00002 

0 

34755  1 

55501 

0 

20,3600 

55631  0 

12721  0 

22007 

0 

22122 

0 

54157 

0 

63654 

0 

00006  l 

63630 

1 

20.,  3610 

30457  1 

_ 00006  1 

50164 

1 

370-13.0- 

1. 

64743 

0 

56157 

1 

00006  1 

22161 

1 

20,3620 

03570  0 

54160  1 

44743 

1 

00006 

1 

70160 

1 

00006 

1 

10157  0 

00161 

1 

20,3630 

43654  1 

54157  0 

13611 

0 

10163 

1 

34752 

0 

67746 

0 

54122  l 

60154 

1 

20,3640 

50000  1 

33657  0 

71262 

1 

00006 

1 

1 3650 

0 

43654 

1 

54157  0 

13416 

0 

20,3650 

30001  0 

13417  1 

C: 

00110 

1 

C: 

00443 

1 

C: 

77377 

1 

C:  02210 

0 

C: 

00110  1 

C: 

00022 

1 

- 20 , 3660 

C-t— 00204-  1 

C.:  000.44  1 

C : 

0366.2 

0 

C : 

03663 

1 

CK  SM 

45047 

0 

a 

a 

a 

20, 3670 

a 

a 

a 

a 

a 

a 

a 

a 

2-0-r3  70Q 



3 

? 

3 

a 

a 

a 

SL 

20,3710 

a 

a 

a 

a 

a 

a 

a 

a 

20,3720 

a 

a 

a 

a 

a 

a 

a 

a 

20,3730 

3 

a 

a 

a 

a 

a 

a 

a 

20,3740 

a 

a 

a 

a 

a 

a 

a 

a 

20 ? 3750 

- a - 

a 

a 

a_. 

a 

a 

a 

20,3760 

a 

a 

a 

a 

a 

a 

a 

a 

20,3770 

a 

a 

a 

a 

a 

a 

a 

a 
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OCTAL  LISTING  FOR  PARAGRAPH  # 124,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  " S"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTFRPRETIVE 

OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

C- 

21 557  0 

C-i 

-77  3 1 6 — 0 

c: 

0 1507 

-1 

C: 

00.54-7 

J 

5601  4 

0 

000-0  6- 

J 

21t2000 — 

pi ,2010 

L ■ tM  Hut 

220  12 

1 

05321  1 

C: 

00100 

0 

15270 

0 

00006 

1 

00031 

0 

40000 

0 

72077 

1 

21 , 2020 

5 5645 

0 

34752  0 

55644 

1 

34756 

1 

05173 

1 

C: 

02032 

1 

15270 

0 

55644 

1 

^47^7 

o 

05224  o 

0000-6 

_1 

00-031 

_Q 

40000 

0 

72077 

1 

57645 

1 

54001 

1 

21,2040 

11645 

0 

12030  1 

10001 

1 

12052 

0 

11644 

1 

12027 

1 

34740 
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1 

0- 
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_1 
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0 
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0 
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1 
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0 
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0 
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0 
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1 
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1 
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0 
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0 
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1 
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0 

C: 
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1 
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0 
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1 

74747 

0 
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0 
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0 
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0 
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12314 

1 

55712  0 

36010 

0 

05173 

1 

C: 

02102 

0 

41303 

1 

74753 

0 
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1 
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0 

70107  0 - 

00006 

1 

12127 

0 

34747 

1 
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1 

04606 

0 

34752 

0 

21,2130 

70107 

0 
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12136 

0 

34751 

0 

54001 

1 
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0 
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0 

74743 

1 

nnnoA 

l 

1-2  3-4-0-  0 - - 

4 1 0-1.1 

1 
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-00006 

_J 
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0 
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1 

21,21 50 
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0 

54001  1 

74750 

0 
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0 
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0 

41011 

1 

62270 

0 

00006 

1 

21,2160 

12340 

0 

30001  0 

74753 

0 

10000 

0 

12167 

1 

12340 

0 

02274 

1 

44755 

0 

21,21 70 
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1 

02274  _J 

34752 

0 

54002. 

1 
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0 

32200 

l 

540  17 

0 

50017 

1 

21,2200 

12201 

1 

32271  1 
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0 

54001 

1 
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0 

52761 

0 
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0 

32270 

0 
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550  11 

1 

- 5-516-3  0 
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-1 

40106 

1 

74737 

1 

26106 

1 

42273 

] 

701 1 l 

1 

21,2220 

54111 

1 

40101  0 

74745 

1 

26101 

0 

44355 

1 

00006 

1 

0201  1 

0 

64737 

0 

21,2230 

00006 

1 

01011  0 

34735 

1 

54107 

0 

40074 

0 

74752 

1 

26074 

0 

00006 

1 

21,2240 

30025 

0 

53345  0 

00006 

1 

32267 

0 

53253 

0 

00006 

1 

34755 

1 

52753 

1 

21, 2250 

00006 

1 

34755  1 

5?  757 

0 

00006 

1 

34755 

1 

52765 

1 

36244 

0 

54001 

1 

21,2  2-60  -- 
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-3  -- 

52761  _a 

37727 

J 

54  030 

0 

0.46  35 

0 

C: 

12766 

0 

C:  03525 

0 

C: 

76067 

1 

21,2270 

C:  00106 

0 

C:  00027  1 
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00107 

1 
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0 

40775 

0 
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0 
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1 
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0 
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404-05 

l 

74745  ] 
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o 
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o 

3 0103 

o 

74747 

0 
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n 

00002 

0 

21,2310 

04364 

1 

04457  6 

04635 

0 

C: 

20  72  3 

6 

40107 

0 

74735 

0 

00006 

1 

12334 

0 

21,2320 

34746 

0 

70107  0 

00006 

1 

12334 

0 

40107 

0 

74742 

0 

00006 

1 
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0 

21,-23  30  - 
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J 

05072-1 

_Cj_ 

03717 

_0 

C: 
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J 
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1 
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1 
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1 
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1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 125,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTFS  UNUSED  FIXED  MEMORY  4 


ALL  VALID 

WORDS  APE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRETIVE 

OPERATOR  WORDS)  FIR 

"C"  (CONSTANTS) 
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1 
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1 
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0 
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0 
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0 

64735  1 

54060 

0 

21,2420 

34751  0 
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05014 

1 
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0 
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1 

44745 

1 

71303  1 

55303 
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00006  1 
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1 
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1 
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l 
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0 

34742 

1 
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0 

22007 

0 

31713  0 
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1 
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1 

53711 

0 

12477 

0 
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1 

21,2460 

71707  1 

20001  1 

61711 

1 

55711 

0 

34755 

1 

27710 

l 

34733  1 

64753 

1 

21, 2470 

61711  l 

55711  0 

34755 

1 

64733 

1 

6 1710 

0 

55710 

1 

13234  0 

11711 

0 

21,2500 

12504  0 

12504  0 

34755 

1 

55711 

0 

11710 

1 

34735 

1 

61711  l 
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0 
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00006  1 
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0 
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l 

02030 

0 
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0 
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1 
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1 
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1 
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0- 

26075 

1 
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71303 

1 

21,2530 

55303  1 
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74752 
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0 
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1 
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1 

? lr? 54Q 
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1 

55674 

1 
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-0 

34750 

1 
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0-2 53  L 

J 

21,2550 

15261  0 

34752  0 

00006 

1 
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1 

41303 

1 

74744 

0 

27303  1 

15261 

0 

21, 2560 

41235  0 

60025  0 

64736 

1 

64736 

1 

57713 

0 

34777 

1 

54065  0 

00006 

1 

21, 2570 

31237  0 
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1 
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1 

71713 

1 

00006 

1 

10065  0 

57704 

0 

21,2600 

00006  1 

31525  1 

20001 

1 

20001 

1 

27704 

1 

30037 

0 

61160  1 

00006 

1 

_ 21  *-26-1-0 

-72E)  04—  0-  . 

27704  1 

00-00-6- 

1 

31241 

1 

20001 

1 
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1 

00006  1 

71713 

1 

21,2620 

00006  1 

10065  0 

57705 

1 
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1 

31527 

0 

20001 

1 

20001  1 

27705 

0 

21,2630 

30040  0 

61161  0 

00006 

1 

72004 

0 

27705 

0 
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1 

31243  0 
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1 

21,2640 

20001  1 

00006  1 

71713 

1 
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1 
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0 

57706 

1 

00006  1 

31531 

1 

21, 2650 

20001  1 

20001  1 

27706 

0 

30041 

1 

61162 

0 

00006 

1 

72004  0 
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0 

21*  2-6-60 

34751  0 
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0- 

74752 

1 
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0 
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0 

01712  1 

31731 

0 

21,2670 

61704  0 

54061  1 

31733 

1 
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1 
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1 
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1 
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54063 

0 
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717  15 

l 
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0 
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o 
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71717  0 
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1 
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71721 
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26070 
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0 
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1 
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00006  1 

71723  1 
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1 
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0-00-0-6-  1 
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3 
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57703 

1 
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0 
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l 
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0 
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- 56-07  0 0 
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1 
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0 

26070 
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1 
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1 
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0 
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30063 

1 
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70070  1 
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C1CTAL  LISTING 

FOR  PARAGRAPH  # 126,  WITH  PARITY  BIT 

IN  BINARY  AT 

THE  RIGHT  OF  EACH 

WORD,  "3" 

DENOTES  UNUSED 

FIXED  MEMORY 

ALL  VALID  WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS) 

OR  "C"  (CONSTANTS) 
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13021  0 

13114  1 
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00006  1 
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1 
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13114  1 

50065  1 

31676  1 
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50065 

1 

2 1 1 3n 

1 16  74  1 

13035  0 

1 3046  I 

130.42 0_ 

- 13046  1 

50065  1 

31676  1 
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1 

21,3040 
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13046  1 

50065  1 

41676  0 

00006  1 
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50065  1 

1 1700 

0 
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13060  0 

13053  0— 

13  0 7 6_ 1 

500.6 .5  1 

3-1676  1 

00006  1 

63104  1 

13067 

1 

21, 3060 

50065  1 

31676  1 

00006  1 

63065  1 

13067  1 

42005  1 

13210  0 

50065 

1 

21,3070 

41674  1 

62005  0 

50065  1 

56072  1 

34753  l 

13213  0 

50065  1 

31676 

1 

21,3100 

00006  1 

63104  1 

32005  0 

13210  0 

50065  1 

31674  0 

62005  0 

40000 

0 

21,3110 

50065  1 

56072  1 

44753  0 

13213  0 

50065  1 

11700  0 

13145  0 

13121 

1 

21*  3120  

1 3J.-52-  0-  - 

50065  1 

41674  1 

0.0006  1 

63126  1 

13161  0 

50065  1 

41676 

0 

21,3130 

00006  1 

63204  1 

60066  1 

50065  1 

61674  0 

00006  1 

63204  1 

50065 

1 

-21-r-3-l-4Q 

— 64676»1 

00006  1 

-5026-5  1 

.61-6.74.-0.. 

- . . - 13210  0 . 

50065  1 

41676  0 

00006 

21,3150 

63204  1 

13156  1 

50065  1 

31676  1 

00006  1 

63204  1 

50065  1 

41674 

1 

21,3160 

132  10  0 

50065  1 

31676  1 

00006  1 

63204  1 

32005  0 

50065  1 

61674 

0 

-2-1,3-170 

- 40000  0 

- 5-00-6-5-  1 

61676  1 

00006  1 

63204  1 

00006  1 

50065  1 

61676 

1 

21,3200 

50065  1 

61674  0 

40000  0 

13210  0 

50065  1 

41674  1 

50065  1 

61676 

1 

-21,3210 

-52065  1 

5627  2-  1 

3 4755-  1 

50  0-65  1 

55700.  0 

50065  1 

3007?  1 

64754 

0 

21,3220 

50065  1 

54053  0 

50065  1 

30072  1 

50065  1 

27674  1 

10065  0 

13004 

1 

21,3230 

35020  0 

00006  1 

05014  1 

01712  1 

34755  1 

54001  1 

12454  1 

40074 

0 

21,3240 

74752  1 

00006  l 

13253  1 

34744  1 

71303  1 

10000  0 

34752  0 

647  44 

1 

21,3250 

40000  0 

00006  1 

03012  1 

43262  0 

71303  1 

55303  1 

44736  0 

70075 

1 

-2 1,-32-60 

-5-4-075  L- 

1526  1 _0  — 

- Cl  00300  -1 

3 7 74-6  0 

55627  1 

34751  0 

55535  1 

55536 

I 

21,3270 

34752  0 

55631  0 

55630  1 

55632  0 

30021  1 

60000  1 

55476  1 

34752 

0 

21,3300 

33746  1 

3-1-541  0 

00006  1 

74751  1 

3 1435  1 

1 3314  0 

34755  1 

5.57  4£ 

1 

21,3310 

31537  1 

00006  1 

74751  1 

31434  0 

53744  0 

00006  1 

51746  0 

31504 

1 

21,3320 

53742  0 

51746  0 

31446  0 

00006  1 

71742  0 

23735  1 

00006  1 

74743 

1 

21,-3330 

— 531736  0 _ - 

—00006  1 

14743  1 

27736  0 

31743  0 

00006  1 

71741  0 

23741 

1 

21,3340 

00006  1 

74740  1 

53742  0 

00006  1 

74740  1 

27742  0 

31744  1 

00006 

1 

2-1,-33-50 

-700  CO  0 

537.40-  1 

-31744  1 

00006  1 

63360  1 

00006  1 

31740  0 

13362 

1 

21,33  60 

00006  1 

41740  1 

53750  0 

00006  1 

31742  1 

21750  0 

11747  0 

13373 

1 

21,3370 

13372  0 

13375  1 

11750  0 

34753  1 

13376  1 

44753  0 

55745  1 

11745 

1 
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OCTAL  LISTING  FOR  PARAGRAPH  # 127,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 
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1.  ... 
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00  006- 

1 

41742 

-0  - 

5 3 742  C 

_ 00006 

J 

_ 31742 

-L  _ _ 

53750 

Q_  _ 

2W3410 

000  06 

1 

31740  0 

21750 

0 

31737 

0 

00006  1 

73446 

0 

53740 

1 

56001 

0 

21,3420 

00006 

1 

73446  0 

27740 

1 

54001 

1 

13426  0 

27737 

1 

53742 

0 

21740 

1 

717 

o 

000-0-6  1 

7;L244 

0 

53740 

JL 

56001  0 

00006 

1 

71  744 

0 

27740 

1 

21, 3440 

54001 

1 

13443  0 

27737 

1 

53740 

i 

21736  0 

13561 

1 

C:  25253 

1 c: 

23146 

0 

3-4  7 S3 

1 

-5-55-0-1  0 

34  752 

0 

_ 27002 

Q _ 

22071  1 

1345J 

0 

34755 

1 

54066 

0 

21^3460 

50066 

1 

31507  1 

00006 

1 

63533 

i 

54063  0 

50066 

1 

41537 

0 

00006 

1 

21,3470 

13533 

0 

54002  1 

00006 

1 

73447 

i 

60002  0 

54001 

1 

13503 

0 

40000 

0 

21,3500 

50066 

1 

57500  0 

13537 

1 

00006  1 

63511 

1 

40000 

0 

54062  l 

44753 

0 

21,3510 

13513 

1 

54062  1 

34753 

1 

50066  1 

55500 

1 

30063 

1 

00006  1 

74740 

i 

-21*  3-52X) 

600-62 

0- 

_ 00006  I. 

63537 

.0 

40062  1 

00006 

1 

73560 

0 

00006  1 

10063 

0 

21,3530 

00006 

1 

13533  0 

13545 

1 

34755  1 

50066 

1 

55500 

1 

13547  0 

36010 

0 

P]  tZ-5A a - 

5-0-066 

1 

5-5630  -1 

34  75  5 

1 

55501  n 

13542 

0 

50066 

1 

55630  1 

1Q066_ 

0 

21,3550 

13456 

1 

52073  1 

52063 

0 

04674  0 

C:  35721 

0 

52063 

0 

52073  1 

00071 

1 

21,3560 

C: 

00240 

1 

11747  0 

13603 

0 

13565  0 

13571 

0 

41750 

0 

64741  1 

00006 

1 

- 21,35  70 

635-74 

-1 

_ 00006  1 

34756 

1 

13714  1 

3 4317 

0 

55737 

1 

34752  0 

55740 

1 

21,3600 

57750 

1 

57747  1 

13616 

1 

35742  0 

5 5740 

1 

34755 

1 

55737  1 

13616 

1 

21*3610 

31  747- 

1 

13633  0 

3 7 745 

0 

- -27740  3 

00006 

_L 

63610 

0 

41747  0 

51740 

0 

21,3620 

64735 

1 

00006  1 

63612 

1 

51740  0 

34735 

1 

56002 

0 

00006  l 

31750 

l 

21,3630 

00006 

1 

10002  1 

55747 

0 

00006  1 

74737 

1 

55743 

1 

33761  1 

03763 

0 

21,3640 

03763 

0 

03763  0 

00006 

1 

71747  0 

53750 

0 

31737 

0 

61740  0 

54021 

0 

21,3650 

60021 

1 

54002  1 

00006 

1 

63701  1 

4431  7 

1 

6000? 

0 

00006  1 

6 3664 

0 

2-l-r^6£— 

340-02 

-l 

347-5-5-  1- 

57747 

1 

- - 55750  0 

50002 

0 

3473  5 

1 

54002  1 

00006 

1 

21, 3670 

717  50 

0 

56001  0 

34755 

1 

53750  0 

00006 

1 

63701 

l 

00006  1 

70002 

l 

2 1,3700 

21.-7-50 

-0 — 

—41 745  l 

00006 

l 

63707  1 

0-000  6 

1 

4]  750 

Q 

n7n  n 

Q0QD6_ 

x 

21,3710 

13714 

1 

00006  1 

31750 

1 

21736  0 

11735 

0 

13721 

1 

13720  0 

13723 

0 

21, 3720 

11736 

0 

34753  1 

13724 

1 

44753  0 

54001 

1 
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I : 

57414 

1 

C: 

00707 

1 

C: 

54520 

1 

26,2520  _ 

X4 

2 7523 

0 

C : 

064-24 

0 

Cl 

-03531 

0 . 

CJ- 

1753-7 

-0  _ 

C : 

00045 

0 

I : 

44257 

1 

C: 

56174 

0 

C: 

03755 

0 

26, 2530 

I : 

77657 

0 

C : 

56574 

1 

C: 

17545 

0 

C: 

00045 

0 

1 : 

63501 

0 

C: 

00047 

1 

I : 

53605 

1 

C : 

01771 

l 

— 26,2540 

-C-r- 

-2-0577 

0 

I : 

5565  7 

0 

-C-: 

20601- 

-1 

— C: 

5717  6- 

-0 

1 : 

4 7057 

0 

r . 

571  76 

_Q 

c : 

2153  7 

0 

C : 

02707 

0 

26, 2550 

I : 

76276 

0 

C: 

00025 

0 

I : 

72240 

1 

c: 

54556 

0 

C: 

00025 

0 

C: 

02707 

0 

I : 

77624 

1 

C: 

55344 

1 

26,2560 

I : 

77624 

1 

C: 

11165 

0 

I : 

77624 

1 

C: 

55276 

1 

I: 

53725 

1 

C: 

00045 

0 

C: 

57202 

0 

C: 

24045 

0 

26,2570 

I : 

-5  74-14 

1 - 

C_i 

QjO-7.0  7. 

1 

C : 

54573 

1 

I : 

77761 

1 

C: 

00045 

0 

C: 

27531 

0 

C : 

01653 

0 

I : 

53257 

1 

26,2600 

C: 

57170 

0 

C: 

01667 

1 

I : 

53715 

1 

C: 

01601 

1 

C: 

57170 

0 

I : 

52255 

1 

C: 

01615 

1 

I : 

50315 

0 

— 26 -,2610 

Cl- 

000-01 

_Q 

X: 

0-00-0  j- 

0 

L: 

53  606 

1 

- C: 

561-74 

0 

I:  57316 

1 

C : 

01  77  3 

_Q 

r : 

02707 

0 

I : 

54335 

0 

26,2620 

C: 

01776 

0 

C: 

2062  1 

0 

C: 

00031 

0 

I : 

50025 

0 

C : 

02707 

0 

C: 

54631 

1 

I : 

77745 

1 

C: 

00031 

0 

26,2630 

C: 

02707 

0 

I : 

60545 

0 

I : 

53725 

1 

C: 

03747 

0 

C: 

56577 

1 

I : 

77625 

0 

I : 

77675 

0 

C: 

00045 

0 

26,2640 

C: 

27545 

0 

C: 

00001 

0 

I : 

47235 

0 

I : 

57414 

1 

C: 

0 0707 

1 

C: 

54646 

1 

I : 

77657 

0 

C: 

57200 

1 

26,2650 

C: 

27523 

0 

C: 

0642  4 

0 

C: 

00025 

0 

C: 

27537 

0 

C: 

03523 

0 

I : 

60246 

1 

C: 

00025 

0 

I : 

51575 

1 

26, 2660  - - 

C : 

-03531 

0 

71301 

-0  - 

C: 

0-0  027 

J 

_ C: 

00027 

J 

I* 

5 0.0-25 

0 

C : 

00025 

0 

r : 

54672 

0 

1 : 

52150 

1 

26,2670 

C: 

00026 

0 

C: 

54674 

0 

I : 

77750 

0 

C: 

00024 

1 

I : 

53775 

1 

C : 

03523 

0 

C: 

20701 

0 

C: 

27523 

0 

— 2-6,2700 

-€-t- 

0 35  51 

-0 — 

77657 

0 

C-i- 

20  20  1 

o 

- C: 

1 7 531 

0 

c : 

D 3545 

Q_ 

T : 

77667 

n 

r : 

?n?m  n 

C : 

06545 

o 

26,2710 

I : 

53745 

1 

C: 

00045 

0 

C: 

20200 

1 

i : 

41316 

0 

C: 

02707 

0 

I : 

47012 

i 

C: 

21537 

0 

C: 

36707 

1 

26,2720 

C : 

5 53  44 

1 

I : 

77624 

1 

C: 

11165 

0 

I : 

77414 

0 

C: 

04307 

1 

C: 

55141 

0 

33275 

1 

54006 

0 

26,2730 

31455 

1 

5476  6 

1 

-31456 

1 

54770 

0 

31457 

0 

54772 

l 

06036 

1 

I : 

45175 

0 

26,2740 

C: 

06422 

0 

C: 

47570 

0 

I : 

76505 

0 

C: 

01734 

0 

C: 

27675 

0 

C : 

06420 

1 

I : 

77624 

1 

C: 

47577 

1 

26 ,2750 

-Li 

-76505 

0 

- C:. 

—0173-4 

0 

- C: 

27703 

0 

C: 

06416 

1 

I : 

77624 

1 

C : 

47577 

1 

I : 

76505 

0 

C : 

01734 

0 

26,2760 

C: 

377  11 

1 

C: 

55324 

1 

I : 

77624 

1 

C : 

1 1 165 

0 

I : 

50375 

0 

C: 

03722 

0 

C: 

03675 

0 

I : 

77752 

I 

26,2770 

C : 

24023 

0 

C: 

03722 

0 

I : 

72441 

0 

C: 

03711 

0 

C: 

34021 

0 

C : 

26510 

1 

I : 

4122  1 

0 

C: 

03734 

l 
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OCTAL  LISTING  FOR  PARAGRAPH  # 152,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
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WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRFTIVE 

OPERATOR  WORDS) 

OR  "C' 

• (CONSTANTS) 

I ; 41 4.7  2 

0 

I ; 

s 2 54-5 

1 

C : 

01701 

0 - 

[ : 

6.6257 

L 

C: 

56176  1- 

1 : 

53605 

, 

r.: 

03720 

1 - 

26, 3010 

C : 

21601 

0 

6:  27565 

0 

C: 

03722 

0 

I : 

76635 

1 

C: 

03703 

0 

I : 

77656  1 

I : 

57616 

1 

C: 

00767 

0 

26,3020 

C: 

55021 

1 

C:  27523 

0 

C: 

06626 

0 

C: 

03531 

0 

C: 

17537 

0 

C: 

03720  1 

I : 

53657 

0 

C: 

20577 

0 

?6  f 3D3n 

C : 

56  1 76 

1 

C : 03537 

-0  _ 

U 

7 7 733 

0 

C: 

0201  1 

0 

I : 

61215 

1 

C: 

15601  0 

C : 

03720 

1 

1 : 

61257 

1 

26,3060 

C : 

21601 

0 

C:  03720 

1 

I : 

53657 

0 

C: 

20577 

0 

C: 

57176 

0 

I : 

67057  0 

C : 

57176 

0 

C: 

21537 

0 

r • 

^6707 

1 

c : 55344 

1 

17 

7 7 626 

1 

C : 

11165 

0 

I : 

7 76  26 

1 

C : 

55326  1 

I : 

77626 

1 

C : 

11165 

0 

26,3060 

I : 

67375 

0 

C:  03722 

0 

C: 

03  703 

0 

I : 

67372 

1 

C: 

03722 

0 

I : 

77772  0 

I : 

57616 

1 

C: 

00767 

0 

26,3070 

C: 

55071 

1 

C:  27523 

0 

C: 

06626 

0 

C: 

03531 

0 

C: 

1 75  3 7 

0 

C: 

03720  1 

I : 

53657 

0 

C: 

20577 

0 

26,3100 

C: 

56176 

1 

C:  03561 

1 

I : 

77735 

0 

C: 

02012 

0 

I : 

6 1 2 L 5 

1 

C : 

15601  0 

C: 

03720 

1 

I : 

61257 

1 

26,31 10 

C: 

21601 

0 

C:  03720 

1 

I : 

53657 

0 

C: 

20577 

0 

C: 

57176 

0 

I : 

67057  0 

C: 

57176 

0 

C: 

21537 

0 

20 

c + 

167C7 

0- 

C : 0373-0 

- 0 - 

1 : 

66  336 

1 

. CJL 

03732 

1 - - 

I : 

56605 

Q 

C : 

15606  0 

I : 

52525 

1 

C: 

01703 

1 

26,3130 

I : 

66257 

1 

C:  56176 

1 

I : 

53605 

1 

C: 

03720 

1 

C: 

2 1601 

0 

C: 

37565  1 

C: 

55366 

1 

I : 

77626 

1 

• 

111^ 

-0- 

I : 7765  0 

1 

c • 

50614 

1 

I : 

77624- 

_1 

C: 

27612 

. 0 

L: 

63016_0 

r . 

_Q1672 

1 

C : 

01676 

0 

26,  31  50 

I : 

77626 

1 

C:  55205 

0 

I : 

77626 

1 

C: 

11165 

0 

I : 

65016 

0 

C: 

02666  0 

C: 

27612 

0 

I : 

66165 

0 

26,3160 

C : 

03661 

1 

C:  55176 

0 

I : 

63016 

0 

C: 

01675 

1 

C: 

01676 

0 

I : 

63016  0 

C: 

01676 

1 

C: 

01673 

1 

_ 26,3170 

I : 

77626 

L 

C:  552-05 

0 

I : 

77650 

1 

C: 

54474 

1 

I : 

77626 

1 

C: 

55216  0 

I : 

65016 

0 

C : 

01676 

1 

26,3200 

C: 

266  44 

0 

I:  77626 

1 

C : 

55205 

0 

I : 

77650 

1 

C: 

56676 

1 

I : 

71220  1 

C : 

03673 

0 

C : 

03753 

0 

_ 26, 3210  _ 

Cj 

3 60-6 1 - 

0 

CJ  27136 

1 

I : 

77650 

1 

c*. 

03673 

0 

I : 

77776 

1 

33276  0 

56006 

0 

33602 

1 

26,3220 

55257 

1 

36755 

1 

51257 

0 

55600 

0 

1 1257 

1 

03220  1 

33275 

1 

56006 

0 

26,3230 

06036 

1 

I:  67216 

1 

C: 

06307 

1 

C: 

55237 

1 

C: 

02001 

1 

I : 

77650  1 

C: 

55261 

0 

I : 

77735 

0 

26,3260 

C : 

02007 

1 

I:  77661 

0 

C: 

20606 

0 

C: 

02601 

0 

C: 

02611 

1 

C : 

02621  1 

I : 

67216 

1 

C: 

063  0 7 

1 

26,3250 

C : 

55256 

1 

C:  02002 

1 

I : 

77650 

1 

C: 

55256 

0 

I : 

77735 

0 

C : 

02010  1 

C : 

0251  1 

0 

C: 

02521 

0 

3-240 

c* 

025  31 

1 

I : 77735 

0 

. ,C: 

02003 

0 

c : 

02621 

0 

1 : 

77735 

0 

C: 

02006  1 

C : 

0263  1 

1 

I : 

66216 

0 

26,3270 

C: 

02676 

0 

C:  03661 

1 

C: 

00000 

1 

IS 

77616 

0 

C: 

56065 

0 

C: 

56067  1 

I : 

77201 

1 

C: 

00001 

0 

26 , 3300 

c : 

01445 

1 

7*  7775  4 

-1 

C-1 

-0  3 716 

1 

I : 

53257 

1 

C: 

57165 

1 

C : 

01661  1 

I : 

53715 

L 

CJ_ 

01573 

l 

26,3310 

C : 

57165 

1 

I:  52255 

1 

C: 

01607 

1 

I : 

61636 

1 

C: 

21676 

0 

C : 

17722  0 

C : 

00065 

0 

I : 

77657 

0 

26,3320 

C: 

20201 

0 

C:  26065 

0 

C: 

03722 

0 

I : 

77616 

0 

I: 

65020 

1 

C: 

03673  0 

C : 

55276 

1 

I : 

50276 

1 

_ 26+3330 

C: 

03J7-03  0 

-X:  61  572 

1 

C : 

03730 

0 

I : 

66316 

a 

C: 

0 661  6 

0 

I : 

61366  1 

C: 

00065 

0 

I : 

60352 

0 

26,3360 

C: 

00067 

1 

C:  03720 

1 

I : 

77650 

1 

C: 

03673 

0 

I : 

65020 

1 

C : 

03673  0 

C: 

66633 

1 

I : 

51575 

1 

2-6+3  3 50  - 

C : 

Q26  73 

1 

I:  53X5 6 

1 

C : 

03  716 

1 

C: 

56176 

0 

C : 

26317 

1 

C : 

02665  0 

I : 

53666 

0 

C: 

56176 

0 

26,3360 

C : 

003  15 

0 

I:  56335 

0 

C: 

02005 

0 

C: 

20613 

1 

I : 

50025 

0 

C: 

00315  0 

C: 

50620 

0 

I : 

65335 

0 

26,3370 

C : 

02006 

0 

C:  00317 

1 

I : 

77660 

0 

C: 

50620 

0 

I : 

77626 

1 

C: 

66665  1 

I: 

77650 

1 

C: 

0 3673 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 153,  WITH  PARITY  DIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTFS  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


C_j 

n^A7o  n 

C: 

00741 

0 

C: 

31 13  3 

1 

- Ci- 

36652 

0 - 

34755 

1 - 

_EL5-73_4 

_] 

34736 

1 

26,3410 

00006  1 

05012  1 

34736 

I 

70076 

1 

00006 

1 

15155 

1 

33655 

1 

00004 

0 

26,3420 

05203  0 

C: 

03605  1 

C: 

54067 

1 

00003 

1 

40110 

0 

74  736 

0 

00006 

1 

15155 

1 

2 a T X4  in 

06036  1 

I_I 

7-7634  0 - 

C : 

2 L 46  2 

I 

X : 

34041 

0 

_ C_L 

_2  71 OIL 

0 

I : 

77775- 

1 

C : 

0000  1 

0 

C : 

27674 

1 

26,3440 

C:  00007  0 

C: 

17736  0 

C: 

00015 

0 

C: 

34041 

0 

C: 

27066 

1 

I : 

52375 

1 

C: 

00001 

0 

C: 

03674 

1 

^4-5-0 

I i 7 7656-  1 

c : 

27710  1 - 

- C: 

00007 

0 

I.: 

47236 

0 - 

CJ_ 

00001 

0 

I : 

77656 

1 

C : 

03702 

1 

I : 

52375 

1 

26,3460 

C:  00007  0 

C: 

03736  0 

I : 

76521 

0 

C: 

01734 

0 

C: 

03736 

0 

I : 

53135 

0 

C: 

03735 

0 

C: 

55600 

1 

26, 3470 

I : 53025  0 

C: 

15653  0 

C: 

55565 

I 

I : 

77775 

1 

C: 

03716 

1 

C: 

24015 

0 

C : 

03724 

0 

C: 

00023 

0 

26,3500 

I : 

77761 

l 

C: 

1 5647 

0 

C: 

27716 

l 

C: 

00015 

0 

I:  53361 

0 

C: 

06422 

0 

C: 

03716 

l 

I : 

77656 

l 

26,3510 

C: 

27716 

l 

C: 

00015 

0 

I : 

77761 

l 

C: 

15647 

0 

C:  27724 

0 

C: 

00023 

0 

I : 

52361 

l 

C: 

06422 

0 

76 1 3570 

Cl- 

0 372-4 

-0  - 

I : 

776-5-6 

J. 

CJ- 

0 3724 

0 _ 

X.: 

5-3  361 

-0 

_ C:  15651 

1 

C : 

03710 

1 

I : 

642  5 6 

L 

C: 

01734 

0 

26,3530 

I : 

77772 

0 

C: 

25102 

0 

C: 

03736 

0 

C: 

01761 

0 

I:  77776 

1 

00004 

0 

06027 

1 

C : 

52602 

i 

44735- 

o 

7-04  1-0 

6 

6473-5 

1 

5-4110 

-Q 

0 6036- 

1 

I : 

77624 

1 

r. : 

5737  3 

_L 

X: 

77776 

A 

26,3550 

03637 

0 

03637 

0 

00006 

l 

30036 

1 

53751 

1 

06036 

1 

I : 

77624 

1 

C: 

46041 

0 

26,3560 

I : 

65545 

0 

C: 

00045 

0 

C: 

03733 

0 

I : 

77776 

1 

05155 

0 

I : 

47375 

0 

C: 

03702 

1 

C: 

03710 

1 

7 3570 

- I : 

77656 

1 

C: 

277  1 6 

1 

_ C: 

03710 

_1 

I : 

53  435 

a 

C:  .03716 

1 

C : 

0 3 72Fl 

0 

I : 

77650 

1 

C: 

55523 

0 

26,3600 

1 : 

64375 

1 

C: 

03710 

1 

C: 

01  734 

0 

I : 

52172 

l 

C:  55531 

0 

30074 

L 

74745 

1 

00006 

1 

76 T 36  1 0 

1 5 761 

Q 

37712 

_1 

05-105 

6 

JO 

03616 

__Q 

C_:  54.067 

1 

05261 

1 

34750 

1 

00006 

1 

26,3620 

02033 

0 

00006 

1 

13631 

1 

46241 

i 

61734 

0 

00006 

1 

13405 

1 

25734 

0 

26,3630 

13407 

0 

33645 

0 

55731 

1 

00004 

0 

06027 

1 

C: 

52602 

1 

05155 

0 

05567 

0 

26,3640 

C : 

00527 

1 

00004 

0 

06027 

1 

C : 

55605 

1 

05155 

0 

C: 

25547 

0 

C: 

33555 

1 

C: 

01106 

1 

26,3650 

C : 

01642 

0 

C: 

11045 

0 

C: 

00001 

0 

C: 

00000 

1 

C:  00454 

1 

C: 

01130 

1 

C: 

00062 

0 

I : 

40220 

0 

26,3660  - 

C : 

0-0-0-51- 

0 

. -Cl. 

0001  1 

1 

_ LX 

77770 

I 

C: 

00000 

1 

I:  65345 

0 

C : 

01712 

1 

C: 

1002  1 

0 

I : 

45006 

0 

26, 3670 

C: 

51706 

1 

I : 

41401 

1 

C: 

00023 

0 

I : 

65346 

0 

C:  00023 

0 

I : 

65356 

1 

C: 

06424 

0 

I : 

73525 

1 

—26 1 37-Q  Q 

60623 

6 

I : 

1 

C: 

00023 

6 

I : 

633  4 6 

_Q 

C:  06424 

0 

I 

41  S26 

n 

r : 

_0642_2 

0 

1 : 

77650 

1 

26,3710 

C : 

00051 

0 

I : 

57545 

1 

C: 

01716 

0 

C: 

14017 

1 

C:  01714 

1 

C : 

14021 

i 

C: 

06424 

0 

C: 

74023 

0 

26,3720 

C : 

000  17 

1 

I : 

77616 

0 

C: 

03722 

0 

C: 

03723 

1 

CKSM  46121 

1 

a 

a 

a 

26 1 37-30 

a 

_a 

a 

a 

a 

3 

a 

3 

26,3740 

a 

a 

a 

a 

a 

a 

a 

a 

26^37-50 

a 

a 

a - 
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43046 

1 

C: 

04745 

0 

C: 

60433  0 

I : 

7767  1 

1 

^ n t 2 4 

C ? 

20001  1 

_C_i  _3 -7-5  15  1 

_6  0-763_0 

T ; 

41 471  0. 

C: 

. 0 22-61 

0 

I : 

44205 

0 

C : 

21046  0 

C : 

17743 

I 

30,2440 

I : 

41205  0 

C:  02265  1 

I : 

77625  0 

C: 

02263  1 

C: 

03515 

0 

I : 

57461 

0 

C: 

20614  0 

C: 

17452 

1 

■}f),  745-0 

C : 

0 35  15  0 

I : 452 1 4 L 

C; 

-03710  1 

C_: 

60457  1 

. C : 

21026 

0 

T : 

77640 

0 

C : 

57212  1 

I : 

77745 

1 

30,2460 

C: 

03515  0 

I : 5002  5 0 

C: 

21030  1 

C: 

60620  0 

I : 

45345 

1 

C: 

02265 

1 

C : 

035 150 

I : 

45071 

0 

30,2470 

C : 

02265  1 

C:  65613  0 

I : 

41461  1 

C: 

20206  1 

I : 

44265 

0 

C: 

03515 

0 

C : 

02265  l 

r ; 

43006 

0 

30,2500 

C : 

04703  1 

C:  60510  0 

I : 

45345  1 

C: 

03515  0 

C: 

21032 

0 

I : 

43044 

0 

C : 

60516  0 

C: 

04463 

1 

30, 2510 

I : 

77745  1 

C:  06424  0 

C: 

02355  0 

C: 

02357  1 

I : 

77650 

1 

C: 

60600 

1 

I : 

45345  1 

C: 

03515 

0 

_ 30,-2520 

c- 

00003-  1 

I:  72406  0 

I : _ 

32421  1 

C_; 

03515  0 

I : 

4 1325 

0 

C : 

03515 

0 

C : 

02313  1 

I : 

45215 

0 

30,2530 

C: 

02275  0 

C:  03627  1 

I : 

41325  0 

C: 

02343  1 

C: 

00005 

1 

I : 

62415 

0 

I : 

56271  0 

C: 

00007 

0 

30  T ? 54-0  - 

..  r : 

0 3 505  0 - 

f * 07  3-5  5 0 __ 

I * 

71240  1 

- Ci 

60547  1 

i 

06474 

0 

r ; 

36355 

C.  : 6 0 5 6 1 0 

T : 

J 

30,2550 

C: 

02265  1 

l:  51025  1 

C: 

21050  1 

C: 

60561  0 

I : 

4 1345 

0 

C: 

21050 

1 

C : 

02265  1 

I : 

776  12 

1 

30,2560 

C: 

02355  0 

I:  77745  1 

C: 

03515  0 

I : 

43205  1 

C: 

02315 

1 

C: 

0 2 341 

0 

I : 

65225  1 

C: 

03631 

0 

30,2  5 70 

f * G23£5_  1 

I -:  4-32-0-5-  l 

C: 

00005  1 - 

I : 

5-6271  0 

C : 

03515 

0 

I : 

40312 

0 

0: 

00005  1 

r : 

02357 

1 

30,2600 

I : 

41345  0 

C:  02355  0 

C: 

00003  1 

I : 

56325  0 

C: 

02343 

1 

C: 

00001 

0 

I : 

45302  1 

I : 

77626 

0 

ZQt  264-Q 

G-r- 

61426- -0  - 

C:  023-5-7  1 

I_: 

65205  0 

I : 

_6-0463  0 

C: 

02345 

1 

I : 

77625 

0 

C : 

00001  0 

C : 

02353 

0 

30, 2620 

I : 

77624  1 

C:  61011  0 

I: 

71201  1 

C: 

00001  0 

C: 

27201 

1 

I : 

77605 

1 

C: 

02355  0 

I : 

56215 

1 

30,2630 

C: 

02351  1 

C:  02265  1 

I : 

45352  1 

C: 

02321  0 

C: 

1 6363 

0 

C: 

27201 

1 

I : 

43205  1 

C: 

02357 

1 

30, 2640 

C: 

02353  0 

I:  72471  0 

C: 

02265  1 

C: 

02361  1 

I : 

65361 

0 

C: 

02277 

1 

C: 

02363  0 

I : 

53361 

0 

30,2650 

C : 

03535  1 

I:  41572  1 

I : 

65246  1 

C : 

02257  0 

I : 

45316 

1 

C: 

00043 

0 

I : 

41525  0 

C: 

02257 

0 

3CU2660  - 

I : 453  1 6 1 

-Cj-  0004.3  0 

I : 

71240  1 

60667  0 

C: 

0001  1 

1 

I : 

52166 

1 

C : 

60675  0 

I : 

55345 

0 

30,2670 

C: 

00007  0 

I:  77761  1 

C: 

00001  0 

C: 

14001  0 

C: 

0 6424 

0 

I : 

77765 

0 

C : 

02347  0 

C : 

02365 

0 

30,2700 

t-t- 

-7  7761  1 

C:  0230-5  0 

I : 

53372  1 

c • 

00001  0 

C : 

0 ^7  57 

1 

I ; 

43001 

1 

r . 

00001  0 

C : 

04704^ 

o 

30,2710 

C : 

60150  0 

I:  77624  1 

C: 

61011  0 

I : 

77614  1 

C: 

04701 

0 

C: 

60774 

0 

I : 

57575  1 

C: 

03535 

1 

30,2720 

C: 

17260  0 

C:  03654  0 

I : 

51025  1 

C: 

01235  1 

C: 

60730 

0 

I : 

43014 

0 

C: 

01664  1 

C: 

06666 

1 

30,-2-730 

I-i- 

77776-  1 

- -000-0-6  I 

_34755  1 

57757  0 

30105 

0 

74742 

0 

10000  0 

12766 

0 

30,2740 

06036  1 

I : 77524  1 

C: 

61062  1 

I : 

77776  1 

00006 

1 

34755 

1 

52757  0 

301  05 

0 

30,2750 

7-4342  0- 

-1-000  0 0 - 

1276-6-  0 

30104  1 

74742 

0 

10000 

0 

12766  0 

33042 

1 

30,2760 

04616  1 

C:  20327  0 

12766  0 

1 : 

77776  1 

05353 

1 

C : 

00003 

1 

15155  1 

I : 

77776 

1 

30, 2770 

00004  0 

04674  0 

C: 

40153  1 

12744  0 

I: 

45345 

1 

C: 

02275 

0 

C: 

02337  1 

I : 

50025 

0 

19402  NOV.  25 t 196a 
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— GAP: AS6EMBL-E  REV4S  ION  -0  69  Of-  A GC  PROGRAM  LUMI-NARY 


BY  N ASA  2-0  2 1 1 12-011 


OCTAL  LISTING  FOR  PARAGRAPH  # 162,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NT  ERPRFTI VE 

OPERATOR 

1 WORDS)  OR 

" C " (CONSTANTS) 

0 

I : 

4 7 34  5 

1 

C : 

012  35 

1 

C: 

2 55  74 

-0 

C : . 

4. 

o 

T:  77614 

1 

C: 

-04621-  0 - _ - 

30-r^OOO 

30,30  10 

b-» £-0- 1 

C:  60716 

1 

I:  77420 

1 

C: 

01164 

0 

34741 

1 

64746 

0 

70105 

1 

10000 

0 

13022 

0 

30,3020 

05353 

1 

C:  04023 

1 

06036 

1 

I : 

77650 

1 

C: 

01164 

0 

C: 

00062 

0 

C:  00000 

1 

C: 

00031 

0 

r ; nn ) 7 s 

1 

c : 

00000 

1 

C : 

00-0 1 7 

J_ 

C : 

-23305 

_0 

C: 

00045 

0 

C:  70000 

0 

C : 

00010 

0 

30,3040 

C:  14400 

0 

C:  00000 

I 

C: 

01477 

1 

C: 

01514 

0 

C: 

01441 

1 

C: 

20000 

0 

C:  00000 

1 

C: 

75751 

0 

r * 4 177R 

1 

Cl  0054-5 

0 

C : 

00171 

0 

C : 

00022 

1 

C : 

07212 

1 

I : 

77775 

1 

06422 

0 

C: 

03266 

0 

30,3060 

C:  03260 

0 

I:  77616 

0 

I : 

77775 

1 

C: 

03252 

1 

I : 

40200 

1 

C: 

61064 

1 

C:  00023 

0 

! : 

77420 

1 

30,3070 

C:  03245 

1 

33732 

1 

56003 

1 

55644 

1 

30111 

0 

74737 

1 

10000 

0 

34753 

1 

30,3100 

5 5646 

0 

34743 

0 

55650 

1 

70111 

1 

55647 

1 

00004 

0 

30032 

0 

54772 

1 

30,3110 

30033 

1 

54766 

1 

30034 

0 

54770 

0 

34742 

1 

00006 

1 

02030 

0 

10000 

0 

30  t 3 j 70 

131 35 

1- 

3473  6 

1 

00006 

1- 

02031 

1 

10000 

0 

13135 

1 

55650 

1 

31633 

0 

30,3130 

54772 

1 

31634 

1 

54766 

1 

31635 

0 

54770 

0 

06036 

1 

I:  77634 

0 

C: 

21700 

0 

£ • 2 400] 

0 

r ? Q7? 60 

0 

I : 

_ 47034 

0 

C: 

21700 

.0 

r : 

4 7571 

1 

C : 

24015- 

-Q 

Cl  00325 

_Q 

I : 

53404 

l 

30 | 31 50 

C:  61721 

i 

I:  45000 

0 

C: 

61166 

1 

C: 

47575 

0 

I : 

77776 

1 

31667 

1 

22157 

1 

03454 

1 

30,3160 

55667 

0 

31671 

0 

22161 

1 

03454 

1 

55671 

1 

06036 

1 

I:  46135 

1 

C: 

03250 

0 

3 0 f 3_1  7-0 

c • 61174 

1 

I:  45173 

0 

C : 

00015 

0 

C: 

61474  1 

I : 

77775 

1 

C: 

02162 

0 

C:  34015 

1 

C : 

61474 

1 

30, 3200 

I:  57575 

1 

C:  02146 

0 

C: 

00015 

0 

I : 

47375 

0 

C: 

00015 

0 

C: 

00001 

0 

I : 414  5 6 

0 

I: 

76435 

1 

3nt3^-l  0 

f:  00001 

0 

c : aOXU-5- 

0 

I; 

63361 

0 

C: 

0327?  0 

I : 

51361 

1 

C : 

03270 

1 

I : 53377 

1 

C: 

00001 

0 

30,3220 

I:  77656 

1 

C:  00001 

0 

I : 

76435 

1 

C: 

00015 

0 

C: 

00007 

0 

I : 

47276 

1 

C:  00001 

0 

I : 

77772 

0 

30,3230 

C:  00015 

0 

I:  77624 

1 

C: 

61504 

1 

I : 

77776 

1 

30156 

0 

54001 

1 

33744 

0 

03700 

0 

30,3240 

56156  0 

00006  1 

20156  1 

00006  1 

13246  0 

13727  1 

00004  0 

22007  0 

30,3250 

34752  0 

54142  1 

30001  0 

00006  1 

70000  0 

64350  0 

00006  1 

63262  1 

3 0,^2-60 

34755  1 

55647  1 

5 0142  0 

30154  1 

50142  0 

54321  0 

00006  1 

50142  0 

30,3270 

21633  1 

40000  0 

50142  0 

55673  0 

54001  1 

10142  1 

13251  0 

11650  1 

30 , 3300 

13723  0 

30 1 0 1 1- 

74745  1 

00006-  1 

13773  0 

77676  1 

5JL  6_4  6 1 

33740  1 

30,3310 

03700  0 

55675  0 

31674  0 

00006  i 

70746  0 

54001  1 

51646  1 

33742  0 

30,3320 

03700  0 

00006  1 

10746  0 

57674  0 

00006  1 

70740  0 

20001  1 

40000  0 

- JO-,3230 

00006  1 

21673  0 

54001  1 

51646  1 

33740  1 

03700  0 

55673  0 

11647  1 

30,3340  41673  0 55673  0 

30,-33  50 55641  l 41674  1 

30,3360  00006  1 70750  1 

30,3370  70742  1 27642  1 


41674  1 00006  1 70740  0 

00006  1 70740  0 20001  1 

20001  1 00006  1 70746  0 

27642  1 27642  l 31674  0 


20001  1 27673  0 41673  0 

27641  1 27641  J 41674  1 

00006  1 
20001  1 


55642  1 
00006  1 


41675  0 
70742  1 


L -AGG  PROGRAM  LUMINARY  BY  NASA  202-1112-011 


19:03  MOV.  75,1963 


RAGE  .1 6 ai 


GAP  : 


OCTAL  LISTING  FOR  PARAGRAPH  # 163,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORO,  "51"  DENOTFS  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRETIVE 

OPERATOR  WORDS) 

OR  "C 

" (CONSTANTS) 

5 5 643 

0 

416J5 

-0 - 

00006 

1 

7-0X50- 

1 

77A41  n 

276  43 

0 

30, 3410 

27643 

0 

34752 

0 

54142 

i 

50142 

0 

31673 

1 

00006 

l 

73745  0 

03714 

0 

30,3420 

50142 

0 

55636 

1 

50  142 

0 

11641 

1 

64753 

1 

13427 

l 

64753  1 

00006 

l 

30 , 3430 

RO  147 

a 

71  541 

3- 

oono6 

1 

.74  741. 

-0- 

00006 

1 

50  142 

0 

11530  1 

54001 

i 

30, 3440 

33742 

0 

03700 

0 

50  14? 

0 

55277 

0 

10147 

1 

13412 

1 

31644  0 

54003 

0 

30 , 3450 

-06036 

_1 

I : 4 20.0 1 

1 

C: 

00001 

Q 

C: 

03245 

1 

00006 

1 

22142 

0 

54143  0 

40000 

0 

30,3460 

60001 

0 

00006 

1 

51646 

1 

73733 

1 

54001 

1 

33735 

0 

03700  0 

60143 

1 

30,3470 

54001 

1 

33736 

0 

03700 

0 

00142 

0 

I:  63441 

0 

C:  00001 

0 

I : 

50025  0 

C: 

21740 

1 

30,3500 

C: 

612  03 

1 

I:  43531 

1 

C: 

03250 

0 

C: 

00000 

1 

I:  63545 

0 

C:  00003 

1 

I : 

51021  0 

C: 

06414 

0 

30, 3510 

C : 

61513 

l 

I:  77745 

1 

C: 

06424 

0 

I : 

77566 

1 

00006 

1 

30L55 

0 

20001  l 

541  45 

0 

30T  3570 

1 3-523- 

1 

_34:733 

1 

54145 

0- 

-50  1Z0 

1 

3 0002 

0 

22154 

1 

03573  0 

54156 

1 

30, 3530 

34755 

1 

03551 

0 

34751 

0 

03551 

0 

40141 

1 

03573 

0 

54155  1 

34750 

1 

03551 

a 

335  50 

_1 

03  5 51 

O 

40  141 

1 

03573 

0 

541  54 

0 

06036  1 

I : 

7 761  6 

£L 

30,3550 

C : 

00016 

0 

60120 

1 

54116 

0 

50116 

1 

30000 

1 

00006 

1 

63560  1 

40000 

0 

30,3560 

60145 

1 

00006 

1 

63570 

0 

00006 

1 

50116 

1 

30  001 

0 

00006  1 

10145 

0 

_ 3D,  3-5  70 

3540-01 

1 

22L41 

_Q_  - 

00002 

0- . 

0 00.06 

1 

1 3636 

0 

00006 

1 

22144  0 

5414  2 

1 

30,3600 

30001 

0 

54143 

0 

34755 

1 

00006 

1 

10142 

l 

00006 

1 

13625  1 

10143 

0 

30,  3610 

347-55- 

1 

13615 

_J 

40147 

1 

5 4 L4  2 

34735 

1 

54143 

0 

3014?  0 

03643 

0 

30,3620 

03714 

0 

00006 

1 

20143 

0 

03714 

0 

00144 

0 

40143 

0 

03643  0 

64736 

1 

30,3630 

54143 

0 

10142 

1 

30143 

1 

13623 

1 

40143 

0 

13623 

1 

10001  1 

34755 

1 

30,3640 

00002 

0 

3473  5 

1 

00002 

0 

60000 

1 

54021 

0 

13651 

1 

50000  1 

44734 

1 

30,3650 

54021 

0 

00006 

1 

70000 

0 

54141 

1 

00006 

1 

73677 

0 

63676  0 

00006 

1 

. 3A&0  -- 

7 01-41 

1 

636  75 

o 

noQQ6 

1 

70141 

1 

63674 

1 

0QD06_ 

1 

70141  1 

63673 

0 

30, 3670 

00006 

1 

7002  1 

0 

00002 

0 

C: 

24406 

0 

C:  00660 

1 

C:  16204 

0 

C: 

50744  0 

C: 

20315 

1 

3-0-^700 

541-41 

1 

347  5 5 

l 

00  006 

1 

10  141 

1 

1 0000 

o 

? ? 1 4 1 n 

i ^7i n n 

13712 

1 

30,3710 

30001 

0 

00002 

0 

40141 

1 

00002 

0 

10000 

0 

64753 

1 

00002  0 

40000 

0 

30,3720 

00002 

0 

05567 

0 

C: 

00402 

1 

00004 

0 

04674 

0 

C:  40165 

1 

13446  0 

05567 

0 

30,3730 

A 

q 
q 
1 
c ' 

1324  6 

0 _ 

C : 

03244 

CL 

C : 

06315  0 

C : 03146 

1 

C:  00071 

1 

C : 

02041  0 

r.  : 

01673 

1 

30,3740 

C: 

03434 

l 

C:  00266 

0 

C : 

01616 

1 

C: 

00133 

0 

C:  14344 

1 

C:  01463 

1 

C: 

03746  1 

C: 

03747 

0 

30,37-50 

CKSM 

744  27 

0 

a 

- a 

a 

a 

a 

a 

a 

30,3760 

3 

3 

a 

a 

a 

a 

a 

a 

30,3770 

3 

3 

a 

3 

a 

a 

a 

a 

ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY  BY  NASA  20  21 1 1?- Oil 


19:02-  NOV-  - 2 5 .-L-9-63- 


PACE  1B.82 


-GAP : 


OCTAL  LISTING  FOR  PARAGRAPH  # 164,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

(INTERPRETIVE 

OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

31  > 2090 

c i 

07  4 37 

o 

C : 

07012 

a 

c i 

00024 

1 - 

- C: 

00317 

c.z  ^ 1 1 s 7 n 

C : 

77765 

0 

31,2010 

C:  53556 

1 

06036  1 

I : 

77624 

1 

C: 

62114 

1 

I : 

77776 

1 

00006 

1 

31605  0 

5 361  1 

l 

31 f?0?0 

00006 

1 

31607  1 

53613 

0 

32171 

1 

04616 

1 

C: 

20231 

0 

15472  1 

12034 

0 

12  023 

o 

34-7  5 1 -0 

05464 

X 

05155 

. 0 

2X007 

0 _ 

36244 

0 

54002  1 

50002 

0 

3 1 , 20 AO 

4 1604 

0 

50002  0 

61610 

1 

26001 

1 

10002 

1 

12036 

1 

22000  1 

00006 

1 

3 1 T ?n  sn 

120  5X 

1 

05504  0 

_Ci_ 

00160 

0 

06036 

1 

I : 

77414 

n 

C : 

03707 

1 

C:  62060  0 

15472 

1 

31,2060 

I : 41345 

0 

C : 

02205  1 

C: 

22  170 

1 

I : 

72412 

0 

C: 

14001 

0 

C: 

02207 

0 

I : 77605  1 

C : 

221  70 

1 

31,2070 

C:  00003 

1 

I : 

72014  1 

C: 

04307 

1 

C: 

62103 

1 

C: 

00000 

1 

I : 

72130 

0 

C:  02000  0 

C: 

00002 

0 

3 1 , 2 100 

I:  52130 

1 

C: 

02001  1 

C: 

62111 

1 

I : 

66150 

0 

C: 

00000 

1 

C: 

02006 

0 

I : 66150  0 

C: 

00002 

0 

31,2110 

C:  02007 

1 

I : 

77414  0 

C: 

02676 

1 

15  472 

1 

I: 

40020 

1 

C: 

0005  1 

0 

C:  62117  1 

I: 

45014 

0 

3 1 f ?1  20 

-C-1  03667 

0 

X : 

274 1 2 0 

I : _ 

71331 

0- 

C: 

00051 

0 

C: 

00006 

1 

C : 

06424 

0 

C:  02205  1 

C: 

02207 

0 

31,2130 

I:  77770 

1 

C: 

00066  1 

I : 

47573 

0 

C: 

02467 

0 

I : 

7 7615 

0 

C: 

02205 

1 

C:  02205  1 

I : 

47573 

0 

f:  Q2SSS 

0 

I : 

7761 5 0 

C-2- 

-02  207 

X - 

C: 

_022  07 

0 

I : 

7 5500 

0... 

_ C: 

6 213? 

-0 

C : 16207  0 _ 

LA 

02205 

1 

31,2150 

I:  77766 

0 

C: 

02205  1 

I : 

52000 

0 

C: 

62155 

1 

C: 

62161 

0 

I : 

77745 

1 

C:  06432  1 

C: 

02205 

1 

31,2160 

C:  02207 

0 

I : 

66150  0 

C: 

00051 

0 

C: 

00052 

0 

I : 

77776 

1 

04635 

0 

C:  27427  0 

C: 

22363 

1 

3 1 T 2 1 7 0 

Cl  11 620 

o 

c : 

01543  1 

05353 

1 

C : 

0402  4 

0 

00004 

0 

04616 

1 

C:  40153  1 

04616 

1 

31,2200 

C:  40127 

1 

06036  1 

I : 

43014 

0 

C: 

04067 

1 

C: 

04666 

0 

I : 

43014 

0 

C:  05062  0 

C: 

03664 

0 

31 r ?? in 

I : 7 72-1A- 

0 

X : - 

05460  0 

C: 

X 1221 

1 

C: 

L6Q32 

1 

C: 

01235 

1 

I : 

45014 

0 

C:  01463  1 

C: 

26351 

1 

31,2220 

I:  77201 

1 

C: 

00001  0 

C : 

01221 

1 

I : 

65352 

0 

C: 

01235 

1 

I : 

45006 

0 

C : 51531  1 

C: 

02023 

1 

31,2230 

I : 77776 

1 

32246  0 

04616 

1 

C: 

20351 

1 

16001 

1 

12237 

1 

12231  1 

06036 

1 

31, 2240 

I:  77775 

1 

C : 

06422  0 

C: 

36235 

0 

C: 

33470 

1 

I : 

77776 

1 

16001 

1 

C:  01453  1 

31246 

0 

31,2250 

00006 

1 

72444  0 

00006 

1 

23605 

0 

02425 

0 

53563 

1 

00006  1 

31574 

0 

31 t 2260 

- Q 24  25 

0 

556 1 3 0 

53561 

0 

41615 

0 

60025 

0 

74733 

0 

40000  0 

6500? 

0 

31,2270 

00006 

1 

62275  0 

00006 

l 

31607 

1 

21563 

1 

35014 

1 

54003  0 

00006 

1 

31 1 2 300 

314  77 

1 

- 5-21  3 1 0 

35  016 

Q 

-54003 

Q - - 

4 4 755 

0 

556-04 

0 

40131  0 

61616  1 

31,2310 

00006 

1 

62323  1 

40  130 

1 

61560 

0 

00006 

1 

62320 

1 

31562  1 

12337 

0 

31,2320 

42002 

0 

61562  1 

12341 

1 

40131 

0 

61560 

0 

00006 

1 

62342  0 

30102 

1 

31,2330 

74745 

1 

-Q00Q6  1 

12336 

1 

30131 

1 

55560 

1 

12342 

1 

32003  0 

53561 

0 

31,2340 

34737 

0 

55604  0 

03721 

0 

00006 

1 

3 1561 

1 

55616 

0 

53611  1 

00006 

1 

31, 2 3 50 

4 1 563 

1 

71611  1 

31610 

1 

61604 

1 

55612 

1 

54055 

0 

34750  l 

00006 

1 

31,2360 

05014 

1 

30025  0 

55615 

0 

35003 

1 

54002 

1 

41235 

0 

60025  0 

62004 

1 

31,2370 

74357 

0 

22007  0 

00006 

1 

10002 

L 

00006 

l 

71610 

0 

60000  1 

53607 

0 

G A P : A S-SEKBLE  REV  IS  I OH  -9-69-QF  AGC  PROGR-A  -M-  L UMI  HARY — BY  NASA  2-0-2-1 112-011 


1 9:  02 — MOV . 25,1 968 


PAGE  1683 


OCTAL  LISTING  FOR  PARAGRAPH  # 165,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  { I NT E RPRE T I VF  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


377 1 ^ 

0 

54002  1 

- 1 16 1 0 

0 

64753 

_J 

- 1740-6-0- 

- 64753 

_1 

-0-00  0 6 

J 

71610- 

0 - - - 

31 , 2410 

00006 

1 

10002  1 

22007 

0 

21607 

0 

01605  0 

34737 

0 

55604 

0 

44755 

0 

31,2420 

55616 

0 

55610  0 

00006 

1 

23605 

0 

12352  0 

00006 

1 

22130 

0 

00006 

1 

5-2J  5 5 1 

0710? 

_Q-  . 

X : 

_ 0X005 

_0 

- Q 735-6-  1 _ 

--  30X54 

1 

00006 

1 

12442 

0 

31 , 2440 

34733 

1 

00130  0 

52156 

i 

00130 

0 

c 

: 04143  0 

12657 

0 

12657 

0 

12643 

0 

4J>-ft  27 

l 

J-264  7 1 

12616 

0 

13035- 

1 

-33035-0 

13035 

JL_ 

12725 

1 

13035 

0 

31^2460 

13035 

0 

13107  0 

13107 

0 

13101 

0 

13107  0 

13101 

0 

13477 

1 

13240 

0 

31,2470 

13240 

0 

13270  0 

13240 

0 

13270 

0 

13411  1 

13  304 

1 

13325 

1 

13325 

1 

31,2500 

13333 

0 

13333  0 

13441 

1 

13441 

1 

13445  0 

13445 

0 

13475 

0 

C: 

00000 

1 

31,2510 

C:  00000 

1 

C: 

00000  1 

C: 

00030 

1 

C: 

00030 

1 

I 

: 77776  1 

34752 

0 

55645 

0 

12600 

1 

3 1 *-2-5-20 

5-5645 

0 

1 3025  1 

03353 

1 

_ C: 

00035 

1 

05353  1 

C:  05023 

0 

C: 

21000 

1 

00006 

1 

3 1 j 2 530 

00030 

1 

74747  0 

10000 

0 

12564 

0 

05321  1 

C:  00103 

0 

12570 

0 

03721 

0 

^ 1 t ? 5-40 

0 53  1 1 

1 - 

C ; 

- -0-0-1 0 2 1 

—03006 

1 

31625 

53  643  0 

34755 

1 

1 

55643 

0 

31, 2550 

34751 

0 

55617  1 

55620 

0 

04616 

1 

c 

: 40165  1 

05516 

0 

C: 

003  11 

l 

05516 

0 

31,2560 

C:  00143 

1 

05516  0 

C: 

00142 

0 

12600 

1 

05311  1 

C:  00103 

0 

34363 

0 

12547 

1 

3 1 *-2  5-70 

3 4737 

0 

000.0  6 1 

03031 

J 

10000 

0-  - 

1 2600  1 

05321 

1 

C: 

00102 

1 

12537 

0 

31,2600 

00006 

1 

31623  1 

53572 

1 

03721 

0 

00006  1 

31557 

1 

5 3623 

0 

00006 

1 

1-0 

3 1641 

6 

-535  5 1 0 - 

11621 

1 

1 2657 

_Q 

51620  1 

1 2446 

1 

053  1 1 

1 

C: 

00101 

1 

31,2620 

44752 

1 

55645  0 

05516 

0 

C: 

00311 

1 

05516  0 

C:  00142 

0 

12657 

0 

33743 

1 

31,2630 

27550 

1 

05311  1 

C: 

00100 

0 

34752 

0 

55620  0 

34740 

0 

00006 

1 

05013 

0 

31,2640 

05516 

0 

C: 

00143  1 

12624 

1 

30102 

1 

74743  1 

00006 

1 

1263  1 

0 

03667 

0 

31, 2650 

i:  51775 

0 

C : 

02271  1 

C: 

02417 

1 

I : 

70322 

0 

c 

: 03551  0 

C:  02277 

1 

I : 

77776 

1 

06036 

1 

31*2660 

I:  4-53  45 

1 

C: 

03623  0 



03  572 

1 

I : 

41461 

1 

c 

: 21214  0 

I:  47361 

0 

C: 

03633 

1 

C: 

02331 

1 

31,2670 

I:  47045 

0 

C: 

03633  1 

C: 

21700 

0 

I : 

76561 

1 

c 

: 02337  1 

C:  03543 

0 

I : 

51451 

0 

C: 

03517 

1 

31, 27QX 

-G-: — 166-32 

1 

I ; 

77776  1 

52  155 

1- 

21  5 51 

0 

- 0 372 1 X 

00X0-6 

^ 1 SS  1 

1 

53641 

1 

31,2710 

00006 

1 

31543  1 

53633 

1 

00006 

1 

31545  1 

53635 

l 

00006 

1 

31547 

0 

31,2720 

53637 

0 

03674  1 

03721 

0 

51620 

1 

12454  1 

30102 

1 

74746 

1 

00006 

1 

3 1 , 2 7 30 

13035 

0 

31664  1 

30006 

1 

13035 

0 

00004  0 

31642 

0 

55552 

0 

31643 

1 

31,2740 

55554 

0 

03721  0 

34755 

1 

55642 

1 

55643  0 

00003 

1 

55553 

1 

55555 

1 

31-,2  7-50 

30X20- 

-1  - 

34X66  I 

-36  036 

1 

I : 

52375 

1 

c 

: 03633  1 

C:  03517 

I 

I : 

41434 

l 

C: 

21700 

0 

31,2760 

I : 76435 

1 

C: 

02154  0 

I : 

65361 

0 

C: 

03553 

1 

c 

: 03555  1 

I:  52361 

1 

C: 

02154 

0 

I : 

41455 

0 

31,2770 

I : 45345 

1 

C: 

00001  0 

C: 

23762 

0 

I: 

71240 

1 

c 

: 62777  1 

C:  23762 

0 

C: 

00001 

0 

I : 

45345 

1 

19:02  NOV.  25_,  1 9 6 a 


PAGE  1684 


GAP : ASSEMBLE  REV-LS3QN-0-69-OF  AGO  PROGRAM  LUMINARY 


BY  NASA  20  21 1 1 2-011- 


OCTAL  LISTING  FOR  PARAGRAPH  # 166!  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "9"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NTFRPRET I VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


1 

I • 

74  77  1 

0 

C— 

00  00 1 

o 

1 1 

5 3455 

X 

C:  03-5 1J 

J 

Li 

7656  1 

1 

- r. : 0 2337 

X 

31,3010 

C 

: 03543 

0 

I : 

77776 

1 

03721 

0 

00006 

i 

31543 

1 

53633 

1 

00006 

1 

31545 

1 

31,3020 

53635 

1 

00006 

1 

31547 

0 

53637 

0 

13035 

0 

06036 

1 

I : 

64375 

1 

C:  00025 

0 

3 1 , 3-030 

c_ 

: m 7^4 

0 

T : 

5336? 

0 

r. : 

03252 

_1 

_ c: 

03525 

0 

I : 

77776 

1 

06036 

1 

I : 

47375 

0 

C:  03517 

1 

31 , 30 AO 

C 

: 02331 

1 

I: 

70455 

1 

C: 

03525 

0 

C: 

02305 

0 

I : 

77721 

0 

C:  02510 

1 

C: 

03625 

0 

I:  55525 

0 

3 l r ^0  30 

r:  0A424. 

o 

I * 

5-244  6 

0 

X: 

2626  7 

0 

C: 

03517 

1 - 

i; 

41451 

1 

C:  03633 

1 

I : 

76521 

0 

C:  02510 

1 

31,3060 

c 

: 26544 

0 

I : 

50234 

1 

C: 

21700 

0 

C: 

02146 

0 

I : 

77776 

1 

30120 

1 

54166 

1 

30154 

1 

3 L , 30  70 

60000 

1 

04616 

1 

C: 

61643 

1 

63742 

0 

00006 

1 

73741 

1 

55665 

1 

51620 

1 

31,3100 

12462 

1 

03667 

0 

I : 

74375 

0 

C: 

02277 

1 

C: 

03641 

1 

Is  52132 

0 

C: 

63171 

0 

03667 

0 

31, 31 10 

i 

: 77743 

1 

C: 

02431 

0 

C: 

23567 

1 

C: 

02427 

1 

C: 

17565 

1 

C:  03631 

0 

I : 

426  05 

1 

C:  23755 

1 

1 ?n 

C- 

; 0 ?4  ?5 

o 

_C-i- 

-235  6 3 

0 _ 

X: 

02407 

.0 

I : 

41225 

1 

C: 

02  550 

0 

C:  23753 

1 

C: 

03561 

0 

I:  77776 

1 

31,3130 

34744 

i 

55570 

0 

00006 

1 

31641 

0 

52155 

1 

34752 

0 

54001 

1 

33733 

0 

34,3140 

-045-44- 

0 

. -056.5-2 

-0— 

C: 

1)1  406 

1 

00-006. 

JL  - 

30L55 

0.  - 

53641 

} 

03674 

1 

33732 

L 

31,3150 

61640 

1 

00006 

1 

63155 

0 

05504 

0 

C: 

00142 

0 

03667 

0 

I : 

52373 

1 

C:  02403 

1 

31,3160 

c 

: 02544 

0 

I : 

70541 

0 

Ci 

03641 

1 

I : 

53253 

0 

C: 

02411 

1 

C:  03625 

0 

I : 

74341 

1 

C:  03641 

1 

34 , 3170  - 

c 

: 23735 

1 - . 

_ L: 

- 77653 

1 . 

_X : 

02417 

1 

C: 

02271 

1 

I : 

76505 

0 

C:  02510 

1 

T : 

7031  5 

1 

C:  01237 

0 

31,3200 

c 

: 23751 

0 

i: 

45445 

0 

C: 

74525 

0 

I : 

77646 

0 

C: 

03574 

1 

I:  71214 

0 

C: 

03306 

1 

C:  63231 

1 

_ 3 1 , 32-10 

c. 

l 03252 

L _ 

I : 

6531  6 

_Q.  _ 

C: 

03  254l 

1 

I : 

6531  6 

0 

C: 

23735 

1 

! : 63471 

0 

C : 

01245 

0 

I:  45225 

0 

31,3220 

I 

: 71244 

0 

C: 

63223 

1 

C: 

06424 

0 

I : 

43366 

0 

C: 

03256 

0 

I : 44244 

0 

C: 

632  31 

1 

C:  03256 

0 

31,3230 

c 

: 03256 

0 

I : 

77776 

1 

03721 

0 

31620 

1 

55617 

1 

25621 

0 

51620 

1 

12470 

1 

31,3240 

06036 

1 

I : 

53575 

0 

C: 

03633 

1 

C: 

26510 

1 

C.: 

02305 

0 

I:  53361 

0 

C: 

03641 

1 

C:  03633 

l 

31,3250 

I 

: 47051 

0 

C: 

0351  7 

1 

C: 

21700 

0 

I : 

47035 

1 

C: 

03633 

1 

C:  21700 

0 

C: 

26516 

1 

C:  02510 

1 

3-1, 3260 

- 7^4^ 

1 

C: 

_025  1 6 1 

C: 

.02624 

0 . 

I : 

77776 

1 

1 1620 

0 

50000 

1 

31425 

0 

13271 

1 

31,3270 

33727 

0 

61640 

1 

00006 

1 

51620 

1 

62476 

0 

03721 

0 

31617 

0 

64753 

1 

31,3300 — 

-2  2 007- 

-0 

5363  1 

1 

5 16 1 7 

0 

12476 

1 

X6Q36 

1 

T : 47175 

1 

r. : 

0326? 

1 

C:  21700 

0 

31,3310 

I 

: 74361 

0 

C: 

03425 

1 

C: 

22001 

0 

C: 

03252 

1 

I: 

77776 

1 

11645 

0 

12520 

0 

1 1644 

1 

31,3320 

13323 

1 

05567 

0 

C: 

01412 

1 

04635 

0 

C: 

65075 

0 

06036 

1 

I : 

77775 

1 

C:  03535 

1 

31,3330  - 

C- 

: 032600 

T : 

77776 

J. 

13405 

1 

06036 

1 

1 : 

52375 

1 

C:  03633 

1 

C. : 

035  1 7 

1 

I:  77634 

0 

31,3340 

c 

: 21700 

0 

C: 

03260 

0 

I : 

50235 

0 

C: 

02146 

0 

C: 

02516 

1 

I:  77776 

1 

40154 

0 

63763 

0 

31,33 50 

64  733 

1 

541 30  1 

40130 

1 

26130 

1 

4 3764 

0 

60154 

I 

64733 

1 

541  31 

0 

31,3360 

40131 

0 

2613  1 

0 

34751 

0 

76241 

1 

54002 

1 

35014 

1 

54003 

0 

30130 

0 

31 , 3370 

00006 

1 

50002 

0 

71523 

0 

24005 

1 

50002 

0 

53660 

1 

00006 

1 

70131 

0 

;-  AS-SE-NBLE  REVISION  OOP-SF-AGC  PROGRAM  LUMINARY  3 Y NA S A 20-2 11 12-011 L9-UL2  NQV-  25,1-060 &AGE  -1-635 

OCTAL  LISTING  FOR  PARAGRAPH  # 167,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  ”1"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


■^]  66  0 1 

1 000  7 

1 

13363 

-0-  - 

-24006 

1 - 

30H7-6- 

_0 

17-4  741- 

_Q 

-ODQO-6- 

l 

31,3410 

13416  0 

30121  0 

00006 

1 

13421 

1 

05567 

0 

C: 

01410 

0 

04616 

1 

C: 

40165 

l 

31,3420 

13426  0 

02247  1 

06036 

1 

I : 

77624 

1 

C: 

61062 

1 

I : 

77776 

1 

00006 

1 

34755 

l 

0 

40104  0 

74.747  0 

00006 

1 

1344-4 

1 

-31617  0 

12502 

0 

05353 

i 

31 , 3440 

C: 

00035  1 

33765  0 

04616 

1 

C: 

20346 

1 

1 5155 

1 

31664 

1 

00006 

1 

13471 

l 

403X17  XI 

24  246-  1 

00006 

1 

1347 3 

Q - 

33766 

0 

04616 

1 

C: 

20340 

1 

16001 

i 

3li 3460 

13463  1 

13445  0 

13444 

l 

34755 

1 

5 564  2 

1 

55643 

0 

05504 

0 

C: 

00143 

l 

31,3470 

15155  1 

05516  0 

C: 

00  143 

1 

33766 

0 

1 3442 

1 

33767 

1 

13442 

1 

11645 

0 

31,3500 

13426  0 

13516  1 

00006 

1 

43760 

1 

53643 

0 

06036 

1 

I : 

65375 

0 

C: 

06424 

0 

31,3510 

C : 

03643  0 

I:  52266  1 

C: 

03625 

0 

13 

52141 

1 

C: 

23745 

0 

C: 

63174 

0 

57644 

0 

00006 

1 

3 1 f 3 t5?0_ 

71256-  1 

216  43  D-. 

03721 

0-6-0-36 

1 

I: 

45345 

1 

C : 

03643 

0 

C: 

03625 

0 

I : 

45271 

1 

31,3530 

C : 

23747  1 

C:  22010  0 

I : 

50315 

0 

C: 

02146 

0 

C: 

03535 

1 

I : 

45465 

1 

C: 

74203 

0 

I : 

77404 

1 

Or- 

07-7  4-7  1 

13476 

0 

00-00-6 

1 

27137  1 

S41  1 7 

1 

57160 

1 

336  6_6 

1 

3lj3550 

54141  1 

54161  0 

10160 

1 

54162 

0 

34755 

1 

54163 

1 

00006 

1 

30155 

0 

31,3560 

52127  1 

50157  1 

30005 

1 

07306 

0 

04713 

0 

C: 

01226 

0 

52155 

1 

52125 

0 

3 1 , 3 6 7 0 

Xiao  06  1 

_ 501  17-0- 

30004 

_Q 

52155 

1 

3D160 

Q_ 

54140 

0 

64753 

1 

07315 

] 

31,3600 

00006  1 

501  1 7 0 

30002 

0 

52155 

1 

50141 

0 

52004 

1 

44752 

1 

26117 

1 

. 3 1 ,3610  - 

442  52  1 

-26141  -1 

10140 

0 

1 3575 

X 

00006 

1 

30127 

0 

52155 

1 

00006 

1 

31,3620 

30162  1 

07214  1 

00006 

i 

30127 

0 

52155 

1 

52131 

0 

00006 

1 

30160 

0 

31,3630 

07214  1 

04713  0 

C: 

00353 

i 

00006 

1 

40155 

1 

20127 

1 

0471  3 

0 

C: 

01276 

0 

31,3640 

00006  1 

40125  0 

20  155 

i 

24163 

0 

30163 

0 

74750 

0 

1 0000 

0 

00132 

1 

31,3650 

10154  0 

13614  0 

13654 

i 

13660 

0 

10155 

1 

13614 

0 

13660 

0 

13660 

0 

_ 31 ,3-660 

5-21-27 1 

521  5 5 _L_ 

30163 

0 

54-156 

1 

50132 

1 

10002 

1 

C : 

00147 

0 

51620 

1 

31,3670 

42510  0 

50120  1 

54046 

1 

16036 

0 

31640 

1 

00006 

1 

74750 

0 

53474 

0 

3 700 

31640  1 

00006  1 

7 3 740 

0 

5400  1 

L 

63736 

X) 

0000  6 

, 

63717 

a 

40001 

1 

31,3710 

63737  1 

00006  1 

63715 

1 

55664 

0 

00002 

0 

34755 

1 

13713 

0 

33736 

0 

31,3720 

13710  0 

35007  0 

56003 

1 

52002 

1 

55442 

0 

22003 

1 

00000 

1 

C: 

00046 

0 

Xl-,-3  7-30 



0-0  1 25  1 

-C  : 003  72  1 

C: 

00567 

3) 

C : 

0X5-6  3 

0 

C : 

0007  1 

1 

C: 

11422 

0 

C : 

00  167 

1 

C : 

77753 

0 

31,3740 

C: 

02437  0 

C:  00264  1 

C: 

00056 

i 

C: 

74110 

1 

C: 

01130 

1 

C: 

00000 

1 

C: 

02260 

1 

C: 

00000 

1 

34.  t 3-7  50- 

G-4- 

01440  0 

Ct— 0000-0  1 

Cz 

14000 

1 

C : 

00000 

3 

C : 

3 0000 

1 

C : 

00000 

1 

C : 

01437 

0 

C : 

00000 

1 

31 , 3760 

C: 

04535  0 

C:  77656  1 

C: 

42436 

0 

C: 

01542 

0 

C: 

01022 

0 

C : 

01477 

1 

C: 

01500 

0 

C : 

01474 

1 

31,3770 

C: 

03770  1 

C:  03771  0 

CKSM 

56353 

1 

3 

3 

a 

a 

a 

GAP  : — ASS  FF-BL-E  -REV-IS-I-QN  0 69  OP  AGC  PROGRAM  LU  M I WARY  BY  N A 5A  20  211-12-01 T 


1 9 : 0 2-  NOV^- 2-5,1-963 


PAGE  .1686 


OCTAL  LISTING  FOR  PARAGRAPH  # 170,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH  WORD,  "a"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NT  E PPRET I VE 

OPERATOR  WORDS) 

OR  "C 

» (CONSTANTS) 

r i 

pp 144  0 

C : 

33  226 

1 

C: 

- 446  32 - 

0 

X: 

03306 

1 

C-1 

-15303- 

0 

r. : 

26337  1 

CJ 

30000  1 

32,2010 

C: 

00044 

1 

C: 

70123  0 

C: 

40702 

0 

C: 

13337 

1 

C: 

10776 

0 

34737 

0 

70077 

0 

10000 

0 

32,2020 

02027 

0 

05567  0 

C: 

00220 

1 

05472 

0 

00006 

1 

30014 

1 

5342  1 

0 

00006 

1 

3 9 i 20 

^ 1 4P1 

1 

53052  0 

32202 

jOl 

04616 

1 

C_? 

20212 

1 

05472 

0 

02046 

1 

44746 

1 

32,2040 

60154 

1 

00006  1 

12024 

1 

00006 

1 

31052 

1 

02026 

1 

06036 

1 

I : 

77614 

1 

3_2 1 2 fi  t^Q 

C ■ 

n l 0 7/v 

1 

I : 

77414  0 

C: 

0-2076 

1 

32207 

0 

0 4616 

1 

- C: 

20473 

0 

06036 

1 

1 : 

77634 

0 

32,2060 

C: 

21462 

1 

C: 

34041  0 

C: 

27057 

0 

I : 

77624 

1 

C: 

64142 

1 

C: 

16205 

1 

C : 

00015 

0 

C : 

34041 

0 

32,2070 

C: 

27043 

0 

I : 

77624  1 

C: 

64142 

1 

C: 

16213 

0 

C : 

00015 

0 

I : 

56225 

1 

C: 

02021 

0 

C: 

24205 

0 

32,2100 

C: 

02221 

1 

I : 

77776  1 

34753 

1 

54332 

1 

32206 

1 

04616 

1 

C: 

01735 

1 

31324 

0 

32,2110 

54332 

1 

34744  1 

70074 

0 

10000 

0 

02132 

0 

11304 

0 

1212  1 

0 

12125 

1 

32,2120 

1212L 

0 

3 4363_  0 

04616 

-I 

- C: 

01735 

1 

12115 

1 

04616 

1 

C: 

16667 

1 

04616 

1 

32,2130 

C : 

17671 

1 

02132  0 

05516 

0 

C: 

00054 

0 

32203 

1 

04616 

1 

C : 

20220 

0 

15472 

1 

3 2 f ? 1-40 

15472 

1 

054  7 2 0 

. I: 

64375 

1 

- C : 

00025 

_Q_- 

C : 

XI 734 

0 

UL 

72561 

0 

C : 

24212  0 

I : 

532  55 

0 

32,2150 

C : 

242  14 

0 

C: 

24222  0 

I : 

77634 

0 

C : 

21744 

0 

C: 

24025 

0 

C: 

00017 

1 

I : 

74321 

1 

C: 

01734 

0 

32,2160 

C: 

24210 

1 

I : 

53212  0 

C: 

24214 

0 

I : 

47055 

1 

C: 

24222 

0 

C: 

21744 

0 

I : 

77750 

0 

C: 

00024 

1 

32,2170 

_ I_l_ 

72130- 

0 

C : 

001 55  0 

C: 

00026 

-0 

1 : 

72130 

0 

C: 

00160 

0 

C : 

00030 

1 

I : 

43530 

0 

C: 

00162 

1 

32,2200 

C : 

00216 

1 

C: 

14400  0 

C: 

01420 

0 

C: 

14420 

1 

C.: 

03100 

0 

C: 

00000 

1 

C: 

03720 

1 

C: 

15077 

0 

32  y 22  IQ 

(^4- 

-05044 

_4 

C: 

2444)2  1 

r : 

25  724 

1 

C : 

00000 

1 

C: 

60000 

1 

C:  00000 

1 

C : 

60000 

1 

C : 

00000 

1 

32, 2220 

C: 

60000 

1 

C : 

00000  1 

C: 

37777 

1 

C: 

00000 

1 

C: 

37777 

1 

C : 

00000 

1 

C : 

37777 

1 

I : 

77624 

1 

32,2230 

C : 

2 7412 

0 

I : 

77745  1 

C: 

03440 

1 

C: 

03657 

0 

C: 

00041 

1 

I : 

43014 

0 

C : 

01674 

0 

C: 

01673 

1 

32,2240 

I : 

43014 

0 

C: 

01676  1 

C: 

01675 

1 

I : 

77624 

1 

C: 

27134 

1 

I : 

77624 

1 

C : 

11165 

0 

I : 

77775 

1 

32,2250 

C: 

00017 

1 

C: 

17627  1 

C: 

00015 

0 

C: 

34041 

0 

C: 

27412 

0 

I : 

43014 

0 

C: 

01474 

1 

C: 

01673 

1 

32-,  2-260 

I : 

4 3-0-14 

_o 

C : 

-04-6  76  1 

C : 

£2756 

4 

C : 

64267 

0 

I : 

4 3014 

n 

C : 

01  476 

0 

C : 

01475 

0 

I : 

77624 

1 

32,2270 

C: 

27134 

1 

I : 

77624  1 

C: 

11165 

0 

I : 

77775 

1 

C: 

00025 

0 

C : 

25  76  1 

0 

C: 

0001  7 

1 

C: 

01102 

0 

-32,2300 

f-J- 

53435 

-0 

C-: 

01761  0 

Cl 

24025 

0 

- C-i- 

03-62  7- 

1 

I z_ 

53435  0 

CJ 

00025 

0 

C-i 

-2-7.63  5 - 

1 

- Cl 

01102  0 

32,2310 

I : 

50256 

0 

C: 

03635  1 

I : 

77752 

1 

C: 

02732 

0 

I : 

44316 

0 

C: 

10345 

1 

l : 

77766 

0 

C: 

26730 

1 

32,2320 

C : 

0 1102 

0 

C : 

26655  0 

C : 

01761 

0 

I : 

77676 

0 

C: 

02744 

1 

I : 

45014 

0 

C : 

03666 

1 

C: 

24745 

1 

3-2,2330 

Li_ 

776  76 

JQ 

CJ- 

_CL3643-  0 

j: 

77745 

3 

C : 

00037 

n 

C : 

2 7661 

0 

C : 

03643 

0 

I : 

77646 

0 

C: 

24025 

0 

32,2340 

C: 

00001 

0 

C : 

03651  0 

I : 

53435 

0 

C: 

03627 

1 

I: 

53435 

0 

C: 

03651 

0 

I : 

7656  1 

1 

C: 

00025 

0 

— 32+23  50 

— Ci- 

3 7663 

0 

C : 

11165  0 

1 : 

77624 

1 

C : 

27412 

0 

I : 

44345 

0 

C : 

03661 

0 

C : 

03657 

0 

C: 

25517 

0 

32,2360 

C : 

03651 

0 

C: 

01535  0 

C: 

25503 

0 

C: 

0 3 663 

1 

C: 

35511 

1 

C: 

23361 

1 

I : 

45174 

1 

C : 

00002 

0 

32,2370 

C : 

26661 

1 

I : 

77624  1 

C: 

27425 

1 

I : 

77776 

1 

046  16 

1 

C : 

50062 

0 

04645 

1 

55735 

0 

GAp  : ASSEMBLE  REVISION  069-8F-AGC  PROGRAM  LUMINARY-  8Y— NASA-  20  21 1 12-011 L9XQ2  MOV.  2 5,1-368 PAGF  1 687- 

OCTAL  LISTING  FOR  PARAGRAPH  # 171,  WITH  PARITY  BIT  IN  BINARY  AT  THF  RIGHT  OF  EACH  WORO,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


r : 

_nr>4  2 n - 

l 

non (14  n 

3-4  751 

0 

0.0006 

1 

_..Q2JQ3i. 

_Q — 

5A001 

1 

A A 7 5 1 

1 

32 , 2 A 1 0 

70110 

0 

6o5o  i 

0 

5 A 1 1 0 

0 

00003 

1 

0A616 

1 

C: 

53103 

0 

0A6  16 

1 

C: 

17667 

0 

32, 2A20 

1 25  AO 

0 

0000  A 

0 

53106 

0 

53753 

0 

53102 

1 

537A5 

1 

00006 

1 

3003  A 

0 

T ? 4 

5^4  54 

n 

30032 

0 

55A5X 

1 

00006 

1 

30025 

0 

52155 

1 

00006 

1 

30036 

1 

32,2440 

53110 

i 

00003 

1 

0A616 

1 

C: 

53105 

0 

0A616 

1 

C: 

17667 

0 

02  5 3 A 

1 

06036 

1 

r ? 14 np* 

o 

(U- 

-Q  374-5 

-I  - 

L: 

_ 5 7-261 

.0  _ 

_ C : 

20217 

-1 

C: 

2A012- 

JL 

C: 

17  7A7 

0 

C: 

01 1 10 

0 

C: 

03751 

1 

32, 2A60 

I:  A7135 

0 

C: 

OHIO 

0 

C: 

21A65 

0 

C: 

03732 

1 

I : 

A 71 35 

0 

C : 

01111 

1 

C: 

21A65 

0 

C: 

1773A 

l 

32,  2 A 70 

C:  01102 

0 

I : 

66A05 

0 

C: 

2 AO  1 A 

1 

C: 

37755 

1 

C: 

A60A1 

0 

C: 

17737 

1 

C: 

00025 

0 

C: 

3A0A1 

0 

32,2500 

C: 

51151 

0 

I : 

77776 

1 

31  A55 

1 

5A766 

1 

3 1A56 

1 

5 A 770 

0 

31A57 

0 

5A772 

1 

32,2510 

06036 

1 

I : 

A5175 

0 

C: 

01102 

0 

C: 

A7555 

1 

I : 

776A1 

1 

C:  03737 

1 

I : 65552 

0 

C:  010A6 

1 

I • 

50  0-25- 

_o 

O 

_2  4 544 

1 

c : 

64527 

O 

I : 

77776 

1 

3 A752. 

.0 

5A15A 

0 

12532 

0 

I:  77776 

1 

32,2530 

3A755 

1 

5A15A 

0 

31735 

1 

0A6A0 

1 

30101 

1 

7A7A2 

0 

10000 

0 

12A1A 

0 

0? T 9 C40 

347  53 

1 

54J  5-4 

-0  _ 

-02  532 

_X_ 

00-21-0 

1_ 

r. : 

2 1 042 

_J 

3 A 75  3 

1 

-5510  7 _L 

. 3 A7  5 6 . 

. 1 

32I2550 

10000 

0 

5A002 

1 

11  107 

1 

12561 

0 

00006 

1 

50002 

0 

31761 

0 

50002 

0 

32,2560 

21102 

1 

00006 

1 

50002 

0 

3110? 

0 

50002 

0 

52156 

1 

11107 

1 

12575 

0 

32,2-570 

0.0006.. 

1 

_ 5_0H0.2_  0 . 

3L761 

Q _ 

50  002- 

0 _ 

-201 56 

1 

10002 

1 

12550 

1 

52156 

I 

32,2600 

52155 

1 

32770 

0 

5A120 

0 

OA  713 

0 

C: 

01023 

1 

07531 

1 

11107 

1 

12611 

1 

32,2610 

12625 

_Q  - 

-00004  0 . 

0-00  0-6 

1 

00036 

1 

53767 

1 

30033 

1 

5A766 

1 

3003A 

0 

32,2620 

5A770 

0 

30032 

0 

5A772 

1 

0A6I6 

1 

C: 

A 752 1 

1 

A62AA 

1 

0A6  16 

1 

C:  A7601 

0 

32,2630 

1 1 107 

1 

12633 

1 

12676 

0 

55107 

1 

31766 

1 

0503? 

0 

5A166 

1 

A1766 

0 

32.26A0 

05033 

1 

5A163 

1 

00006 

1 

70  1 2 A 

1 

52155 

1 

31767 

0 

05033 

1 

55766 

0 

32,2650 

00006 

1 

70166 

1 

00006 

1 

70122 

1 

20155 

1 

31767 

0 

05032 

0 

55767 

1 

. . - 32 1 267*0 

00006 

1 

-7016  6- 

1 

-00-006- 

1 

70126 

_0 

20155 

1 

00006 

1 

3015  5 

0 

20155 

1 

32,2670 

10000 

0 

3A736 

1 

12673 

0 

00006 

1 

05012 

1 

125A7 

1 

31  767 

0 

00006 

l 

3 2 T 2 7 00 

70  3 22 

1 

...533  1 0. 

1 

-4  3 766 

0 

nnnr)6 

1 

70126 

0 

21  143 

1 

40X6  3 

1 

00006 

1 

32,2710 

71766 

0 

00006 

1 

70122 

1 

52155 

1 

30166 

0 

00006 

1 

701  2 A 

l 

20155 

1 

32,2720 

AO  1 63 

1 

00006 

1 

71  767 

1 

00006 

1 

70126 

0 

20155 

1 

30  1 5 A 

1 

00006 

l 

32+27  20 

72771 

0 

5 7X0-1 

0-  - 

-00006 

1 

32771 

0 

_53  1 1 0 

1 

3 A 750 

1 

00006 

1 

02033 

0 

32,27  AO 

OOOOA 

0 

00006 

1 

127A6 

1 

0A6I6 

1 

C: 

52306 

0 

1276A 

1 

AA7A2 

0 

70110 

0 

— — 3-2-^27-50 

5A1  lO-  0 

AA75-2- 

1 

00.006 

1 

03012 

1 

3A7A3 

0 

26077 

0 

11056 

1 

AA7  76 

1 

32,2760 

6A777 

1 

05203 

0 

C: 

03275 

1 

C : 

50067 

0 

AA7A0 

1 

70076 

1 

5A076 

l 

15155 

1 

32, 2770 

C: 

00052 

0 

C: 

56655 

1 

05353 

1 

C: 

0A02A 

0 

0A616 

1 

C:  11175 

1 

332A6 

1 

55A53 

0 

PAG  E 16.88 


GAP:  -A  S-S-f  P-BL-E  R E-V  I S LON-  0 6-9  OF  A-GC— PRQGRA-M  LUMINARY  BY  NASA  23  21  112-0-17 


19; 0?  NDV.  2 5 , L96A 


OCTAL  LISTING  FOR  PARAGRAPH  # 172, 


WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "9”  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

(INTERPRETIVE 

OPERATOR 

: WORDS)  OR 

"C1 

(CONSTANTS) 

34  751 

o 

55  513 

0--- 

44753  0 

2-2Q0lZ-_ 

X) 

63621  1 

-44736- 

0 _ - _ - - 



32-030 

-4 — 

D 30  1 2 

1 

06036 

1 

I : 

43014 

0 

C:  02663 

0 

C: 

03271 

0 

I : 

43014  0 

C: 

0 566  0 

1 

32,3010 

o 

I : 

43014 

0 

C: 

00266 

0 

C: 

00270 

1 

I;  77201 

1 

C: 

00001 

0 

C: 

02023  l 

I: 

41525 

0 

1 

C : 

51504 

1 

U 

64312 

0 

X:  C-L7-34 

0 

X: 

37633 

0 

C ; 

60264  1 

I : 

45345 

1 

32  , 30-30 

Cj_ 

n 24  0 1 

o 

C : 

25254 

0 

C: 

34041 

0 

C; 

27057 

0 

i:  77331 

0 

C: 

03645 

0 

C: 

00050  1 

C: 

06422 

0 

Gj 

0A4-?  0 

1 

C: 

26516 

1 

_ X 

06416 

1 

C : 16524 

0 

C; 

25252 

0 

C : 

27663  1 

C : 

06424 

0 

3 2 , 3 0 SO — 

t* ? . ao 

ly-*— 

C : 

17252 

i 

C: 

06424 

0 

C: 

0 3 641 

1 

I : 

77745 

1 

C:  00015 

0 

C: 

27557 

0 

C: 

00017  1 

I : 

64312 

0 

32,3070 

C: 

01734 

0 

C: 

37517 

0 

C: 

67162 

0 

C: 

35237 

1 

C:  62514 

0 

55644 

1 

06036  1 

I : 

57345 

1 

0 3 A 25 

o 

C : 

0247  1 

1 

I : 

44232 

1 

C: 

03631 

0 

i:  45325 

1 

C: 

02467 

0 

C: 

02550  0 

I : 

65222 

0 

^ 2 r ^1 1 n 

C : 

02546 

L 

I : 

57316 

1 

C: 

02473 

0 

I : 

65232 

1 

C:  02544 

0 

1 : 

57225 

0 

C: 

02465  1 

C: 

02471 

1 

r : 

03 A?  3 

0 

1 : 

57225 

0 

C : 

02463 

1 

C:  02475 

0 

I : 

43215 

0 

I : 

56215  1 

I : 

77661 

0 

3^?*-34-£Q 

32,3130 

C: 

21613 

0 

I : 

4320  6 

1 

C: 

03557 

0 

C: 

14041 

1 

I:  45246 

0 

C; 

25256 

1 

I : 

45040  1 

C: 

65156 

0 

o 

C : 

01473  0 

- C-2 

00063- 

J. 

UL  7 7X45- 

1 

C: 

-03557 

-X 

-X: 

2 55  1 f 0 — 

Cl 

00017 

1 — - 

— 32, 3140 — 

-\p  i 3 1 50 

G -Z- 

C : 

25535 

0 

C: 

00025 

0 

C: 

3 5 543 

0 

C: 

27107 

1 

I:  77650 

1 

C: 

65063 

1 

I ; 

54335  0 

C: 

03425 

1 

3 ? t 3 1 AO 

C : 

20617 

0 

I: 

77621 

1 

C: 

00041 

1 

c; 

27440 

1 

C:  03525 

0 

I ; 

53435 

0 

C: 

03517  1 

I : 

72441 

0 

C ; 

? A33  4 

1 

C : 

-C: 

-02536. 

-0  - 

I : 7 7776 

-1- 

05353 

1 

C: 

04024  0 

43247 

1 

— 32,3170 — 
3?  f 2200 

Aa-— • — 

046  16 

1 

C : 

74667 

0 

15155 

1 

06036 

1 

1:  47131 

1 

C: 

02747 

1 

C: 

65210  1 

C: 

30776 

1 

r : 

0733  A 

0 

r.  : 

2-7767 

1 

r. : 

06422 

0 

C:  03761 

1 

I : 

77776 

1 

35016  0 

54003 

0 

3 2,  3220 

00004 

0 

04674 

0 

c: 

40142 

1 

00003 

1 

04616 

1 

C: 

54101 

0 

05353  1 

C: 

04024 

0 

32,3230 

34746 

0 

00006 

1 

02033 

0 

00006 

1 

13242 

1 

33250 

0 

04616  1 

C ; 

20476 

0 

32,3240 

16001 

1 

13230 

1 

04616 

1 

C: 

67704 

0 

04635 

0 

C: 

74124 

0 

C : 

02074  0 

C: 

00027 

1 

32,3230 

C; 

00500 

l 

C: 

00035 

1 

C: 

30373 

0 

C: 

00003 

1 

C:  37214 

1 

C: 

00000 

1 

C ; 

00010  0 

060  3 6 

1 

32 , 32An 

I : 

77A  ?4 

r T 

A 1 03  3 

n 

L: 

77776 

1 

34  751 

0 - 

555  13 

0 

33607 

0 

55453  0 

05516 

0 

32,3270 

C: 

002  14 

0 

055  16 

0 

C: 

00  175 

l 

05516 

0 

C:  00161 

1 

05504 

0 

C: 

00307  0 

05321 

1 

13323 

l 

06  036 

1 

I : 

77624 

1 

C:  65555 

1 

1 : 

54345 

1 

C: 

34003  Q 

C : 

20205 

1 

32 , 33 10 

I : 

77665 

1 

C : 

01245 

0 

C: 

16265 

1 

C: 

01245 

0 

I:  70471 

1 

C: 

24003 

1 

C: 

03633  1 

C: 

03635 

1 

32,3320 

C: 

03637 

0 

I : 

77665 

1 

C : 

25606 

0 

C: 

16257 

0 

C:  34005 

0 

I : 

54276 

0 

C: 

20214  1 

C: 

02263 

1 

7 2 T 33  30 

] : 

373  33 

_Q 

r • 

2600  2 

1 

I : 

77702- 

1 

C: 

02261 

0 

I:  45014 

0 

C : 

04467 

0 

C: 

60230  0 

I : 

77650 

1 

32,3340 

C : 

65371 

l 

05321 

1 

C: 

00106 

0 

33572 

1 

64753 

1 

55644 

1 

05173  1 

C: 

03356 

1 

3 ? f 33  *>o 

ft. 3 3.33 

1 

r * 

4701  4 

1 

r : 

76  133 

1 

C : 

Q3356 

1 

C:  64067 

1 

15155 

1 

04674  0 

C: 

7555  1 

1 

32,3360 

33407 

l 

55260 

0 

05516 

0 

C: 

00163 

0 

05516 

0 

C: 

00  162 

1 

05353  1 

C: 

00004 

0 

32,3370 

15261 

0 

I : 

77414 

0 

C: 

04461 

0 

03564 

0 

05353 

1 

C: 

04024 

0 

04616  1 

C: 

73707 

0 

— GAP:  ASSE7MH.-E-REV  IS  ION  069  OF  -4GCPR  OGR  AM  LUMINARY  BY  NASA  20  211-1-2--01-J 19103-2  NOV.  25,1968 PAGF  1689 

OCTAL  LISTING  FOR  PARAGRAPH  If  173,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORCS  APE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRETIVE 

OPERATOR  WORDS)  OR 

"C 

" (CONSTANTS) 

o a 

- -000  0 6 l 

3361 1 

1 

53  2 53 

XI 

05253 

1- 

- X 

: 00004  0 

L5J-5  5 1 

C : 

65410 

1 

32  * 3410 

05327  1 

C:  00002  0 

C : 

05024 

1 

C: 

25000 

0 

06036 

1 

I 

: 43234  0 

C: 

21462  1 

C : 

25576 

1 

32,3420 

C : 

03557  0 

C:  34041  0 

C: 

27057 

0 

I : 

77775 

1 

C:  00007 

0 

c 

: 03551  0 

I : 

76521  0 

C: 

01734 

0 

■}?T  24X0 

C ; 

- 2 7575  0 

G * QQOOl  0 

X-i 

0 3 543 

0- 

I : 

52521  0 _ 

C:  0.1.734 

.CL  . 

c. 

: 37517  0 

C: 

67162  0 

1 : 

45014 

0 

32,3440 

C: 

04471  1 

C-  60313  0 

I : 

77776 

1 

05353 

1 

C:  04024 

0 

06036  1 

I : 

77214  0 

C: 

046  71 

0 

c • 

n 2f»  4/-v  o 

I : 76505  0 

- Xi 

_ 01734 

X 

C : 

03654 

0 

I:  77646 

a 

c 

: 27662  0 

C : 

03543  0 

C: 

27640 

0 

32,3460 

C: 

03551  0 

C:  17646  0 

C: 

03557 

0 

C: 

03440 

1 

I:  43014 

0 

c 

: 01067  1 

C; 

04666  0 

I : 

77776 

l 

32,3470 

36241  0 

55325  0 

35023 

0 

05146 

1 

33612 

l 

54332  1 

55324  1 

05321 

1 

32,3500 

C : 

00106  0 

13515  1 

33521 

1 

55566 

1 

33523 

0 

55567  0 

05353  1 

C: 

05024 

1 

32,3510 

C: 

13000  0 

31567  1 

05314 

1 

31566 

0 

04640 

1 

33522  1 

55566  1 

33524 

1 

_ 3-2+35-20 

-135  05-  0 

C : 75147  1 

Cjl 

75410 

0 

C : 

00050 

1 . 

C:  00052 

0 

05516  0 

C: 

00215  1 

36000 

1 

32,3530 

55251  1 

06036  1 

I : 

45014 

0 

C: 

04707 

0 

C:  65542 

1 

c 

: 65555  1 

I : 

52131  0 

C: 

00053 

1 

32 1 3540 

C-t- 

—6  53  3-7  -Q 

_c : 607-0  4 1 

I : 

72  545 

X - 

C : 

03515 

0 

C : 3 7643 

1 

c 

: 60704  1 

I : 

77776  1 

05252 

1 

32,3550 

C: 

04024  0 

00006  1 

31643 

1 

53515 

0 

13376 

1 

I 

: 45234  0 

C: 

21462  1 

C: 

03440 

1 

32,3560 

I : 

77661  0 

C:  20214  1 

C: 

03515 

0 

I : 

77616 

0 

34737 

0 

54055  0 

34750  l 

00006 

1 

32,3570  - 

0-5014  1 

00002  0 

C: 

-0-0.453 

JO  - 

X: 

00000 

1 

C:  01750 

1 

0 

: 00000  1 

C: 

21450  0 

C: 

01161 

0 

32, 3600 

C: 

00000  1 

C:  00021  1 

C: 

33400 

0 

C: 

11021 

1 

C:  00000 

1 

c 

: 00507  0 

C : 

25605  0 

C: 

021  10 

0 

32-T-36 10 

_ G: 

0 3-637  0 

Cl  700-6  7 1 

X: 

-0-0  003- 

1 

I : 

443  OX 

0 

_C:  00163 

_Q 

c 

: 17743  1 

I : 

77776  1 

0722  1 

1 

32, 3620 

C: 

00006  1 

c:  00000  1 

C: 

00002 

0 

C: 

76777 

1 

C:  77175 

1 

c 

: 77400  0 

C : 

75416  0 

C: 

77507 

0 

32,3630 

C: 

655  15  0 

C:  77741  0 

C: 

63547 

1 

C: 

77052 

0 

C:  55373 

0 

c 

: 01167  0 

C: 

30361  0 

C : 

76520 

1 

32, 3640 

C : 

75267  0 

34755  1 

54156 

1 

00006 

1 

33660 

1 

52155  1 

52132  0 

30162 

1 

32, 3650 

07306  0 

52156  1 

52155 

1 

52132 

0 

201  55 

1 

06036  1 

I : 

43476  0 

C : 

00542 

1 

X2-T-X&XQ 

C: 

—344 14  1 

3-1-7  3 5-  1 

-5-5-07  5 

-X 

055  0 

n 

C:  D 0036 

1 

04616  1 

C : 

17263  0 

44743 

1 

32, 3670 

00006  1 

03011  1 

05327 

1 

C: 

00005 

1 

C:  05022 

1 

c 

: 20000  0 

06036  1 

I : 

43014 

0 

32 -y  37-00 

£x 

-04464—0- 

C; 03654  0 

l : 

45  01  4 

o 

G i 

0 2 2^7 

f ; 7 75] 3 

o 

7 

: 7741 4 0 

r • 026  7 1 1 

21760 

1 

32,3710 

04640  1 

00006  1 

33747 

0 

53253 

0 

40103 

i 

74745  1 

26103  l 

34735 

1 

32,3720 

54107  0 

00006  1 

34755 

1 

52753 

1 

30102 

l 

74744  0 

10000  0 

13733 

1 

3-2,-3730 

00006  1 

3475  5 1 

52755 

1 

00006 

1 

34755 

i 

52757  0 

00006  1 

34755 

1 

32,3740 

52765  1 

34764  0 

54001 

1 

40000 

0 

52761 

0 

15644  0 

C : 

03525  0 

C: 

76067 

1 

32,3750 



—00006 — 1 

-13-00-2  5—0  _ 

-53657 

0 

00006 

1 

30033 

1 

53661  0 

30034  0 

55662 

0 

32,3760 

30037  0 

55663  1 

00006 

1 

30041 

1 

53665 

1 

05261  1 

C : 

03766  0 

C : 

03767 

1 

32, 3770 

CKSM 

73541  0 

0 

a 

a 

a 

a 

a 

a 

— GAP 


1 9 : 02-  - NOV  . -2-5  ,-1-96-4 


PAGE  .1.690 


A-SDEMBLE-RF-V-IS  IO-N  069  OF  AG C PROGRAM-LUMINARY — BY  NA SA-- 2021 1 1 2 - Oil 


OCTAL  LISTING  FOR  PARAGRAPH  U 174,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  » 3»  DENOTES  UNUSED  FIXED  MEMORY 
ALL  V Al" ID  WO R C S ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


C : 

,41  000 

0 

C- 

7 1 21 0 

1 

_ C: 

o ao-oa- 

-l 

r j 

-00-0.00- 

a 

f. : 

7 2333 

J 

C: 

45546 

1 

— 2O0£ 

33 , 20  10 

C : 

65363 

1 

C:  64451 

0 

C: 

21241 

0 

C: 

03216 

1 

C: 

30153 

0 

C: 

23101 

0 

C: 

63105 

0 

C: 

61733 

1 

33  f 2020 

C : 

01507 

1 

C:  00321 

1 

C: 

26706 

1 

C: 

00150 

0 

C: 

33343 

0 

C: 

02630 

0 

C: 

25010 

1 

C: 

24402 

1 

r : 

o 

r : M 377 

0 

r.: 

55  754 

1 

C : 

.77.6.44.. 

1 

_C J. 

65556 

1 

C: 

64453 

1 

C: 

55670 

0 

C: 

00002 

0 

33,2040 

C : 

1 1 777 

0 

C:  01023 

1 

C: 

37155 

1 

C: 

00065 

1 

C: 

06244 

0 

40110 

0 

74742 

0 

00006 

l 

17  173 

1 

00004 

Q 

261L0 

0 . 

4 4 73  6 

.0 

00006 

1 

0 3012 

1 

44740 

1 

70076 

1 

33, 2060 

54076 

1 

44753 

0 

70074 

0 

54074 

0 

04616 

1 

C: 

52156 

l 

34740 

0 

70110 

0 

33,2070 

10000 

0 

12104 

1 

35031 

0 

05072 

1 

C: 

02113 

0 

C: 

66067 

0 

44742 

0 

70110 

0 

33,2100 

541  10 

0 

34736 

1 

26  110 

0 

12623 

0 

34753 

1 

05203 

0 

C: 

0360  1 

0 

C: 

52067 

1 

33,2110 

34741 

1 

26110 

0 

12623 

0 

34753 

1 

05203 

0 

C : 

02171 

1 

C: 

52067 

1 

04616 

1 

r • 

1 7 A bl 

0 

1 5 15  5 

1 

15155 

-J 

0.0  006 

1 

41235. 

0. 

52155 

1 

00006 

1 

30025 

0 

33,2130 

20155 

1 

54163 

1 

30155 

0 

00006 

1 

74740 

1 

52155 

1 

06036 

1 

I : 

52315 

1 

r • 

0 1 7 

_o 

r ; n ^3  7 s 

0 - 

I : 

7432  5 

0 

-Ll 

52255- 

-J 

C: 

—0.1-7  7 -0 

.-0. 

C : 

03517 

1 

I : 

7741  4 

0 

r.i 

01043 

1 

33,2150 

C : 

66152 

1 

12623 

0 

C: 

25102 

0 

C: 

00001 

0 

I: 

77761 

1 

C: 

26177 

1 

C: 

0176  1 

0 

I : 

77414 

0 

33,2160 

C: 

0 1263 

1 

40074 

0 

74753 

0 

00006 

1 

12623 

0 

00004 

0 

26074 

0 

11056 

1 

33  f 2 1 70 

44776 

1 

_647  7 7 

L 

0.5  203 

...0.  _ 

C.:. 

_ 0.3253 

0 

C: 

50067 

0 

12623 

0 

C: 

00006 

1 

C : 

10000 

0 

33,2200 

05353 

1 

C:  16035 

0 

C: 

20000 

0 

C: 

02211 

1 

C: 

66067 

0 

37715 

0 

55075 

0 

04616 

1 

33t  27 1 0 

c -J 

06036 

1 - 

- I : 

.51575 

1 

C: 

00325 

0 

I : 

77776 

1 

30154 

1 

55246 

1 

00006 

1 

33,2220 

72020 

0 

53512 

1 

00006 

1 

31245 

0 

53567 

0 

40104 

0 

74744 

0 

00006 

1 

33,2230 

12251 

1 

30106 

0 

74737 

1 

10000 

0 

00006 

1 

32001 

1 

54002 

1 

00006 

1 

33,2240 

31512 

0 

00006 

1 

10002 

1 

00006 

1 

71244 

0 

53567 

0 

00006 

l 

31245 

0 

33, 2250 

21567 

0 

3202  1 

0 

07306 

0 

52155 

1 

21506 

1 

37711 

1 

05146 

1 

02473 

0 

_ 3 3r  7 7-60  — 

04  A 1 1 

X : 4 -75-2  1 

1 

—06-03  6 

1 

I : 

45  160 

1 

r : 

02.145 

0 

r : 

3 127 1 

1 

I : 

77776 

1 

34736 

1 

33,2270 

0 5146 

1 

06036 

1 

I : 

45014 

0 

C: 

03307 

0 

C: 

67064 

1 

C: 

67030 

0 

I : 

77776 

1 

03535 

1 

33  ,-2-300 

0-74-5A  1 

5J5J  AO  n 

5516  1 

1 

55  162 

1 

44741 

0 

70076 

1 

54076 

I 

34745 

0 

33, 2310 

70  103 

1 

10000 

0 

12345 

0 

40102 

0 

74752 

1 

10000 

0 

1235  1 

0 

41251 

1 

33,2320 

61246 

0 

00006 

1 

62355 

0 

40076 

1 

74741 

0 

26076 

1 

34753 

1 

55513 

0 

3 ) , 23 30 

-3D  .1.06. 

-0 

747  3 7 

1 

10000  0 

12400 

0 

3 4743 

0 

00006 

1 

02032 

l 

00006 

1 

33,2340 

12400 

0 

44736 

0 

70111 

1 

54111 

1 

) 2403 

0 

44752 

1 

7010? 

0 

54102 

0 

- 33,-23-50- 

12-400 

XL 

40102 

_Q 

74752 

1 

26  102 

0 

I 2400 

0 

03535 

1 

115  I 3 

0 

12371 

1 

33,2360 

10761 

0 

12403 

0 

05353 

1 

C : 

00  374 

1 

37712 

1 

05072 

1 

C: 

02574 

0 

C: 

74067 

0 

33,2370 

12403 

0 

55566 

1 

03535 

1 

31566 

0 

55513 

0 

00004 

0 

04674 

0 

C: 

40165 

1 

GAP  : ASSE-M-BL-E--R-EV-1S-IQN  0 69  - OF-  AGG  PROGRAM  LUMINARY  BY  NASA  202111-2-01-1 


19:02  NOV.-  2-5-,196-R 


-PAGE  1691 


OCTAL  LISTING  FOR  PARAGRAPH  # 175,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


35016  0 


5400  3-0- 


33,2410 

30167  1 

75004 

1 

54166 

1 

22007  0 

52121  1 

03535 

1 

00006 

1 

31253 

1 

33,2420 

52006  0 

06036 

1 

I : 

43175 

0 

C: 

03543  0 

C:  03347  1 

C: 

66450 

0 

I : 

64252 

0 

C: 

01734 

0 

. 1 ^ t ?4  30  

c : 37517  0 

- c* 

-67  16-2 

Q 

L: 

76575 

3 

Cj_ 

_ 03551  0 _ . 

I:  7 77 ? 1 0 

C:  01734 

0 

C: 

27525 

0 

C: 

01726 

0 

33,2440 

I:  53435  0 

C: 

01720 

0 

C: 

03716 

i 

I : 

77776  1 

00006  1 

34755 

1 

52755 

1 

12453 

0 

3 3 ♦ 24  50 

[ : 77624  1 

C-1- 

667  6-2 

-1  _ 

U_ 

77776- 

i 

3247?  1 

02457  0 

05155 

0 

36007 

0 

00004 

0 

33, 2460 

77746  1 

5406  1 

i 

00006 

i 

50061  0 

31543  1 

50061 

0 

53221 

0 

10061 

1 

33,2470 

12460  0 

00002 

0 

C: 

00022 

i 

31156  1 

54766  1 

31157 

0 

54770 

0 

31155 

1 

33,2500 

54772  1 

00002 

0 

00004 

0 

45015  1 

70107  0 

65015 

0 

54107 

0 

37717 

1 

33,2510 

05105  0 

C: 

0 3653 

1 

C: 

66  06  7 

0 

12573  0 

I:  77776  1 

40107 

0 

74735 

0 

00006 

1 

33,2  5 20--  _ - 

12-6XLL  0 

34  746 

0 

70107 

JO..  - 

00006  1 

12753  0 

34743 

0 

70107 

0 

00006 

1 

33,2530 

12742  0 

34741 

1 

70107 

0 

00006  1 

12550  1 

34745 

0 

00006 

l 

02033 

0 

33,7 340 

Q-0O0&  1 

1 3-2-Q  5 

4- 

34  73  7 

0 

00  0-03  1 

020 12  0 

00006 

1 

1 257  1 

_J 

1 2573 

0 

33, 2550 

31640  1 

61427 

1 

00006 

1 

62564  1 

34741  1 

56003 

1 

54001 

1 

41545 

0 

33,2560 

22003  1 

61430 

1 

00006 

1 

62502  1 

34746  0 

00006 

1 

02033 

0 

00006 

1 

33,2570 

_ 132-0-5-  1 

055  67 

-0  _ 

C: 

--00  511 

1 

00 004l  0 

43204  0 

70107 

n 

54107 

0 

04674 

0 

33,2600 

C:  53607  0 

03535 

1 

30077 

1 

75014  0 

10000  0 

12617 

l 

30110 

1 

72242 

0 

33^-261 0 

Loao-O-o 

1.261  7 

1 

30-110 

1 

77707  1 

LOO 00  0 

1 2623 

n 

12045 

0 

00004 

0 

33,2620 

44742  0 

70110 

0 

54110 

0 

06036  1 

I:  51575  1 

C: 

03571 

l 

I : 

45206 

1 

C: 

02337 

1 

33,2630 

C:  03533  1 

I : 

47075 

0 

C: 

26026 

1 

C: 

21516  0 

C:  27740  1 

C: 

03535 

l 

I : 

76435 

1 

C: 

03716 

1 

33,2640 

C:  27724  0 

C: 

03571 

1 

I : 

60505 

1 

C: 

01734  0 

C:  27543  0 

C: 

03577 

i 

I : 

76505 

0 

C : 

01734 

0 

33,2650 

C:  27551  0 

C: 

03535 

1 

I : 

51435 

1 

C: 

03577  1 

I:  63552  0 

I : 

77671 

l 

I : 

47075 

0 

C: 

26030 

0 

33,2660 

-C  : 215 16_  0 - - 

Ii 

Z27  76 

1 

00004 

0 

31534  1 

55741  0 

31536 

0 

5574? 

n 

31540 

I 

33,2670 

55743  1 

30154 

1 

55714 

0 

00006  1 

31571  0 

53517 

l 

00006 

l 

31573 

l 

33,2700 

5 3521  1 

-07)006 

1 

31575 

1 

53523  0 

00006  1 

31577 

o 

5352  5 

o 

noons 

1 

33,2710 

31601  1 

5352  7 

1 

00006 

1 

31603  0 

53531  0 

12300 

1 

00006 

1 

50000 

1 

33,2720 

32732  0 

52156 

1 

00006 

1 

41533  1 

20156  1 

06726 

1 

34755 

1 

24133 

0 

- -33,2-730 

14631  0 

C : 

00007 

0 

_ C: 

16100 

1 

c : 

00013-  0 

f:  3 42  00  1 

r : 

00000 

1 

C : 

00364 

n 

r : 

00010 

0 

33,2740 

C:  35600  1 

C: 

01414 

1 

36241 

0 

04616  1 

C:  66716  1 

12531 

0 

05504 

0 

C: 

0031  1 

1 

33-,  2-7  5Q 

0 5504  0 

— C-: 

002-5-3 

0 - 

1 2 53 1 

0 

34752  0 

04616  1 

C : 

66716 

] 

12573 

0 

05504 

0 

33,2760 

C:  00256  0 

12573 

0 

I : 

41456 

0 

C: 

03535  1 

I:  67340  1 

C : 

03376 

0 

C: 

03377 

I 

I : 

50076 

0 

33,2770 

C:  67017  0 

I : 

50375 

0 

C: 

06416 

1 

C: 

03535  1 

I:  41552  0 

I : 

44316 

0 

C: 

27061 

0 

I : 

56325 

0 

-4,3:0  2 -MOV...  25+4  06 3 


-RAGE  1692 


GAP; A-S5RP BLE  REVISION  069- -OF  AGO  PROGRAM  HJMI MARY  BY  -NASA  20  2111-2-011 

OCTAL  LISTING  FOR  PARAGRAPH  If  176,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 




33,3010 

C-: 
C : 

-0 

1 

C : 

0004  1 

1 

I • 

41205- 

_0_ 

--  C: 

26042 

_0 

1: 

65361  0 



03535 

_L_ 

I ; 

412-05 

0 

26044 

0 

C: 

00041 

I : 

76561 

1 

C: 

06416 

1 

I : 

4 5455 

1 

C: 

74260 

0 

I : 

41455 

0 

is 

60345 

0 

33, 3020 

C: 

00043 

0 

C: 

00050 

1 

1 : 

53663 

1 

C: 

26032 

1 

C: 

56623 

0 

I : 

45561 

1 

C: 

74216 

1 

I : 

77616 

0 

r : 

0032  5 

O - 

f ; 0 1 734 

0 

L: 

765-61 

£_5_ 

26022 

0 

C: 

03525 

0 

I ; 

41562 

0 

I : 

41455 

0 

33 , 3040 

C : 

01237 

0 

I : 

65255 

0 

C: 

01227 

1 

C: 

01250 

1 

I : 

74261 

1 

C: 

20207 

0 

I : 

44055 

1 

C: 

01221 

1 

33,30  50 

33,3060 

0 

qx 

37543 

1 

G: 

66  762 

1 

I : 

53255 

0 — 

I : 

77655 

1 

C: 

01227 

1 

C: 

3755  1 

1 

C: 

00037 

0 

C : 

0 1463 

1 

C: 

06315 

0 

C: 

00010 

0 

C: 

00000 

1 

I : 

41575 

0 

C: 

02323 

1 

I : 

65255 

0 

C: 

01726 

0 

33,3070 

C: 

01250 

1 

I : 

74271 

0 

C: 

27063 

1 

I : 

77655 

1 

C: 

01720 

0 

C: 

37571 

0 

C: 

67162 

0 

I: 

53255 

0 

33,3100 

C : 

01726 

0 

I : 

77626 

0 

C : 

74200 

0 

I : 

77776 

1 

03535 

1 

06036 

1 

I : 

77775 

1 

C; 

03561 

0 

33,3110 

C : 

26323 

1 

C: 

03571 

1 

C: 

25720 

0 

C: 

03577 

1 

C: 

01726 

0 

I ; 

77776 

1 

03535 

1 

06036 

1 

-3  ^ t i ?n 

I : 

74375 

0 

C: 

00325 

0 

- -C: 

26024 

0 

I : 

53206 

0-  . 

C: 

01237 

0 

I : 

53206 

0 

C : 

03525 

0 

I ; 

563  2 5 

0 

33,3130 

C : 

01250 

1 

C: 

27063 

1 

I : 

77761 

1 

I ; 

77655 

1 

C: 

03517 

1 

C : 

37571 

0 

C: 

67162 

0 

I : 

53255 

0 

4 ; 

X7A  55 

1 

Gi 

0 35  2 5 

0 - - 

C-X- 

0-3-577 

1 

I_X 

77646 

-0— - 

C: 

27470 

l 

C-: 

-03535- 

-1  - 

L: 

72441  0 

C : 

-035  7 7 

J- 

3313150 

C: 

27472 

6 

C: 

03571 

1 

I : 

72435 

0 

C: 

02331 

1 

C; 

1 7732 

1 

C: 

00045 

0 

I ; 

77625 

0 

C: 

02337 

1 

33, 3160 

C: 

37533 

0 

C: 

66514 

1 

I : 

77656 

1 

C: 

17535 

1 

C: 

00043 

0 

I : 

55261 

1 

C: 

20207 

0 

C: 

26036 

0 

70 

I X- 

74Z05 

0 

C : 

-270  6 3 

1 

C: 

03535 

1 

C: 

03561 

0 

I; 

7 761  6 

0 

C: 

00  30  3 

1 

C : 

00005 

1 

C: 

33212 

0 

33,3200 

C: 

00014 

1 

C: 

20000 

0 

C : 

00000 

1 

C: 

00310 

0 

C: 

00110 

1 

34742 

1 

70107 

0 

10000 

0 

7 1 n 

1 7 5-73_ 

-X)  - 

34750 

1 

70107 

0 

00006  1 

133?0 

1 

06036 

1 

I : 

54345 

1 

C : 

03653 

1 

33,3220 

C : 

20210 

0 

I : 

74205 

0 

C: 

26011 

0 

C: 

02313 

1 

I : 

77705 

0 

C: 

02146 

0 

I ; 

45241 

1 

C: 

03535 

1 

33, 3230 

C: 

03533 

1 

C: 

03663 

1 

I : 

77776 

1 

30107 

1 

74741 

0 

00006 

1 

13253 

1 

06036 

1 

33,3240 

I : 

45246 

0 

C: 

0250  1 

1 

I : 

45252 

0 

C: 

03533 

1 

I : 

77776 

1 

25666 

0 

06722 

0 

13543 

1 

33,3250 

13543 

1 

05516 

0 

C: 

00263 

0 

40107 

0 

74744 

0 

10000 

0 

13320 

1 

06036 

1 

33,  32-60 

I X 

4-0  5-45 

1 

G: 

0 3533 

a 

1 : 

-7  7776 

1 

00006— 

1 

31663 

0 

52155 

1 

07543 

1 

00006 

1 

33,3270 

13272 

1 

13320 

1 

54156 

1 

40001 

1 

61416 

0 

00006 

1 

63320 

0 

00006 

1 

33,3300 

71420- 

1 

0000  6- 

1 

1-14-1  6 

1 

54135 

1 

0731?  0 

06036 

1 

_L: 

7775  2 

1 

1 : 

_5.33  6 1 

0 

33,3310 

C : 

035  35 

1 

C: 

03571 

1 

C: 

37655 

0 

C: 

67162 

0 

I : 

77776 

1 

03535 

1 

34755 

1 

03517 

1 

33,3320 

03535 

1 

40107 

0 

74745 

1 

10000 

0 

1 3475 

0 

41647 

1 

54001 

1 

26001 

1 

- 33  +3330 

-600  Cl. 

_Q 

-6-0-0-Q  1 

0 - 

30  120 

1 

52047 

0 

34741 

1 

54003 

0 

3166  1 

1 

54766 

1 

33,3340 

31662 

1 

54770 

0 

31660 

0 

54772 

1 

04616 

1 

C: 

47521 

1 

30120 

1 

54166 

1 

-33,3350- 

-06CL36- 

1 

I : 

-45173 

0 

C: 

02235 

1 

C : 

47577 

1 

I : 

54325 

1 

C : 

03651 

n 

C : 

20215 

0 

T : 

41403 

0 

33, 3360 

C: 

51764 

0 

I : 

77776 

1 

44753 

0 

54163 

1 

31663 

0 

22007 

0 

52155 

1 

31664 

1 

33,3370 

22007 

0 

52160 

1 

31665 

0 

22007 

0 

52162 

0 

35016 

0 

54003 

0 

06036 

1 

G ap  : ASSEMBLE  RE-V-1S-IS-N  0 69— QF-  A G C PROGRAM  LUMINARY  BY  NASA 


-Laj-02  NOV,  25,1968- 


PAGF  1693- 


OCTAL  LISTING  FOR  PARAGRAPH  # 177,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE  1 

3ASIC 

INSTRUCT  IONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRET1VE 

OPERATOR  WORDS) 

OR  "C 

" (CONSTANTS) 

f T 

0 7 757 

-0 

I 

i 56776 

1 

Cz 

01235 

1 

-C : 

27203 

_Q_ 

Li 

76-5  61 

_L 

CJL 

0123  7-  0 . 

33,3410 

I : 

53255 

0 

C : 

03525 

0 

I : 

53352 

6 

C 

: 03732 

1 

I : 

5 1406 

1 

I : 

43202 

0 

C: 

27177 

0 

C: 

24025 

0 

33,3420 

I : 

44241 

0 

C: 

0000  1 

0 

I : 

51406 

l 

I 

: 77425 

1 

C: 

00025 

0 

25670 

1 

06722 

0 

13560 

0 

1 35A0 

o 

DA5  1 A 

0 

C.Z 

00262- 

l 

30107 

1 

74740 

1 

00006 

1 

1 3445 

0 

05516 

0 

33,3440 

C: 

00250 

0 

31647 

0 

67745 

0 

00006 

1 

1 347  5 

0 

40107 

0 

74744 

0 

10000 

0 

1 34 75 

o 

541  5-5 

_1 

41467 

1 

61  41  7 

1 

0 000.6- 

1 

63475 

1 

00006 

l 

5 1647 

0 

33,3460 

71421 

0 

00006 

1 

11417 

0 

54154 

0 

06036 

1 

I : 

74205 

0 

I : 

53372 

1 

C: 

03577 

1 

33,3470 

C : 

03655 

1 

I : 

77776 

1 

03535 

1 

36241 

0 

03517 

1 

03535 

1 

34747 

1 

701  07 

0 

33,3500 

10000 

0 

13512 

0 

41467 

1 

62741 

1 

00006 

1 

62573 

1 

05504 

0 

C: 

00257 

1 

33,3510 

34755 

1 

55647 

1 

37717 

1 

0507? 

1 

C: 

03601 

0 

C: 

66067 

0 

12573 

0 

541  30 

1 

^ T 

non  ha 

1 - 

3165-5 

0 

- 50 130 

0 

53571 

_L_ 

0 0006 

-1 

-31657 

1 

50130 

0 

53573 

0 

33, 3530 

00006 

1 

31661 

1 

50130 

0 

53575 

0 

00002 

0 

35007 

0 

56003 

1 

52002 

1 

A A44iv- 

1 

? 7-0-0  3 

1 

00  000- 

1 

4-1667 

0 

--0  0-006 

1 

1 3555 

0 

61  666 

_CL 

77744  0 

33,3550 

00006 

1 

13553 

0 

13555 

0 

05504 

0 

C: 

00263 

0 

31666 

0 

55667 

0 

13320 

1 

33,3560 

41671 

1 

00006 

1 

13572 

0 

61670 

1 

7 7744 

0 

00006 

1 

13570 

1 

13572 

0 

3 3,35  70 

-0  5504 

-0 

C: 

0-0262 

_1_ 

31670 

_L 

_ 55671 

1 

1 1647 

l 

13475 

0 

05504 

0 

C : 

00250 

0 

33,3600 

13475 

0 

34361 

1 

05203 

0 

c 

: 03750 

0 

C: 

64064 

1 

11647 

1 

13610 

1 

34752 

0 

33,3610 

6-0-0  00 

1 

0 46-14- 

J 

C_: 

33107 

1 

04616 

1 

C: 

1 7667 

0 

13650 

0 

11673 

0 

13651 

1 

33,3620 

00004 

0 

00006 

1 

31102 

0 

53651 

0 

34741 

1 

54003 

0 

00006 

1 

31657 

1 

33,3630 

5 3 744 

0 

00006 

1 

31661 

1 

53741 

0 

31662 

1 

55742 

0 

35016 

0 

54003 

0 

33, 3640 

40107 

0 

74745 

1 

26107 

0 

11647 

1 

1 3646 

1 

34752 

0 

55647 

1 

15155 

1 

33,3650 

34752 

0 

55673 

0 

13643 

1 

04616 

1 

C: 

53471 

0 

04616 

1 

C: 

17667 

0 

1 3666 

0 

3-3 1- 3-6-60 

3-7711 

1 

-05 1 4 6 

_1 

03721 

J0 

05516 

0 

C: 

00252 

1 

05155 

0 

33703 

0 

046  16 

1 

33,3670 

C: 

21451 

1 

16001 

1 

13675 

1 

15155 

1 

05155 

0 

34745 

0 

00006 

1 

02033 

0 

33-T3^7Q0 

oao  06 

1 

1 366  0 

0 

13  666 

o 

c 

: 00573 

o 

C 4645 

1 

55A54 

0 

3475?  0 

55672  l 

33 , 37 10 

55673 

0 

34755 

1 

55666 

1 

55670 

0 

55667 

0 

55671 

l 

0372? 

0 

31654 

1 

33,3720 

04640 

1 

34752 

0 

00006 

1 

50000 

1 

31413 

0 

54772 

1 

22766 

0 

34755 

1 

3-3^3730 

54770 

0 

0000  A 

1 

7 3 64  A 

1 

06  036 

1 

I : 

45175 

0 

C : 

06420 

1 

C : 

475  5 5 

1 

C : 

26243 

0 

33 , 3740 

C : 

06422 

0 

I : 

77624 

1 

C: 

47575 

0 

c 

: 02251 

0 

I : 

7 6435 

1 

C: 

02243 

0 

C: 

26235 

1 

C: 

26003 

0 

3-3-.3Z-5-0-  - - 

U- 

7 76  24 

1 

C: 

475  7-5 

0 

C : 

02313 

1 

I 

: 77776 

1 

01646 

1 

C : 

03755 

0 

C : 

03  756 

0 

CKSM 

64155 

1 

33,3760 

3 

a 

a 

a 

a 

a 

a 

a 

33,3770 

3 

a 

3 

a 

a 

3 

a 

a 

QAP  : A-5-SE  mLE  REV  IS  ION -0fr9-Bf-  AG-C  PROG-RAM  -LUMINARY  BY  MASA  2-0-21  1-12-011 19:02  MOV.-  25, 1 968 &AG£_LA9A 


OCTAL  LISTING  FOR  PARAGRAPH 

# 200  , 

WITH  PARITY  BIT 

IN  BINARY 

AT 

THE  RIGHT  OF 

EACH  WORD,  "3"  DENOTES  UNUSED 

FIXED  MFMORY 

ALL  VALID 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

(INTERPRETIVE 

OPERATOR  WORDS)  OR 

"C 

" (CONSTANTS) 

f • 

x 

G-; 

03  4 AO- 

1 

C-i 

34041 

- 0 - 

_ -Cx- 

-2  7057 

0 

I : 

67J.  7-5-  Q— 

r. : 

00001  0 

C : 

03376 

0 

34, 2010 

C : 03640  0 

I : 

57456 

1 

C: 

27654 

0 

C: 

00007 

0 

C: 

03646 

0 

I : 

53435  0 

C: 

03640  0 

I : 

66001 

0 

34,2020 

C:  00001  0 

C : 

03375 

0 

I : 

47206 

0 

C: 

03654 

0 

I: 

63372 

1 

I : 

63315  0 

C : 

03654  0 

C: 

03432 

1 

34  p 9n 30 

T 1 X6-5XLS  0 

CI- 

0000  1- 

-0 

r.z 

03  654 

0 

1:- 

77646 

-.0- 

Cl 

27-66-2- 

-0- 

Cl_ 

03640  0 

I : 

53315  0 

C : 

03646 

0 

34, 2040 

C:  0 36  54  0 

I : 

77624 

1 

C: 

46277 

1 

I : 

77624 

1 

C: 

46407 

0 

I : 

77624  1 

C: 

45636  0 

C: 

16325 

1 

34t.zn  sn 

C:  00005  1 

I : 

77624 

1 

X: 

46407 

0 

I: 

77624 

-1- 

C: 

4 56  3.6 

.0 

C : 

36323  0 

C: 

03630  1 

C: 

00000 

1 

34,2060 

C:  00020  0 

C: 

0000  3 

1 

C: 

34661 

1 

C : 

00606 

1 

C : 

04467 

0 

C: 

00601  0 

C: 

33216  1 

C : 

10000 

0 

34,2070 

C:  00000  1 

C: 

00000 

1 

C: 

00001 

0 

C: 

00004 

0 

C: 

31566 

0 

C: 

00000  1 

C: 

01177  1 

C: 

00002 

0 

34,2100 

C:  27311  1 

C: 

77754 

1 

C: 

57611 

0 

C : 

00000 

1 

C: 

12326 

0 

C: 

00116  1 

C: 

00730  0 

C : 

00000 

I 

34,2110 

C:  06433  0 

C: 

00003 

1 

C: 

25140 

0 

I : 

43014 

0 

C: 

0 3?  60 

0 

C: 

03061  0 

I: 

43014  0 

C: 

03262 

1 

34, 212-0  _ 

_ C:  Q-3Q-63  1 

I : 

111  A3 

1 

C : 

32364 

1 

. C: 

03604 

0 

C: 

0 3612 

l 

I : 

77201  1 

C : 

00001  0 

C: 

02307 

1 

34,21 30 

I : 41446  1 

I : 

70501 

1 

C: 

00050 

1 

I : 

51515 

1 

C: 

03550 

1 

I : 

55301  0 

C : 

00047  1 

I : 

53664 

0 

34,21  40 

G-t  00046  0 

Cx 

5J7 17  5 

-0 

I_l_ 

41215 

1 

Ci 

30  070 

-0 

I : 

65301 

0 

XL 

XQ047-  1 

C : 

02325  1 

I : 

56342 

1 

34,2150 

I:  75457  0 

C: 

20172 

1 

I : 

53515 

0 

C: 

02307 

1 

I: 

47315 

0 

C: 

02265  1 

I : 

77656  1 

I : 

72441 

0 

34,2160 

C:  03470  1 

I : 

4542  1 

1 

C: 

60205 

0 

C: 

30062 

0 

C: 

03610 

0 

I : 

43345  1 

C: 

03604  0 

C: 

30072 

1 

34, 2170 

Cl  03604  0 

I : 

7702-5 

-0 

C:_ 

.30060 

1 

C : 

00006 

l 

I : 

77644 

l 

C : 

70776  0 

T : 

77601  0 

C : 

00001 

0 

34,2200 

I:  51545  1 

C: 

03572 

1 

I : 

50025 

0 

C : 

30064 

0 

C: 

70224 

1 

I : 

43174  1 

C: 

00007  0 

C: 

03300 

1 

34,-22  10 

C : 7 0 7 76  0 

l : 

43  014 

-0- 

_C-I_ 

03342 

1 

C_: 

70216 

0 

C: 

03303 

1 

C : 

70776  0 

T : 

71214  0 

C: 

03060 

1 

34,2220 

C-*  30066  1 

I : 

77765 

0 

C: 

03572 

1 

C: 

03572 

1 

I : 

41575 

0 

C: 

02307  1 

I : 

63256  0 

C : 

02265 

1 

34,2230 

I : 53435  0 

I : 

76561 

1 

C: 

0357? 

1 

C: 

02273 

0 

I : 

40055 

0 

C: 

03470  1 

C: 

70237  0 

C: 

37564 

1 

34,2240 

C:  46377  0 

C : 

26744 

1 

I : 

77614 

1 

C: 

03466 

0 

C: 

26655 

0 

C: 

32360  0 

C : 

36730  0 

C: 

24745 

1 

34,2250 

I : 72142  0 

C: 

03375 

0 

C: 

37602 

1 

C: 

46307 

1 

I : 

77624 

1 

C: 

46407  0 

C: 

17600  1 

C: 

03617 

1 

34^2260 

- I : 52054  l 

_Cj 

70263 

Ci 

70372 

-0 

I : 

77745 

1 

C : 

02752 

0 

I : 

50025  0 

C : 

30110  1 

r. : 

70372 

0 

34,2270 

I : 4 5145  0 

C: 

00041 

1 

C: 

46407 

0 

I : 

60201 

1 

C: 

00003 

1 

C: 

00047  1 

I : 

50315  0 

C: 

02307 

1 

34, 2300 

C:  0 3-5-64  0 

I : 

- 5A?AA__L 

Cl 

00003 

1 

I : 

45Z5  7 

0 

C.z  2 0? 01 

0 

C : 

30100  0 

T : 

7L240  1 

C : 

7037?  0 

34,2310 

C:  02740  0 

I : 

45312 

0 

C: 

30070 

0 

C-. 

14017 

1 

C: 

02323 

1 

I : 

56342  1 

I : 

41325  0 

C: 

02740 

0 

34,2320 

C:  00041  1 

I : 

77624 

1 

C: 

46407 

0 

I : 

72412 

0 

I : 

41366 

1 

I : 

52414  1 

C: 

04343  1 

C: 

70330 

0 

34,2330  - 

I:  503 15-0  _ 

C: 

- 023  0-7 

1 

X_i 

03  564 

0 

C: 

03615 

0 

I : 

7 7646 

0 

I : 

41301  0 

0 : 

00050  l 

I : 

53660 

1 

34, 2340 

C:  00047  1 

C : 

20204 

0 

C: 

14015 

0 

C: 

32364 

1 

C: 

00021 

1 

I : 

53575  0 

C : 

00015  0 

C: 

26730 

1 

34,2  3 50 

C:  02307  1 

I : 

-35315- 

1 

-C:  . 

.03564 

0 

- C: 

0 3615 

0_ 

I : 

45076 

1 

C : 

46377  0 

C: 

26744  1 

I : 

77614 

1 

34,2360 

C:  03466  0 

C: 

36655 

1 

C: 

24745 

1 

I : 

51125 

0 

C: 

03615 

0 

C: 

70376  1 

I : 

45345  1 

C: 

03602 

0 

34,2370 

I : 52006  0 

C: 

70376 

1 

I : 

71201 

1 

C: 

00001 

0 

C: 

32364 

1 

I : 

77606  1 

l : 

41345  0 

C: 

03465 

0 

-G-Af^ 


ASSEMBLE  REVISION  069  OF  AGO  PROGRAM  LUMINARY  BY  NASA  2Q 21 1-1-2---014, 


-1-91  02-  MOV.  2-5 ,1968. 


PAGE  16-95. 


OCTAL  LISTING  FOR  PARAGRAPH  # 201,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "0"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  ViORCS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


] • o 

C : 

?0?  1 7 1 

- I V 

7764  5 

0 

C: 

0 36  3? 

0 

C: 

03374 

J 

L: 

7707  1 

J 

C_: 

03634 

0 

34,2410 

C: 

00005 

1 

I : 40240  0 

C: 

70776  0 

C: 

00001 

0 

I: 

63375 

0 

C: 

03564 

0 

C: 

02307 

1 

I : 

77624 

1 

34,2420 

C: 

71062 

0 

C:  26315  1 

C: 

00007  0 

C: 

27512 

1 

C: 

03504 

0 

I : 

63201 

1 

C: 

0000  1 

0 

C: 

03476 

1 

l : 

77A 

l 

r : 7i ha?  n 

r : 

77570  0 

C_l 

000071 

0 

C: 

37526 

1 

C: 

71133 

0 

I : 

40375 

1 

C : 

02315 

1 

34, 2440 

C: 

00001 

0 

I : 45115  0 

C: 

03542  1 

C: 

46277 

1 

I: 

77624 

1 

C: 

46407 

0 

C: 

27602 

0 

C: 

03542 

1 

l 

r i onxiai  0 

r : 

Q7J151- 

I : 

65375 

0 

C: 

03374 

J 

r, : 

03634 

n 

I : 

41525 

0 

C: 

33671 

1 

34,2460 

I : 

77624 

1 

C:  73422  1 

I : 

77624  1 

C: 

46363 

0 

I : 

77745 

1 

C: 

02263 

l 

I : 

73401 

0 

C : 

00007 

0 

34,2470 

I : 

53515 

0 

C:  03534  0 

C: 

00001  0 

I : 

47315 

0 

C: 

02265 

1 

I : 

77656 

l 

I : 

71525 

0 

C: 

02263 

1 

34,2500 
34,2510 
3 4 ,-2  529- 

I : 
I : 
r : 

45561  l 
72316  0 
03550  1 

C: 
C: 
C-: 

77754  1 
00155  0 
03550  1 

I : 
I : 
I : 

74345  0 
50315  0 
76371  0 

I: 
C: 
1 1 

76455 

03534 

7124.4 

1 

0 

0 

C: 
C: 
C : 

00023 

03534 

70542 

0 

0 

0 

I : 
I : 
C : 

50206 

57551 

03604 

o •— < O 

C: 
C: 
I : 

03534 

00155 

77025 

0 

0 

0 

I : 
I : 
C : 

41552 

50315 

30072 

0 

0 

1 

34,2530 

C: 

00001 

0 

I : 

77654  0 

C: 

72036  1 

I : 

70545 

1 

C: 

03610 

0 

C: 

03610 

0 

I : 

77621 

1 

C: 

03574 

1 

'\A-r.P  540 

04- 

30  57? 

o 

04 

-734-6-5—1 

I* 

41566  1 

1 4 

462  76 

0 

C: 

_aoaoj 

Q 

Cjl_ 

1 401  3 

0 

T : 

4542  5 

0 

r : 

7776? 

1 

34, 2550 

I : 

77646 

0 

C: 

14017  1 

C: 

00013  0 

I : 

45246 

0 

C: 

0 0017 

i 

I : 

71240 

1 

C: 

70561 

1 

C: 

00015 

0 

34,2560 

C: 

000  13 

0 

I : 

77745  1 

C: 

00013  0 

I : 

76561 

1 

I : 

53455 

0 

C: 

03534 

0 

I : 

53515 

0 

C: 

03550 

1 

34 » 2 5-70  - 

I_4_ 

03-5-15 

-0 

C: 

-035-5-6- -L.  . 

. I: 

-63235-0  . 

..  C: 

00007 

0 

C : 

00007 

0 

I : 

50235 

0 

C: 

00001 

0 

I : 

77626 

0 

34,2600 

C: 

53762 

1 

I : 

72441  0 

I : 

75326  1 

C: 

00015 

0 

I : 

41542 

1 

I : 

71214 

0 

C : 

0330  1 

0 

C: 

70644 

0 

C-4- 

000-04 

o 

I • 

6 522 5 1 

C: 

-0  3606-  1 

_ C: 

0357? 

3 

6-Q225 

1 

C : 

03574 

1 

C: 

00047 

1 

I : 

65265 

0 

34,2620 

C: 

00003 

1 

C: 

03572  1 

C: 

03574  1 

I : 

43014 

0 

C: 

03342 

1 

C: 

70656 

0 

C : 

03343 

0 

C: 

70656 

0 

34,2630 

I : 

41345 

0 

C: 

00003  1 

C: 

03606  1 

I : 

71244 

0 

C: 

70663 

0 

C: 

30062 

0 

I : 

77765 

0 

C: 

03610 

0 

34,2640 

C : 

03610 

0 

I : 

43014  0 

C: 

03062  0 

C: 

03263 

0 

I : 

77745 

1 

C: 

00001 

0 

C : 

17606 

1 

C : 

03572 

1 

34,2650 

C : 

035  74 

1 

I : 

43025  1 

C: 

03610  0 

C: 

03261 

1 

C: 

37572 

0 

C: 

70165 

1 

I : 

43014 

0 

C: 

03302 

0 

34t  266Q 

C-t- 

-73  7 02 

0 

04- 

-03303-  1 

C : 

7 0 70?  n 

I : 

75345 

1 

C : 

-3010-2- 

1 

C : 

00005 

1 

I : 

77765 

0 

C: 

03606 

1 

34,2670 

C: 

03610 

0 

I : 

43276  0 

C: 

03572  1 

C : 

17572 

1 

C: 

00001 

0 

I : 

43014 

0 

C: 

03063 

1 

C: 

03062 

0 

-34-,  ? 7 OO 

— G-: 

37336 

-0 

Sq  : 

701 76  0 

4-: 

60345  0 

C : 

00-005 

1 

Ci 

-0  00  5 0 

1 

I : 

n 

r ; 

noon  l 

o 

c • 

QQQ4Z 

1 

34,  2710 

I : 

77657 

0 

C: 

20601  l 

C : 

17610  0 

C: 

00001 

0 

C: 

03606 

1 

I : 

51  545 

1 

C: 

03610 

0 

I : 

45206 

1 

34,2720 

C: 

30076 

0 

I : 

71240  1 

C: 

70737  0 

I : 

50025 

0 

C: 

30106 

0 

C: 

70732 

0 

I : 

75345 

1 

C: 

30106 

0 

34-,.  27  30 

C : 

-03.610 

-0 

C_: 

0361 0 0 

L: 

-45-345  1 

C: 

03572 

1 

C: 

03610 

0 

C : 

37572 

0 

C : 

70  16  5 

1 

I : 

77145 

1 

34,2740 

C: 

03600 

1 

C : 

00002  0 

I : 

77750  0 

C: 

03375 

0 

I : 

50023 

0 

C: 

30072 

1 

C: 

70776 

0 

I : 

71374 

1 

34-,  2750 

-C: 

-00003 

1 

C.: 

0.369-2 Q— . 

- I : 

-5.0073 .0 

C: 

3007-2 

1 

C: 

70776 

0 

I : 

45  345 

1 

C : 

033  74 

1 

C : 

0363? 

0 

34,2760 

C: 

02257 

0 

I : 

45374  0 

C: 

00004  0 

C: 

30112 

0 

I : 

77040 

0 

C : 

70776 

0 

C: 

00005 

1 

I : 

453  45 

1 

34,2770 

C: 

03634 

0 

C: 

03374  l 

C: 

02261  0 

I : 

51025 

1 

C: 

30112 

0 

C: 

72116 

1 

I : 

43014 

0 

C: 

03302 

0 

19:02  NOV.  25,196a 


CAP!  ASSEMBLE  -P-f-V TC  TnM  069  nF  AGO  P-ROGRAM  LUMINARY  BY-  NASA  2071 112-011 

OCTAL  LISTING  FOR  PARAGRAPH  # 202  , WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3" 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS) 


PAGE  Li) 9 6 

DENOTES  UNUSED  FIXED  MEMORY 
OR  "C"  (CONSTANTS) 


C : 

77040  0 

1 4 

713^4  0 

C- 

0 36 1 1 

] 

r t 

32-364- 

1 

_ I : 

43  01  4 

0 

f : 

0326-0- 

-0 

34,3010 

G-s- 

C : 

03061 

0 

I : 43014  0 

C: 

03262  1 

C: 

03263  6 

C: 

37604 

1 

C: 

70125 

0 

I : 

71220 

1 

C: 

03466 

0 

34, 3020 

C: 

03440 

1 

C:  34041  0 

C: 

46341  0 

I : 

77214  0 

C: 

01067 

1 

C: 

03556 

1 

C: 

03526 

0 

C: 

27504 

0 

34  ,-3-030- 

Ci 

0 35  50  -1 — 

C:  03520  0 — 

r.:  03476  1 

I: 

4723  6 0 

Ci 

03504 

0 

is 

77656 

1 

C : 

26265 

i 

C: 

03534 

0 

34, 3040 

C : 

37640 
3 7470 

1 

o 

C: 

C-i- 

71052 

-03-466 

0 

Q_ 

C: 

_ -L-: 

02315 

41406 

1 

0 

C: 

Ii 

26307 
74  241 

1 

0 

C: 

C: 

03542 

02265 

1 

1 

C:  37646 
C:  02265 

1 

1 

C: 
I : 

71052 

5135? 

0 

1 

C: 
I : 

03512  1 
63256  0 

34,3060 

I : 

74246 

1 

I : 

43572 

0 

I : 

65325 

0 

C: 

03632 

0 

C: 

03374 

1 

I:  41525 

0 

C: 

33671 

1 

l : 

77650  1 

34,3070 

C: 

73422 

1 

I : 

65325 

0 

C: 

03374 

1 

C: 

03634 

0 

I : 

41525 

0 

C:  32364 

1 

I : 

77650 

1 

C: 

73422  1 

34,3100 

I : 

76020 

1 

C: 

03466 

0 

C: 

01521 

0 

I : 

77624 

1 

C: 

72334 

0 

I : 77624 

l 

C: 

71120 

1 

I : 

61375  1 

34,3110 

C : 

03432 

1 

C: 

0000  1 

0 

I : 

77772 

0 

C: 

03654 

0 

I: 

51406 

1 

C:  27662 

0 

I : 

77650 

1 

C: 

03466  0 

77201 

1 

C : 

00-0-0  7 

0 

Ci- 

0-2265 

-L 

I : 

63276 

1 - 

-Xi 

02307 

1 

Li  57456 

1 

I : 

47206 

0 

C: 

02265  1 

34,3130 

I : 

77772 

0 

C: 

00001 

0 

I : 

77616 

0 

I : 

77220 

1 

C: 

03466 

0 

C:  02315 

1 

I : 

53406 

0 

C : 

27542  1 

C - 

0 3 5.20 

o 

I • 

502  56 

0 

C: 

-0-3542 

1 

- Xi- 

72406- 

0 

-CL 

16732- 

-0 

Ji  A5316 

-0 

Ci 

-06414- 

-Q 

-Ii 

4630?  1 

34,3150 

I : 

72566 

1 

I : 

57515 

1 

I : 

77635 

1 

C: 

03520 

0 

I: 

65241 

0 

C:  02265 

1 

I : 

45565 

0 

C: 

51047  0 

34,3160 

C : 

03520 

0 

I : 

45115 

0 

C: 

03526 

0 

C: 

46377 

0 

C: 

26744 

1 

I:  77614 

1 

C: 

03666 

1 

C: 

36655  1 

34  t 7170 

C : 

J>4745- 

1 

1: 

53754 

1 

. Cl 

03376 

0 

C: 

57576 

1 

C: 

00023 

0 

I:  76441 

1 

C: 

03542 

l 

I : 

51515  1 

34,3200 

I : 

63257 

1 

C: 

57576 

1 

C: 

02315 

1 

I : 

65246 

1 

I : 

77625 

0 

C:  00003 

1 

C: 

17576 

0 

C: 

02742  1 

3 4_,  3-7J  0 

[ ; 

65301 

JD 

. r. : 

0Q047 

-1 

C: 

00041 

J 

Ii 

77624 

1 

C: 

46407 

0 

I:  56362 

0 

T : 

41457 

1 

C : 

20174  1 

34, 3220 

I : 

65225 

i 

C: 

03576 

0 

I : 

56302 

0 

C: 

00005 

1 

I : 

75406 

1 

I:  41275 

1 

C: 

00007 

0 

C: 

00001  0 

34,3230 

I : 

65272 

0 

C: 

00003 

1 

I : 

65301 

0 

C: 

00047 

1 

C: 

02325 

1 

I:  56342 

1 

I : 

65257 

1 

C: 

20174  1 

34,3240 

C: 

00005 

1 

I : 

65301 

0 

C: 

00050 

1 

C: 

02325 

1 

I: 

56342 

1 

I:  44257 

1 

C: 

57604 

1 

I:  63525 

0 

34,3250 

C: 

ooo  n 

1 

I : 

7542  1 

1 

I : 

47315 

0 

C: 

02265 

1 

C: 

03542 

1 

I*.  74256 

0 

C: 

0001  3 

0 

I:  74315 

0 

3 4 r h 0 

r_  ; 

1 

C; 

- OOO  l 1 

1 

_ L : 

76455 

1 

I: 

776-26 

C 

C: 

7 4735 

0 

I:  77651 

0 

C : 

035  l 2 

l 

C:  36301 

0 

34,3270 

C : 

03466 

0 

046  16 

l 

C: 

72313 

0 

03276 

1 

0 4616 

1 

C:  72320 

0 

046  16 

1 

C:  72325 

0 

}.4t  ^no  - 

3 30 

1 

0 36-]  7 

1 

33631 

o 

04616 

-1 

_ 0: 

3O5JL0 

1 

1 6001 

X 

133X3 

1 

1 3302 

1 

34, 3310 

36244 

0 

05464 

1 

15  155 

1 

34756 

1 

55144 

0 

34753 

1 

55145 

1 

33632 

0 

34,3320 

04616 

1 

C: 

20510 

1 

16001 

1 

13330 

0 

13317 

0 

34751 

0 

05464 

1 

15155 

1 

34 ,3-3  3-0 

-06-036- 

1 

L: 

7053-5 

0 

C : 

01146 

Q- 

I : 

71230 

J) 

C: 

71342 

1 

C:  03627 

1 

C : 

02307 

l 

I:  77614 

1 

34,3340 

C : 

01230 

1 

C: 

71373 

0 

I : 

43014 

0 

C: 

01070 

1 

C: 

00670 

0 

I:  77624 

1 

C: 

71552 

0 

I:  43015 

1 

34, 3350  

-Ci- 

03440 

1 

— C : 

0Q470 

_1 

C : 

03627 

1 

I : 

77776 

1 

33633 

1 

04616 

1 

C: 

20510 

l 

16001 

1 

34,3360 

1 3365 

0 

13354 

1 

36241 

0 

05464 

1 

15155 

1 

00006 

1 

31627 

0 

53046 

0 

34,3370 

33634 

0 

03617 

1 

06036 

1 

I : 

45014 

0 

C: 

0 42  66 

1 

C:  20041 

0 

I : 

77624 

1 

C:  71552 

0 

J1AGE  .16.9.7 


&Ap  ; A S-SEM-8LC— REV I S IQ-N-  -069  -OF-  4GG  PROGRA-M  LUMINARY - BY  NASA  202-11-12-011 1-9x02  NOV— 25.-Laft.8- 

OCTaL  LISTING  FOR  PARAGRAPH  # 203,  WITH  PARITY  8IT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  ”C"  (CONSTANTS) 


o 

r • 71  422 

o 

Ci 

0 3-6  2i- 

1 

C: 

34041  0 

.X 

; 716.03 

I 

LX 

53575 

_Q_ 

C_: 

xiao  o.i 

0 . 

34,3410 

I:  47315 

0 

C: 

00007 

0 

I:  60246 

X 

C: 

00047 

1 

I : 

56325  0 

C 

: 02307 

1 

I : 

77657 

0 

C: 

20172 

1 

34, 3420 

C:  36311 

1 

C: 

71426 

1 

I:  43345 

1 

C: 

02307 

1 

C: 

00037  0 

C 

: 03627 

1 

I : 

45345 

1 

CS 

03627 

1 

C • -02^  1 1 

0- 

r • 

023  1 3 

1 

Qj 3 4 0-4J_ 

0 - 

. C : 

_J71 603. 

1 __ 

JL: 

77745  1 _ 

c_ 

: 03440 

1 

C: 

03606 

1 

I : 

77331 

0 

34, 3440 

C:  03467 

1 

C: 

71445 

1 

C:  00001 

0 

I : 

77624 

1 

C: 

73263  1 

I 

: 43014 

0 

C: 

04346 

1 

C: 

71456 

0 

r • 013  11 

o 

Cjl 

714-54 

1 

1:  7 7.614 

1 

CX 

00470 

1 

I: 

77776  1 

03503 

1 

I : 

51575 

1 

C: 

03366 

1 

34,3460 

C:  27574 

1 

C: 

03504 

0 

I:  51451 

0 

C: 

03564 

0 

C: 

26354  1 

c 

: 03534 

0 

I : 

45115 

0 

C: 

02343 

1 

34,3470 

C:  46277 

1 

I : 

77624 

1 

C:  46407 

0 

C: 

03604 

0 

I: 

43014  0 

c 

: 01311 

0 

C: 

71500 

1 

C: 

00470 

1 

34,3500 

I : 

77776 

1 

33635 

1 

03617 

1 

33636 

l 

03617 

1 

06036 

1 

I : 

7721  4 

0 

C: 

01267 

0 

34,3510 

C: 

03366 

1 

C: 

37654 

1 

C: 

73542 

0 

I : 

52014 

0 

c 

: 04306 

0 

c 

: 71537 

0 

C: 

71376 

0 

04616 

1 

^4-,  ^ s ? n 

_ C-i 

72313 

0 - 

00006 

1 

31401 

0 

03530 

l 

04616 

1 

c 

: 72320 

0 

00006 

1 

31403 

1 

34,3530 

53574 

1 

04616 

1 

C: 

72325 

0 

06036 

l 

I 

: 45014 

0 

c 

: 04066 

0 

C: 

20041 

0 

I : 

43234 

0 

21  4 6? 

1 

C : 

C3574 

1 

c • 

_0  344O 

1 

Cl 

34041 

0 

c 

I 46341 

0 

I : 77624  1 

C_: 

_J3.23  6 

J 

_U 

521  45 

0 

34,3550 

C : 

02313 

1 

C: 

71432 

1 

I : 

71220 

1 

cl 

03463 

0 

c 

: 03440 

1 

C 

: 34041 

0 

C: 

4634  1 

0 

I : 

53775 

1 

34, 3560 

C: 

03550 

1 

C: 

57176 

0 

C: 

16655 

0 

C: 

03617 

1 

I 

: 71406 

0 

C 

: 16732 

0 

I : 

43156 

1 

C: 

03466 

0 

. ^4,3  5-311 

c • 

2 6 730 

1 

c* 

035.56 

1 

1 : 

776.57 

Q 

C: 

57176 

0 

c 

: 36744 

0 

C 

: 24745 

1 

I : 

77624 

1 

C : 

73236 

1 

34,3600 

I : 

52145 

0 

C: 

000  3 7 

0 

C: 

03463 

0 

I : 

43020 

1 

c 

: 03463 

0 

c 

: 01352 

1 

C: 

716  13 

0 

I : 

77624 

1 

■^4-,  1 0 

C_i- 

27043 

0 

T . 

7755-0 

1 

C : 

03  463 

0 

I : 

77624 

1 

c 

: 27057 

0 

I 

: 77650 

1 

C: 

03463 

0 

00006 

1 

34, 3620 

23463 

1 

55613 

0 

31613 

1 

04616 

1 

c 

: 20351 

1 

16001 

1 

01463 

1 

13622 

0 

34,3630 

C: 

01441 

1 

C: 

01467 

0 

C: 

01006 

0 

C: 

01471 

1 

c 

: 01442 

1 

c 

: 01472 

1 

C: 

01521 

0 

05353 

1 

34,3640 

C: 

00035 

1 

0 5353 

1 

C: 

05023 

0 

C: 

21000 

1 

0 6036 

1 

I 

: 77614 

1 

C: 

04705 

l 

C: 

60313 

0 

34,3650 

I : 

45345 

1 

C: 

035  12 

1 

C: 

21054 

0 

I : 

43040 

1 

c 

: 60767 

1 

c 

: 04267 

0 

I : 

67214 

1 

C: 

02676 

1 

34,  3-660 

1 7 224 

_Q 

y . 

774  71 

0 

C : 

0 35  L2 

_1 

5 2L55 

1 

53637 

n 

53635 

1 

53633 

1 

53567 

0 

34,3670 

05353 

i 

C: 

040  2 3 

1 

06036 

1 

I : 

43345 

1 

c 

: 03567 

0 

c 

: 03633 

1 

I : 

4321  5 

0 

C: 

03635 

1 

34, 3700 

G: 

03637 

0 

I * 

412  05 

o 

C: 

0 2 261 

o 

r : 

21041 

1 

I 

i_  65252 

1_ 

c 

: 07765 

1 

1: 

43342 

0 

27625 

0 

34,3710 

C: 

21036 

i 

C: 

16265 

1 

C: 

02261 

0 

I : 

56342 

1 

c 

: 02265 

l 

c 

: 36257 

1 

C: 

60313 

0 

04616 

1 

34,3720 

C : 

53073 

0 

046  16 

1 

C: 

17667 

0 

13746 

0 

1 1672 

l 

13756 

1 

00004 

0 

00006 

1 

34,3730 

3 1 1 02  0 

5 3653 

J 

00006 

1 

31557 

JL 

5 3 753 

n 

00006 

1 

31157 

0 

53456 

0 

34, 3740 

31155 

1 

55457 

1 

40107 

0 

74750 

0 

261  07 

0 

05155 

0 

30101 

1 

74742 

0 

34^3750 

-Q-Q-Q-06 

1 

1375  5 

JL 

05516 

0 

C : 

00120 

1 

05155  0 

34752 

n 

5567? 

1 

05155 

0 

34,3760 

C : 

03760 

0 

C: 

03761 

1 

CKSM 

67165 

1 

3 

3 

3 

3 

3 

34,3770 

3 

3 

3 

3 

3 

3 

3 

3 

GAp  : ASSEMBLE  REVISION  069  -OF  AOC-  -P-ROGR  AW— L UWI-NAft¥— BW— NA  SA  202L1-1-2-011 1-94-02  NOV.  -2  5,-1-963 RAGE  1698 

OCTAL  LISTING  FOR  PARAGRAPH  U 204,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  IINTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


1 

05  504 

o 

C-1 

00031 

0 _ - 

32025- 

- 1 

03651  0. 

33666 

_J 

0365-1  0 

35,2010 

05516 

0 

C: 

00027 

1 

06036 

1 

I : 

77624 

1 

C: 

70000 

0 

I : 

77414 

0 

C: 

00470 

1 

32026  1 

35,2020 

03651 

0 

06036 

1 

I : 

77614 

1 

C: 

01027 

0 

C: 

72504 

0 

C: 

01441 

1 

C: 

01452 

0 

02313  1 

n?^2  n 

1 

00006 

1 

32364  1 

53617 

1 

02053 

0 - 

- T: 

77734 

1 

c 

: 03611  1 

D J>~ , 6U  JU 

35 , 2040 

I : 

77740 

1 

C: 

0361  1 

1 

I : 

77533 

1 

C: 

32367 

1 

30154 

1 

05735 

0 

35006 

1 

04616  1 

x 

06.00  l 

o 

02046 

1 

02325- 

1 

32363 

0 

55465 

0 

32354 

1 

03651  0 

35,2060 

33663 

1 

04616 

1 

C: 

20351 

1 

06001 

0 

02066 

0 

02060 

0 

33662 

0 

03651  0 

35,2070 

06036 

1 

I : 

77745 

1 

C: 

03632 

0 

C: 

37440 

0 

C: 

20041 

0 

I : 

77624 

1 

C: 

71016 

0 

I 

: 77201  1 

35,2100 

C : 

00001 

0 

C : 

03504 

0 

I : 

65315 

0 

C: 

03476 

1 

C: 

03632 

0 

I : 

65325 

0 

C: 

03634 

0 

c 

: 33671  1 

35,2110 

I : 

45006 

0 

C: 

73422 

1 

I : 

77624 

1 

C: 

46373 

1 

I: 

77624 

1 

C: 

70113 

0 

I : 

43014 

0 

c 

: 01311  0 

p\ pa 

C : 

7 21-22 

o 

c : 

00470 

1 _ 

_ I : 

77745 

1 

C: 

02257 

Q 

C : 

02257 

0 

I : 

51025 

1 

C : 

32366 

0 

c 

: 72124  0 

35,2130 

I : 

77745 

1 

C: 

02261 

0 

C: 

02261 

0 

I : 

51025 

1 

C: 

32366 

0 

C: 

72132 

1 

I : 

77776 

1 

32356  0 

^ 5 , ? 

01661 

-0 

06036 

1 

I : 

45175 

0 

C: 

02273 

0 

C: 

71  LOO 

-0- 

r : 

26273 

0 

C : 

023  1 5 

1 

r 

: 26307  I 

35,21 50 

C: 

02301 

1 

I : 

45170 

0 

C: 

01522 

0 

C: 

72334 

0 

I : 

77745 

1 

C: 

03634 

0 

C: 

37636 

0 

c 

: 73542  0 

35, 2160 

I : 

77650 

1 

C: 

72075 

0 

02313 

1 

02165 

1 

02320 

1 

02325 

1 

32355 

0 

03651  0 

- 35.2! 70 

0-6036- 

1 

Li- 

77745 

_J 

Ci 

03636 

1 

CL? 

17634 

0 

C: 

03374 

1 

C: 

37440 

0 

C: 

20041 

0 

I 

: 77624  1 

35, 2200 

C : 

71016 

0 

I : 

77624 

1 

C: 

71133 

0 

I : 

77201 

1 

C: 

00001 

0 

C: 

03542 

1 

I : 

45115 

0 

C: 

02315 

1 

^ 5 rP ? 2-4-0- 

C-i 

7 1071 

1 

I 1 

7-76-24- 

1 

G: 

-46363 

0 _ 

I : 

772Q1 

1 

C: 

noooi 

0 

C: 

03526 

0 

I : 

45115 

0 

C : 

03520 

0 

35,2220 

C: 

71071 

1 

I : 

77624 

1 

C : 

46373 

1 

I : 

43145 

0 

C: 

32364 

1 

C: 

03460 

0 

C: 

36323 

0 

C: 

72726 

1 

35, 2230 

I : 

77454 

1 

C: 

72246 

1 

05567 

0 

C : 

00611 

1 

35006 

1 

04616 

1 

C: 

20351 

1 

06001 

0 

35,2240 

02242 

1 

02165 

1 

06036 

1 

I : 

77745 

1 

C: 

32364 

1 

C: 

02323 

1 

I : 

430  14 

0 

C : 

01311 

0 

35,2250 

C: 

72252 

1 

C: 

00470 

1 

I : 

43345 

1 

C: 

02323 

1 

C: 

03634 

0 

C: 

03634 

0 

I : 

77625 

0 

C: 

03374 

1 

35^-2-2-60 

I-L- 

54-0-25 

1 

X : 

323-6  6 

_o 

C : 

72260 

0 

I : 

77615 

0 

C: 

3 2366 

0 

Ci 

16257 

0 

C : 

03634 

0 

I : 

41425 

1 

35,2270 

C: 

03636 

1 

I : 

45246 

0 

C: 

32366 

0 

I : 

43244 

1 

C: 

72271 

0 

C: 

32366 

0 

I : 

45565 

0 

C: 

75516 

l 

35  1 73  00 

4 : 

77774 

1 

32-3  5 6 

o 

0 3 651 

o 

06036 

l 

I 1_ 

4 5175 

o 

C : 

n?3m 

1 

r : 

-111  0 0 

0 

r. : 

36301 

Q 

35,2310 

C : 

73542 

0 

I : 

77650 

1 

C: 

72177 

0 

00006 

1 

23466 

1 

05504 

0 

C: 

00050 

1 

01466 

1 

35,2320 

00006 

1 

23466 

1 

05516 

0 

C: 

00050 

1 

01466 

1 

00006 

1 

23466 

1 

05504 

0 

35,2330 

Ci 

-QOOL27 

1 

05504 

0 

_Ci 

00031 

-0 

01466 

1 

C: 

03432 

1 

I : 

45020 

1 

C : 

03461 

1 

C: 

71120 

1 

35,2340 

I : 

64375 

1 

C: 

0343  2 

1 

C: 

00001 

0 

I : 

66172 

0 

C: 

0 3613 

0 

C: 

03432 

1 

I : 

77776 

1 

3161  3 

1 

35,2350 

036-51 

0 

06036 

1 

Li 

77650 

-L 

- C: 

03461 

I 

C: 

01413 

0 

C: 

0141  5 

0 

C: 

01513 

1 

C : 

77776 

1 

35, 2360 

C : 

62460 

1 

C : 

17777 

0 

C: 

37776 

0 

C: 

00000 

1 

C: 

00000 

1 

C : 

00025 

0 

C : 

37100 

1 

C : 

00600 

1 

35,2370 

C: 

00601 

0 

C : 

00602 

0 

C: 

00603 

1 

C: 

00604 

0 

C: 

00605 

1 

C: 

00606 

1 

00006 

1 

23463 

1 

GAP  : ASSEMBLE-  REVI-S-I-ftN  069  OF  AGC  PROGRA-M-  LUMI-NARV  BY  NASA  2021112-011 19-UX2  MOV.  2 5 .,-196 a PflGF.  1699 — 


OCTAL  LISTING 

FOR  PARAGRAPH 

# 205, 

WITH  PARITY  BIT 

IN  BINARY  AT 

THF 

RIGHT  OF  1 

EACH  WORD,  " 

3" 

DENOTES  UNUSED 

FIXED  MFMORY 

ALL  VALID 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRETIVE 

OPERATOR  WORDS) 

OR  "C 

" (CONSTANTS) 

34  757 

0 

00-0-0-4- 

0- 

-0-5203- 

_Q_ 

C-i— 

0272-2. 

_1_ 

C: 

7-4-0-67- 

_Q 

05327  ) 

35,2410 

C : 

40036 

0 

C 

: 05024 

1 

C: 

13000 

0 

01463 

1 

02325 

i 

32025 

1 

03651 

0 

06036 

1 

35,2420 

I : 

71214 

0 

C 

: 00670 

0 

C: 

03440 

1 

C: 

34041 

0 

C 

: 27057 

0 

I : 

40375 

1 

C: 

0000  1 

0 

C : 

00001 

0 

35  f 2430 

r : 

0 3540 

0 

_c 

: 26327 

0 

C: 

00007 

Q_ 

C: 

03646 

0 

C 

: 1 6335 

0 

C: 

32364 

1 

I : 

65206 

0 

C: 

03450 

0 

35,2440 

I : 

66015 

0 

C 

: 03440 

1 

C: 

03375 

0 

C: 

03627 

1 

I 

: 45134 

0 

C: 

0 3 376 

0 

C: 

22000 

1 

I : 

41575 

0 

c ? 

0 337i6 

1 

c_ 

: 03654  0 

I: 

43046 

1 

C : 

012.67 

0 

c 

: -3  76  6 2 

1 

C: 

20021 

0 

I : 

63375 

0 

C: 

03640 

0 

35,2460 

C: 

02343 

1 

I 

: 77624 

1 

C: 

46277 

1 

I : 

77624 

1 

c 

: 46407 

0 

I : 

77624 

1 

C : 

45636 

0 

C: 

16325 

1 

35,2470 

C: 

00005 

1 

I 

: 77624 

1 

C: 

46407 

0 

I : 

77624 

1 

c 

: 45636 

0 

C: 

02323 

1 

I : 

77776 

1 

33666 

1 

35,2500 

03651 

0 

32026 

1 

03651 

0 

06036 

1 

I 

: 45014 

0 

C: 

01071 

0 

C: 

73542 

0 

l : 

77650 

1 

35,2510 

C: 

72  504 

0 

02313 

1 

02514 

0 

02320 

1 

02325 

1 

33662 

0 

03651 

0 

00006 

1 

3.5  t 2 5-2J3 

3 3Z06 

o 

5361  7 

1 

Q363C 

1_ 

06036 

1 

I 

: 71214 

_D 

C : 

01270 

0 

C: 

03634 

0 

C: 

17440 

1 

35,2530 

C : 

02263 

1 

I 

: 43054 

1 

C: 

72534 

0 

C: 

01070 

1 

I 

: 77624 

1 

C: 

20041 

0 

I : 

43145 

0 

C: 

06424 

0 

35  , ? 5^0 

C i 

fL3  4 60 

o 

I 

• 43  0 1 4 

-0 

C; 

01310 

1 

C J 

72  545 

_ 0 

_ c. 

: 03660 

JL 

C_: 

02323 

I : 

43345 

I 

. C: 

036  3 4 

0 

35,2550 

C: 

02323 

1 

c 

: 34041 

0 

C: 

46  341 

0 

I: 

77624 

1 

c 

: 72726 

1 

I : 

77454 

1 

C : 

72567 

0 

05567 

0 

35,2560 

C : 

00611 

1 

35006 

1 

04616 

1 

C: 

20351 

1 

06001 

0 

02514 

0 

02557 

1 

I : 

43014 

0 

35^2-570- 

£i 

03.6-00 

1 

c 

: 72  5 4 6 0 

. C: 

0J.310 

_J 

C: 

72577 

1 

I 

: 77776 

I 

03630 

1 

02602 

1 

I : 

77776 

1 

35,2600 

33662 

0 

0365  1 

0 

06036 

1 

I : 

71201 

1 

c 

: 00001 

0 

C: 

03376 

0 

C: 

14047 

1 

C: 

03617 

1 

35t  261X) 

- I : 

7140* 

0 

r 

: 16737 

0 

1L 

77  756 

0 

C : 

26730 

1 

c 

: 03550 

1 

I : 

77657 

0 

C : 

57176 

0 

C: 

26655 

0 

35,2620 

C: 

03556 

l 

i 

: 43057 

1 

C: 

57176 

0 

C: 

03466 

0 

c 

: 36744 

0 

C: 

24745 

1 

I : 

77745 

I 

C: 

03634 

0 

35,2630 

C: 

03606 

l 

i 

: 77615 

0 

C: 

00037 

0 

C: 

37627 

0 

c 

: 73250 

1 

I : 

51575 

1 

C: 

03366 

1 

C: 

27574 

1 

35,2640 

C: 

03504 

0 

i 

: 51451 

0 

C: 

03564 

0 

C : 

26  354 

1 

c 

: 03534 

0 

I : 

45115 

0 

C : 

02343 

l 

C: 

46277 

1 

35, 2650 

I : 

77624 

1 

c 

: 46407 

0 

C: 

17604 

0 

C: 

03634 

0 

c 

: 03440 

1 

I : 

77776 

1 

33664 

0 

03651 

0 

35T  2f>/vO 

0-60-36 

1 

_4 

: 77624 

1 

r : 

73456  1 

I : 

77  6_24 

L 

e 

: 73542 

0 

I : 

77650 

1 

C: 

72536 

I 

02313 

1 

35,2670 

00006 

1 

31401 

0 

02676 

1 

02320 

1 

00006 

1 

31403 

1 

53574 

1 

02325 

1 

35, 2700 

n 4D  3* 

l 

1 

: 776  7-4 

1 

C : 

7004  1 

0 

I • 

77634 

n 

c 

? 2146? 

1 

C: 

m* i n 

0 

I: 

77615 

0 

CL 

m574  1 

35,2710 

C : 

03440 

l 

c 

: 03606 

1 

C: 

34041 

0 

C: 

46341 

0 

I 

: 77624 

1 

C : 

73236 

1 

I : 

77624 

1 

C : 

73250 

1 

35,2720 

I : 

77624 

1 

c 

: 73456 

1 

I : 

77624 

1 

C: 

73542 

0 

I 

: 77650 

1 

C: 

72703 

0 

I : 

66220 

1 

C: 

03461 

1 

35,2730 

Ct- 

03612 

1 

c 

: 40000 

Q 

LL 

40345 

1 

C : 

336.73 

Q_ 

c 

: 50001 

0 

C: 

27572 

1 

C: 

03534 

0 

C: 

27476 

1 

35,2740 

C: 

03542 

1 

c 

: 27504 

0 

C: 

03550 

1 

C: 

27520 

0 

c 

: 03556 

1 

C : 

03526 

0 

1 : 

77624 

1 

C: 

73236 

1 

3 5,2750 

U- 

6 32  35 . 

0. 

-C-; 

: .03534  .Q  _ 

_ I 

-5-3  515 

-Q 

C : 

03534 

0 

I : 46315 

1- 

I : 

51352 

1 

C J 

023  15 

1 

I : 

63256 

0 

35,2760 

I : 

63241 

0 

C 

: 00001 

0 

I : 

75241 

1 

C: 

02315 

1 

I 

: 65552 

0 

I : 

50315 

0 

C: 

02315 

1 

C: 

03534 

0 

35,2770 

I : 

71244 

0 

C : 

: 72774 

0 

C: 

06432 

1 

I : 

41425 

1 

I 

: 71214 

0 

C: 

03740 

1 

C: 

73223 

0 

C: 

03574 

1 

GAP  : ASS E M BL  E -RE V I S ION  -0  69  OF  AGG-  PROGRAM  LUM  LN A-RY  BY  - NASA-  20  2 1 1 1 2-YU 1 


-19:02  NOV.  2S+136a 


TLAGE 1-7-00 


OCTAL  LISTING  FOR  PARAGRAPH  tt  206,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


1 

[ • 

77^25  0 - 

C : 

02  263 

1 

C: 

03574 

_JL 

I: 

4 5246  0 

C. : 33677 

3 

I : 

77640 

0 

r. : 

73233 

L 

35,3010 

I : 

70535 

0 

C : 

03612  1 

I : 

72030 

1 

C: 

03461 

1 

C: 

00154  1 

I:  77330 

1 

C: 

036  1 1 

1 

C: 

03550 

1 

35,3020 

I : 

65256 

0 

C: 

00045  0 

I : 

53515 

0 

C: 

03534 

0 

I : 

77725  1 

I:  41525 

0 

C: 

00045 

0 

I : 

77621 

1 

r • 

0.0  015 

c * 

14037  0 

C : 

06422 

0 

IT 

- 41425- 

C: 

0-226-3. 

I:  50165 

0 

C : 

00037 

0 

C: 

03461 

1 

35  , 30  40 

I : 

71545 

0 

I : 

56205  0 

C: 

00017 

1 

C: 

00015 

0 

I : 

77676  0 

C:  00035 

1 

I : 

44246 

1 

C: 

06422 

0 

s t sn 

I ; 

77240 

1 

C 

03461  1 

C : - 

07265 

-1 

- I : 

53  435 

0-  .. 

C: 

00007  0 

I:  41241 

0 

C: 

03542 

1 

C: 

00015 

0 

35,3060 

I : 

47315 

0 

C: 

00001  0 

C: 

03556 

1 

I : 

53435 

0 

C: 

00001  0 

I:  41241 

0 

C: 

03556 

1 

C: 

00017 

1 

35,3070 

I : 

77621 

1 

I : 

63301  0 

C: 

00047 

1 

C : 

00007 

0 

I : 

50235  0 

C:  00001 

0 

C: 

02265 

1 

I : 

50315 

0 

35, 3100 

C: 

00001 

0 

C: 

00007  0 

I : 

65552 

0 

I : 

77765 

0 

I: 

43225  0 

C:  06422 

0 

C : 

02263 

1 

I : 

65525 

0 

35,31  10 

C : 

00035 

1 

I : 

75221  1 

C: 

06422 

0 

C: 

00037 

0 

I : 

77615  0 

I:  56205 

0 

C: 

33671 

1 

I : 

776  0 5 

1 

3 5 » 3J.  2-Q- 

I : 

41  2 57 

1 

C : 

-2017  6 0 - . 

- H: 

5J.  406 

1 

I : 

50025 

0 

C: 

03572  1 

C:  73131 

0 

I : 

75345 

1 

C : 

03572 

1 

35, 3130 

I : 

77606 

1 

I : 

51135  1 

C: 

03612 

1 

C: 

73141 

1 

1 : 

71331  0 

C:  03612 

1 

C : 

37777 

1 

I : 

77650 

1 

. _ ^ ^ j ^ J.4D  - 

C : 

7 71  77 

1 

_ I : 

44-34-5  0 

C: 

0 3-574 

1 

- C : 

00033 

3 

Ll 

71244  0 . 

C:  73155 

1 

C: 

0357? 

1 

) : 

77605 

1 

35,3150 

C : 

33675 

0 

C: 

17572  1 

I : 

70446 

0 

1 : 

52076 

1 

C: 

73165  1 

I:  51545 

1 

C: 

03574 

1 

I : 

51525 

1 

35,3160 

C: 

00033 

1 

I : 

77625  0 

I : 

71240 

1 

C: 

73170 

0 

1 : 

77646  0 

I:  52165 

1 

C: 

03604 

0 

C: 

73177 

1 

35t 34 70 

lz 

57545 

I 

_ X-t- 

03604  0 

1 

7 0 406 

_1_ 

CT 

03  604 

.0  _ 

_ I : 

77615  0 

T : 77650 

-1  - 

C: 

73200 

1 

C: 

03604 

0 

35,3200 

I : 

77615 

0 

C: 

02323  1 

C: 

02323 

1 

I : 

63375 

0 

C: 

03504  0 

C:  03476 

1 

I : 

77624 

1 

C: 

73416 

0 

35  ♦ 32-4-0 

I : 

77624 

1 

- C: 

-46362  a 

-It 

63  3 75 

0 — 

C: 

Q35-2-6 

_D 

C: 

0 3520  0 

I:  77624 

1 

C : 

73416 

0 

I : 

77624 

1 

35,3220 

C: 

46373 

1 

I : 

77650  1 

C: 

72746 

1 

I : 

43345 

1 

C: 

03634  0 

C:  02323 

1 

C: 

17634 

0 

I : 

77614 

1 

35,3230 

C: 

01310 

1 

C : 

73233  1 

C: 

02263 

1 

I : 

52145 

0 

C: 

06424  0 

C:  03461 

1 

1 : 

52375 

1 

C: 

03550 

1 

35,3240 

C: 

03534  0 

I:  41456 

0 

C: 

26315 

1 

C: 

03534 

0 

I:  53435 

0 

C:  03542 

1 

C: 

02265 

1 

I : 

77616 

0 

35,3250 

I : 

77220  1 

C:  03466 

0 

C: 

03556 

1 

I : 

65315 

0 

C:  03550 

1 

C:  03606 

1 

I : 

65325 

0 

C: 

03627 

1 

35,3260 

iU. 

-064  24  fl- 

I : 45006 

J3 

C : 

7 3 422 

1 

C: 

27442 

0 

C:  00007 

0 

C:  27504 

0 

C : 

03442 

0 

1 : 

63256 

0 

35,3270 

C: 

03534  0 

I:  41456 

0 

I : 

50235 

0 

C: 

00001 

0 

C:  02265 

l 

I:  77715 

1 

I : 

72441 

0 

C: 

00001 

0 

35,3300 1 : 75326  I lT_43?44  I C:  7 330-4  1 TL:  06437  1 C:  1 5756  1 C : 03627  1 I:  77625  0 C:  03606  I 


35,3310 

C : 

03450 

0 

I : 

40335 

0 

C: 

33701 

1 

C: 

00001 

0 

I : 

63325  0 

C: 

33704 

1 

C : 

03534 

0 

C : 

26327 

0 

35,3320 

C : 

03542 

1 

C: 

3633  5 

1 

C: 

22000 

1 

I : 

77624 

1 

C: 

73403  1 

I : 

64375 

1 

C: 

03366 

1 

C: 

00001 

0 

35,  333-0 

-IT- 

7-777-2- 

_a 

. _ C_:_ 

3743-2- 

0 

_C_L 

03466 

-0 

I : 

45020 

1 

C: 

03461  1 

C: 

73403 

1 

I : 

61375 

1 

C : 

03432 

1 

35,3340 

C: 

00001 

0 

I : 

77772 

0 

C: 

03366 

1 

I : 

63255 

0 

C: 

03542  1 

C: 

03534 

0 

I : 

65325 

0 

C: 

03440 

1 

— 3-5,3350 

-C : 

-0  36  27- 

-i 

U 

-415-25- 

0 

C: 

06  432 

2 

I : 

77624 

1 

C : 

73422  1 

I : 

77775 

1 

C : 

00001 

0 

C : 

03442 

0 

35,3360 

I : 

41575 

0 

C: 

02315 

1 

I : 

57435 

1 

C: 

02265 

1 

I : 

41456  0 

I : 

76435 

1 

C: 

023  15 

1 

I : 

77715 

1 

35,3370 

1 : 

64315 

1 

C: 

03366 

1 

C: 

00001 

0 

1 : 

77772 

0 

C: 

36307  0 

C: 

03461 

1 

I : 

40220 

0 

C : 

03461 

1 

I I-S-ION  0-69 - OF  4GC -PROGRAM  LUMINARY  BY-  NASA  202-1112-01-1— 


-L9O-0-2  NOV.  2 5,1  9.68  . 


■PAGF  1701 


OCTAL  LISTING  FOR  PARAGRAPH  # 207,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NT F R PRET 1 VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


c * 

776^0  1 

C : 

73340  0 

I * 

5J  5.7.5 

1 

C: 

02765 

r. : 

24007 

_Q 

C:  035 34 

_Q 

_ I: 

: 5743  6 

_-L 

35, 3410 

C: 

00015 

0 

I : 

76435  1 

C: 

02265 

1 

C: 

00001 

0 

I : 

43401 

0 

C: 

00023 

0 

I:  65325 

0 

C: 

: 06424 

0 

35,3420 

C: 

02323 

1 

I : 

41406  0 

I : 

45020 

1 

C: 

03463 

0 

C: 

27412 

0 

I : 

71214 

0 

C:  01673 

1 

I ; 

: 43054 

1 

r ? 

7 ^43? 

o 

r ; 

01473  0 

j_: 

4 5 545 

1 

r. : 

63736 

_0_  _ 

L= 

7 3014 

0 

C: 

00063 

1 

C:  03376 

0 

I : 

: 43014 

0 

35, 3440 

C: 

04303 

0 

C: 

73443  0 

C: 

00263 

0 

C: 

25517 

0 

I: 

77657 

0 

C: 

57176 

0 

C:  25535 

0 

I : 

: 77657 

0 

s 7 1 7 a 

o 

c • 

3 55  43— -0 

C : 

27107 

1 

I JL_ 

52175 

0 _ 

_ C : 

0 0001 

0 

...  C: 

03463 

0 

T:  43070 

1 

C: 

: 03466 

0 

35,3460 

C : 

01311 

0 

C: 

73465  1 

I : 

52014 

0 

C: 

00470 

1 

C: 

73532 

1 

I : 

77214 

0 

C:  03274 

0 

C: 

: 03432 

1 

35,3470 

C: 

01237 

0 

I : 

77776  1 

33666 

L 

04616 

1 

C: 

20351 

1 

06001 

0 

03500 

1 

03472 

0 

35,3500 

35016  0 

54003 

0 

22007 

0 

34756 

l 

54002 

l 

50002 

0 

4143  1 

l 

50002 

0 

35,3510 

61236  1 

26001 

l 

10002 

l 

13504 

l 

22000 

l 

00006 

l 

13521 

0 

05504 

0 

3 5 *-3-5-20 

C : 

00-146  1 . 

060  3 6 

l 

L: 

.45014 

0 

Cl 

03354 

0 

C: 

73526 

i 

C: 

73333 

0 

I : 

77214 

0 

C : 

01267 

0 

35,3530 

C: 

03366  1 

C: 

03654 

0 

I : 

77624 

l 

C: 

73376 

1 

I : 

77776 

l 

33665 

l 

03651 

0 

06036 

1 

35^3  54X)- 

I_i_ 

776 50  1 

C-: 

Q34AA  0 

I^_ 

Z_l_7_7.fl  1 

c : 

03466 

0 

C : 

337Q? 

l 

C : 

02257 

0 

I:  71214 

0 

r. : 

01351  1 

35,3550 

C: 

73570  1 

c: 

33702 

l 

I : 

77615 

0 

C: 

33702 

1 

C: 

02257 

0 

I : 

77414 

0 

C = 

01742 

l 

C: 

73570 

1 

35,3560 

03643  0 

03563 

l 

03571 

1 

06036 

1 

I : 

4 1575 

0 

C: 

03654 

0 

I : 

77624 

l 

C: 

20005 

0 

3 5 f-3  5-XQ 

L_L- 

77776  1 

02376 

l 

_31466 

1 

55462 

1 

34777 

1 

04616 

1 

C: 

01735 

l 

33667 

0 

35,3600 

04616  1 

C: 

20351 

l 

03605 

1 

03610 

0 

03620 

0 

30005 

1 

55163 

0 

06001 

0 

35r-3610 

-4  0 0 76 1 

747-4-6 

1-  - 

00  006 

1 

13605 

Q 

0 5353 

JL 

Cl 

04024 

0 

05504 

0 

C: 

00047 

1 

35,3620 

30005  1 

55163 

0 

05353 

1 

C: 

04024 

0 

06036 

1 

I : 

52014 

0 

C: 

00670 

0 

C: 

03462 

1 

35,3630 

00006  1 

23461 

0 

33663 

1 

04616 

1 

C: 

20510 

1 

16001 

1 

0146  1 

0 

13632 

1 

35,3640 

34753  1 

05464 

1 

15  155 

1 

37743 

0 

71011 

1 

00006 

1 

13650 

0 

240  0 2 

0 

35,3650 

00002  0 

00006 

1 

23463 

1 

55613 

0 

31613 

1 

04616 

l 

C: 

2035  1 

1 

16001 

1 

35*3660 

-0-1463  1 

136  5 4 1 

0 . 

Cl 

..014.67_ 

0 

r : 

01472  l 

C : 

01  473 

n 

C : 

01521 

0 

C : 

04055 

0 

35, 3670 

C : 

14441  0 

C : 

3732  5 

1 

C: 

00001 

0 

C: 

20650 

0 

C: 

12525 

0 

C: 

12525 

0 

C: 

00004 

0 

C: 

21505 

1 

. . . c : 

00002  0 

Ci 

77-7-7-7- 

-0 

C: 

613  37 

1 

C-i- 

01  2 52 

n 

7 : 

2^233  1 

r : 

] 34^4 

n 

r • 

IMA? 

0 

04A45 

1 

35,3710 

55164  1 

04616 

1 

C: 

54233 

1 

10000 

0 

1 3726 

0 

34737 

0 

70106 

1 

10000 

0 

35,3720 

13733  1 

34747 

1 

00006 

1 

02030 

0 

00006 

1 

13733 

1 

33735 

0 

04616 

1 

35,31-30 

- C:  20476  0 

1 600  1 

J 

1371  1 

1 

31164 

0 

04640 

1 

C : 

00203 

0 

C: 

03736 

0 

C. : 

03737 

1 

35,3740 

CKSM 

54546  1 

3 

a 

a 

a 

a 

a 

a 

35,3750 

a 

a 

n ) 

a 

a 

a 

a 

a 

35,3760 

a 

3 

a 

a 

a 

a 

a 

a 

35,3770 

a 

a 

a 

a 

a 

a 

a 

a 

lOAO  2--NU  V-  -2-5,1968. 


PAG  E 1 7 07 


&AP  : ASSEMBLE  REVISION  069  OF  AGG  PROGRAM  LUMINARY-  BY  -NASA  20  214-12- OU 

OCTAL  LISTING  FOR  PARAGRAPH  # 210,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  ( I NT F RPRE T I VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


1 

C i 

m?sn 

n 

_ C: 

7 7 777 

0 

X • 77-7-3-1- 

_1 

-Cl 

00307 

0 _ 

11040 

-0  . __ 

36,2010 

C: 

00151 

I 

C: 

05214 

0 

C : 

77777 

0 

C: 

77765 

0 

C: 

00026 

0 

C:  30605 

1 

C: 

00013 

0 

C: 

14303 

1 

36,2020 

C : 

00030 

1 

C: 

00014 

1 

C: 

01512 

0 

C: 

01512 

0 

12615 

0 

13072 

0 

15261 

0 

12144 

0 

14  j pn*n 

C ; 

000X0- 

1 

C: 

-03525 

0 

C : 

76067 

1 

12364 

0 

12541 

1 

12506 

1 

C : 

01450 

1 

C: 

01450 

1 

36,2040 

126  17 

l 

13057 

1 

12564 

0 

12144 

0 

C: 

04300 

0 

C:  03641 

1 

C: 

74066 

1 

12360 

1 

V't  20 

1 7541 

1 

1 7467 

1 

12147 

.0 

C: 

77776 

1 

C: 

0 33  76 

0 

C*.  740  66 

1 

1526  1 

0 

12545 

0 

36,2060 

C: 

01450 

1 

C : 

01450 

1 

12617 

1 

13057 

1 

15261 

0 

12144 

0 

C: 

05120 

l 

C: 

03641 

l 

36,2070 

C : 

74066 

1 

12360 

1 

12541 

1 

12516 

0 

C: 

01476 

0 

C:  01475 

0 

12615 

0 

13006 

0 

36,2100 

12556 

1 

12147 

0 

C: 

04300 

0 

C: 

03525 

0 

C: 

76067 

1 

12364 

0 

12541 

1 

12440 

1 

36,21  10 

C: 

01477 

1 

1211  2 

0 

12615 

0 

13072 

0 

1 5261 

0 

12116 

1 

1211  7 

0 

12120 

1 

U,  ?A30 

17  171 

o 

123  64 

0 

12541 

3 

12  503 

1 

05353 

1 

C:  04024 

0 

34755 

1 

55505 

1 

36,2130 

55506 

1 

0 4616 

1 

C: 

73707 

0 

00006 

1 

3 1440 

0 

53510 

0 

00004 

0 

04674 

0 

3 6 T P J 4-0 

r • 

- 1 

0000  3 



514  53 

1 

10  005- 

0 

44747 

0 

QA616 

, 

r : 

74667 

-0- 

06036 

1 

36, 21 50 

I : 

45345 

1 

C : 

03440 

i 

C: 

35143 

1 

C: 

34041 

0 

C: 

61055 

0 

I:  45014 

0 

C : 

03347 

1 

C : 

74176 

1 

36,2160 

C: 

27043 

0 

I : 

64375 

i 

C: 

00025 

0 

C: 

01734 

0 

I : 

77762 

1 

C:  25726 

0 

C: 

00017 

1 

Is 

64312 

0 

36»  2 1 70 

C: 

0 1 734 

0 

- _Cs_ 

35720 

_L 

c; 

67163 

Q 

C : 

16323 

1 

C: 

00015 

0 

C:  00041 

1 

I : 

77624 

1 

C: 

27603 

1 

36,2200 

12207 

1 

00006 

1 

31557 

1 

53440 

1 

00006 

1 

33143 

1 

21440 

1 

52155 

1 

36  f 22  1 0 

534  76 

_L 

0300  6- 

1 

43741 

1 

21.4  76 

1 

00006 

1 

31476 

0 

05277 

0 

C: 

02236 

1 

36,2220 

C : 

74067 

0 

05353 

1 

c: 

20254 

0 

05321 

1 

C: 

00077 

1 

15155 

1 

44747 

0 

55163 

0 

36,2230 

06036 

1 

Is 

51575 

1 

C: 

03551 

0 

C: 

03470 

1 

I : 

77776 

1 

15  155 

1 

33741 

0 

05173 

1 

36,2240 

C : 

02274 

1 

05353 

1 

C : 

40154 

0 

44752 

1 

55163 

0 

51453 

1 

40006 

0 

00006 

1 

36,2250 

65261 

1 

33145 

1 

05  173 

1 

C: 

02264 

0 

35027 

1 

05072 

1 

C : 

02261 

0 

C: 

740  6 7 

0 

3^2-2-60 

1 5261 

-0 

-046-16 

1 

C: 

2.0334 

1 

15  155 

1 

3 5027 

1 

0507? 

1 

0: 

02271 

l 

r. : 

740  6 7 

0 

36,2270 

15261 

0 

33744 

0 

04616 

1 

C: 

20343 

1 

33144 

0 

05173 

1 

C2 

02343 

1 

44747 

0 

34-r23^Q 

5 5 163 

_o 

51 4 53 

1 

30X0-6- 

-1 

00006 

1 

62316 

1 

55475_ 

1 

0*5 1 7 3 

1 

X : 

02337 

1 

36,2310 

36244 

0 

5400  1 

1 

46244 

1 

52753 

1 

40025 

1 

55053 

1 

00006 

1 

51453 

1 

36,2320 

30010 

0 

53253 

0 

34752 

0 

54001 

1 

44752 

1 

52761 

0 

40025 

l 

55061 

0 

36,2330 

000-06— 

1 

34-75-5- 

1 

52755 

1 

10763 

1 

1 5261 

0 

04635 

0 

C : 

77374 

1 

02662 

1 

36,2340 

05353 

1 

C: 

00001 

0 

15261 

0 

33741 

0 

05173 

1 

C:  02367 

1 

055  16 

0 

C: 

00153 

0 

36,-23.50 

XI 55  L6 

0. 

C: 

.0.015  4 

1 

05327 

1 

C: 

40074 

0 

C: 

05013 

0 

C:  77777 

0 

51453 

1 

10011 

0 

36,2360 

34736 

1 

05105 

0 

C: 

02574 

0 

C : 

56067 

0 

45742 

1 

55163 

0 

1526  1 

0 

40103 

1 

36,2370 

74737 

1 

26103 

1 

05321 

1 

C : 

00077 

1 

12404 

1 

31424 

1 

05173 

1 

C: 

02554 

1 

GAP- 


-A-5-S-E7H3C-E-R€3PI54Q N-&6-9— QE--A-GC— PltOSSAM-UJ-M I ~N A RY-  BY  N A SA-2021  1 12-011 


19:02-  MOV.  -2 5,1963 


.PAGE  1703 


OCTAL  LISTING  FOR  PARAGRAPH  # 211,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


f • 

40033  0 

- C ’ 

0-5  0 1 4 

1 

C-1 

77-77  7 

o 

3 4740 

n 

70103 

_J  _ 

00004  1 

5JA53 

1 

36,2410 

10012 

0 

40101  0 

74745 

1 

26101 

0 

44355 

i 

00006 

1 

02011  0 

64737 

0 

36,2420 

00006 

1 

01011  0 

00006 

1 

30025 

0 

53345 

0 

00006 

1 

31515  1 

53440 

1 

0-0006 

1 

30025  0 

21440 

L 

443.42.  0 _ 

7 0 1 0.4. 

_Q_ 

54  104 

0 

51453  1 

100  13 

1 

36,?440 

00006 

1 

33135  0 

53253 

0 

30005 

1 

55163 

0 

40  105 

1 

74743  1 

26105 

1 

40  1 03 

1 

74741  0 

26  103 

1 

44  73  5 

0 

701  11 

1 

5411 1_ 

00006  l 

30025 

0 

36^  2460 

5 3440 

1 

34755  1 

55620 

0 

55617 

1 

34752 

0 

55621 

1 

12516  0 

40101 

0 

36,2470 

74740 

1 

00006  1 

12516 

0 

31424 

1 

05173 

1 

C: 

02554 

1 

05327  1 

C: 

40033 

0 

36,2500 

C : 

05014 

1 

C: 

77777  0 

12516 

0 

05321 

1 

C:  00107 

1 

12516 

0 

30005  1 

55163 

0 

36,2510 

00006 

1 

33141  0 

53253 

0 

40103 

1 

74741 

0 

26103 

l 

44744  0 

44744 

0 

3-6-f-2-5.2Q 

70111 

1 _ 

54111  1 ... 

34743 

0 

70076 

I 

1 0000 

0 

13522 

0 

05516  0 

C: 

001  53 

0 

36,2530 

05516 

0 

C: 

00154  1 

05516 

0 

C: 

00  161 

1 

05353 

1 

C: 

40054 

1 

05221  0 

C: 

00062 

0 

_a3-6  6A 

0 

00006-  1 

34755 

1 

52761 

0 

1 574  1 

CL 

35026 

0 

05077  1 

C : 

03241 

0 

36,2550 

C: 

74067 

0 

05353  1 

C: 

00006 

1 

15261 

0 

51453 

i 

10004 

1 

00006  1 

33137 

1 

36,2560 

53253 

0 

04674  0 

C: 

62415 

0 

12571 

1 

34737 

0 

54055 

0 

34750  1 

00006 

1 

36,2570 

0 50  14 

1 

05353  1 

Cl 

- 00003 

1 

L5261 

0 

05504 

0 

C: 

00  16_L_ 

1 

05504  0 

C : 

00175 

1 

36,2600 

34751 

0 

55513  0 

10765 

1 

12606 

1 

04616 

1 

C: 

74666 

1 

44242  0 

55163 

0 

36,  ?6  L 0 

-05-3  53- 

1 

O: 

0 000-4—0 

-15  155 

1 

50-453 

1 

1 0003 

1 

30005 

1 

12620  0 

44747 

0 

36,2620 

55163 

0 

05516  0 

C: 

00  16  1 

1 

05516 

0 

C:  00175 

1 

15155 

1 

05353  1 

C: 

00003 

1 

36,2630 

00004 

0 

06027  1 

C: 

74554 

0 

04674 

0 

C:  75561 

1 

05504 

0 

C:  00312  1 

02650 

0 

36,2640 

C: 

003  10 

0 

05504  0 

C: 

00314 

1 

34753 

1 

00004 

0 

05173 

1 

C:  02343  1 

151  55 

1 

36,2650 

30002 

0 

05522  1 

40000 

0 

00006 

l 

06001 

0 

15511 

0 

44746  1 

701  1 1 

1 

36,2660 

541  1 1 

1 

00002  0 . 

40111 

1 

74746 

1 

261  11 

1 

00002 

0 

34755  1 

55163 

0 

36,2670 

04645 

1 

55061  0 

00006 

1 

31440 

0 

52155 

1 

00006 

1 

40075  1 

20155 

1 

36,2  700 

0-7-2-56 

1 

34777  1 

5-4  002 

1 

5-2  15  5 

1 

743  46 

o 

00004 

_L 

1QQ02  1 

30Q0J. 

o 

36,2710 

64752 

0 

00004  0 

05  173 

1 

C: 

02722 

1 

05327 

1 

C: 

40036 

0 

C:  05024  1 

C: 

13000 

0 

36,2720 

31061 

1 

04640  1 

40025 

1 

55065 

1 

11163 

0 

12736 

0 

12727  0 

37714 

1 

36,2730 

-0-50  72 

1 

CA_ 

-0.224  2 1 _ 

C:. 

74067 

0 

05721 

0 

00144 

0 

12722 

0 

00006  1 

34755 

1 

36,2740 

52765 

1 

15261  0 

00006 

1 

41440 

1 

53452 

1 

00006 

1 

30025  0 

21452 

1 

36,2750 

-00004- 

0 

1 1 L6-3— 0- 

15155 

J. 

15L55 

1 

4 00  00 

0 

Q0003 

50000  1 

13021 

0 

36,2760 

30371 

1 

04616  1 

C: 

20510 

1 

13023 

1 

12613 

0 

12626 

0 

44755  0 

5 5067 

0 

36,2770 

33146 

1 

05464  1 

15155 

1 

51453 

1 

30001 

0 

04616 

1 

C:  20335  0 

13023 

1 

- GAP: ASSEMBLE  - RE  VIS  I-Qaj-0  69  OF  A&C  -PPOG-RAM  LUMINARY  3Y  NASA  20  21 1 12 --Oil- L9A-0-2-MaV.  25,1963 &AC-F_LX04 

OCTAL  LISTING  FOR  PARAGRAPH  # 212,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALIO 

WORDS  ARE  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( INTERPRETIVE 

OPERATOR  WORDS) 

OR  "C1 

" (CONSTANTS) 

i 

]_2  7 7 3 

1 

514  53 

1 

30000 

1 

- 04616 

1 

_ Ci 

70343 

51  453 

1 

30000 

1 

36,3010 

04616  1 

C:  20510 

1 

13023 

1 

13051 

1 

13054 

l 

44743 

1 

12767 

1 

13020 

1 

36,3020 

04616  1 

C:  20334 

1 

15155 

1 

03025 

0 

16001 

1 

00004 

0 

00006 

1 

23142 

1 

, ^0^0 

0 26  56  0 _ 

06fl?7 

J 

C : 

_ 74337 

0 

05353_ 

j 

— C:  00001 

0 

30005 

1 

55163 

0 

01142 

1 

36,3040 

05353  1 

C:  04024 

0 

34755 

1 

55163 

0 

35023 

0 

05105 

0 

C: 

03203 

0 

C: 

64065 

0 

^6 , 3CX0 

1 5 1 55  1 

05504 

0 

C : 

00  154 

-1  _ 

131L2 

0 0004 

0 - _ 

51453 

1 

10003 

0 

34644 

0 

36,3060 

05105  0 

C:  03223 

1 

C: 

74067 

0 

00004 

0 

04674 

0 

C: 

40204 

0 

03025 

0 

05353 

1 

36,3070 

C: 

00134  1 

15155 

1 

35027 

1 

05105 

0 

C:  03261 

1 

C: 

56067 

0 

05516 

0 

C: 

001  75 

1 

36,3100 

00004  0 

04674 

0 

C: 

40204 

0 

03025 

0 

05353 

1 

C: 

07024 

0 

C : 

17000 

l 

C: 

03261 

1 

36,31  10 

C: 

56067  0 

15155 

1 

40103 

1 

74737 

1 

10000 

0 

13126 

0 

34753 

1 

00004 

0 

16 , 3120 

-0  5173  1 

C:  6241 1 

1- 

34360 

0 

54001 

1 

40000 

0 

52761 

0 

44747 

0 

55163 

0 

36,31 30 

15155  1 

C:  02036 

0 

C: 

02045 

1 

C: 

02060 

0 

C:  03437 

1 

C: 

62067 

1 

C: 

02522 

0 

C: 

62067 

1 

36*  31 40 

. C-i 

o 3637  0 

C:  700-6  7 

1 

XU- 

oooao 

1 

C : 

05656- 

1 

C:  0467? 

0 

C : 

G : 

24020 

0 

05353 

1 

36,3150 

C: 

04024  0 

33131 

1 

55453 

0 

30106 

0 

74737 

1 

10000 

0 

13722 

1 

04616 

1 

36,3160 

C: 

11175  1 

40111 

1 

74737 

1 

10000 

0 

32020 

1 

62021 

0 

5525  1 

1 

34751 

0 

36,3170 

-55513  0 

. - 06036 

] 

I : 

43175 

0 

C: 

34001 

1 

C:  02663 

0 

C : 

03734 

1 

I : 

77735 

0 

C: 

26002 

1 

36,3200 

I : 

70476  0 

C:  37742 

1 

C: 

56271 

0 

I : 

77624 

1 

C:  56436 

0 

I : 

77776 

1 

00004 

0 

04674 

0 

3Xt-32XQ 

G i 

41X142  1 

032-13 

1 _ 

121  24 

0 

00006 

1 

25142 

1 

00003 

1 

05516 

0 

C: 

00124 

0 

36,3220 

04616  1 

C:  54101 

0 

01142 

1 

30005 

1 

551  63 

0 

00006 

1 

32055 

0 

53253 

0 

36,3230 

33743  1 

04616 

1 

C: 

20510 

1 

03256 

0 

13241 

1 

03223 

1 

05353 

1 

C: 

00014 

1 

36,3240 

15155  1 

00004 

0 

04674 

0 

C: 

40  153 

1 

04674 

0 

C : 

40140 

0 

00003 

1 

33744 

0 

36,3250 

04616  1 

C:  20340 

1 

03256 

0 

13256 

1 

03247 

0 

13236 

1 

00006 

1 

321  04 

0 

36,3260 

53253  0 

34  7 5 5 

1 

-55-460 

0 

30005  1 

65163 

0 

00004 

0 

046  7 4 

0 

C: 

40123 

0 

36,3270 

00003  1 

06001 

0 

33132 

1 

55453 

0 

04616 

1 

C: 

11175 

1 

06036 

1 

I : 

71214 

0 

36*3300 

— 04- 

00-700  0 

X-  7X3  03  0 

r . 

34  0 1 5 

1 

C : 

37734  0 

Cj  75310 

1 

I : 

77745 

1 

C: 

3401  7 

o 

C:  0 3734 

1 

36,3310 

I : 

77624  1 

C:  56271 

0 

I : 

77624 

1 

C: 

56436 

0 

I:  77776 

1 

00004 

0 

04674 

0 

C: 

40153 

1 

36,3320 

04674  0 

C:  40140 

0 

03213 

1 

06036 

1 

I:  45175 

0 

C : 

03705 

0 

C: 

57156 

1 

C: 

03500 

1 

36,33  30 

LJ_ 

77-7-76  1 

33744 

-0 

04616 

1 

C: 

20324 

0 

35017 

1 

55163 

0 

05105 

0 

C: 

03361 

0 

36,3340 

C : 

74067  0 

0532  7 

1 

C: 

00076 

0 

C: 

04024 

0 

12133 

0 

34777 

1 

046  16 

1 

C: 

01735 

1 

36+33 50 

-51163  1 

64752_ 

0. 

00006 

1 

13345 

1 

3 3 744 

0 

04616 

1 

C : 

20324 

0 

35017 

1 

36,3360 

05146  1 

31163 

1 

00006 

1 

65155 

0 

06036 

1 

I : 

45175 

0 

C : 

03705 

0 

C : 

57156 

1 

36,3370 

C: 

03500  1 

I:  77776 

1 

34777 

1 

04616 

1 

C:  01735 

1 

13361 

1 

06036 

1 

I : 

77624 

1 

— ASSEMBL  E P E-V  IS  10 N--Q-69  Of  A G C PROGRAM- L4TM1NARY— @-¥-  NA  SA-  20  211  12---C11 


19:02  N 0 V- — 2-5_,-L9-6  &- 


PAGE  1705 


OCTAL  LISTING  FOR  PARAGRAPH  # 213,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NT E RPRE T I VF  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


_ „ „ ^ 

Cl 

03705  0 

c - 

571  56 

1 

Cz 

0350X1 

1 

u_ 

7-7.77-6- 

_1 

— 046  3 5l. 

0 

C.:. 

775-2-5. 

.0  . 

36,3410 

05353 

l 

C: 

0402  4 

0 

33133  6 

55453 

0 

40106 

l 

74737 

l 

10000 

0 

03722 

0 

36,3420 

04616 

l 

C: 

11175 

l 

36000  1 

55251 

l 

34751 

0 

55513 

0 

06036 

l 

I : 

77214 

0 

r ? 

0 1 077 

_Q 

C_: 

34007 

1 

C_: 

03  734  1 

I: 

521.35 

i- 

£j_ 

26001 

i 

C : 

75200 

i 

04616 

l 

C: 

11175 

1 

36,3440 

06036 

l 

I : 

77624 

l 

C: 

27577  1 

30155 

0 

05  173 

l 

C: 

03447 

0 

15155 

l 

05353 

1 

r , 

n sn  1 4. 

1 

r : 

77777 

0 

00006  1 

33747 

0 

53253 

0 

34736 

1 

05105 

0 

C : 

035  1 3 

0 

36, 3460 

C : 

74067 

0 

12333 

1 

06036  1 

I : 

53375 

0 

C: 

03500 

1 

C: 

03525 

0 

C : 

03654 

0 

I : 

77624 

1 

36, 3470 

C: 

57156 

i 

C: 

0362  1 

1 

I : 

77776  1 

05353 

1 

C: 

1 0035 

0 

06036 

1 

I : 

77775 

1 

C: 

03654 

0 

36,3500 

C : 

03500 

l 

1 : 

77776 

1 

04635  0 

C : 

77525 

0 

3 3745 

1 

04616 

1 

C: 

20510 

1 

06001 

0 

36, 3510 

06001 

0 

13513 

1 

13236  1 

06036 

1 

I: 

77775 

1 

C: 

06424 

0 

C: 

03621 

1 

C: 

03500 

1 

7 77  76 

1 

_Q25  0 4 

_Q 

3L515  1 

03710 

l 

05173 

1 

C: 

03542 

1 

05516 

0 

C: 

00153 

0 

36,3530 

05516 

0 

C: 

00154 

i 

05516  0 

C: 

00044 

1 

05353 

1 

C: 

40114 

1 

0522  1 

0 

C: 

00062 

0 

076  56 

o 

0 52-6  1 

1 

04674  0 

- C: 

75545 

-1 

05261 

1 

34644 

-0 

05105 

-0- 

— - CL 

03223 

1 

36  ^ 3550 

C : 

74067 

0 

34753 

i 

05203  0 

C: 

03606 

1 

C: 

74066 

1 

40103 

1 

74745 

1 

26103 

1 

36,3560 

026  56 

0 

00006 

i 

30025  0 

53345 

0 

44745 

1 

70101 

0 

54101 

0 

44355 

1 

36,3570  - 

0.0-0-06- 

1 

0701  1 

0 

64736  1 

00  006. 

-1- 

01011 

0 

40111 

1 

74736 

0 

26111 

l 

36,3600 

44737 

1 

54055 

0 

34750  1 

00006 

1 

05014 

1 

04707 

0 

04674 

0 

C: 

40204 

0 

36 , 3610 

0 52-61 

1 

T : 

4 5020.1. 

d: 

03  6-63  1 

C: 

56472- 

-0 

1 : 

43014 

0 

C: 

01  30  7 

1 

0: 

0366  3 

l 

C : 

01045 

1 

36,3620 

C: 

03663 

1 

I : 

77776 

i 

10755  1 

13636 

0 

34737 

0 

00004 

0 

05105 

0 

C: 

02745 

0 

36,3630 

C : 

56067 

0 

05327 

l 

C: 

00172  0 

C: 

10035 

0 

05516 

0 

C: 

00043 

0 

06036 

1 

I : 

77650 

l 

36,3640 

C: 

03663 

1 

06036 

i 

I : 

77624  1 

C: 

75611 

0 

I : 

77776 

1 

00004 

0 

35016 

0 

54003 

0 

36,3650 

40076 

1 

74743 

i 

10000  0 

13660 

0 

40103 

l 

74745 

1 

10000 

0 

13662 

1 

36,3660  

0 46  35 

0 

c : 

77525 

Q 

04674  0 

C : 

40.165 

A 

05516 

0 

C : 

_Q0044 

1 

05504 

0 

C: 

00161 

1 

36,3670 

00004 

0 

00006 

i 

31440  0 

52155 

1 

00006 

1 

40025 

1 

20155 

1 

07256 

1 

36,  7 on 

30  1 55 

o 

7)37  1 0 

1 

05-173  1 

— dL- 

03  542 

1 

0 5327 

1 

r • 

40114 

2L 

r : 

00035 

1 

1515-5 

1 

36,3710 

10000 

0 

13714 

i 

13714  1 

34755 

1 

64753 

1 

56001 

0 

34755 

l 

53515 

0 

36,3720 

31515 

1 

00002 

0 

05567  0 

C: 

01706 

1 

35006 

1 

04616 

1 

C: 

20351 

1 

16001 

1 

3-6-,-3-TB-O 

1 3 724 

4. 

1372  4 

1- 

c : 

OOOQjO  1 

X : 

0 2734 

0 

Cj 

00000 

1 

C: 

05670 

0 

r : 

00000 

1 

C: 

10624 

0 

36,3740 

C : 

00000 

1 

C: 

00764 

1 

C: 

05050  1 

C: 

04050 

0 

C: 

04125 

0 

C: 

04123 

0 

C: 

03462 

1 

C: 

74067 

0 

36, 3 750 

-C-I- 

03750 

0 

_ C-«- 

-037  5 1 1 

0 K SM 

73  533  1 

a 

a 

a 

a 

a 

36,3760 

a 

a 

a 

a 

a 

a 

a 

3 

36, 3770 

a 

a 

a 

a 

a 

a 

a 

a 

CAP  : ASSFMBLE  nF-4GF-  PROGRAM  -I  IJMI-NARY  BY  -NASA -20 2 11  12- 0 1 1 19I-0.2  N.OM«— 2-5-,-La&.8 PAGE  -1706 

OCTAL  LISTING  FOR  PARAGRAPH  # 214,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  OENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


06  311 

1 

Cl 

00007 

Q 

0232  5 

1 

-3A-755 

__L 

5541  4 

0 

5 54-4-0 

1 - 

3 7 1 2000 

3 7 , ?0  10 

55441  0 

55576  0 

34361 

1 

55571 

1 

32476 

0 

02367 

1 

34736 

1 

55664 

0 

37»  2020 

06036  1 

I 

: 62545  1 

C: 

02403 

1 

C: 

15047 

0 

c: 

02401 

0 

I : 

77434 

1 

C:  21520 

0 

56154 

1 

32473  0 

04616  1 

Cjl 

20351  1 

022-2-CL 

0- 

-02037 

_L_ 

0203  1 

i 

06036 

1 

37, 2040 

I : 

47135  0 

C 

: 01046  1 

C: 

21465 

0 

C: 

02401 

0 

IS 

60535 

1 

C: 

01047 

0 

C:  02403 

i 

I : 

57546 

1 

777^2  1 

c 

1 1^43  7 0 

C: 

0240  3 

1 

Ul 

72556 

1 

-C?_ 

16435 

1 

C: 

02401 

0 

I:  73406 

i 

C : 

02675 

1 

37,2060 

C : 

167C5  1 

I 

: 77746  1 

C: 

02677 

0 

I : 

77676 

0 

C: 

36703 

0 

C: 

47255 

0 

I:  77776 

i 

04616 

1 

37,2070 

C: 

16753  1 

34736  1 

70077 

0 

00006 

1 

12076 

0 

25414 

1 

05516 

0 

C: 

00056 

1 

37,2100 

02315  1 

11414  0 

02126 

0 

02320 

1 

00006 

1 

31575 

1 

05277 

0 

C: 

02113 

0 

37, 2110 

C: 

76065  0 

32116  0 

05133 

0 

32116 

0 

05137 

1 

05261 

1 

C:  76500 

0 

34755 

1 

^7  r 2 1 20 

55050  1 

3150.4^  1 

55  05 1 

0 

51416 

0 

55420 

1 

07457 

0 

51414 

1 

02130 

1 

37,2130 

02447  1 

34361  1 

55476 

1 

32474 

1 

55412 

0 

34753 

1 

55537 

0 

34755 

1 

S4  4 1 5 n 

3-40  3 7 J 

55-4-72 

0 

02332- 

1 - 

00004 

0 

34  75-2, 

JO 

05  1 73- 

-1 

C: 

021  5 L- 

-0- 

37,2150 

05155  0 

00006  1 

27412 

0 

31412 

1 

00006 

1 

62161 

0 

34742 

1 

05173 

1 

37,2160 

C: 

02151  0 

34736  1 

05105 

0 

C: 

02166 

1 

C: 

76065 

0 

05261 

1 

5 1414 

1 

02170 

0 

^7, 9 i 7 n 

07447  1 

3141  2_  1 

00006 

1 

62175 

n --- 

05155 

0 

34  756 

1 

55537 

0 

02332 

1 

37,2200 

11473  l 

02205  1 

05677 

1 

41476 

l 

55476 

1 

00006 

1 

41473 

1 

21477 

0 

37 ^ 22  1 0 

060  36  1 

I 

: _4-53A5-  1 

C : 

_Q2501 

1 

C : 

02475 

0 

I ; 

45044 

0 

C: 

76217 

1 

C:  76275 

0 

I : 

56325 

0 

37,2220 

C: 

02477  1 

I 

: 47075  0 

C: 

37056 

0 

C: 

21516 

0 

C: 

0 1051 

1 

I : 

77776 

1 

11414 

0 

02301 

1 

37,2230 

02457  0 

32471  1 

55412 

0 

51416 

0 

41417 

0 

55442 

0 

11415 

1 

12245 

1 

37,2240 

44747  0 

27565  1 

34747 

1 

27567 

0 

12251 

1 

44747 

0 

27565 

l 

34747 

1 

37,2250 

27563  1 

02447  1 

34755 

1 

55404 

1 

55405 

0 

34733 

1 

55440 

1 

55441 

0 

37,2260 

30032,  0 

354-13-  1 

02500 

0 

31502 

1 

55051 

0 

34755 

1 

55050 

l 

02457 

0 

37,2270 

05516  0 

C 

: 00007  0 

44755 

0 

05314 

1 

05472 

0 

I : 

43215 

0 

C:  06432 

1 

C : 

37064 

1 

37, 2300 

I : 

7 76  16  0 

00006  1 

2 3 571 

0 

34755 

1 

54321 

0 

54327 

0 

54323  1 

04616 

1 

37,2310 

C: 

16753  1 

04616  1 

C: 

17671 

1 

03047 

1 

0 1571 

0 

00006 

1 

23571 

0 

02.311 

0 

37,2320 

00006  1 

23571  0 

04616 

1 

C: 

17163 

0 

02311 

0 

00006 

1 

23571 

0 

046  16 

1 

37,2330 

C-i- 

1-6-6-63-  1 

0231  1 0 

_00006 

1 

23417 

) 

02342 

0 

00003 

1 

30067 

0 

00006 

1 

37,2340 

62346  1 

05122  0 

00004 

0 

51415 

0 

40037 

1 

55571 

1 

00004 

0 

51415 

0 

37,23 50 

300-37  0 

-615  7.1  0 

00006 

1 

12335 

1 

51415 

0 

30037 

0 

5 1537 

1 

55472 

0 

37,2360 

04102  0 

51537  1 

55473 

1 

51537 

1 

23474 

1 

00003 

1 

01417 

1 

54001 

l 

37, 2370 

12372  1 

55571  1 

34755 

1 

50001 

0 

54000 

0 

24001 

0 

11571 

1 

12371 

1 

-GAP-:- — A-SS-F-NBLE  REVISION  069-  -OF  AGG-PRQGRAM  LUMINARY  BY  NASA  23  21L-12--0-11 13-1-02-  NO \U- 2 .5 , 1-963 


-PAGE  1707 


OCTAL  LISTING  FOR  PARAGRAPH  # 215,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MFMORY 


ALL  VALID  WORDS  APE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NTE R PR F TI VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


nnnn?  n 

I ; 

6514  5 

o 

X: 

3 7 057 

1 

C: 

-0-2-4-03  1 

- 1 1—5  7546 

1 

_ JjL_ 

73676 

1 

C : 

07403 

1 

I : 

747  6 6 

0 

37^2410 

C: 

36001  0 

C: 

02405 

1 

I : 

77634 

0 

C: 

21462  1 

C:  26433 

1 

C: 

37057 

1 

C: 

02564 

1 

I : 

77616 

0 

37,2420 

I : 

47020  0 

C: 

0005  1 

0 

C: 

21462 

1 

C: 

02431  0 

I:  51025 

1 

C: 

02433 

1 

C: 

76431 

0 

I : 

77624 

1 

3-7f?4  30 

C : 

7-62-75—0 

_ _ I : 

74?  61 

_I 

C: 

. _2021_2_ 

1 

C : 

07405  1 

I:  5 332J. 

1 

C: 

02643 

1 

C : 

07564 

1 

C: 

16564 

1 

37,2440 

C: 

02431  0 

C: 

02433 

1 

I : 

47170 

1 

C: 

02563  0 

C:  21625 

0 

I : 

77650 

1 

C: 

0005  1 

0 

00006 

1 

?14?0  0 - - 

060  3-6 

L 

I : 

77624 

1 

C : 

76470  0 

U 77776 

1 

02315 

) 

01470 

0 

00006 

1 

37,2460 

23417  1 

31416 

0 

55052 

0 

32472  l 

04616 

1 

C: 

20  351 

1 

02270 

0 

01417 

1 

37,2470 

12461  1 

C: 

07626 

1 

C: 

01542 

0 

C: 

01451  0 

C:  00072 

1 

C : 

02737 

0 

C: 

01664 

1 

C: 

01642 

0 

37,2500 

00004  0 

31572 

0 

05173 

1 

C: 

02536 

0 

34755 

1 

54037 

1 

54040 

1 

54041 

0 

37,2510 

00003  1 

33075 

0 

55571 

1 

33076 

0 

02367 

1 

06036 

1 

I : 

: 77735 

0 

C: 

37057 

1 

3 7,-2-620 

C-I- 

25477  1 

_ C: 

3707  0_ 

1 

C: 

_ 26445 

9 - 

C: 

37057  1 

r : 

00325 

0 

C : 

01472 

1 

I : 

: 77735 

0 

C : 

02441 

1 

37,2530 

l : 

50C76  0 

C: 

76534 

1 

I : 

77624 

1 

C: 

76401 

0 

I: 

77776 

1 

03035 

1 

31576 

l 

00006 

1 

3 7 , 2 640 

12642  1 

0 52-6  1 

1 

1 1 530 

_1 

30000 

_J 

-55531 

0 

40000 

0 

55530 

1 

44753 

0 

37,2550 

61562  1 

00006 

1 

12556 

1 

31412 

1 

00006 

1 

62562 

1 

31572 

0 

05173 

1 

37,2560 

C : 

02536  0 

34755 

1 

56037 

0 

54324 

0 

34755 

1 

56040 

0 

54326 

1 

34755 

1 

3 7 ,-2  670 

5^041  1 

54330 

Q_ 

34736 

1 

05105 

0 

r : 

02577 

0 

C : 

76065 

0 

05261 

1 

11562 

0 

37,2600 

02602  1 

02604 

1 

04616 

1 

C: 

15263 

1 

06036 

1 

I : 

77745 

1 

C: 

37066 

0 

C: 

24051 

0 

37  , -2-640 

c+- 

003260 

L: 

7-6605 

0 

C_: 

0.2643 

1 

I : 

57545 

1 

C : 

0OJL6O 

n 

C : 

16523 

1 

C : 

: 00162 

1 

C: 

02527 

0 

37,2620 

I : 

76001  1 

C: 

00001 

0 

C: 

00010 

0 

I : 

57535 

0 

C: 

02563 

0 

I : 

77640 

0 

C: 

: 76772 

1 

I : 

50135 

0 

37,2630 

C : 

02532  1 

C: 

76644 

0 

I : 

72174 

0 

C: 

00014 

1 

C: 

02444 

l 

I: 

62143 

0 

C: 

02243 

0 

C: 

77775 

1 

37,2640 

C: 

12545  0 

I : 

66  104 

1 

C: 

76635 

0 

C : 

02444 

1 

I : 

77770 

l 

C : 

00010 

0 

T : 

41343 

0 

C: 

02533 

0 

37,2650 

C: 

37100  1 

I : 

4366  1 

1 

C: 

21212 

0 

C: 

02501 

1 

C: 

06501 

0 

I : 

40  72  5 

0 

C: 

: 37102 

0 

C: 

02521 

0 

37,2660 

I ' 

7 7Z32  1 

I; 

4542  5 

-0  - 

C: 

7-1216 

1 

C : 

06  5 6 3 

1 

1 : 

77100 

0 

C: 

76646 

1 

r : 

00004 

0 

I : 

56743 

1 

37,2670 

C: 

75324  0 

C: 

75240 

0 

C: 

12453 

0 

I : 

77104 

1 

C: 

76667 

1 

C: 

00010 

0 

I : 

66140 

1 

C: 

02445 

0 

3Xt-27-00 

C-: 

02445  0 

-4  : 

5674  3 

-4 

1 

C : 

02  450 

1 

C: 

752 16 

x 

I ; 

7 7613 

a 

c* 

75?7A 

n 

r \ 

1Z5Q1 

Q 

42743 

1 

37, 2710 

C : 

75314  0 

C: 

75230 

C: 

12463 

0 

I : 

42673 

0 

C: 

75216 

0 

C: 

75266 

1 

C : 

12511 

1 

I : 

40743 

0 

37,2720 

C : 

37105  1 

C: 

7521  6 

0 

I : 

42772 

0 

C: 

75256 

1 

C: 

12521 

1 

I : 

76104 

0 

C: 

76676 

1 

C : 

00010 

0 

37,2730 

_ J : 

_6AZ43  J3 

C:. 

02523 

1 

C: 

02521 

J) 

I : 

55523 

0 

C: 

02531 

1 

I : 

76521 

0 

C : 

02001 

1 

I : 

77745 

l 

37,2740 

C: 

00155  0 

C: 

06531 

0 

I : 

77745 

1 

C: 

00160 

0 

C: 

06521 

1 

I : 

77745 

1 

C: 

00162 

1 

C: 

06523 

0 

37+2750 

I : 

77790-  0 

7673  0 

1 

1 : 

76174 

1 

C : 

00006 

1 

F : 

00002 

0 

T : 

57343 

1 

C : 

02503 

0 

C: 

371  10 

0 

37,2760 

I : 

77722  0 

I : 

73406 

1 

I : 

56072 

1 

C : 

00046 

0 

C: 

10021 

0 

I : 

77745 

1 

I : 

77746 

l 

C: 

10027 

0 

37,2770 

I : 

77704  1 

C: 

76755 

1 

I : 

77776 

1 

35016 

0 

54003 

0 

01400 

1 

11412 

0 

03034 

0 

19: 0 7 NOV.  - -2-5-,-L-96iL 


PAGE  1708 


cap; A-S-S-EKBLE-REVI-SION-0  69  OF  A GG- PROGRAM  LIJMI  NARY  !JY  NA  SA  20 21 112- Oil 


OCTAL  LISTING  FOR  PARAGRAPH  # 216,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "51"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  {INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


0 3 005 

1 

3003? 

a - 

55414 

_a  _ 

06036 

J 

I_L 

6 5 3 4 5 

XL 

C: 

Q_24  7 3.. 

XL. 

3~7 , 3 O QQ 

17, 1010 

C : 

02477 

1 

I : 

55525 

0 

C: 

02501 

1 

I : 

74276 

i 

C: 

37110 

0 

I:  74521 

1 

c: 

02643 

1 

C: 

02740 

0 

3 7 1 3020 

I : 

77776 

1 

32475 

0 

04616 

1 

C: 

17276 

i 

02315 

1 

11440 

1 

02263 

1 

06036 

1 

| : 

77674 

1 

r : 

7640  1 

0 .. 

L: 

77776  1 

02  LI  7 

i 

55412 

0 

11440 

1 

02447 

1 

05155 

0 

37,3040 

35014 

1 

54003 

0 

34753 

1 

55576 

0 

05567 

0 

C:  01600 

0 

02270 

0 

33054 

0 

OS  735 

o 

05-5J.6- 

.0 

_ C: 

00007 

0 

05155 

0 

XL 

0 160.1 

1 

C:  06200 

0 

C: 

00000 

1 

C: 

00000 

1 

37,3060 

C : 

00000 

1 

C: 

00000 

1 

C: 

00000 

1 

C: 

00000 

1 

C: 

00001 

0 

C:  00004 

0 

C : 

00002 

0 

C: 

002  2 0 

1 

37, 3070 

C: 

77776 

1 

C: 

35730 

0 

C: 

00035 

1 

C: 

10317 

0 

C: 

17550 

1 

C:  00115 

1 

C: 

01443 

0 

C: 

04133 

1 

37,3100 

C: 

02265 

1 

C: 

57223 

0 

C: 

66451 

1 

C : 

05427 

0 

C: 

12577 

1 

C:  77567 

0 

C: 

44202 

1 

C: 

24276 

1 

37,3110 

C : 

14066 

1 

C: 

23073 

1 

C: 

11773 

1 

3501  5 

0 

05105 

0 

C:  03145 

1 

C : 

76067 

1 

05221 

0 

004  44 

o 

31044 

-0 

74740 

1 

00006 

1 

13117 

1 

35017 

1 

05072 

I 

C: 

03132 

1 

37,3130 

C: 

76067 

1 

15261 

0 

33240 

1 

04616 

1 

C: 

20212 

1 

05563 

1 

05563 

1 

13137 

0 

f)60  3 A_ 

1 

I: 

77624 

1 

C: 

7 7 371 

1 

I : 

77650 

I 

C: 

7 7150 

0 

_ 06036. 

I : 77624 

1 

CL 

77241 

0 

37,3150 

I : 

52375 

1 

C: 

0000  1 

0 

C: 

02213 

0 

I : 

51406 

1 

C: 

02205 

1 

1:  77301 

0 

C: 

00047 

1 

I : 

53457 

1 

37,3160 

C: 

20201 

0 

I : 

5231  5 

1 

C: 

00007 

0 

C: 

02221 

1 

I: 

77641 

1 

I:  77752 

1 

C : 

26207 

0 

C: 

02213 

0 

37, 3170 

- Li 

632  56- 

0 

C : 

06416 

_L 

I : 

77624 

1_ 

CL 

47565 

1 

I: 

41505 

1 

C:  01734 

0 

I : 

7743  1 

1 

c • 

00001 

0 

37,3200 

I : 

53445 

1 

C: 

00007 

0 

I : 

47  315 

0 

C: 

02213 

0 

C: 

02221 

1 

I : 47256 

0 

C: 

02213 

0 

I : 

63241 

0 

37t  37  1 0 

c i 

000  15 

o 

I : 

50372  1 

jCj 

00007 

0 

I : 

72565 

1 

C: 

00015 

0 

I : 77726 

l 

C: 

26211 

1 

C: 

022  13 

0 

37, 3220 

I : 

5 1041 

0 

C: 

00007 

0 

C: 

77227 

0 

I : 

44345 

0 

C: 

02211 

1 

C:  06432 

1 

C: 

02211 

1 

I : 

77776 

1 

37,3230 

34747 

1 

71044 

1 

00006 

1 

15472 

1 

41044 

1 

74740 

1 

27044 

1 

13140 

0 

37,3240 

C : 

04066 

0 

I : 

47020 

0 

C: 

02116 

0 

C: 

21462 

1 

C: 

34041 

0 

C:  27043 

0 

I : 

77775 

1 

C : 

000  17 

1 

37,3250 

C: 

26140 

0 

C: 

00025 

0 

C: 

16120 

0 

C: 

00015 

0 

C: 

02114 

1 

C:  34041 

0 

C: 

27057 

0 

I : 

77775 

1 

3 7^-3?  60 

c • 

oiin  1 7 

C : 

26-17  0 

o 

C: 

00025 

0 

C : 

02105 

1 

LA 

47014 

1 

C:  0371  2 

0 

C : 

77346 

0 

C : 

21462 

1 

37, 3270 

I : 

52014 

0 

C: 

04307 

1 

C: 

77365 

1 

C: 

77274 

0 

C: 

34041 

0 

C:  27412 

0 

I : 

43175 

0 

C: 

02170 

0 

3 7 T 33-00 

C i 

n 

f • 

2 5 5 3 5 

o 

c ; 

02105 

1 

C : 

15543 

1 

XU 

02114 

1 

Ii  43014 

0 

C : 

X343  44 

XL 

C: 

77311 

l 

37,3310 

C: 

00063 

1 

I : 

77614 

1 

C: 

01473 

0 

C: 

35517 

1 

C: 

27107 

1 

I:  77775 

1 

C: 

00001 

0 

C: 

26213 

0 

37,3320 

C : 

00007 

0 

C : 

36221 

0 

C: 

27412 

0 

I : 

71214 

0 

C: 

0 1473 

0 

C:  00015 

0 

C: 

00041 

1 

I : 

43175 

0 

3 7 , 33  30 

Cl  021 40 

0 

X: 

00263 

0 

c : 

25.53  5 

0 

C: 

02J20 

0 

C: 

1 5543 

1 

C:  02114 

1 

I : 

43014 

0 

C : 

04344 

0 

37, 3340 

C : 

77342 

1 

C : 

00063 

1 

C : 

35517 

1 

C: 

27107 

1 

I : 

77650 

1 

C:  02116 

0 

I : 

52175 

0 

C : 

01221 

1 

37^33-50 

c : 

73?  35 1 

0 

£JL 

36213 

1 

C : 

77353 

1 

I : 

52175 

0 

C: 

01227 

1 

C:  77356 

1 

C: 

1622  1 

1 

C: 

01235 

1 

37,3360 

I : 

77624 

1 

C: 

27412 

0 

I : 

52014 

0 

C: 

01673 

1 

C: 

77326 

0 

C:  34041 

0 

C : 

27057 

0 

I : 

77650 

1 

37,3370 

C: 

77315 

0 

I : 

52020 

1 

C: 

02  116 

0 

C: 

77264 

1 

34757 

0 

03515 

0 

3503  1 

0 

05072 

1 

# 


GAP  : ASS E MBL E REVISION-  06-9 — QT — 4 G-C-  PROGRAM  LUMINARY  BY  NASA  2321112-011 19~-Q2  NDV.  25,1963 PAGE  170.9 — 

OCTAL  LISTING  FOR  PARAGRAPH  # 217,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE  8ASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( INTERPRETIVE 

OPERATOR  WORDS) 

OR  "C"  (CONSTANTS) 

C ; 

0 3 533 

1 

- 401-03 

1 

74773 

1 

26X03  _ 1 

_ _ 44735  0 _ 

70076 

1 

37 , 34 10 

54076 

1 

34751  0 

55257 

1 

33523 

0 

55260 

0 

37707  0 

05105  0 

c 

: 02421 

1 

37, 3420 

C : 

66067 

0 

34752  0 

03511 

1 

35000 

1 

05224 

0 

43524  0 

60030  1 

10000 

0 

4 4X53 

0 

134 3 3 1 

34753 

1 

26030 

-0 

. 03530 

1 

34756  1 

03515  0 

34753 

1 

37,3440 

55257 

1 

34736  1 

05105 

0 

C: 

02200 

1 

C: 

6606  7 

0 

34743  0 

00006  1 

0 5011 

1 

^7^4  sn 

30  1 03 

0 

74747  Q 

00  006 

1 

13503 

0 - 

30102 

1 

74744  0 

00006  1 

1350  1 

1 

37 \ 3460 

10755 

1 

13501  1 

34757 

0 

55056 

1 

40025 

1 

64756  1 

64734  0 

64734 

0 

37,3470 

57055 

0 

34361  1 

54001 

1 

40000 

0 

52755 

1 

36007  0 

05203  0 

c 

: 02102 

0 

37,3500 

C: 

42067 

0 

34751  0 

13422 

1 

00006 

1 

33522 

1 

53253  0 

34751  0 

0 3511 

1 

37,3510 

05261 

1 

54001  1 

40025 

1 

55063 

l 

13516 

1 

54001  1 

40001  1 

52763 

1 

3 7 T 3 5 ? 0 

0-00X12- 

0 

CJ 

Q366  1 _Q  _ 

Cjl 

-64067 

J 

C : 

77527 

1 

C: 

37771 

1 

36244  0 

03515  0 

15155 

l 

37,3530 

00006 

1 

30025  0 

53557 

0 

44755 

0 

55254 

1 

55255  0 

55256  0 

34755 

1 

-X7  T ^S-40  - - 

5-43  30 

-0 

54326  1 

55  2 57 

1 

00006 

1 

4 0040 

1 

_ 53755  0 

520  4 0 1 

54374 

0 

37,3550 

22326 

0 

40041  0 

57256 

1 

56041 

1 

54330 

0 

00006  1 

31557  1 

53750 

0 

37,3560 

00006 

l 

41235  0 

21250 

0 

30032 

0 

55155 

0 

30033  1 

55156  0 

30034 

0 

7 r 3 5 70 

5-5  1 57 

-1 

30324  1 

5-516  0 

0 

30326 

.0  _ 

55161 

1 

30330  1 

55162  1 

00007 

0 

37, 3600 

11257 

1 

13425  0 

33640 

0 

54002 

1 

10330 

0 

13555  0 

13611  0 

13555 

0 

■ 37  1-36  W) 

1 3.5  55- 

-0- 

22  00  7 0 

40326 

] 

13646 

1 

13625 

1 

13616  1 

22041  l 

11256 

0 

37,3620 

41256 

0 

13554  1 

13620 

1 

22330 

1 

13555 

0 

11254  1 

41254  1 

13632 

1 

37,3630 

13626 

1 

13543  1 

54324 

0 

41255 

0 

54326 

1 

44755  0 

52040  1 

13551 

1 

37,3640 

C: 

03435 

0 

05504  0 

C: 

00054 

0 

00004 

0 

00006 

1 

30025  0 

52315  1 

03700 

0 

37, 3650 

03643 

0 

52155  1 

52317 

0 

00004 

0 

04616 

1 

C:  17150  0 

05516  0 

c 

: 00007 

0 

37-,  3660 

05  536 

-0 

-XJ- 

OOP  1 0 Q_ 

34741 

1 

00006 

1 

050  13_ 

0 

05353  1 

C:  07024  0 

c 

: 7Q000 

0 

37,3670 

C : 

0 37  20 

1 

C: 

76060  0 

34774 

1 

04616 

1 

C: 

20476 

0 

13672  0 

13672  0 

1367? 

0 

- 37-1-3700 

000-06- 

-1 

224  56  0 

0 4 103 

1 

00003 

1 

52155 

1 

34x747  1 

_54001  1 

34755 

1 

37,3710 

20155 

1 

44346  0 

70155 

1 

56155 

0 

74346 

0 

10000  0 

24156  0 

001  56 

0 

37,3720 

44741 

0 

00006  1 

03013 

0 

00004 

0 

34755 

1 

54001  1 

52025  1 

03700 

0 

37,-3-730  - 

-03723 

l 

00006  1 

40  317 

0 

20  155 

1 

34742 

1 

07306  0 

34755  1 

54156 

1 

37,3740 

07256 

1 

10154  0 

03747 

0 

03747 

0 

03745 

1 

34742  1 

26154  0 

00006 

1 

37-^3750 

303  15 

-0- 

-201-5-5  1 

07256 

1 

52L55 

1 

20025 

1 

05516  0 

C : 00054  0 

06001 

0 

37,3760 

C: 

03760 

0 

C : 

03761  1 

CKSM 

76777 

1 

3 

a 

a 

a 

a 

37,3770 

a 

3 

a 

3 

a 

5) 

a 

a 

gap  : ASSEMBLE  REVISION  -069  OF  A-GG  PROGRAM-  LUMINARY-  BY  NASA  20  21 1 12-011 1-9;  02-  NQV_ — 25 .1968 EAG-F—l.T  1 0 

OCTAL  LISTING  FOR  PARAGRAPH  # 220,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSEO  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NT E PPRE T I VE  OPERATOR  WORDS)  OR  «C"  (CONSTANTS) 


-0^40  5 

o 

C : 

0?  017 

0 

_u 

60  107 

1 

34740 

-0- 

0-5-146- 

I. 

32076 

1 

046  L6 

1 

40,2010 

C : 

20231 

0 

05563 

1 

05563 

1 

05563 

1 

3475  1 

0 

0 5464 

1 

05155 

0 

00006 

1 

40,2020 

30036 

1 

5375  1 

1 

06036 

1 

I ; 

77624 

1 

C: 

46041 

0 

C:  00001 

0 

C:  14007 

0 

C:  06424 

0 

€ * 

-240  l 1 

l 

C : 

000X17 

-0 

I : 

77656 

1 

— C: 

00007 

0 

— u_ 

7 7641 

1 

-X:  06416 

1 

C:  24021 

1 

C:  06422 

0 

40,2040 

I ; 

77641 

1 

C: 

00007 

0 

C: 

34023 

1 

C: 

47222 

0 

I: 

43244 

1 

C:  60047 

1 

C:  06432 

1 

C:  26207 

0 

r • 

nnnoj 

Q 

I * 

7764  1 

1 

Cl 

. 06  420 

1 

C: 

24073 

0 - 

CJ 

00001- 

0 

I:  77641 

C:  00007 

0 

C:  34021 

0 

40,2060 

C: 

47222 

0 

I : 

43244 

1 

C: 

60064 

0 

C: 

06432 

1 

C: 

02205 

1 

I : 77776 

1 

34777 

1 

046  16 

1 

40,2070 

C : 

01735 

l 

34747 

1 

71044 

1 

10000 

0 

02017 

0 

05472 

0 

C:  04070 

1 

347  5 3 

1 

40,2100 

57012 

0 

5411  5 

0 

11042 

1 

02105 

1 

02112 

1 

42156 

0 

60154 

1 

00006 

1 

40,2110 

12112 

0 

04374 

0 

56154 

1 

54117 

1 

50000 

1 

02116 

0 

03432 

1 

02175 

0 

40,212-0 

02175 

0 

02175- 

-0 

02175 

0 

02175 

0 

02175 

0 

02175 

0 

02161 

0 

02161 

0 

40,2130 

0 34  32 

1 

03432 

1 

03432 

1 

03432 

1 

03432 

1 

03432 

1 

02173 

0 

02354 

1 

40  , p ] 40 

03  Am 

0 

-03432 

1 

0 3 432 

1 

03432 

1 

0343-2- 

1 

. -03432. 

1 

Q3432 

1 

03457 

1 

40  j 2 1 50 

02407 

0 

02374 

0 

02157 

0 

03432 

1 

02467 

0 

02370 

1 

C:  00022 

l 

04635 

0 

40,2160 

C : 

62002 

1 

10777 

1 

02166 

1 

02166 

1 

05155 

0 

05155 

0 

36244 

0 

71000 

1 

_ 40, 21 za 

10000.0 

02175 

- Q_  - 

03432 

1 

34755 

1 

54117 

1 

10777 

1 

02202 

0 

02202 

0 

40,2200 

02201 

0 

05155 

0 

02324 

0 

11015 

0 

34755 

1 

55015 

0 

02207 

0 

50117 

0 

40 T 22  10  

34-0 6 A 

-0 

74346 

0 

-54124 

1 

30777 

0-  - 

5 4143- 

0 

0 3322 

1 

36244 

0 

71000 

1 

40,2220 

10000 

0 

02232 

0 

50137 

1 

57001 

1 

54022 

0 

40022 

0 

40022 

0 

56022 

1 

40,2230 

60117 

0 

02247 

1 

50137 

1 

57001 

1 

54154 

0 

34755 

1 

54155 

l 

34363 

0 

40,2240 

07306 

0 

56155 

0 

60117 

0 

54155 

1 

02247 

1 

26154 

0 

02265 

1 

50137 

1 

40,2250 

55001 

0 

40777 

1 

50137 

1 

62315 

1 

00006 

1 

12257 

1 

0231  2 

0 

36244 

0 

— 40,22  60 

7 10  00 

L 

1-0000.- 

0-- 

02265 

1 

40777 

1 

02313 

l 

44753 

0 

60137 

1 

00006 

1 

40,2270 

62263 

1 

07102 

0 

C : 

02322 

0 

36244 

0 

71000 

1 

50000 

1 

02276 

0 

02303 

0 

4X3,2X300 

000  0-6- 

1 

401  56 

_1 

32  156 

1 

56  1 56 

o 

501  37 

1 

„nnl 

JO 

561  6 5 

o 

50137 

1 

40,2310 

55001 

0 

02263 

1 

10777 

1 

54777 

1 

05155 

0 

C:  00022 

1 

C:  00020 

0 

C:  00012 

1 

40,2320 

C : 

00005 

1 

C : 

00000 

1 

C: 

05174 

0 

C: 

13261 

0 

50777 

0 

32330 

0 

54137 

0 

00002 

0 

40,2330 

_C_J_ 

00004 Q 

CJ 

00004 

Q 

CJ 

-0-0  004 

0 

C : 

00004 

0 

r : 

00004 

0 

C:  00003 

1 

C:  00003 

1 

C:  00003 

1 

40,2340 

C : 

00003 

1 

C: 

00003 

1 

C : 

00002 

0 

C: 

0000? 

0 

C: 

00002 

0 

C:  00002 

0 

C:  00002 

0 

05677 

1 

40,-23-50 

_C; 

00001 

_Q 

C: 

-0-0.001- 

-0-  ... 

C.T 

_ Q-Q-000 

1 

C : 

00000 

1 

34755 

1 

55001 

0 

34360 

0 

54777 

1 

40,2360 

02601 

1 

34753 

1 

55000 

1 

34755 

1 

55013 

0 

34217 

1 

54136 

l 

051  55 

0 

40,2370 

34755 

1 

55002 

0 

34361 

1 

02357 

1 

02446 

0 

02433 

1 

34752 

0 

50137 

1 

G-AfM ASSEMBLE  REVISION-  0 69  OF  AGC  -PRSGRA  M LUMINARY  -BY-NASA-  202111  2 --Oil 1-91.0-2  NOV,  2 5,1968 RAGE-1711 

OCTAL  LISTING  FOR  PARAGRAPH  ,<#  221,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DEMOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


-AO,  2400 64745  0- 2-7000  1 11015-0 3405-5—1 5-5-01-5-  0 02406  1 05155  0 0-2446  0 

1 7 DD1D/.  r,  com  1 (JO/. /.i  i c a loan 


40,2410 

02413 

0 

34753  1 

02377  0 

22002  0 

02324  0 

50137 

1 

32441  1 

54123 

0 

40, 2420 

64753 

1 

54122  1 

34755  1 

54124  1 

56123  1 

03404 

1 

34741  1 

54124 

I 

40  T ?4^n 

SM  ?? 

0 

03404  1 

00001  0 

2200?  0 

02324  0 

50  137 

1 

32441  1 

54122 

1 

40,2440 

64753 

1 

54123  0 

02422  1 

C: 

00005  1 

C 

: 00003  1 

C : 

00000 

1 

22002  0 

36244 

0 

40  f p 460 

7 1 non 

1 

1 0000  0 

-05155  -0 

443i7  1 

0246?  0 

44320 

0 

02462  0 

44321 

1 

40,2460 

02462 

0 

05155  0 

60777  0 

00006  1 

12466  0 

00002 

0 

00001  0 

10777 

1 

40,2470 

64753 

1 

02473  0 

64753  1 

50000  1 

32330  0 

54137 

0 

1L015  0 

02505 

0 

40,2500 

02502 

1 

02502  1 

30137  1 

02527  0 

02522  0 

10137 

0 

54137  0 

02527 

0 

40,2510 

32577 

0 

27013  0 

30137  1 

54125  0 

00006  1 

27001 

0 

04616  1 

C: 

62340 

I 

40,?6?0  - 

30  1 2 5- 

1 

54137  0 

02525  1 

25015  1 

-05155  0 

2200-2- 

0 _ 

02540  1 

67745 

0 

40,2530 

10000 

0 

00002  0 

05677  1 

05155  0 

00002  0 

54777 

1 

22002  0 

02324 

0 

^47  66 

1 

503  3 7 1 

55001  0 

50137  1 

5 5004  0 

541  74 

1 

501  37  1 

4474_5 

1 

40, 2550 

71000 

1 

72600  1 

55000  1 

50137  1 

32570  1 

54143 

0 

03322  1 

50137 

1 

40,2560 

32573 

1 

54777  1 

02601  1 

44752  1 

26777  1 

02601 

1 

50137  1 

34315 

1 

40  ,-2-5  70 

54777 

1 

ooooi  o C: 

00016  -0 

C: 

00005  1 

Cj 

: 00004  0 

C : 

0001  5 

0 

C:  00011  1 

C: 

00003 

1 

40, 2600 

C : 

77774 

0 

30777  0 

54021  0 

42614  1 

00004  0 

50021 

1 

57023  1 

00006 

1 

40^2-6  1 0 

62i>  12 

_Q 

25016  1 

. 00  003-1 

0000?  0 

c 

: 04000  0 

34755 

1 

54156  1 

02652 

1 

40,2620 

02622 

0 

02645  1 

02663  0 

02625  1 

02615  l 

30154 

1 

74733  0 

00006 

1 

40,2630 

12634 

0 

40154  0 

64753  1 

54154  0 

00002  0 

00006 

1 

00033  1 

00006 

1 

40,2640 

74742 

0 

40000  0 

76244  1 

54154  0 

02677  0 

00006 

1 

50156  0 

32674 

0 

40,2650 

52124 

l 

00002  0 

10154  0 

00002  0 

00002  0 

12656 

1 

44735  0 

70154 

0 

-40  ,2-660 

541  54 

0 

51X0-02—0 

00-00-1  0 

00006  1 

_5  01  56  0 

32674 

0 

52155  1 

07306 

0 

40,2670 

52124 

1 

20155  1 

02702  0 

C : 

05605  1 

C: 

: 03656  1 

C : 

16314 

0 

C:  31463  l 

52124 

I 

5 7 1 55 

-4 

0441  5-0 

-04  A 3 5 n 

f ; 

6?5A6  0 

67174  1 

67  166 

, 

0441 6 0 

02711 

1 

40,2710 

02723 

0 

56156  0 

56155  0 

54154  0 

02702  0 

02723 

0 

02702  0 

02723 

0 

40,2720 

36241 

0 

03153  0 

02702  0 

56002  0 

54162  0 

02747 

1 

07256  1 

07102 

0 

4Q-r-2  7 30  ... 

C_: 

-0-0-123 

1 

_ 00-1-6-2  1 

02  53  6 0 

Q2-4 13  0 

30154  1 

03306 

J, 

46?44  1 

501  1 7 

0 

40,2740 

64317 

0 

54777  1 

02747  1 

30155  0 

03306  1 

04635 

0 

C:  62570  1 

5600? 

0 

40,2750 

- 5 4144- 

1 

-50-14  0 1 

02752  0 

02767  0 

50117  0 

30150 

0 

74356  1 

04313 

1 

40,2760 

00006 

I 

50000  1 

30001  0 

52155  1 

34755  1 

54156 

1 

00144  0 

30145 

1 

40,2770 

02760 

1 

50140  1 

02772  1 

02775  0 

03420  1 

00006 

1 

50145  1 

30001 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 222,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORCS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NT  F RPRET I VE 

OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

^4-31  7 

4) 

54777 

1 

34755 

1 

5-41  56 

1 

07256 

03273  1 

nm  36 

_Q 

40,3010 

07102 

0 

C: 

030  74 

i 

10155 

1 

34741 

1 

03016 

0 

44  741 

0 

60155  0 

03165 

0 

40,3020 

04404 

0 

04404 

0 

03174 

0 

04404 

0 

10154 

0 

03031 

0 

03031  0 

40000 

0 

40^  3/13  n 

*3AJ  54 

o 

10L62 

-0  _ 

03.070 

0 

03043 

0 . 

10154 

0 

05677 

1 

03066  1 

03040 

0 

40,3040 

56154 

1 

74733 

0 

54154 

0 

50140 

1 

0 3044 

1 

03050 

1 

03060  1 

03051 

0 

40 t 3 D S-D 

030-63 

1 

_ 4000 0 

0 - 

64752 

0 

00006 

l 

13056 

0 

02625 

1 

04635  0 

C: 

63155 

0 

40,3060 

04616 

1 

C: 

63034 

0 

03047 

1 

04616 

1 

C: 

63026 

0 

03051 

0 

44733  0 

03042 

1 

40,3070 

40154 

0 

74733 

0 

40000 

0 

03042 

1 

C: 

26161 

0 

C: 

30707 

1 

07102  0 

C: 

00123 

1 

40,3100 

56156 

0 

56155 

0 

56154 

1 

00006 

1 

13106 

1 

04145 

0 

03163  0 

031  74 

0 

40,3110 

03056 

1 

07102 

0 

C: 

00123 

1 

03106 

0 

07102 

0 

C: 

00123 

l 

56156  0 

60000 

1 

4Xt , 31-2-0 

54156 

1 

34755 

1 

60155 

0 

03165 

0 

0 3174 

0 

50140 

l 

03126  1 

03137 

1 

40,3130 

30117 

0 

60145 

1 

54002 

1 

56155 

0 

50002 

0 

54001 

1 

03056  1 

34755 

1 

-40t  34-441  - 

-0  3 131 

1 

0716)2 

o 

Cl 

QQ  12  3 

1 

36241 

0 

- 0315  3 

0 

03  116 

I 

0-710?  0 

C_: 

00123  1 

40,3150 

34752 

0 

03153 

0 

03116 

1 

56002 

0 

54124 

1 

56002 

0 

54123  0 

0440  4 

0 

40, 3160 

10123 

0 

03156 

0 

00124 

0 

56155 

0 

60000 

1 

54155 

1 

00002  0 

60154 

1 

40 1 3170 

0 

- 00002 

0 

54162 

0 

00002 

0 _ 

10162 

0 

04145 

0 

00002  0 

04145 

0 

40,3200 

56002 

0 

54144 

1 

10154 

0 

03213 

1 

03213 

1 

64753 

1 

54154  0 

02433 

1 

40 f 32  10  - 

40155 

1 

-54155 

1 

00144 

0 

02413 

0 

00144 

0 

00006 

1 

33261  1 

20155 

1 

40,3220 

00006 

1 

13225 

0 

00006 

1 

34733 

1 

52155 

1 

00002 

0 

56002  0 

54115 

0 

40,3230 

03200 

0 

0321  5 

1 

34751 

0 

54137 

0 

34363 

0 

07306 

0 

50154  1 

34066 

0 

40,3240 

74346 

0 

54124 

1 

34755 

1 

56156 

0 

56155 

0 

54154 

0 

56777 

0 

54143 

0 

40,3250 

10000 

0 

54777 

1 

03322 

1 

10137 

0 

03233 

0 

44  360 

1 

54777 

1 

00115 

1 

40,3260 

tu -O-Qooa- 

1 

C : 

02476 

0 

56002 

0 

54115 

0 

03200 

0 

03232 

1 

5600? 

0 

54115 

0 

40,3270 

03200 

0 

34753 

1 

03233 

0 

56002 

0 

54115 

0 

34755 

1 

54124 

1 

36244 

0 

40,3300 

04404- 

1 

34757 

0 

0 3404 

1 

03200 

D 

34320 

1 

03233 

0 

00006 

1 

73316 

1 

40,3310 

22154 

1 

34755 

1 

54155 

1 

56002 

0 

54115 

0 

03271 

0 

C:  00244 

0 

03306 

1 

40,3320 

04635 

0 

C: 

62347 

0 

56002 

0 

54114 

1 

34346 

1 

70143 

0 

54021 

0 

56021 

1 

-40,3330 

54141 

1 

-34753 

1 

70143 

0 

10000 

0 

03336 

l 

03346 

0 

56124 

0 

04340 

1 

40,3340 

54124 

1 

34736 

1 

70143 

0 

10000 

0 

34752 

0 

64753 

1 

54143 

0 

00004 

0 

40,3350 

50141 

0 

11073 

0 

03354 

0 

05677 

1 

64753 

1 

54142 

1 

50143 

1 

73400 

l 

40,3360 

00006 

1 

60124 

0 

00006 

1 

13376 

1 

50143 

1 

43400 

1 

70142 

1 

60124 

0 

40, 3370 

40000 

0 

5014  1 

0 

57023 

1 

00006 

1 

63376 

0 

25016 

1 

00003 

1 

00114 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 223  , WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORCS  ARE  BASIC  INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

(INTERPRETIVE 

OPERATOR  WORDS)  OR 

"C 

" (CONSTANTS) 

01  740 

0 

— Ci- 

0 7 0.00 

0 

_ _C_t 

03740 

1 

54141 

1 

34752 

0 

—54143 

0 - 

5600? 

0 

AO, 3410 

54114  1 

03347 

1 

03322 

1 

33415 

1 

04640 

1 

C: 

63411 

0 

44360 

1 

54777 

1 

40, 3420 

43437  0 

60136 

0 

00006 

1 

13434 

0 

43436 

1 

60136 

0 

00006 

1 

13431 

0 

n 343?  1 

04704 

0 

-04364 

1 

_ 05  L5-5- 

0 

0565? 

0 

C: 

01501 

1 

C: 

04124 

1 

04202 

0 

40, 3440 

34753  1 

55014 

1 

04204 

0 

04457 

0 

04433 

1 

0 3 545 

0 

44753 

0 

03441 

0 

347^  1 

5-5-0  1 3 

0 

44360 

1 

54777 

1 

- . 03440 

1 

44755 

0 _ 

03441 

0 

4475  1 

1 

40,3460 

00006  1 

0301  1 

1 

10115 

0 

34736 

1 

71021 

1 

10000 

0 

03475 

1 

044  5 7 

0 

40,3470 

11042  1 

03473 

1 

05155 

0 

04635 

0 

C:  20723 

0 

34755 

1 

55012 

1 

11042 

1 

40,3500 

05155  0 

04502 

1 

05155 

0 

30777 

0 

54132 

0 

34753 

1 

03525 

0 

34317 

0 

40,3510 

02535  0 

34752 

0 

03525 

0 

34320 

1 

02535 

0 

34751 

0 

03525 

0 

343  21 

0 

40,35-20—. 

0?535  0 

301  3 7 

1 

54777 

1 

52131 

0 

051  66 

0 

70123 

0 

10000 

0 

00002 

0 

40, 3530 

50002  0 

00002 

0 

34362 

1 

56777 

0 

54140 

0 

11011 

1 

64753 

1 

03306 

1 

40  r 3 S4Q 

0 354? 1 

0-7-60  1 

1 

56-140 

1 

54777 

1 

0 5X35 

0 

1 1 04? 

i 

03550 

1 

05155 

0 

40,3550 

34755  1 

57042 

0 

00004 

0 

05137 

1 

1 1014 

1 

03577 

1 

05155 

0 

03575 

0 

40,3560 

34752  0 

50064 

0 

60164 

1 

50064 

0 

54164 

0 

31002 

1 

54001 

1 

31001 

1 

40-*- 3 5 70 

— 5-0-064  0 

5215  5 

1 

00003 

1 

04457 

0 

05155 

0 

34755 

1 

03561 

0 

347  5 3 

1 

40,3600 

03561  0 

56115 

1 

55012 

1 

00004 

0 

34742 

1 

00006 

1 

05011 

1 

33670 

0 

40  , 34  1 0 

7-J  O 36  1 

6473  5 

_1 

5 5336 

_J 

45036 

713-03 

1 

65026 

0 

55303 

1 

44742 

0 

40,3620 

71302  0 

64742 

1 

55302 

0 

43667 

1 

70110 

0 

64745 

0 

54110 

0 

44742 

0 

40,3630 

00006  1 

03013 

0 

43666 

0 

00006 

1 

03011 

1 

34363 

0 

54117 

1 

00004 

0 

40,3640 

50117  0 

11023 

0 

64753 

1 

03650 

1 

64753 

1 

40000 

0 

73671 

0 

03653 

1 

40,3650 

40000  0 

73671 

0 

40000 

0 

50117 

0 

55023 

0 

00003 

1 

10117 

1 

03636 

1 

40 , 3660 

34755  1 

-54375 

1 

54376  1 

54377 

0 

55357 

0 

05155 

0 

r : 

00104 

1 C: 

00330 

1 

40,3670  C: 

00050  1 C: 

73777 

1 

C: 

03672 

1 

C: 

03673 

0 

CKSM  75045 

1 

a 

a 

2 

40^-3-700 

a 

a 

—2- 

3 

2 

2 

_a 

2 

40,3710 

a 

a 

a 

8 

a 

a 

a 

a 

40, 3720 

a 

a 

a 

a 

a 

a 

a 

a 

40,3730 

a 

a ) 

2 

2 

a 

a 

a 

a 

40,3740 

a 

a 

a 

a 

a 

a 

a 

a 

40,37-50 

— a 

a 

a_ 

a 

a 

a 

a 

a 

40,3760 

a 

a 

a 

a 

a 

a 

a 

a 

40,3770 

a 

a 

a 

a 

a 

a 

a 

a 
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OCTAL  LISTING  FOR  PARAGRAPH  # 224,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD  > "3"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORCS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NT  EPPPET IVE 

OPERATOR 

: WORDS)  OR  1 

"C"  (CONSTANTS) 

l 

Ci?  7 7 5 0 

34755  1 

5-5015 

0 

3 4211 

1 

54136  J 

11013  0 

07035 

__Q 

41,2010 

02035 

0 

02012  6 

32033  0 

61013 

1 

00006 

1 

12027  1 

36244  0 

71000 

1 

41,2020 

10000 

0 

02023  1 

02027  0 

10777 

1 

02351 

1 

02351  1 

02027  0 

41013 

0 

4 1 

s s n i ^ 

n 

04433  1 

01013  1 

C:  0JL43 1 

1 

C:  00034 

0 

34755  1 

55000  1 

44360 

I 

41,2040 

54777 

i 

41001  0 

55041  1 

62034 

1 

00006 

1 

62133  1 

00006  1 

32114 

1 

41 

52-006 

o 

J50  L4lQ  1 

02052  1 

02055 

0 

02221 

1 

10146  0 

02131  0 

02351 

1 

41,2060 

02064 

i 

2501 7 0 

04311  0 

02120 

0 

34735 

1 

55015  0 

44217  0 

601  36 

0 

41 , 2070 

00006 

i 

12073  0 

02116  0 

02307 

1 

1 1000 

1 

04145  0 

44360  1 

54777 

1 

41,2100 

11042 

1 

02104 

0 

02105 

1 

02104 

0 

04427 

1 

57005 

0 

04303  0 

00006 

1 

41,2110 

32114 

1 

52006 

0 

02133 

1 

C: 

02103 

1 

C: 

64101 

0 

C:  7777? 

0 

30156  0 

04303 

0 

41  t ? 1 ?- 0 

447  56 

--Q 

-61001 

1 

OOQO-6 

1 

12133 

0— 

34321 

0 

54777 

1 

31017  0 

03363 

1 

41, 2130 

02133 

i 

64753 

1 

04303 

0 

42145 

1 

61001 

1 

10000 

0 

64753  1 

02141 

1 

4 1 1 2 1 40 

02146- 

-0 

-0  - 

04457 

0 

04635 

J 

Ct 

66000 

1 

C.z  00-0-5  0 

1 

51001  1 

32151 

0 

41,2150 

04640 

i 

C: 

67351 

1 

C: 

62365 

0 

C: 

62373 

1 

C: 

62400 

1 

C:  62360 

0 

C : 

62353  0 

C: 

62573 

1 

41,2160 

C:  60771 

0 

C: 

62351 

1 

C: 

62351 

1 

C: 

61420 

0 

C: 

63230 

0 

C:  63230 

0 

C: 

63230  0 

C: 

63230 

0 

41,-2170 

- Ci- 6 3230 

- 0 

r. : 

63230 

0 

C : 

63230 

0- 

C: 

62351 

1 

C: 

67351 

l 

C:  62351 

1 

C: 

6273?  0 

C: 

62743 

0 

41 , 2200 

C:  62760 

1 

C: 

62703 

1 

C: 

62616 

1 

C: 

62351 

1 

C: 

63353 

1 

C:  62351 

1 

C: 

62351  1 

C: 

63466 

0 

-4W-2-210  _ 

C:  63512 

J 

_ X-: 

-6 145.5 

1 

C_: 

61440 

-0  - 

- C: 

61446 

0 

C: 

63613 

0 

C:  12447 

0 

C : 

63430  0 

C : 

62351 

1 

41,2220 

C:  62351 

1 

10146 

0 

02226 

0 

02351 

1 

02226 

0 

02226 

0 

46241  1 

61001 

1 

41, 2230 

00006 

1 

62233 

1 

02  133 

1 

34757 

0 

54117 

1 

62260 

1 

54145  0 

50117 

0 

41,2240 

30150 

0 

54122 
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OCTAL  LISTING  FOR  PARAGRAPH  # 233,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "51"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  »C"  (CONSTANTS) 
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OCTAL  LISTING  FOR  PARAGRAPH  # 234,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD,  "St"  DENOTES  UNUSED  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

(INTERPRETIVE 

OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 
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03057 

0 
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03067 

0 

03214 

0 

02371 

0 

02120 

0 

02371 

0 

11044  1 

02120 

0 

43,2100 

43,2110 

43,2120 

30100  0 
44752  1 
04364  1 

72127 

04154 
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00006 

1 

16736 

1 

02120  0 

C:  77713 

1 

02405 

1 

02076 

1 

32225 

0 

04,6 16  1 

C~: 

202  1-2 

1 

05472 

0 

12214  0 

32226 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 235,  WITH  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORO,  "3"  DENOTES  UNUSED  FIXED  MEMORY 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  I I NT F R PRET I V E OPERATOR  WORDS!  OR  "C"  (CONSTANTS! 
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0 5012 

1 

X47  62 

0 

55754 

0 
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OCTAL  LISTING  FOR  PARAGRAPH  # 236,  WITH  PARITY  8IT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORO,  "a"  DENOTES  UNUSEO  FIXED  MEMORY 


ALL  VALID 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NTERPRETIVE 

OPERATOR  WORDS)  OR 

"C 

" (CONSTANTS) 

-0 

1 

C-t-  -541  0 4 
00004 

-0 

0 

051  5 5 

c 

02076 

1 

3-502 1 

1 

Q5105  0 

r • 

n?4 i 3 1 

C : 

1 01  04 

Q 

43,3010 

15155 

40111 

1 

74735 

0 

26111 

1 

12121  0 

00004  0 

4473  5 

0 

43,3020 

70111 

1 

54111 

1 

04674 

0 

C: 

40153 

1 

02121 

1 

02123  0 

02076  1 

34737 

0 

o 

f:  070.65 

o 

c : 

46106 

1 

05155 

0 

3 3052 

-0 

70074  0 

00006  1 

12121 

0 

43,  3040 

05516 

0 

C:  00010 

0 

05516 

0 

C: 

00006 

1 

34747 

1 

70075  1 

00006  l 

12121 

0 

0463S 

o 

c * 64054 

1 

C: 

00500 

1 

33  056 

1- 

54335 

0 

02121  1 

C : 

03631  0 

05516 

0 

43,3060 

C 

: 00026 

0 

03064 

0 

05504 

0 

C: 

00026 

0 

05516 

0 

C:  00030  1 

12121  0 

05504 

0 

43,3070 

C 

: 00030 

1 

02121 

1 

02123 

0 

02076 

1 

37707 

0 

05105  0 

C: 

02002  1 

C: 

76065 

0 

43, 3100 

051  55 

0 

00004 

0 

44753 

0 

70101 

0 

54101 

0 

02121  1 

02123  0 

02076 

1 

43,31 10 

35021 

1 

05146 

1 

34753 

1 

55376 

0 

34755 

1 

55362  0 

33253  0 

55361 

0 

43t  31  ?0 

0 35  30 

1 

-23372 

0 

233  73 

-1 

33252 

_i 

54156 

1 

33136  0 

04616  1 

C: 

20212 

1 

43,3130 

03133 

0 

03641 

1 

03123 

1 

33253 

0 

55371 

1 

05472  0 

C: 

01201  0 

3 1376 

1 

1 3 34  4 

0-  - 

03  5 30 

1 

02076 

1 

_ 3502 1 

1 

- - _ 05146  1 

04635  0 

C_: 

40004 

1 

43,3150 

34737 

0 

05105 

0 

C: 

03155 

0 

C: 

66103 

0 

05155 

0 

06036  1 

I : 

77624  1 

C: 

27412 

0 

43,3160 

I 

: 43014 

0 

C:  04063 

0 

C: 

04304 

1 

C: 

67166 

1 

I:  77614 

1 

C:  04263  1 

I : 

77776  1 

33212 

0 

JV3  , ^ 1 70 

o 55-44 

1 

Cl  01 62-6 

1 

_ C : 

01554 

1 

00003 

_L_  _ 

06036 

1 

I : 77624  1 

r. : 

26760  1 

I : 

45154 

0 

43,3200 

c 

: 02030 

0 

C:  26114 

1 

I : 

77776 

1 

33213 

1 

50120 

1 

54052  1 

04635  0 

C: 

27427 

0 

4 3 1 3.?  1 0 

4 

• 77634 

o 

C-i  2012  3- 

-0 

C: 

00051 

_Q 

C: 

67210 

_CL 

- . 05504 

0 

- C:  00221  0 

34755  1 

04635 

0 

43,3220 

c 

: 10037 

1 

02076 

1 

35017 

1 

05105 

0 

C:  02011 

0 

C:  62064  1 

05155  0 

05504 

0 

43,3230 

c 

: 00115 

1 

02121 

1 

05516 

0 

C: 

00115 

1 

02121 

1 

02076  1 

04635  0 

C: 

60000 

1 

43,3240 

c 

: 00061 

0 

C:  01373 

1 

C: 

01461 

0 

C: 

01773 

0 

C:  00060 

1 

C:  60017  1 

C: 

17777  0 

c : 

25252 

0 

43,3250 

c 

: 52400 

1 

C:  76777 

1 

C : 

01371 

0 

C : 

03344 

1 

31360 

0 

00006  1 

13265  1 

00006 

1 

4 3,  32  60 

31 376 

_I 

51377 

.0 

52001 

1 

34755 

-J 

55360 

1 

00004  0 

30002  0 

55357 

0 

43,3270 

55363 

1 

25365 

0 

05571 

1 

C: 

01102 

0 

1 1362 

0 

34755  1 

55362  0 

03344 

1 

43t 3300 

0 1 3 57 

1 

1-00-0-0 

0 

I 32  54 

o 

13254 

0 

1D00Q 

JO 

13?S4  n 

00007  0 

OOOD-6 

L 

43, 3310 

23371 

0 

03340 

0 

11362 

0 

03320 

0 

03311 

1 

03320  0 

25366  0 

01371 

0 

43,3320 

65660 

1 

00006 

1 

63324 

1 

03275 

1 

25366 

0 

64757  0 

50000  1 

03330 

1 

4 3 , 33-30 

0-1-371 

0- 

0X3  7 1 

0 

01371 

0 

03345 

0 

03526 

0 

01371  0 

01371  0 

01371 

0 

43, 3340 

00006 

1 

23361 

1 

04635 

0 

C: 

03211 

0 

03307 

0 

34753  1 

55372  1 

34755 

1 

43^-3X50— 

54003 

0 

33242- 

0 - 

55377 

1 

35012  1 

55373 

0 

03375  0 

35007  0 

55377 

1 

43,3360 

350  12 

1 

55373 

0 

03375 

0 

35007 

0 

55377 

1 

33243  1 

55373  0 

03375 

0 

43,3370 

55372 

1 

33240 

1 

55377 

1 

33241 

0 

55373 

0 

00004  0 

30003  l 

55374 

1 
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-&AP-: ASSEMBLE 


OCTAL  LISTING  FOR  PARAGRAPH 

# 237,  WITH  PARITY  ! 

3IT 

IN  BINARY  AT  THE 

RIGHT  OF  FACH 

WORD,  " 

a" 

DENOTES  UNUSFD 

FIXED  MEMORY 

ALL  VALID 

WORDS  ARE 

BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I" 

( I NT  EPPRFTIVF 

OPERATOR  WORDS) 

OR  "C"  (CONSTANTS) 

nnoo£,- 

543  77  0 

_ _ 3.0  00  i n 

-5 3346 

_o 

31377  0 

5 5 360 

__ ] 

5400 1 1 

24001 

Q 

A3, 3410 

50000 

I 

52001  l 

51377 

0 

40001 

1 

51377 

0 

60000 

l 

03301  0 

31360 

0 

43,3420 

00006 

1 

13445  0 

00006 

1 

51377 

0 

4 0001 

1 

51377 

0 

52001  1 

51377 

0 

4 0 0-00 

o 

51 3 7 7 0 

- -60-00 1 

__Q 

. O3_3_0_l_ 

-0 

3JL3-6D 

0 

00006 

i 

13445  0 

00006 

l 

43,3440 

31376 

1 

51377  0 

52001 

i 

34755 

1 

55360 

1 

00003 

l 

03340  0 

31374 

0 

ci/t  nn^ 

0) 

2 5 17  7 0 

_ -4-1377 

_1 

61373  1 

00006 

1- 

L3457 

0 

03375  0 

11372 

l 

43,3460 

03370 

0 

25372  0 

30003 

i 

64743 

0 

54003 

0 

63251 

1 

00006  l 

13363 

0 

43,3470 

10003 

0 

03356  1 

35007 

0 

54003 

0 

34771 

1 

55372 

i 

64750  1 

50000 

1 

43,3500 

400  00 

0 

11372  1 

03475 

1 

33247 

0 

5 4020 

1 

54022 

0 

54021  0 

540  2 3 

l 

43, 3510 

60020 

0 

60022  1 

60021 

1 

60023 

0 

63250 

0 

03301 

0 

60020  0 

60022 

l 

43f 3520 

-60-021 

1 

- 600?  3 0 _ 

64  753 

-J- 

03  303 

0 - 

25367 

1 

03307 

0 

34754  0 

55376 

0 

43,3530 

34755 

1 

55374  1 

34753 

1 

55377 

1 

34755 

1 

55371 

1 

55373  0 

34753 

1 

43T  3540 

5-53J75- 

a 

31374  0 

540-04 

1 

743-5-0  - 

1 

61373 

1 - 

04651  1 

0357)  I 

64741 

1 

43, 3550 

03602 

0 

40000  0 

55377 

1 

00006 

1 

13557 

1 

34  740 

0 

03560  1 

35020 

0 

43,3560 

55373 

0 

34755  1 

55371 

1 

34753 

1 

55375 

0 

51373 

1 

30000  l 

03571 

1 

4 1, 3 5 70  - 

- 0 3602- 

0 

-553  72  1 

61371 

0 

-55371 

1 

34755 

1 

61371 

0 

55371  1 

41372 

l 

43,3600 

61373 

1 

00002  0 

22000 

1 

31373 

1 

75012 

0 

64350 

0 

00006  1 

13676 

1 

4-3  T 36 1 Q- 

11  3 75—0 

Q-3-644  L 

- JD3-614 

_4 

—03.676 

0- 

1QD01 

1 

1)3  624 

1 

03624  1 

03624 

1 

43,3620 

11375 

0 

03625  0 

37746 

0 

03625 

0 

34753 

1 

55375 

0 

11376  0 

10067 

1 

43,3630 

05122 

0 

03633  1 

0 3 340 

0 

25373 

1 

1 1377 

1 

03541 

1 

03541  1 

03565 

1 

43,3640 

03565 

1 

41374  1 

63731 

1 

00006 

1 

13137 

0 

31374 

0 

64741  l 

55374 

1 

43,3650 

0 36  54 

0 

34735  1 

27374 

1 

03670 

0 

74350 

1 

00006 

1 

13666  .0 

63246 

1 

43,3^60 

_ — _ — 00-006 

1 

136.63  a 

-03  670 

0 

33244 

_Q 

27374 

1 

03670 

0 

63245  1 

27374 

1 

43,3670 

11377 

1 

03533  1 

34753 

1 

03551 

0 

34745 

0 

03533 

l 

31374  0 

74350 

1 

43,3700 

0-4331 

-4— — 

6440 1 1 

31374 

o 

743  57 

o 

00006 

1 

13713 

Q 

5407 1 0 

30QD1 

o 

43, 3710 

74757 

1 

60021  1 

54001 

1 

31376 

1 

00006 

1 

1371  7 

1 

03121  0 

11371 

1 

43,3720 

03722 

0 

03723  1 

64753 

1 

55371 

1 

40001 

1 

61371 

0 

67746  0 

03301 

0 

43,3  730 

0-36-41— 

-1 

C : 

: 661-00  0 

34755 

1 

13741 

l 

34753 

1 

13741 

1 

34752  0 

13741 

l 

43,3740 

36244 

0 

55166  0 

02076 

1 

31011 

0 

00006 

l 

13750 

1 

04635  0 

C: 

11703 

0 

4-3,  3 750 

3 LQ 11- 

-O 

55171  0 

31 166 

1 

55172 

0 

34753 

A 

55  173 

I 

04635  0 

C : 

11322 

) 

43,3760 

C:  03760 

0 

C 

: 03761  1 1 

CKSM  43002 

1 

a 

a 

a 

a 

a 

43,3770 

a 

a 

a 

a 

a 

a 

a 

a 
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OCCUPIED 

LOCATIONS  PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

4000 

TC 

4045  168 

5360 

TO 

5425 

1293 

6522 

TO 

6555 

1015 

00,2236 

TO 

00,2276 

10  49 

4046 

TO 

4065  169 

5426 

TO 

5435 

1294 

6556 

TO 

6623 

1016 

00,2277 

TO 

00,2331 

1050 

4 1 n 1 1 70 

- 5436 

-TO  - 

54-44 

1298 

6624 

1017 

00.2332 

TO 

OOj  2 35  2 

1051 

4102 

TC 

4123  394 

5445 

TO 

5455 

1300 

6 625 

TO 

6665 

1018 

00,2353 

TO 

00,2421 

1052 

4 1 4 4 59 

-5456 

130  1 

£-666 

-J-CL 

6721 

10X9 

00,2422 

XTO 

00,2436 

1033 

4145 

TC 

4153  459 

5457 

TO 

5463 

1303 

6722 

TO 

6745 

1020 

00,2437 

TO 

00,2477 

1054 

41  54 

TO 

4203  465 

5464 

TO 

5503 

1348 

6 746 

TO 

7001 

1021 

00,2500 

TO 

00,2537 

1055 

^4204 

TC 

4206  467 

5 504 

TO 

5532 

-X369 

7 002 

TO 

7003 

1022 

00,2540 

TO 

00,2567 

1056 

4207 

TO 

4242  468 

5533 

TO 

5543 

1370 

7004 

TO 

7060 

1023 

00,2570 

TO 

00,2607 

1057 

4243 

TC 

430  2 46-9 

_XQ 

-5562 

1373 

7 061 

TO 

7067 

1024 

00,2610 

TO 

00,2624 

1058 

4303 

TC 

4335  473 

5563 

TO 

5566 

1374 

7070 

TO 

7101 

1025 

00,2625 

TO 

00,2641 

1059 

4336 

TC 

4377  474 

5567 

TO 

5620 

1375 

7102 

TO 

7134 

1026 

00,2642 

TO 

00,2653 

1060 

4400 

TC 

4436  475 

5621 

TO 

5635 

1376 

7135 

TO 

7152 

1027 

00,2654 

TO 

00,2720 

1061 

44  37 

TO 

446 1 4 77 

5636 

TO 

5713 

1377 

7153 

TO 

7213 

1028 

00,2721 

TO 

00,2747 

1062 

44-62 

TC- 

-4511  478 

57  14 

XQ 

5743 

X378 

7-214 

TO 

7235 

1029 

00.2750 

TO 

00,3006 

1063 

4512 

TC 

4522  532 

5744 

TO 

5746 

1399 

7236 

TO 

7253 

1030 

00,3007 

TO 

00,3022 

1064 

45  ?Z 

TC 

-4536  533 

5747 

TO 

5 765 

1400 

7254 

in 

7314 

103J. 

00.3023 

TO 

_0  0j  3072 

1065 

4537 

TC 

4563  534 

5766 

TO 

5767 

27 

7315 

TO 

7327 

1032 

00,3073 

1066 

4564 

TC 

4577  535 

6000 

55 

7330 

TO 

7340 

1033 

00,3074 

TO 

00,3132 

1067 

46  00 

10 

4615  536 

6001 

XEL 

6010 

239 

7341 

TO 

7377 

1034 

00,3133 

TO 

00,3150 

1068 

46  16 

TO 

4644  993 

6011 

TO 

6021 

526 

7400 

TO 

7423 

1035 

00,3151 

TO 

00,3173 

1069 

4645 

TC 

4673  994 

_ 6022 

_IQ 

6026 

604 

7424 

TO 

7456 

1036 

00,3174 

TO 

00, 3206 

1070 

4674 

TC 

4726  995 

6027 

TO 

6035 

757 

7457 

TO 

7524 

1037 

00,3207 

TO 

00, 3231 

1071 

4727 

TO 

4731  996 

6036 

TO 

6055 

997 

7525 

TO 

7570 

1038 

00,3232 

TO 

00,3277 

1072 

4732 

TO 

4762  1090 

6056 

TO 

6101 

998 

7571 

TO 

7622 

1039 

00,3300 

TO 

00,3342 

10  73 

4763 

TC 

5010  1091 

6102 

TO 

6113 

999 

7623 

TO 

7653 

1040 

00,3343 

TO 

00,3404 

10  74 

5041 

TO 

5031  1092 

6114 

TO 

6142 

1000 

7 654 

TO 

7706 

1041 

00.3405 

TO 

00,3455 

1075 

5032 

TC 

5071  1097 

6143 

TO 

6211 

1001 

7 707 

TO 

7721 

1092 

00,3456 

TO 

00,3516 

1076 

5072 

TG 

5127  10  98 

_ 6212 

TO 

6213 

XQ-0-2- 

7777 

TO  7746 

10-9,3 

00,351 7 

TO  00,3552  1 077 

5130 

TC 

5132  1099 

6214 

TO 

6245 

1003 

7 747 

TO 

7752 

1296 

00,3553 

TO 

00,3607 

1 078 

5133 

TC 

5164  1100 

6246 

TO 

6261 

1004 

7753 

TO 

7754 

1453 

00,3610 

TO 

00, 3651 

1 079 

5165  - 

-XC 

5 17-3  1111 

62  62 

TO 

6272 

1005 

7755 

TO 

7756 

27 

00,3652 

TO 

00,3713 

1080 

5173 

TO 

5234  1114 

6273 

TO 

6 332 

1006 

00, 2000 

TO 

00,2016 

1008 

00,3714 

TO 

00,3734 

1081 

3-235  1115 

6333 

TO 

6352 

1007 

00,  2 017 

TO 

00,2041 

1042 

00,3735 

TO 

00,3767 

1371 

5236 

TC 

5260  1116 

6353 

TO 

6370 

1009 

00,  2042 

TO 

00,2100 

1043 

00,3770 

TO 

00,3773 

1372 

5261 

TC 

5276  1124 

6371 

TO 

6412 

1010 

00,2101 

TO 

00,2120 

1044 

00,3774 

TO 

00,3775 

27 

5277 

TC 

5300  1125 

6413 

TO 

6432 

101  1 

00, 2121 

TO 

00,2143 

1045 

01,2000 

TO 

01,2001 

58 

5301 

TC 

5310  1126 

6433 

TO 

6456 

1012 

00,2 144 

TO 

00,2171 

1046 

01,2002 

TO 

01,2031 

254 

5311 

-1C 

53  26  1 2-88 

6457 

TO 

6466 

1013 

OCj  2 172 

TO 

00,2213 

1047 

01,2032 

TO 

01,2067 

255 

5327 

TC 

5357  1292 

6467 

TO 

6521 

1014 

00, 2214 

TO 

00,2235 

1048 

01,2070 

TO 

01,2133 

256 

GAP  : ASSEMBLE  REV  IS  ION  0 69  - OF  AGC- PROGRAM  LUMINARY  BY  NASA  2021112-011 


- 101-02  NOV-—  2 5*1-968 


-PAG-E-1 72-7 


OCCUPIED 

LOCATIONS  PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

OCCUPI ED 

LOCATIONS 

PAGE 

0 1 , 21 34 

TC  01,2171  2 57 

01,3773 

TO 

01,3774 

27 

05,2000 

58 

06,2130 

TO  06,2171 

1 75 

01 ,2172 

TC  01,2202  258 

04,2000 

TO 

04,2017 

60 

05, 2001 

TO 

05,2020 

67 

06,2172 

TO  06,2207 

176 

0 4 t 20 20 

TO 

04*2023 

61 

-0.5*  2021 

TO  05.2064 

63 

06,2210 

TO  06*2226 

177 

01,2204 

TC  01,2262  309 

04,2024 

TO 

04,2027 

239 

05,2065 

208 

06, 2227 

178 

o 4t  7 mn 

ID 

-04 2016 

_2_40 

Q-5.f-2-0.66-.. 

xo 

05,2136 

209 

06  T ??  30 

TO-  06*  2274 

1 79 

01,2340  311 

04  j 2037 

TO 

04,2071 

242 

05,2  137 

TO 

05,2171 

210 

06,2275 

TO  06, 2342 

180 

01,2341 

TC  01,2366  1082 

04,2072 

TO 

04,2141 

243 

05,2172 

TO 

05,2231 

21  1 

06,2343 

TO  06,2373 

181 

0 1 1 23-6-7 

TP  01,7424  -10  83  _ _ - 

- 04,2142 

TO 

04.2204 

244 

05,2232 

TO 

05,2275 

213 

06,2374 

TO  06,2415 

1 82 

0 1,2424 

TC  01,2443  1084 

04,2205 

TO 

04,2252 

245 

05, 2276 

TO 

05,2302 

214 

06,2416 

TO  06, 2433 

1 83 

£j  i tj>444 

TC  01,7463  1.0.85-  _ 

04, 2253 

T CL 

04.2320 

- 246 

05. 2303 

TO 

05j  23 43 

215 

06,2434 

TO  06,2457 

184 

01,2464 

TC  01,2512  1086 

04,2321 

TO 

04,2364 

247 

05,2344 

TO 

05,2356 

216 

06,2460 

TO  06,2513 

1 85 

01,2513 

TC  01,2527  1087 

04,2365 

TO 

04,2423 

248 

05,2357 

TO 

05 ,2406 

217 

06, 2514 

TO  06,2532 

186 

01,2530 

TC 

01  ,2551 

10  88 

04,2424 

TO 

04,2461 

249 

05,2407 

TO 

05,2445 

219 

06,2533 

TO 

06,2555 

187 

01,2552 

TC 

01,2575 

10  89 

04,2462 

TO 

04,2532 

250 

05 ,2446 

220 

06,2556 

TO 

06,2564 

188 

01  ,-2-5  76 

TC 

-0  1 ,2632 

1X01 

Q-4,2533 

- TO 

04,-2551 

383 

05.2447 

_ TO 

05*2510 

226 

06,2565 

TO 

06,2613 

18P 

01,2633 

TC 

01,2700 

1102 

04,2552 

TO 

04,2565 

384 

05,2511 

TO 

05,2565 

227 

06, 2614 

TO 

06,2621 

190 

01  T ?70 1 

LC 

O 1 r?7^ 

11  03 

0-4,  2 5 66 

TO 

04, 2672 

38  5 

0 5 ,-2  566 

TO 

05 ,2  6-43 

22-8 

06,2622 

TO 

06*2647 

191 

01,2755 

TC 

0 1,2766 

1104 

04,2573 

TO 

04,2603 

470 

05, 2644 

TO 

05,2666 

229 

06,2650 

TO 

06,2670 

192 

01,2767 

TC 

01,3017 

11  05 

04,2604 

TO 

04,2612 

477 

05,2667 

TO 

05,2731 

230 

06,2671 

TO 

06,2702 

193 

01,3020 

IQ 

0 1 ,3066 

1106 

04,26 13 

- XO 

04,2670 

710 

05,2732 

TO 

05,3006- 

231 

06.2703 

TO 

06, 2717 

1 94 

01,3067 

TC 

01,3077 

1107 

04,2671 

TO 

04,2747 

711 

05, 3007 

TO 

05,3051 

232 

06,2720 

TO 

06,2754 

195 

01 , 3 X00 

TC 

0 1 *3 145 

11  08  - 

-0  4,2  7 50 

TO- 

04,3004 

118  1 

0 5*  3 052 

TO 

05,3077 

233 

06,2755 

TO 

06,3005 

196 

01,3146 

TC 

01,3150 

1109 

04,3005 

TO 

04,3050 

1183 

05,3100 

TO 

05,3144 

234 

06,3006 

TO 

06,3025 

197 

01,3151 

TC 

01,3202 

1110 

04,3051 

TO 

04,3105 

1184 

05,3  145 

TO 

05,3214 

235 

06,3026 

TO 

06,3033 

198 

01,3203 

TC 

01,3225 

1111 

04,3106 

TO 

04,3132 

1221 

05,3215 

TO 

05,3271 

236 

06,3034 

TO 

06 , 3051 

199 

01,3226 

TC 

01,3254 

1117 

04,3133 

TO 

04,3173 

1222 

05, 3272 

TO 

05,3344 

237 

06,3052 

TO 

06,3070 

200 

Q-l-t  3255 — 

TC  O 1 .3304 

ilia 

_ -0  4 , 3 1 74 

TO 

04,3211 

1326 

03, 3 345 

TO 

05,3367 

238 

06,3071 

TO 

06,3110 

201 

01,3305 

TC 

01,3350 

1119 

04,3212 

TO 

04,3214 

1327 

05,3370 

TO 

05,3427 

264 

06,3111 

TO 

06,3131 

202 

0-1  ? 3X51- 

— IG- 

01,^365 

44  2-0 

04,3215 

- TO 

04, 3237 

1 332 

05,3430 

TO  0 S.34S? 

9ft* 

06,  31  3? 

TO 

06.3143 

203 

01,3366 

TC 

01,3370 

1121 

04,3240 

TO 

04,3312 

1333 

05, 3453 

TO 

05,3531 

987 

06,3144 

TO 

06,3155 

2 04 

01,3371 

TC 

01,3403 

1122 

04,3313 

TO 

04,3321 

1334 

05, 3532 

TO 

05,3573 

988 

06,3156 

TO 

06,3222 

206 

01-,  3404 

TC 

0 1,3446 

1123- 

0 4,3322 

TO 

04,3346 

1382 

05,3  574 

TO 

05.3630 

989 

06*322  3 

TO 

06, 3262 

707 

01,3447 

TC 

01,3475 

1126 

04,3347 

TO 

04,3420 

1383 

05,3631 

TO 

05 ,3700 

991 

06,3263 

TO 

06, 3326 

339 

01 , 34  76 — 

TC 

-O.L,i5 22 

1127 

- 04,3421 

JO 

04,3456 

1384 

0 5, 3701 

JO 

05 ,3704 

992 

06,3327 

340 

01,3523 

TC 

01,3562 

1297 

04,3457 

TO 

04,3521 

1385 

05,3705 

TO 

05,3706 

28 

06,3330 

TO 

06,3355 

341 

01,3563 

TC 

01,3605 

1298 

04,3522 

TO 

04,3570 

1386 

06,2000 

TO 

06,2011 

170 

06,3356 

TO 

06,3415 

342 

01 , 3606 

TC 

01,3656 

12  99 

04, 3571 

TO 

04,3635 

1387 

06, 2012 

TO 

06,2023 

171 

06,3416 

TO 

06,3424 

343 

01,3657 

TC 

0 1,3703 

1300 

04,3636 

TO 

04,3677 

1388 

06,2024 

TO 

06,2074 

172 

06,3425 

TO 

06, 3453 

344 

- 01*3704 

-J-C- 

-01.3  74  2 

-13  01  - 

04,3700 

TO 

04,3711 

1389 

06,2075 

TO 

06,2115 

173 

06, 3454 

TO 

06,3506 

345 

01, 3743 

TC 

01,3772 

13  02 

04,3712 

TO 

04,3713 

27 

06,2116 

TO 

06,2127 

174 

06,3507 

TO 

06,3554 

346 

I 
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06,3555 

06,3625 

06,3644- 

06,3713 

-0-6,-3715 

07,2000 

07,2044 

07,2060 


TC  06,3624  347 

TC  06,3643  348 

TC  06,37-1-2 3 49 

TC  06,3714  350 

TG  06,3 716 2-8 

TC  C 7 , 204  3 259 

TC  07,2057  260 

TC  07,2-12  5 261- 


07,3665  TO  07,3670  1323 
07,3671  TO  07,3716  1324 

0 7, 3.717 TIL  07,3745  13 2 5 

07,3746  TO  07,3747  28 

10,2000 711—1-0,-2-0-40 7-0-1- 

10,2041  TO  10,2070  702 

10,2071  TO  10,2101  1288 
10,2102  TO  10,2120  1294 


10,3747 
1 1, 2 000 
11.2037 
1 1, 2 117 

1 1,2163 
11,2235 
11, 2266 
-IX,  2 311 


TO  10,3750  28 

TO  11,2036  695 

TO  11.2116  696 

TO  11,2162  697 

-TO  1 L,  22  34 698 

TO  11,2265  699 

TO  11,2310  1096 
TO  11. 2364  1223 


12,2745 
12 ,3000 
12,3053 
12,3131 


12,3205- 

12,3223 

12,3304 

12,3364 


TO  12,2777  1182 
TO  12,3052  1185 
TO  12,3130  1 l 86 
TO  12,3204  1187 

TO  1 2.3222  1 1 88 
TO  12,3303  1 189 
TO  12,3363  1190 
10  12,3440  1191 


07,2126 

TC 

TC 

TC 

TC 

07,2141 

07-,2-1-7-a 

07,2201 

07,2254 

2 62 

263 

2 66 
2 67 

10,2121 

LO  , 21  70 

10,2204 

10,2207 

TC 

. _ T.Q. 

TO 

TO 

10,2167 

10,2203 

1295 
129  6 

1 1,2365 
11.2411 

TO 

TO 

11,2410 

11,2430 

1224 

1225 

12,3441 

12.3512 

TO 

TO 

12,3511 

12,3555 

1192 

1193 

07,2171 

07,2202 

10,2206 

10,2252 

1348 

1349 

11,2431 

11,2510 

TO 

TO 

11,2507 
11 ,2571 

1226 

1227 

12,3556 

12,3637 

TO 

TO 

12,3636 

12,3715 

1194 

1195 

07,2255 

TC 

07,2331 

2 68 

10,2253 

TO 

10,2311 

1350 

1 1 , 2572 

TO 

11 ,2653 

1228 

12,3716 

TO 

12,3740 

1196 

07,2332 

TC 

07,2401 

2 69 

10,2312 

TO 

10,2342 

1351 

1 1 ,2654 

TO 

11,2725 

1229 

12, 3741 

TO 

12,3742 

28 

07,24  02 

TC 

07  ,2453- 

2 70 

10,23 43 

T_0_ 

10,2403 

1352  . 

11,2726 

TO 

1 1 , 3004 

1230 

13,2000 

TO 

13,2025 

61 

07, 2454 

TC 

07,2460 

2 71 

10,2404 

TO 

10,2447 

1353 

11,3005 

TO 

11 ,3066 

1231 

13,2026 

TO 

13,2065 

251 

07 , ?4A 1 

1£ 

0 7 ,2  *5-1-3- 

2 72  

10,2450 

Tfl 

10,2507 

1354 

1 1 , 3067 

TO 

11,3150  . 

173? 

1 3.7066 

TO 

07,2514 

TC 

07,2565 

2 73 

10,25  10 

TO 

LO, 2554 

1355 

11,3151 

TO 

11,3232 

1233 

13,2070 

TO 

13,2113 

334 

07,2566 

TC 

07,2576 

2 74 

10,2555 

TO 

10,2614 

1356 

11,3233 

TO 

11,3314 

1234 

13,2114 

TO 

13, 2132 

335 

07, 2577 

jm 

-0-7-,  2 6 26- 

275 

1 0 , 2 6 15 

TO- 

1-0 , 2 663_ 

1357 

11.3315 

TO 

11, 3344 

1235 

13,2133 

TO 

13,2160 

336 

07,2627 

TC 

07,2666 

2 76 

10,2664 

TO 

10,2726 

1358 

1 1, 3345 

TO 

11,3371 

1236 

13,2161 

TO 

13,2206 

337 

07, 2 667 

TC 

_Q  7*2725 

13  04  -- 

L0-,  2 7 2 7 

TG 

10,2776 

1359 

11,  3372 

TO 

11.3450  1237 

13,2207 

TO 

13,2232 

717 

07,2726 

TC 

07,2752 

13  05 

10,2777 

TO 

10,3047 

1360 

11,3451 

TO 

11,3530 

1238 

13,2233 

TO 

13,2314 

718 

07,2753 

TC 

07,3012 

13  06 

10,3050 

TO 

10,3117 

1361 

1 1,  3531 

TO 

11,3606 

1239 

13,2315 

TO 

13,2350 

7 19 

07,3013 

TC 

07,3057 

1307 

10,3120 

TO 

10,3  165 

1362 

1 1 ,3607 

TO 

11,3610 

1240 

13,2351 

TO 

13,2377 

1128 

07,3060 

TO 

07,3116 

13  08 

10,3166 

TO 

10,3236 

1363 

1 1, 3611 

TO 

11,3667 

1241 

13,2400 

TO 

13,2421 

1129 

0-7,31  17 

TC 

CL7- , 3 162- 

13.09 

10,3237 

TO 

10,3275 

1364 

1 1,3  670 

TO 

11,3721 

124? 

13,2422 

TO 

13,2457 

1130 

07,3163 

TC 

07,3206 

1310 

10,3276 

TO 

10,3346 

1365 

1 1, 3722 

TO 

11 ,3723 

28 

13,2460 

TO 

13,2507 

1131 

Q7, 32  07 

TC 

C 7 ^3  2 45 

1311 

10,334-7 

TO-- 

10,-3403- 

1366 

1-2,-2-000 

TO 

_L2_f  2050 

1169 

1 3,2510 

Tn  13.7547 

1 137 

07,3246 

TC 

C 7 , 3 275 

1312 

10,3404 

TO 

10,3415 

1367 

12,2051 

TO 

12,2132 

1170 

13,2550 

TO 

13,2557 

1133 

07,3276 

TC 

07,3341 

1313 

10,3416 

TO 

10,3450 

1368 

12,2133 

TO 

12,2212 

1171 

13,2560 

TO 

13,2603 

1134 

07, 3342 

3C- 

0 7 ,335  7 

1314  

I Oj  3 4 5 1 

TO 

10, 3461 

1376 

12,2213 

TO 

12,2270 

117? 

13,2604 

TO 

13,2620 

17  04 

07,3360 

TC 

07,3403 

1315 

10,3462 

TO 

10,3516 

1390 

12,2271 

TO 

12,2346 

1173 

13,2621 

TO 

13,2667 

1205 

07,3404 

-TC. 

0 7 ,3.436 

1X16 

10,3517- 

TO 

10,3556 

1391 

l 2j  2 347 

TO 

12,2426 

1174 

13,?670 

TO 

13,2734 

1206 

07, 3437 

TC 

07,3501 

13  17 

10,3557 

TO 

10,3563 

1392 

12,2427 

TO 

12,2433 

1175 

l 3,2735 

TO 

13,3010 

1207 

07,3502 

TC 

07,3551 

1318 

10,3564 

TO 

10,3624 

1393 

12,2434 

TO 

12,2515 

1176 

13,301 1 

TO 

13,3042 

1 208 

07,3552 

TC 

07,3556 

1319 

10,3625 

TO 

10,3631 

1394 

12,2516 

TO 

12,2550 

1177 

13,3043 

TO 

13,3104 

12  09 

07,3557 

TC 

07,3603 

1320 

10,3632 

TO 

10,3663 

1395 

12,2551 

TO 

12,2624 

1178 

13,3105 

TO 

13,3133 

1210 

07,3604 

TC 

0 7 , 3 A3  4 

1321 

10*3 664 

TO 

l Oj  3 720 

1396 

1 2_,  2 625 

TO 

12,2665 

1179 

13,3134 

TO 

13,3212 

1211 

07,3635 

TC 

07,3664 

1322 

10,3721 

TO 

10,3746 

1397 

12,2  666 

TO 

12,2744 

1180 

13,3213 

TO 

13, 3254 

1212 
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13,3255 

TC 

13,3334 

1213 

14,3711 

TO 

14,3712 

30 

16,2210 

TO 

16,2243 

1416 

17,2774 

TO 

17,3045 

1449 

13,3335 

TO 

13,3416 

1214 

15,2000 

TO 

15,2045 

265 

16, 2244 

TO 

16,2306 

1417 

17, 3046 

TO 

17,3066 

1450 

1 3 J ^41  7 

LC 

1 ^47 2 

12-15 

JL-5  *2  0 46 

TC 

15-,Z0_4J- 

266 

1-6  *-2-3.0  7 

TO 

16,2352 

1418 

17,3067 

TO 

17,3137 

1451 

13,3473 

TC 

13,3512 

1216 

15,2050 

TO 

15,2054 

926 

16,2353 

TO 

16,2430 

1419 

17,3140 

TO 

17, 3206 

1452 

\ 

1217 

1 5*20-55 

T-Q- 

1 5-*-2 133- 

92  7 - 

16*  P 43 1 

_I£L 

16,2510 

1 420 

1 7,3207 

TO 

17.3247 

1455 

13* 3551 

TC 

1513576 

12  18 

15,2134 

TO 

15,2173 

928 

16,2511 

TO 

16,2571 

1421 

17,3250 

TO 

17,3321 

1456 

13,3577 

TC 

13,3624 

1219 

15,2174 

TO 

15,2222 

929 

16, 2572 

TO 

16,2640 

1422 

17,3322 

TO 

17,3367 

1457 

1 3* 362  3— 

T£ 

1 3 T 370  2 

12  20 

1 5,2223 

TQ 

1 5 ,2300 

93.0  _ 

16*  2 641 

TO 

1 6 i_2  7 1 2 

1423 

17,3370 

TO 

17, 3435 

1458 

13,3703 

TO 

13,3720 

1221 

15,2301 

TO 

15,2347 

955 

16, 2713 

TO 

16,2755 

1424 

17,3436 

TO 

17,3477 

1459 

1 3T  3 7 2 1 

XT  1 ^17^4 

1242 

L5-fX350- 

TO 

15,-2-425 

95-6 

1 6,2756 

TO 

16,3021  1425 

l 7*  3500 

TO 

17,3543 

1460 

13,3735 

TC 

13,3750 

1243 

15,2426 

TO 

15,2503 

957 

16,3022 

TO 

16,3047 

1426 

17,3544 

TO 

17,3564 

1461 

13,3751 

TC 

13,3752 

29 

15,2504 

TO 

15,2537 

958 

16,3  050 

TO 

16,3117 

1427 

17,3565 

TO 

17, 3624 

1462 

14, 2000 

TC 

14,2007 

60 

15,2540 

TO 

15,2601 

959 

16,3120 

TO 

16,3175 

142  8 

17,3625 

TO 

17,3676 

1463 

14,2010 

TC 

14,2065 

63 

15,2602 

TO 

15,2626 

960 

16,3176 

TO 

16,3256 

1429 

17, 3677 

1464 

1 4*3X66  - 

IX 

14-.2-147- 

64 

1 5,2  6?  / 

TO 

15,2637 

961 

1 6_*-3  257 

TO 

16,3326 

1430 

17*3700 

TO 

1 7, 3736 

1501 

14, 2150 

TC 

14,2231 

65 

15,2640 

TO 

15,2704 

962 

16,3327 

TO 

16,3372 

1431 

17,3737 

TO 

17,3762 

1502 

X4  r 2 2 32 

-TQ- 

lA-,  2 34-3 

-66 

15 -r  2 705 

TO 

1 5, 2163 

96  3 

16,3  373 

TO 

16.1441  1412 

17,3 16  3 

TO 

1 7 *J3  764 

30 

14,2314 

TC 

14,2346 

67 

15,2764 

TO 

15,3040 

964 

16,3442 

TO 

16,35  13 

1433 

20,2000 

57 

14, 2347 

TC 

14,2421 

932 

1 5,3041 

TO 

15,3077 

965 

16,3514 

TO 

16,3565 

1434 

20,2001 

TO 

20, 2003 

58 

14,2422 

TC 

14,2451- 

933 

--  15,3100 

-TO 

15,31 1 3 

966 

l 6*  3 566 

TO 

16,3623 

1435 

20,2004 

TO 

20,2042 

307 

14,2452 

TC 

14,2464 

934 

15,3114 

TO 

15,3155 

967 

16,3624 

TO 

16,3675 

1465 

20,2043 

TO 

20,2114 

308 

14-,2  465 

- TC 

14,2-5-46 

935.  . 

15,3  1 56 

TQ  15,3234 

96  8 

16, 3676 

Tn 

16j3717 

1466 

20,211 5 

TO 

20,2121 

821 

14,2547 

TC 

14,2627 

9 36 

15,3235 

TO 

15,3272 

969 

16,3720 

TO 

16,3750 

1470 

20,2122 

822 

14,2630 

TC 

14,2655 

937 

15,3273 

TO 

15,3316 

970 

16,3751 

TO 

16,3754 

1471 

20,2123 

TO 

20,2150 

1402 

14,2656 

TC 

14,2730 

938 

15,3317 

TO 

15,3373 

971 

16,3755 

TO 

16,3756 

30 

20,2151 

TO 

20, 2205 

1403 

14,2731 

TC 

14,3012 

939 

15,3374 

TO 

15,3443 

97  2 

1 7,  2000 

TO 

17,2035 

1399 

20,2206 

TO 

20, 2225 

14  04 

14,  30 13 

TX 

14*  302  4 

940 

1 5 , 3444 

T 0 

15  *3467 

97  3 

17, 2Q36 

TO 

17 . 2042 

1400 

20,2226 

TP 

20, 2237 

1409 

14,3025 

TC 

14,3065 

941 

15,3470 

TO 

15,3522 

974 

17,2043 

TO 

17,2071 

1436 

20,2240 

TO 

20, 2304 

1410 

1 4,  3066 — 

TC- 

_4  A t 312  0 

- ■ 942 

15 , 3523 

T-Q 

1 5 , 3-5-56 

975 

1 1 , ? 07? 

TX) 

17 , ? 1 46 

1437 

20* ?308 

TO 

20. 2321 

1411 

14, 3121 

TC 

14,3166 

943 

15,3557 

TO 

15,3615 

976 

17, 2 146 

TO 

17,2207 

1438 

20,2322 

TO 

20,2364 

1413 

14, 3167 

TC 

14,3240 

944 

15,3616 

TO 

15,3634 

977 

17,2210 

TO 

17,2257 

1439 

20,2365 

TO 

20,2437 

1414 

1-4,3241 

TC 

14,-3  32  0 

. 9A5 

1 5,3635 

T-CL 

15,3662 

978 

1 7*_2  260 

TO 

17,2336 

1440 

20,2440 

TO 

20,2446 

1415 

14,3321 

TC 

14,3337 

946 

15,3663 

TO 

15,3704 

980 

17,2337 

TO 

17,2420 

1441 

20,2447 

TO 

20,2476 

1480 

14,  33-40- - 

T-C  - 

14,3417 

948 

15,3705 

-JLO- 

15,3766 

981 

17, 2421 

TO 

17,2500 

1442 

20,2477 

TO 

20, 2552 

1481 

14, 3420 

TC 

14,3501 

949 

15,3767 

TO 

15,3774 

982 

1 7, 2501 

TO 

17,2551 

1443 

20,2553 

TO 

20,2615 

1482 

14,3502 

TC 

14,3533 

950 

15,3775 

TO 

15,3776 

30 

17,2552 

TO 

17,2562 

1444 

20,2616 

TO 

20,2673 

1483 

14,3534 

TC 

14,3565 

951 

16,2000 

TO 

16,2023 

1405 

17,  2563 

TO 

17,2615 

1445 

20, 2674 

TO 

20,2723 

1484 

14,3566 

TC 

14,3607 

952 

16,2024 

TO 

16,2075 

1406 

17,2616 

TO 

17,2660 

1446 

20,2724 

TO 

20,2744 

1485  I 

1-4-,  36-1-0- 

-JX- 

_l-4*3-646_ 

_ SL53 

1-6, _20  76  _ 

TO 

16,2153  - 

1407 

17,2661 

TO 

17*2721 

1447 

20,2745 

TO 

20, 3004 

1486 

14,3647 

TC 

14,3710 

9 54 

16,2154 

TO 

16,2207 

1408 

17,2722 

TO 

17,2773 

144  8 

20,3005 

TO 

20,3056 

1487  ' 

i 

< 
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20 ♦ 3057 

TC  20,3127 

1488 

21,3624 

TO  21,3675 

1476 

23, 2200 

TO 

23,2257 

530 

24,2154 

TO 

24,2223 

509 

20f  31 30 

TC  20,3141 

1489 

21 ,3676 

TO  21,3745 

1477 

23, 2260 

TO 

23,2274 

531 

24,2224 

TO 

24,2275 

510 

7 1 , 3746 

TO  21,3772 

1478 

23,2275 

TO-. 

-23,2324 

704 

24, 2276 

TO 

24,2343 

511 

20, 3206 

TC  20,3256 

1491 

21,3773 

TO  21,3774 

30 

23,2325 

TO 

23,2340 

705 

24,2344 

TO 

24, 2423 

512 

7 ? t 7 00-0 

TO  22 ,2003 

59  

- 23,2341 

- TO 

23 ,2376 

70-6 

24,  7424 

TO  24. 2426 

513 

20,3330 

TC  20,3401 

1493 

22, 2004 

TO  22,2053 

364 

23,2377 

TO 

23,2406 

707 

24,2427 

TO 

24, 2451 

514 

20,3402 

TC  20,3455 

14  94 

22,2054 

TO  22,2126 

365 

23,2407 

TO 

23,2412 

708 

24, 2452 

TO 

24,2476 

515 

70  r 745^ 

JCL  20  * 3524 

_L4  95 

22^2127 

TO  22,2201 

366 

23.2413 

TO 

23,2432 

1095 

24,2477 

TO 

24,2520 

516 

20,3525 

TC  2 C , 360  1 

1496 

22,2202 

TO  22,2262 

367 

23,2433 

TO 

23,2452 

1144 

24,252 1 

TO 

24,2600 

517 

?nf  ^aop 

TC  2-0,3 6_5_L_ 

1497 

22,2263 

TO- 22, 2311 

368 

23, 2453 

TO 

23,2534 

1145 

24,2601 

TO 

24,2660 

518 

20,3652 

TC  20,3661 

1499 

22,2312 

TO  22,2357 

369 

23,2535 

TO 

23,26 16 

1146 

24,2661 

TO 

24,2720 

519 

20,3662 

TC  20,3663 

30 

22,2360 

TO  22,2421 

370 

23,2617 

TO 

23,2644 

1147 

24,2721 

TO 

24,2741 

520 

21,2000 

TC  21,2005 

57 

22,2422 

TO  22,2503 

371 

23,2645 

TO 

23,2673 

1148 

24,2742 

TO 

24,3020 

521 

21,2006 

TC  21,2012 

819 

22,2504 

TO  22,2546 

372 

23,2674 

TO 

23,2755 

11  49 

24,3021 

TO 

24, 3026 

522 

TC  7 1 T ?n A4 

a?o 

2 2 , 7 547 

10-22,2625 

373  _ 

23,  2 756 

TO 

23,3037 

1150 

24,3027 

TO 

24,3060 

523 

21,2065 

TC  21,2101 

821 

22,2626 

TO  22,2653 

374 

23,3040 

TO 

23,3121 

1151 

24, 306 1 

TO 

24,3077 

524 

TC  7 -]  t 7 1 4 7 

H?q 

22,2654 

T_0 2 2 » 2 72  3 

375 

2 3,-3122 

TCL 

23,3150 

1 1 5? 

24.3100 

TO 

24,3117 

525 

21,2143 

TO  2 1 j 2 2 1 2 

830 

22,2724 

TO  22,2743 

376 

23,3  151 

TO 

23,3205 

1244 

24,3120 

TO 

24, 3147 

526 

21,2213 

TC  21,2260 

831 

22,2744 

TO  22,3002 

377 

23,3206 

TO 

23,3221 

1245 

24, 3150 

527 

7 1 t 7 7-6-1 

T C 2 1 , 22  73 

832 

22,30-03 

TQ  22,3053 

378 

23,3222 

TO 

23,3254 

1 246 

24,3151 

TO 

24,3227 

5 76 

21,2274 

TC  21,2313 

837 

22,3054 

TO  22,3124 

379 

23,3255 

TO 

23,3321 

1248 

24, 3230 

TO 

24, 3244 

583 

21,2314 

Tr._21 ,23-3  7 

-8.73  - 

_ 22,3125 

TO  22,3202. 

380  . . 

23, 3322 

TO 

23,3344 

1249 

24,3245 

TO 

24, 3252 

584 

21,2340 

TC  21,2411 

897 

22,3203 

TO  22,3212 

381 

23, 3345 

TO 

23,3404 

1250 

24,3253 

TO 

24,3274 

610 

21,2412 

TC  21,2471 

8 98 

22,3213 

TO  22,3241 

382 

23, 3405 

TO 

23,3436 

1251 

24,3275 

TO 

24,3324 

616 

21,2472 
21,2554 
21 , 26  35 

TC  21,2553 
TC  21,2634 
TC  71.7/13 

8 99 
900 

- 9 01-  - 

22,3242 

22,3301 

22,3356 

TO 

TO 

TO 

22,3300 

22,3355 

22,3427 

721 

722 

723 

23,3437 

23,3443 

23.3457 

TO 

TO 

TO 

23,3442 

23,3456 

23,3520 

1252 

1254 

1255 

24,3325 

24,3400 

24,3402 

TO 

TO 

TO 

24,3377 

24,3401 

24,3447 

617 

618 
665 

21,2714 

TC 

21,2773 

902 

22,3430 

TO 

22,3464 

724 

23, 3 521 

TO 

23,3551 

1256 

24,3450 

TO 

24,3503 

666 

P I r 77  7-4 

T C 

21 ,3053 

903 

2 2 , 3465 

TQ 

22, 3 537 

775 

73, 3557 

TQ_ 

73,3574 

125-1 

74,3504 

TP 

2 A , 3526 

1135 

21,3054 

TC 

21,3135 

9 04 

22,3540 

TO 

22,3550 

726 

23,3575 

TO 

23,3621 

1258 

24,3527 

TO 

24,3530 

1136 

21,3136 

TC 

21,3217 

905 

22,3551 

TO 

22,3611 

728 

23, 3622 

TO 

23,3671 

1259 

24,3531 

TO 

24,3560 

1137 

24,3220 

T-C- 

2 1, 32-62 

906  - 

22,3612 

in 

22,3646 

729 

23,3672 

1260 

24,356 1 

TO 

24,3613 

1 138 

21, 3263 

TC 

21,3307 

1467 

22,3647 

TO 

22,3674 

1152 

23,3673 

TO 

23 , 3722 

126  1 

24,3614 

TO 

24,3675 

1139 

21,3310- 

-10- 

-2-L, 33-62_ 

1468 

77,3675 

TO 

_22,3  730 

1153 

2 3j_3  72  3 

TO 

23,3774 

31 

74, 3676 

TO 

24,3732 

1140 

21,3363 

TC 

2 1,3440 

1469 

22,3731 

TO 

22,3732 

31 

24,2000 

TO 

24,2007 

68 

24,3733 

TO 

24,3734 

31 

21,3441 

TC 

2 1,3446 

1470 

23,2000 

TO 

23,2040 

286 

24,2010 

TO 

24,2021 

69 

25,2000 

TO 

25,2002 

56 

21,3447 

TC 

21,3454 

1472 

2 3,2041 

TO 

23,2064 

338 

24,2022 

TO 

24,2026 

504 

25,7003 

TO 

25,2041 

502 

21,3455 

TC 

21,3527 

1473 

23,2065 

TO 

23,2077 

497 

24,2027 

TO 

24,2057 

505 

25,2042 

TO 

25,2061 

503 

21,3530 

TC 

21,3560 

-1.474 

23.2100 

TO 

23,2116 

528 

24,2060 

TO 

24,2073 

507 

25,2062 

TO 

25,2070 

5 37 

21,3561 

TC 

2 1,3623 

1475 

23,2117 

TO 

23,2177 

529 

24,2074 

TO 

24 , 21 53 

508 

25,207  1 

TO 

25,2110 

538 
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25,2111 

TC  25,2126 

5 39 

25,3671 

TO 

25,3672 

31 

27,2  171 

TO 

27,2222 

604 

30,2364 

TO 

30,2445 

847 

25,2127 

TC  25,2132 

540 

26,2000 

TO 

26,2047 

352 

27,2223 

757 

30,2446 

TO 

30,2527 

848 

Tf  2^*217° 

541 

,2-6-*-2-Q-5jQ 

T_CL 

26,2076 

353 

_2  7j  2 224__ 

TO 

27,2270 

758 

30.2530 

TO 

30,261 1 

849 

25,2171 

TC  25,2177 

542 

26,2077 

TO 

26,2100 

354 

27, 2271 

TO 

27,2350 

772 

30,2612 

TO 

30,2673 

850 

2ft*  2 101 

TO- 

26*2123 

486 

27,2  351 

TO 

27  ,_243J_ 

773 

30,2674 

TO 

30, 2755 

_ 8 51  . 

25,2241 

TC  25,2251 

544 

2 6 j 2 1 24 

TO 

26,2174 

48  7 

27,2432 

TO 

27,2435 

774 

30,2756 

TO 

30,3024 

852 

25, 2252 

TC  25,2305 

545 

26,2175 

TO 

26,2237 

488 

27,2436 

TO 

27,2471 

776 

30,3025 

TO 

30,3054 

856 

2 8 r 2 8 08 

TT 25*2322 

_2-6-*-2-2A0 

_TQ 

26,2243 

489 

_ .2  7,-2472. 

TO 

27,2552 

778 

30, 3055 

TO 

30,3104 

909 

25,2323 

TC  25,2342 

5 47 

26,2244 

TO 

26,2246 

490 

27,2  553 

TO 

27,2573 

779 

30, 3105 

TO 

30,3134 

910 

28 , ? 

TP.  2 5*2372 

548 

2-6  *2247 

-j_g 

26,2324 

491  . 

27, 2 574- 

TO- 

-2.7  ,.2617 

780 

30.3135 

TO 

30.3165 

911 

25,2373 

TC  25,2374 

549 

26, 2325 

492 

27,2620 

TO 

27,2673 

781 

30,3166 

TO 

30,3230 

912 

25,2375 

TC  25,2431 

5 50 

26,2326 

TO 

26,2367 

496 

27, 2674 

TO 

27,2744 

782 

30,3231 

TO 

30,3276 

913 

25,2432 

TC 

25,2441 

551 

26,2370 

TO 

26,2440 

586 

2 7,2  745 

TO  27,3004 

783 

30,3277 

TO 

30, 3304 

914 

25,2442 

TC 

25,2460 

5 52 

26,2441 

TO 

26,2522 

587 

27, 3005 

TO  27,3066 

784 

30,3305 

TO 

30,3346 

915 

2 5 » 24-61 

I-C 

2 5, 2474 

8 83 

26.2523  J[L 

26,2603 

588  _ 

27j-  3 067 

TO  27,3127 

785 

30,3347 

TO 

30,3410 

916 

25,2475 

TC 

25,2543 

5 54 

26,2604 

TO 

26,2665 

589 

27,3  130 

TO  27,3155 

786 

30,3411 

TO 

30, 3453 

917 

2 8*2-544 

IT 

? 5-*  ? 87  2 

5 55 

2-6+2666 

TO 

26*2745 

5 90 

2 T, 3 1 56 

TO  27.3161  788 

3 0*3  45  4 

TO  30.3503 

918 

25,2573 

5 56 

26,2746 

TO 

26,3027 

591 

27,3162 

TO  27,3163 

852 

30,3504 

TO 

30,3550 

919 

25,2574 

TC 

25,2635 

5 57 

26,3030 

TO 

26,3110 

592 

27,3164 

TO  27,3240 

853 

30,3551 

TO 

30, 3572 

920 

25*2636 

TC 

? 5-*  2 7 0-4 

5-59 

26*31 11 

TO  26.314? 

_ 593 

27,3  241 

TCL27 ,33  10 

854 

30*3573 

TO 

30*  3642 

921 

25,2705 

TC 

25,2714 

5 60 

26,3143 

TO 

26,3213 

594 

27,3311 

TO  27,3331 

855 

30,3643 

TO 

30,3677 

922 

2 5 * 27  1 8 

TLC 

75*?  76  7 

864 

26*  32 14 

TO 

26, 3273 

595 

2 7,3  33Z 

T 0 27.3361  1265 

30,3700 

TO 

30,3731 

923 

25,2763 

TC 

25,3035 

562 

26,3274 

TO 

26,3334 

596 

27,3362 

TO  27,3400 

1266 

30,3732 

TO 

30,3745 

924 

25,3036 

TC 

25,3072 

5 63 

26,3335 

TO 

26,3404 

597 

27,3401 

TO  27,3436 

1268 

30,3746 

TO 

30,3747 

33 

25, 3073 

TC 

25,3112 

5 64 

26,3405 

TO 

26,3410 

598 

27, 3437 

TO  27,3505 

1271 

31,2000 

TO 

31,2001 

54 

25, 3113 

TC 

25,3147 

5 65 

26,3411 

TO 

26,3466 

599 

27,  3506 

TO  27,3546 

1272 

31,2002 

TO 

31,2004 

55 

25, 3150 

TC 

25,3215 

566 

- - 26,346-7 

TO 

26,3546 

600 

27, 3547 

TO  27,3616 

1 273 

31.7005 

Tn 

31 , 2006 

56 

25,3216 

TC 

25,3267 

5 67 

26,3547 

TO 

26,3564 

601 

27,3617 

TO  27,3663 

1274 

31,2007 

TO 

31,2010 

59 

2 5,32-70 

- TC- 

2-5*3  33  7 

-568 

26*  3565 

TO 

26*36-32 

602 

-27, 3664- 

TP  2 7 ,3 1 08 

1 278 

T l T ?m  l 

_JQL 

7 1 * 2060 

619 

25,3340 

TO 

25,3401 

5 69 

26,3633 

TO 

26,3656 

603 

27,3707 

TO  27,3725 

1276 

3U2061 

TO 

31,2142 

620 

25,3402 

TC 

25,3441 

5 70 

26,3657 

TO 

26,3710 

1141 

27,3726 

TO  27,3743 

1277 

31,2143 

TO 

31,2171 

621 

2 5,34-42 

- -TC 

25.347C 

- 5-71 

. -2-6,3  711 

TO 

26,3721 

1 142 

27,3744 

TO  27,3745 

32 

31,2172 

TO 

31,2236 

795 

25,3471 

TC 

25,3533 

5 72 

26, 3722 

TO 

26,3723 

31 

30,2000 

TO  30,2001 

54 

31,2237 

TO 

31 , 2246 

796 

25,-3534 

— TO 

25, 3545 

5-73 

27,2000 

TO  27.2011 

53 

3a,  2002_ 

TO  30,2005 

59 

3 1 ,2247 

TO 

31,2276 

797 

25,3546 

TC 

25,3564 

5 74 

27,2012 

TO 

27,2013 

59 

30,2006 

TO  30,2047 

839 

31,2277 

TO 

31 , 2341 

798 

25,3565 

TC 

25,3576 

5 77 

27,2014 

TO 

27,2015 

61 

30,2050 

TO  30,2124 

840 

31,2342 

TO 

31,2401 

799 

25,3577 

TC 

25,3600 

5 78 

27,2016 

TO 

27,2067 

494 

30,2  125 

TO  30,2203 

841 

31,2402 

TO 

31,2443 

800 

25,3601 

TC 

25,3606 

6 08 

27,2070 

TO 

27, 2142 

49  5 

30,2  204 

TO  30,2265 

842 

31 , 2444 

801 

2 5,3607 

TC. 

2-5 , 3 Ml 

622  - 

27,21 43 

TO  27.2155 

496 

30  * 2 266 

TO  30*23 12 

843 

3 1,2  44  5 

TO 

31 , 2466 

802 

25,3650 

TC 

25,3670 

623 

27,2156 

TO 

27,2170 

603 

30,2313 

TO  30,2363 

846 

31,2467 

TO 

31,2521 

803 
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31,2522 

TC  31,2565 

8 04 

32,2676 

TO 

32,2734 

614 

31,2566 

TC  31,2623 

8 05 

32,2735 

TO 

32,2771 

615 

TP  1 1 f ? 6 *5  6 

806 

32*  27  72 

TO 

3 2,3036 

789 

31,2657 

TC  31,2722 

8 07 

32,3027 

TO 

32,3074 

790 

8-08- 

32*3075 

TO 

32*3151 

- 791 

31,2772 

TC  31,3024 

8 09 

32,3152 

TO 

32, 3223 

792 

31,3025 

TC  31,3071 

810 

32,3224 

TO 

32,3256 

793 

, 1C\1? 

TC  31*3136 

an 

32,3257 

TO 

32,3302 

832  _ . 

31,3137 

TC  31,3167 

812 

32,3303 

TO 

32,3354 

833 

JC  ^1  f 1^4? 

8 13 

82*3363 

TO 

32,3415 

_ 834 

31, 3243 

TC  31,3303 

814 

32,3416 

TO 

32,3475 

835 

31,3304 

TC  31,3346 

815 

32,3476 

TO 

32,3545 

836 

31,3347 

TC  31,3416 

8 16 

32,3546 

TO 

32,3560 

837 

31,3417 

TC  31,3455 

817 

32,3561 

TO 

32,3612 

838 

31,-34  56- 

31,3513 

IT  3 1 * 3_5  L? 

8 18 

3?t3613 _ 

TO 

32,3660 

85  7 

TC  31,3542 

819 

32,3661 

TO 

32,3672 

864 

3-l-r-3543 

31,3614 

TG  31,361-3 
TC  31,3665 

8?- 3 

32, 3673 

TO 

32, 3710 

865 

8 24 

32,3711 

TO 

32,3747 

866 

31 , 3666 

TC  31,3725 

825 

32,3750 

TO 

32,3765 

894 

31,3726 

TC  31 ,3740 

826 

3 2,3  76-6 

TO 

32,3767 

33 

31,3741 

TC  31,3767 

827 

33,2000 

TO 

33,2001 

54 

3 1 , 37  70 

TC-  31*37-71 

33 

33,-2002 

TO 

33,2017 

56 

32,2000 

TC  32,2001 

53 

33,2020 

TO 

33,2030 

57 

32,2002 

TC  32,2007 

54 

33,2031 

TO 

33,2034 

59 

32,2010 

55 

33,2035 

TO 

33,2044 

60 

32, 2011 

TC  32,2014 

56 

33,2045 

TO 

33,2112 

607 

a2-*2Ql-5 

TC  32,201  1 

2-21 

- 3 3,2113  - 

XCL 

33,2136 

608 

32,2020 

TC  32,2072 

2 22 

33,2137 

TO 

33,2177 

609 

32,2  0 73 — 

TC  32,2146 

223 

_ 33,2200 

xo_ 

33,2250 

86  1 

32,2147 

TC  32,2224 

224 

33,2251 

TO 

33,2316 

862 

32,2225 

TC  32,2226 

225 

33,2317 

TO 

33,2365 

86  3 

3 2 ,-22-27 

TC- 32-,  2252 

-5-05-  - 

_ 33,2366 

TO 

33,2420 

864 

32,2253 

TC  32,2334 

5 06 

33,2421 

TO 

33,2471 

868 

32,  23  3 5 

TO  32,2375 

- 5 07 

33,2472 

869 

32,2376 

TC  32,2440 

5 80 

33,2473 

TO 

33, 2501 

873 

32,2441 

TC  32,2522 

581 

33,2502 

TO 

33,2513 

874 

32,2523 

TC  32,2544 

5 82 

33,25 14 

TO 

33,2561 

87  5 

32,2545 

TC  32,2576 

611 

33,2562 

TO 

33,2600 

876 

- 32,2577  TC  3 2.2-632- 

612 

33,2601  _ 

TO 

33,2653 

877 

32,2633 

TC  32,2675 

613 

33,2654 

TO 

33, 2715 

878 
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33,2716 

TO  33,2753 

879 

34,3376 

TO  34,3443 

734 

33, 2754 

TO  33,2761 

880 

34, 3444 

TO  34,3516 

735 

3 3,-2  762- 

TQ  33,3037 

881 

34*  3 517 

TO  34,3535 

736 

33, 3040 

TO  33,3063 

882 

34,3536 

TO  34,3602 

737 

33,3  137 
33,3205 
3 3_i  3 260 

TO 

TO 

TO 

33,3204 

33,3257 

33,3333 

884 

885 

886 

34,3637 

34,3711 

34,3717 

TO 

TO 

TO 

34,3710 

34,3716 

34,3745 

344 

845 

893 

33,3  334 

TO 

33,3403 

887 

34,3746 

TO 

34,3757 

894 

3 3*  3.404 

TQ- 

33  ,3-4  56 

888 

34*3760 

TO 

34*3761 

33 

33,3457 

TO 

33,3523 

889 

35,2000 

TO 

35,2020 

624 

33, 3524 

TO 

33,3571 

890 

35,2021 

TO 

35,2026 

625 

33,3572 

TO 

33,3600 

891 

35,2027 

TO 

35,2066 

631 

33,3601 

TO 

33,3641 

892 

35,2067 

TO 

35,2150 

632 

- 33.3642 

TO 

33 * 3652 

893 

35,2151 

TO 

35,2161 

633 

33,3653 

TO 

33,3711 

895 

35,2162 

TO 

35 ,2240 

637 

33,3712 

TCL 

33,3754 

896 

35.2741 

TCL 

35,2317 

638 

33,3755 

TO 

33,3756 

33 

35,2313 

TO 

35,2333 

639 

34,2000 

TO 

34,2005 

626 

35,2334 

TO 

35,2353 

640 

34, 2006 

TO 

34,2056 

627 

35,2354 

TO 

35,2375 

641 

34,2057 

TO 

34,2115 

642 

35,2376 

TO 

35,2413 

660 

3 4*  2 116 

TO  34,2177 

643 

35.2414 

Tn 

35,2447 

662 

34,2200 

TO 

34,2261 

644 

35,2450 

TO 

35,2510 

663 

34, 2262 

TO 

34,2343 

645 

35,2511 

TO 

35,2544 

6 70 

34,  2 344 

TO 

34,2425 

646 

35,2545 

TO 

35,2625 

671 

34,2426 

TO 

34,2507 

647 

35,2626 

TO 

35, 2666 

672 

34,2510 

TO 

34,2571 

648 

35. 2667 

TO 

3 5_*  27  2 5 

675 

34, 2572 

TO 

34,2653 

64  9 

35,2726 

TO 

35,3005 

6 76 

34*  2654 

TO 

34*2735 

65  0 

3-5,30  06 

TO 

35*3067 

677 

34,2736 

TO 

34,3015 

651 

35,3070 

TO 

35,3151 

678 

34,3  C16 

TO 

34,3051 

652 

35,3152 

TO 

35,3233 

679 

34,3052 

TO 

34,3061 

653 

35,3234 

TO 

35,3235 

680 

34,3062 

TO 

34,3077 

654 

35,3236 

TO 

35,3247 

681 

34, 3 100 

TO 

34,3117 

655 

35,3250 

TO 

35,3375 

682 

34,3  120 

TO 

34,3132 

656 

35,3326 

TO 

35,3332 

683 

34,3133 

TO 

34,3204 

657 

35,3333 

TO 

35 , 3375 

6 84 

34,3205 

TO 

34,3266 

658 

35,3376 

TO 

35,3402 

685 

34,3267 

TO 

34,3270 

659 

35,3403 

TO 

35,3455 

6 86 

34.3271 

TO 

34,3313 

732 

35,3456 

TO 

35,3523 

687 
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35,3542 

TC  35,3606 

6 89 

37,2002 

TO 

37,2036 

386 

40, 2467 

TO 

40,2542 

417 

41,2740 

TO 

41,3013 

440 

35, 3607 

TC  35,3627 

6 90 

37,2037 

TO 

37,2117 

387 

40,2  543 

TO 

40,2614 

418 

41,3014 

TO 

41,3066 

441 

691 

27,21 20 

TCI 

3-7  ,3171 

. 3 88 

- 4 0,2  615 

TO 

40,2655  - 

431 

41,3067 

TO 

4 1, 3140 

442 

35,3643 

TC  35,3661 

6 92 

3 7 i 2 1 72 

TO 

37,2251 

389 

40,2656 

TO 

40,2722 

432 

41,3141 

TO 

41,3210 

443 

27  T 2 2 52 

I_0 

27, ?274 

-3-90 

4-0  r 2 723 

TQ 

40 , 2 766_ 

433— 

4 1,3711 

m 

4 1 , 3227 

4A4 

35,3707 

TC  35,3735 

755 

37,2275 

TO 

3 7 i 2 346 

391 

40,2767 

TO 

40,2770 

434 

41,3230 

TO 

41,3255 

450 

35, 3736 

TC  35,3737 

34 

37,2347 

TO 

37,2400 

392 

40,2771 

TO 

40,3007 

437 

41,3256 

TO 

41,3327 

451 

3^  t ?nnn 

TC  3.6,2017 

52 

37,2401 

_JLQ_ 

37,-245  7 

393- 

4 Oj  3010 

TO 

40,3035 

444 

41,3330 

TO 

41, 3352 

452 

36,2020 

TC  36,2021 

55 

37,2460 

TO 

37,2477 

394 

40,3  036 

TO 

40,3110 

445 

41,3353 

TO 

41,3362 

453 

3-6 , ?Q ?7 

TC  3 fc  ,2-Q4  ^ 

739 

3 7j_25  00 

. TH 

37,2535 

396 

40j_3  111 

TO 

40,3161 

446 

41,3363 

TO 

4 1, 3414 

456 

36,2044 

TC  36,2107 

740 

37,2536 

TO 

37,2576 

397 

40, 3162 

TO 

40,3177 

447 

41,3415 

TO 

41, 3427 

457 

36,2110 

TC  36,2150 

741 

37,2577 

TO 

37,2656 

398 

40,3200 

TO 

40,3250 

454 

41,3430 

TO 

41,3472 

460 

36, 2151 

TC  36,2226 

742 

37,2657 

TO 

37,2736 

399 

40,3251 

TO 

40,3305 

455 

41,3473 

TO 

41,3515 

461 

36,2227 

TC  36,2273 

743 

37,2737 

TO 

37,3004 

400 

40,3306 

TO 

40,3321 

456 

4 l, 3516 

TO 

41,3573 

466 

- 3ft,  7-7  74 

TC  36,2336 

744 

27,2005 

TO 

37,3057 

401 

40, 332? 

TO 

40,3346 

457 

41,3574 

TO 

4 1*361  2 

467 

36,2337 

TC  36,2377 

745 

37,3060 

TO 

37,3112 

402 

40,3347 

TO 

40,3415 

458 

41,3613 

TO 

41,3656 

480 

3Ar?400 

TP,  ^4t?447 

_ 37 t 2 1 1 2 

m 27.21 60 

712 

- 40, 3416 

TO- 

60  ,3437 

45-9 

41  ,3657 

T_Q 

41 .3725 

_4  8J 

36,2450 

TC  36,2520 

747 

37,3161 

TO 

37,3240 

713 

40,3440 

TO 

40,3447 

461 

41, 3726 

TO 

41,3730 

482 

36, 2521 

TC  36,2560 

748 

37,3241 

TO 

37,3310 

714 

40,3450 

TO 

40,3456 

462 

41,3731 

TO 

41,3732 

35 

3 ft  t 7 56-1 

TC  36,2625 

749 

37,221 1 

m 

37, 3370 

715 

40,3457  TO 

40,3  5 02 

46  3 

42j_7  00  0 

TO 

42,2001 

62 

36,2626 

TC  36,2665 

750 

37,3371 

TO 

37,3373 

716 

40,3503 

469 

42,2002 

TO 

42, 2034 

290 

3 6^-2-666 

TC  36,2736 

7 51 

_ __  3 7,33  74 

TO 

37,3424 

85  8 

40j.3  503l 

TO 

40 , 3 5 3 1 

470 

42,2035 

TO 

42^2053 

297 

36,2737 

TC  36,3005 

7 52 

37,3425 

TO 

37,3470 

859 

40,3532 

TO 

40,3574 

471 

42,2054 

TO 

42,2066 

302 

36,3006 

TC  36,3052 

7 53 

37,3471 

TO 

37,3524 

860 

40,3575 

TO 

40,3600 

472 

42,2067 

TO 

42,2102 

303 

36,3053 

TC  36,3117 

7 54 

37,3525 

TO 

37,3527 

867 

40, 3601 

TO 

40,3646 

483 

42,2103 

TO 

42,2141 

319 

36,3120 

TC  36,3130 

7 55 

37,3530 

870 

40,3647 

TO 

40,3671 

484 

42,2142 

TO 

42,2207 

320 

36^-31  31 

TC  36,3146 

7-56- 

3.7,3531 

TO 

37,3601 

871 

40,3672 

TO 

40,3673 

35 

47,2210 

TO 

47,2243 

321 

36,3147 

TC  36,3170 

760 

37,3602 

TO 

37,3640 

872 

41,2000 

TO 

41,2033 

419 

42,2244 

TO 

42,2271 

322 

36, 3171 

TC  36,3235 

761 

37,3641 

TO 

27, 2677 

1229 

4-1 , 2-034- 

TQ- 

41,2112 

47  0 

A 7 . 7 7 7 7 

TO  47.71^5 

T73 

36,3236 

TC  36,3305 

762 

37, 3700 

TO 

37^3733 

1330 

41,2113 

TO 

41,2167 

421 

42,2336 

TO 

42,2403 

3 24 

36, 3306 

TC  36,3351 

763 

37,3734 

TO 

37,3757 

1331 

41 , 2 170 

TO 

41,2220 

422 

42,2404 

TO 

42,2442 

325 

36,  33-52 

TC  36,3420 

3 7 ,3  Z63 

TO- 

37,3761 

35 

4 1,2  221 

TQ 

41,2264 

423 

4 2_,  2 4 4 3 

TO 

42,2510 

326 

36,3421 

TC  36,3466 

765 

40,2000 

TO 

40,2045 

314 

41,2265 

TO 

41,2342 

424 

42,2511 

TO 

42,2567 

327 

— 36,3467- 

TC  -36 , 3 53-7 

766. 

- 40,2046 

TO 

40,2076 

3JL5 

4 14-2343 

TO 

41,2352 

425 

42  ,_2  5 70 

TO 

42 , 2644 

328 

36,3540 

TC  36,3605 

767 

40,2077 

TO 

40,2150 

41  1 

41,2353 

TO 

41 ,2430 

427 

42,2645 

TO 

42,2726 

329 

36,3606 

TC  36,3653 

768 

40,2151 

TO 

40,2216 

412 

41,2431 

TO 

41,2475 

428 

42,2727 

TO 

42,3010 

330 

36,3654 

TC  36,3726 

769 

40,2217 

TO 

40,2277 

413 

41,2476 

TO 

41,2550 

429 

42,3011 

TO 

42,3072 

33! 

36,3727 

TC  36,3747 

770 

40,2300 

TO 

40,2351 

414 

41 , 2 551 

TO 

41,2615 

430 

42,3073 

TO 

42,3147 

332 

36,3750  _ 

TC  36,3751 

35 

40 ,2352 

TO 

40,2424 

415 

41,2616 

TO 

41,2657 

438 

42,3150 

Tn 

42,3223 

333 

37,2000 

TC  37,2001 

59 

40,2425 

TO 

40,2466 

416 

41,2660 

TO 

41,2737 

439 

42,3224 

TO 

42,3270 

434 

I 
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42,3271  TC  42,3347  435 

42,3350  TC  42,3425  436 

42,3426—  T C 42-,  34-4  5 437 

42,3446  TC  42.350C  447 


43,3132  TO  43,3142  306 

43,3143  TO  43,3147  307 

4-3,31  50 T 0 -43 , 3207-  312 

43,3210  TO  43,3234  313 


42 t 35Q1 — 

-T-G- 

42,3-556 

-448 

4 3,32  3-5 

—TO- 

43,3237 

— 314 

42,3557 

TC 

42,3601 

449 

43,3240 

TO 

43*3276 

1280 

42,3602 

4 98 

43,3277 

TO 

43,3344 

1281 

42,3603 

-TC- 

43 ,33  4 5 

TO 

43,3420 

J.2-82- 

42 , 3665 

TC 

42,3746 

5 00 

43,3421 

TO 

43,3500 

1283 

5 01 

_ 43 ,3501— 

XQ_ 

43,3543 

12-84- 

42 ,3766 

— i-L — 

TC 

42,3767 

35 

43,3544 

TO 

43,3622 

1285 

43,2000 

TC 

43,2045 

2 77 

43,3623 

TO 

43,3701 

1286 

43,2046 

TC 

43,2115 

2 78 

43,3702 

TO 

43,3731 

1287 

43,2116 

TC 

43,2127 

2 79 

43,3732 

TO 

43,3751 

1381 

Tf 

4? , 2 1 6 2 

2 80 

43,3752- 

TLCL 

43,3757 

1382 

43,2163 

TC 

4 3 , 2 1 7 C 

281 

43,3760 

TO 

43,3761 

35 

2 A2 

43,2177 

TC 

43,2226 

2 83 

43,2227 

TC 

43,2274 

2 84 

—43-,  2-2  75 TC  4 3-, 3321 2-85 — 


43,2322  286 

43,2323 TC  43,2337 2-87 

43,2340  TC  43.237C  288 

43,2371  TC  43,2410  289 

43,2411  TC  43,2413  290 

43,2414  TC  43,2456  291 

43,2-457 TC  4 3 ,2-5-27 292 

43,2530  TC  43,2603  293 

43,2604 TC  4 3,26-5-1 2-94— 

43,2652  TC  43,2716  295 

43,2717  TC  43,2754  296 

4 3,2  75-5 2-92 


43,2756 

TC 
t r 

43,2773 
4 3,,  3fLl  5 

2 98 
2 99 

43,3016 

43,3025 

TC 

TC 

43,3024 

43,3033 

3 00 
301: 

43, 3034 

TC 

43,3052 

3 02 

43,3053 

TC 

43,3062 

3 03 

43 , 3063 

LC- 

3t3  ,3071 

-304  _ 

43,3072 

TC 

43,3131 

3 05 

GAT3-:- 
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THE  SUBROUTINES  IN  THIS  PROGRAM  ARE  AS  FOLLOWS: 


LUMEPASE.  10?. 

LE MONA  ID . 070 

—IF  MP20S — . 1-1 A 

LEMP30S  . 102 
KISSING  .040 

EO 10.9 

LEMP50S  . 103 
SKIPPER  .070 
LMDAP .012 


THE  ASSEMBLY  WAS  GCOD  AND  MANUFACTURABLE.  NO  LINES  WERF  CUSSED. 


BINARY  RFCGROS  FOR  "LUMINARY. 069”  SUCCESSFULLY  STORED 


WILSON  JONES 


NYLON  POST  BINDER 

14-1411  N 

TYPE  1/.020  GENUINE  PRESSBOARD, 


2 PURPOSE  BINDER 

This  binder  may  be  used  to  bind  both  marginal-punched  sheets  and  forms 
punched  with  2%’,  4Ji”,  6",  7",  8'/a'',  13%"  and  14%"  center-to-center  holes. 


BURST 


1.  MARGINAL-PUNCHED  SHEETS 

UNBURST 


(a) 

Insert  posts  In  end  holes  of 
stub.  Turn  counter-clock- 
wise until  heads  are  flush 
against  Inside  of  channel. 


(b)_ 

Gather  sheets  in  even 
stack.  Insert  posts  in  sec- 
ond holes  from  both  ends 
of  the  sheets. 


Put  top  cover  on  with  stub 
turned  under.  Insert  posts 
thru  end  holes. 


Insert  posts  thru  end  holes 
of  stub  as  in  illustration  (a). 
Plug  posts  into  top  holes 
in  both  margins  of  sheets. 
Put  on  top  cover  as  in  il- 
lustrations (c)  and  (d). 
(Also  see  No.  2 below) 


<d) 

Bend  posts 
down  into  channel."* 
Push  locks  over  posts 
toward  outside  ends  of 
channel  until  snug. 


TOP  AND 
BOTTOM  LOADING 

This  binder  may  be  loaded 
from  the  top  or  bottom  by 
using  posts  without  screw 
heads.  Askthe  dealer  from 
whom  you  bought  the 
binder  for  Posts  and 
Slides  Pack  No.  1323. 


2.  CONVENTIONALLY  PUNCHED 
LOOSE  LEAF  SHEETS 
AND  STRIPPED  UNBURST  SHEETS 

Follow  steps  (a)  thru  (d)  at  left,  except  that  posts 
should  be  threaded  into  holes  in  stub  that  corre- 
spond to  holes  in  forms  or  sheets  to  be  bound. 


©WILSON  JONES  COMPANY 


(J2675A) 


Made  In  U.  S.  A. 


